10 POKE 56,64:CLR:DV=PEEK(186):IFDV<8THENDV=8
20 PRINT"[147]"CHR$(142)CHR$(14):POKE 53280,0:POKE 53281,0:GOSUB 60000
30 SYS 57812"FONTEDIT.O",DV,0:POKE 780,0:POKE 781,0:POKE 782,128:SYS 65493
40 SYS 32768
1000 POKE 53265,11:B$="[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
1010 PRINT"[147]":T$="[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
1020 M$(1)="[194][159][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][146][154][194]"
1030 M$(2)="[154][194][159][194][146][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][159][194][146][154][194]"
1040 M$(3)="[154][194][159][194][146][194][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][146][194][159][194][146][154][194]"
1050 M$(4)="[154][194][159][194][146][194][156][194][153]                            [156][194][146][194][159][194][146][154][194]"
1060 M$(5)="[154][194][159][194][146][194][156][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][146][194][159][194][146][154][194]"
1070 M$(6)="[154][194][159][194][146][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][159][194][146][154][194]"
1080 M$(7)="[194][159][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][146][154][194]"
1090 PRINTTAB(3)T$
1100 FORI=1TO3:PRINTTAB(3)M$(I):NEXT
1110 FORI=1TO11:PRINTTAB(3)M$(4):NEXT
1120 FORI=5TO7:PRINTTAB(3)M$(I):NEXT
1130 PRINTTAB(3)B$
1140 PRINT""TAB(11)"[158]   [153] [150]                "
1150 PRINTTAB(11)"[158] L [153] [150] GO TO LOADSTAR "
1160 PRINTTAB(11)"[158]   [153] [150]                "
1170 PRINTTAB(9)"   [153] [154]                    "
1180 PRINTTAB(9)" F [153] [154] RETURN TO FONTEDIT "
1190 PRINTTAB(9)"   [153] [154]                    ":POKE53265,27
2000 GET A$:IF A$<>"L" AND A$<>"F" THEN 2000
2100 IF A$="F" THEN 40
2110 GOTO40000
10000 OPEN15,8,15,"S0:FONTEDIT BOOT":CLOSE15:SAVE"FONTEDIT BOOT",8:END
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE56,160:POKE186,8:END
40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":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)="[198] [207] [206] [212] [197] [196] [201] [212]":Z$(1)="BY [210]ICK [203]EPHART"
60040 Z$(2)="([195]) 1993 BY [211]OFTDISK [208]UBLISHING"+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)OFTDISK (null)UBLISHING.  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]