Listing: 1 (******************************************************************************) 2 (* HARDCOPY.MOD *) 3 (* *) 4 (* Implements the structures used to initialise printers supported by *) 5 (* MetaWINDOW. The structures ar initialised using TopSpeed's facility for *) 6 (* initialising aggregate constants. *) 7 (* *) 8 (* PSW 06/28/91 08:30am *) 9 (******************************************************************************) 10 11 IMPLEMENTATION MODULE HardCopy; 12 (* 13 * Graphix 14 * Release 3.7 15 * (c) Copyright 1986-1992 PMI 16 * Green Bay, Wisconsin 17 * (414) 468-6040 18 * All rights reserved 19 * 20 *) 21 22 23 FROM GrConst IMPORT HCInfoRec, HC_ROT, HC_XL, HC_ASC; 24 25 CONST 26 27 (*** This is about as generic as is possible. Base printer is an 8 pin ***) 28 (*** Epson model MX-80F/T. Mode is 60 dpi (h) by 72 dpi (v). ***) 29 30 _EPLOInfo = HCInfoRec ( ***** ^ not supported yet 31 8, (* pins *) 32 33 7, (* init codes *) 34 init(ESC,040H,ESC,033H,018H,CR,LF,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 35 36 2, (* quit, reset codes *) 37 reset(ESC,040H,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 38 39 2, (* line header *) 40 header(ESC,04BH,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 41 42 0, (* postamble *) 43 pstam(0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 44 45 2, (* line trailer *) 46 trailer(CR,LF,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 47 48 HC_ROT, (* Options *) ***** ^ not supported yet 49 0, (* printer port *) 50 hcSIG('H','C'), (* signature *) ***** ^ undeclared identifier ***** ^ not supported yet 51 52 00FH, (* max index in translate table *) 53 xlaTable(0,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH) ***** ^ undeclared identifier ***** ^ not supported yet 54 ); (* EPLOInfo *) 55 56 57 58 (*** This is a 8 pin Epson Mode is 120 dpi (h) by 72 dpi (v). ***) 59 60 _EPHIInfo = HCInfoRec ***** ^ not supported yet 61 ( 62 8, (* pins *) 63 64 7, (* init codes *) 65 init(ESC,040H,ESC,033H,018H,CR,LF,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 66 67 2, (* quit, reset codes *) 68 reset(ESC,040H,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 69 70 2, (* line header *) 71 header(ESC,04CH,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 72 73 0, (* postamble *) 74 pstam(0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 75 76 2, (* line trailer *) 77 trailer(CR,LF,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 78 79 0, (* Options *) 80 0, (* printer port *) 81 hcSIG('H','C'), (* signature *) ***** ^ undeclared identifier ***** ^ not supported yet 82 83 00FH, (* max index in translate table *) 84 xlaTable(0,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH) ***** ^ undeclared identifier ***** ^ not supported yet 85 ); (* EPHIInfo *) 86 87 88 89 (*** Hp LaserJet configuration. 75 dpi (h) by 75 dpi (v), rotated. ***) 90 91 _HPLOInfo = HCInfoRec ***** ^ not supported yet 92 ( 93 1, (* pins *) 94 95 11, (* init codes *) 96 init(ESC,02AH,074H,037H,035H,052H,ESC,02AH,072H,030H,041H,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 97 98 6, (* quit, reset codes *) 99 reset(ESC,02AH,052H,042H,CR,FF,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 100 101 3, (* line header *) 102 header(ESC,02AH,062H,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 103 104 1, (* postamble *) 105 pstam(057H,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 106 107 0, (* line trailer *) 108 trailer(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 109 110 HC_ASC+HC_ROT, (* Options. MUST send ASCII length for HP Laserjet *) ***** ^ not supported yet ***** ^ not supported yet 111 080H, (* printer port *) 112 hcSIG('H','C'), (* signature *) ***** ^ undeclared identifier ***** ^ not supported yet 113 114 00FH, (* max index in translate table *) 115 xlaTable(0,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH) ***** ^ undeclared identifier ***** ^ not supported yet 116 ); (* HPLOInfo *) 117 118 119 (*** Hp LaserJet configuration. 150 dpi (h) by 150 dpi (v), rotated. ***) 120 121 _HPMEDInfo = HCInfoRec ***** ^ not supported yet 122 ( 123 1, (* pins *) 124 125 12, (* init codes *) 126 init(ESC,02AH,074H,031H,035H,030H,052H,ESC,02AH,072H,030H,041H,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 127 128 6, (* quit, reset codes *) 129 reset(ESC,02AH,052H,042H,CR,FF,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 130 131 3, (* line header *) 132 header(ESC,02AH,062H,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 133 134 1, (* postamble *) 135 pstam(057H,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 136 137 0, (* line trailer *) 138 trailer(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 139 140 HC_ASC, (* Options. MUST send ASCII length for HP Laserjet *) ***** ^ not supported yet 141 080H, (* printer port *) 142 hcSIG('H','C'), (* signature *) ***** ^ undeclared identifier ***** ^ not supported yet 143 144 00FH, (* max index in translate table *) 145 xlaTable(0,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH) ***** ^ undeclared identifier ***** ^ not supported yet 146 ); (* HPMEDInfo *) 147 148 149 (*** Hp LaserJet configuration. 300 dpi (h) by 300 dpi (v), rotated. ***) 150 151 _HPHIInfo = HCInfoRec ***** ^ not supported yet 152 ( 153 1, (* pins *) 154 155 12, (* init codes *) 156 init(ESC,02AH,074H,033H,030H,030H,052H,ESC,02AH,072H,030H,041H,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 157 158 6, (* quit, reset codes *) 159 reset(ESC,02AH,052H,042H,CR,FF,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 160 161 3, (* line header *) 162 header(ESC,02AH,062H,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 163 164 1, (* postamble *) 165 pstam(057H,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 166 167 0, (* line trailer *) 168 trailer(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 169 170 HC_ASC, (* Options. MUST send ASCII length for HP Laserjet *) ***** ^ not supported yet 171 080H, (* printer port *) 172 hcSIG('H','C'), (* signature *) ***** ^ undeclared identifier ***** ^ not supported yet 173 174 00FH, (* max index in translate table *) 175 xlaTable(0,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH,0FFH) ***** ^ undeclared identifier ***** ^ not supported yet 176 ); (* HPHIInfo *) 177 178 179 (*** Hard Copy Info Structure with an invalid signature to disable ***) 180 (*** HardCopy (and PrintScreen). ***) 181 182 _NULInfo = HCInfoRec ***** ^ not supported yet 183 ( 184 0, (* pins *) 185 186 0, (* init codes *) 187 init(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 188 189 0, (* quit, reset codes *) 190 reset(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 191 192 0, (* line header *) 193 header(0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 194 195 0, (* postamble *) 196 pstam(0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 197 198 0, (* line trailer *) 199 trailer(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0), ***** ^ undeclared identifier ***** ^ not supported yet 200 201 0, (* Options *) 202 0, (* printer port *) 203 hcSIG(0,0), (* signature *) ***** ^ undeclared identifier ***** ^ not supported yet 204 205 0, (* max index in translate table *) 206 xlaTable(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) ***** ^ undeclared identifier ***** ^ not supported yet 207 ); (* NULInfo *) 208 209 210 BEGIN 211 EPLOInfo := _EPLOInfo; ***** ^ undeclared identifier 212 EPHIInfo := _EPHIInfo; ***** ^ undeclared identifier 213 HPLOInfo := _HPLOInfo; ***** ^ undeclared identifier 214 HPMEDInfo := _HPMEDInfo; ***** ^ undeclared identifier 215 HPHIInfo := _HPHIInfo; ***** ^ undeclared identifier 216 NULInfo := _NULInfo; ***** ^ undeclared identifier 217 END HardCopy. ***** ^ not supported yet 136 errors