1 POKE249,32:POKE250,4
2 POKE251,0:POKE252,64
3 POKE253,0:POKE254,0
10 REM    COMP.EYES.VIEWER
11 IFYY=0THENYY=1:LOAD"UNPACKER",8,1
15 IFLF>0THEN100
20 PRINT"[147][144]"SPC(5)"COMPUTEREYES PICTURE SHOWER"
30 POKE53281,1:POKE53280,6
40 PRINT" ==> 1. VIEW LOUISIANA BONES PICTURE
45 [153]"        (NORMAL SCAN)"
50 [153]" ==> 2. VIEW C64 AND PENNY PICTURE
55 PRINT"        (8-LEVEL SCAN)"
60 PRINT" ==> 3. RETURN TO COMPUTEREYES MENU"
62 LF=0
65 PRINT"WHICH ?";
70 POKE198,0:WAIT198,1:GETA$
80 IFA$<"1"ORA$>"3"THEN70
82 PRINTA$:IFA$="1"ORA$="2"THENPRINT"  TO RETURN TO THIS MENU, PRESS A KEY"
85 IFA$="1"THENLF=1:LOAD"LA.BONES.SHP",8,1
87 IFA$="2"THENLF=1:LOAD"C64&PENNY.SHP",8,1
88 PRINT"[147]LOAD"CHR$(34)"COMP.EYES.MENU"CHR$(34)",8":PRINT"RUN"
89 POKE51201,1:POKE65535,14:POKE631,13:POKE632,13:POKE198,2:END
90 REM
100 REM  SHOW PICTURE/WAIT FOR KEY
101 SYS51456:SYS51459
103 FORX=1024TO2023:POKEX,16:NEXT
104 POKE198,0:WAIT198,1:GETZ$
105 SYS51459:PRINT"[147]"
108 LF=0:GOTO1