5748377 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n marbscr.bas
   1: '
   2: '
   3: '
   4: '                        GOOD THINGS COME TO THOSE WHO WAIT!!
   5: '
   6: '
   7: '
   8: SCREEN 12
   9: FOR I% = 0 TO 640
  10: FOR j% = 0 TO 480
  11: PSET (I%, j%), INT(RND * 2)
  12: NEXT j%: NEXT I%
  13: FOR I% = 0 TO 640
  14: FOR j% = 0 TO 480
  15: PSET (I%, j%), INT(RND * 3)
  16: NEXT j%: NEXT I%
  17: FOR I% = 0 TO 640
  18: FOR j% = 0 TO 480
  19: PSET (I%, j%), 4
  20: NEXT j%: NEXT I%
  21: FOR I% = 0 TO 640
  22: FOR j% = 0 TO 480
  23: PSET (I%, j%), 5
  24: NEXT j%: NEXT I%
  25: FOR I% = 0 TO 640
  26: FOR j% = 0 TO 480
  27: PSET (I%, j%), INT(RND * 4)
  28: NEXT j%: NEXT I%
  29: FOR I% = 0 TO 640
  30: FOR j% = 0 TO 480
  31: PSET (I%, j%), INT(RND * 9)
  32: NEXT j%: NEXT I%
  33: FOR I% = 0 TO 640
  34: FOR j% = 0 TO 480
  35: PSET (I%, j%), INT(RND * 6)
  36: NEXT j%: NEXT I%
  37: 
  38: 
  39: 
  40: 
  41:
5748378 [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:04:45