5748198 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n draw13.bas
   1: SCREEN 13: CLS
   2: horz = POINT(1): vert = POINT(0)
   3: PSET (vert, horz), 2
   4: C = 1
   5: 1 A$ = INKEY$
   6: IF A$ = "" THEN GOTO 1
   7: RANDOMIZE TIMER
   8: IF A$ = CHR$(0) + "M" THEN vert = vert + 3
   9: IF A$ = CHR$(0) + "K" THEN vert = vert - 3
  10: IF A$ = CHR$(0) + "P" THEN horz = horz + 3
  11: IF A$ = CHR$(0) + "H" THEN horz = horz - 3
  12: IF A$ = "" THEN END
  13: IF C < 240 THEN C = C + 1 ELSE C = 2
  14: PSET (vert - 1, horz - 1), C
  15: PSET (vert - 1, horz + 1), C
  16: PSET (vert + 1, horz + 1), C
  17: PSET (vert + 1, horz - 1), C
  18: PSET (vert, horz + 1), C
  19: PSET (vert, horz - 1), C
  20: PSET (vert + 1, horz), C
  21: PSET (vert - 1, horz), C
  22: PSET (vert, horz), C
  23: GOTO 1
  24:
5748199 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 21:02:05