10 POKE56,31:CLR:AD=8000
20 POKE53272,28:POKE53280,11:POKE53281,0
30 PRINT"[147]":SH=INT(AD/256):SL=AD-SH*256
40 POKE252,SL:POKE253,SH:SYS49152:AD=AD+590
50 POKE198,0:WAIT198,1:GETA$:IFA$="[133]"THEN110
55 IFA$="[136]"THEN108
60 IFA$="-"ANDAD=16974THENAD=9770:GOTO30
70 IFA$="-"ANDAD-1179>8000THENAD=AD-1180:GOTO30
80 IFAD=10360THENAD=16384
90 IFAD<31723THEN30
100 GOTO10
108 PRINT"[147][144]LOAD"CHR$(34)"BLAGGER 1701"CHR$(34)",8":PRINT"RUN":POKE2,1
109 POKE53272,21:POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE198,4:NEW
110 RESTORE:FORY=1TO17STEP2:FORX=32TO38STEP2:READA,B:POKE1024+X+Y*40,A
120 POKE55296+X+Y*40,B:NEXTX,Y:Q=AD:GOSUB210:AD=Q
130 SYS49264:POKE53280,11:POKE53272,21:PRINT"[147]SAVE ?"
140 POKE198,0:WAIT198,1:GETA$:IFA$<>"Y"THEN20
150 INPUT"FILE NAME =<16 TKN.";A$:IFLEN(A$)>16THEN150
160 EH=INT((AD)/256):EL=(AD)-EH*256
170 PRINT"[147][144]P[207]43,"SL":P[207]44,"SH":P[207]45,"EL":P[207]46,"EH
180 PRINT"SAVE"CHR$(34)"@0:"A$CHR$(34)",8[144]"
190 PRINT"P[207]43,1:P[207]44,8:P[207]45,"PEEK(45)":P[207]46,"PEEK(46)":AD="AD":GOTO20
200 [151]631,19:[129]T[178]1[164]9:[151]631[170]T,13:[130]:[151]198,T:[128]
210 X[178]32:Y[178]1:XX[178]32:YY[178]1:F[178]54272:A[178][194](1096):B[178][194](55368):AD[178]1096:C[178]32:CF[178]1
220 [129]T[178]1[164]25:[151]AD,122:[151]AD[170]F,1:[161]A$:[139]A$[179][177]""[167]240
230 [130]:[129]T[178]1[164]50:[151]AD,C:[151]AD[170]F,CF:[161]A$:[139]A$[178]""[167][130]:[137]220
240 [139]A$[178]"INPUT"[167][151]AD,A:[151]AD[170]F,B:[151]53280,12:[142]
250 [139]A$[178]""[175]X[179]38[167]X[178]X[170]1
260 [139]A$[178]"CMD"[175]X[177]0[167]X[178]X[171]1
270 [139]A$[178]""[175]Y[179]18[167]Y[178]Y[170]1
280 [139]A$[178]"ON"[175]Y[177]0[167]Y[178]Y[171]1
290 [139]A$[178]" "[175]X[177]30[167]C[178]A:CF[178]B:[137]220
300 [139]A$[178]" "[167][141]350:[151]AD,C:[151]AD[170]F,CF:[137]330
310 [139]X[178]XX[175]Y[178]YY[167]220
320 [141]340:[151]AD,A:[151]AD[170]F,B:[141]350:XX[178]X:YY[178]Y
330 A[178][194](AD):B[178][194](AD[170]F):[137]220
340 AD[178]1024[170]XX[170]YY[172]40:[142]
350 AD[178]1024[170]X[170]Y[172]40:[142]
360 [131] 30,8,31,13,33,7,34,13,35,2,36,5,37,2,38,4,41,1,42,1,43,1,78,13
370 [131] 100,1,101,1,102,1,103,11,104,11,106,6,110,2,94,1,48,1,49,1,50,1,51,1
380 [131] 52,1,53,1,54,1,55,1,56,1,57,1,126,9,127,9,86,8,87,8,88,8,89,8