10 IFA>0THEN25
15 POKE53280,12:POKE53281,15:PRINT"":POKE56,126:POKE55,244:CLR
20 IFA=0THENA=1:PRINT"[147]":LOAD"DECOMPRESSOR.O",8,1
25 T$="[147][151]            DECOMPRESSOR DEMO           ":PRINTT$
30 IFA=1THENA=2:POKE53265,PEEK(53265)OR16
32 PRINT"FILENAME OF PIC":PRINT" OR (RETURN) TO EXIT :";
33 NU=0:GOSUB60500:F$=B$:GOSUB 60200
35 PRINT"LOAD ADDRESS OF PIC :";:NU=1:GOSUB60500:LA=VAL(B$)
38 IF LA<8192 THEN GOSUB 60000
40 PRINT"   [151] HIT + KEY TO CHANGE BORDER COLOR."
45 PRINT" [151] HIT - KEY TO CHANGE BACKGROUND COLOR."
50 PRINT"   [151] HIT ANY OTHER KEY TO EXIT HIRES. ":FORI=0TO3500:NEXT
55 PRINT"          HIT RUN/STOP TO END [146]"
60 GOSUB115:GOSUB100:POKE53265,PEEK(53265)OR16:D1=49152:D2=D1+26
65 SYSD1,F$,LA,52224:R1=PEEK(249)+256*PEEK(250)+6
70 SYSD2,R1,55296:R2=PEEK(249)+256*PEEK(250)+6:SYSD2,R2,57344
75 R3=PEEK(249)+256*PEEK(250)+6:POKE53281,PEEK(R3+1):POKE53280,PEEK(R3+2)
80 WAIT198,15:GETT$:IFT$="+"THENBO=BO+1:IFBO>15THENBO=0
85 IFT$="-"THENBG=BG+1:IFBG>15THENBG=0
90 IFT$="+"ORT$="-"THENPOKE53281,BG:POKE53280,BO:GOTO80
95 GOSUB115:WAIT198,15:GETT$:GOSUB100:GOTO80
100 REM ******* CHANGE BANKS *********
105 POKE53272,56:POKE53265,PEEK(53265)OR32:POKE53270,PEEK(53270)OR16
110 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR0:RETURN
115 REM ****** NORMAL SCREEN ********
120 POKE53272,21:POKE53265,PEEK(53265)AND223:POKE53270,PEEK(53270)AND239
125 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR3:RETURN
60000 PRINT"                                   "
60001 PRINT"     PLEASE ENTER A LOCATION WHICH "
60002 PRINT"         IS LARGER THAN (8192)     "
60004 PRINT"                                   "
60005 TT=VAL(TI$)+5:GOSUB 60100
60006 IFTT>VAL(TI$) THEN 60006
60007 GOTO 25
60100 SU=54272
60110 FORCL=SUTOSU+24:POKECL,.:NEXT
60120 POKE SU+24,15:POKESU,34
60130 POKE SU+1,75:POKESU+5,31
60135 POKE SU+6,15*16+9
60140 POKE SU+4,33:FORDL=1TO150:NEXT
60150 POKE SU+4,32:FORDL=1TO50:NEXT
60160 POKE SU+24,.:RETURN
60200 IFF$="" THEN 60300
60210 OPEN15,8,15,"R0:"+F$+"="+F$
60220 INPUT#15,ER:CLOSE15
60230 IF ER<>63 THEN 60250
60240 RETURN
60250 PRINT"                                   "
60251 PRINT"      DISK ERROR : FILE NOT FOUND  "
60252 PRINT"            PLEASE TRY AGAIN       "
60254 PRINT"                                   "
60255 TT=VAL(TI$)+5:GOSUB 60100
60256 IFTT>VAL(TI$) THEN 60256
60257 GOTO 25
60300 OPEN15,8,15,"R0:COMPRESS MENU=COMPRESS MENU"
60320 INPUT#15,ER:CLOSE15
60330 IF ER<>63 THEN 25
60340 LOAD"COMPRESS MENU",8
60500 POKE198,.:B$="":PRINT"[164]";:FORA=1TO17
60510 GETA$:IFA$="" THEN 60510
60520 IFA$=CHR$(13) THEN PRINT"[157] ":RETURN
60530 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:B$=LEFT$(B$,A-1):GOTO60510
60535 IFA$=CHR$(20)THEN 60510
60540 IF(A=17) OR((NU)AND(A=6)) THEN 60510
60545 IFNU=1 AND A$>="0" AND A$<="9" THEN 60560
60546 IFNU=1 THEN 60510
60547 IF A$=>"[193]" AND A$=<"[218]"  THEN 60560
60550 IF   A$<" " OR A$>"Z"  THEN 60510
60560 PRINT"[157]"A$;:POKE212,.:PRINT"[164]";:B$=B$+A$:NEXT