Advertisement
Gemini User's Manual
Program Listings
10 POKE
16427,2S~
20 ES=CHRf(27l:LFf=CHRS(10l:FFS=CHRS(12):CR$=CHRS(131
30 PCS=E$+"B"vCHRS(I):ELS=E$+"S'+CHR$(2l:C"S=ES+"B".CHR$(3)
40SPS=Ef."S"tCHR$(Ol:SeS=ES."S"+CHR$(ll:CSS=ES+"T"
50 ITS=ES+CHR$(S2l
60 NDS=CHRS(14):CNS=CHRS(20):PSf=E$.'@"
70 EMf=E$+"E":CES=E$+RF":DB$=E$+"6":CDS=E$."H"
80
LPRINT PS$jE$i"R"
j
CHRS(15)j
90 FOR
1=1 TO 2
100
IF
1=1
THEN LPRINT MDS;"
6E"INI STANDARD TYPE STYLES"jCN
$jLF$
110
IF
I=~
THEN LPRINT ITSjNDS;"
6E"INl ITALIC TYPE STYLE";
CWGjLFt
120 FOR N=l TO 40:LPRINT CHR$(2311;CHRS(232Ij:NEXT N:LPRINT:LP
RINT
130 lPRINT "
17 CPI 12 CPI 10 CPI
8.5
CPI
6 CPI
5
CPI"
140 FOR N=1 TO 8C:LPRINT CHR$(241)j:NEXT N:LPRINT
150 Mlf:"
ABC·:~2$="X'+CHRS(120):"3$=·Y·.CHR$(121)
160 FOR J=l
TO 4
170 IF 1=2 THEN LPRINT IT$:
180 IF J=l THEN LPRINT CKSj"NORKAL
",
190 IF J=2 THEN lPRINT CMSj"DOU9LE STRIKE "j
200 IF
J=3
THEN lPRIHT C"$j"EI' I PHASIZED
"
j
210 IF J=4 THEN LPRINT CI' I $; ·OOUBLE STRIKE ";
220
~OR
K=l TO
b
230 IF K=l THEN LPRINT CI' I $j
240 IF K=2 THEN LPRINT ELS;
250 IF K=3 THEN LPRINT PCS;
260 IF K=4 THEN LPRINT C"S;NDSj
270 IF K=5 THEN LPRINT ELS;NDS;
280 IF
K=6 THEN LPRINT PCSjNDS;
290 IF J=2 THEN LPRINT DB$;
300 IF J=3 THEN lPRINT EI' I $;
310 IF J=4 THEN lPRINT D8$;EK$;
320 LPRINT I'IlSjSPSiI'l2SjCSS;SBS;1'I3S;CSS;CD$;
330 IF K>3 THEN LPRINT CNS;
340 NEXT K
208
• •
•
• •
• •
• •
• •
• •
•
• •
•
I
•
•
I
•
Advertisement
