Gemini Industries Printer

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

Gemini Industries Printer - page 69