image of READY prompt

Wang2200.org

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