0 'Adapted from LCDIO in DL4		   Re-written (So it works!)		   and compressed by		CAMZ				  72757,3076
10 CLEAR256,MAXRAM-1920
20 Q$=INPUT$(1):IFQ$="S"THEN Z%(0)=22 ELSE LOADM"IMAGE":Z%(0)=278
30 HL=HIMEM+1:Z%(1)=13005:Z%(2)=-13964
40 FORR%=0TO7:FORC%=0TO39
50 CALL30300:POKE-12,R%:POKE-11,C%
60 CALLVARPTR(Z%(0)),0,HL:HL=HL+6
70 NEXT C%,R%
80 IFQ$="S" THEN SAVEM "IMAGE",HIMEM,HIMEM+1920,29
90 CLEAR256,MAXRAM:Q$=INPUT$(1):MENU