home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 26 / 026.d81 / equestrian (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  13KB  |  405 lines
  1. 1000 gosub60000:print"[147]"chr$(142)
  2. 1006 a$="****************":gosub1140
  3. 1010 a$="[145]*  equestrian  *"
  4. 1020 gosub 1140
  5. 1022 a$="[145]****************"
  6. 1024 gosub 1140
  7. 1030 a$="poking machine language program"
  8. 1040 gosub 1140
  9. 1050 a$="[158]please wait about 60 seconds"
  10. 1060 gosub 1140
  11. 1062 a$="[150]press r/s restore to quit"
  12. 1064 gosub 1140
  13. 1070 fort=0to2883
  14. 1080 readx
  15. 1085 ifx<0orx>255thenprint"error in line"int(t/8)*10+1180:end
  16. 1090 poke49152+t,x
  17. 1100 s=s+x
  18. 1110 next
  19. 1120 ifs=307896thengosub50000:sys49152
  20. 1130 print"?check sum error":end
  21. 1140 l=len(a$)
  22. 1150 t=20-int(l/2)
  23. 1160 printtab(t)"";a$
  24. 1170 return
  25. 1180 data 169,130,133,251,169,200,133,252
  26. 1190 data 169,0,133,253,169,48,133,254
  27. 1200 data 162,3,160,0,177,251,145,253
  28. 1210 data 200,208,249,230,252,230,254,202
  29. 1220 data 208,240,169,11,141,32,208,169
  30. 1230 data 7,141,216,199,169,0,141,33
  31. 1240 data 208,141,29,208,169,200,141,249
  32. 1250 data 7,141,253,7,141,250,7,141
  33. 1260 data 254,7,169,13,141,251,7,162
  34. 1270 data 8,189,231,198,157,37,208,202
  35. 1280 data 16,247,169,65,160,199,32,30
  36. 1290 data 171,169,0,162,63,157,64,3
  37. 1300 data 202,16,250,162,23,157,0,212
  38. 1310 data 202,16,250,162,3,157,212,199
  39. 1320 data 202,16,250,141,210,199,141,218
  40. 1330 data 199,169,4,141,8,212,169,180
  41. 1340 data 141,7,212,169,255,141,96,3
  42. 1350 data 169,2,141,93,3,141,99,3
  43. 1360 data 169,4,141,102,3,141,90,3
  44. 1370 data 169,15,141,24,212,169,17,141
  45. 1380 data 5,212,141,12,212,169,160,141
  46. 1390 data 19,212,169,128,141,6,212,141
  47. 1400 data 13,212,169,243,141,20,212,169
  48. 1410 data 31,141,21,208,169,119,141,28
  49. 1420 data 208,169,5,141,211,199,169,160
  50. 1430 data 141,219,199,169,5,133,252,169
  51. 1440 data 104,133,251,32,233,192,169,12
  52. 1450 data 141,219,199,169,217,133,252,169
  53. 1460 data 104,133,251,32,233,192,76,6
  54. 1470 data 193,162,15,160,39,173,219,199
  55. 1480 data 145,251,136,16,251,165,251,24
  56. 1490 data 105,40,133,251,165,252,105,0
  57. 1500 data 133,252,202,16,230,96,169,101
  58. 1510 data 141,0,208,141,3,208,141,11
  59. 1520 data 208,141,5,208,141,13,208,169
  60. 1530 data 102,141,1,208,169,0,141,6
  61. 1540 data 208,141,7,208,169,64,141,16
  62. 1550 data 208,169,160,141,10,208,169,85
  63. 1560 data 141,12,208,169,255,141,9,208
  64. 1570 data 141,8,208,141,2,208,169,0
  65. 1580 data 162,14,157,221,199,202,16,250
  66. 1590 data 141,11,212,141,18,212,141,4
  67. 1600 data 212,169,54,141,4,208,169,192
  68. 1610 data 141,248,7,173,30,208,32,149
  69. 1620 data 198,173,30,208,162,39,160,16
  70. 1630 data 136,208,253,173,0,220,41,16
  71. 1640 data 240,249,202,208,241,173,74,200
  72. 1650 data 141,1,212,173,93,200,141,0
  73. 1660 data 212,32,159,255,32,228,255,201
  74. 1670 data 49,144,9,201,58,176,5,233
  75. 1680 data 46,141,216,199,173,0,220,41
  76. 1690 data 16,208,3,32,254,193,173,0
  77. 1700 data 220,41,15,73,15,208,6,32
  78. 1710 data 185,193,76,148,193,201,1,208
  79. 1720 data 246,169,1,141,224,199,76,167
  80. 1730 data 193,238,229,199,173,229,199,201
  81. 1740 data 4,208,31,169,0,141,229,199
  82. 1750 data 169,33,141,4,212,238,235,199
  83. 1760 data 173,235,199,201,7,208,5,169
  84. 1770 data 0,141,235,199,24,105,192,141
  85. 1780 data 248,7,32,78,194,173,229,199
  86. 1790 data 201,2,240,5,169,0,141,4
  87. 1800 data 212,96,162,255,172,216,199,136
  88. 1810 data 208,253,202,208,247,96,169,199
  89. 1820 data 141,248,7,162,0,142,222,199
  90. 1830 data 32,164,196,206,1,208,32,78
  91. 1840 data 194,32,78,194,32,78,194,174
  92. 1850 data 222,199,232,224,11,208,230,169
  93. 1860 data 0,141,4,212,32,78,194,32
  94. 1870 data 78,194,162,11,142,222,199,238
  95. 1880 data 1,208,32,78,194,32,78,194
  96. 1890 data 32,78,194,174,222,199,202,208
  97. 1900 data 235,173,74,200,141,1,212,173
  98. 1910 data 93,200,141,0,212,96,162,1
  99. 1920 data 32,252,194,144,3,32,53,197
  100. 1930 data 162,2,32,252,194,144,3,32
  101. 1940 data 53,197,162,5,32,252,194,144
  102. 1950 data 3,32,53,197,162,6,32,252
  103. 1960 data 194,144,3,32,53,197,173,210
  104. 1970 data 199,201,2,144,16,173,223,199
  105. 1980 data 240,3,32,255,196,173,223,199
  106. 1990 data 208,3,32,74,195,173,0,220
  107. 2000 data 41,15,73,15,201,1,208,5
  108. 2010 data 169,1,141,224,199,32,169,194
  109. 2020 data 32,203,195,32,150,197,76,242
  110. 2030 data 193,173,224,199,240,77,173,228
  111. 2040 data 199,208,26,169,100,141,6,208
  112. 2050 data 173,1,208,141,7,208,169,11
  113. 2060 data 141,231,199,169,0,141,236,199
  114. 2070 data 169,1,141,228,199,238,6,208
  115. 2080 data 238,236,199,32,204,196,174,236
  116. 2090 data 199,173,7,208,24,125,237,199
  117. 2100 data 141,7,208,173,7,208,201,112
  118. 2110 data 144,17,169,0,141,18,212,141
  119. 2120 data 224,199,141,228,199,141,6,208
  120. 2130 data 141,7,208,96,173,16,208,61
  121. 2140 data 194,199,208,36,189,202,199,168
  122. 2150 data 185,0,208,24,233,0,153,0
  123. 2160 data 208,185,0,208,208,16,173,16
  124. 2170 data 208,29,194,199,141,16,208,169
  125. 2180 data 112,153,0,208,56,96,24,96
  126. 2190 data 189,202,199,168,185,0,208,24
  127. 2200 data 233,0,153,0,208,16,17,189
  128. 2210 data 194,199,73,255,141,219,199,173
  129. 2220 data 16,208,45,219,199,141,16,208
  130. 2230 data 24,96,173,221,199,201,0,240
  131. 2240 data 54,201,1,240,98,173,252,7
  132. 2250 data 201,202,208,8,169,201,141,252
  133. 2260 data 7,76,103,195,238,252,7,162
  134. 2270 data 4,32,252,194,176,14,173,210
  135. 2280 data 199,201,4,144,17,162,4,32
  136. 2290 data 252,194,144,10,169,0,141,221
  137. 2300 data 199,169,0,141,11,212,96,169
  138. 2310 data 1,141,227,199,141,221,199,32
  139. 2320 data 222,255,141,217,199,173,16,208
  140. 2330 data 9,16,141,16,208,169,112,141
  141. 2340 data 8,208,169,101,141,9,208,169
  142. 2350 data 201,141,252,7,169,4,141,8
  143. 2360 data 212,169,180,141,7,212,96,238
  144. 2370 data 227,199,173,227,199,205,217,199
  145. 2380 data 208,196,169,2,141,221,199,32
  146. 2390 data 198,196,96,173,30,208,141,219
  147. 2400 data 199,162,17,173,219,199,41,127
  148. 2410 data 93,140,199,240,4,202,16,243
  149. 2420 data 96,138,10,170,189,158,199,133
  150. 2430 data 251,189,159,199,133,252,108,251
  151. 2440 data 0,206,211,199,104,104,104,104
  152. 2450 data 104,104,173,211,199,48,28,32
  153. 2460 data 5,196,76,6,193,160,23,162
  154. 2470 data 2,24,32,240,255,169,5,32
  155. 2480 data 210,255,173,211,199,24,105,48
  156. 2490 data 76,210,255,162,5,160,15,24
  157. 2500 data 32,240,255,169,80,160,196,32
  158. 2510 data 30,171,169,0,141,4,212,141
  159. 2520 data 11,212,141,18,212,162,39,160
  160. 2530 data 16,136,208,253,173,0,220,41
  161. 2540 data 16,240,249,202,208,241,173,0
  162. 2550 data 220,41,16,208,249,76,34,192
  163. 2560 data 156,71,65,77,69,32,79,86
  164. 2570 data 69,82,0,173,223,199,240,1
  165. 2580 data 96,169,0,141,221,199,141,224
  166. 2590 data 199,141,228,199,141,6,208,141
  167. 2600 data 7,208,141,233,199,141,231,199
  168. 2610 data 141,232,199,141,11,212,141,18
  169. 2620 data 212,169,255,141,8,208,141,9
  170. 2630 data 208,238,223,199,173,210,199,56
  171. 2640 data 233,2,48,15,10,168,185,21
  172. 2650 data 199,133,251,185,22,199,133,252
  173. 2660 data 76,86,198,96,238,230,199,173
  174. 2670 data 230,199,201,5,208,6,169,0
  175. 2680 data 141,230,199,96,189,74,200,141
  176. 2690 data 1,212,189,93,200,141,0,212
  177. 2700 data 169,33,141,4,212,96,169,33
  178. 2710 data 141,11,212,96,238,234,199,173
  179. 2720 data 234,199,201,4,240,1,96,174
  180. 2730 data 231,199,169,0,141,234,199,224
  181. 2740 data 0,208,4,142,18,212,96,206
  182. 2750 data 231,199,174,231,199,189,74,200
  183. 2760 data 141,15,212,189,93,200,141,14
  184. 2770 data 212,169,129,141,18,212,96,238
  185. 2780 data 232,199,173,232,199,201,5,240
  186. 2790 data 1,96,238,233,199,169,0,141
  187. 2800 data 232,199,173,233,199,201,8,208
  188. 2810 data 9,169,0,141,223,199,141,11
  189. 2820 data 212,96,170,189,112,200,141,8
  190. 2830 data 212,189,121,200,141,7,212,169
  191. 2840 data 33,141,11,212,96,173,210,199
  192. 2850 data 201,1,240,13,201,2,240,9
  193. 2860 data 201,5,240,64,201,3,240,42
  194. 2870 data 96,142,219,199,32,222,255,174
  195. 2880 data 219,199,201,127,144,18,189,194
  196. 2890 data 199,73,255,141,219,199,173,29
  197. 2900 data 208,45,219,199,141,29,208,96
  198. 2910 data 173,29,208,29,194,199,141,29
  199. 2920 data 208,96,173,29,208,201,102,208
  200. 2930 data 1,96,173,29,208,29,194,199
  201. 2940 data 141,29,208,96,173,21,208,201
  202. 2950 data 127,208,1,96,173,21,208,29
  203. 2960 data 194,199,141,21,208,96,162,3
  204. 2970 data 142,226,199,189,206,197,170,173
  205. 2980 data 21,208,61,194,199,240,25,173
  206. 2990 data 16,208,61,194,199,208,17,189
  207. 3000 data 202,199,168,185,0,208,201,75
  208. 3010 data 208,6,32,23,198,32,71,198
  209. 3020 data 174,226,199,202,16,210,173,218
  210. 3030 data 199,201,15,240,5,96,1,2
  211. 3040 data 5,6,169,0,141,218,199,32
  212. 3050 data 26,198,238,210,199,173,210,199
  213. 3060 data 201,6,208,31,169,0,141,210
  214. 3070 data 199,141,29,208,169,255,141,9
  215. 3080 data 208,238,211,199,173,211,199,201
  216. 3090 data 10,144,5,169,9,141,211,199
  217. 3100 data 32,5,196,76,6,198,24,160
  218. 3110 data 23,162,0,32,240,255,173,210
  219. 3120 data 199,24,105,49,76,210,255,238
  220. 3130 data 218,199,24,169,5,32,210,255
  221. 3140 data 160,37,162,0,32,240,25