home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / FUNNEL.bas < prev    next >
BASIC Source File  |  1988-05-22  |  172b  |  9 lines
  1. 5     SCNCLR
  2. 10    circle (15,15), 10, 1
  3. 20    x = x+3 
  4. 21    y = y+3
  5. 22    s = s+2
  6. 30    circle (x,y), s, 1
  7. 40    IF Y = 165 THEN SLEEP 5*10^6 :SCNCLR :END 
  8. 50    goto 20
  9.