home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser22.arj / stoser22.msa / STOS_2.STE / DAC_STE.BAS (.txt) < prev    next >
Atari STOS Basic  |  1995-01-19  |  3KB  |  74 lines
  1. 10 VARNAME
  2. 100 PRINT
  3. 1000 REM       DAC ROUTINE
  4. 1005 REM ************************
  5. 1020 EXTENSION (Index #5) (Token 0x88)
  6. 1030 EXTENSION (Index #5) (Token 0x9a)
  7. 1040 EXTENSION (Index #5) (Token 0x9e)
  8. 1050 EXTENSION (Index #5) (Token 0x8c)
  9. 1060 EXTENSION (Index #5) (Token 0x8e)
  10. 1070 EXTENSION (Index #5) (Token 0x90)
  11. 1080 EXTENSION (Index #5) (Token 0x92)
  12. 1090 EXTENSION (Index #5) (Token 0x94)
  13. 1100 EXTENSION (Index #5) (Token 0x96)
  14. 1110 CLEAR KEY
  15. 1115 CLEAR KEY
  16. 1117 WHILE
  17. 1200 IF
  18. 1210 IF
  19. 1220 IF
  20. 1230 IF
  21. 1235 EXTENSION (Index #5) (Token 0x88)
  22. 1240 IF
  23. 1250 IF
  24. 1260 IF
  25. 1270 IF
  26. 1280 IF
  27. 1290 IF
  28. 1300 IF
  29. 1305 IF
  30. 1310 IF
  31. 1499 GOTO
  32. 15 IF
  33. 150 VARNAME
  34. 1500 EXTENSION (Index #5) (Token 0x8a)
  35. 1510 GOTO
  36. 16 REM *******************************************************************
  37. 17 REM ** Open a Channel to the file,get the file lenght using LOF **
  38. 170 RESERVE
  39. 18 REM ** It is very usefull to know how to do it, so learn it !"       **
  40. 180 BLOAD
  41. 19 REM *******************************************************************
  42. 190 VARNAME
  43. 20 OPEN IN
  44. 200 VARNAME
  45. 225 REM 
  46. 25 REM ************************************************
  47. 250 EXTENSION (Index #5) (Token 0x86)
  48. 260 REM 
  49. 270 REM 
  50. 280 REM *********      DRAW REST OF USER INTERFACE   ************
  51. 3 MODE
  52. 30 REM **     PRNT THE SAMPLE INFORMATION  ************
  53. 300 LOCATE
  54. 35 REM ************************************************
  55. 5 KEY
  56. 500 PRINT
  57. 510 PRINT
  58. 520 PRINT
  59. 530 PRINT
  60. 540 PRINT
  61. 550 PRINT
  62. 560 PRINT
  63. 570 PRINT
  64. 580 PRINT
  65. 590 PRINT
  66. 6 REM *** WE INITIATE THE VALUES USED FOR VOLUME,BASS,TREBLE AND SPEED ***
  67. 600 PRINT
  68. 7 VARNAME
  69. 700 REM *************************
  70. 8 CLS
  71. 80 PRINT
  72. 9 REM ***    GET THE FILE SELECTOR  ***
  73. 90 PRINT
  74.