home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 146 / 146.d81 / bass.packmeist (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1996-01-01  |  2.7 KB  |  215 lines
  1. 10 (NULL)sqr0:(NULL) $a000,$b000
  2. 15 'write"@0:d.packmeist,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$="text packer"
  7. 42 b$="r0:"+a$+"="+a$
  8. 50 (NULL)1
  9. 55 (NULL)ea = $394e
  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. 2250 (NULL)list (NULL)message
  166. 2255 (NULL)abs 13,63,32,34
  167. 2258 (NULL)name
  168. 2260 (NULL)abs a$
  169. 2265 (NULL)abs 34," not found.",13,0
  170. 2270 (NULL)cont $a474
  171. 2275 (NULL)sk3
  172. 2280 (NULL)cmd #<(NULL)name
  173. 2285 (NULL)sys #>(NULL)name
  174. 2290 (NULL)clr #len(a$)
  175. 2295 (NULL)list $ffbd
  176. 2296 (NULL)list (NULL)loading
  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:(NULL)and 46
  186. 2337 (NULL)clr #0:(NULL)/ 51:(NULL)/ 55
  187. 2338 (NULL)clr #160:(NULL)/ 52:(NULL)/ 56
  188. 2340 (NULL)clr 2088
  189. 2345 (NULL)stop #208
  190. 2350 (NULL)read (NULL)sk4
  191. 2355 (NULL)clr #<(NULL)ret1
  192. 2360 (NULL)/ 2378
  193. 2365 (NULL)clr #>(NULL)ret1
  194. 2370 (NULL)/ 2379
  195. 2375 (NULL)clr #0
  196. 2380 (NULL)list $a871
  197. 2385 (NULL)cont $a7ae
  198. 2390 (NULL)ret1
  199. 2395 (NULL)clr #<(NULL)ea
  200. 2400 (NULL)/ 45
  201. 2405 (NULL)clr #>(NULL)ea
  202. 2410 (NULL)/ 46
  203. 2415 (NULL)sk4
  204. 2420 (NULL)cont (NULL)install
  205. 10000 (NULL)dv
  206. 10005 (NULL)abs 0
  207. 10010 (NULL)rename
  208. 10015 (NULL)abs b$
  209. 10019 (NULL)loading
  210. 10020 (NULL)list (NULL)message
  211. 10025 (NULL)abs 13,"loading ",34
  212. 10030 (NULL)abs a$,34,"...",13,0,96
  213. 10035 (NULL)error
  214. 55555 (NULL)2
  215.