1 GOTO17
2 G$="":POKE198,0:U=53280
3 GETA$:PRINT"[164]"+CHR$(157);
4 IFA$=""THEN3
5 IFA$=CHR$(13)THENPRINTCHR$(32):RETURN
6 IF(A$=CHR$(20)ANDLEN(G$))THENG$=LEFT$(G$,LEN(G$)-1):GOTO15
7 IFLEN(G$)>=LN%THENT%=PEEK(U):POKEU,1:POKEU,T%:GOTO3
8 IF((TY%AND2)=2)AND(A$>="[193]")AND(A$<"[218]")THEN14
9 IF((TY%AND2)=2)AND(A$>="A")AND(A$<="Z")THEN14
10 IF((TY%AND4)=4)AND(A$>="0")AND(A$<="9")THEN14
11 IF((TY%AND8)=8)AND(A$>=CHR$(32))AND(A$<=CHR$(127))THEN14
12 IFA$=CHR$(32)THEN14
13 GOTO3
14 G$=G$+A$
15 PRINTA$;:IFA$=CHR$(34)THENPOKE212,0
16 GOTO3
17 POKE53281,.:POKE53280,.:PRINT"[147][154]"
18 POKE56,63:POKE55,253:CLR
19 V=13*16*256:OPEN2,0
20 POKEV+17,PEEK(V+17)AND239
21 FORT=1TO6:PRINT" [207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208][207][208]"
22 PRINT" [204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186][204][186]":NEXT
23 PRINT"[154][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
24 PRINT"[180] VIDEO PRO-TITLER[154] [167]"
25 PRINT"[180] [155]VIDEO PRO-TITLER[154] [167]"
26 PRINT"[180] [152]VIDEO PRO-TITLER[154] [167]"
27 PRINT"[180] [151]VIDEO PRO-TITLER[154] [167]"
30 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
31 GOSUB61000
32 POKEV+17,(PEEK(V+17)AND239)OR16
34 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
36 DIM MT%(210),TM%(62),NB%(62),CO$(7)
37 POKE147,.:SYS57812"PRO-TITLER.ML",8,1:SYS62631
38 A=49152
39 FORT=0TO210:MT%(T)=PEEK(A):A=A+1:NEXT
40 FORT=0TO62:TM%(T)=PEEK(A):A=A+1:NEXT
41 FORT=0TO62:NB%(T)=PEEK(A):A=A+1:NEXT
42 FORT=828TO887:POKET,PEEK(A):A=A+1:NEXT
43 FORT=49152TO49673:POKET,PEEK(A):A=A+1:NEXT
44 FORT=0TO7:READCO$(T):NEXT
45 POKE147,0:SYS57812"NOFRILLS",8,1:SYS62631
46 FI=16384:LA=FI:MA=32768:CU=LA:NX=CA:CN=1
47 CF$="NOFRILLS":TC=14:BC=0:SC=0:MC=7
48 SP$="                                        "
49 DATA"END OF SEQUENCE","","","CLEAR SCREEN"
50 DATA"ENTER SCROLL MODE","ENTER FIXED MODE","PAUSE FOR","GO TO LINE"
51 PRINT"[147][152][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
52 PRINT"[221]  [158]V[154]IDEO [158]P[154]RO-[158]T[154]ITLER  [152][221]"
53 PRINT"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
54 PRINT"[158]PRESS"
55 PRINT"1  [154]ADD TO CURRENT SEQUENCE"
56 PRINT"[158]2  [154]EDIT CURRENT SEQUENCE"
57 PRINT"[158]3  [154]CLEAR CURRENT SEQUENCE"
58 PRINT"[158]4  [154]LOAD A SEQUENCE"
59 PRINT"[158]5  [154]SAVE A SEQUENCE"
60 PRINT"[158]6  [154]VIEW CURRENT SEQUENCE"
61 PRINT"[158]7  [154]LOAD A FONT"
62 PRINT"[158]8  [154]CHANGE SCREEN COLORS"
63 PRINT"[158]9  [154]EXIT TO LOADSTAR"
64 PRINT"[152][171][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][195][195][195][195][179]"
65 PRINT"[154]CURRENT FONT: "+CF$
66 PRINT"[154]MEMORY FREE:";MAX-LA;"[154] BYTES"
67 PRINT "MEMORY USED:";LA-FI;"[154] BYTES"
68 PRINT "[145][145][145][145][145][145][145][158]-->[154] ";
69 GOSUB 274
70 IFG$<"1"ORG$>"9"THENPRINT"[157]";:GOTO69
71 G=VAL(G$)
72 ONGGOTO73,74,193,197,202,211,245,250,264
73 CU=LA:G$="[158]ADD TO CURRENT SEQUENCE[154]":GOTO75
74 CU=FI:G$="[158]EDIT CURRENT SEQUENCE[154]"
75 PRINT"[147]"+G$
76 PRINT"CTRL-C: CLEAR SCREEN":PRINT"CTRL-G: GOTO LINE [210][210]"
77 PRINT"CTRL-P: PAUSE FOR [210][210] SECONDS"
78 PRINT"CTRL-S: ENTER SCROLL MODE":PRINT"CTRL-F: ENTER FIXED MODE"
79 PRINT"CTRL-B: [210][210] BLANK LINES":PRINT"CTRL-L: ENTER A LINE OF TEXT"
80 PRINT"CTRL-1/2/3: LEFT/CENTER/RIGHT JUSTIFY"
81 PRINT"CTRL-U: UNDERLINE THE ABOVE LINE"
82 PRINT"CTRL-X: RETURN TO MAIN MENU"
83 PRINT"RETURN: GO TO NEXT COMMAND"
84 PRINT"INST/DEL: INSERT OR DELETE A COMMAND"
85 PRINT"[152][171][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][179][154]"
86 PRINT"[152] [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] [154]"
87 GOSUB291
88 POKE1983,32:GETG$:IFG$=""THEN88
89 POKE1983,42:POKE56255,14
90 IFG$<>""THEN92
91 NN=1:GOSUB314:POKECU,4:GOTO87
92 IFG$<>""THEN 94
93 NN=1:GOSUB314:POKECU,5:GOTO87
94 IFG$<>""THEN96
95 NN=1:GOSUB314:POKECU,3:GOTO87
96 IFG$<>""THEN105
97 PRINT"GOTO WHAT LINE (1-23)? ";:TY%=4:LN%=2:GOSUB2
98 PRINT"";
99 IFVAL(G$)>23ORVAL(G$)<1THENPRINTSP$;"[145]";:GOTO97
100 NN=3:GOSUB314
101 POKECU,7:G=(VAL(G$)-1)*40
102 POKECU+1,(G/256-INT(G/256))*256
103 POKECU+2,G/256
104 PRINTSP$;"[145]";:GOTO87
105 IFG$<>""THEN115
106 PRINT"HOW MANY SECONDS (.1-60)? ";:TY%=8:LN%=2:GOSUB2:SD=VAL(G$)
107 PRINT"";
108 IFSD<0ORSD>60THENPRINTSP$;"[145]";:GOTO106
109 GOSUB326
110 NN=3:GOSUB314
111 POKECU,6:G=VAL(G$)*120
112 POKECU+1,(G/256-INT(G/256))*256
113 POKECU+2,G/256
114 PRINTSP$;"[145]";:GOTO87
115 IFG$<>""THEN122
116 PRINT"HOW MANY BLANK LINES? ";:TY%=4:LN%=3:GOSUB2
117 PRINT"";
118 IFVAL(G$)<1THENPRINTSP$;"[145]";:GOTO116
119 NN=VAL(G$):GOSUB314
120 FORT=1TOVAL(G$):POKECU+T-1,1:NEXT
121 PRINTSP$;"[145]";:GOTO87
122 IFG$=""THEN51
123 IFG$<>CHR$(13)THEN126
124 IFCU=LATHEN87
125 CU=NXT:GOTO87
126 IFG$<>"[148]"THEN130
127 FORT=LATOCUSTEP-1
128 POKET+CN,PEEK(T):NEXT
129 LA=LA+CN:GOTO87
130 IFG$<>CHR$(20)THEN134
131 FOR T=CU TO LA-CN
132 POKE T,PEEK(T+CN):NEXT
133 LA=LA-CN:GOTO 87
134 IFG$<>""THEN149
135 PRINT"ENTER LINE":TY%=8:LN%=39:GOSUB2:IFG$=""THENG$=" "
136 PRINT"           ":PRINTSP$
137 NN=82:GOSUB314:POKE CU,2:POKE CU+41,2:N=1:M=1
138 CA=ASC(MID$(G$,N,1))-32:IFCA>62THENCA=0
139 POKECU+M,TM%(CA):POKECU+M+41,TM%(CA)
140 IFNB%(CA)>1THENPOKECU+M+41,TM%(CA)+1
141 IFNB%(CA)=4THENPOKECU+M+1,TM%(CA)+2:POKECU+M+42,TM%(CA)+3
142 N=N+1:M=M+1:IFNB%(CA)>2THENM=M+1
143 IFN>LEN(G$)THEN146
144 IFM<40THEN138
145 GOTO87
146 POKECU+M,0:POKECU+M+41,0
147 M=M+1:IFM<41THEN146
148 GOTO87
149 IFG$<>"[144]"THEN160
150 IFPEEK(CU)<>2THEN87
151 X$="":FORT=1TO40:X$=X$+CHR$(PEEK(CU+T)):NEXT
152 T=0
153 IFLEFT$(X$,1)=CHR$(0)THENX$=RIGHT$(X$,39)+CHR$(0):T=T+1:IFT<41THEN153
154 FORT=1TO40:POKECU+T,ASC(MID$(X$,T,1)):NEXT
155 X$="":FORT=1TO40:X$=X$+CHR$(PEEK(CU+T+41)):NEXT
156 T=0
157 IFLEFT$(X$,1)=CHR$(0)THENX$=RIGHT$(X$,39)+CHR$(0):T=T+1:IFT<41THEN157
158 FORT=1TO40:POKECU+T+41,ASC(MID$(X$,T,1)):NEXT
159 GOTO87
160 IFG$<>""THEN172
161 IFPEEK(CU)<>2THEN87
162 T=40
163 IFPEEK(CU+T)=0THENT=T-1:IFT>1THEN163
164 X=INT((40-T)/2):IFX=0THEN87
165 X$="":FORT=1TO40:X$=X$+CHR$(PEEK(CU+T)):NEXT
166 FORT=1TOX:X$=CHR$(0)+X$:NEXT:X$=LEFT$(X$,40)
167 FORT=1TO40:POKECU+T,ASC(MID$(X$,T,1)):NEXT
168 X$="":FORT=1TO40:X$=X$+CHR$(PEEK(CU+T+41)):NEXT
169 FORT=1TOX:X$=CHR$(0)+X$:NEXT:X$=LEFT$(X$,40)
170 FORT=1TO40:POKECU+T+41,ASC(MID$(X$,T,1)):NEXT
171 GOTO87
172 IFG$<>""THEN183
173 IFPEEK(CU)<>2THEN87
174 X$="":FORT=1TO40:X$=X$+CHR$(PEEK(CU+T)):NEXT
175 T=0
176 IFRIGHT$(X$,1)=CHR$(0)THENX$=CHR$(0)+LEFT$(X$,39):T=T+1:IFT<41THEN176
177 FORT=1TO40:POKECU+T,ASC(MID$(X$,T,1)):NEXT
178 X$="":FORT=1TO40:X$=X$+CHR$(PEEK(CU+T+41)):NEXT
179 T=0
180 IFRIGHT$(X$,1)=CHR$(0)THENX$=CHR$(0)+LEFT$(X$,39):T=T+1:IFT<41THEN180
181 FORT=1TO40:POKECU+T+41,ASC(MID$(X$,T,1)):NEXT
182 GOTO87
183 IFG$<>""THEN88
184 IFPEEK(CU-82)<>2THEN87
185 NN=41:GOSUB314
186 S=1:FORT=1TO40
187 IFPEEK(CU-82+T)=0THEN191
188 IFS=0THEN POKECU+T,173
189 IFS=1THENPOKECU+T,193:S=0
190 GOTO192
191 POKECU+T,32:S=1
192 NEXT:POKECU,2:GOTO87
193 PRINT"[147][158]CLEAR CURRENT SEQUENCE[154]"
194 PRINT"ARE YOU SURE? (Y/N) ";:GOSUB274
195 IFG$="Y"THENLA=FI
196 GOTO51
197 PRINT"[147][158]LOAD A SEQUENCE[154]"
198 GOSUB279
199 PRINT"LOADING... ";
200 SYS864:LA=PEEK(16382)+PEEK(16383)*256:REM WHOA
201 GOSUB285:GOTO51
202 PRINT"[147][158]SAVE A SEQUENCE[154]"
203 GOSUB279:X$=G$
204 PRINT"DELETE OLD FILE WITH SAME NAME? (Y/N) ";:GOSUB274
205 PRINT:PRINT"SAVING... ";:IFG$<>"Y"THEN207
206 OPEN15,8,15:PRINT#15,"S0:"+X$:CLOSE15
207 POKE16382,(LA/256-INT(LA/256))*256
208 POKE16383,LA/256
209 POKE857,PEEK(16382):POKE859,PEEK(16383)
210 SYS828:GOSUB285:GOTO51:REM WHOA
211 PRINT"[147][158]VIEW CURRENT SEQUENCE[154]"
212 PRINT"ENTER THE SCROLLING SPEED (1-30):"
213 PRINT"1=FASTEST;30=SLOWEST"
214 PRINT"ENTER SPEED: ";:TY%=4:LN%=2:GOSUB2:G=VAL(G$):IFG<1ORG>30THENG=3
215 POKE49450,G:POKE251,G
216 PRINT"AUTO-REPEAT? (Y/N) ";:GOSUB274:X$=G$:PRINT
217 PRINT"[158]INSTRUCTIONS:[154]"
218 PRINT"1.  PRESS RETURN"
219 PRINT"2.  WAIT FOR THE TONE"
220 PRINT"3.  PREPARE RECORDING EQUIPMENT (IF"
221 PRINT"    APPLICABLE)"
222 PRINT"4.  PRESS RETURN TO START SEQUENCE"
223 PRINT
224 GOSUB274:IFG$<>CHR$(13)THEN224
225 PRINT"[147]INITIALIZING... WAIT FOR TONE"
226 FORT=34816TO35816:POKET,0:NEXT
227 FORT=35840TO36840:POKET,0:NEXT
228 PRINT"[147]":POKE56578,PEEK(56578)OR3
229 POKE56576,(PEEK(56576)AND252)OR1
230 POKE53272,32:POKE53265,(PEEK(53265)AND240)OR7
231 POKELA,0:POKE53281,SC:POKE53280,BC
232 FORT=55296TO56295:POKET,TC:NEXT
233 POKE151,140:POKE150,136
234 V=(13*16+4)*256
235 POKEV,0:POKEV+1,40:POKEV+5,0:POKEV+6,250
236 POKEV+23,0:POKEV+24,15:POKEV+4,33:POKEV+4,32
237 GETG$:IFG$<>CHR$(13)THEN237
238 SYS49168:GETG$:REM WHOA
239 IFX$="Y"THEN 238
240 POKEV+24,0:POKE56578,PEEK(56578)OR3
241 POKE56576,(PEEK(56576)AND252)OR3
242 POKE53272,20:POKE53281,0:POKE53280,0
243 POKE53265,(PEEK(53265)AND240)OR11
244 GOTO 51
245 PRINT"[147][158]LOAD A FONT[154]"
246 GOSUB279
247 PRINT"LOADING... ";
248 SYS864:CF$=G$:REM WHOA
249 GOSUB285:GOTO 51
250 PRINT"[147][158]CHANGE SCREEN COLOR"
251 PRINT"[154]COLOR VALUES:"
252 PRINT"0 - BLACK[146]        [129]8 - ORANGE"
253 PRINT"1 - WHITE        [149]9 - BROWN"
254 PRINT"2 - RED         [150]10 - LT RED"
255 PRINT"[159]3 - CYAN        [151]11 - DK GREY"
256 PRINT"[156]4 - PURPLE      [152]12 - MED GREY"
257 PRINT"5 - GREEN       [153]13 - LT GREEN"
258 PRINT"6 - BLUE        [154]14 - LT BLUE"
259 PRINT"[158]7 - YELLOW      [155]15 - LT GREY[154]"
260 PRINT"ENTER BORDER COLOR: ";:TY%=4:LN%=2:GOSUB2:BC=VAL(G$)AND15
261 PRINT"ENTER SCREEN COLOR: ";:TY%=4:LN%=2:GOSUB2:SC=VAL(G$)AND15
262 PRINT"ENTER TEXT COLOR: ";:TY%=4:LN%=2:GOSUB2:TC=VAL(G$)AND15
263 GOTO51
264 PRINT"[147][158]           EXIT TO LOADSTAR[154]"
265 PRINT"         ARE YOU SURE? (Y/N)";
266 GOSUB274:IFG$<>"Y"ANDG$<>"N"THEN266
267 IFG$="N"THEN51
268 POKE56,160:POKE55,0:CLR
269 POKE53281,6:POKE53280,14:PRINT"[147]";
270 CLOSE2
271 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
272 IFER%<>63THENEND
273 LOAD"HELLO CONNECT",8
274 PRINT" [146]";
275 GETG$:IFG$=""THEN275
276 IFG$=>"0"ANDG$<="9"THENPRINT"[157]";G$;
277 IFG$=CHR$(30)THEN274
278 RETURN
279 PRINT"ENTER FILENAME: ";:TY%=8:LN%=8:GOSUB2
280 IFG$=""THEN RETURN
281 IFLEN(G$)>8THENG$=LEFT$(G$,8)
282 G=LEN(G$):POKE838,G:POKE874,G
283 FORT=820TO819+G:POKET,ASC(MID$(G$,T-819,1)):NEXT
284 RETURN
285 IF(STATUSAND131)=0THENRETURN
286 PRINT"DISK ERROR: ";
287 IF(STATUSAND128)>0THENPRINT"DEVICE NOT PRESENT"
288 IF(STATUSAND2)>0THENPRINT"CAN'T READ"
289 IF(STATUSAND1)>0THENPRINT"CAN'T WRITE"
290 PRINT"[154]PRESS ANY KEY... ";:GOSUB274:OPEN15,8,15,"IO":CLOSE15:RETURN
291 PRINT"";SP$;"[145]";
292 IFCU=LATHENCN=0:PRINT:GOTO313
293 C=PEEK(CU):PRINT" "+CO$(C);
294 ONCGOTO296,304,312,312,312,300,302
295 GOTO312
296 N=0:T=CU
297 IFPEEK(T)<>1ORT=LATHEN299
298 N=N+1:T=T+1:GOTO 297
299 PRINTN;"BLANK LINES":NXT=CU+N:CN=N:GOTO313
300 CN=3:NXT=CU+3:G=PEEK(CU+1)+PEEK(CU+2)*256
301 SH=G/120:GOSUB329:PRINTSK;"SECONDS":GOTO313
302 CN=3:NXT=CU+3:G=PEEK(CU+1)+PEEK(CU+2)*256
303 G%=G/40:PRINTG%+1:GOTO313
304 IFPEEK(CU+1)=32ORPEEK(CU+1)=193THEN311
305 T=1
306 CA=MT%(PEEK(CU+T)):PRINTCHR$(CA);
307 T=T+1:IFCA>31THENIFNB%(CA-32)>2THENT=T+1
308 IFT<41THEN306
309 CN=82:NXT=CU+82:PRINT"[154]":GOTO313
310 NXT=CU+41:GOTO313
311 PRINT"UNDERLINE[154]":CN=41:NXT=CU+CN:GOTO310
312 NXT=CU+1:CN=1
313 PRINT"";:RETURN
314 IFCN>0THEN316
315 CN=NN:LA=LA+NN:NXT=CU+NN:RETURN
316 IFCN=NNTHENRETURN
317 IFCN>NNTHEN322
318 X=NN-CN
319 FORT=LATOCU+CNSTEP-1
320 POKET+X,PEEK(T):NEXT
321 LA=LA+X:NXT=NXT+X:CN=NN:RETURN
322 X=CN-NN
323 FORT=CU+NNTOLA
324 POKET,PEEK(T+X):NEXT
325 LA=LA-X:NXT=NXT-X:CN=NN:RETURN
326 IFSD>1THENGOTO328
327 SF=SD/2:G$=STR$(SF):RETURN
328 SG=SD-2:SF=3+(SG*.5):G$=STR$(SF):RETURN
329 IFSH<3THENGOTO331
330 SJ%=SH*2:SK=SJ%-4:RETURN
331 SJ%=SH*20:SK=SJ%/10:RETURN
61000 POKE214,15:PRINT: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][152]"
61130 FORI=1TO3:PRINT"                                       ":NEXT
61150 PRINT"       PUBLISHED ON LOADSTAR #61       "
61160 PRINT"     SUBSCRIPTIONS 1-800-831-2694      "
61170 PRINT"    CHANGING THIS NOTICE IS ILLEGAL    "
61180 PRINT"                                       "
61190 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]"
61200 AU$="VIDEO PRO-TITLER":POKE214,17:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
61210 AU$="BY BILL WIND & JOHN ALLEN   (C) 1988":POKE214,18:PRINT
61220 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$"":RETURN