Advertisement
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
•
Putting Gemini to Work
!O WIDTH 'LPT1:',132
20 ESCS=CHRS(27) : LFS=CHRS(lOI : FF$=CHRS(121 : CRS=CHRS(131
30 PICAS=ESC$+'B"+CHRS(l) : ELITES=ESC$+'B'+CHRS(21 : COMPS=ESCS+"S' + CHR' ( 31
40 SUPERS'ESCS+'S'+CHR$(O) : SUBS-ESC$+'S'+CHRS(l) : CANSS=ESCS+' T '
50 ITALICS=ESCS+CHRS(52) : STANDS=ESCS+CHRS(53)
bO WIDE$=CHRS(14) : CANWIDES=CHRS(201 : PRSETS=ESCS+' @ '
70 EMPHS=ESCS+' E ' : CEMPHS=ESCS+"F' : DBLS$=ESCS+"G" : CDBLSS=ESCS+' H '
80 LPRINT
PRSETS:~SCS;'R';CHRS(15):FFS
90 FOR I = 1 TO 2
100 IF I = 1 THEN LPRINT WIDES;'
GEMINI STANDARD TYPE STYLES' : CANWIDES;LFS
I
110 IF I • 2 THEN LPRINT ITALICSS:WIDES:"
GEMINI ITALIC TYPE STYLES' : CANWIDE.!LFS
120 FOR
N
=
1
TO 40 : LPRINT CHR$(231) : CHRS(232) ; : NEXT N : LPRINT : LPRINT
130 LPRINT'
17 cpi 12 cpi
10
cpi
8,5
cpi
6
cpi
5 cei'
140 FOR
N
=
1
TO 80 : LPRINT CHRS
(2 41) : :
NEXT
N :
LPRINT
150 MSGIS=' ABC': MS62S="Xx" : "S63$='Yy'
IbO FOR
J =
1 TO 4
170 IF I • 2 THEN LPRINT ITALICS:
180 IF
J
=
1
THEN LPRINT COMPS:"normal
,
,
,
190 IF
J •
2 THEN LPRINT CO"P':'double strike ':
200 IF
J •
3
THEN LPRINT COMP'!"lmphali ••
d
"
210 IF
J :
4 THEN LPRINT CaMPS: "double strike ';
220 FOR K = 1 TO b
230
IF
K
= 1 THEN LPRINT CaMP.;
240
IF
K
= 2 THEN LPRINT ELITE$:
250
IF
K : 3
THEN LPRINT PICAS;
260
IF
K : 4
THEN LPRINT COMP' : NIDE$;
270
IF
K : 5
THEN LPRINT ELITES;WIDE$:
280 IF
K : 6
THEN LPRINT PICA.;NIDE.:
290
IF
J :
2
THEN LPRINT DBLSS;
300
IF
J
=
3
THEN LPRINT E"PHS;
310 IF
J
= 4 THEN LPRINT DBLSS;EMPH' ;
320 LPRINT
MSGI$;SUPERS;~SG2$;CANSS:SUB';MSG3$;CANSS:CDBLSS:
330 IF
K
>
3 THEN LPRINT CANWIDE.:
340 NEXT
K
345 IF J-2 THEN LPRINT LFSI
350 IF
J
= 4 THEN LPRINT ESC':'A';CHR$(9):LF$:COMPS:'
3bO LPRINT PRSET.
370
NEXT
J
380 LPRINT STRIN6$(S,10)
390 NEXT I
400 LPRINT FF. : WIDTH "LPTI,',BO :END
+
":CR'i"emphasized
.
,
,
Figure
5-1.
This sample program (written in BASIC for the IBM-PC, but
amendable to any personal computer) is shown here in reduced or "com-
pressed" type and will produce the "Printing Effects" shown in Figure 5-2.
63
Advertisement
