10 D=PEEK(186):IFD<8THEND=8
110 SYS57812"PIC1.SHP",D,0:POKE780,.:POKE781,.:POKE782,64:SYS65493
120 SYS57812"UNPACKER.89A",D,0:POKE780,.:POKE781,.:POKE782,201:SYS65493
150 POKE251,64:REM .SHP MEM1
160 POKE252,224:REM BITMAP MEM1
170 POKE253,192:REM COLOR MEM1
175 PRINT"[147]":POKE53280,0:POKE53281,0
180 SYS51456:REM UNPACK THAT SHAPE1
190 SYS51459:REM DISPLAY SCRN 1
200 SYS57812"PIC2.SHP",D,0:POKE780,0:POKE781,0:POKE782,96:SYS65493
230 T=TI+240:FORX=0TO1:X=-(TI>T):NEXT
260 REM SYS51459
270 REM  POKE53265,PEEK(53265)AND239
280 POKE251,96:REM .SHP MEM2
290 POKE252,160:REM BITMAP MEM2
300 POKE253,128:REM COLOR MEM2
310 SYS51456:REM UNPACK THAT SHAPE2
315 POKE56576,197
330 T=TI+300:FORX=0TO1:X=-(TI>T):NEXT
355 SYS57812"ARK1MAIN",D,0:POKE780,0:POKE781,1:POKE782,8:SYS65493
356 SYS51459:SYS2061:END
10000 OPEN1,8,15,"I0":N$="ARKBOOT"
10001 PRINT#1,"S0:"+N$:CLOSE1:SAVEN$,8:END