home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / hifun.bas < prev    next >
BASIC Source File  |  1988-05-22  |  230b  |  12 lines
  1. 1     scnclr
  2. 2     screen 1,4,0
  3. 3     pena 1 : paint (10,10)
  4. 5     s = 10
  5. 10    y1 = 180
  6. 15    peno 4
  7. 20    circle (310,y1), s, .35
  8. 30    y1 = y1-6
  9. 35    s = s + ((s*.1)^1.3)
  10. 40    if y1 = 12 then sleep 5*10^6 : end
  11. 50    goto 15
  12.