5 DV=PEEK(186):IFDV<8THENDV=8
10 POKE53281,0:POKE53280,0:PRINT"[147]"
15 GOSUB1000
20 SYS57812"INPUT ANY CE00",DV,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
22 OPEN15,DV,15,"R0:DRIVER=DRIVER":INPUT#15,ER,ER$,A,A:CLOSE15
23 IFER<>63THEN30
24 OPEN8,DV,8,"DRIVER,P,R"
26 FORI=0TO5:INPUT#8,E(I):E=E(I):FORJ=0TOE
27 INPUT#8,D(I,J)
28 NEXT:NEXT:CLOSE8
30 DIMW$(300)
32 SP$="                                            "
34 H$="0123456789ABCDEF"
40 FORI=0TO2:READM$(I):NEXT
42 DATA" [195]REATE A PRINTER DRIVER "
43 DATA"  [208]RINT [195]ONTENTS [211]HEET   "
44 DATA"    [209]UIT THE PROGRAM     "
50 FORI=0TO4:READP$(I):NEXT
52 DATA"  [211]UBSCRIPT [205]ODE   "
53 DATA"    [197]LITE [208]ITCH    "
55 DATA"  [195]ONDENSED [205]ODE   "
56 DATA" [204]INE [211]PACING 7/72 "
58 DATA"   [210]ESET [208]RINTER   "
100 PRINT"[147][129]  [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210] [195][207][206][212][197][206][212][211] [208][210][201][206][212][197][210][154]"
105 M=0:T=8
110 FORI=0TO2:PRINTTAB(T)M$(I):PRINT:NEXT
120 POKE214,5+M*2:PRINT:PRINTTAB(T)""M$(M)"[145]"
130 GETA$:IFA$<>"[145]"ANDA$<>""ANDA$<>CHR$(13)THEN130
140 IFA$=CHR$(13)THEN180
145 PRINTTAB(T)"[154]"M$(M)
150 IFA$="[145]"THENM=M-1:IFM<0THENM=2
160 IFA$=""THENM=M+1:IFM>2THENM=0
170 GOTO120
180 ONM+1GOTO200,300,400
200 PRINT"[147][159]    [217]OU WILL NEED YOUR PRINTER MANUAL
202 [153]" IN ORDER TO ENTER THE FOLLOWING CODES.
204 PRINT" [201]F YOU PUT A $ BEFORE THE VERY FIRST
206 [153]" ENTRY, THE PROGRAM WILL EXPECT THE
208 PRINT" NUMBERS IN [200][197][216].
220 [153]"CONT VAL(null)ATN(null)(null)(null)VAL
225 PRINT"[159]"P$(0)": 27 83 49    [154]OR
227 [153]"OPEN"P$(0)": $1B 53 49
230 PRINT"[154] [197]NTER YOUR PRINTER'S CODE FOR:
240 K[178]0:BB[178]0
250 [151]214,16:[153]:[153]"OPEN"P$(K)": ";:[141]50000:B$[178]Q9$
252 [139][200](B$,1)[178]"$"[176]BB[178]1[167]BB[178]1:[137]280
255 J[178]0:[129]I[178]1[164][195](B$)
256 [139][202](B$,I,1)[178]" "[167]D(K,J)[178][197](C$):C$[178]"":J[178]J[170]1:[137]258
257 C$[178]C$[170][202](B$,I,1)
258 [130]:D(K,J)[178][197](C$):C$[178]"":E(K)[178]J
259 K[178]K[170]1:[139]K[179]5[167][151]781,17:[158]59903:[137]250
260 [141]1000:[159]8,DV,8,"@0:DRIVER,P,W"
262 [129]I[178]0[164]5:E[178]E(I):[152]8,E:[129]J[178]0[164]E
264 [152]8,D(I,J)
266 [130]:[130]:[160]8
270 [137]100
280 [139][200](B$,1)[178]"$"[167]B$[178][201](B$,[195](B$)[171]1)
282 J[178]0:[129]I[178]1[164][195](B$)[169]3:BB$[178][202](B$,I,1)
283 [129]L[178]1[164]16:[139]BB$[178][202](H$,L,1)[167]U[178]L[171]1:L[178]16
284 [130]
286 D(K,J)[178]16[172]U:BB$[178][202](B$,I[170]1,1)
287 [129]L[178]1[164]16:[139]BB$[178][202](H$,L,1)[167]U[178]L[171]1:L[178]16
288 [130]
290 D(K,J)[178]D(K,J)[170]U:J[178]J[170]1
292 [130]:[137]259
300 [158]52736,"T.CONTENT*",DV:W$(0)[178][201](W$(0),[195](W$(0))[171]2)
305 H[178][194](252)[172]256[170][194](251):G[178][181](H[173]2):GG[178]H[171]G[172]2
310 [159]4,4,7
312 [129]I[178]0[164]3:E[178]E(I):[129]J[178]0[164]E
314 [152]4,[199](D(I,J));
316 [130]:[152]4
318 [130]
320 [129]I[178]0[164]G
322 [152]4,W$(I);
324 [152]4,[200](SP$,42[171][195](W$(I)))W$(I[170]G[170]1)
330 [130]
335 [139]GG[167][152]4,W$(H)
340 E[178]E(4):[129]I[178]0[164]E:[152]4,[199](D(4,I));:[130]:[152]4:[160]4
350 [137]100
400 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
410 [139]ER[179][177]63[167][153]"LOAD":[128]
420 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
430 [153]"RUN"
440 [151]631,13:[151]632,13:[151]198,2:[128]
1000 [159]15,DV,15,"I":[132]15,ER,ER$,A,A:[160]15
1010 [139]ER[178]0[167][142]
1020 [153]" "ER$" - LENHECK YOUR DRIVE
1030 PRINT" AND PRESS A KEY.
1040 [161]A$:[139]A$[178]""[167]1040
1050 [137]1000
10000 [159]15,8,15,"S0:CONTPRINT":[160]15:[148]"CONTPRINT",8:[128]
50000 Q9$[178]"":U9[178]53280:[151]198,0
50010 [161]A$
50020 [151]646,[187](1)[172]15[170]1:[153]"TOCMD";:[139]A$[178]""[167]50010
50030 [139]A$[178][199](13)[167][153]" ":[142]
50040 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]50080
50050 [139][195](Q9$)[177][178]20[167]T9%[178][194](U9):[151]U9,1:[151]U9,T9%:[137]50010
50060 [139]A$[179]" "[176](A$[177][199](127)[175]A$[179][199](160))[176]A$[178][199](34)[167]50010
50070 Q9$[178]Q9$[170]A$
50080 [153]""A$;:[137]50010