HP3000-L Archives

November 1999, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: quiz escape chars
From:
Dave Knispel <[log in to unmask]>
Reply To:
Dave Knispel <[log in to unmask]>
Date:
Tue, 9 Nov 1999 17:14:36 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (69 lines) 
Here's a QUIZ file we use here.  It has both line printer and laser printer
escape sequences.

;Following are escape sequences for printer controls...
DEFINE escape-i  INTEGER*2    = 27
DEFINE escape-c  CHARACTER*2  = CHARACTER(escape-i)
DEFINE cpi-10    CHARACTER*10 = escape-c[2:1] + "(s10H   "
DEFINE cpi-12    CHARACTER*10 = escape-c[2:1] + "(s12H   "
DEFINE cpi-16    CHARACTER*10 = escape-c[2:1] + "(s16.7H "
DEFINE cpi-20    CHARACTER*10 = escape-c[2:1] + "(s20H   "
DEFINE high-dens CHARACTER*10 = escape-c[2:1] + "(s1Q    "
DEFINE stnd-dens CHARACTER*10 = escape-c[2:1] + "(s0Q    "
DEFINE stnd-mode CHARACTER*10 = escape-c[2:1] + "&k0S    "
DEFINE comp-mode CHARACTER*10 = escape-c[2:1] + "&k2S    "
DEFINE expd-mode CHARACTER*10 = escape-C[2:1] + "&k8S    "
DEFINE lpi-6     CHARACTER*10 = escape-c[2:1] + "&l6D    "
DEFINE lpi-8     CHARACTER*10 = escape-c[2:1] + "&l8D    "
DEFINE displayon CHARACTER*10 = escape-c[2:1] + "Y       "
DEFINE displayof CHARACTER*10 = escape-c[2:1] + "Z       "
DEFINE perf-sknf CHARACTER*10 = escape-c[2:1] + "&l1L    "

;added codes for laserjet printer
DEFINE printer-reset CHAR*5   = escape-c[2:1] + "E       "
DEFINE bold-on   CHARACTER*5  = escape-c[2:1] + "(s3B"
DEFINE bold-off  CHARACTER*5  = escape-c[2:1] + "(s0B"
DEFINE under-on  CHARACTER*5  = escape-c[2:1] + "&d3D"
DEFINE under-off CHARACTER*5  = escape-c[2:1] + "&d@ "
DEFINE portrait  CHARACTER*5  = escape-c[2:1] + "&l0O"
DEFINE landscape CHARACTER*5  = escape-c[2:1] + "&l1O"
DEFINE upperpapr CHARACTER*5  = escape-c[2:1] + "&l1H"
DEFINE lowerpapr CHARACTER*5  = escape-c[2:1] + "&l4H"
DEFINE letter    CHARACTER*5  = escape-c[2:1] + "&l2A"
DEFINE legal     CHARACTER*5  = escape-c[2:1] + "&l3A"
DEFINE line84pg  CHARACTER*6  = escape-c[2:1] + "&l84P"
DEFINE font0239  CHARACTER*7  = escape-c[2:1] + "(0239X"
DEFINE font3015  CHARACTER*7  = escape-c[2:1] + "(3015X"
DEF ESC CHAR*1 = ESCAPE-C[2:1]
DEFINE font02    CHARACTER*26 = &
   esc + "&l10" + esc + "(8u" + esc + "(s0p12h10v0s3b8T"
DEFINE font05    CHARACTER*26 = &
   esc + "&l10" + esc + "(8u" + esc + "(s0p16.67h8.5v0s3b0T"
DEFINE font10    CHARACTER*26 = &
   esc + "&l10" + esc + "(8u" + esc + "(s0p15h8.5v0s3b0T"
DEFINE SIMPLEX           CHARACTER*5 = ESC + "&l0S"
DEFINE DUPLEX-LONG-EDGE  CHARACTER*5 = ESC + "&l1S"
DEFINE DUPLEX-SHORT-EDGE CHARACTER*5 = ESC + "&l2S"

David Knispel
[log in to unmask]
Phone: 513-248-5029
Fax: 513-248-2672
----- Original Message -----
From: <[log in to unmask]>
To: <[log in to unmask]>
Sent: Tuesday, November 09, 1999 4:43 PM
Subject: quiz escape chars


> Can anyone remind me of how to define an item in quiz that can be used
> in a report to change fonts and other stuff on a laser jet?
>
> [log in to unmask]
>
> Thanks.
>
>
> Sent via Deja.com http://www.deja.com/
> Before you buy.

ATOM RSS1 RSS2