Z200&d TINY DIRECRY ERDn EPS COMPATIBLE ERSix (C) ALLAN L. COURTNEY D.M.D.A$(200),B$(200),C$(200)53280,8:53281,8:646,0RO$(18):RF$(146):CH$(147):DW$(17) B1$"****************************************":DP$(14):DO$(20)R B2$"***************************************":B3$"*" P1$(27)(15):P2$(27)"S"(1):P3$(27)"A"(5) CH$:250 270 CH$RO$">>TINY DIRECTORY PRINTER<< VERSION 1.0"RF$ 6)RO$"(C) ALLAN L. COURTNEY D.M.D."RF$ L DW$DW$"PLACE DISK IN DRIVE AND PRESS A KEY": 198,1:A$n CH$:250:DW$DW$"WORKING..."~ ,1,8,0,"$0" 6I0:N$(0) @N125:SP$SP$" ": J#1,D$,D$ hII1 r#1,D$,D$ D$""500 #1,A$(I),B$(I) C$(I)((A$(I)N$)(B$(I)N$)256)% #1,D$4 D$""360G C$(I)C$(I)D$b C$(I)(C$(I),25):440i 1r 250 DW$DW$"PRINTING..." :4,4 D4,P1$P2$P3$ N4,B1$B2$ X4,B3$;DP$;(C$(1),(C$(1))2);:4,DO$" "; b4,P1$P2$P3$B3$ lJ2I3 vC$(J)""C$(J)SP$9 C$(J1)""C$(J1)SP$U C$(J2)""C$(J2)SP$ 4,B3$;C$(J);" ";C$(J1);" "C$(J2)B3$  4,B1$B2$ 1 250 DW$DW$"ANOTHER DIRECTORY?"; *R$:R$""810 4R$:R$"Y" >CH$: