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