home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / LASER / HP2PMORE.ZIP / HP2PCMNT.SPL < prev    next >
Encoding:
Text File  |  1990-01-14  |  13.4 KB  |  288 lines
  1. ;;;;;;;;;;;;;;;;;;; HP LASERJET IIP ;;;;;;;;;;;;;;;;;;
  2.  
  3. printer LaserJet IIP,root,page ^M,
  4. ;; The resident PC8, PC850, and PC8DN fonts include the IBM extended
  5. ;; character set.  You can use these fonts to draw boxes.
  6. ;; You cannot draw boxes with the resident ECMA94 or Roman8 fonts.
  7. ;; Pica and Elite fonts are Courier; Lineprinter is OCRA-B.
  8. ;; Prepared by Daniel L. Johnson  January 15, 1990
  9.  
  10. ;;Add the following line to the printer list in MAIN.SPL
  11. ;;      printer LaserJet IIP, in hp2p.spl
  12. ;; (add the drive prefix unless you 
  13. ;; copy it into the directory sp-setup occupies!).
  14. ;; This library file assumes no font cartridges are installed.
  15. ;; Hplaser.spl has plenty of font descriptions.
  16.  
  17.     hpi 300,vpi 300,size 50,ff^L,cr^M,leftm 2,
  18.     init ^[&l8c0e66F^[&aR^[9^[&l0O,flag2,
  19.     fwd %1g^[*p%uX,mhm 255,shadow 2,
  20.     down ^[*p+%uY,mvm 255,reset^[E
  21.  
  22. ;; Explanation of init string:
  23. ;;        init ^[&l8c0e66F^[&aR^[9^[&l0O
  24. ;;                  | |  |    |  |     |> Portrait mode
  25. ;;                  | |  |    |  |> Reset to default margin
  26. ;;                  | |  |    |> Set "cursor" to zeroth row
  27. ;;                  | |  |> Set 66 lines/page
  28. ;;                  | |> Set topmargin to 0
  29. ;;                  |> Set vertical motion index to 8/48" increments
  30.  
  31. printer LaserJet IIP.PC8-Portrait
  32. font Pica,width 30,on^[(10U^[(s0p10h12v0s0b3T
  33. ;;                        |     |  |  | | | |> Courier typeface
  34. ;;                        |     |  |  | | |> Medium stroke weight
  35. ;;                        |     |  |  | |> Upright style
  36. ;;                        |     |  |  |> 12-point size
  37. ;;                        |     |  |> pitch=10 cpi
  38. ;;                        |     |> Fixed pitch
  39. ;;                        |> PC-8 Character set
  40. font Pica.italic,width 30,on^[(10U^[(s0p10h12v1s0b3T
  41. ;;                                             |> Slightly bold stroke
  42. font Pica.bold,width 30,on^[(10U^[(s0p10h12v0s3b3T
  43. font Elite,width 25,on^[(10U^[(s0p12h10v0s0b3T
  44. ;;                                  |  |> 10 point size
  45. ;;                                  |> pitch = 12 cpi
  46. font Elite.italic,width 25,on^[(10U^[(s0p12h10v1s0b3T
  47. font Elite.bold,width 25,on^[(10U^[(s0p12h10v0s3b3T
  48. font Small,width 18,on^[(10U^[(s0p16.67h8.5v0s0b0T
  49. ;;       |> Sprint requires "small" font for certain environments
  50. font Lineprinter,width 18,on^[(10U^[(s0p16.67h8.5v0s0b0T
  51. ;;                                          |   |     |> Lineprinter font
  52. ;;                                          |   |> point size 8.5
  53. ;;                                          |> 16.6 char/inch
  54.  
  55. printer LaserJet IIP.PC8-Landscape,
  56.     hpi 300, vpi 232,
  57. ;;                    |> Why is vpi 232 in landscape mode???
  58.     init^[&l1oe50F^[&aR^[9,reset^[E^[&lo66F
  59. ;;               ||  |    |  |> Set to default margins
  60. ;;               ||  |    |> Set cursor position at zeroth row
  61. ;;               ||  |> Text length = 50 lines
  62. ;;               ||> ^[&l0e sets Top Margin to 0 lines
  63. ;;               |> ^[&l1o = landscape orientation
  64. font Pica,width 30,on^[(10U^[(s0p10h12v0s0b3T
  65. font Pica.italic,width 30,on^[(10U^[(s0p10h12v1s0b3T
  66. font Pica.bold,width 30,on^[(10U^[(s0p10h12v0s3b3T
  67. font Elite,width 25,on^[(10U^[(s0p12h10v0s0b3T
  68. font Elite.italic,width 25,on^[(10U^[(s0p12h10v1s0b3T
  69. font Elite.bold,width 25,on^[(10U^[(s0p12h10v0s3b3T
  70. font Small,width 18,on^[(10U^[(s0p16.67h8.5v0s0b0T
  71. font Lineprinter,width 18,on^[(10U^[(s0p16.67h8.5v0s0b0T
  72.  
  73. printer LaserJet IIP.PC850-Portrait
  74. ;; See PC850.TCT for suggested formatter translations.
  75. font Pica,width 30,on^[(12U^[(s0p10h12v0s0b3T
  76. font Pica.italic,width 30,on^[(12U^[(s0p10h12v1s0b3T
  77. font Pica.bold,width 30,on^[(12U^[(s0p10h12v0s3b3T
  78. font Elite,width 25,on^[(12U^[(s0p12h10v0s0b3T
  79. font Elite.italic,width 25,on^[(12U^[(s0p12h10v1s0b3T
  80. font Elite.bold,width 25,on^[(12U^[(s0p12h10v0s3b3T
  81. font Small,width 18,on^[(12U^[(s0p16.67h8.5v0s0b0T
  82. font Lineprinter,width 18,on^[(12U^[(s0p16.67h8.5v0s0b0T
  83.  
  84. printer LaserJet IIP.PC850-Landscape,
  85.     hpi 300, vpi 232,
  86.     init^[&l1oe50F^[&aR^[9,reset^[E^[&lo66F
  87. font Pica,width 30,on^[(12U^[(s0p10h12v0s0b3T
  88. font Pica.italic,width 30,on^[(12U^[(s0p10h12v1s0b3T
  89. font Pica.bold,width 30,on^[(12U^[(s0p10h12v0s3b3T
  90. font Elite,width 25,on^[(12U^[(s0p12h10v0s0b3T
  91. font Elite.italic,width 25,on^[(12U^[(s0p12h10v1s0b3T
  92. font Elite.bold,width 25,on^[(12U^[(s0p12h10v0s3b3T
  93. font Small,width 18,on^[(12U^[(s0p16.67h8.5v0s0b0T
  94. font Lineprinter,width 18,on^[(12U^[(s0p16.67h8.5v0s0b0T
  95.  
  96. printer LaserJet IIP.ECMA94-Portrait
  97. ;; See ECMA94.TCT for suggested formatter translations.
  98. font Pica,width 30,on^[(0N^[(s0p10h12v0s0b3T
  99. font Pica.italic,width 30,on^[(0N^[(s0p10h12v1s0b3T
  100. font Pica.bold,width 30,on^[(0N^[(s0p10h12v0s3b3T
  101. font Elite,width 25,on^[(0N^[(s0p12h10v0s0b3T
  102. font Elite.italic,width 25,on^[(0N^[(s0p12h10v1s0b3T
  103. font Elite.bold,width 25,on^[(0N^[(s0p12h10v0s3b3T
  104. font Small,width 18,on^[(0N^[(s0p16.67h8.5v0s0b0T
  105. font Lineprinter,width 18,on^[(0N^[(s0p16.67h8.5v0s0b0T
  106.  
  107. printer LaserJet IIP.ECMA94-Landscape,
  108.     hpi 300, vpi 232,
  109.     init^[&l1oe50F^[&aR^[9,reset^[E^[&lo66F
  110. font Pica,width 30,on^[(0N^[(s0p10h12v0s0b3T
  111. font Pica.italic,width 30,on^[(0N^[(s0p10h12v1s0b3T
  112. font Pica.bold,width 30,on^[(0N^[(s0p10h12v0s3b3T
  113. font Elite,width 25,on^[(0N^[(s0p12h10v0s0b3T
  114. font Elite.italic,width 25,on^[(0N^[(s0p12h10v1s0b3T
  115. font Elite.bold,width 25,on^[(0N^[(s0p12h10v0s3b3T
  116. font Small,width 18,on^[(0N^[(s0p16.67h8.5v0s0b0T
  117. font Lineprinter,width 18,on^[(0N^[(s0p16.67h8.5v0s0b0T
  118.  
  119. printer LaserJet IIP.PC8DN-Portrait
  120. font Pica,width 30,on^[(11U^[(s0p10h12v0s0b3T
  121. font Pica.italic,width 30,on^[(11U^[(s0p10h12v1s0b3T
  122. font Pica.bold,width 30,on^[(11U^[(s0p10h12v0s3b3T
  123. font Elite,width 25,on^[(11U^[(s0p12h10v0s0b3T
  124. font Elite.italic,width 25,on^[(11U^[(s0p12h10v1s0b3T
  125. font Elite.bold,width 25,on^[(11U^[(s0p12h10v0s3b3T
  126. font Small,width 18,on^[(11U^[(s0p16.67h8.5v0s0b0T
  127. font Lineprinter,width 18,on^[(11U^[(s0p16.67h8.5v0s0b0T
  128.  
  129. printer LaserJet IIP.PC8DN-Landscape,
  130.     hpi 300, vpi 232,
  131.     init^[&l1oe50F^[&aR^[9,reset^[E^[&lo66F
  132. font Pica,width 30,on^[(11U^[(s0p10h12v0s0b3T
  133. font Pica.italic,width 30,on^[(11U^[(s0p10h12v1s0b3T
  134. font Pica.bold,width 30,on^[(11U^[(s0p10h12v0s3b3T
  135. font Elite,width 25,on^[(11U^[(s0p12h10v0s0b3T
  136. font Elite.italic,width 25,on^[(11U^[(s0p12h10v1s0b3T
  137. font Elite.bold,width 25,on^[(11U^[(s0p12h10v0s3b3T
  138. font Small,width 18,on^[(11U^[(s0p16.67h8.5v0s0b0T
  139. font Lineprinter,width 18,on^[(11U^[(s0p16.67h8.5v0s0b0T
  140.  
  141. printer LaserJet IIP.Roman8-Portrait
  142. font Pica,width 30,on^[(8U^[(sp10h12v0s0b3T,tct roman8
  143. font Pica.italic,width 30,on^[(8U^[(s0p10h12v1s0b3T,tct roman8
  144. font Pica.bold,width 30,on^[(8U^[(s0p10h12v0s3b3T,tct roman8
  145. font Elite,width 25,on^[(8U^[(s0p12h10v0s0b3T,tct roman8
  146. font Elite.italic,width 25,on^[(8U^[(s0p12h10v1s0b3T,tct roman8
  147. font Elite.bold,width 25,on^[(8U^[(s0p12h10v0s3b3T,tct roman8
  148. font Small,width 18,on^[(8U^[(s0p16.67h8.5v0s0b0T,tct roman8
  149. font Lineprinter,width 18,on^[(8U^[(s0p16.67h8.5v0s0b0T,tct roman8
  150.  
  151. printer LaserJet IIP.Roman8-Landscape,
  152.     hpi 300, vpi 232,
  153.     init^[&l1oe50F^[&aR^[9,reset^[E^[&lo66F
  154. font Pica,width 30,on^[(8U^[(sp10h12v0s0b3T,tct roman8
  155. font Pica.italic,width 30,on^[(8U^[(s0p10h12v1s0b3T,tct roman8
  156. font Pica.bold,width 30,on^[(8U^[(s0p10h12v0s3b3T,tct roman8
  157. font Elite,width 25,on^[(8U^[(s0p12h10v0s0b3T,tct roman8
  158. font Elite.italic,width 25,on^[(8U^[(s0p12h10v1s0b3T,tct roman8
  159. font Elite.bold,width 25,on^[(8U^[(s0p12h10v0s3b3T,tct roman8
  160. font Small,width 18,on^[(8U^[(s0p16.67h8.5v0s0b0T,tct roman8
  161. font Lineprinter,width 18,on^[(8U^[(s0p16.67h8.5v0s0b0T,tct roman8
  162.  
  163. ;;;;;;;;;;;;;;;;;;;;; ENVELOPES ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  164.  
  165. ;; Top margin must be set to at least 1 line.  If set to 0, 
  166. ;; half the top line is not printed.
  167. ;; This description uses only manual feeding from the MP tray.
  168. ;; See ENV.MSS for specimen envelope formats
  169.  
  170. printer LaserJet IIP.Com10,
  171.         hpi 300, vpi 300,
  172.         init^[E^[&l3h81a1o1E^[&aL^[&arC^[9,reset^[E^[&lo66F
  173. ;;                  |  | ||    |    ||  |> ^[9  resets margins to default values
  174. ;;                  |  | ||    |    ||> ^[&aR sets "cursor" to the zeroth row
  175. ;;                  |  | ||    |    ||> ^[&aC sets "cursor" to the zeroth column
  176. ;;                  |  | ||    |> ^[&aL sets left margin to 0 columns
  177. ;;                  |  | ||> ^[&l1E sets top margin to 1 line
  178. ;;                  |  | |> ^[&l1o sets landscape orientation
  179. ;;                  |  |> ^[&l81a sets job size to COM-10 (4 1/2 x 9 1/2 in)
  180. ;;                  |> ^[&3h selects Manual Envelope feed, MP tray
  181. font Pica,width 30,on^[(12U^[(s0p10h12v0s0b3T
  182. ;;                        |> ^[(12U selects PC-850 font set
  183. font Pica.bold,width 30,on^[(12U^[(s0p10h12v0s1b3T
  184. font Pica.italic,width 30,on^[(12U^[(s0p10h12v1s0b3T
  185. font Elite,width 25,on^[(12U^[(s0p12h10v0s0b3T
  186. font Elite.bold,width 25,on^[(12U^[(s0p12h10v0s1b3T
  187. font Elite.italic,width 25,on^[(12U^[(s0p12h10v1s0b3T
  188. font Lineprinter,width 18,size 38,on^[(12U^[(s0p16.66h8.5v0s0b0T
  189. font Small,width 18,size 38,on^[(12U^[(s0p16.66h8.5v0s0b0T
  190.  
  191. printer LaserJet IIP.Monarch,
  192.         hpi 300, vpi 300,
  193.         init^[E^[&l3h80a1o1E^[&aL^[&arC^[9,reset^[E^[&lo66F
  194. ;;                  |  | | |    |    ||  |> ^[9  resets margins to default values
  195. ;;                  |  | | |    |    ||> ^[&aR sets "cursor" to the zeroth row
  196. ;;                  |  | | |    |    ||> ^[&aC sets "cursor" to the zeroth column
  197. ;;                  |  | | |    |> ^[&aL sets left margin to 0 column
  198. ;;                  |  | | |> ^[&l1E sets top margin to 1 line
  199. ;;                  |  | |> ^[&l1o sets landscape orientation
  200. ;;                  |  |> ^[&l80a sets job size to Monarch (3 7/8 x 7 1/2 in)
  201. ;;                  |> ^[&3h selects Manual Envelope feed, MP tray
  202. font Pica,width 30,on^[(12U^[(s0p10h12v0s0b3T
  203. font Pica.bold,width 30,on^[(12U^[(s0p10h12v0s1b3T
  204. font Pica.italic,width 30,on^[(12U^[(s0p10h12v1s0b3T
  205. font Elite,width 25,on^[(12U^[(s0p12h10v0s0b3T
  206. font Elite.bold,width 25,on^[(12U^[(s0p12h10v0s1b3T
  207. font Elite.italic,width 25,on^[(12U^[(s0p12h10v1s0b3T
  208. font Lineprinter,width 18,size 38,on^[(12U^[(s0p16.66h8.5v0s0b0T
  209. font Small,width 18,size 38,on^[(12U^[(s0p16.66h8.5v0s0b0T
  210.  
  211. printer LaserJet IIP.DL,
  212.         hpi 300, vpi 300,
  213.         init^[E^[&l3h90a1o1E^[&aL^[&arC^[9,reset^[E^[&lo66F
  214. ;;                  |  | | |    |    ||  |> ^[9  resets margins to default values
  215. ;;                  |  | | |    |    ||> ^[&aR sets "cursor" to the zeroth row
  216. ;;                  |  | | |    |    ||> ^[&aC sets "cursor" to the zeroth column
  217. ;;                  |  | | |    |> ^[&aL sets left margin to 0 column
  218. ;;                  |  | | |> ^[&l1E sets top margin to 1 line
  219. ;;                  |  | |> ^[&l1o sets landscape orientation
  220. ;;                  |  |> ^[&l90a sets job size to DL (110 x 220 mm)
  221. ;;                  |> ^[&3h selects Manual Envelope feed, MP tray
  222. font Pica,width 30,on^[(12U^[(s0p10h12v0s0b3T
  223. font Pica.bold,width 30,on^[(12U^[(s0p10h12v0s1b3T
  224. font Pica.italic,width 30,on^[(12U^[(s0p10h12v1s0b3T
  225. font Elite,width 25,on^[(12U^[(s0p12h10v0s0b3T
  226. font Elite.bold,width 25,on^[(12U^[(s0p12h10v0s1b3T
  227. font Elite.italic,width 25,on^[(12U^[(s0p12h10v1s0b3T
  228. font Lineprinter,width 18,size 38,on^[(12U^[(s0p16.66h8.5v0s0b0T
  229. font Small,width 18,size 38,on^[(12U^[(s0p16.66h8.5v0s0b0T
  230.  
  231. printer LaserJet IIP.C5,
  232.         hpi 300, vpi 300,
  233.         init^[E^[&l3h91a1o1E^[&aL^[&arC^[9,reset^[E^[&lo66F
  234. ;;                  |  | | |    |    ||  |> ^[9  resets margins to default values
  235. ;;                  |  | | |    |    ||> ^[&aR sets "cursor" to the zeroth row
  236. ;;                  |  | | |    |    ||> ^[&aC sets "cursor" to the zeroth column
  237. ;;                  |  | | |    |> ^[&aL sets left margin to 0 column
  238. ;;                  |  | | |> ^[&l1E sets top margin to 1 line
  239. ;;                  |  | |> ^[&l1o sets landscape orientation
  240. ;;                  |  |> ^[&l91a sets job size to C5 (162 x 229 mm)
  241. ;;                  |> ^[&1h selects Manual Envelope feed, MP tray
  242. font Pica,width 30,on^[(12U^[(s0p10h12v0s0b3T
  243. font Pica.bold,width 30,on^[(12U^[(s0p10h12v0s1b3T
  244. font Pica.italic,width 30,on^[(12U^[(s0p10h12v1s0b3T
  245. font Elite,width 25,on^[(12U^[(s0p12h10v0s0b3T
  246. font Elite.bold,width 25,on^[(12U^[(s0p12h10v0s1b3T
  247. font Elite.italic,width 25,on^[(12U^[(s0p12h10v1s0b3T
  248. font Lineprinter,width 18,size 38,on^[(12U^[(s0p16.66h8.5v0s0b0T
  249. font Small,width 18,size 38,on^[(12U^[(s0p16.66h8.5v0s0b0T
  250.  
  251. ;;;;; tct ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  252.  
  253. ;; This table reassigns the foreign characters in the Roman8 font set
  254. ;; to correspond to the standard PC key codes, so your text can be readable
  255. ;; on the screen!
  256.  
  257. tct roman8,
  258. ~^@ 180,    ~^P 220,    ~SP 196,    ~` ,        ~p ,
  259. ~^A 207,    ~^Q 215,    ~! 213,    ~a 222,    ~q 254,
  260. ~^B 197,    ~^R 211,    ~" 198,    ~b ,        ~r ,
  261. ~^C 192,    ~^S 194,    ~# 199,    ~c ,        ~s ,
  262. ~^D 204,    ~^T 206,    ~$ 183,    ~d ,        ~t ,
  263. ~^E 200,    ~^U 202,    ~% 182,    ~e ,        ~u ,
  264. ~^F 212,    ~^V 195,    ~& ,        ~f ,        ~v ,
  265. ~^G 181,    ~^W 203,    ~' ,        ~g ,        ~w ,
  266. ~^H 193,    ~^X 239,    ~( 185,    ~h ,        ~x 179,
  267. ~^IΦN.≡p├Γ≡≡p≡pWJ G ≡G ≡Ñ■≡sJ ▌µ≡▌µ≡▌µ≡Q╚W∩≡≡pà M°≡A°≡½    p9τ≡Y°≡.Φ≡╥∩≡÷▌
  268. pn■≡≥µDJ ñ≡≡"≡├.
  269. ª êu <u ─u [.₧.M[.╔.∩µ╔.╔.╔.╔.Wu ½.,    ~^^ ,    ~. 251,    ~n ,        ~~ ,
  270. ~^O 208,    ~^_ 190,    ~/ 253,    ~o ,
  271. ~0 42,    ~@ 42,    ~P 42,
  272. ~1 42,    ~A 42,    ~Q 42,
  273. ~2 42,    ~B 42,    ~R 42,
  274. ~3 42,    ~C 42,    ~S 42,
  275. ~4 42,    ~D 42,    ~T 42,
  276. ~5 42,    ~E 42,    ~U 42,
  277. ~6 42,    ~F 42,    ~V 42,
  278. ~7 42,    ~G 42,    ~W 42,
  279. ~8 42,    ~H 42,    ~X 42,
  280. ~9 42,    ~I 42,    ~Y 42,
  281. ~: 42,    ~J 42,    ~Z 42,
  282. ~; 42,    ~K 42,    ~[ 42,
  283. ~< 42,    ~L 42,    ~\\ 42,
  284. ~= 42,    ~M 42,    ~] 42,
  285. ~> 42,    ~N 42,    ~\^ 42,
  286. ~? 42,    ~O 42,    ~_ 42
  287.  
  288.