home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / fu.bas < prev    next >
BASIC Source File  |  1988-05-22  |  217b  |  11 lines
  1. 620   scnclr
  2. 625   pena 1 : paint (10,10)
  3. 630   s = 10
  4. 635   y1 = 180
  5. 640   peno 4
  6. 645   circle (160,y1), s, .10
  7. 650   y1 = y1-6
  8. 655   s = s + ((s*.1)^1.3)
  9. 660   if y1 = 12 then sleep 5*10^6 : goto 670
  10. 665   goto 640
  11.