home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db2shl20.zip / SETPRINT.CMD < prev    next >
OS/2 REXX Batch file  |  1987-02-14  |  2KB  |  91 lines

  1. ***** setprint.cmd ******* for use with db2shell.cmd **********
  2. STORE chr(27) TO xesc
  3. STORE chr(30) TO x10
  4. STORE chr(31) TO xdbl
  5. STORE chr(29) TO x17
  6. STORE chr(28) TO x12
  7. STORE chr(24) TO xcan
  8. STORE xesc+chr(49) TO xcorr
  9. STORE xesc+chr(72) TO xenh
  10. STORE xesc+chr(84) TO xemph
  11. STORE xesc+chr(73) TO xstop
  12. STORE xesc+chr(54) TO x6line
  13. STORE xesc+chr(56) TO x8line
  14. STORE xesc+chr(48) TO xdata
  15. STORE t TO okisw
  16. SET PRINT ON
  17. ?? xcan
  18. SET PRINT OFF
  19. DO WHILE okisw
  20.   ERASE
  21.   SET CONSOLE ON
  22.   @ 1,12 SAY hl
  23.   @ 2,15 SAY ' *** CONFIGURE THE OKIDATA ML92 PRINTER *** '
  24.   @ 4,0 SAY '1. 5 CPI 40 CPL'
  25.   @ 4,40 SAY '2. 6 CPI 48 CPL'
  26.   @ 5,0 SAY '3. 8.5 CPI 66 CPL'
  27.   @ 5,40 SAY '4. 10 CPI 80 CPL'
  28.   @ 6,0 SAY '5. 12 CPI 96 CPL'
  29.   @ 6,40 SAY '6. 17 CPI 132 CPL'
  30.   @ 7,0 SAY '7. Data Processing Mode'
  31.   @ 7,40 SAY '8. Correspondence Mode'
  32.   @ 8,0 SAY '9. Enhanced Mode'
  33.   @ 8,40 SAY 'A. Emphasized Mode'
  34.   @ 9,0 SAY 'B. Cancel Emphasized/Enhanced'
  35.   @ 9,40 SAY 'C.  Clear to default settings'
  36.   @ 10,0 SAY 'D. 6 LPI'
  37.   @ 10,40 SAY 'E. 8 LPI'
  38.   @ 11,0 SAY 'F. Send Line Feed to printer'
  39.   @ 11,40 SAY 'G. Send Form Feed to printer'
  40.   @ 16,28 SAY '**** ENTER OPTION ****'
  41.   @ 18,18 SAY "Make selections at will, <RETURN> to exit"
  42.   WAIT TO option
  43.   STORE !(option) TO option
  44.   SET PRINT ON
  45.   SET CONSOLE OFF
  46.   DO CASE
  47.     CASE option = '1'
  48.       ?? x10+xdbl
  49.     CASE option = '2'
  50.       ?? x12+xdbl
  51.     CASE option = '3'
  52.       ?? x17+xdbl
  53.     CASE option = '4'
  54.       ?? x10
  55.     CASE option = '5'
  56.       ?? x12
  57.     CASE option = '6'
  58.       ?? x17
  59.     CASE option = '7'
  60.       ?? xdata
  61.     CASE option = '8'
  62.       ?? xcorr
  63.     CASE option = '9'
  64.       ?? xenh
  65.     CASE option = 'A'
  66.       ?? xemph
  67.     CASE option = 'B'
  68.       ?? xstop
  69.     CASE option = 'C'
  70.       ?? xcan
  71.     CASE option = 'D'
  72.       ?? x6line
  73.     CASE option = 'E'
  74.       ?? x8line
  75.     CASE option = 'F'
  76.       ?? chr(10)
  77.     CASE option = 'G'
  78.       ?? chr(12)
  79.     OTHERWISE
  80.       STORE f TO okisw
  81.   ENDCASE
  82.   SET CONSOLE ON
  83.   SET PRINT OFF
  84. ENDDO WHILE okisw
  85. RELEASE xesc, x10, x12, x17, xcan, xokisw, xcan, x6line, x8line, xstop, xcorr
  86. RELEASE xdata, xenh, xemph, xdbl
  87. ?
  88. SET PRINT OFF
  89. SET CONSOLE ON
  90. RETURN
  91.