image of READY prompt

Wang2200.org

Listing of file='24B' on disk='vmedia/glbr_22.wvd.zip'

# Sector 905, program filename = '24B'
0002 DIM Y(9),A$(11)
0003 READ N
0004 GOTO 120
0099 GOTO 320
0120 PRINT "LEFT X-ENDPOINT,RIGHT X-ENDPOINT,X-INCREMENT?"
0130 INPUT X1,X2,A
0140 PRINT "LOWER Y-ENDPOINT,UPPER Y-ENDPOINT,Y-INCREMENT?"
0150 INPUT Z1,Z2,B
0160 PRINT
0170 LET Z2=(Z2-Z1)/B
0180 IF Z2<=64THEN 210
0190 PRINT "Y-RANGE TOO LARGE! CHANGE ENDPOINTS OR INCREASE INCREMENT"
0200 GOTO 140
0210 PRINT
0220 PRINT "X-AXIS IS THE LINE: Y=";Z1
0230 PRINT "Y-AXIS IS THE LINE: X=";X1
0240 PRINT
0250 PRINT
0260 PRINT
0270 FOR I=1 TO 11
0280 READ A$(I)
0290 NEXT I
0300 FOR X=X1 TO X2 STEP A
0310 GOTO 15
0320 FOR I=1 TO N
0330 LET Y(I)=INT((Y(I)-Z1)/B+.5)
0340 NEXT I
0350 FOR I=0 TO Z2
0360 LET S=0
0370 FOR J=1 TO N
0380 IF Y(J)<>I THEN 410
0390 LET S=S+1
0400 LET T=J
0410 NEXT J
0420 IF S>0 THEN 450
0430 PRINT A$(SGN(I)+10);
0440 GOTO 490
0450 IF S>1 THEN 480
0460 PRINT A$(T);
0470 GOTO 490
0480 PRINT "*";
0490 NEXT I
0500 IF X>X1 THEN 520
0510 PRINT "Y";
0520 PRINT
0530 LET A$(11)=" "
0540 NEXT X
0550 PRINT "X"
0560 DATA "1","2","3","4","5","6","7","8","9","+","+"
0570 END