home *** CD-ROM | disk | FTP | other *** search
/ High Voltage Shareware / high1.zip / high1 / DIR8 / 123EXP.ZIP / WYSIWYG.INC < prev   
Text File  |  1993-07-08  |  8KB  |  178 lines
  1. !══════════════════════════════════════════════════════════════════════════════
  2. !   RED - 06/11/93
  3.  
  4. !   This defines variables used in conjunction with the wysifile() function
  5. !   to produce 1-2-3 WYSIWYG files.
  6.  
  7. !   NOTE: Bit settings are numbered by Lotus Development as 0 through 7 with
  8. !         0 being the rightmost bit.
  9.  
  10. !══════════════════════════════════════════════════════════════════════════════
  11.  
  12. ! WYSIWYG record function op codes
  13. wysi_func   GROUP,PRE(wyf)
  14. bof             SHORT(  0)          ! Any op-code > 0 corresponds to the
  15. setup           SHORT,OVER(wyf:bof) !   .FMT file op codes.
  16. eof             SHORT(  1)
  17.  
  18. prt_cart        SHORT(131)          ! Records should be written in the order
  19. cartridge_1     SHORT(132)          !   of their record code (except EOF).
  20. cartridge_2     SHORT(133)
  21. printer_name    SHORT(134)
  22. port_code       SHORT(135)
  23. baud            SHORT(136)
  24. driver_name     SHORT(137)
  25.  
  26. line_color      SHORT(150)
  27. color_neg       SHORT(153)
  28. shadow_color    SHORT(163)
  29. font_face       SHORT(174)
  30. font_pitch      SHORT(175)
  31. font_type       SHORT(176)
  32. font_points     SHORT(177)
  33. attr_tab        SHORT(178)
  34. cluster_info    SHORT(181)
  35. prt_settings    SHORT(185)
  36.                                     ! Special, multi-purpose op-codes are < 0.
  37. std_init        SHORT(-1)           !   Write the standard BOF information
  38. std_attr        SHORT(-2)           !   Write a standard attribute table record
  39.                                     !       with the fonts contained in the
  40.                                     !       wyv:fonts_to_use table.
  41. first_clustr    SHORT(-3)           !   Initialize the 1st cluster record and tracking variables
  42. write_clustr    SHORT(-4)           !   "Write" the current cluster
  43. row_end_lump    SHORT(-5)           !   Setup the final lump for the row and "Write" the cluster record
  44. flush_clustr    SHORT(-6)           !   Flush (write) the pending cluster record
  45.                                     !       This MUST be done before a print
  46.                                     !       settings record is written and is
  47.                                     !       done automatically (if needed) when
  48.                                     !       an EOF record is written.
  49.             .
  50. !──────────────────────────────────────────────────────────────────────────────
  51. wys_version1    BYTE(6)             ! FMT 2 version WYSIWYG file. Must be
  52. wys_version2    BYTE(128)           !   handled as 2 bytes because Clarion's
  53.                                     !   SHORT datatype holds a maximum of 32,767!
  54. !──────────────────────────────────────────────────────────────────────────────
  55. font_types      GROUP,PRE(wft)      ! Font types used in the B0h record
  56. helv                BYTE(00)        ! Helvetica (like Swiss)
  57. TMS                 BYTE(01)        ! Times Roman (like Dutch)
  58. courier             BYTE(02)        ! Courier
  59. symbol              BYTE(03)        ! Symbol Set
  60.                 .
  61.  
  62. !──────────────────────────────────────────────────────────────────────────────
  63. ! These format codes turn on the various format attributes used in the
  64. !   ATTR_TAB_INFO (B2h) record when BORed together.
  65.  
  66. wysiwyg_attr    GROUP,PRE(wya)
  67.                                             ! Font Number in (byte 1 of the B2h
  68. use_fonts           GROUP                   !       record). Must be BORed or the
  69.                          BYTE(00000000b)    ! 0 !   bold, etc. settings will be
  70.                          BYTE(00000001b)    ! 1 !   lost.  Uses only bits 0-2.
  71.                          BYTE(00000010b)    ! 2 !
  72.                          BYTE(00000011b)    ! 3
  73.                          BYTE(00000100b)    ! 4
  74.                          BYTE(00000101b)    ! 5
  75.                          BYTE(00000110b)    ! 6
  76.                          BYTE(00000111b)    ! 7
  77. !                             76543210
  78.                     .
  79. use_font            BYTE,DIM(8),OVER(use_fonts)
  80.  
  81.                                         ! Display attribiutes (byte 1 of the B2h record)
  82. bold                BYTE(00001000b)     ! Bold On
  83. italics             BYTE(00010000b)     ! Italics on
  84. dbl_under           BYTE(00100000b)     ! Double Underline
  85. sngl_under          BYTE(01000000b)     ! Single Underline
  86. wide_under          BYTE(01100000b)     ! Wide Underline
  87.  
  88.                                         ! Colors used in bytes 2 & 3 of the B2h record
  89. black               BYTE(00000000b)     ! 0
  90. dk_blue             BYTE(00000001b)     ! 1
  91. green               BYTE(00000010b)     ! 2
  92. cyan                BYTE(00000011b)     ! 3
  93. red                 BYTE(00000100b)     ! 4
  94. magenta             BYTE(00000101b)     ! 5
  95. yellow              BYTE(00000110b)     ! 6
  96. white               BYTE(00000111b)     ! 7
  97. red_negative        BYTE(10000000b)     ! BOR this to turn on red negative numbers (byte 2).
  98.                                         !   The red must be set using the color_neg (99h) record.
  99. text_range          BYTE, |
  100.                      OVER(red_negative) ! BOR this to indicate the cell is in a text range (byte 3)
  101.  
  102. light_shade         BYTE(00001000b)     ! Shades used in byte 3
  103. dark_shade          BYTE(00010000b)
  104. solid_shade         BYTE(00011000b)
  105.  
  106. shadow_on           BYTE(00100000b)     ! Shadow added used in byte 3
  107.  
  108.                                         ! Line attributes (byte 4 of the B2h record)
  109. left_wide           BYTE(00000010b)     ! Left Line Wide
  110. left_sngl           BYTE(00000001b)     !           Single
  111. left_dbl            BYTE(00000011b)     !           Double
  112. right_wide          BYTE(00001000b)     ! Right Line Wide
  113. right_sngl          BYTE(00000100b)     !            Single
  114.  
  115. right_dbl           BYTE(00001100b)     !            Double
  116. top_wide            BYTE(00100000b)     ! Top Line Wide
  117. top_sngl            BYTE(00010000b)     !          Single
  118. top_dbl             BYTE(00110000b)     !          Double
  119. bottom_wide         BYTE(10000000b)     ! Bottom Line Wide
  120. bottom_sngl         BYTE(01000000b)     !             Single
  121. bottom_dbl          BYTE(11000000b)     !             Double
  122.                 .
  123.                                     ! Cluster record (B5h) values (row_attrs in row_size)
  124. row_shadow      BYTE(00010000b)     ! Row has a shadow
  125. row_auto_FF     BYTE(00100000b)     ! Row has a automatic page break
  126. row_man_FF      BYTE(01000000b)     ! Row has a manual page break
  127. row_fix_hgt     BYTE(10000000b)     ! Row has a fixed height set by the user
  128.  
  129. prt_set_attr    GROUP,PRE(wpa)      ! Used in the prt_settings (B9h) record
  130. landscape_on        BYTE(00010000b)     ! print_flags (byte 36)
  131.  
  132. bin_none            BYTE(0)             ! paper_bin values
  133. bin_sngl_sht        BYTE(1)
  134. bin_manual          BYTE(2)
  135. bin_upper           BYTE(3)
  136. bin_lower           BYTE(4)
  137.  
  138. paper_letter        BYTE(0)             ! paper_type values
  139. paper_A4            BYTE(1)
  140. paper_80x66         BYTE(2)
  141. paper_132x66        BYTE(3)
  142. paper_80x72         BYTE(4)
  143. paper_legal         BYTE(5)
  144. paper_B5            BYTE(6)
  145.                 .
  146. rec_colors      GROUP,PRE(rcc)      ! Colors used in the color_neg (99h)
  147. black               BYTE(0)         !   and the shadow_color (A3h) records
  148. dk_blue             BYTE(1)
  149. green               BYTE(2)
  150. cyan                BYTE(3)
  151. red                 BYTE(4)
  152. magenta             BYTE(5)
  153. yellow              BYTE(6)
  154. white               BYTE(7)
  155.                 .
  156.  
  157. port_codes      GROUP,PRE(wyp)      ! WYSIWYG printer port assignments (87h record)
  158. parallel_1          BYTE(0)
  159. serial_1            BYTE(1)
  160. parallel_2          BYTE(2)
  161. serial_2            BYTE(3)
  162. DOS_LPT1            BYTE(4)
  163. DOS_LPT2            BYTE(5)
  164. DOS_LPT3            BYTE(6)
  165. DOS_LPT4            BYTE(7)
  166.                 .
  167. baud_rates      GROUP,PRE(wyb)      ! WYSIWYG printer baud rates (88h record)
  168. baud_110            BYTE(0)
  169. baud_150            BYTE(1)
  170. baud_300            BYTE(2)
  171. baud_600            BYTE(3)
  172. baud_1200           BYTE(4)
  173. baud_2400           BYTE(5)
  174. baud_4800           BYTE(6)
  175. baud_9600           BYTE(7)
  176. baud_19200          BYTE(8)
  177.                 .
  178.