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