0 REM HOLMES BOOT
4 DV=PEEK(186):IFDV<8THENDV=8
5 IFX=0THENX=1:LOAD"UNPACKER",DV,1
6 IFX=1THENX=2:LOAD"HOLMES.TITLE.SHP",DV,1
7 IFX=2THENX=3:LOAD"HI-RES TEXT.O",DV,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
35 POKE53281,0: REM  BORDER TO WHITE
50 SYS51456:    REM  UNPACK NORMAL SHP
60 SYS51459:    REM  SHOW SCREEN
70 F$="SEARCH HOLMES":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$,DV"
81 PRINT""T$;
82 PRINT":POKE198,0:WAIT198,1:SYS51459:RUN"
83 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):OPEN1,D,15,"I0":CLOSE1:N$="B.HOLMES"
10001 OPEN1,D,15,"S0:"+N$:CLOSE1:SAVEN$,D:END