Download Print this page

Nextj; For J=1 To - Star Micronics 10X User Manual

Advertisement

I
Gemini User's Manua'
' - - - - - - - -
Program Listings
5 DIM "1$(5),"2$(5),"3$(5)
10
OPEN 14,8,O,'P'
20 PRINT 14;CHR$(27);"@";CHR$(271;'R";CHR$(15);
30 FOR
1=1
TO
2
40 IF 1=1 THEN PRINT 14;CHR$(14l;·
GEMINI STANDARD TYPE STVLES";CHR$(lB)
50 IF 1=2 THEN PRINT 14;CHRS(14ljCHR$(27l;"4
1 ; "
6E"INI ITALIC TVPE STVLE";CHP,$(IB\
60 FOR N=1 TO 40:PRINT 14;CHRS(231),CHRS(232l;:NEXT N:PRINT 14:PRINT
14
70 PRINT 14;1
17 CPI 12 CPI 10 CPI 8.S CPI
6 CPl
S Cpr"
80
FOR H=1 TO 80:PRINT 14;CHRS(241)j:NEXT N:PRINT
14
90
IUS=' ASCI
92 "2S:
I
X":"2SfLEN("2SI+l)=CHRS(120)
94 "3$="V":N3S(LEN(N3$)+I)=CHR$(121)
100
FOR J=1 TO
4
110 IF 1=2 THEN PRINT 14jCHR$(27);"4";
120
IF J=1 THEN PRINT 14jCHRS(271;"S";CHR$(3);"NOR"AL
..
!
130 IF
J=2
THEN PRINT 14;CHRS(27Ij"S";CHRS(3);"DOUBLE STRIKE A;
140 IF J=3 THEN PRINT 14;CHRS(27';"S';CHRS(3l;"EKPHASIZED
I,
I
150 IF J=4 THEN PRINT 14;CHR$(27)j
I
S"jCHR$(3l;"DOUBLE STRIKE
"j
160 FOR K=! TO
6
170
IF K=1 THEN PRINT 14;CHR$(27);"B";CHRS(31;
180 IF K=2 THEN PRINT 14;CHR$(27lj"B";CHR$(Z);
190 IF K=3 THEN PRINT 14jCHR$(27)j"B"jCHR$(IJj
200 IF K=4 THEN PRINT 14jCHR$(27)jKS';CHR$(3);CHR${14)j
210
IF
K=5 THEN PRINT 14jCHR$(271;"B";CHR$(21;CHRS(14l;
220 IF K=6 THEN PRINT t4;CHRS(27l;AS";CHR$(ll;CHR$(14);
230
IF J=2 THEN PRINT t4;CHR$(27);"6";
240 IF
J=3
THEN PRINT 14;CHR$(27lj"E";
250
IF J=4 THEN PRINT 14;CHR$(271;"G";CHRS(27);"E";
260 PRINT 14;Kl$;CHRS(271;"S";CHR$(0Ij"2S;CHRS(27lj"S"jCHR$(1);"3$;
265 PRINT 14;CHRS(27l;"T";CHR$(lBlj
300 IF K)3 THEN PRINT 14jCHR$(lBI;
310
NEXT
K
320 IF J=4 THEN 60SUB 500
340 PRINT 14;CHRS(27lj"@"
350 IF J=2 THEN PRINT 14jCHR$(10);
360 NEXT
J
370 FOR "=1 TO 5:PRINT 14:NEXT K
380 NEXT I
400 CLOSE 14
168
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •

Advertisement

loading

This manual is also suitable for:

15xGemini-10xGemini-15x