home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / fonts.200 < prev    next >
Text File  |  2006-10-19  |  1KB  |  23 lines
  1. 0 'FONTS.BA By Gary Sullivan               Modified for the Model 200              CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS:CLEAR:PRINT@50,"EPSON printer program":PRINT@132,"REturn to continue":PRINT@220,"or":PRINT@295,"ESC to quit
  3. 2 S$=INKEY$:IFS$=CHR$(13)GOTO5
  4. 3 IFS$=CHR$(27)THENMENU
  5. 4 GOTO2
  6. 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
  7. 6 PRINT"8 = ITALIC OFF
  8. 7 X$=INKEY$:IFX$=CHR$(27)THENMENU
  9. 8 IFX$=CHR$(32)GOTO20
  10. 9 IFX$=CHR$(13)THENLPRINTCHR$(9)
  11. 10 IFX$="0"THENLPRINTCHR$(27)+CHR$(64)
  12. 11 IFX$="1"THENLPRINTCHR$(15)
  13. 12 IFX$="2"THENLPRINTCHR$(18)
  14. 13 IFX$="3"THENLPRINTCHR$(27)+CHR$(69)
  15. 14 IFX$="4"THENLPRINTCHR$(27)+CHR$(70)
  16. 15 IFX$="5"THENLPRINTCHR$(27)+CHR$(87)+CHR$(1)
  17. 16 IFX$="6"THENLPRINTCHR$(27)+CHR$(87)+CHR$(0)
  18. 17 IFX$="7"THENLPRINTCHR$(27)+CHR$(52)
  19. 18 IFX$="8"THENLPRINTCHR$(27)+CHR$(53)
  20. 19 GOTO7
  21. 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
  22. 21 LPRINT"                       >>> End of printer test <<<":LPRINTCHR$(12):GOTO5
  23.