90 GOTO200
100       TINY DIRECTORY PRINTER
110    FOR EPSON COMPATIBLE PRINTERS
120     (C) ALLAN L. COURTNEY D.M.D.
200 DIMA$(200),B$(200),C$(200)
210 POKE53280,8:POKE53281,8:POKE646,0
220 RO$=CHR$(18):RF$=CHR$(146):CH$=CHR$(147):DW$=CHR$(17)
225 B1$="****************************************":DP$=CHR$(14):DO$=CHR$(20)
227 B2$="***************************************":B3$="*"
228 P1$=CHR$(27)+CHR$(15):P2$=CHR$(27)+"S"+CHR$(1):P3$=CHR$(27)+"A"+CHR$(5)
235 PRINTCH$:GOSUB250
237 GOTO270
250 PRINTCH$RO$">>TINY DIRECTORY PRINTER<<   VERSION 1.0"RF$
260 PRINTTAB(6)RO$"(C) ALLAN L. COURTNEY D.M.D."RF$
265 RETURN
270 PRINTDW$DW$"PLACE DISK IN DRIVE AND PRESS A KEY":WAIT 198,1:GETA$
280 PRINTCH$:GOSUB250:PRINTDW$DW$"WORKING..."
300 OPEN1,8,0,"$0"
310 I=0:N$=CHR$(0)
320 FORN=1TO25:SP$=SP$+" ":NEXT
330 GET#1,D$,D$
360 I=I+1
370 GET#1,D$,D$
390 IFD$=""THEN500
410 GET#1,A$(I),B$(I)
420 C$(I)=STR$(ASC(A$(I)+N$)+ASC(B$(I)+N$)*256)
440 GET#1,D$
460 IFD$=""THEN360
480 C$(I)=C$(I)+D$
490 C$(I)=LEFT$(C$(I),25):GOTO440
500 CLOSE1
510 GOSUB250
520 PRINTDW$DW$"PRINTING..."
570 OPEN4,4
580 PRINT#4,P1$+P2$+P3$
590 PRINT#4,B1$B2$
600 PRINT#4,B3$;DP$;RIGHT$(C$(1),LEN(C$(1))-2);:PRINT#4,DO$" ";
610 PRINT#4,P1$P2$P3$B3$
620 FORJ=2TOISTEP3
630 IFC$(J)=""THENC$(J)=SP$
640 IFC$(J+1)=""THENC$(J+1)=SP$
650 IFC$(J+2)=""THENC$(J+2)=SP$
660 PRINT#4,B3$;C$(J);" ";C$(	
8763  "C$(J[170]2)B3$
670 [130]
680 [152]4,B1$B2$
700 [160]1
750 [141]250
800 [153]DW$DW$"ANOTHER DIRECTORY?";
810 [161]R$:[139]R$[178]""[167]810
820 [161]R$:[139]R$[178]"Y"[167][138]
830 [153]CH$:[128]