home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / f.bas < prev    next >
BASIC Source File  |  1988-05-22  |  173b  |  9 lines
  1. 100   SCNCLR
  2. 105   circle (15,15), 10, 1
  3. 110   x = x+3 
  4. 115   y = y+3
  5. 120   s = s+2
  6. 125   circle (x,y), s, 1
  7. 130   IF Y = 165 THEN SLEEP 5*10^6 :SCNCLR :END 
  8. 135   goto 110
  9.