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