Gemini Printer User Manual page 69

c
L.
L
L.
L..
Putting Gemini to Work
!O WIDTH "LPT!: ", 132
20 ESCWHR4(27) : LWCHR$(lO! : FFWHRSIl?) : CRl=CHR$(lS)
30 PICM=ESCI+'B"+CHR4 (1) : ELITE)=ESCWB'+CHR$ (21 : COHPI=ESCWB'+CHRI (3)
40 SUPERI~ESCS+'S'+CHR$fO) : SUB$~ESCC+'S'+CHRt (1) : MNSS=ESCSt"T"
SO ITGLIC(1ESCStCHR4(52I : STbND4=ESC$+CHRI(SS)
60 WIDEWHR#(14) : CINWIDE4=CHRI(20) : PRSE?GESCl+'C"
70 EMPH+ESW"E' : CEtiPH$=ESCW'F" : DBLSI=ESCW"6" : CDBLS$=ESC$+"H'
90 LPRINT PRSET$;ESCI; "R';CHRSflSI:FFI
90 FOR I * 1 TO 2
!OO IF I = 1 THEN LPRINT WIDEI;' 6MINI STANDARD TYPE STYLES';CANWIDE$;LF$
110 IF I = 2 THEN LPRINT ITALICS$:WIDE$:" 6EflINI ITALIC TYPE STYLES'ICANWIDE$;LFI
120 FOR N = 1 TO 40 : LPRINT CHRS(231) : CHR4(232) ; : NEXT N : LPRINT : LPRINT
130 LPRINT"
17 :oi 12 cpi
10 cd S.5
cpi
6 cpi 5 cci"
140 FOR N m 1 TO SO : LPRINT CHRSt241) I : NEXT N : LPRINT
150 !SSl$=" IIBC" : tlS62(="Xx' : !!SSS$='Yy"
160 FOR J = 1 TO 4
170 IF I n 2 THEN LPRINT ITALICS:
180 IF J = ! THEN LPRINT COf!P$;"norral
";
190 IF J = 2 THEN LPRINT CONPI:"doublr #trike ":
200 IF J * 3 THEN LPRINT COflPti"tmpharirnd
'1
210 IF J : 4 THEN LPRINT COftPI:"double strike ":
220 FOR K = 1 TO 6
250 IF K = 1 THEN LPRINT CONPt;
?40 IF K = 2 THEN LPRINT ELITES:
250 IF K = 3 THEN LPRINT PICM;
260 IF K = 4 THEN LPRINT COhP$:NIDEI:
270 IF K = 5 THEN LPRINT ELITE$:WIDE$:
280 IF K = 6 THEN LPRINT PIC/I;WIDE4:
290 IF J = 2 THEN LPRINT DBLS8;
ZOO IF J = 3 THEN LPRINT ENPHS;
310 IF J = 4 THEN LPRINT DBLSSiEltPH$:
?20 LPRINT NS6l~;SUPER~:~S624~CbNS(ISUBl:NS631:C~NS~:CDBLS~:
330 IF K 1 3 THEN LPRINT CANWIDEJ;
340 NEXT K
345 IF Jm2 THEN LPRINT Lflr
350 IF J = 4 THEN LPRINT ESCS:'6':CHR4~9):LF4;COMP~:"
360 LPRINT PRSET4
370 NEXT J
380 LPRINT STRIN6S (5,101
390 NEXT I
+ ':CRt; "emphasized ';
400 LPRINT FFI : WIDTH "LPTl:",SO :END
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