home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOSSER / STOSSE04.MSA / SOURCE.4U / STOS / STOSPLA2.BAS (.txt) < prev    next >
Encoding:
Atari STOS Basic  |  1987-04-22  |  960 b   |  30 lines
  1. 10 REM STOS REPLAY SAMPLE PLAYER
  2. 100 REM RESERVE SPACE AND LOAD SAMPLE DATA
  3. 110 RESERVE
  4. 120 PRINT
  5. 130 BLOAD
  6. 140 REM 
  7. 150 REM SET UP PLAY PARAMETERS
  8. 160 VARNAME
  9. 170 VARNAME
  10. 180 REM 
  11. 190 REM PUT VARIABLES INTO REGISTERS BEFORE CALLING CODE
  12. 20 REM (C) 2 BIT SYSTEMS LTD 1989
  13. 200 PRINT
  14. 205 REM PLAY SAMPLE AT DIFFERENT SPEEDS
  15. 210 FOR
  16. 220 DREG
  17. 230 DREG
  18. 240 DREG
  19. 250 CALL
  20. 255 WAIT
  21. 260 NEXT
  22. 270 PRINT
  23. 30 REM 
  24. 40 REM RESERVE SPACE AND LOAD MACHINE CODE
  25. 50 RESERVE
  26. 60 CLS
  27. 70 PRINT
  28. 80 LOAD
  29. 90 REM 
  30.