home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 26 / 026.d81 / equestrian (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  12.3 KB  |  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,255,173
  222. 3150 data 218,199,201,10,176,12,105,48
  223. 3160 data 72,169,32,32,210,255,104,76
  224. 3170 data 210,255,169,49,32,210,255,173
  225. 3180 data 218,199,105,38,76,210,255,173
  226. 3190 data 210,199,10,168,185,11,199,133
  227. 3200 data 251,185,12,199,133,252,24,160
  228. 3210 data 6,162,0,32,240,255,248,160
  229. 3220 data 3,24,185,212,199,113,251,153
  230. 3230 data 212,199,136,16,245,216,160,0
  231. 3240 data 140,219,199,185,212,199,72,74
  232. 3250 data 74,74,74,24,105,48,32,210
  233. 3260 data 255,104,41,15,24,105,48,32
  234. 3270 data 210,255,238,219,199,172,219,199
  235. 3280 data 192,4,208,223,96,162,0,189
  236. 3290 data 240,198,48,74,168,185,74,200
  237. 3300 data 141,1,212,185,93,200,141,0
  238. 3310 data 212,185,81,200,141,8,212,185
  239. 3320 data 100,200,141,7,212,169,33,141
  240. 3330 data 4,212,169,33,141,11,212,189
  241. 3340 data 254,198,141,219,199,142,220,199
  242. 3350 data 162,47,160,31,136,208,253,202
  243. 3360 data 208,248,206,219,199,208,241,174
  244. 3370 data 220,199,232,169,0,141,4,212
  245. 3380 data 141,11,212,76,151,198,96,7
  246. 3390 data 1,10,2,2,4,5,2,2
  247. 3400 data 4,11,4,9,4,7,4,5
  248. 3410 data 7,9,7,5,4,255,50,50
  249. 3420 data 25,50,50,100,25,25,25,25
  250. 3430 data 25,25,100,29,199,33,199,37
  251. 3440 data 199,41,199,45,199,49,199,53
  252. 3450 data 199,57,199,61,199,0,0,1
  253. 3460 data 0,0,0,2,0,0,0,3
  254. 3470 data 0,0,0,5,0,0,0,16
  255. 3480 data 0,0,0,16,0,0,0,37
  256. 3490 data 0,0,0,80,0,0,0,117
  257. 3500 data 0,147,156,83,67,79,82,69
  258. 3510 data 32,5,48,48,48,48,48,48
  259. 3520 data 48,48,32,32,32,156,83,84
  260. 3530 data 65,71,69,32,5,49,32,32
  261. 3540 data 32,156,77,85,83,72,82,79
  262. 3550 data 79,77,83,32,5,32,48,13
  263. 3560 data 17,156,32,32,32,32,32,32
  264. 3570 data 32,32,32,32,32,32,32,32
  265. 3580 data 32,32,72,79,82,83,69,83
  266. 3590 data 32,5,53,0,3,5,17,24
  267. 3600 data 28,26,19,21,81,65,49,33
  268. 3610 data 85,83,51,53,88,56,241,195
  269. 3620 data 241,195,241,195,91,196,91,196
  270. 3630 data 91,196,241,195,241,195,241,195
  271. 3640 data 241,195,241,195,241,195,241,195
  272. 3650 data 241,195,241,195,241,195,91,196
  273. 3660 data 91,196,1,2,4,8,16,32
  274. 3670 data 64,128,0,2,4,6,8,10
  275. 3680 data 12,14,0,4,0,0,0,0
  276. 3690 data 2,12,0,31,1,0,0,0
  277. 3700 data 0,0,0,0,0,0,0,0
  278. 3710 data 0,0,0,0,0,255,0,255
  279. 3720 data 0,255,0,255,0,255,0,0
  280. 3730 data 0,255,0,0,0,0,255,0
  281. 3740 data 0,0,1,0,0,0,1,0
  282. 3750 data 0,0,1,0,0,0,1,0
  283. 3760 data 0,0,1,0,0,0,1,0
  284. 3770 data 0,0,1,0,0,1,0,0
  285. 3780 data 1,0,0,1,0,0,1,0
  286. 3790 data 0,1,0,0,1,0,0,1
  287. 3800 data 0,1,0,0,1,0,1,0
  288. 3810 data 1,0,1,1,1,1,1,1
  289. 3820 data 1,1,1,1,1,1,1,1
  290. 3830 data 1,1,16,17,18,19,21,22
  291. 3840 data 23,25,26,28,29,31,33,35
  292. 3850 data 37,39,42,44,47,195,195,209
  293. 3860 data 239,31,96,181,30,156,49,223
  294. 3870 data 165,135,134,162,223,62,193,107
  295. 3880 data 33,37,42,44,50,44,42,37
  296. 3890 data 33,135,162,62,193,60,193,62
  297. 3900 data 162,135,0,0,0,0,0,0
  298. 3910 data 0,0,0,0,0,0,0,40
  299. 3920 data 0,0,40,0,0,80,60,1
  300. 3930 data 84,255,1,65,255,2,168,176
  301. 3940 data 3,250,240,31,254,240,95,251
  302. 3950 data 240,79,239,240,3,251,240,61
  303. 3960 data 4,208,48,65,192,48,20,192
  304. 3970 data 0,0,192,0,3,0,0,0
  305. 3980 data 0,0,0,0,0,0,0,0
  306. 3990 data 0,0,0,0,0,0,0,40
  307. 4000 data 0,0,40,0,0,80,60,1
  308. 4010 data 84,255,1,65,255,2,168,176
  309. 4020 data 3,250,240,31,254,240,95,251
  310. 4030 data 240,79,239,240,3,219,208,15
  311. 4040 data 208,196,12,5,196,3,3,16
  312. 4050 data 0,204,0,0,0,0,0,0
  313. 4060 data 0,0,0,0,0,0,0,0
  314. 4070 data 0,0,0,0,0,0,0,40
  315. 4080 data 0,0,40,0,0,80,60,1
  316. 4090 data 84,255,1,65,255,2,168,176
  317. 4100 data 3,250,240,31,254,240,95,251
  318. 4110 data 240,79,239,240,3,251,212,0
  319. 4120 data 240,49,0,63,193,0,17,48
  320. 4130 data 0,19,0,0,4,0,0,0
  321. 4140 data 0,0,0,0,0,0,0,0
  322. 4150 data 0,0,0,0,0,0,0,40
  323. 4160 data 0,0,40,0,0,80,60,1
  324. 4170 data 84,255,1,65,255,2,168,176
  325. 4180 data 3,250,240,31,254,240,95,251
  326. 4190 data 240,79,239,240,3,251,252,3
  327. 4200 data 192,12,1,48,13,1,12,49
  328. 4210 data 1,3,0,0,64,192,0,0
  329. 4220 data 0,0,0,0,0,0,0,0
  330. 4230 data 0,0,0,0,0,0,0,40
  331. 4240 data 0,0,40,0,0,80,60,1
  332. 4250 data 84,255,1,65,255,2,168,176
  333. 4260 data 3,250,240,31,254,240,95,251
  334. 4270 data 240,79,239,240,3,251,252,5
  335. 4280 data 192,19,4,192,7,4,192,12
  336. 4290 data 4,48,4,4,12,0,0,0
  337. 4300 data 0,0,0,0,0,0,0,0
  338. 4310 data 0,0,0,0,0,0,0,40
  339. 4320 data 0,0,40,0,0,80,60,1
  340. 4330 data 84,255,1,65,255,2,168,176
  341. 4340 data 3,250,240,31,254,240,95,251
  342. 4350 data 240,79,239,240,3,251,240,15
  343. 4360 data 192,76,29,0,67,211,0,67
  344. 4370 data 19,0,64,0,192,16,0,0
  345. 4380 data 0,0,0,0,0,0,0,0
  346. 4390 data 0,0,0,0,0,0,0,40
  347. 4400 data 0,0,40,0,0,80,60,1
  348. 4410 data 84,255,1,65,255,2,168,176
  349. 4420 data 3,250,240,31,254,240,95,251
  350. 4430 data 240,79,239,240,3,251,240,7
  351. 4440 data 192,52,7,0,52,31,0,112
  352. 4450 data 12,1,48,12,0,12,0,0
  353. 4460 data 0,0,0,0,0,0,0,0
  354. 4470 data 0,0,0,0,0,0,0,40
  355. 4480 data 0,0,40,0,0,80,60,1
  356. 4490 data 84,255,1,65,255,2,168,176
  357. 4500 data 3,250,240,31,254,240,95,251
  358. 4510 data 240,79,239,244,15,251,49,61
  359. 4520 data 64,49,49,0,196,49,0,0
  360. 4530 data 196,0,0,0,0,0,0,0
  361. 4540 data 0,0,0,0,0,0,0,0
  362. 4550 data 0,0,0,0,0,0,0,0
  363. 4560 data 0,0,0,0,0,0,0,0
  364. 4570 data 0,0,0,0,0,0,0,0
  365. 4580 data 0,0,0,0,0,0,0,0
  366. 4590 data 0,56,0,0,171,0,0,234
  367. 4600 data 0,0,170,0,0,20,0,0
  368. 4610 data 80,0,0,80,0,0,84,0
  369. 4620 data 0,0,0,0,0,0,0,0
  370. 4630 data 0,0,0,0,0,0,0,0
  371. 4640 data 0,0,0,0,0,0,0,0
  372. 4650 data 0,0,0,1,64,3,133,64
  373. 4660 data 2,149,0,0,234,128,15,58
  374. 4670 data 160,0,206,160,0,50,160,0
  375. 4680 data 0,0,0,0,0,0,0,0
  376. 4690 data 0,0,0,0,0,0,0,0
  377. 4700 data 0,0,0,0,0,0,0,0
  378. 4710 data 0,0,0,0,0,0,0,0
  379. 4720 data 0,0,0,0,0,0,0,0
  380. 4730 data 0,0,0,0,0,3,128,0
  381. 4740 data 2,149,64,0,229,80,15,58
  382. 4750 data 80,0,206,160,0,50,160,0
  383. 4760 data 0,0,0,0,0,0,0,0
  384. 4770 data 0,0,0,0,0,0,0,0
  385. 4780 data 0,0,0,0
  386. 50000 a$="[154]press [space] start":gosub1140:poke198,0
  387. 50010 gett$:ift$<>" "then50010
  388. 50020 return
  389. 60000 nm$="[211]cot [211]eto":pr$="[197]questrian"
  390. 60005 deffncn(n)=int(19-n/2)
  391. 60010 t$="                         ":c=0:c$="":print"[147]":poke53281,0
  392. 60015 printspc(7)""t$:printspc(7)"                         [146]"
  393. 60020 printtab(fncn(len(pr$)))"[145]"pr$
  394. 60025 printspc(7)""t$:print:printtab(18)"by"
  395. 60030 print:printspc(fncn(len(nm$)))"[158]"nm$""
  396. 60035 printspc(12)"[195]opyright 1986"
  397. 60037 print"       [159] [195]ommodore [208]ublications"
  398. 60040 print"     [158][204][207][193][196][211][212][193][210] is not public domain."
  399. 60045 print:print"  [208]lease respect the author's rights."
  400. 60050 print:print"      [208]ress space bar to continue."
  401. 60055 forcc=1to48:getk$:ifk$=" "then60070
  402. 60060 ifcc=1thenprintmid$(c$,c+2,1)"[145][145]";:c=not(c)
  403. 60065 next:goto60050
  404. 60070 printc$chr$(142):return
  405.