65101 DATAPLOT:READUI$:IFUI$=U$(1)THEN65201 65201 U#(2)=VAL(U$(2)):IFU#(1)=0THENU#(1)=1:SCREEN0,0:GOSUB65226 65202 IFU#(2)=0THENGOSUB65226 65203 IFVAL(U$(0))<2THEN65206 65204 FORUI%=VAL(U$(0))TO3STEP-1:IFU$(UI%)<>""THENU#(UI%)=VAL(U$(UI%)) 65205 NEXT 65206 IFU#(2)=0THEN65234 65207 UI#=U#(4)-U#(3):IFUI#=0THENERROR101:GOTO65234 65208 IFU#(10)=0THENCLS 65209 IFU$(7)=""THEN65211 65210 UK#=U#(7):UN#=U#(3):GOSUB65228:IFUP%<>1THENLINE(0,UI%)-(239,UI%),1 65211 UJ#=U#(5)-U#(6):UK%=0:IFUJ#=0THEN65214 65212 UK%=1:IFU$(8)=""THEN65214 65213 UK#=U#(8):UN#=U#(6):GOSUB65231:IFUP%<>1THENLINE(UJ%,0)-(UJ%,63),1 65214 UL%=0:UU%(UB%)=U% 65215 IFUK%=0ANDUL%>239THEN65234 65216 IFEOF(ABS(U#(2)))THEN65234 65217 INPUT#ABS(U#(2)),UK#:UN#=U#(3):GOSUB65228:IFUP%=1THENERROR103:GOTO65234 65218 IFUK%<>1THENUJ%=UL%:GOTO65221 65219 IFEOF(ABS(U#(2)))THENERROR02:GOTO65234 65220 INPUT#ABS(U#(2)),UK#:UN#=U#(6):GOSUB65231:IFUP%=1THENERROR104:GOTO65234 65221 IFU#(9)<>0THENPSET(UJ%,UI%):GOTO65224 65222 IFUL%=0THENLINE(UJ%,UI%)-(UJ%,UI%),1:GOTO65224 65223 LINE-(UJ%,UI%),1 65224 UL%=UL%+1:IFSGN(U#(2))=1THENUU%(UB%)=UU%(UB%)+1 65225 GOTO65215 65226 RESTORE65226:DATA-1,+1,0,0,0,0,0,0 65227 FORUI%=3TO10:READU#(UI%):NEXT:RETURN 65228 UP%=0:UL#=(UN#+UI#-UK#)/UI#:IFUL#>1ORUL#<0THENUP%=1:GOTO65230 65229 UI%=UL#*63+.5-1E-14 65230 RETURN 65231 UP%=0:UL#=(UN#+UJ#-UK#)/UJ#:IFUL#>1ORUL#<0THENUP%=1:GOTO65233 65232 UJ%=UL#*239+.5-1E-14 65233 RETURN 65234 GOTO65499 65514 DATA ,"bottom & top Y BOUNDS are EQUAL","read Y OK, End of File on X","Y Out of Bounds","X Out of Bounds",,,,,