home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CASIOCOL.ZIP / KRILE1D.ZIP / SOURCE.ZIP / TEST.ASI < prev    next >
Encoding:
Text File  |  1997-11-11  |  196 b   |  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.