home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / control.zip / CONTROL0.CLA < prev    next >
Text File  |  1988-09-24  |  3KB  |  104 lines
  1. CONTROLS     PROGRAM
  2.  
  3.     MAP
  4.       MODULE('CONTROL1')
  5.     PROC(MAIN_MENU)
  6.       .
  7.       MODULE('CONTROL2')
  8.     PROC(CHOOSE)
  9.       .
  10.       MODULE('CONTROL3')
  11.     PROC(UPDATEPRT)
  12.       .
  13.       MODULE('CONTROL4')
  14.     PROC(PRINTIT)
  15.       .
  16.       MODULE('CONTROL5')
  17.     PROC(SCROLLIT)
  18.       .
  19.     .
  20.  
  21.     INCLUDE('\CLARION\STD_KEYS')
  22.     INCLUDE('\CLARION\CTL_KEYS')
  23.  
  24. ENTER      EQUATE(1)
  25. CHANGE      EQUATE(2)
  26. REMOVE      EQUATE(3)
  27.  
  28. ARSINFO         FILE,NAME('C:\MJADATA\ARSINFO'),PRE(INF),RECLAIM
  29. RECORD           RECORD
  30. CO_RPT         STRING(60)             !Company Report Name
  31. CO_DISP         STRING(30)             !Company Display Name
  32. CO_ADDR1     STRING(30)             !Company Address Line 1
  33. CO_ADDR2     STRING(30)             !Company Address Line 2
  34. CO_CITY         STRING(25)             !Company City
  35. CO_STATE     STRING(2)             !Company State
  36. CO_ZIP         LONG                 !Company Zip Code
  37. CO_PHONE     STRING(12)             !Company Phone Number
  38. PROFIT_CTR     STRING(1)             !Are Profit Centers Used?
  39. PRINTER         STRING(40)             !Printer Name
  40. PRINTER_TYPE     STRING(1)             !How Wide is the Printer?
  41.          . .
  42.  
  43. PRTFILE      FILE,NAME('C:\MJADATA\PRTFILE.DAT'),CREATE,RECLAIM,PROTECT
  44.       OWNER('MjamesA'),ENCRYPT
  45. PRTKEY        KEY(PRINTER,DESCRIP)         !PRINTER KEY
  46. RECORD        RECORD
  47. KEYGRP          GROUP                 !KEY GROUP
  48. PRINTER        STRING(8)             !  PRINTER CODE
  49. DESCRIP        STRING(25)             !  FULL DESCRIPTION OF PRINTER
  50.           .                     !END KEY GROUP
  51. CODEGRP          GROUP                 !CODE GROUP
  52. DPPRNT        STRING(5)             !  DATA PROCESSING MODE ON
  53. LQPRNT        STRING(5)             !  LETTER QUALITY MODE ON
  54. DWON        STRING(5)             !  DOUBLE WIDE ON
  55. DWOFF        STRING(5)             !  DOUBLE WIDE OFF
  56. DHON        STRING(5)             !  DOUBLE HIGH ON
  57. DHOFF        STRING(5)             !  DOUBLE HIGH OFF
  58. ULON        STRING(5)             !  UNDERLINE ON
  59. ULOFF        STRING(5)             !  UNDERLINE OFF
  60. BOLDON        STRING(5)             !  BOLDFACE ON
  61. BOLDOFF        STRING(5)             !  BOLDFACE OFF
  62. OVERON        STRING(5)             !  OVERSTRIKE ON
  63. OVEROFF        STRING(5)             !  OVERSTRIKE OFF
  64. SUPERON        STRING(5)             !  SUPERSCRIPT ON
  65. SUBON        STRING(5)             !  SUBSCRIPT ON
  66. SSOFF        STRING(5)             !  SUPER/SUBSCRIPT OFF
  67. ITLICON        STRING(5)             !  ITALICS ON
  68. ITLICOFF    STRING(5)             !  ITALICS OFF
  69. CPI10        STRING(5)             !  10 CHARACTERS PER INCH(PICA)
  70. CPI12        STRING(5)             !  12 CHARACTERS PER INCH(ELITE)
  71. CPI17        STRING(5)             !  CONDENSED MODE
  72. CPI17CANCEL    STRING(5)             !  CANCEL CONDENSED MODE
  73. BACKSPC        STRING(5)             !  BACKSPACE CHARACTER
  74. LINEFD        STRING(5)             !  LINEFEED
  75. FORMFD        STRING(5)             !  FORMFEED
  76. CR        STRING(5)             !  CARRIAGE RETURN
  77. MODELFCR    STRING(5)             !  EACH LF = LF+CR
  78. MODELF        STRING(5)             !  LF ONLY, NO CR
  79. MODECR        STRING(5)             !  CR ONLY, NO LF
  80. MODECRLF    STRING(5)             !  EACH CR = CR+LF
  81. UNIDIREC    STRING(5)             !  UNIDERECTIONAL PRINT ONLY
  82. BIDIREC        STRING(5)             !  BIDIRECTIONAL PRINTING
  83. RESET        STRING(5)             !  PRINTER RESET
  84. DUMMY1        STRING(5)             !
  85. DUMMY2        STRING(5)             !
  86. DUMMY3        STRING(5)             ! RESERVED FOR FUTURE
  87. DUMMY4        STRING(5)             !        USE
  88. DUMMY5        STRING(5)             !
  89. DUMMY6        STRING(5)             !
  90. REVPRT        STRING(5)             ! REVERSE PRINT
  91. CANREVPRT    STRING(5)             ! CANCEL REVERSE PRINT
  92.       . . .                     !END FILE, RECORD, GROUP
  93.  
  94. PRTCODE         STRING(5),DIM(40),OVER(CODEGRP)     !REDECLARES RECORD AS ARRAY
  95.  
  96. PSELECT      STRING(28)                 !HOLD AREA FOR SELECTED PRINTER
  97.  
  98.   CODE
  99.   HELP('CONTROLS')                 !OPEN THE HELP FILE
  100.   OPEN(PRTFILE)                     !OPEN THE FILE (SO RECS WORKS)
  101.   IF ERROR()
  102.     CREATE(PRTFILE).
  103.   MAIN_MENU
  104.