Listing of file='26B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 213, program filename = '26B' 0010 DIM X(100),Y(101) 0020 PRINT "LOWER X-ENDPOINT,UPPER X-ENDPOINT,X-INCREMENT" : INPUT A1,A2,A 0030 PRINT "LOWER Y-ENDPOINT,UPPER Y-ENDPOINT,Y-INCREMENT" : INPUT B1,B2,B 0040 B2=INT((B2-B1)/B+.5) : IF B2<=70 THEN 70 0050 PRINT "RANGE OF Y TOO LARGE, CHANGE ENDPOINTS OR INCREASE INCREMENT" 0060 GOTO 30 0070 PRINT : PRINT "NO. OF POINTS TO BE PLOTTED?" : INPUT N : PRINT 0080 IF N<=100 THEN 90 : PRINT "NO. OF PTS. MUST BE<=100!" : GOTO 70 0090 PRINT "ENTER POINTS" 0100 FOR I=1 TO N : INPUT X(I),Y(I) 0110 X(I)=INT((X(I)-A1)/A+.5) : Y(I)=INT((Y(I)-B1)/B+.5) 0120 NEXT I : Y(N+1)=75 : PRINT 0130 FOR I=1 TO N : FOR J=1 TO N-I 0140 R=X(J) : S=Y(J) : T=X(J+1) : U=Y(J+1) 0150 IF R<=T THEN 170 0160 X(J)=T : Y(J)=U : X(J+1)=R : Y(J+1)=S 0170 NEXT J : NEXT I : R=1 0180 FOR S=0 TO N-1 : IF X(S+1)>=0 THEN 190 : NEXT S 0190 FOR I=0 TO INT((A2-A1)/A+.5) : R=R+S : S=0 0200 IF R>N THEN 210 : IF X(R)=I THEN 230 0210 IF I=0 THEN 220 : PRINT "+" : GOTO 460 0220 U=N+1 : GOTO 390 0230 FOR J=R TO N : IF X(J)>X(R) THEN 240 : S=S+1 : NEXT J 0240 FOR J=1 TO S : FOR K=1 TO S-J 0250 T=Y(R+K-1) : U=Y(R+K) 0260 IF T<=U THEN 280 0270 Y(R+K-1)=U : Y(R+K)=T 0280 NEXT K : NEXT J 0290 FOR L=0 TO S-1 : K=Y(R+L) : IF K>=0 THEN 310 : NEXT L 0300 L=L+1 0310 IF I=0 THEN 380 : IF K=0 THEN 320 : PRINT "+"; 0320 FOR J=L TO S-1 0330 IF K>B2 THEN 450 : IF Y(R+J)=K THEN 350 0340 PRINT TAB(K);"*"; : K=Y(R+J) 0350 NEXT J 0360 IF K<0 THEN 450 : IF K>B2 THEN 450 0370 PRINT TAB(K);"*"; : GOTO 450 0380 U=R+L 0390 FOR J=0 TO B2 : IF Y(U)<>J THEN 430 : PRINT "*"; 0400 FOR K=U TO R+S-1 0410 IF Y(K)=Y(U) THEN 420 : U=K : GOTO 440 0420 NEXT K : GOTO 440 0430 PRINT "+"; 0440 NEXT J : PRINT "Y"; 0450 PRINT 0460 NEXT I : PRINT "X" 0470 END 1000 END