home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / ddut / db3prt.prg < prev    next >
Text File  |  1986-09-20  |  2KB  |  89 lines
  1. *  PRINTSET.PRG   :  Program to set MASTER selection codes on Epson FX+
  2. *  AUTHOR         :  Steve Kalman  75136,360
  3. clear
  4. set echo off
  5. set talk off
  6. font = '  '
  7. master = chr(27) + "!"
  8. * PRTCTL.PRG
  9. @ 2,18 SAY "* * * PRINTER CONTROL MODULE * * *"
  10. @ 4,21 SAY "SINGLE    EMPHASIZED   DOUBLE   DBL STR/EMPH"
  11. @ 6,1 SAY "PICA                  01          09         11"
  12. @ 6,58 SAY "19"
  13. @ 8,1 SAY "ELITE                 02           *         12"
  14. @ 8,59 SAY "*"
  15. @ 10,1 SAY "COMPRESSED            03           *         13"
  16. @ 10,59 SAY "*"
  17. @ 12,1 SAY "COMPR ELITE           04           *         14"
  18. @ 12,59 SAY "*"
  19. @ 14,1 SAY "EXPANDED PICA         05          10         15"
  20. @ 14,58 SAY "20"
  21. @ 16,1 SAY "EXPANDED ELITE        06           *         16"
  22. @ 16,59 SAY "*"
  23. @ 18,1 SAY "EXPANDED COMPR        07           *         17"
  24. @ 18,59 SAY "*"
  25. @ 20,1 SAY "EXP COMPR ELITE       08           *         18"
  26. @ 20,59 SAY "*"
  27. @ 22,9 SAY "ENTER NUMBER OF CHOICE (* MEANS NOT AVAIL.)"
  28. @ 22,55 GET font
  29. READ
  30. *
  31. DO CASE
  32.    CASE font = '01'
  33.        master = master + '@'
  34.    CASE font = '02'
  35.        master = master + 'A'
  36.    CASE font = '03'
  37.        master = master + 'D'
  38.    CASE font = '04'
  39.        master = master + 'E'
  40.    CASE font = '05'
  41.        master = master + ' '
  42.    CASE font = '06'
  43.        master = master + '!'
  44.    CASE font = '07'
  45.        master = master + '$'
  46.    CASE font = '08'
  47.        master = master + 'e'
  48.    CASE font = '09'
  49.        master = master + 'H'
  50.    CASE font = '10'
  51.        master = master + '*'
  52.    CASE font = '11'
  53.        master = master + 'P'
  54.    CASE font = '12'
  55.        master = master + 'Q'
  56.    CASE font = '13'
  57.        master = master + 'T'
  58.    CASE font = '14'
  59.        master = master + 'U'
  60.    CASE font = '15'
  61.        master = master + '0'
  62.    CASE font = '16'
  63.        master = master + '1'
  64.    CASE font = '17'
  65.        master = master + '4'
  66.    CASE font = '18'
  67.        master = master + 'u'
  68.    CASE font = '19'
  69.        master = master + 'X'
  70.    CASE font = '20'
  71.        master = master + '8'
  72.    ENDCASE
  73. *
  74. set device to print
  75. set print on
  76. @ 0,0 SAY master
  77. set print off
  78. set device to screen
  79. return
  80. * end of PRINTSET.PRG
  81. E
  82. *
  83. set device to print
  84. set print on
  85. @ 0,0 SAY master
  86. set print off
  87. set device to screen
  88. return
  89. * end