10 POKE56,88:POKE55,0:CLR:TB=36864:POKE53281,0:POKE53280,0
20 DV=PEEK(186):IFDV<8THENDV=8
22 PRINT"[147]":GOSUB60000
30 SYS57812"TOOLBOX 9000",DV,0:POKE780,0:POKE781,0:POKE782,144:SYS65493
40 SYSTB+30,"OBJ.D2F",DV,33024
50 SYSTB+30,"D2F FONT",DV,63488
60 C1=15:C2=0:SYSTB+42,"I0",DV
70 DEFFNH(ZZ)=INT(ZZ/256)
80 DEFFNL(ZZ)=ZZ-FNH(ZZ)*256
90 POKE53265,27:POKE53281,0:POKE53280,0
100 POKE648,196:PRINT"[147]";
110 POKE56578,63:POKE56576,196:POKE53272,31
120 PRINT"[147]";:SYSTB+15,0,39,0,24,64,11
130 PRINT"";:SYSTB+15,2,37,3,21,32,1
140 SYSTB+27,4,"[196][207][207][196][204][197]! TO [198]ONT [195]ONVERTER"
150 PRINT"[158]";:SYSTB+27,6,"BY [202]OHN [215]ILLIAM [200]ARRIS"
160 SYSTB+27,7,"([212]HE [205]AD [199]AMER)...(YET AGAIN)"
170 PRINT"[150]";
180 SYSTB+24,8,9,"[204]OAD: [196][207][207][196][204][197]!/[210]UN[208]AINT"
190 SYSTB+24,8,10,"[214]IEW: [196][207][207][196][204][197]! (COLOR)"
200 SYSTB+24,8,11,"[214]IEW: [196][207][207][196][204][197]! (MONO)"
210 SYSTB+24,8,12,"[195]ONVERT: [196][207][207][196][204][197]! TO [198]ONT"
220 SYSTB+24,8,13,"[214]IEW: [198]ONT/[211]CREEN"
230 SYSTB+24,8,14,"[211]AVE: [198]ONT/[211]CREEN"
240 SYSTB+24,8,15,"[195]HANGE COLORS"
250 SYSTB+24,8,16,"[193]DDRESS AND [195]REDITS"
260 SYSTB+24,8,17,"[210]ETURN TO [204][207][193][196][211][212][193][210]"
270 PRINT"[153]";:SYSTB+27,19,"[213]SE [195][210][211][210] [213][208]/[196][207][215][206] AND [210][197][212][213][210][206]"
290 SYSTB+48,9,7,32,9,10,1,81
300 ONF%GOTO320,370,410,450,550,570,700,810,870
310 GOTO120
320 SYSTB,"$:*",DV,57344,10,8,7,13,14
330 IFF$=""THEN120
340 IFVAL(E$)THEN820
350 SYSTB+30,F$,DV,23552:IFVAL(E$)THEN820
360 GOTO120
370 POKE56578,63:POKE56576,198:POKE53272,31:POKE53281,15:POKE53280,0
380 POKE53265,59:POKE53272,120
390 SYSTB+15,0,39,0,24,C1+C2*16,0
400 POKE198,0:WAIT198,1:POKE198,0:GOTO90
410 POKE56578,63:POKE56576,198:POKE53272,31:POKE53281,15:POKE53280,0
420 POKE648,88:POKE53265,59:POKE53272,104
430 SYSTB+15,0,39,0,24,C1+C2*16,0
440 POKE198,0:WAIT198,1:POKE198,0:GOTO90
450 POKE53272,2:POKE53281,C1:SYSTB+15,0,39,0,24,255,C2
460 SYS33024:POKE198,0:WAIT198,1:POKE198,0
470 PRINT"[147]";
480 POKE56578,63:POKE56576,196:POKE53272,31:POKE53281,0:POKE53280,0
490 PRINT"[158]";:SYSTB+27,9,"[195]ONVERSION SYNOPSIS:"
500 A$="S":IFPEEK(828)=1THENA$=""
510 SYSTB+27,11,STR$(PEEK(828))+" CHARACTER"+A$+" USED"
520 IFPEEK(829)=1THENSYSTB+27,13,"[195]OMPLETE CONVERSION NOT POSSIBLE."
530 SYSTB+27,15,"-- [208]RESS A KEY --"
540 POKE198,0:WAIT198,1:POKE198,0:GOTO120
550 POKE53272,2:POKE53281,C1:SYSTB+15,0,39,0,24,255,C2
560 POKE198,0:WAIT198,1:POKE198,0:GOTO90
570 SYSTB+15,10,29,11,14,160,13
580 SYSTB+15,13,26,13,13,32,13
590 SYSTB+24,13,12,"[197]NTER [198]ILENAME"
600 SYSTB+24,0,13,"":PRINT">";:SYSTB+66,3,160,12
610 IFW$=""THEN120
620 FORA=1TOLEN(W$):L$=MID$(W$,A,1)
630 IFL$=","ORL$=":"THENA=LEN(W$):NEXT:GOTO570
640 NEXT
650 F$="F."+W$:SA=51200:EA=53248:GOSUB830
660 IFVAL(E$)THEN820
670 F$="SCR."+W$:SA=49152:EA=50152:GOSUB830
680 IFVAL(E$)THEN820
690 GOTO120
700 PRINT"[147]";:GOSUB800
710 PRINT"[158]";:SYSTB+27,4,"[208]RESS [198]1 TO CHANGE THE BACKGROUND"
720 SYSTB+27,6,"COLOR, [198]3 TO CHANGE THE FOREGROUND,"
730 SYSTB+27,8,"[198]5 TO RESTORE THE DEFAULT COLORS, OR"
740 SYSTB+27,10,"[198]7 TO RETURN TO THE MENU."
750 SYSTB+45,"[133][134][135][136]":ONF%GOTO760,770,780,790
760 C1=C1+1AND15:GOSUB800:GOTO750
770 C2=C2+1AND15:GOSUB800:GOTO750
780 C1=15:C2=0:GOSUB800:GOTO750
790 GOTO120
800 SYSTB+15,10,29,18,22,160,C1:SYSTB+15,15,24,19,21,160,C2:RETURN
810 PRINT"[159][147]";:SYSTB+51,"T.D2F WORDS",DV:GOTO120
820 PRINT"";:SYSTB+27,1,"[196][201][211][203] [197][210][210][207][210]:"+E$:POKE198,0:WAIT198,1:POKE198,0:GOTO120
830 SYS57812F$,DV:POKE193,FNL(SA):POKE194,FNH(SA):POKE174,FNL(EA):POKE175,FNH(EA)
840 SYS62954
850 SYSTB+42,"",DV
860 RETURN
870 PRINT"[147]":POKE56578,63:POKE56576,71:POKE53272,23:POKE648,4:PRINT"[147]"
874 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN890
880 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN900
890 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
900 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
910 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
920 END
10000 OPEN15,8,15,"S0:D2F":CLOSE15:SAVE"D2F",8:END
60000 Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[196] [207] [207] [196] [204] [197]   [212] [207]   [198] [207] [206] [212]":Z$(1)="BY [202]OHNNY [200]ARRIS"
60040 Z$(2)="([195]) 1994 BY [211]OFTDISK [208]UBLISHING"+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]