0 IFA>.THEN20
4 POKE53280,.:POKE53281,.
5 PRINT"[147]    PLEASE WAIT -- BOOTING LOADSTAR."
10 IFA=.THENA=1:LOAD"UNPACKER",8,1
20 IFA=1THENA=2:LOAD"COPYMEM.O",8,1
30 IFA=2THENA=3:LOAD"MIST15.O",8,1
40 IFA=3THENA=4:LOAD"INTRO.SHP",8,1
50 PRINT"                                     "
60 BM=57344:CO=52224
70 POKE249,BM/256:REM   BITMAP MEMORY
80 POKE250,CO/256:REM   COLOR MEMORY
90 POKE251,0     :REM   LOW BYTE OF SHP
100 POKE252,64   :REM  HIGH BYTE OF SHP
110 POKE253,.:POKE254,.
120 SYS51456 :REM    UNPACK THAT SHAPE!
130 BM=16384:CO=24576
140 POKE249,BM/256:REM  BITMAP MEMORY
150 POKE250,CO/256:REM  COLOR MEMORY
155 SYS32768,16384:REM CLEAR HIRES MEM
160 SYS51459      :REM  DISPLAY SCREEN
170 SYS820,52224,24576,999:REM              COPY COLOR MEMORY [35840 -> 52224]
180 SYS32771,57344,16384:REM                RANDOMLY MIST PIC....BIT BY BIT!
190 :
200 POKE318,.  :REM WHO KNOW'S WHAT THIS    IS FOR!! BETTER LEAVE IT ANYWAY...
210 POKE178,.  :REM MENU POINTER
220 POKE52084,.:REM SET UNPACKER'S          TEXT/HI-RES FLAG TO TEXT
230 :
240 POKE648,4
300 PRINT"[153]LOAD"CHR$(34)"PRESENTER"CHR$(34)",8"
310 PRINT"RUN"
320 POKE631,13:POKE632,13:POKE198,2:END