5748294 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n planes.bas
   1: SCREEN 12
   2: FOR i% = 0 TO 1050
   3: LINE (i%, 0)-(500, i%), 9
   4: LINE (0, i%)-(i%, 100), 11
   5: FOR delay% = 1 TO 1000: NEXT delay%
   6: REM PRESET (i%, 100)
   7: NEXT i%
   8: CLS
   9: FOR i% = 0 TO 1050
  10: LINE (i%, 300)-(500, i%), 3
  11: LINE (0, i%)-(i%, 100), 6
  12: FOR delay% = 1 TO 1000: NEXT delay%
  13: REM PRESET (i%, 100)
  14: NEXT i%
  15:
5748295 [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:07:26