home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 146 / 146.d81 / bass.dosmaster (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  209 lines
  1. 10 (NULL)sqr0:(NULL) $a000,$b000
  2. 15 'write"@0:d.dosmaster,p,w"
  3. 20 (NULL)rnd $c000
  4. 30 (NULL)usr 1,1
  5. 40 deffna(q)=peek(252)*256+peek(251)
  6. 41 a$="b.dos-master 95"
  7. 42 b$="r0:"+a$+"="+a$
  8. 50 (NULL)1
  9. 60 (NULL)custom = fna(q)+$0360
  10. 62 (NULL)ramlo = fna(q)+$0100
  11. 64 (NULL)ramhi = fna(q)+$0180
  12. 100 (NULL)framload
  13. 110 (NULL)sys #5
  14. 120 (NULL)clr #$55
  15. 130 (NULL)lp1
  16. 140 (NULL)/ $df00,y
  17. 150 (NULL)verify
  18. 160 (NULL)wait #1
  19. 170 (NULL)read (NULL)lp1
  20. 180 (NULL)sys #5
  21. 190 (NULL)lp2
  22. 200 (NULL)clr $df00,y
  23. 210 (NULL)stop #$55
  24. 220 (NULL)read (NULL)nogood
  25. 230 (NULL)verify
  26. 240 (NULL)wait #1
  27. 250 (NULL)read (NULL)lp2
  28. 260 (NULL)cont (NULL)ok1
  29. 270 (NULL)nogood
  30. 280 (NULL)list (NULL)message
  31. 290 (NULL)abs 13
  32. 300 (NULL)abs "?1750 reu not detected."
  33. 310 (NULL)abs 13,0
  34. 320 (NULL)not
  35. 330 (NULL)ok1
  36. 340 (NULL)clr $df00
  37. 350 and #16
  38. 360 (NULL)input# (NULL)nogood
  39. 362 (NULL)cont (NULL)reset
  40. 364 (NULL)install
  41. 370 (NULL)clr #<(NULL)ramlo
  42. 380 (NULL)/ 251
  43. 390 (NULL)clr #>(NULL)ramlo
  44. 400 (NULL)/ 252
  45. 410 (NULL)clr #$10
  46. 420 (NULL)/ 253
  47. 430 (NULL)clr #$01
  48. 440 (NULL)/ 254
  49. 450 (NULL)sys #0
  50. 460 (NULL)lp3
  51. 470 (NULL)clr (251),y
  52. 480 (NULL)/ (253),y
  53. 490 (NULL)print
  54. 500 (NULL)wait #128
  55. 510 (NULL)read (NULL)lp3
  56. 520 (NULL)sys #10
  57. 530 (NULL)lp4
  58. 540 (NULL)clr (NULL)dump4 ,y
  59. 550 (NULL)/ $df00,y
  60. 560 (NULL)verify
  61. 570 (NULL)read (NULL)lp4
  62. 580 (NULL)list 272
  63. 590 (NULL)clr #0
  64. 600 (NULL)list $a871
  65. 610 (NULL)cont $a7ae
  66. 640 (NULL)message
  67. 650 (NULL)tab(
  68. 660 (NULL)/ 251
  69. 670 (NULL)tab(
  70. 680 (NULL)/ 252
  71. 690 (NULL)lp5
  72. 700 (NULL)poke 251
  73. 710 (NULL)read fna(q)+4
  74. 720 (NULL)poke 252
  75. 730 (NULL)sys #0
  76. 740 (NULL)clr (251),y
  77. 750 (NULL)stop #0
  78. 760 (NULL)input# (NULL)done
  79. 770 (NULL)list $ffd2
  80. 780 (NULL)cont (NULL)lp5
  81. 790 (NULL)done
  82. 800 (NULL)clr 252
  83. 810 (NULL)get
  84. 820 (NULL)clr 251
  85. 830 (NULL)get
  86. 840 (NULL)not
  87. 1000 (NULL)dump4
  88. 1010 (NULL)abs 0,$90
  89. 1015 (NULL)fre (NULL)ramhi
  90. 1020 (NULL)abs 0,$f0,3,$e0,1,0,0
  91. 1022 (NULL)reset
  92. 1023 (NULL)*
  93. 1024 (NULL)list $ff8a
  94. 1025 (NULL)return
  95. 1026 (NULL)list (NULL)message
  96. 1028 (NULL)abs 13,13,"insert disk with "
  97. 1030 (NULL)abs 34,a$,34,13
  98. 1032 (NULL)abs "press return.",13,0
  99. 1033 (NULL)lpp
  100. 1034 (NULL)list $ffe4
  101. 1036 (NULL)input# fna(q)-3
  102. 1038 (NULL)stop #3
  103. 1040 (NULL)read fna(q)+3
  104. 1042 (NULL)not
  105. 1044 (NULL)stop #13
  106. 1046 (NULL)read (NULL)lpp
  107. 1048 (NULL)cont (NULL)routine
  108. 1800 (NULL)abs "robinson96"
  109. 1900 (NULL)pos (NULL)custom -fna(q)
  110. 2000 (NULL)routine
  111. 2005 (NULL)cmd #8
  112. 2010 (NULL)^ (NULL)dv
  113. 2015 (NULL)lp6
  114. 2016 (NULL)clr #2
  115. 2017 (NULL)list $ffc3
  116. 2020 (NULL)clr #0
  117. 2025 (NULL)list $ffbd
  118. 2030 (NULL)clr #2
  119. 2035 (NULL)>
  120. 2040 (NULL)cmd (NULL)dv
  121. 2045 (NULL)list $ffba
  122. 2050 (NULL)list $ffc0
  123. 2055 (NULL)clr #2
  124. 2060 (NULL)list $ffc3
  125. 2065 (NULL)clr $90
  126. 2070 (NULL)read (NULL)sk1
  127. 2072 (NULL)clr #15
  128. 2073 (NULL)list $ffc3
  129. 2075 (NULL)cmd #<(NULL)rename
  130. 2080 (NULL)sys #>(NULL)rename
  131. 2085 (NULL)clr #len(b$)
  132. 2090 (NULL)list $ffbd
  133. 2095 (NULL)clr #15
  134. 2100 (NULL)>
  135. 2105 (NULL)cmd (NULL)dv
  136. 2110 (NULL)list $ffba
  137. 2115 (NULL)list $ffc0
  138. 2120 (NULL)list $ffcc
  139. 2125 (NULL)cmd #15
  140. 2130 (NULL)list $ffc6
  141. 2135 (NULL)sys #0
  142. 2140 (NULL)lp7
  143. 2145 (NULL)list $ffe4
  144. 2150 (NULL)stop #13
  145. 2155 (NULL)input# (NULL)sk2
  146. 2160 (NULL)/ (NULL)error ,y
  147. 2165 (NULL)print
  148. 2170 (NULL)read (NULL)lp7
  149. 2175 (NULL)sk2
  150. 2180 (NULL)list $ffcc
  151. 2185 (NULL)clr #15
  152. 2190 (NULL)list $ffc3
  153. 2195 (NULL)clr (NULL)error
  154. 2200 (NULL)stop #"6"
  155. 2205 (NULL)read (NULL)sk1
  156. 2210 (NULL)clr (NULL)error +1
  157. 2215 (NULL)stop #"3"
  158. 2220 (NULL)input# (NULL)sk3
  159. 2225 (NULL)sk1
  160. 2230 (NULL)poke (NULL)dv
  161. 2235 (NULL)cmd (NULL)dv
  162. 2240 (NULL)on #14
  163. 2245 (NULL)read (NULL)lp6
  164. 2250 (NULL)list (NULL)message
  165. 2255 (NULL)abs 13,63,32,34
  166. 2258 (NULL)name
  167. 2260 (NULL)abs a$
  168. 2265 (NULL)abs 34," not found.",13,0
  169. 2270 (NULL)cont $a474
  170. 2275 (NULL)sk3
  171. 2280 (NULL)cmd #<(NULL)name
  172. 2285 (NULL)sys #>(NULL)name
  173. 2290 (NULL)clr #len(a$)
  174. 2295 (NULL)list $ffbd
  175. 2300 (NULL)clr #1
  176. 2305 (NULL)cmd (NULL)dv
  177. 2310 (NULL)sys #0
  178. 2315 (NULL)list $ffba
  179. 2320 (NULL)cmd #1
  180. 2325 (NULL)sys #8
  181. 2330 (NULL)clr #0
  182. 2335 (NULL)list $ffd5
  183. 2336 (NULL)^ 45
  184. 2337 (NULL)and 46
  185. 2340 (NULL)clr 2088
  186. 2345 (NULL)stop #208
  187. 2350 (NULL)read (NULL)sk4
  188. 2355 (NULL)clr #<(NULL)ret1
  189. 2360 (NULL)/ 2378
  190. 2365 (NULL)clr #>(NULL)ret1
  191. 2370 (NULL)/ 2379
  192. 2375 (NULL)clr #0
  193. 2380 (NULL)list $a871
  194. 2385 (NULL)cont $a7ae
  195. 2390 (NULL)ret1
  196. 2395 (NULL)clr #236
  197. 2400 (NULL)/ 45
  198. 2405 (NULL)clr #39
  199. 2410 (NULL)/ 46
  200. 2415 (NULL)sk4
  201. 2420 (NULL)cont (NULL)install
  202. 10000 (NULL)dv
  203. 10005 (NULL)abs 0
  204. 10010 (NULL)rename
  205. 10015 (NULL)abs b$
  206. 10020 (NULL)error
  207. 10025 (NULL)pos 40
  208. 55555 (NULL)2
  209.