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)OPEN" 105 M[178]0:T[178]8 110 [129]I[178]0[164]3:[153][163]T)M$(I):[153]:[130] 120 [151]214,6[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,40000 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 FORI=0TO300:W$(I)="":NEXT 302 SYS52736,"T.CONTENT*",DV:W$(0)=RIGHT$(W$(0),LEN(W$(0))-2) 305 H=PEEK(252)*256+PEEK(251):G=INT(H/2):GG=H-G*2 307 GOSUB600 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-1 322 PRINT#4,W$(I); 324 PRINT#4,LEFT$(SP$,42-LEN(W$(I)))W$(I+G) 330 NEXT 335 IFGG=0THENPRINT#4,LEFT$(SP$,42)W$(H-1) 340 E=E(4):FORI=0TOE:PRINT#4,CHR$(D(4,I));:NEXT:PRINT#4:CLOSE4 350 GOTO100 500 FORI=0TO300:F$(I)="":NEXT 502 SYS52224,"$:*",DV,0 505 H=PEEK(252)*256+PEEK(251):G=INT(H/4) 507 GOSUB600 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,20:PRINT 610 PRINT"[158] [199]ET PRINTER READY AND PRESS A KEY." 620 POKE198,0 630 GETA$:IFA$=""THEN630 640 POKE781,21:SYS59903 650 POKE780,4:POKE144,0:SYS65457:S=ST:SYS65454:S=S OR ST:IFS=0THENRETURN 660 POKE214,20:PRINT:PRINT"[158] [212]URN PRINTER ON AND PRESS A KEY." 670 POKE198,0 680 GETA$:IFA$=""THEN680 690 GOTO650 1000 OPEN15,DV,15,"I":INPUT#15,ER,ER$,A,A:CLOSE15 1010 IFER=0THENRETURN 1020 PRINT" "ER$" - [195]HECK YOUR DRIVE 1030 [153]" AND PRESS A KEY. 1040 GETA$:IFA$=""THEN1040 1050 GOTO1000 10000 OPEN15,8,15,"S0:CONTDIRPRINT":CLOSE15:SAVE"CONTDIRPRINT",8:END 40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40030 40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030 40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:END 40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I 40040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END 50000 Q9$="":U9=53280:POKE198,0 50010 GETA$ 50020 POKE646,RND(1)*15+1:PRINT"[164][157]";:IFA$=""THEN50010 50030 IFA$=CHR$(13)THENPRINT" ":RETURN 50040 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO50080 50050 IFLEN(Q9$)>=20THENT9%=PEEK(U9):POKEU9,1:POKEU9,T9%:GOTO50010 50060 IFA$<" "OR(A$>CHR$(127)ANDA$