home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser22.arj / stoser22.msa / ACB_SRC.KIR / ACB_LOAD.BAS (.txt) next >
Atari STOS Basic  |  1995-02-04  |  38KB  |  175 lines
  1. 10 REM CHAOS STRUCTURED SOFTWARE
  2. 100 REM ACB's
  3. 1000 REM 
  4. 1010 SET ZONE
  5. 1020 REM 
  6. 1030 NEXT
  7. 1040 REM 
  8. 1050 NEXT
  9. 1060 SHOW
  10. 1070 REM 
  11. 1080 REM 
  12. 1090 REM 
  13. 110 REM (C) KATZCHEN FEBRUAR 25th 1995.
  14. 1100 REM 
  15. 1110 REM set up ZONEs for selection of files by mouse
  16. 1120 VARNAME
  17. 1130 FOR
  18. 1140 FOR
  19. 1150 IF
  20. 1160 SET ZONE
  21. 1170 NEXT
  22. 1180 NEXT
  23. 1190 VARNAME
  24. 120 REM FOR STOSSER
  25. 1200 REM highlight selections
  26. 1210 IF
  27. 1220 IF
  28. 1230 IF
  29. 1240 REM 
  30. 1250 REM 
  31. 1260 VARNAME
  32. 1270 FOR
  33. 1280 LOCATE
  34. 1290 LOCATE
  35. 130 REM 
  36. 1300 VARNAME
  37. 1310 IF
  38. 1320 NEXT
  39. 1330 GOTO
  40. 1340 REM save and exit...
  41. 1350 REM check for maximum of 12 acb's selected...
  42. 1360 REM 
  43. 1370 VARNAME
  44. 1380 VARNAME
  45. 1390 IF
  46. 140 REM NO EXTENSIONS NEEDED !
  47. 1400 IF
  48. 1410 IF
  49. 1420 REM 12 or less...
  50. 1430 REM now place the acb filenames into the editor.env file.
  51. 1440 REM in bank 5
  52. 1450 REM 
  53. 1460 REM 
  54. 1470 REM 
  55. 1480 REM 
  56. 1490 REM save new editor.env
  57. 150 REM 
  58. 1500 REM 
  59. 1510 REM set up dummy names for unused slots.
  60. 1520 CLS
  61. 1530 FOR
  62. 1540 IF
  63. 1550 VARNAME
  64. 1560 FOR
  65. 1570 POKE
  66. 1580 INC
  67. 1590 NEXT
  68. 160 REM CREATE BANK FOR EDITOR.ENV
  69. 1600 INC
  70. 1610 NEXT
  71. 1620 REM pad out editor.env
  72. 1630 REM with dummy filenames to equal 12
  73. 1640 REM 
  74. 1650 VARNAME
  75. 1660 IF
  76. 1670 FOR
  77. 1680 FOR
  78. 1690 POKE
  79. 170 ERASE
  80. 1700 POKE
  81. 1710 NEXT
  82. 1720 REM save file
  83. 1730 BSAVE
  84. 1740 CLS
  85. 180 MODE
  86. 190 REM 
  87. 20 REM THIS works...
  88. 200 REM 
  89. 210 REM SET UP THESE PATHS FOR YOUR SYSTEM IMPORTANT!!!!!!!!!!!
  90. 220 VARNAME
  91. 230 REM 
  92. 240 VARNAME
  93. 250 REM 
  94. 260 REM 
  95. 270 DRIVE
  96. 280 CENTRE
  97. 290 REM DEFAULT PATH TO EDITOR.ENV-CHANGE FOR YOUR SYSTEM! ************
  98. 30 REM NOT ELEGANT AT ALL.   OH DEAR!
  99. 300 REM LOAD EDITOR.ENV
  100. 310 BLOAD
  101. 320 REM 
  102. 330 REM 
  103. 340 REM 
  104. 350 REM 
  105. 360 REM LOCATE AND RECORD THE FILENAMES OF EACH ACB.
  106. 370 REM AND DISPLAY THEM.
  107. 380 DIR$
  108. 390 REM 
  109. 40 MODE
  110. 400 VARNAME
  111. 410 REM 
  112. 420 DIM
  113. 430 REM SWITCH TO MEDIUM RESOLUTION IF YOU HAVE MORE...
  114. 440 FOR
  115. 450 REM l$(x) stores names of ACB files
  116. 460 REM s(x) stores address in bank 5 of start of each ACB slot
  117. 470 REM maximum 40 because of screen limits
  118. 480 REM 
  119. 490 GET PALETTE
  120. 50 REM PROGRAM TO BE COMPILED AND INSERTED INTO AUTO FOLDER
  121. 500 REM 
  122. 510 LOCATE
  123. 520 VARNAME
  124. 530 REM 
  125. 540 VARNAME
  126. 550 REM 
  127. 560 IF
  128. 570 REM 
  129. 580 VARNAME
  130. 590 REM 
  131. 60 REM BEFORE STOS.PRG !!!!!!
  132. 600 REM strip ".ACB" to leave 8 character filename for screen use.
  133. 610 INC
  134. 620 REM 
  135. 630 VARNAME
  136. 640 REM 
  137. 650 IF
  138. 660 REM 
  139. 670 GOTO
  140. 680 REM 
  141. 690 REM 
  142. 70 REM 
  143. 700 REM 
  144. 710 REM 
  145. 720 REM 
  146. 730 REM 
  147. 740 VARNAME
  148. 750 REM 
  149. 760 REM 
  150. 770 PEN
  151. 780 VARNAME
  152. 790 REM PUT THE NAMES ON THE SCREEN
  153. 80 REM THIS PROGRAM WILL ALLOW SELECTION OF ACB PROGRAMS,
  154. 800 FOR
  155. 810 REM 
  156. 820 LOCATE
  157. 830 REM 
  158. 840 INC
  159. 850 REM 
  160. 860 IF
  161. 870 REM 
  162. 880 NEXT
  163. 890 REM 
  164. 90 REM AND MODIFIES STOS\EDITOR.ENV TO AUTOLOAD THE SELECTED
  165. 900 SCREEN COPY
  166. 910 REM 
  167. 920 GET PALETTE
  168. 930 REM 
  169. 940 VARNAME
  170. 950 FOR
  171. 960 REM 
  172. 970 FOR
  173. 980 REM 
  174. 990 IF
  175.