Advertisement
Gemini User's Manual
Program Listings
:Q
ES=CHRf(Z71:LFS=CHR$(lO):FF'=CHR$(12):CRS=CHRS(13)
30 PC$=Es+"B"+CHRSI1):ELS=E$+"S"+CHR$(2):C"$=E$+"S"+CHRS(3\
'OSPf=ES+"S"+CHRf(O):SBS=ES."S"+CHRS(l):CSS=ES+"T"
50 ITS=Ef+CHR$(S2'
60
WDS=CHRSI141:CNS=CHRS(20) :PSS=ES+"@"
70
EMS=ES."E":CES=ES+"F":DB$=E$+"SI:CDt=ES+"H"
900PEN4.4,5:PRINTt4.PS$;ES;"R";CHRS(151;
90 FOR 1=1 TO 2
tOO IF 1=1 THEN
PRINTt4.WDS;"
GEMINI STANDARD TYPE STYLES"jCWS;LFS;
110 IF 1=2 THEN PRINTt4,ITS;WDt;"
6EMINI ITALIC TYPE STYLE' :
ItS
PRINTt4,CWS;LFS
120 FOR N=I TO 40:PRINTt4,CHR$(231);CHR$(232'pNEXT N:PRINTt4:PRINTl4
130
PRINTI4."
11
CPI
1: CPl 10
CPI
8.5
CPl
6
CPT
5
CPl"
t40
FOR N=l
TO
SO:PRINTj4,CHRS(2411;:NEXT N;PRINTI4
150 "S6$(11=' ABC":MS6S(ZI='X'+CHR$(120):MS6$(31:"V'+CHRS{121'
tbO FOR J=I TO 4
170
IF 1=2 THEN PRINTt4,
ITS,
t90
IF 3=1
THEN
P~INTt4.C"$:·NOR~AL
..
,
190
I~
J=2 THEN PRINTt4,CM$ ; "DDUBLE SiRIKE ";
200 IF
J=3 THEN
PRINTt4.C~$ ;'E~PHASIZED
n.
,
210 IF J=4 THEN
PRINTI4,C~$
,"DOUBLE STRIKE ";
~20
FOR K-l TO 6
230 IF
K=l THEN PRINTI4,CM';
~40
IF K=2 THEN PR!NTl4,ELtj
250 IF K=3 THEN PRINTt4,PCS;
:60
:F
K=4 THEN
PRINTt4,C"f;~D$;
270 IF K=5 THEN PRINTl4,EL$jWDSj
:90 IF K=b THEN PRINT.4.PC'jWDS;
~90
IF J=2 THEN PRINTI4,DB$;
300 IF J=3 THEN
PR!NTI4,E~S;
310
I~
J=4 THEN PRINTI4,DB$jEM$;
320 PR!NTt4, M5G$ (11 ;
SPS;
M56$ (2) ; CS$
j
S8.;
!' ! 56$ (3) ; CSt
j
CDS;
330 IF
K>~
THEN PRINTI.,CWS;
340
NEXT K
350 IF J=4 THEN PRINTI4.E$:"A":CHRSlq);lFS:C"S;"
360
PRINTl4.PSS
365 IF J=2
THEN PRINTt4.LF$;
180
+
";CR$:'EMPHAS!ZED H;
• •
• •
• •
• •
• •
• •
• •
• •
•
• •
• •
•
!
•
Advertisement
