10 POKE55,0:POKE56,44:CLR
12 SYS36924,32768,34816,12288
13 POKE53280,15:POKE53281,15:POKE53272,28
14 PRINT"[147]"
16 POKE648,44:PRINT"[152][147]":POKE648,4
22 IR=5*4096:TB=9*4096:P=256:CV=84*256
23 RA=20749:BA=20751:POKEBA,28
24 W1$=" -EXPANDED TO PACKED FONT- "
26 W2$=" -PACKED TO EXPANDED FONT- "
30 GOSUB5060
32 W$=" 1997 [202] & [198] [208]UBLISHING ":R=16
34 GOSUB4200:GOSUB4300
35 SYSTB+60,26624,28672,14336
36 SYSIR
38 IFPEEK(RA)<>129THEN38
39 POKEBA,190
40 W$="FONT EXPANDER":R=1:GOSUB4000
42 W$="BY":R=4:GOSUB4000
44 W$="KEN ROBINSON":R=7:GOSUB4000
46 GOSUB4300:GOSUB4300:GOSUB4300
47 POKEBA,28
48 SYSIR+3
50 IFPEEK(788)<>49THEN50
52 SYSTB+21,72
54 SYSTB+15,4,35,12,21,160,0
56 SYSTB+18,91
58 :
60 SYSTB+21,91
61 W$="[204][207][193][196][160][198][207][206][212] [205][197][206][213]":R=13:GOSUB4200
62 W$="[204]OAD FROM DISK":R=15:GOSUB4200
64 W$="[213]PPER/[199]RFX [210][207][205]":R=16:GOSUB4200
66 W$="[204]OWER/[213]PPER [210][207][205]":R=17:GOSUB4200
67 W$="[198]ROM [213]LTRA[198]ONT+":R=18:GOSUB4200
68 W$="[196]IRECTORY/[196]OS":R=19:GOSUB4200
69 W$="[209]UIT":R=20:GOSUB4200
70 SYSTB+48,15,12,28,6,128,128+06,0
72 SYSTB+21,72:ONF%GOTO76,88,90,96,74
73 GOSUB9000:GOTO60
74 GOSUB4800:GOTO60
76 GOSUB4400:IFD=0THEN60
77 SYSTB+21,72:W$=" * [204]OADING [196]IRECTORY * ":R=17:GOSUB4200
78 SYSTB,"$:*=P",D,14*4096,10,4,12,0,2
80 IFVAL(E$)<>0THENW$=" "+E$+" ":GOSUB4500:GOTO60
81 IFF%=0THENW$=" * [206][207][160][208][210][199] [198][201][204][197][211][160][207][206][160][196][201][211][203]! * ":GOSUB4500:GOTO60
82 IFF$=""THEN60
83 SYSTB+21,72:SYSIR+15,14336,16383,0
84 W$=" [204]OADING "+CHR$(34)+F$+CHR$(34)+" ":R=17:GOSUB4200
85 SYS57812F$,D,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
86 GOTO100
88 BK=208:GOTO92
90 BK=216
92 POKE56334,0:POKE1,51:SYSTB+60,BK*P,BK*P+2048,14336
94 POKE1,55:POKE56334,1:GOTO100
96 GOSUB7500:IFE%GOTO60
98 SYSTB+60,28672,30720,14336
100 :
102 GOSUB5365
104 SYSIR
106 IFPEEK(RA)<>129THEN106
108 POKEBA,190
110 GOSUB4600
112 W$="[198][207][206][212][160][211][201][218][197][160][205][197][206][213]":R=13:GOSUB4200
114 W$="[196]OUBLE [215]IDTH":R=15:GOSUB4200
116 W$="[196]OUBLE [200]EIGHT":R=16:GOSUB4200
118 W$="[209]UADRUPLE":R=17:GOSUB4200
119 W$="[204]OAD FONT":R=18:GOSUB4200
120 W$="[211]AVE FONT":R=19:GOSUB4200
121 W$="[209]UIT":R=20:GOSUB4200
122 SYSTB+48,15,13,27,6,128,134,0
123 IFF%=6THENGOSUB9000:GOTO100
124 IFF%=5THEN7000
125 IFF%=4THEN47
126 MD=F%
128 GOSUB4600
130 W$="[195][207][206][214][197][210][211][201][207][206][160][205][197][206][213]":R=13:GOSUB4200
132 W$="[211]TANDARD TO [197]XPANDED":R=15:GOSUB4200
134 W$="[197]XPANDED TO [208]ACKED":R=16:GOSUB4200
136 W$="[208]ACKED TO [197]XPANDED":R=17:GOSUB4200
138 W$="[195]ANCEL":R=18:GOSUB4200
140 SYSTB+48,15,9,30,4,128,134,0
142 IFF%=4THEN110
143 PC=F%:GOSUB4700
144 SYSTB+60,56*P,16384,64*P
146 A1=56*P:A2=64*P
160 ONMDGOTO1000,2000,3000
170 END
1000 :
1090 ONPCGOTO1140,1330,1460
1140 GOSUB8000
1150 W$=" -CONVERTING TO [216][215] FONT- ":R=14:GOSUB4200
1160 SYSCV,ML
1230 W$=" -DONE!- ":GOSUB4505
1240 GOTO7000
1330 W$=W1$:R=14:GOSUB4200
1340 SYSCV+3
1400 GOTO1230
1460 W$=W2$:R=14:GOSUB4200
1470 SYSCV+6
1530 GOTO1230
2000 :
2090 ONPCGOTO2150,2360,2490
2150 W$=" -CONVERTING TO [216][200] FONT- ":R=14:GOSUB4200
2160 SYSCV+9,ML
2260 GOTO1230
2360 W$=W1$:R=14:GOSUB4200
2370 SYSCV+12
2430 GOTO1230
2490 W$=W2$:R=14:GOSUB4200
2500 SYSCV+15
2560 GOTO1230
3000 :
3090 ONPCGOTO3095,3480,3630
3095 GOSUB8000
3100 GOSUB4600
3110 W$="[205][207][214][197][160][213][208][208][197][210][160][212][207][160][204][207][215][197][210][160][195][193][211][197]?":R=13:GOSUB4200
3120 W$="NO":R=15:GOSUB4200
3130 W$="YES":R=16:GOSUB4200
3140 SYSTB+48,15,18,22,2,128,134,0
3150 MU=F%:GOSUB4700
3180 IFMU=1THEN3230
3190 SYSTB+60,64*P,17408,140*P
3200 SYSTB+60,16904,17112,16392
3230 W$=" -CONVERTING TO [209][213][193][196][160]FONT- ":R=14:GOSUB4200
3240 SYSCV+18,ML
3380 GOTO1230
3480 W$=W1$:R=14:GOSUB4200
3490 SYSCV+21
3570 GOTO1230
3630 W$=W2$:R=14:GOSUB4200
3640 SYSCV+24
3720 GOTO1230
4000 :
4005 POKE648,44
4008 PRINT"[144]";:IFR=0THEN4020
4010 POKE214,R-1:PRINT
4020 L=0:FORX=1TOLEN(W$)
4030 IF(ASC(MID$(W$,X,1))AND96)<>0THENL=L+1
4040 NEXT:IFL>19THENRETURN
4050 TA=20-L:PRINTTAB(TA);
4060 FORX=1TOLEN(W$)
4070 A=ASC(MID$(W$,X,1))
4080 IF(AAND96)=0THENPRINTCHR$(A);:GOTO4110
4090 PRINTCHR$(A)CHR$(A+128);
4100 PRINT"[157][157]";CHR$(A)CHR$(A+128);"[146][145]";
4110 NEXT:PRINT:PRINT
4120 POKE648,4:RETURN
4200 :
4205 PRINT"[144]";
4210 SYSTB+27,R,W$
4220 PRINT"[146]"
4230 RETURN
4300 :
4305 T=TI+60
4310 IFT>TITHEN4310
4320 RETURN
4400 :
4405 SYSTB+21,72
4410 SYSTB+15,11,27,12,21,160,0
4415 W$="[196][201][211][203][160][196][197][214] #":R=13:GOSUB4200
4420 FORR=15TO18:W$=STR$(R-7):GOSUB4200:NEXT
4422 W$="[195]ANCEL":R=19:GOSUB4200
4425 SYSTB+48,15,16,23,5,128,134,0
4430 D=0:IFF%=5THENRETURN
4435 D=F%+7:OPEN2,D,2:CLOSE2
4440 IFST=0THENRETURN
4445 W$=" * [196][197][214][201][195][197][160][206][207][212][160][208][210][197][211][197][206][212] * "
4450 GOSUB4500
4455 D=0:RETURN
4500 :
4501 GOSUB4700
4505 R=16:GOSUB4200
4510 W$=" [208]RESS [211][208][193][195][197][160]TO CONTINUE ":R=19:GOSUB4200
4515 GOSUB5340:RETURN
4600 SYSTB+60,23696,24296,1424
4610 SYSTB+60,24720,25320,55696:RETURN
4700 SYSTB+60,18832,19432,1424
4710 SYSTB+60,19856,20456,55696:RETURN
4800 SYSTB+21,91
4802 W$="[196][201][211][203][160][198][213][206][195][212][201][207][206][211]":R=13:GOSUB4200
4804 W$="[196]IRECTORY":R=15:GOSUB4200
4806 W$="[196]OS [195]OMMAND":R=16:GOSUB4200
4808 W$="[195]ANCEL":R=17:GOSUB4200
4810 SYSTB+48,15,14,26,3,128,128+2,0
4812 DS=F%:IFDS=3THENRETURN
4814 GOSUB4400:IFD=0THENRETURN
4816 IFDS=1THENSYSIR+21,D:RETURN
4818 SYSTB+15,4,35,15,19,32,15
4820 PRINT"[144]":SYSTB+27,16,"[208]RESS [210][197][212][213][210][206] FOR ERROR MESSAGE"
4822 SYSTB+24,5,17,"@"
4824 SYSTB+66,11,0,29
4826 SYSTB+42,W$,D:CLOSE15
4828 SYSTB+27,18,E$
4830 GOSUB5340:RETURN
5050 :
5060 POKE214,9:PRINT
5070 PRINT"[151] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
5080 FORX=1TO12
5090 PRINT" [221][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][161]"
5100 NEXT
5110 PRINT" [173][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][189]"
5120 SYSTB+18,72:RETURN
5330 :
5340 POKE198,0
5350 GETA$:IFA$<>" "THEN5350
5360 RETURN
5365 :
5370 POKE648,44:A$=CHR$(34)+CHR$(34)+CHR$(20)
5380 PRINT"[144]";
5390 PRINT"[152]                                            [144]@ABCDEFGHIJK";
5400 PRINT"LMNOPQRSTUVWXYZ[\]^_[152]        [144] !"A$"#$%&'()*+,-./012345678";
5410 PRINT"9:;<=>?[152]        [144][192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218][219][220][221][255][223][152]        [144][160]";
5420 PRINT"[161][162][163][164][165][166][167][168][169][170][171][172][173][174][175][176][177][178][179][180][181][182][183][184][185][186][187][188][189][190][191][152]        [144]@ABCDEFGHIJKLMNO";
5430 PRINT"PQRSTUVWXYZ[\]^_[146][152]        [144] !"A$"#$%&'()*+";
5440 POKE648,45 :PRINT:PRINT:PRINT"";
5450 PRINT"[144],-./0123456789:;<=>?[146][152]        [144][192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217]";
5460 PRINT"[144][218][219][220][221][255][223][146][152]        [144][160][161][162][163][164][165][166][167][168][169][170][171][172][173][174][175][176][177][178][179][180][181][182][183][184][185][186][187][188][189][190][191][146][152]       ";
5470 PRINT"                                     ";
5480 POKE648,4:PRINT"[151]"
5490 RETURN
7000 POKEBA,28:SYSIR+3
7002 IFPEEK(788)<>49THEN7002
7005 GOSUB4600
7010 W$="[211][193][214][197][160][198][207][206][212] [205][197][206][213]":R=13:GOSUB4200
7012 W$="[211]AVE TO DISK":R=15:GOSUB4200
7014 W$="[211]AVE TO [213]LTRA[198]ONT+":R=16:GOSUB4200
7016 W$="[213]NDO LAST CONVERSION":R=17:GOSUB4200
7017 W$="[196]O ANOTHER CONVERSION":R=18:GOSUB4200
7018 W$="[204]OAD FONT":R=19:GOSUB4200
7019 W$="[196]IRECTORY/[196]OS":R=20:GOSUB4200
7020 W$="[209]UIT":R=21:GOSUB4200
7030 SYSTB+48,15,9,31,7,128,134,0
7032 ONF%GOTO7036,7100,7110,100,60,7034
7033 GOSUB9000:GOTO7005
7034 GOSUB4800:GOTO7005
7036 GOSUB4700
7037 GOSUB4400:IFD=0THEN7005
7038 SYSTB+15,4,35,16,18,32,15
7040 PRINT"[144]":SYSTB+24,5,17,"FILENAME:"
7042 SYSTB+66,11,0,16
7043 IFW$=""THEN7005
7044 FL$=W$:GOSUB4600
7046 W$="[204]OAD [193]DDRESS":R=13:GOSUB4200
7048 W$="$0800":R=15:GOSUB4200
7049 W$="$2000":R=16:GOSUB4200
7050 W$="$2800":R=17:GOSUB4200
7051 W$="$3000":R=18:GOSUB4200
7052 W$="$3800":R=19:GOSUB4200
7053 W$="$7000":R=20:GOSUB4200
7054 W$="$[195]000":R=21:GOSUB4200
7056 SYSTB+48,15,17,23,7,128,134,0
7057 IFF%=1THENAD=8
7058 IFF%=2THENAD=32
7059 IFF%=3THENAD=40
7060 IFF%=4THENAD=48
7061 IFF%=5THENAD=56
7062 IFF%=6THENAD=112
7064 IFF%=7THENAD=192
7065 SYSTB+42,"S0:"+FL$,D:CLOSE15
7066 OPEN15,D,15:OPEN8,D,8,FL$+",P,W"
7068 INPUT#15,E$,ER$,T$,S$:IFVAL(E$)>19THEN7090
7075 GOSUB4700:W$=" [211]AVING: "+CHR$(34)+FL$+CHR$(34)+" ":R=17:GOSUB4200
7080 PRINT#8,CHR$(0);CHR$(AD);
7082 SYSIRQ+18
7084 CLOSE8:INPUT#15,E$,ER$,T$,S$:IFVAL(E$)>19THEN7090
7086 CLOSE15:GOTO7005
7090 CLOSE8:CLOSE15:W$="[160]"+E$+","+ER$+","+T$+","+S$+" "
7095 GOSUB4500:GOTO7005
7100 GOSUB7500:IFE%THEN7005
7102 SYSTB+60,56*P,16384,112*P
7104 GOSUB4700:GOTO1230
7110 IFPC=0THEN7005
7111 IFMU=2THENSYSTB+60,140*P,36864,64*P:MU=0
7112 SYSTB+60,64*P,18432,56*P
7114 PC=0:MD=0:GOTO100
7500 E%=0:IFPEEK(49152)+PEEK(49153)+PEEK(49154)=472THENRETURN
7510 GOSUB4700
7520 W$=" * [213]LTRA[198]ONT+ NOT DETECTED! * ":GOSUB4500
7530 E%=-1:RETURN
8000 GOSUB4600
8002 W$="[212][217][208][197][160][207][198][160][211][212][193][206][196][193][210][196][160][198][207][206][212]?":R=13:GOSUB4200
8004 W$="[200]IRES":R=15:GOSUB4200
8006 W$="[205]ULTICOLOR":R=16:GOSUB4200
8008 SYSTB+48,15,14,25,2,128,134,0
8010 ML=F%-1
8014 GOSUB4700:RETURN
9000 POKEBA,28:SYSIR+3
9002 IFPEEK(788)<>49THEN9002
9004 GOSUB4600
9006 W$="[209][213][201][212][160][208][210][207][199][210][193][205]":R=13:GOSUB4200
9008 W$="[212]O [204]OADSTAR":R=15:GOSUB4200
9010 W$="[212]O [194]ASIC":R=16:GOSUB4200
9012 W$="[212]O [213]LTRA[198]ONT+":R=17:GOSUB4200
9014 W$="[195]ANCEL":R=18:GOSUB4200
9020 SYSTB+48,15,13,27,4,128,134,0
9022 ONF%GOTO9030,9040,9050,9060
9030 B=0:GOTO39000
9040 B=1:GOTO39000
9050 GOSUB7500:IFE%THEN9004
9052 SYS49152
9060 RETURN
39000 POKE53280,0:POKE53281,0:POKE646,1:PRINT"[147]"
39010 IFBGOTO40020
40010 A$="PRESENTER":GOSUB40030:A$="HELLO CONNECT":GOSUB40030
40020 POKE53272,23:POKE186,8:END
40030 FORJ=8TO29:I=J: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:RETURN
40070 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):POKE53272,23
40080 PRINT"[147]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