100 PRINT"[147]":POKE53280,.:POKE53281,.
110 SYS57812"PIC1.SHP",8,0:POKE780,.:POKE781,.:POKE782,64:SYS65493
120 SYS57812"UNPACKER.89",8,0:POKE780,.:POKE781,.:POKE782,201:SYS65493
130 :
140 POKE53265,PEEK(53265)AND239
150 POKE251,64:REM .SHP MEM1
160 POKE252,32:REM BITMAP MEM1
170 POKE253,4:REM COLOR MEM1
180 SYS51456:REM UNPACK THAT SHAPE1
190 SYS51459:REM DISPLAY SCRN 1
200 POKE53265,PEEK(53265)OR16
210 GETA$:IFA$=""THEN220
220 FORL=1TO2500:NEXTL
230 PRINT"[147]":POKE53280,.:POKE53281,.
240 SYS57812"PIC2.SHP",8,0:POKE780,.:POKE781,.:POKE782,64:SYS65493
250 SYS57812"UNPACKER.89",8,0:POKE780,.:POKE781,.:POKE782,201:SYS65493
260 :
270 POKE53265,PEEK(53265)AND239
280 POKE251,64:REM .SHP MEM2
290 POKE252,32:REM BITMAP MEM2
300 POKE253,4:REM COLOR MEM2
310 SYS51456:REM UNPACK THAT SHAPE2
320 SYS51459:REM DISPLAY SCRN 2
330 POKE53265,PEEK(53265)OR16
340 GETA$:IFA$=""THEN350
350 FORL=1TO2500:NEXTL
360 A$="ARK1MAIN":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
370 PRINT"LOAD"Q$A$Q$",8
380 [153]"RUN":[151]631,13:[151]632,13:[151]198,2