home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 146 / 146.d81 / bass.fgmdemo6 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  213 lines
  1. 10 (NULL)sqr0:(NULL) $a000,$b000
  2. 15 'write"@0:d.fgmdemo6,p,w"
  3. 20 (NULL)rnd $3000
  4. 30 (NULL)usr 1,1
  5. 40 deffna(q)=peek(252)*256+peek(251)
  6. 41 a$="b.fgm v6 bootdem"
  7. 42 b$="r0:"+a$+"="+a$
  8. 50 (NULL)1
  9. 55 (NULL)ea = $2cc9
  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. 105 (NULL)list $ff8a
  15. 110 (NULL)sys #5
  16. 120 (NULL)clr #$55
  17. 130 (NULL)lp1
  18. 140 (NULL)/ $df00,y
  19. 150 (NULL)verify
  20. 160 (NULL)wait #1
  21. 170 (NULL)read (NULL)lp1
  22. 180 (NULL)sys #5
  23. 190 (NULL)lp2
  24. 200 (NULL)clr $df00,y
  25. 210 (NULL)stop #$55
  26. 220 (NULL)read (NULL)nogood
  27. 230 (NULL)verify
  28. 240 (NULL)wait #1
  29. 250 (NULL)read (NULL)lp2
  30. 260 (NULL)cont (NULL)ok1
  31. 270 (NULL)nogood
  32. 280 (NULL)list (NULL)message
  33. 290 (NULL)abs 13
  34. 300 (NULL)abs "?1750 reu not detected."
  35. 310 (NULL)abs 13,0
  36. 320 (NULL)not
  37. 330 (NULL)ok1
  38. 340 (NULL)clr $df00
  39. 350 and #16
  40. 360 (NULL)input# (NULL)nogood
  41. 362 (NULL)cont (NULL)reset
  42. 364 (NULL)install
  43. 370 (NULL)clr #<(NULL)ramlo
  44. 380 (NULL)/ 251
  45. 390 (NULL)clr #>(NULL)ramlo
  46. 400 (NULL)/ 252
  47. 410 (NULL)clr #$10
  48. 420 (NULL)/ 253
  49. 430 (NULL)clr #$01
  50. 440 (NULL)/ 254
  51. 450 (NULL)sys #0
  52. 460 (NULL)lp3
  53. 470 (NULL)clr (251),y
  54. 480 (NULL)/ (253),y
  55. 490 (NULL)print
  56. 500 (NULL)wait #128
  57. 510 (NULL)read (NULL)lp3
  58. 520 (NULL)sys #10
  59. 530 (NULL)lp4
  60. 540 (NULL)clr (NULL)dump4 ,y
  61. 550 (NULL)/ $df00,y
  62. 560 (NULL)verify
  63. 570 (NULL)read (NULL)lp4
  64. 580 (NULL)list 272
  65. 600 (NULL)list $411b
  66. 610 (NULL)cont $4052
  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. 2300 (NULL)clr #1
  177. 2305 (NULL)cmd (NULL)dv
  178. 2310 (NULL)sys #0
  179. 2315 (NULL)list $ffba
  180. 2320 (NULL)cmd #1
  181. 2325 (NULL)sys #8
  182. 2330 (NULL)clr #0
  183. 2335 (NULL)list $ffd5
  184. 2336 (NULL)^ 45
  185. 2337 (NULL)and 46
  186. 2339 (NULL)clr #$4c
  187. 2341 (NULL)/ $1869
  188. 2343 (NULL)clr #<(NULL)ret1
  189. 2345 (NULL)/ $186a
  190. 2347 (NULL)clr #>(NULL)ret1
  191. 2349 (NULL)/ $186b
  192. 2351 (NULL)clr #0
  193. 2353 (NULL)list $a871
  194. 2355 (NULL)cont $a7ae
  195. 2357 (NULL)ret1
  196. 2359 (NULL)clr #$60
  197. 2361 (NULL)/ $1d47
  198. 2363 (NULL)/ $1f78
  199. 2365 (NULL)/ $c212
  200. 2367 (NULL)clr #1
  201. 2369 (NULL)/ $1d48
  202. 2371 (NULL)/ $1f79
  203. 2373 (NULL)/ $c213
  204. 2415 (NULL)sk4
  205. 2420 (NULL)cont (NULL)install
  206. 10000 (NULL)dv
  207. 10005 (NULL)abs 0
  208. 10010 (NULL)rename
  209. 10015 (NULL)abs b$
  210. 10020 (NULL)error
  211. 10025 (NULL)pos 40
  212. 55555 (NULL)2
  213.