5748104 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$ cat -n aaa.bas
   1: DECLARE SUB SLEEPA (T!)
   2: DECLARE SUB FRAME1 (A!, B!)
   3: SCREEN 12
   4: CLS
   5: FOR I = 320 TO 20 STEP -2
   6: FRAME1 I, 4
   7: SLEEPA .01
   8: FRAME1 I, 0
   9: NEXT
  10: 
  11: SUB FRAME1 (A, B)
  12: CIRCLE (A, 240), 65, B
  13: END SUB
  14: 
  15: SUB SLEEPA (T)
  16: A = TIMER + T
  17: 9 IF TIMER > A THEN GOTO 10 ELSE GOTO 9
  18: 10 END SUB
  19:
5748105 [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 20:59:22