0 'FONTS.BA By Gary Sullivan Modified for the Model 200 CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 1 CLS:CLEAR:PRINT@50,"EPSON printer program":PRINT@132,"REturn to continue":PRINT@220,"or":PRINT@295,"ESC to quit 2 S$=INKEY$:IFS$=CHR$(13)GOTO5 3 IFS$=CHR$(27)THENMENU 4 GOTO2 5 CLS:PRINT" -> ESCape to Quit Space to test <-":PRINT:PRINT"0 = RESET ALL SETTINGS":PRINT"1 = CONDENSED ON":PRINT"2 = CONDENSED OFF":PRINT"3 = EMPHASIZED ON":PRINT"4 = EMPHASIZED OFF":PRINT"5 = WIDE ON":PRINT"6 = WIDE OFF":PRINT"7 = ITALIC ON 6 PRINT"8 = ITALIC OFF 7 X$=INKEY$:IFX$=CHR$(27)THENMENU 8 IFX$=CHR$(32)GOTO20 9 IFX$=CHR$(13)THENLPRINTCHR$(9) 10 IFX$="0"THENLPRINTCHR$(27)+CHR$(64) 11 IFX$="1"THENLPRINTCHR$(15) 12 IFX$="2"THENLPRINTCHR$(18) 13 IFX$="3"THENLPRINTCHR$(27)+CHR$(69) 14 IFX$="4"THENLPRINTCHR$(27)+CHR$(70) 15 IFX$="5"THENLPRINTCHR$(27)+CHR$(87)+CHR$(1) 16 IFX$="6"THENLPRINTCHR$(27)+CHR$(87)+CHR$(0) 17 IFX$="7"THENLPRINTCHR$(27)+CHR$(52) 18 IFX$="8"THENLPRINTCHR$(27)+CHR$(53) 19 GOTO7 20 LPRINTCHR$(7):CLS:PRINT"Printer test under way, Please wait":LPRINT" >>> This is the EPSON printer test program <<<":LPRINT:LPRINT:FORT=47TO122:LPRINTCHR$(T);:NEXTT:LPRINT:LPRINT:LPRINT 21 LPRINT" >>> End of printer test <<<":LPRINTCHR$(12):GOTO5