screen 12 dim le(100,4), dky(100) open"lespecz.txt" for input as #1 for n&=1 to 100 input#1,n& for i&=1 to 4: input#1,le(n&,i&): next i& input#1,dky(n&) next n& close #1 line(39,0)-(639,460),,b for i&=1 to 9: line(39+60*i&,0)-(39+60*i&,460),,,&h4444: next i& line(39,230)-(639,230),,,&h4444 for i&=1 to 1 for n&=1 to 100 xp=42+6*(n&-1) yp=230-230*le(n&,i&)/.01 if n&>1 then line-(xp,yp) line(xp,yp)-(xp+6,yp) next n& next i& line(0,461)-(639,479),0,bf locate 1,1: print" .01" locate 8,1: print" LLE" locate 15,1: print" 0" locate 29,1: print"-.01"; locate 30,6: print"0"; locate 30,43: print"N"; locate 30,78: print"100"; while inkey\$="": wend cls line(39,0)-(639,460),,b for i&=1 to 9: line(39+60*i&,0)-(39+60*i&,460),,,&h4444: next i& for i&=1 to 5: line(39,460*i&/6)-(639,460*i&/6),,,&h4444: next i& for n&=1 to 100 xp=42+6*(n&-1) yp=460-460*dky(n&)/12 if n&>1 then line-(xp,yp) line(xp,yp)-(xp+6,yp) next n& locate 1,1: print" 12" locate 15,1: print" Dky" locate 29,1: print" 0"; locate 30,6: print"0"; locate 30,43: print"N"; locate 30,78: print"100";