1 POKE53265,11:PRINT"[147]":GOTO158
2 FORI=1TO(950*TS):NEXT:RETURN
3 POKEPO,11:PRINT"[147]            [153]#$%()*,/;*,[219][220][221]"
4 PRINT"[155][192][192][192][192][192][192][192][192][192][192][192] [255][223][187][188][189][190]?[219][220][146][190]?[221][255][223][146] [155][192][192][192][192][192][192][192][192][192][192][192][192]":RETURN
5 IFSC=-1THENRETURN
6 IFSC=8THENGOSUB47:RETURN
7 SC=SC+1:FORT=0TO11:SC$(SC,T)=" ":NEXT:TR=0:GOTO11
8 IFSC=-1THENRETURN
9 IFSC=0THENGOSUB47:RETURN
10 SC=SC-1
11 POKEQ,20:PRINT:PRINTR$"[158]"SC+1"SCREENS IN FILE"
12 IFTRTHENPRINTR$"[150]TRANSLATED":RETURN
13 PRINTR$"[150]NOT TRANSLATED":RETURN
14 POKEQ,X+Y:PRINT:PRINT"[155][192][146] [158]"M$(Y)" [155][191][146][145]":GOSUB43
15 PRINT"^[159] "M$(Y)" [155]_":IFG$=""THENY=Y+1:IFY>WTHENY=V
16 IFG$="[145]"THENY=Y-1:IFY<VTHENY=W
17 IFG$="[166]"THENGOSUB5
18 IFG$="[220]"THENGOSUB8
19 IFG$=CHR$(13)THENY=Y-V+1:RETURN
20 IFG$="[136]"ORG$=""THENRETURN
21 GOTO14
22 Q$="":POKE198,0
23 GETG$:PRINT"@[157][146]";:IFG$=""THEN23
24 IFG$=CHR$(13)THENPRINT" ":RETURN
25 IF(G$=CHR$(20)ANDLEN(Q$))THENQ$=LEFT$(Q$,LEN(Q$)-1):GOTO31
26 IFLEN(Q$)=L%THEN23
27 IF(G$>"/"ANDG$<";")OR(G$>"@"ANDG$<"[")ORG$=CHR$(32)ORG$=CHR$(160)THEN30
28 IFG$="!"ORG$="&"ORG$="'"ORG$="."ORG$="?"ORG$="[192]"THEN30
29 GOTO23
30 Q$=Q$+G$
31 PRINTG$;:GOTO23
32 B=18:E=24
33 FORI=BTOE:GOSUB34:NEXT:RETURN
34 POKE781,I:SYS59903:RETURN
35 POKE781,23-I:SYS59903:RETURN
36 FORL=1TO50:NEXT:RETURN
37 OPEN15,DV,15,"I0:":PRINT#15,"R0:"+NA$+"="+NA$:INPUT#15,ER,ER$:CLOSE15:RETURN
38 OPEN15,DV,15:INPUT#15,ER,ER$:CLOSE15:RETURN
39 PRINTR$"   ARE YOU SURE?":GOSUB47:X=25
40 PRINTTAB(X)"<Y-N>":GOTO43
41 GOSUB64:PRINT
42 PRINTR$"   [158]<PRESS A KEY>"
43 POKE198,0
44 GETG$:IFG$=""THEN44
45 RETURN
46 POKEZ+1,70:POKEZ+6,249:POKEZ+24,15:POKEZ+4,17:POKEZ+4,16:RETURN
47 POKEZ+24,15:POKEZ+5,45:POKEZ+6,165:POKEZ+4,33:POKEZ+1,6:POKEZ,5
48 FORI=1TO200:NEXT:POKEZ+4,32:POKEZ+1,0:POKEZ,0:RETURN
49 GOSUB44:IFG$="[133]"THENBO=BO+1:GOTO57
50 IFG$="[137]"THENBO=BO-1:GOTO57
51 IFG$="[134]"THENBA=BA+1:GOTO59
52 IFG$="[138]"THENBA=BA-1:GOTO59
53 IFG$="[135]"THENCO=CO+1:GOTO61
54 IFG$="[139]"THENCO=CO-1:GOTO61
55 IFG$="_"THENCO=1:BO=0:BA=0:RETURN
56 RETURN
57 IFBO<0ORBO>15THENBO=-15*(BO<0)
58 POKEBR,BO:RETURN
59 IFBA<0ORBA>15THENBA=-15*(BA<0)
60 POKEBK,BA:RETURN
61 IFCO<0ORCO>15THENCO=-15*(CO<0)
62 RETURN
63 POKEQ,Y:PRINT:RETURN
64 B=13:E=4
65 POKEQ,B:PRINT:FORI=1TOE:PRINTR$EM$:NEXT
66 POKEQ,B:PRINT:RETURN
67 IFSC=-1THEN69
68 GOSUB64:PRINTR$" [150][191]+ [158]ADDS SCREENS":PRINTR$" [150][191]- [158]DELETES SCREENS":RETURN
69 GOSUB64:PRINTR$" [158]<CRSR> KEYS SELECT":PRINTR$" <RETURN> EXECUTES"
70 PRINTR$"   <F7> OR <STOP>":PRINTR$"   EXITS PROGRAM":RETURN
71 GOSUB64:PRINTR$"    [158]SELECT DRIVE:":PRINTR$"     <8> OR <9>":GOSUB46
72 GOSUB43:IFG$="9"THENDV=9:RETURN
73 DV=8:RETURN
74 Y=21:GOSUB63:PRINT"[150]STATUS: "ER": "ER$:IFER$<>"OK"THENGOSUB47:GOTO41
75 GOSUB46:GOTO41
76 Y=21:GOSUB63:PRINTBL$:B=23:E=24:GOTO33
77 B=19:E=24:GOSUB33:Y=19:GOSUB63:GOSUB64:PRINTR$"   [158]ENTER FILENAME"
78 PRINTTAB(24)"TO "F$:Y=19:GOSUB63:PRINT"[158]FILENAME: [159]"FI$;:L%=14:Q$=FI$:GOTO23
79 GOSUB64:PRINTTAB(25)F$:PRINTTAB(28-LEN(Q$)/2)"[159]"Q$:RETURN
80 GOSUB64:PRINTR$"  [158]THERE IS NOTHING":PRINTTAB(24)F$:GOSUB47:GOTO42
81 GOSUB64:PRINTR$"[158]THIS CLEARS MEMORY!":GOTO39
82 Y=2:GOSUB63:PRINTL1$"[192][192][192][192][[192][192][192][192] [153]MINISCREEN [155][192][192][192][192]]"
83 FORI=1TO12:PRINTTAB(17)"^"EM$"_":NEXT:PRINTTAB(17)"@[192]"L2$"[192]\":Y=3:GOSUB63
84 PRINT"[158]"TAB(9)"LINE:":GOSUB63:FORI=1TO12:PRINTTAB(14)I:NEXT:Y=21:GOSUB63
85 PRINTBL$:RETURN
86 Y=3:GOSUB63:FORL=1TO12:PRINTR$EM$:NEXT:RETURN
87 Y=7:GOSUB63:PRINT"[155][[192][192][192][192][192][192][192][192][192][192][192][192]]":PRINT"^[150]CURRENT TEXT[155]_"
88 PRINT"^[150]FOR SCREEN  [155]_":PRINT"[155]@[192][192][192][192][192][192][192][192][192][192][192][192]\[159]":Y=9:GOSUB63
89 PRINTTAB(11)S+1:RETURN
90 IFQ$=" "OR(LEN(Q$)=18ANDLEFT$(Q$,1)<>" ")THENRETURN
91 GOSUB76:Y=21:GOSUB63:PRINTTAB(10)" [153]JUSTIFY COMMANDS "
92 PRINT" [153]<L>EFT        [153]<R>IGHT        [153]<C>ENTER"
93 PRINT" [153]<LF> CRSR    [153]<RT> CRSR   [153]<RETURN> DONE"
94 POKEQ,X+1:PRINT:PRINTR$EM$:PRINTR$"[145][150]"Q$
95 GOSUB43:IFG$="L"THEN102
96 IFG$="R"THEN104
97 IFG$="C"THEN106
98 IFG$=""THEN107
99 IFG$="[157]"THEN109
100 IFG$=CHR$(13)THENRETURN
101 GOTO95
102 FORI=1TOLEN(Q$):Z$=LEFT$(Q$,1):IFZ$=" "THENZ$="":Q$=RIGHT$(Q$,LEN(Q$)-1)
103 NEXT:RETURN
104 FORI=1TOLEN(Q$):Z$=RIGHT$(Q$,1):IFZ$=" "THENZ$="":Q$=LEFT$(Q$,LEN(Q$)-1)
105 NEXT:Q$=RIGHT$(EM$+Q$,18):RETURN
106 GOSUB102:Q$=LEFT$(EM$,(LEN(EM$)-LEN(Q$)-2)/2)+Q$:RETURN
107 IFLEN(Q$)<18THENQ$=" "+Q$
108 GOTO94
109 IFLEFT$(Q$,1)=" "THENQ$=RIGHT$(Q$,LEN(Q$)-1)
110 GOTO94
111 POKEQ,X:PRINT:PRINTTAB(24)"[158]"M$(Y+V-1):RETURN
112 Y=3:GOSUB63:FORL=0TO11:PRINTR$"[159]"SC$(S,L):NEXT:RETURN
113 GOSUB63:PRINTTAB(19)"[158]COLLECTING GARBAGE":PRINTTAB(20)BY$:FR=FRE(0):RETURN
114 ONCGOTO115,116,117,118,119,120,121
115 PRINT"";:FORI=1TO38:PRINTW$;:GOTO123
116 PRINT""TAB(38);:FORI=1TO38:PRINTW$"[157][157]";:GOTO123
117 FORI=0TO23:GOSUB34:GOSUB36:GOTO123
118 FORI=23TO0STEP-1:GOSUB34:GOSUB36:GOTO123
119 FORI=1TO19:PRINT""TAB(I)W$;:PRINT""TAB(38-I)W$"[157][157]";:GOTO123
120 FORI=0TO12:GOSUB34:GOSUB35:GOSUB36:GOTO123
121 FORI=0TO12:GOSUB34:GOSUB35
122 PRINT""TAB(1+I)W$;:PRINT""TAB(38-I)W$"[157][157]";
123 NEXT:FORI=1TO250:NEXT:RETURN
124 FORB=0TO8:FORE=0TO11:VE$(B,E)="":NEXT:NEXT:TR=0:RETURN
125 PRINT"  "VE$(S,T)"":RETURN
126 PRINTR$" [158]READING FONT INDEX":PRINTR$"     FROM DISK!":PRINTR$"  "BY$
127 NA$="MUTATE!INDEX":DV=8:GOSUB37:IFER=63THEN129
128 RETURN
129 FORI=0TO29:FO$(I)="":MU$(I)="":NEXT:LM=0:OPEN2,DV,2,NA$+",S,R":INPUT#2,LM
130 LM=LM-1:FORI=0TOLM:INPUT#2,FO$(I):NEXT:CLOSE2:X=LM:GOSUB38
131 FORI=0TOX:MU$(I)=MID$(FO$(I)+EM$,3,14):NEXT:LM=X+7
132 FORI=X+1TOLM:MU$(I)=LEFT$(EM$,14):NEXT:RETURN
133 PRINTR$"  [150]NO FONT INDEX ON":PRINTR$"     THIS DISK!":GOSUB47:GOTO42
134 GOSUB64:GOSUB126:IFER$<>"OK"THENGOSUB64:GOTO133
135 GOSUB46:RETURN
136 B=4:E=8:GOSUB65:Y=6:GOSUB63:GOSUB126:IFER$<>"OK"THENGOSUB65:GOTO133
137 GOSUB65:Y=7:GOSUB113:GOTO46
138 POKEPO,11:POKEA,128:PRINT"[147]"LEN(FO$)TAB(6)FO$:POKE679,BO:POKE680,BA
139 POKE681,CO:RETURN
140 OPEN3,3,3:PRINT"";:INPUT#3,FO$:X=VAL(LEFT$(FO$,4)):FO$=MID$(FO$,6,X)
141 BO=PEEK(679):BA=PEEK(680):CO=PEEK(681):POKEA,192:RETURN
142 GOSUB3:PRINT"[155][192][192][192][192][192][192][192][192][192][192][192][192] VIDEO TITLER [155][192][192][192][192][192][192][192][192][192][192][192][192][192]"
143 PRINT"[155][[192][192][192][192] [153]MAIN [155][192][192][192][192]] [[192][192] [150]COPYRIGHT 1992 [155][192][192]]"
144 PRINT"^ [159]"M$(0)" [155]_ ^[153]COMPUTE PUBLICATIONS[155]_"
145 PRINT"^ [159]"M$(1)" [155]_ ^[153] INTERNATIONAL LTD. [155]_"
146 PRINT"^ [159]"M$(2)" [155]_ ^[153]ALL RIGHTS RESERVED.[155]_"
147 PRINT"^ [159]"M$(3)" [155]_ ^[153]AUTHOR: GARY NOAKES [155]_":PRINT"^ [159]"M$(4)" [155]_ @"L3$"\"
148 PRINT"^ [159]"M$(5)" [155]_ [[192][192][192][192][192][192][192] [153]FONT [155][192][192][192][192][192][192][192]]":PRINT"@"L1$"[192]\ ^"EM$"_"
149 PRINT"[[192][192][192] [153]DESIGN [155][192][192][192]] ^"EM$"_":PRINT"^ [159]"M$(6)" [155]_ @"L3$"\"
150 PRINT"^ [159]"M$(7)" [155]_ [[192][192][192][192][192][192] [150]PROMPT [155][192][192][192][192][192][192]]"
151 PRINT"^ [159]"M$(8)" [155]_ ^"EM$"_":PRINT"^ [159]"M$(9)" [155]_ ^"EM$"_"
152 PRINT"^ [159]"M$(10)" [155]_ ^"EM$"_":PRINT"^ [159]"M$(11)" [155]_ ^"EM$"_"
153 PRINT"@"L1$"[192]\ @"L3$"\":PRINT"[[192][192][192][192][192][192][192][192][192][192] [153]CURRENT STATUS [155][192][192][192][192][192][192][192][192][192][192][192]]"
154 PRINT"^        [159]FILENAME:[155]"EM$"_":PRINT"^    [158]SCREEN COUNT:[155]"EM$"_"
155 PRINT"^   [150]TEXT TO VIDEO:[155]"EM$"_":PRINT"^        FONTNAME:[155]"EM$"_"
156 PRINT"@"L2$L2$"[192]\":Y=9:GOSUB63:PRINTR$SA$:Y=19:GOSUB63:PRINTR$"[159]"FI$
157 GOSUB11:PRINTR$""FO$:POKEPO,27:RETURN
158 BL$="[155][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][192][192][192]":FO$="MUTATE!":CO=1
159 L1$="[155][192][192][192][192][192][192][192][192][192][192][192][192][192]":L2$="[155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":L3$="[155][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
160 W$=" [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157]"
161 W$=W$+" [157] [145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":F1$="[150]F1 [159]& [150]F2[159]-BORDER    ":BR=53280
162 F3$="[150]F3 [159]& [150]F4[159]-BACKGROUND":F5$="[150]F5 [159]& [150]F6[159]-CHARACTER ":A=646:Q=214:SC=-1
163 F7$="     [150]F7[159]-MAIN MENU ":BY$="PLEASE STAND BY!":FL=53272:Z=54272
164 SA$="+,[157][157]9:[145]+,[157][157]9:[146][145][211][179][157][157][211][179][146][145][193][161][157][157][193][161][146][145][205][173][157][157][205][173][146][145][208][176][157][157][208][176][146][145]"
165 SA$=SA$+"[204][172][157][157][204][172][146][145][197][165][157][157][197][165][145]+,[157][157]9:[145]+,[157][157]9:[146][145]":PO=53265:BK=53281
166 EM$="                    ":R$="":FI$="NO FILE"
167 T$="                   "+EM$:M$="[158]              [155]     "+EM$
168 B$=" [153]                        [153]              [155]"
169 DIMER$,F$,FI$,FO$,G$,H$,NA$,Q$,V$,W$,X$,Y$,Z$,B,BA,BO,C,D,E,ED,ER,FR,I,J,L
170 DIML%,LM,ME,S,T,TR,TS,V,W,X,Y,FO$(29),M$(25),MU$(36),SC$(8,11),VE$(8,11)
171 FORI=0TO25:READM$(I):NEXT:IFCYTHENRETURN
172 POKEPO,11:PRINT"[147]":POKEBR,0:POKEBK,0:POKEFL,12:GOSUB142
173 IFLM=0THENGOSUB134
174 IFMETHEN177
175 GOSUB67:ME=0:V=0:W=5:X=3-V:Y=V:GOSUB14:IFG$="[136]"ORG$=""THEN408
176 ONYGOTO177,226,264,381,397,408
177 GOSUB67:ME=1:V=6:W=11:X=11-V:Y=V:GOSUB14:IFG$="[136]"ORG$=""THEN408
178 ONYGOTO179,194,212,219,397,175
179 IFSC>-1THENGOSUB81:IFG$<>"Y"THEN177
180 IFSC>-1THENGOSUB138:CLR:CY=1:GOSUB158:CY=0:ME=1:GOSUB140
181 GOSUB3:PRINTL1$"[192] TYPE TEXT [155][192]"L1$:GOSUB82:POKEPO,27
182 Y=22:GOSUB63:PRINT"      NUMBER OF SCREENS NEEDED:    [157][157][157][153]";
183 L%=1:GOSUB22:IFQ$=""THEN172
184 SC=VAL(Q$)-1:IFSC<0ORSC>8THEN182
185 X=2:FORS=0TOSC:GOSUB87:FORT=0TO11:GOSUB76:Y=22:GOSUB63
186 PRINT"    ENTER LINE[153]"T+1"FOR SCREEN[153]"S+1"OF[153]"SC+1:Y=17:GOSUB63
187 PRINTTAB(13)"[158]TEXT: [159]"EM$"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:L%=18:GOSUB22
188 IFQ$=""THENQ$=" "
189 GOSUB90:SC$(S,T)=Q$:X=X+1:Y=X:GOSUB63:PRINTR$EM$:PRINTR$"[145][159]"SC$(S,T)
190 NEXT:GOSUB86:X=2:NEXT
191 Y=22:GOSUB63:PRINT"    NAME OF FILE? "EM$"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][153]";
192 L%=14:GOSUB22:IFQ$=""THEN191
193 FI$=Q$:GOTO172
194 IFSC=-1THENF$="TO EDIT!":GOSUB80:GOTO177
195 GOSUB3:PRINTL1$"[192] EDIT TEXT [155][192]"L1$:GOSUB82:POKEPO,27:ED=0
196 FORS=0TOSC:GOSUB87:GOSUB112
197 Y=22:GOSUB63:PRINT"        EDIT THIS SCREEN? <[153]Y-N>       "
198 GOSUB43:IFG$="N"THEN210
199 IFG$<>"Y"THEN198
200 GOSUB63:PRINTTAB(8)"LINE NUMBER TO EDIT?    [157][157][157][153]";:L%=2
201 GOSUB22:IFQ$=""THEN197
202 T=VAL(Q$)-1:X=T+2:ED=1:IFT<0ORT>11THEN200
203 Y=17:GOSUB63:PRINT"  [158]CURRENT LINE IS: [159]"SC$(S,T)
204 Y=22:GOSUB63:PRINT"  [153]<E>NTER NEW LINE     [153]<J>USTIFY LINE  "
205 GOSUB43:IFG$="J"THENQ$=SC$(S,T):GOTO209
206 IFG$<>"E"THEN204
207 GOSUB76:Y=18:GOSUB63
208 PRINT"   [158]ENTER NEW LINE: [159]";:L%=18:GOSUB22:IFQ$=""THENQ$=" "
209 GOSUB90:GOSUB76:SC$(S,T)=Q$:GOSUB86:B=18:E=19:GOSUB33:GOSUB112:GOTO197
210 GOSUB86:NEXT:IFEDTHENGOSUB124:Y=8:GOSUB113
211 GOTO172
212 IFSC>-1THENGOSUB81:IFG$<>"Y"THEN177
213 IFSC>-1THENGOSUB138:CLR:CY=1:GOSUB158:CY=0:ME=1:GOSUB140:GOSUB142
214 F$="LOAD":FI$="":GOSUB77:IFQ$=""THENFI$="NO FILE":GOSUB143:GOTO173
215 NA$="T!"+Q$:DV=PEEK(251):GOSUB37:IFER<>63THEN225
216 F$="[158]LOADING":GOSUB79:OPEN2,DV,2,NA$+",S,R":INPUT#2,SC:IFSC>8THENSC=8
217 FORS=0TOSC:FORT=0TO11:INPUT#2,SC$(S,T):NEXT:NEXT:CLOSE2:GOSUB38
218 GOSUB64:FI$=MID$(NA$,3,14):GOTO225
219 IFSC=-1THENF$="TO SAVE!":GOSUB80:GOTO177
220 F$="SAVE":GOSUB77:IFQ$=""THENGOSUB143:GOTO173
221 NA$="T!"+Q$:DV=PEEK(251):GOSUB37:IFER<>62THEN225
222 F$="[158]SAVING":GOSUB79:OPEN2,DV,2,NA$+",S,W":PRINT#2,SC:FORS=0TOSC
223 FORT=0TO11:PRINT#2,CHR$(34)SC$(S,T):NEXT:NEXT:CLOSE2
224 GOSUB38:FI$=MID$(NA$,3,14)
225 GOSUB74:GOSUB143:GOTO173
226 IFLM=0THENGOSUB134:IFLM=0THEN175
227 GOSUB3
228 B=0:E=7:PRINT"[155][192][192][192][192][192][192][192][192][192][192][192][192] SELECT  FONT "L1$
229 PRINT"[[192][192][192] [153]FONTS [155][192][192][192][192]] [[192][192][192][192][192] [153]COMMANDS [155][192][192][192][192][192]]"
230 PRINT"[192][146]"SPC(14)"[191][146] ^[150]CRSR <UP>[159]-MENU UP   [155]_"
231 PRINT"^"SPC(14)"_ ^[150]CRSR <DN>[159]-MENU DOWN [155]_"
232 PRINT"^"SPC(14)"_ ^ [150]<RETURN>[159]-SELECTS   [155]_"
233 PRINT"^"SPC(14)"_ ^    [150]<CLR>[159]-NEW INDEX [155]_"
234 PRINT"^"SPC(14)"_ ^  "F1$"[155]_":PRINT"^"SPC(14)"_ ^  "F3$"[155]_"
235 PRINT"^"SPC(14)"_ ^  "F5$"[155]_":PRINT"^"SPC(14)"_ ^  "F7$"[155]_"
236 PRINT"@"L1$"[192]\ @"L3$"\"
237 Y=3:GOSUB63:PRINT"[158]":FORI=BTOE:PRINT""MU$(I)"[159]":NEXT:IFL=1THEN250
238 Y=13:GOSUB63:PRINTTAB(9)"[158]AVAILABLE CHARACTERS:":PRINTBL$
239 POKE646,CO:Y=15:GOSUB63
240 PRINT" [193][161][157][157][193][161][146][145][194][162][157][157][194][162][146][145][195][163][157][157][195][163][146][145][196][164][157][157][196][164][146][145][197][165][157][157][197][165][146][145][198][166][157][157][198][166][146][145]";
241 PRINT"[199][167][157][157][199][167][146][145][200][168][157][157][200][168][146][145][201][169][157][157][201][169][146][145][202][170][157][157][202][170][146][145][203][171][157][157][203][171][146][145][204][172][157][157][204][172][146][145]";
242 PRINT"[205][173][157][157][205][173][146][145][206][174][157][157][206][174][146][145][207][175][157][157][207][175][146][145][208][176][157][157][208][176][146][145][209][177][157][157][209][177][146][145][210][178][157][157][210][178][146][145]":PRINT
243 PRINT" [211][179][157][157][211][179][146][145][212][180][157][157][212][180][146][145][213][181][157][157][213][181][146][145][214][182][157][157][214][182][146][145][215][183][157][157][215][183][146][145][216][184][157][157][216][184][146][145]";
244 PRINT"[217][185][157][157][217][185][146][145][218][186][157][157][218][186][146][145]  [157][157]  [145];<[157][157]=>[145]34[157][157]56[145]78[157][157]9:[145]+,[157][157]-.[145]";
245 PRINT"'([157][157])*[145]AB[157][157]CD[145]EF[157][157]GH[145]IJ[157][157]KL[145]MN[157][157]OP[145]":PRINT
246 PRINT" QR[157][157]ST[145]UV[157][157]WX[145]YZ[157][157][\[145]]^[157][157]_![145]#$[157][157]%&[145][187][188][157][157][189][190][145]/0[157][157]12[145]";
247 PRINT"  [157][157][160][160][145]+,[157][157]9:[146][145]":PRINT:PRINTBL$
248 I=23:GOSUB34:Y=22:GOSUB63:PRINTTAB(14-LEN(FO$)/2)"FONTNAME: "FO$""
249 POKEPO,27:L=0:POKEBR,BO:POKEBK,BA
250 GOSUB49:IFG$="[135]"ORG$="[139]"ORG$="_"THEN239
251 IFG$="[136]"ORG$=""THENL=0:GOTO172
252 IFG$=""THENGOSUB136:GOTO228
253 IFG$=""THEN260
254 IFG$="[145]"THEN262
255 IFG$<>CHR$(13)THEN250
256 IFFO$(B)="M!"+FO$THENGOSUB47:GOTO250
257 NA$=FO$(B):DV=8:GOSUB37:IFER<>63THENGOSUB47:GOTO250
258 SYS57812NA$,8,0:POKE780,0:POKE781,0:POKE782,240:SYS65493
259 FO$=MID$(FO$(B),3,14):GOTO248
260 B=B+1:E=E+1:IFE>LMTHENE=LM:B=LM-7
261 L=1:GOTO237
262 B=B-1:E=E-1:IFB<0THENB=0:E=7
263 L=1:GOTO237
264 IFSC=-1THENF$="TO VIEW!":GOSUB80:GOTO175
265 IFTR=1THEN321
266 GOSUB3:PRINT"[155][192][192][192][192][192][192][192][192][192][192] VIDEO TRANSLATOR [155][192][192][192][192][192][192][192][192][192][192][192]":GOSUB82
267 PRINTTAB(7)"[158]TRANSLATING TEXT TO VIDEO":PRINTTAB(12)BY$"":POKEPO,27
268 GOSUB124:GOSUB86:FORS=0TOSC:B=49291:GOSUB87:GOSUB112
269 FORT=0TO11:B=B+40:E=B+LEN(SC$(S,T))-1:FORV=BTOE:IFPEEK(V)>53THEN311
270 IFPEEK(V)>39THEN304
271 IFPEEK(V)>22THEN296
272 IFPEEK(V)>15THEN289
273 IFPEEK(V)>7THEN281
274 IFPEEK(V)=1THENG$="[193][161][157][157][193][161][146][145]":GOTO319
275 IFPEEK(V)=2THENG$="[194][162][157][157][194][162][146][145]":GOTO319
276 IFPEEK(V)=3THENG$="[195][163][157][157][195][163][146][145]":GOTO319
277 IFPEEK(V)=4THENG$="[196][164][157][157][196][164][146][145]":GOTO319
278 IFPEEK(V)=5THENG$="[197][165][157][157][197][165][146][145]":GOTO319
279 IFPEEK(V)=6THENG$="[198][166][157][157][198][166][146][145]":GOTO319
280 IFPEEK(V)=7THENG$="[199][167][157][157][199][167][146][145]":GOTO319
281 IFPEEK(V)=8THENG$="[200][168][157][157][200][168][146][145]":GOTO319
282 IFPEEK(V)=9THENG$="[201][169][157][157][201][169][146][145]":GOTO319
283 IFPEEK(V)=10THENG$="[202][170][157][157][202][170][146][145]":GOTO319
284 IFPEEK(V)=11THENG$="[203][171][157][157][203][171][146][145]":GOTO319
285 IFPEEK(V)=12THENG$="[204][172][157][157][204][172][146][145]":GOTO319
286 IFPEEK(V)=13THENG$="[205][173][157][157][205][173][146][145]":GOTO319
287 IFPEEK(V)=14THENG$="[206][174][157][157][206][174][146][145]":GOTO319
288 IFPEEK(V)=15THENG$="[207][175][157][157][207][175][146][145]":GOTO319
289 IFPEEK(V)=16THENG$="[208][176][157][157][208][176][146][145]":GOTO319
290 IFPEEK(V)=17THENG$="[209][177][157][157][209][177][146][145]":GOTO319
291 IFPEEK(V)=18THENG$="[210][178][157][157][210][178][146][145]":GOTO319
292 IFPEEK(V)=19THENG$="[211][179][157][157][211][179][146][145]":GOTO319
293 IFPEEK(V)=20THENG$="[212][180][157][157][212][180][146][145]":GOTO319
294 IFPEEK(V)=21THENG$="[213][181][157][157][213][181][146][145]":GOTO319
295 IFPEEK(V)=22THENG$="[214][182][157][157][214][182][146][145]":GOTO319
296 IFPEEK(V)=23THENG$="[215][183][157][157][215][183][146][145]":GOTO319
297 IFPEEK(V)=24THENG$="[216][184][157][157][216][184][146][145]":GOTO319
298 IFPEEK(V)=25THENG$="[217][185][157][157][217][185][146][145]":GOTO319
299 IFPEEK(V)=26THENG$="[218][186][157][157][218][186][146][145]":GOTO319
300 IFPEEK(V)=32THENG$="  [157][157]  [145]":GOTO319
301 IFPEEK(V)=33THENG$=";<[157][157]=>[146][145]":GOTO319
302 IFPEEK(V)=38THENG$="34[157][157]56[146][145]":GOTO319
303 IFPEEK(V)=39THENG$="78[157][157]9:[146][145]":GOTO319
304 IFPEEK(V)=46THENG$="+,[157][157]-.[146][145]":GOTO319
305 IFPEEK(V)=48THENG$="'([157][157])*[146][145]":GOTO319
306 IFPEEK(V)=49THENG$="AB[157][157]CD[146][145]":GOTO319
307 IFPEEK(V)=50THENG$="EF[157][157]GH[146][145]":GOTO319
308 IFPEEK(V)=51THENG$="IJ[157][157]KL[146][145]":GOTO319
309 IFPEEK(V)=52THENG$="MN[157][157]OP[146][145]":GOTO319
310 IFPEEK(V)=53THENG$="QR[157][157]ST[146][145]":GOTO319
311 IFPEEK(V)=54THENG$="UV[157][157]WX[146][145]":GOTO319
312 IFPEEK(V)=55THENG$="YZ[157][157][\[146][145]":GOTO319
313 IFPEEK(V)=56THENG$="]^[157][157]_![146][145]":GOTO319
314 IFPEEK(V)=57THENG$="#$[157][157]%&[146][145]":GOTO319
315 IFPEEK(V)=58THENG$="[187][188][157][157][189][190][146][145]":GOTO319
316 IFPEEK(V)=63THENG$="/0[157][157]12[146][145]":GOTO319
317 IFPEEK(V)=64THENG$="  [157][157][160][160][146][145]":GOTO319
318 IFPEEK(V)=96THENG$="+,[157][157]9:[146][145]"
319 VE$(S,T)=VE$(S,T)+G$:POKEV,45:NEXT:NEXT:GOSUB86:NEXT:TR=1
320 Y=8:GOSUB113:GOSUB46
321 GOSUB3:PRINT"[155][192][192][192][192][192][192][192][192][192][192][192][192] VIEW DISPLAY "L1$:PRINT"[155][[192][192][192] [153]DISPLAY [155][192][192][192]]"
322 FORI=12TO16:PRINT"^ [159]"M$(I)" [155]_":NEXT:PRINT"@"L1$"[192][192]\"
323 PRINT"[155][[192][192][192][192] [153]WIPE [155][192][192][192][192][192]]":FORI=17TO23:PRINT"^ [159]"M$(I)" [155]_":NEXT
324 PRINT"@"L1$"[192][192]\":PRINT"[155][[192][192][192][192] [153]MODE [155][192][192][192][192][192]]"
325 FORI=24TO25:PRINT"^ [159]"M$(I)" [155]_":NEXT:PRINT"@"L1$"[192][192]\":Y=3:GOSUB63
326 PRINTR$" [[192][192][192][192] [153]SEQUENCE [155][192][192][192][192]]"
327 FORI=1TO3:PRINTR$" ^[150]"I"[157]: [155]------------- [155]_":NEXT:PRINTR$" @"L2$"\"
328 PRINTR$" [155][[192][192][192][192][192] [153]COLOR [155][192][192][192][192][192][192]]":PRINTR$" ^"F1$"[155]_":PRINTR$" ^"F3$"[155]_"
329 PRINTR$" ^"F5$"[155]_":PRINTR$" ^"F7$"[155]_":PRINTR$" @"L2$"\"
330 POKEPO,27:V=12:W=16:X=4-V:Y=V:GOSUB14:IFG$="[136]"ORG$=""THEN172
331 C=0:D=0:CY=0:X=4:GOSUB111:ONYGOTO332,333,334,335,336
332 D=1:GOTO346
333 D=1:GOTO337
334 D=2:GOTO346
335 D=2:GOTO337
336 D=3:GOTO346
337 V=17:W=23:X=11-V:Y=V:GOSUB14:IFG$="[136]"ORG$=""THEN172
338 X=5:GOSUB111:ONYGOTO339,340,341,342,343,344,345
339 C=1:GOTO346
340 C=2:GOTO346
341 C=3:GOTO346
342 C=4:GOTO346
343 C=5:GOTO346
344 C=6:GOTO346
345 C=7
346 V=24:W=25:X=20-V:Y=V:GOSUB14:IFG$="[136]"ORG$=""THEN172
347 X=6:GOSUB111:ONYGOTO348,349
348 CY=0:GOTO350
349 CY=1
350 POKEBR,BO:POKEBK,BA:POKE646,CO:Y=16:GOSUB63:PRINTR$" "SA$
351 Y=19:GOSUB63:PRINTR$"  ADJUST THE COLORS"
352 PRINTR$"  OR PRESS <RETURN>":GOSUB49
353 IFG$="[135]"ORG$="[139]"ORG$="_"THEN350
354 IFG$="[136]"ORG$=""THEN172
355 IFG$<>CHR$(13)THEN350
356 IFD=3THEN364
357 Y=16:GOSUB63:FORI=1TO5:PRINTR$" "EM$:NEXT:Y=17:GOSUB63
358 PRINTR$"  SET DISPLAY TIME?  ":PRINTR$"        <Y-N>        "
359 GOSUB43:IFG$="N"THENTS=10:GOTO364
360 IFG$="[136]"ORG$=""THEN172
361 IFG$<>"Y"THEN359
362 Y=17:GOSUB63:PRINTR$" SECONDS PER SCREEN? ":PRINTR$" "EM$
363 PRINT"[145]"TAB(27)": ";:L%=2:GOSUB22:TS=VAL(Q$):IFTS=0THENTS=10
364 Y=16:GOSUB63:PRINTR$" "EM$:PRINTR$"   PRESS ANY KEY TO  "
365 PRINTR$"   CLEAR THE SCREEN  ":PRINTR$"   PRESS ANY KEY TO  "
366 PRINTR$"   BEGIN THE DISPLAY ":GOSUB43:IFG$="[136]"ORG$=""THEN172
367 PRINT"[147]";:GOSUB43
368 ONDGOTO369,372,376
369 FORS=0TOSC:POKEPO,11:FORT=0TO11:GOSUB125:NEXT:POKEPO,27:GOSUB2
370 IFCTHENGOSUB114
371 PRINT"[147]":NEXT:POKEPO,11:GOTO378
372 POKEPO,27:Y=23:GOSUB63:FORS=0TOSC:FORT=0TO11:POKE646,CO:GOSUB125
373 NEXT:GOSUB2:IFCTHENGOSUB114
374 PRINTEM$:PRINTEM$:GOSUB63:NEXT:GOSUB63:POKE646,BA:S=0:FORT=0TO11
375 GOSUB125:NEXT:GOTO378
376 POKEPO,27:Y=23:GOSUB63:FORS=0TOSC:FORT=0TO11:GOSUB125:TS=.35:GOSUB2
377 NEXT:NEXT:POKE646,BA:S=0:FORT=0TO11:GOSUB125:GOSUB2:NEXT
378 GETG$:IFCYANDPEEK(653)<>1THEN368
379 CY=0:POKE198,0:GOSUB46:FORI=1TO2000:GETG$:IFG$=""THENNEXT
380 GOTO172
381 IFPEEK(251)=9THENGOSUB71
382 OPEN15,DV,15,"I0:":INPUT#15,ER,ER$:CLOSE15
383 IFER<>0THENGOSUB64:PRINTR$" [150]NO DISK IN DRIVE"DV"":GOSUB42:GOTO173
384 POKEPO,11:POKEFL,10:PRINT"[147]   [205][213][212][193][212][197]! [198][201][204][197][211] [207][206] [196][201][211][203]: [196][197][214][201][195][197] #     "
385 PRINT"[145]"TAB(34)DV:PRINT" [164][164][164][164][164][164][164][164][164][164]     [164][164][164][164][164][164][164][164][164]     [164][164][164][164][164][164][164][164] "
386 PRINT" [153][165]<[210][197][212][213][210][206]>[167]     [153][165]<[211][200][201][198][212]>[167]     [153][165]<[195][205][196][210]>[167] "
387 PRINT"[162][153][165] [194]EGINS [167][162][162][162][162][162][153][165][208]AUSES [167][162][162][162][162][162][153][165][193]BORTS[167][162][155]":POKEPO,27
388 GETG$:IFPEEK(653)=2THEN172
389 IFG$<>CHR$(13)THEN388
390 X=12:Y=13:OPEN1,DV,0,"$0:?!*":GET#1,X$
391 GET#1,X$,X$,X$,X$,Y$,Z$:PRINTASC(Y$+CHR$(0))*256+ASC(X$+CHR$(0))Z$;
392 FORI=1TOX:GET#1,X$,Y$:PRINTX$Y$;:NEXT:PRINT:IFY$<>""THENX=Y:WAIT654,1,1
393 IFPEEK(653)=2THEN395
394 IFY$<>""THENPOKE198,0:GOTO391
395 CLOSE1:PRINT"       [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]       "
396 PRINT"[162][162][162][162][162][162][162][153][165] [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [197][216][201][212] [167][162][162][162][162][162][162][162]":GOSUB43:GOTO172
397 POKEPO,11:POKEFL,10:B=196:E=16:PRINT"[147]":X=11:GOSUB406:X=8
398 GOSUB406:GOSUB407
399 POKEA,B:POKEFL,(PEEK(FL)AND15)ORE:POKEPO,27
400 GOSUB43:IFG$=CHR$(13)THEN403
401 IF(G$<>"[136]"ANDG$<>"")THEN400
402 POKEPO,11:GOTO172
403 B=B+4:E=E+16:IFB=208THEN402
404 IFB=200THENX=3:GOSUB406:X=16:GOSUB406:GOSUB407:GOTO399
405 X=21:GOSUB406:GOSUB407:GOTO399
406 POKEPO,11:POKEA,192:PRINTT$:PRINTB$:FORI=1TOX:PRINTM$:NEXT:RETURN
407 PRINTT$:PRINTB$"":RETURN
408 GOSUB64:PRINTR$"   [158]EXIT PROGRAM!":GOSUB39:IFG$<>"Y"THEN173
409 POKEPO,11:SYS64738
410 DATA"DESIGN MENU ","SELECT FONT ","VIEW DISPLAY","DIRECTORY   "
411 DATA"HELP SCREENS","EXIT PROGRAM","ENTER TEXT  ","EDIT TEXT   "
412 DATA"LOAD FILE   ","SAVE FILE   ","HELP SCREENS","MAIN MENU   "
413 DATA"BLANK SCREEN ","BLANK & WIPE ","SCROLL SCREEN","SCROLL & WIPE"
414 DATA"LINE SCROLL  ","LEFT TO RIGHT","RIGHT TO LEFT","TOP TO BOTTOM"
415 DATA"BOTTOM TO TOP","LEFT & RIGHT ","TOP & BOTTOM "
416 DATA"FOUR SIDES IN","VIDEO TAPE   ","BILLBOARD    "