home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / MUCH / MSG01.MSA / PROGRAMS_BANKAPPN_BANKAPPN.ACB (.txt) < prev    next >
Encoding:
Atari STOS Basic  |  1993-07-23  |  66.0 KB  |  146 lines
  1. 1 GOSUB
  2. 100 REM LOAD NEXT FILE
  3. 1000 REM PLAY SAMPLE IN m$
  4. 1001 FILL
  5. 1002 VARNAME
  6. 1003 IF
  7. 1004 IF
  8. 1005 IF
  9. 1006 IF
  10. 1007 IF
  11. 1008 IF
  12. 1009 IF
  13. 101 UNKNOWN OP: 0x3A
  14. 1010 IF
  15. 1011 IF
  16. 1012 IF
  17. 1013 IF
  18. 1014 IF
  19. 1015 IF
  20. 1016 IF
  21. 1019 EXTENSION (Index #12) (Token 0x94)
  22. 102 VARNAME
  23. 1020 NEXT
  24. 1021 EXTENSION (Index #3) (Token 0x98)
  25. 103 GOSUB
  26. 109 LOCATE
  27. 110 IF
  28. 111 IF
  29. 112 OPEN IN
  30. 113 LOCATE
  31. 114 PRINT
  32. 115 VARNAME
  33. 116 GOSUB
  34. 150 GOSUB
  35. 151 PAPER
  36. 152 FOR
  37. 153 NEXT
  38. 2 DIM
  39. 200 REM SAVE BLOC
  40. 201 UNKNOWN OP: 0x3A
  41. 202 GOSUB
  42. 203 GOSUB
  43. 204 LOCATE
  44. 205 VARNAME
  45. 206 GOTO
  46. 250 GOSUB
  47. 251 INPUT
  48. 252 GOTO
  49. 3 ERASE
  50. 300 GOSUB
  51. 301 VARNAME
  52. 302 GOTO
  53. 4 VARNAME
  54. 400 REM ROUND 'APOS' TO NEXT 512
  55. 401 UNKNOWN OP: 0x3A
  56. 402 IF
  57. 403 INC
  58. 410 REM DELETE FILE
  59. 411 UNKNOWN OP: 0x3A
  60. 412 GOSUB
  61. 413 PAPER
  62. 414 FOR
  63. 415 NEXT
  64. 416 INPUT
  65. 417 IF
  66. 418 VARNAME
  67. 419 IF
  68. 420 IF
  69. 421 IF
  70. 430 NEXT
  71. 49998 BELL
  72. 49999 GOTO
  73. 5 VARNAME
  74. 50 GOSUB
  75. 500 REM CHANGE DRIVE
  76. 50000 MODE
  77. 50001 PALETTE
  78. 50002 PAPER
  79. 50009 RETURN
  80. 501 UNKNOWN OP: 0x3A
  81. 502 GOSUB
  82. 503 PRINT
  83. 504 VARNAME
  84. 505 INPUT
  85. 506 DRIVE
  86. 51 VARNAME
  87. 52 LOCATE
  88. 53 PRINT
  89. 54 PRINT
  90. 55 LOCATE
  91. 59 REPEAT
  92. 6 ERASE
  93. 60 IF
  94. 600 REM SAVE BLOC INFORMATION
  95. 60000 REM FORMAT OF INFO-BLOC
  96. 60001 UNKNOWN OP: 0x3A
  97. 60002 REM Name,Length,Offset...NEXT
  98. 601 UNKNOWN OP: 0x3A
  99. 602 GOSUB
  100. 603 GOSUB
  101. 604 LOCATE
  102. 605 LOCATE
  103. 606 OPEN OUT
  104. 607 GOTO
  105. 61 IF
  106. 62 IF
  107. 620 REM PACK CURRENT BANK
  108. 621 UNKNOWN OP: 0x3A
  109. 622 GOSUB
  110. 623 LOCATE
  111. 624 VARNAME
  112. 625 PRINT
  113. 626 PRINT
  114. 627 PRINT
  115. 628 CLEAR KEY
  116. 629 GOSUB
  117. 63 IF
  118. 630 GOSUB
  119. 631 LOCATE
  120. 632 LOCATE
  121. 633 BSAVE
  122. 64 IF
  123. 65 IF
  124. 66 IF
  125. 67 IF
  126. 68 IF
  127. 69 IF
  128. 7 DIM
  129. 700 IF
  130. 701 GOTO
  131. 79 GOTO
  132. 8 DATA
  133. 800 REM LOAD STOS BANK
  134. 801 ERASE
  135. 802 VARNAME
  136. 803 VARNAME
  137. 804 GOTO
  138. 9 DATA
  139. 900 REM LIST FILENAMES
  140. 901 UNKNOWN OP: 0x3A
  141. 903 VARNAME
  142. 904 LOCATE
  143. 905 IF
  144. 906 VARNAME
  145. 907 GOTO
  146.