5 DV=PEEK(186):IFDV<8THENDV=8
10 POKE53281,0:POKE53280,0:PRINT"[147]"
15 GOSUB1000
20 SYS57812"INPUT A/D CC00",DV,0:POKE780,0:POKE781,0:POKE782,204: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),F$(300):W=206*256:F=204*256
32 SP$="                                            "
34 H$="0123456789ABCDEF"
40 FORI=0TO3:READM$(I):NEXT
42 DATA" [195]REATE A PRINTER DRIVER "
43 DATA"  [208]RINT [195]ONTENTS [211]HEET   "
44 DATA"    [208]RINT  [196]IRECTORY     "
45 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]
102 [153]"     LEN(null)(null)(null)VAL(null)(null)(null) ATN(null)STR$ STR$RIGHT$(null)VALLEN(null)(null)(null)(null) (null)(null)RIGHT$(null)(null)VAL(null)"
103 [153]"LIST    (null)PECIAL VERSION FOR (null)(null)ATNSTR$(null)(null)ATN(null) 128OPEN"
105 M[178]0:T[178]8
110 [129]I[178]0[164]3:[153][163]T)M$(I):[153]:[130]
120 [151]214,8[170]M[172]2:[153]:[153][163]T)""M$(M)"ON"
130 [161]A$:[139]A$[179][177]"ON"[175]A$[179][177]""[175]A$[179][177][199](13)[167]130
140 [139]A$[178][199](13)[167]180
145 [153][163]T)"OPEN"M$(M)
150 [139]A$[178]"ON"[167]M[178]M[171]1:[139]M[179]0[167]M[178]3
160 [139]A$[178]""[167]M[178]M[170]1:[139]M[177]3[167]M[178]0
170 [137]120
180 [145]M[170]1[137]200,300,500,400
200 [153]"LOADOPEN    (null)OU WILL NEED YOUR PRINTER MANUAL
202 PRINT" IN ORDER TO ENTER THE FOLLOWING CODES.
204 [153]" RIGHT$F YOU PUT A $ BEFORE THE VERY FIRST
206 PRINT" ENTRY, THE PROGRAM WILL EXPECT THE
208 [153]" NUMBERS IN LEFT$VAL(null).
220 PRINT"[154] [197][216][193][205][208][204][197]
225 [153]"OPEN"P$(0)": 27 83 49    CONTOR
227 PRINT"[159]"P$(0)": $1B 53 49
230 [153]"CONT VALNTER YOUR PRINTER'S CODE FOR:
240 K=0:BB=0
250 POKE214,16:PRINT:PRINT"[159]"P$(K)": ";:GOSUB50000:B$=Q9$
252 IFLEFT$(B$,1)="$"ORBB=1THENBB=1:GOTO280
255 J=0:FORI=1TOLEN(B$)
256 IFMID$(B$,I,1)=" "THEND(K,J)=VAL(C$):C$="":J=J+1:GOTO258
257 C$=C$+MID$(B$,I,1)
258 NEXT:D(K,J)=VAL(C$):C$="":E(K)=J
259 K=K+1:IFK<5THENPOKE781,17:SYS59903:GOTO250
260 GOSUB1000:OPEN8,DV,8,"@0:DRIVER,P,W"
262 FORI=0TO5:E=E(I):PRINT#8,E:FORJ=0TOE
264 PRINT#8,D(I,J)
266 NEXT:NEXT:CLOSE8
270 GOTO100
280 IFLEFT$(B$,1)="$"THENB$=RIGHT$(B$,LEN(B$)-1)
282 J=0:FORI=1TOLEN(B$)STEP3:BB$=MID$(B$,I,1)
283 FORL=1TO16:IFBB$=MID$(H$,L,1)THENU=L-1:L=16
284 NEXT
286 D(K,J)=16*U:BB$=MID$(B$,I+1,1)
287 FORL=1TO16:IFBB$=MID$(H$,L,1)THENU=L-1:L=16
288 NEXT
290 D(K,J)=D(K,J)+U:J=J+1
292 NEXT:GOTO259
300 GOSUB600:SYS52736,"T.CONTENT*",DV:REM  W$(0)=RIGHT$(W$(0),LEN(W$(0))-2)
305 H=PEEK(252)*256+PEEK(251):G=INT(H/2):GG=H-G*2
310 OPEN4,4,7
312 FORI=0TO3:E=E(I):FORJ=0TOE
314 PRINT#4,CHR$(D(I,J));
316 NEXT:PRINT#4
318 NEXT
320 FORI=0TOG-G*(QQ=2)
322 PRINT#4,W$(I);:IFQQ=2THENPRINT#4:GOTO330
324 PRINT#4,LEFT$(SP$,42-LEN(W$(I)))W$(I+G+1)
330 NEXT
335 IFGGTHENIFQQ=2THENPRINT#4,W$(H)
340 E=E(4):FORI=0TOE:PRINT#4,CHR$(D(4,I));:NEXT:PRINT#4:CLOSE4
350 GOTO100
400 PRINT"[147]":END
500 SYS52224,"$:*",DV,0
505 H=PEEK(252)*256+PEEK(251)-1:G=INT(H/4)
510 OPEN4,4,7
512 FORI=0TO3:E=E(I):FORJ=0TOE
514 PRINT#4,CHR$(D(I,J));
516 NEXT:PRINT#4
518 NEXT
520 PRINT#4,F$(0):PRINT#4
522 FORI=1TOG+1
524 PRINT#4,F$(I);
525 PRINT#4,LEFT$(SP$,20-LEN(F$(I)))F$(I+G+1);
526 PRINT#4,LEFT$(SP$,20-LEN(F$(I+G+1)))F$(I+2*G+2);
527 PRINT#4,LEFT$(SP$,20-LEN(F$(I+G*2+2)))F$(I+3*G+3)
530 NEXT
535 OPEN2,DV,0,"$:QW345":FORI=0TO33:GET#2,A$:NEXT
537 GET#2,LB$:LB=ASC(LB$+CHR$(0)):GET#2,HB$:HB=ASC(HB$+CHR$(0)):CLOSE2
538 PRINT#4
539 PRINT#4,HB*256+LB" BLOCKS FREE"
540 E=E(4):FORI=0TOE:PRINT#4,CHR$(D(4,I));:NEXT:PRINT#4:CLOSE4
550 GOTO100
600 POKE214,17:PRINT
610 PRINT"[159] [201]F YOU ARE PRINTING [204][207][193][196][211][212][193][210] 128 #1
620 [153]" THROUGH #8, PRESS 1OPEN.  RIGHT$F #10 THROUGH
630 PRINT" #16, PRESS 2[159].
640 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[167]640
650 QQ[178][197](A$):[142]
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:CONTDIRPRINT":[160]15:[148]"CONTDIRPRINT",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