home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / control.zip / CONTROL4.CLA < prev    next >
Text File  |  1988-08-13  |  2KB  |  73 lines
  1.          MEMBER('CONTROLS')
  2.  
  3. PRINTIT        PROCEDURE
  4.  
  5. REPORT         REPORT      WIDTH(80)
  6.               HEADER
  7.          COL(17)    STRING('ACTIVE PRINTER:')
  8. APRNT         COL(33)    STRING(33) CTL(@LF3)
  9.               .
  10. DEMO              DETAIL
  11.          COL(1)        CONTROL(5),USE(DPPRNT)
  12.                 STRING('THIS SHOULD BE DATA PROCESSING PRINT')
  13.            ROW(+2,1)    CONTROL(5),USE(LQPRNT)
  14.                 STRING('THIS SHOULD BE LETTER QUALITY PRINT')
  15.                 CONTROL(5),USE(DPPRNT)
  16.            ROW(+2,1)    STRING('THIS SHOULD BE')
  17.          COL(16)    CONTROL(5),USE(DWON)
  18.                 STRING('DOUBLE WIDE')
  19.                 CONTROL(5),USE(DWOFF)
  20.            ROW(+2,1)    STRING('THIS SHOULD BE')
  21.          COL(16)    CONTROL(5),USE(DHON)
  22.                 STRING('DOUBLE HIGH')
  23.                 CONTROL(5),USE(DHOFF)
  24.            ROW(+2,1)    STRING('THIS SHOULD BE')
  25.          COL(16)    CONTROL(5),USE(ULON)
  26.                 STRING('UNDERLINED')
  27.                 CONTROL(5),USE(ULOFF)
  28.            ROW(+2,1)    STRING('THIS SHOULD BE')
  29.          COL(16)    CONTROL(5),USE(BOLDON)
  30.                 STRING('BOLDFACE')
  31.                 CONTROL(5),USE(BOLDOFF)
  32.            ROW(+2,1)    STRING('THIS SHOULD BE')
  33.          COL(16)    CONTROL(5),USE(OVERON)
  34.                 STRING('OVERSTRIKE')
  35.                 CONTROL(5),USE(OVEROFF)
  36.            ROW(+2,1)    STRING('THIS SHOULD BE')
  37.          COL(16)    CONTROL(5),USE(SUPERON)
  38.                 STRING('SUPER')
  39.                 CONTROL(5),USE(SSOFF)
  40.          COL(21)    STRING('SCRIPT')
  41.            ROW(+2,1)    STRING('THIS SHOULD BE')
  42.          COL(16)    CONTROL(5),USE(SUBON)
  43.                 STRING('SUB')
  44.                 CONTROL(5),USE(SSOFF)
  45.          COL(19)    STRING('SCRIPT')
  46.            ROW(+2,1)    STRING('THIS SHOULD BE')
  47.          COL(16)    CONTROL(5),USE(ITLICON)
  48.                 STRING('ITALICS')
  49.                 CONTROL(5),USE(ITLICOFF)
  50.            ROW(+2,1)    CONTROL(5),USE(CPI10)
  51.                 STRING('THIS SHOULD BE 10 CPI (PICA)')
  52.            ROW(+2,1)    CONTROL(5),USE(CPI12)
  53.                 STRING('THIS SHOULD BE 12 CPI (ELITE)')
  54.                 CONTROL(5),USE(CPI10)
  55.            ROW(+2,1)    CONTROL(5),USE(CPI17)
  56.                 STRING('THIS SHOULD BE 17 CPI (COMPRESSED)')
  57.                 CONTROL(5),USE(CPI17CANCEL)
  58.            ROW(+2,1)    STRING('THIS SHOULD BE BACK TO NORMAL')
  59.            ROW(+2,1)    STRING('THIS SHOULD BE')
  60.          COL(16)    CONTROL(5),USE(REVPRT)
  61.                 STRING('REVERSE PRINT')
  62.                 CONTROL(5),USE(CANREVPRT)
  63.            ROW(+2,1)    STRING('AND NOW THE DEMONSTRATION IS DONE ')
  64.                 CONTROL(5),USE(FORMFD) CTL(@LF)
  65.          .          .
  66.  
  67.   CODE
  68.   APRNT = CLIP(PRINTER) & ' - ' & DESCRIP
  69.   OPEN(REPORT)
  70.   PRINT(DEMO)
  71.   CLOSE(REPORT)
  72.   RETURN
  73.