5748144 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n fn.bas
   1: INPUT "ROTATION"; ROT: ROT = 240 - ROT
   2: SCREEN 12
   3: SZ = 200
   4: HT = 200
   5: WZ = 0
   6: DO UNTIL INKEY$ = CHR$(13)
   7: QW = RND * 43 + 1
   8: QW = WZ * 5
   9: FOR AD = 0 TO 16
  10: LINE (320 - SZ + QW, ROT + HT + AD)-(320 + SZ - QW, 240 + HT + AD), 2
  11: NEXT AD
  12: IF WZ < 39 AND D = 0 THEN WZ = WZ + 1 ELSE D = 1
  13: IF WZ > 0 AND D = 1 THEN WZ = WZ - 1 ELSE D = 0
  14: LOCATE 30, 1: PRINT ""
  15: LOOP
  16:
5748145 [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:53