1000 GOSUB60000:PRINT"[147]"CHR$(142) 1006 A$="****************":GOSUB1140 1010 A$="[145]* EQUESTRIAN *" 1020 GOSUB 1140 1022 A$="[145]****************" 1024 GOSUB 1140 1030 A$="POKING MACHINE LANGUAGE PROGRAM" 1040 GOSUB 1140 1050 A$="[158]PLEASE WAIT ABOUT 60 SECONDS" 1060 GOSUB 1140 1062 A$="[150]PRESS R/S RESTORE TO QUIT" 1064 GOSUB 1140 1070 FORT=0TO2883 1080 READX 1085 IFX<0ORX>255THENPRINT"ERROR IN LINE"INT(T/8)*10+1180:END 1090 POKE49152+T,X 1100 S=S+X 1110 NEXT 1120 IFS=307896THENGOSUB50000:SYS49152 1130 PRINT"?CHECK SUM ERROR":END 1140 L=LEN(A$) 1150 T=20-INT(L/2) 1160 PRINTTAB(T)"";A$ 1170 RETURN 1180 DATA 169,130,133,251,169,200,133,252 1190 DATA 169,0,133,253,169,48,133,254 1200 DATA 162,3,160,0,177,251,145,253 1210 DATA 200,208,249,230,252,230,254,202 1220 DATA 208,240,169,11,141,32,208,169 1230 DATA 7,141,216,199,169,0,141,33 1240 DATA 208,141,29,208,169,200,141,249 1250 DATA 7,141,253,7,141,250,7,141 1260 DATA 254,7,169,13,141,251,7,162 1270 DATA 8,189,231,198,157,37,208,202 1280 DATA 16,247,169,65,160,199,32,30 1290 DATA 171,169,0,162,63,157,64,3 1300 DATA 202,16,250,162,23,157,0,212 1310 DATA 202,16,250,162,3,157,212,199 1320 DATA 202,16,250,141,210,199,141,218 1330 DATA 199,169,4,141,8,212,169,180 1340 DATA 141,7,212,169,255,141,96,3 1350 DATA 169,2,141,93,3,141,99,3 1360 DATA 169,4,141,102,3,141,90,3 1370 DATA 169,15,141,24,212,169,17,141 1380 DATA 5,212,141,12,212,169,160,141 1390 DATA 19,212,169,128,141,6,212,141 1400 DATA 13,212,169,243,141,20,212,169 1410 DATA 31,141,21,208,169,119,141,28 1420 DATA 208,169,5,141,211,199,169,160 1430 DATA 141,219,199,169,5,133,252,169 1440 DATA 104,133,251,32,233,192,169,12 1450 DATA 141,219,199,169,217,133,252,169 1460 DATA 104,133,251,32,233,192,76,6 1470 DATA 193,162,15,160,39,173,219,199 1480 DATA 145,251,136,16,251,165,251,24 1490 DATA 105,40,133,251,165,252,105,0 1500 DATA 133,252,202,16,230,96,169,101 1510 DATA 141,0,208,141,3,208,141,11 1520 DATA 208,141,5,208,141,13,208,169 1530 DATA 102,141,1,208,169,0,141,6 1540 DATA 208,141,7,208,169,64,141,16 1550 DATA 208,169,160,141,10,208,169,85 1560 DATA 141,12,208,169,255,141,9,208 1570 DATA 141,8,208,141,2,208,169,0 1580 DATA 162,14,157,221,199,202,16,250 1590 DATA 141,11,212,141,18,212,141,4 1600 DATA 212,169,54,141,4,208,169,192 1610 DATA 141,248,7,173,30,208,32,149 1620 DATA 198,173,30,208,162,39,160,16 1630 DATA 136,208,253,173,0,220,41,16 1640 DATA 240,249,202,208,241,173,74,200 1650 DATA 141,1,212,173,93,200,141,0 1660 DATA 212,32,159,255,32,228,255,201 1670 DATA 49,144,9,201,58,176,5,233 1680 DATA 46,141,216,199,173,0,220,41 1690 DATA 16,208,3,32,254,193,173,0 1700 DATA 220,41,15,73,15,208,6,32 1710 DATA 185,193,76,148,193,201,1,208 1720 DATA 246,169,1,141,224,199,76,167 1730 DATA 193,238,229,199,173,229,199,201 1740 DATA 4,208,31,169,0,141,229,199 1750 DATA 169,33,141,4,212,238,235,199 1760 DATA 173,235,199,201,7,208,5,169 1770 DATA 0,141,235,199,24,105,192,141 1780 DATA 248,7,32,78,194,173,229,199 1790 DATA 201,2,240,5,169,0,141,4 1800 DATA 212,96,162,255,172,216,199,136 1810 DATA 208,253,202,208,247,96,169,199 1820 DATA 141,248,7,162,0,142,222,199 1830 DATA 32,164,196,206,1,208,32,78 1840 DATA 194,32,78,194,32,78,194,174 1850 DATA 222,199,232,224,11,208,230,169 1860 DATA 0,141,4,212,32,78,194,32 1870 DATA 78,194,162,11,142,222,199,238 1880 DATA 1,208,32,78,194,32,78,194 1890 DATA 32,78,194,174,222,199,202,208 1900 DATA 235,173,74,200,141,1,212,173 1910 DATA 93,200,141,0,212,96,162,1 1920 DATA 32,252,194,144,3,32,53,197 1930 DATA 162,2,32,252,194,144,3,32 1940 DATA 53,197,162,5,32,252,194,144 1950 DATA 3,32,53,197,162,6,32,252 1960 DATA 194,144,3,32,53,197,173,210 1970 DATA 199,201,2,144,16,173,223,199 1980 DATA 240,3,32,255,196,173,223,199 1990 DATA 208,3,32,74,195,173,0,220 2000 DATA 41,15,73,15,201,1,208,5 2010 DATA 169,1,141,224,199,32,169,194 2020 DATA 32,203,195,32,150,197,76,242 2030 DATA 193,173,224,199,240,77,173,228 2040 DATA 199,208,26,169,100,141,6,208 2050 DATA 173,1,208,141,7,208,169,11 2060 DATA 141,231,199,169,0,141,236,199 2070 DATA 169,1,141,228,199,238,6,208 2080 DATA 238,236,199,32,204,196,174,236 2090 DATA 199,173,7,208,24,125,237,199 2100 DATA 141,7,208,173,7,208,201,112 2110 DATA 144,17,169,0,141,18,212,141 2120 DATA 224,199,141,228,199,141,6,208 2130 DATA 141,7,208,96,173,16,208,61 2140 DATA 194,199,208,36,189,202,199,168 2150 DATA 185,0,208,24,233,0,153,0 2160 DATA 208,185,0,208,208,16,173,16 2170 DATA 208,29,194,199,141,16,208,169 2180 DATA 112,153,0,208,56,96,24,96 2190 DATA 189,202,199,168,185,0,208,24 2200 DATA 233,0,153,0,208,16,17,189 2210 DATA 194,199,73,255,141,219,199,173 2220 DATA 16,208,45,219,199,141,16,208 2230 DATA 24,96,173,221,199,201,0,240 2240 DATA 54,201,1,240,98,173,252,7 2250 DATA 201,202,208,8,169,201,141,252 2260 DATA 7,76,103,195,238,252,7,162 2270 DATA 4,32,252,194,176,14,173,210 2280 DATA 199,201,4,144,17,162,4,32 2290 DATA 252,194,144,10,169,0,141,221 2300 DATA 199,169,0,141,11,212,96,169 2310 DATA 1,141,227,199,141,221,199,32 2320 DATA 222,255,141,217,199,173,16,208 2330 DATA 9,16,141,16,208,169,112,141 2340 DATA 8,208,169,101,141,9,208,169 2350 DATA 201,141,252,7,169,4,141,8 2360 DATA 212,169,180,141,7,212,96,238 2370 DATA 227,199,173,227,199,205,217,199 2380 DATA 208,196,169,2,141,221,199,32 2390 DATA 198,196,96,173,30,208,141,219 2400 DATA 199,162,17,173,219,199,41,127 2410 DATA 93,140,199,240,4,202,16,243 2420 DATA 96,138,10,170,189,158,199,133 2430 DATA 251,189,159,199,133,252,108,251 2440 DATA 0,206,211,199,104,104,104,104 2450 DATA 104,104,173,211,199,48,28,32 2460 DATA 5,196,76,6,193,160,23,162 2470 DATA 2,24,32,240,255,169,5,32 2480 DATA 210,255,173,211,199,24,105,48 2490 DATA 76,210,255,162,5,160,15,24 2500 DATA 32,240,255,169,80,160,196,32 2510 DATA 30,171,169,0,141,4,212,141 2520 DATA 11,212,141,18,212,162,39,160 2530 DATA 16,136,208,253,173,0,220,41 2540 DATA 16,240,249,202,208,241,173,0 2550 DATA 220,41,16,208,249,76,34,192 2560 DATA 156,71,65,77,69,32,79,86 2570 DATA 69,82,0,173,223,199,240,1 2580 DATA 96,169,0,141,221,199,141,224 2590 DATA 199,141,228,199,141,6,208,141 2600 DATA 7,208,141,233,199,141,231,199 2610 DATA 141,232,199,141,11,212,141,18 2620 DATA 212,169,255,141,8,208,141,9 2630 DATA 208,238,223,199,173,210,199,56 2640 DATA 233,2,48,15,10,168,185,21 2650 DATA 199,133,251,185,22,199,133,252 2660 DATA 76,86,198,96,238,230,199,173 2670 DATA 230,199,201,5,208,6,169,0 2680 DATA 141,230,199,96,189,74,200,141 2690 DATA 1,212,189,93,200,141,0,212 2700 DATA 169,33,141,4,212,96,169,33 2710 DATA 141,11,212,96,238,234,199,173 2720 DATA 234,199,201,4,240,1,96,174 2730 DATA 231,199,169,0,141,234,199,224 2740 DATA 0,208,4,142,18,212,96,206 2750 DATA 231,199,174,231,199,189,74,200 2760 DATA 141,15,212,189,93,200,141,14 2770 DATA 212,169,129,141,18,212,96,238 2780 DATA 232,199,173,232,199,201,5,240 2790 DATA 1,96,238,233,199,169,0,141 2800 DATA 232,199,173,233,199,201,8,208 2810 DATA 9,169,0,141,223,199,141,11 2820 DATA 212,96,170,189,112,200,141,8 2830 DATA 212,189,121,200,141,7,212,169 2840 DATA 33,141,11,212,96,173,210,199 2850 DATA 201,1,240,13,201,2,240,9 2860 DATA 201,5,240,64,201,3,240,42 2870 DATA 96,142,219,199,32,222,255,174 2880 DATA 219,199,201,127,144,18,189,194 2890 DATA 199,73,255,141,219,199,173,29 2900 DATA 208,45,219,199,141,29,208,96 2910 DATA 173,29,208,29,194,199,141,29 2920 DATA 208,96,173,29,208,201,102,208 2930 DATA 1,96,173,29,208,29,194,199 2940 DATA 141,29,208,96,173,21,208,201 2950 DATA 127,208,1,96,173,21,208,29 2960 DATA 194,199,141,21,208,96,162,3 2970 DATA 142,226,199,189,206,197,170,173 2980 DATA 21,208,61,194,199,240,25,173 2990 DATA 16,208,61,194,199,208,17,189 3000 DATA 202,199,168,185,0,208,201,75 3010 DATA 208,6,32,23,198,32,71,198 3020 DATA 174,226,199,202,16,210,173,218 3030 DATA 199,201,15,240,5,96,1,2 3040 DATA 5,6,169,0,141,218,199,32 3050 DATA 26,198,238,210,199,173,210,199 3060 DATA 201,6,208,31,169,0,141,210 3070 DATA 199,141,29,208,169,255,141,9 3080 DATA 208,238,211,199,173,211,199,201 3090 DATA 10,144,5,169,9,141,211,199 3100 DATA 32,5,196,76,6,198,24,160 3110 DATA 23,162,0,32,240,255,173,210 3120 DATA 199,24,105,49,76,210,255,238 3130 DATA 218,199,24,169,5,32,210,255 3140 DATA 160,37,162,0,32,240,255,173 3150 DATA 218,199,201,10,176,12,105,48 3160 DATA 72,169,32,32,210,255,104,76 3170 DATA 210,255,169,49,32,210,255,173 3180 DATA 218,199,105,38,76,210,255,173 3190 DATA 210,199,10,168,185,11,199,133 3200 DATA 251,185,12,199,133,252,24,160 3210 DATA 6,162,0,32,240,255,248,160 3220 DATA 3,24,185,212,199,113,251,153 3230 DATA 212,199,136,16,245,216,160,0 3240 DATA 140,219,199,185,212,199,72,74 3250 DATA 74,74,74,24,105,48,32,210 3260 DATA 255,104,41,15,24,105,48,32 3270 DATA 210,255,238,219,199,172,219,199 3280 DATA 192,4,208,223,96,162,0,189 3290 DATA 240,198,48,74,168,185,74,200 3300 DATA 141,1,212,185,93,200,141,0 3310 DATA 212,185,81,200,141,8,212,185 3320 DATA 100,200,141,7,212,169,33,141 3330 DATA 4,212,169,33,141,11,212,189 3340 DATA 254,198,141,219,199,142,220,199 3350 DATA 162,47,160,31,136,208,253,202 3360 DATA 208,248,206,219,199,208,241,174 3370 DATA 220,199,232,169,0,141,4,212 3380 DATA 141,11,212,76,151,198,96,7 3390 DATA 1,10,2,2,4,5,2,2 3400 DATA 4,11,4,9,4,7,4,5 3410 DATA 7,9,7,5,4,255,50,50 3420 DATA 25,50,50,100,25,25,25,25 3430 DATA 25,25,100,29,199,33,199,37 3440 DATA 199,41,199,45,199,49,199,53 3450 DATA 199,57,199,61,199,0,0,1 3460 DATA 0,0,0,2,0,0,0,3 3470 DATA 0,0,0,5,0,0,0,16 3480 DATA 0,0,0,16,0,0,0,37 3490 DATA 0,0,0,80,0,0,0,117 3500 DATA 0,147,156,83,67,79,82,69 3510 DATA 32,5,48,48,48,48,48,48 3520 DATA 48,48,32,32,32,156,83,84 3530 DATA 65,71,69,32,5,49,32,32 3540 DATA 32,156,77,85,83,72,82,79 3550 DATA 79,77,83,32,5,32,48,13 3560 DATA 17,156,32,32,32,32,32,32 3570 DATA 32,32,32,32,32,32,32,32 3580 DATA 32,32,72,79,82,83,69,83 3590 DATA 32,5,53,0,3,5,17,24 3600 DATA 28,26,19,21,81,65,49,33 3610 DATA 85,83,51,53,88,56,241,195 3620 DATA 241,195,241,195,91,196,91,196 3630 DATA 91,196,241,195,241,195,241,195 3640 DATA 241,195,241,195,241,195,241,195 3650 DATA 241,195,241,195,241,195,91,196 3660 DATA 91,196,1,2,4,8,16,32 3670 DATA 64,128,0,2,4,6,8,10 3680 DATA 12,14,0,4,0,0,0,0 3690 DATA 2,12,0,31,1,0,0,0 3700 DATA 0,0,0,0,0,0,0,0 3710 DATA 0,0,0,0,0,255,0,255 3720 DATA 0,255,0,255,0,255,0,0 3730 DATA 0,255,0,0,0,0,255,0 3740 DATA 0,0,1,0,0,0,1,0 3750 DATA 0,0,1,0,0,0,1,0 3760 DATA 0,0,1,0,0,0,1,0 3770 DATA 0,0,1,0,0,1,0,0 3780 DATA 1,0,0,1,0,0,1,0 3790 DATA 0,1,0,0,1,0,0,1 3800 DATA 0,1,0,0,1,0,1,0 3810 DATA 1,0,1,1,1,1,1,1 3820 DATA 1,1,1,1,1,1,1,1 3830 DATA 1,1,16,17,18,19,21,22 3840 DATA 23,25,26,28,29,31,33,35 3850 DATA 37,39,42,44,47,195,195,209 3860 DATA 239,31,96,181,30,156,49,223 3870 DATA 165,135,134,162,223,62,193,107 3880 DATA 33,37,42,44,50,44,42,37 3890 DATA 33,135,162,62,193,60,193,62 3900 DATA 162,135,0,0,0,0,0,0 3910 DATA 0,0,0,0,0,0,0,40 3920 DATA 0,0,40,0,0,80,60,1 3930 DATA 84,255,1,65,255,2,168,176 3940 DATA 3,250,240,31,254,240,95,251 3950 DATA 240,79,239,240,3,251,240,61 3960 DATA 4,208,48,65,192,48,20,192 3970 DATA 0,0,192,0,3,0,0,0 3980 DATA 0,0,0,0,0,0,0,0 3990 DATA 0,0,0,0,0,0,0,40 4000 DATA 0,0,40,0,0,80,60,1 4010 DATA 84,255,1,65,255,2,168,176 4020 DATA 3,250,240,31,254,240,95,251 4030 DATA 240,79,239,240,3,219,208,15 4040 DATA 208,196,12,5,196,3,3,16 4050 DATA 0,204,0,0,0,0,0,0 4060 DATA 0,0,0,0,0,0,0,0 4070 DATA 0,0,0,0,0,0,0,40 4080 DATA 0,0,40,0,0,80,60,1 4090 DATA 84,255,1,65,255,2,168,176 4100 DATA 3,250,240,31,254,240,95,251 4110 DATA 240,79,239,240,3,251,212,0 4120 DATA 240,49,0,63,193,0,17,48 4130 DATA 0,19,0,0,4,0,0,0 4140 DATA 0,0,0,0,0,0,0,0 4150 DATA 0,0,0,0,0,0,0,40 4160 DATA 0,0,40,0,0,80,60,1 4170 DATA 84,255,1,65,255,2,168,176 4180 DATA 3,250,240,31,254,240,95,251 4190 DATA 240,79,239,240,3,251,252,3 4200 DATA 192,12,1,48,13,1,12,49 4210 DATA 1,3,0,0,64,192,0,0 4220 DATA 0,0,0,0,0,0,0,0 4230 DATA 0,0,0,0,0,0,0,40 4240 DATA 0,0,40,0,0,80,60,1 4250 DATA 84,255,1,65,255,2,168,176 4260 DATA 3,250,240,31,254,240,95,251 4270 DATA 240,79,239,240,3,251,252,5 4280 DATA 192,19,4,192,7,4,192,12 4290 DATA 4,48,4,4,12,0,0,0 4300 DATA 0,0,0,0,0,0,0,0 4310 DATA 0,0,0,0,0,0,0,40 4320 DATA 0,0,40,0,0,80,60,1 4330 DATA 84,255,1,65,255,2,168,176 4340 DATA 3,250,240,31,254,240,95,251 4350 DATA 240,79,239,240,3,251,240,15 4360 DATA 192,76,29,0,67,211,0,67 4370 DATA 19,0,64,0,192,16,0,0 4380 DATA 0,0,0,0,0,0,0,0 4390 DATA 0,0,0,0,0,0,0,40 4400 DATA 0,0,40,0,0,80,60,1 4410 DATA 84,255,1,65,255,2,168,176 4420 DATA 3,250,240,31,254,240,95,251 4430 DATA 240,79,239,240,3,251,240,7 4440 DATA 192,52,7,0,52,31,0,112 4450 DATA 12,1,48,12,0,12,0,0 4460 DATA 0,0,0,0,0,0,0,0 4470 DATA 0,0,0,0,0,0,0,40 4480 DATA 0,0,40,0,0,80,60,1 4490 DATA 84,255,1,65,255,2,168,176 4500 DATA 3,250,240,31,254,240,95,251 4510 DATA 240,79,239,244,15,251,49,61 4520 DATA 64,49,49,0,196,49,0,0 4530 DATA 196,0,0,0,0,0,0,0 4540 DATA 0,0,0,0,0,0,0,0 4550 DATA 0,0,0,0,0,0,0,0 4560 DATA 0,0,0,0,0,0,0,0 4570 DATA 0,0,0,0,0,0,0,0 4580 DATA 0,0,0,0,0,0,0,0 4590 DATA 0,56,0,0,171,0,0,234 4600 DATA 0,0,170,0,0,20,0,0 4610 DATA 80,0,0,80,0,0,84,0 4620 DATA 0,0,0,0,0,0,0,0 4630 DATA 0,0,0,0,0,0,0,0 4640 DATA 0,0,0,0,0,0,0,0 4650 DATA 0,0,0,1,64,3,133,64 4660 DATA 2,149,0,0,234,128,15,58 4670 DATA 160,0,206,160,0,50,160,0 4680 DATA 0,0,0,0,0,0,0,0 4690 DATA 0,0,0,0,0,0,0,0 4700 DATA 0,0,0,0,0,0,0,0 4710 DATA 0,0,0,0,0,0,0,0 4720 DATA 0,0,0,0,0,0,0,0 4730 DATA 0,0,0,0,0,3,128,0 4740 DATA 2,149,64,0,229,80,15,58 4750 DATA 80,0,206,160,0,50,160,0 4760 DATA 0,0,0,0,0,0,0,0 4770 DATA 0,0,0,0,0,0,0,0 4780 DATA 0,0,0,0 50000 A$="[154]PRESS [SPACE] START":GOSUB1140:POKE198,0 50010 GETT$:IFT$<>" "THEN50010 50020 RETURN 60000 NM$="[211]COT [211]ETO":PR$="[197]QUESTRIAN" 60005 DEFFNCN(N)=INT(19-N/2) 60010 T$=" ":C=0:C$="":PRINT"[147]":POKE53281,0 60015 PRINTSPC(7)""T$:PRINTSPC(7)" [146]" 60020 PRINTTAB(FNCN(LEN(PR$)))"[145]"PR$ 60025 PRINTSPC(7)""T$:PRINT:PRINTTAB(18)"BY" 60030 PRINT:PRINTSPC(FNCN(LEN(NM$)))"[158]"NM$"" 60035 PRINTSPC(12)"[195]OPYRIGHT 1986" 60037 PRINT" [159] [195]OMMODORE [208]UBLICATIONS" 60040 PRINT" [158][204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN." 60045 PRINT:PRINT" [208]LEASE RESPECT THE AUTHOR'S RIGHTS." 60050 PRINT:PRINT" [208]RESS SPACE BAR TO CONTINUE." 60055 FORCC=1TO48:GETK$:IFK$=" "THEN60070 60060 IFCC=1THENPRINTMID$(C$,C+2,1)"[145][145]";:C=NOT(C) 60065 NEXT:GOTO60050 60070 PRINTC$CHR$(142):RETURN