5748308 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n spc3.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: LOCATE 30, 1
   8: DO UNTIL INKEY$ = CHR$(13)
   9: QW = RND * 43 + 1
  10: QW = WZ * 5
  11: FOR AD = 0 TO wid
  12: LINE (320 - SZ + QW, ROT + HT + AD)-(320 + SZ - QW, 240 + HT + AD), 2
  13: NEXT AD
  14: IF WZ < 39 AND D = 0 THEN WZ = WZ + 1 ELSE D = 1
  15: IF WZ > 0 AND D = 1 THEN WZ = WZ - 1 ELSE D = 0
  16: PRINT " ";
  17: LOOP
  18:
5748309 [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:09:49