0 REM PYRAMID BOOT
1 D=PEEK(186):IFD<8THENPOKE186,8:GOTO1
5 IFX=0THENX=1:LOAD"UNPACKER",D,1
6 IFX=1THENX=2:LOAD"PYRAMID.TITLE.SHP",D,1
7 IFX=2THENX=3:LOAD"HI-RES TEXT.O",D,1
10 POKE249,224:POKE250,204:                 REM SCREEN/COLOR
20 POKE251,0:POKE252,64:                    REM SHP BUFFER
30 POKE253,0:POKE254,0:                     REM   X-POS,Y-POS
34 PRINT"[147]"
35 POKE53281,1: REM  BORDER TO WHITE
50 SYS51456:    REM  UNPACK NORMAL SHP
60 SYS51459:    REM  SHOW SCREEN
70 F$="PYRAMID":REM  FILE TO LOAD & RUN
75 P$=CHR$(34)+"PRESS ANY KEY"+CHR$(34):   T$="SYS50759,"+P$+",14*8,24*8"
80 PRINT"[147]LOADF$,D"
81 PRINT""T$;
82 PRINT":POKE198,0:WAIT198,1:SYS51459:RUN"
83 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="B.PYRAMID":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END