10 REM    MOONDOG BOOT--JCHILTY--8/86
11 POKE53281,0:POKE53280,0:PRINT"[147]LOADING MOONDOG...."
12 FORX=49154TO49320:READA:POKEX,A:NEXT
13 POKE147,0:SYS57812"MOONTITLE",8,1:SYS62631:SYS49154
14 FORX=54272TO54295:POKEX,0:NEXT:POKE54296,15
16 A=15:D=107:POKE54277,A:POKE54284,A:POKE54291,A:POKE54278,D:POKE54285,D
17 POKE54292,D:POKE54286,30:POKE54287,60:POKE54276,33:POKE54283,23
18 POKE54290,23:FORF1=40TO80STEP1:POKE54273,F1
19 FORF2=60TO31STEP-5:POKE54280,F2:NEXTF2:NEXTF1
20 POKE54276,32:POKE54283,32:POKE54290,32:FORT=0TO1000:NEXT
21 FORX=54272TO54295:POKEX,0:NEXT:POKE54296,15
22 POKE54284,160:POKE54285,252:POKE54280,80:POKE54279,40:POKE54283,129
23 FORT=0TO12000:NEXT:POKE54283,128
24 POKE53265,PEEK(53265)AND223:POKE53272,(PEEK(53272)AND240)OR4
25 POKE53270,PEEK(53270)AND239:POKE53281,0:POKE646,0
26 PRINTCHR$(147):PRINT:PRINT
27 PRINT"LOAD"CHR$(34)"MOONDOG"CHR$(34)",8":PRINT:PRINT:PRINT:PRINT
28 PRINT"RUN":PRINT"LOADING MODULES....[144]":PRINTCHR$(19):POKE198,2
29 POKE631,13:POKE632,13
30 END
100 DATA 173,17,208,41,239,9,32,141,17,208,173,22,208,41,223,9
101 DATA 16,141,22,208,173,24,208,41,240,9,8,141,24,208,76,43
102 DATA 192,173,17,208,41,239,141,17,208,162,127,160,64,134,252,132
103 DATA 251,162,4,160,0,134,254,132,253,162,131,160,39,32,127,192
104 DATA 162,131,160,40,134,252,132,251,162,216,160,0,134,254,132,253
105 DATA 162,135,160,15,32,127,192,173,16,135,141,33,208,162,96,160
106 DATA 0,134,252,132,251,162,32,160,0,134,254,132,253,162,127,160
107 DATA 63,32,127,192,173,17,208,9,16,141,17,208,96,142,1,192
108 DATA 140,0,192,160,0,177,251,145,253,165,252,205,1,192,208,8
109 DATA 165,251,205,0,192,208,1,96,230,251,208,2,230,252,230,253
110 DATA 208,227,230,254,76,135,192