Advertisement
I:'
&;i
Program Listings
10 NIDTH LPRINT
25~
20
E$=CHR$(27):LF$=CHR$(10):F~S=CHR$(12):CRS=CHR$(13)
Gemini User's Manual
30
PC$=Es+"B"+CHR$(I):ELS=ES+"B"+CHRS(21:CKS=ES+"S"+CHR${3\
40
SP$=E$+'S"+CHRS(O):SBS=E$+"S"+CHR$(l):CS$=ES+"T"
50 IT$=E$+CHR$(S2)
60
NDS=CHR$(141:CNS=CHRS(20) :PS$=ES+"@"
70
EKS=ES+"E":CE$=ES+"F":DBS=ES+"6":CDS=E$+"H"
BO lPRINT PS$jESj"R"jCHRS(15)
90
FOR 1=1 TO
2
tOO IF 1=1 THEN LPRINT NDS;"
5E"INl STANDARD TYPE STYLES";CNSjlF.;
110 IF
1=2
THEN LPRINT ITSjNDSj"
GEKINI ITALIC
TYPE
STYLE";
115 lPRINT CW$;LF$
120 FOR N=1 TO 40:LPRINT CHR$(231);CHRS(2321;:NEXT N
130
LPRINT"
17
CPI 12 CPI 10 CPI
9.5
CPI
6
CPI
5
CPI"
140 FOR N=1 TO 80:LPRIHT CHRS(241);:NEXT
N
150
~6S(1)="
ABC":"S6$(2)="X"+CHRS(t2QI:MS6$(31=uY"+CHR$(121)
160 FOR J=1 TO 4
170 IF 1=2 THEN LPR1NT
IT$;
180 IF J=1 THEN LPRINT C"Si"NOR"AL
".
!
190 IF
J=2
THEN LPRINT eMS i"DOUBLE STRIKE
";
200 IF
.1=3
THEN LPRINT C"' ;"E"PHASIZED
"
.
,
210
IF
J=4
THEN LPRINT C"S ;"DOUBlE STRIKE
"i
220 FOR K=l TO 6
230 IF K=l THEN LPRINT C"$;
~40
IF K=2 THEN LPRINT EL$;
250 IF K=3 THEN LPRINT PCS;
260 IF K=4 THEN LPR1NT C"SjWD$j
270
IF
K=5
THEN LPRINT El$jND$j
290 IF K:6 THEN LPRINT pel;NDS;
290 IF J:2 THEN LPRINT DBS;
JOO IF J:3 THEN LPRINT E"S;
310 IF J=4 THEN LPRINT DB$jE"$;
320 LPRINT HS6$(1)jSP$;"S6$(2);CSS;SBSi"S6S(3);CSS;CD$j
330 IF K)3 THEN LPRINT eNS;
340 NEXT K
350 IF J:4 THEN LPRINT E,;RAR;CHR$(B)jLFS;C"S;"
360 LPRINT PSS
365 IF 3=2 THEN LPRINT LF.;
196
• •
• •
• •
• •
• •
• •
• •
• •
• •
•
•
• •
•
Advertisement
