5 CLS 10 PRINT "PLOT BILATERAL CO-ORDINATES" 15 PRINT : PRINT 20 GOSUB 5000 25 PRINT "INPUT CO-ORDINATE X : " 31 PRINT "4"; 33 PRINT "2"; 35 PRINT "Y" : PRINT 40 PRINT "INPUT CO-ORDINATE Y : " 41 IF INKEY$ = "" THEN 41 : IF 42 PRINT "Z"; 43 IF INKEY$ = "" THEN 43 : IF 44 PRINT "+"; 45 IF INKEY$ = "" THEN 45 : IF 46 PRINT "X" 47 GOSUB 5000 50 CLS 60 PRINT "0010 N = RND(900)" 70 PRINT "0020 Z = 1 TO N" 80 PRINT "0030 X = 1 TO 31" 90 PRINT "0040 Y = 1 TO 15" 100 PRINT "0050 SET(31-X,16-Y,Z)TO(31+X,Y," 110 PRINT "0060 SET(31+X,Y,Z)TO(31-X,16-Y," 120 PRINT "0070 SET(X,16+Y,Z-Y)TO(X,Y,Z)" 130 PRINT "0080 SET(X,16-Y,Z+Y)TO(16+X,Y+)" 140 PRINT "0090 GOTO 500" 150 PRINT "0100 NEXT X:NEXT Y:NEXT Z 160 PRINT "0110 CLS" 170 PRINT "0120 DATA 1.13.2.67.2." 180 PRINT "0130 DATA 12.45.90.3.23.56.2.56" 190 PRINT "0140 DATA 3.6.1.43.92.56.2.9.08" 200 PRINT "0150 DIM P(9)" 210 PRINT "0160 B$ = CHR$(191)" 220 PRINT "0170 FOR X = Y - Z : PRINT X" 230 PRINT "0180 FOR Y = X - Z : PRINT Y" 240 PRINT "0190 END" 250 PRINT 260 PRINT 270 PRINT 280 PRINT 290 PRINT 300 PRINT 310 PRINT 320 PRINT 330 PRINT 340 PRINT 350 PRINT
