0 'PRTSET.BA -- Printer setup program Written by Chia-Chi Chao 04/20/87 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLS:E$=CHR$(27):INPUT"

ica (E)lite (C)ompressed ";A$:IFA$="e"THENLPRINTE$;"M";:GOTO5 3 IFA$="c"THENLPRINTCHR$(15);:GOTO5 4 A$="p":LPRINTE$;"P"; 5 PRINTA$,,"Line spacing 1/<6> or 1/(8) ";:INPUTA$:IFA$="8"THENLPRINTE$;"0";:GOTO7 6 A$="6":LPRINTE$;"2"; 7 PRINTA$,,"Lines for bottom margin <6> ";:A$="":INPUTA$:IFA$=""THENA$="6" 8 LPRINTE$;"N";CHR$(VAL(A$));:PRINTA$,,"Columns for left margin <10> ";:A$="":INPUTA$:IFA$=""THENA$="10" 9 PRINTA$;:LPRINTE$;"l";CHR$(VAL(A$));:MENU