home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STOSSER / STOSSE04.MSA / SOURCE.4U / STOPAS / STOSDEM.BAS (.txt) < prev    next >
Encoding:
Atari STOS Basic  |  1987-04-22  |  1.6 KB  |  57 lines
  1. 100 REM STOS REPLAY SAMPLE PLAYER
  2. 110 REM (C) 2 BIT SYSTEMS LTD 1989
  3. 120 REM SPEED  0 - 5KHZ
  4. 130 REM        1 - 7.5KHZ
  5. 140 REM        2 - 10 KHZ
  6. 150 REM        3 - 15 KHZ
  7. 160 REM        4 - 20 KHZ
  8. 170 REM 
  9. 180 REM RESERVE SPACE AND LOAD MACHINE CODE
  10. 190 RESERVE
  11. 200 CLS
  12. 210 PRINT
  13. 220 LOAD
  14. 230 REM 
  15. 240 REM RESERVE SPACE AND LOAD SAMPLE DATA
  16. 250 RESERVE
  17. 260 PRINT
  18. 270 BLOAD
  19. 280 REM 
  20. 290 REM SET UP PLAY PARAMETERS
  21. 300 VARNAME
  22. 310 VARNAME
  23. 320 VARNAME
  24. 330 VARNAME
  25. 340 VARNAME
  26. 350 VARNAME
  27. 360 VARNAME
  28. 370 VARNAME
  29. 380 VARNAME
  30. 390 REM 
  31. 400 CALL
  32. 410 REM 
  33. 420 PRINT
  34. 430 FOR
  35. 440 DREG
  36. 450 CALL
  37. 460 REM 
  38. 470 AREG
  39. 480 AREG
  40. 490 DREG
  41. 500 CALL
  42. 510 CALL
  43. 520 NEXT
  44. 530 REM 
  45. 540 PRINT
  46. 550 AREG
  47. 560 AREG
  48. 570 DREG
  49. 580 CALL
  50. 590 FOR
  51. 600 PRINT
  52. 610 CALL
  53. 620 NEXT
  54. 630 CALL
  55. 640 PRINT
  56. 650 PRINT
  57.