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; |
|
|
|
|
|
|
|
|
|
| |||||
260IF K = 4 THEN LPRINT COhP$:NIDEI:
270IF K = 5 THEN LPRINT ELITE$:WIDE$:
280IF K = 6 THEN LPRINT PIC/I;WIDE4:
290IF J = 2 THEN LPRINT DBLS8;
ZOO IF J = 3 THEN LPRINT ENPHS;
310IF J = 4 THEN LPRINT DBLSSiEltPH$:
?20 LPRINT NS6l~;SUPER~:~S624~CbNS(ISUBl:NS631:C~NS~:CDBLS~:
330IF K 1 3 THEN LPRINT CANWIDEJ;
340NEXT K
345IF Jm2 THEN LPRINT Lflr
350 | IF J | = 4 | THEN | LPRINT | ESCS:‘6’:CHR4~9):LF4;COMP~:” | + ‘:CRt; “emphasized | ‘; | |
360 | LPRINT | PRSET4 |
|
|
|
|
| |
370 | NEXT | J |
|
|
|
|
|
|
380 | LPRINT | STRIN6S | (5,101 |
|
|
|
| |
390 | NEXT | I |
|
|
|
|
|
|
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
