Advertisement
I
Gemini User's Manual
- - - - - - -
:0
OPEN4.4,S:C~D4
20 PRINT TAB(30Ij'HI6H RESOLUTION VERTICAL SPACING'
30 PRINT TAB(30);"USIN6 THE ESC
3
N CONTROL CODE"
40 FOR 1=1 TO 30
50
IF
1=13
THEN 60TO 140
60
~=INT(144/(6.I)):IF
M(2
THEN
M=2
70
PRINT CHRS(27IjCHRS{Sl)jCHR$(I):
90
FOR J=O TO "
00
IF J=M-l THEN PRINT 1;"!144 INCH SPACIN6";TAB(10};:60TO 110
100
PRINT TAB(30);
110
FOR N=l TO 40:PRINT CHRSI2411;:NEXT N:PRINT
120
NEXT
J
140 NEXT I
ISO PRINT CHR${271;"@"
160
PRINTI4:CLOSE4
170
EN~
Figure C-3 is the vertical spacing program (refer to Figure 6-5) amended
for the Commodore computer.
:0
OPEN4,4,S:CMD4
20 PRINT CHRSI2
7
';"@";CHR$(2
7
);"A";CHR$(6"
10 FOR LINE=! TO 2
40 PRINT CHRS(271;"k"jCHPS!1141;CHRS(O):
50 FOR SPACE=1 TO 100
55 PRINT CHRS(Olj:NEXT SPACE
~o
FOR
COL~=1
TO 14
70 READ C:PRINT CHR${CI;:NEX!
COL~
30 PRINT :NEXT LINE
t10 DATA
14,16.34,64,140,140.128.129,140.140,64,34,16,14
100
DATA
224,16,232,68.34,18,
18,le,le,34.6B.232.16.22~
110 PRINT CHR$(27);"@";PRiNT:PRINT:PPINT' " " ,
120
PRINTI4:CLDSE4
130 END
Figure C-4 is the dot graphics program presented in Chapter 6 (the one
that puts
a
smile on your paper) amended for the Commodore computer.
184
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
•
Advertisement
