home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol7n11.zip / LN711.ZIP / ANIMAT.BAS next >
BASIC Source File  |  1988-05-02  |  230b  |  14 lines
  1. SCREEN 1, 0
  2. DIM A%(400)
  3.  
  4. LINE (12, 12)-(48, 48), 2, BF
  5. GET (12, 12)-(48, 48), A%
  6.  
  7. LINE (0, 80)-(250, 160), 1, BF
  8.  
  9. FOR X = 10 TO 200 STEP 4
  10.     PUT (X, 100), A%, PSET
  11.     T = TIMER
  12.     WHILE T + .01 > TIMER: WEND
  13. NEXT
  14.