home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 146 / 146.d81 / bass.ram32768v2. (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  226 lines
  1. 10 (NULL)sqr0:(NULL) $a000,$b000
  2. 15 'write"@0:ram32768v2.2,p,w"
  3. 20 (NULL)rnd 32768
  4. 30 (NULL)usr 1,1
  5. 40 deffna(q)=peek(252)*256+peek(251)
  6. 50 (NULL)1
  7. 60 (NULL)framhi
  8. 61 (NULL)clr #0:(NULL)/ 54296
  9. 62 (NULL)clr 1
  10. 63 (NULL)/ (NULL)one
  11. 64 (NULL)clr #55
  12. 65 (NULL)/ 1
  13. 66 (NULL)clr 655:(NULL)/ (NULL)keyboard
  14. 67 (NULL)clr 656:(NULL)/ (NULL)keyboard +1
  15. 68 (NULL)clr #72:(NULL)/ 655
  16. 69 (NULL)clr #235:(NULL)/ 656
  17. 70 (NULL)clr 53280
  18. 72 (NULL)/ (NULL)backg
  19. 74 (NULL)lp2
  20. 75 (NULL)poke 53280
  21. 76 (NULL)list $ff9f
  22. 78 (NULL)clr 197
  23. 80 (NULL)stop #64
  24. 82 (NULL)input# (NULL)lp2
  25. 120 (NULL)stop #3
  26. 130 (NULL)next (NULL)sk5
  27. 140 (NULL)stop #7
  28. 142 (NULL)data (NULL)sk5
  29. 144 (NULL)restore
  30. 146 (NULL)end #1
  31. 148 (NULL)read (NULL)sk3
  32. 151 (NULL)sk5
  33. 152 (NULL)cont (NULL)exit1
  34. 153 (NULL)sk3
  35. 154 (NULL)/ (NULL)dump3 +6
  36. 155 (NULL)/ (NULL)dump4 +6
  37. 160 (NULL)restore
  38. 170 (NULL)end #6
  39. 175 (NULL)for:(NULL)for:(NULL)for:(NULL)for
  40. 180 (NULL)/ (NULL)bank
  41. 182 ora #$08
  42. 184 (NULL)/ (NULL)bank2
  43. 190 (NULL)clr 653
  44. 191 (NULL)or
  45. 192 and #254
  46. 194 (NULL)read (NULL)sk5
  47. 200 (NULL)sys #0
  48. 210 (NULL)<
  49. 230 (NULL)read (NULL)save
  50. 240 (NULL)print
  51. 250 (NULL)save
  52. 260 (NULL)int
  53. 270 (NULL)/ (NULL)mode
  54. 280 ora #$80
  55. 290 (NULL)/ (NULL)dump3 +1
  56. 300 (NULL)clr (NULL)mode
  57. 310 (NULL)input# (NULL)sk1
  58. 312 (NULL)list (NULL)reu4
  59. 314 (NULL)clr $8380
  60. 316 (NULL)stop #120
  61. 318 (NULL)read (NULL)sk5
  62. 322 (NULL)sk4
  63. 326 (NULL)clr #$91
  64. 330 (NULL)cmd (NULL)bank
  65. 340 (NULL)list (NULL)reu2
  66. 350 (NULL)clr #$90
  67. 360 (NULL)cmd #$e0
  68. 361 (NULL)list (NULL)reu2
  69. 362 (NULL)clr #$91
  70. 363 (NULL)cmd (NULL)bank2
  71. 364 (NULL)list (NULL)reu2
  72. 365 (NULL)clr #$90
  73. 366 (NULL)cmd #$e8
  74. 367 (NULL)list (NULL)reu2
  75. 380 (NULL)sk1
  76. 430 (NULL)clr #$d0
  77. 440 (NULL)cmd #$83
  78. 450 (NULL)list (NULL)save1
  79. 452 (NULL)clr #11
  80. 454 (NULL)/ 53265
  81. 460 (NULL)clr #$d8
  82. 470 (NULL)cmd #$84
  83. 480 (NULL)list (NULL)save2
  84. 482 (NULL)clr 56576
  85. 484 (NULL)/ (NULL)bselect
  86. 486 (NULL)clr 56334
  87. 488 (NULL)/ (NULL)timer
  88. 490 (NULL)=
  89. 500 (NULL)^ (NULL)stack
  90. 510 (NULL)sys #10
  91. 520 (NULL)lp1
  92. 530 (NULL)clr (NULL)dump3 ,y
  93. 540 (NULL)/ $df00,y
  94. 550 (NULL)verify
  95. 560 (NULL)read (NULL)lp1
  96. 570 (NULL)clr #52
  97. 580 (NULL)/ 1
  98. 590 (NULL)cmd (NULL)mode
  99. 600 (NULL)clr $ff00
  100. 610 (NULL)/ $ff00
  101. 615 (NULL)change
  102. 620 (NULL)clr #55
  103. 630 (NULL)/ 1
  104. 640 (NULL)^ (NULL)mode
  105. 641 (NULL)cmd (NULL)stack
  106. 642 (NULL)sgn
  107. 645 (NULL)lp6
  108. 646 (NULL)list $ff9f
  109. 647 (NULL)clr 197
  110. 648 (NULL)stop #64
  111. 649 (NULL)read (NULL)lp6
  112. 655 (NULL)clr (NULL)bselect
  113. 658 (NULL)/ 56576
  114. 660 (NULL)clr #$7f
  115. 661 (NULL)/ 56333
  116. 662 (NULL)clr $831a
  117. 664 and #1
  118. 665 (NULL)def #$81
  119. 666 (NULL)/ 56333
  120. 667 (NULL)clr (NULL)timer
  121. 668 (NULL)/ 56334
  122. 670 (NULL)clr #$84
  123. 680 (NULL)cmd #$d8
  124. 690 (NULL)list (NULL)save2
  125. 700 (NULL)clr #$83
  126. 710 (NULL)cmd #$d0
  127. 720 (NULL)list (NULL)save1
  128. 750 (NULL)clr (NULL)mode
  129. 760 (NULL)read (NULL)sk2
  130. 770 (NULL)clr #$91
  131. 780 (NULL)cmd #$e0
  132. 790 (NULL)list (NULL)reu2
  133. 800 (NULL)clr #$90
  134. 810 (NULL)cmd (NULL)bank
  135. 820 (NULL)list (NULL)reu2
  136. 822 (NULL)clr #$91
  137. 823 (NULL)cmd #$e8
  138. 824 (NULL)list (NULL)reu2
  139. 825 (NULL)clr #$90
  140. 826 (NULL)cmd (NULL)bank2
  141. 827 (NULL)list (NULL)reu2
  142. 830 (NULL)sk2
  143. 832 (NULL)exit1
  144. 834 (NULL)clr (NULL)backg
  145. 836 (NULL)/ 53280
  146. 840 (NULL)clr (NULL)one
  147. 850 (NULL)/ 1
  148. 852 (NULL)clr (NULL)keyboard :(NULL)/ 655
  149. 854 (NULL)clr (NULL)keyboard +1:(NULL)/ 656
  150. 870 (NULL)clr #0:(NULL)/ 198
  151. 900 (NULL)not
  152. 910 (NULL)reu4
  153. 912 (NULL)sys #10
  154. 914 (NULL)lp4
  155. 916 (NULL)clr (NULL)dump4 ,y
  156. 918 (NULL)/ $df00,y
  157. 920 (NULL)verify
  158. 922 (NULL)read (NULL)lp4
  159. 924 (NULL)not
  160. 1000 (NULL)reu2
  161. 1010 (NULL)/ (NULL)dump2 +1
  162. 1020 (NULL)^ (NULL)dump2 +5
  163. 1030 (NULL)sys #10
  164. 1040 (NULL)lp3
  165. 1050 (NULL)clr (NULL)dump2 ,y
  166. 1060 (NULL)/ $df00,y
  167. 1070 (NULL)verify
  168. 1080 (NULL)read (NULL)lp3
  169. 1090 (NULL)not
  170. 2000 (NULL)save1
  171. 2010 (NULL)/ (NULL)in1 +2
  172. 2020 (NULL)^ (NULL)out1 +2
  173. 2030 (NULL)sys #0
  174. 2040 (NULL)in1
  175. 2050 (NULL)clr $9000,y
  176. 2060 (NULL)out1
  177. 2070 (NULL)/ $9000,y
  178. 2080 (NULL)print
  179. 2090 (NULL)wait #$2f
  180. 2100 (NULL)read (NULL)in1
  181. 2110 (NULL)not
  182. 3000 (NULL)save2
  183. 3010 (NULL)/ (NULL)in2 +2
  184. 3020 (NULL)^ (NULL)out2 +2
  185. 3030 (NULL)cmd #4
  186. 3040 (NULL)sys #0
  187. 3050 (NULL)in2
  188. 3060 (NULL)clr $9000,y
  189. 3070 (NULL)out2
  190. 3080 (NULL)/ $9000,y
  191. 3090 (NULL)print
  192. 3100 (NULL)read (NULL)in2
  193. 3110 (NULL)poke (NULL)in2 +2
  194. 3120 (NULL)poke (NULL)out2 +2
  195. 3130 (NULL)save
  196. 3140 (NULL)read (NULL)in2
  197. 3150 (NULL)not
  198. 10000 (NULL)dump2
  199. 10010 (NULL)abs 0,$90,0,$88,0,$a0,3,0,8,0,0
  200. 10020 (NULL)dump3
  201. 10030 (NULL)abs 0,$80,0,0,0,0,7,0,0,0,0
  202. 10032 (NULL)dump4
  203. 10034 (NULL)abs 0,$91,$80,$83,$10,1
  204. 10036 (NULL)abs 4,1,0,0,0
  205. 10040 (NULL)bank
  206. 10050 (NULL)abs 0
  207. 10060 (NULL)bank2
  208. 10070 (NULL)abs 0
  209. 10080 (NULL)mode
  210. 10090 (NULL)abs 0
  211. 10100 (NULL)mode2
  212. 10110 (NULL)abs 0
  213. 10120 (NULL)one
  214. 10130 (NULL)abs 0
  215. 10140 (NULL)bselect
  216. 10150 (NULL)abs 0
  217. 10160 (NULL)stack
  218. 10170 (NULL)abs 0
  219. 10180 (NULL)backg
  220. 10182 (NULL)abs 0
  221. 10184 (NULL)timer
  222. 10186 (NULL)abs 0
  223. 10190 (NULL)keyboard
  224. 10195 (NULL)fre 60232
  225. 55555 (NULL)2
  226.