Advertisement
Gemini User's Manual
Q
=r - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
100 IF 1
=
I THEN PRINT WIDEs:"
GEMINI STANDARD TYPE STYLES";CWIDE$
;LFS
110
IF
I =
2
THEN PRINT
ITALICS~WIDE~;'
PRINT
CNIDES;LF$;LFS
120 PRINT ESC';">": FOR N : 1 TO 40: PRINT
N: PRINT ESC$;"=": PRINT: PRINT
130
PRINT·
17
CPt 12
cpr
10
CPl
S CPI'
GEMINI ITALIC TYPE STYLES":
CHR$
(231):
CHRS
(232)::
NEXT
8.5
CPI
6 CPt
140
PRINT ESCS;
H)":
FOR
N = 1
TO
80:
PRINT
CHRS (241)
H
NEXT
N:
PRINT ES
el:":":
PRINT
150
Ml$
=.
ABC':M2$:
'X'
+
CHRS (120):M3$ : "va
+
CHR$ (121)
160 FOR
J
=
1
TO
4
170 IF
I
=
2
THEN PRINT ITALICS;
180 IF
J
=
t THEN PRINT COMPS:"NORMAL
••
,
190 IF
J
= 2
THEN PRINT COMPSI"DOUBLE STRIKE ";
200 IF
J :
3
THEN PRINT COMPSI"EMPHASIZED
Ii,
.
210 IF
J :
4
THEN PRINT COMPS;"DOUBLE STRIKE ":
220 FOR
K : I
TO
6
230
IF
K : I
THEN PRINT COMPS;
240 IF
K
=
2
THEN PRINT ELITES;
250 IF
K
=
3
THEN PRINT PICAS;
260 IF
K : 4
THEN PRINT COMPS;WIDES;
270 IF
K
=
5
THEN PRINT ELITESjWIDESj
280 IF
K
=
6
THEN PRINT PICASjWIDESj
290 IF
J
=
2
THEN PRINT DBLS.;
300 IF
J
= 3 THEN PRINT EMPHS,
310 IF
J :
4
THEN PRINT OBLSS;EHPHS;
320 PRINT MI$;SPRS;M2S;CANS$;SUBS;H3$;CANSS;COBLS' ;
330 IF
K
> 3
THEN PRINT eNlOE.;
340 NEXT
K
345
IF
J :
2 THEN PRINT LF$;
350 IF
J =
4 THEN PRINT ESCSi"A', CHR. (S);LFS!COMP'I"
ASI
ZED
';
360 PRINT PRSETS
370 NEXT
J
3S0 PRINT
390
NEXT I
400 PRINT FF.: PRINT CHR. (9)
+
"SON"I PRI 0
410
END
Figure A-1 is the font styles program (refer to Figure
5-1)
amended for the
Apple /I computer.
154
• •
• •
• •
• •
• •
•
I
• •
• •
•
I
• •
• •
•
Advertisement
