10 POKE56,16:CLR:PRINT"[147]"
20 DV=PEEK(186):IFDV<8ORDV>29THENDV=8
30 SYS57812"TOOLKIT 1000",DV,0:POKE780,0:POKE781,0:POKE782,16:SYS65493
40 MT=4096:BOX=MT+3
50 SYSBOX,0,39,0,20,95,12:SYSBOX,5,33,5,13,255,11:SYSBOX,6,34,4,12,160,12
60 SYSBOX,1,38,1,1,160,15:PRINT"[155]";:SYSMT+18,1,"[208][160][210] [207] [199] [210] [193] [205]   [198] [210] [197] [197] [218] [197] [210]"
70 PRINT"[152]";:FORI=1TO7:READA$:SYSMT+18,4+I,A$:NEXT
75 FORI=1TO5:READL(I):NEXT
80 PRINT"[146][158]";:SYSMT+18,23,"[208]LEASE SELECT AREA TO INSTALL FREEZER"
90 SYSMT,5,6,34,7,12+128,1+128,ASC("Q")
100 GETA$:A=VAL(A$):IFA=0ORA=7THEN40000
110 IFA<6THENA=L(A):GOTO200
120 SYSBOX,0,39,23,23,32,0:SYSMT+15,2,23,"[146][197]NTER ADDRESS:[158]":LI=5:GOSUB50000
130 IFVAL(W$)=0THEN80
140 A=VAL(W$)
200 SYSBOX,0,39,23,23,32,0:SYSMT+18,23,"[204][207][193][196]ING [198]REEZER [195]ODE...
210 H[178][181](A[173]256):L[178]A[171]H[172]256
220 [158]57812"FREEZE.O",DV,0:[151]780,0:[151]781,L:[151]782,H:[158]65493
230 [158]A,A:[151]56,160:[156]:[153]"LOADASCREEZER INSTALLED. (null)VAL(null)(null)(null)(null)VAL TO FREEZE":[162]
5000 [131]"LENASSETTE PEEKUFFER","(null)OW LEN000","LEFT$IGH LEN000","LEFT$IGH PEEKATN(null)RIGHT$LEN","(null)ID PEEKATN(null)RIGHT$LEN"
5010 [131]"VALNTER ATNDDRESS (null)ANUALLY","(null)ETURN (null)O (null)(null)ATNSTR$(null)(null)ATN(null)
5020 DATA828,49152,52992,40704,20480
30000 STOP
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE56,160:CLR:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
50000 W$="":T=0:LW=0:IFLI=0THENLI=35
50010 GETA$:AS=ASC(A$+CHR$(0)):IFTI>15THENGOSUB50090
50020 IF(A$<" "ORA$>"Z")AND(A$<"[193]"ORA$>"[218]")ANDAS<>13ANDAS<>20THEN50010
50030 LW=LEN(W$):IFAS=13THENT=-1:GOSUB50090:RETURN
50040 IFLW=LITHENIFAS<>20ANDAS<>13THEN50010
50050 IFAS=20THENIFLW=0THEN50010
50060 IFAS=20THENW$=LEFT$(W$,LEN(W$)-1):T=0:GOSUB50090:GOSUB50090:PRINT"[146][157] [157]";:GOTO50010
50070 W$=W$+A$:LW=LEN(W$):POKE212,0:PRINT"[146]"A$;:GOSUB50090
50080 GOTO50010
50090 T=NOTT:POKE199,-T:PRINT" [157]";:TI$="000000":RETURN