home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CASIOCOL.ZIP / KRILE1D.ZIP / SOURCE.ZIP / TEST.ASI < prev    next >
Text File  |  1997-11-11  |  196b  |  22 lines

  1. gosub up:
  2. gosub down:
  3. gosub up:
  4. gosub down:
  5. gosub up:
  6. gosub down:
  7. end
  8.  
  9. up:
  10. for x=1 to 2000
  11. sound x,1
  12. next x
  13. return
  14.  
  15. down:
  16. for x=1 to 2000
  17. y=2000
  18. y=y-x
  19. sound y,1
  20. next x
  21. return
  22.