10 IF ZZ=0THENZZ=1:LOAD"MC CODE",8,1
100 IFDV<>0THEN231
101 POKE52,31:POKE56,31:CLR
102 POKE53281,6:PRINT"[147]";:POKE53280,1:POKE53281,1:PRINT"";:H=14736:C1=0:C2=0
103 FORI=0TO7:POKE10240+(I*3),255:POKE10241+(3*I),0:POKE10242+(3*I),0:NEXT
104 FORI=10263TO10303:POKEI,0:NEXT:POKE53287,0:POKE53275,1
105 POKE53249,50:POKE53248,24
106 SP=1:FR=1:BR=0:FORI=0TO7:POKE13680+I,0:POKE13808+I,0:POKE12656+I,0
107 POKE12784+I,0:NEXT:FORI=0TO3:POKE13682+I,3:POKE13810+I,192:NEXT
108 POKE53269,1:SYS8192:POKE2040,160
109 POKE53248,24+(8*C2):POKE53249,50+(8*C1)
110 GETA$:IFA$=""THEN110
111 K=0:IFA$="*"THEN125
112 IFA$="_"THEN182
113 IFA$=""THENC2=C2+1:IFC2>16THENC2=16
114 IFA$=CHR$(20)THENC2=C2-1:IFC2<0THENC2=0
115 IFA$=""THENGOSUB163
116 IFA$="[145]"THENGOSUB169
117 IFA$=CHR$(13)THENGOSUB175
118 IFA$="."ORA$=" "ORA$="-"THENK=1
119 IF(A$>="0"ANDA$<="9")THENK=1
120 IF(A$>="A"ANDA$<="Z")THENK=1
121 IFK=0THEN109
122 A=ASC(A$)AND191:POKE1024+(C1*40)+C2,A:POKE55296+(C1*40)+C2,6
123 C2=C2+1:IFC2>16THENC2=16
124 GOTO109
125 REM
126 SYS8204:POKE53269,0
127 PRINT"[147]":PRINTTAB(13);"DISPLAY  TITLE":PRINTTAB(12);"----------------"
128 PRINT:PRINT"SPEED [144]02":POKE198,0
129 POKE1191,SP+49
130 GETA$:IFA$=CHR$(13)THEN133
131 IFA$=""THENPOKE198,0:SP=(SP+1)AND1:POKE1191,SP+49
132 GOTO130
133 PRINT:PRINT"FOREGROUND COLOUR (INK) [144]01"
134 POKE198,0
135 IFFR<10THENPOKE1288,48:POKE1289,FR+48
136 IFFR>10THENPOKE1288,49:POKE1289,FR+38
137 GETA$:IFA$=CHR$(13)THEN142
138 IFA$<>""THEN137
139 POKE198,0:FR=(FR+1)AND15:IFFR<10THENPOKE1288,48:POKE1289,FR+48
140 IFFR>9THENPOKE1288,49:POKE1289,FR+38
141 GOTO137
142 PRINT:PRINT"BACKGROUND COLOUR (PAPER) [144]00"
143 POKE198,0
144 IFBR<10THENPOKE1370,48:POKE1371,BR+48
145 IFBR>10THENPOKE1370,49:POKE1371,BR+38
146 GETA$:IFA$=CHR$(13)THEN151
147 IFA$<>""THEN146
148 POKE198,0:BR=(BR+1)AND15:IFBR<10THENPOKE1370,48:POKE1371,BR+48
149 IFBR>9THENPOKE1370,49:POKE1371,BR+38
150 GOTO146
151 POKE254,SP:POKE8211,FR:POKE8225,BR
152 POKE53272,28:SYS8201:POKE53272,21
153 POKE53280,1:POKE53281,1
154 PRINT"[147]A] RE-ENTER TITLES"
155 PRINT"B] RE-ROLL  TITLES"
156 PRINT"CHOOSE [A/B]":POKE198,0
157 GETA$:IFA$=""THEN157
158 IFA$="B"THEN127
159 IFA$<>"A"THEN157
160 POKE53281,6:PRINT"[147]";:POKE53281,1:PRINT"";
161 SYS8207:POKE53280,1:SYS8198
162 POKE53269,1:GOTO109
163 REM
164 C2=0:C1=C1+1:IFC1<25THENRETURN
165 C1=24:IFH>39976THENRETURN
166 SYS59626:A=20-PEEK(H+1000):FORI=1TOA
167 POKE1983+I,PEEK(H+1000+(2*I)):NEXT:SYS8198
168 H=H+40:RETURN
169 REM
170 C2=0:C1=C1-1:IFC1>=0THENRETURN
171 C1=0:IFH-40<14736THENRETURN
172 SYS8195:H=H-40:A=PEEK(H)
173 FORI=0TO16:POKE1024+I,32:NEXT
174 FORI=1TO(20-A):POKE1023+I,PEEK(H+(I*2)):NEXT:SYS8198:RETURN
175 REM
176 B=H+(C1*40):POKEB,20-C2:IFC2=0THENPOKEB,19:POKEB+2,32:GOTO181
177 FORI=1TOC2:A=PEEK(1023+(C1*40)+I)
178 POKEH+(C1*40)+(I*2),A:NEXT
179 FORI=C2TO16:POKE1024+I+(C1*40),32:NEXT
180 GOTO163
181 FORI=0TO16:POKE1024+(C1*40)+I,32:NEXT:GOTO163
182 SYS8204:POKE53269,0:POKE198,0
183 PRINT"[147]INPUT/OUTPUT"
184 PRINT"------------"
185 PRINT:PRINT"1] LOAD TITLE DATA"
186 PRINT:PRINT"2] SAVE TITLE DATA"
187 PRINT:PRINT"3] CREATE A DEMO TITLE"
188 PRINT:PRINT"_] ABORT I/O AND RETURN TO EDIT SCREEN"
189 PRINT:PRINT:PRINT"MAKE YOUR CHOICE PLEASE"
190 GETA$:IFA$=""THEN190
191 IFA$="_"ANDH2=26THENPOKE198,0:GOTO231
192 IFA$="_"THENPOKE53269,1:PRINT"[147]";:SYS8198:SYS8207:POKE198,0:GOTO109
193 IFA$="1"THEN215
194 IFA$="2"THEN197
195 IFA$="3"THEN235
196 GOTO190
197 POKE198,0:IFDV>7THENDV=0
198 PRINT"[147]SAVE TITLE DATA"
199 PRINT"---------------"
200 H1=H+(C1*40):H2=INT(H1/256):H1=H1-(H2*256)
201 GOSUB251
202 GOSUB266
203 PRINT
204 PRINT"SET YOUR ";:IFDV=1THENPRINT"[144]TAPE"
205 IFDV<>1THENPRINT"[144]DISK DRIVE"
206 PRINT:PRINT"AND PRESS 'RETURN'"
207 PRINT:PRINT"TO SAVE YOUR TITLE DATA"
208 PRINT:PRINT"WITH THE NAME - [144]";FL$
209 POKE198,0
210 GETA$:IFA$<>CHR$(13)THEN210
211 POKE198,0:SYS57812FL$,DV,1
212 POKE251,0:POKE252,57
213 POKE780,251:POKE781,H1:POKE782,H2:SYS65496
214 GOTO183
215 POKE198,0:IFDV>7THENDV=0
216 PRINT"[147]LOAD TITLE DATA"
217 PRINT"---------------"
218 GOSUB251
219 GOSUB266
220 PRINT
221 PRINT"SET YOUR ";:IFDV=1THENPRINT"[144]TAPE"
222 IFDV<>1THENPRINT"[144]DISK DRIVE"
223 PRINT:PRINT"AND PRESS 'RETURN'"
224 PRINT:PRINT"TO LOAD YOUR TITLE DATA"
225 PRINT:PRINT"WITH THE NAME - [144]";FL$
226 POKE198,0
227 GETA$:IFA$<>CHR$(13)THEN227
228 POKE198,0:SYS8192
229 LOADFL$,DV,1
230 H2=26:GOTO183
231 PRINT"[147]":SYS8198:H=14736:FORI=0TO24
232 H1=20-PEEK(H+(I*40)):FORJ=1TOH1
233 POKE1023+(I*40)+J,PEEK(H+(I*40)+(J*2)):NEXTJ,I
234 POKE53269,1:C1=0:C2=0:GOTO109
235 PRINT"[147][129]CREATE DEMO"
236 PRINT"-----------"
237 IFDV>7THENDV=0
238 GOSUB251:GOSUB266
239 H1=H+(C1*40):H2=INT(H1/256):H1=H1-(H2*256):POKE8709,H1:POKE8713,H2
240 PRINT:PRINT"[129]SET YOUR ";:IFDV=1THENPRINT"[144]TAPE"
241 IFDV<>1THENPRINT"[144]DISK DRIVE"
242 PRINT:PRINT"[129]AND PRESS 'RETURN'"
243 PRINT:PRINT"TO SAVE YOUR TITLE DEMO"
244 PRINT:PRINT"WITH THE NAME - [144]";FL$
245 POKE198,0:POKE8734,H2
246 GETA$:IFA$<>CHR$(13)THEN246
247 POKE198,0:SYS57812FL$,DV,0
248 POKE251,1:POKE252,31:POKE780,251:POKE781,H1:POKE782,H2:POKE12287,SP
249 SYS65496:POKE8709,0:POKE8713,56:POKE8734,56
250 GOTO183
251 PRINT"WHICH DEVICE ? ";
252 IFDV=1THENPRINT"[144]TAPE"
253 IFDV=0THENPRINT"[144]DISK"
254 GETA$:IFA$=CHR$(13)THEN257
255 IFA$<>""THEN254
256 POKE198,0:DV=(DV+1)AND1:GOTO251
257 IFDV=1THEN265
258 PRINT"WHICH DEVICE NUMBER ? ";:POKE198,0
259 IFDN=0THENPRINT"[144]8"
260 IFDN=1THENPRINT"[144]9"
261 GETA$:IFA$=CHR$(13)THEN264
262 IFA$<>""THEN261
263 POKE198,0:DN=(DN+1)AND1:GOTO258
264 DV=8+DN
265 RETURN
266 FL$="":POKE53248,160:POKE53249,114:POKE53269,1
267 PRINT"                                     "
268 PRINT"ENTER FILENAME - [144]";FL$:POKE53248,160+(LEN(FL$)*8)
269 ER=1
270 GETA$:IFA$=""THEN270
271 IF(A$>="A")AND(A$<="Z")THENER=0
272 IF(A$>="0")AND(A$<="Z")THENER=0
273 IFA$=CHR$(13)THEN281
274 IFA$=CHR$(20)THEN278
275 IFERTHEN270
276 IFLEN(FL$)<11THENFL$=FL$+A$:GOTO267
277 IFLEN(FL$)=11THEN269
278 IFLEN(FL$)=0THEN269
279 IFLEN(FL$)=1THENFL$="":GOTO267
280 FL$=LEFT$(FL$,(LEN(FL$)-1)):GOTO267
281 IFLEN(FL$)=0THEN269
282 POKE53269,0:RETURN