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