Advertisement
I
•
I
• •
• •
• •
• •
•
II
I.
I
• •
• •
• •
• •
Apple II Plus
5 PRt 1
10 PRINT TABI 3011"HIGH RESOLUTION VERTICAL SPACING"
IS PRINT TAB! 3011"USING THE ESC 3N CONTROL CODE"
20
FOR! =
1
TO
30
25 IF
I • 7 THEN GOTO
110
26
IF
I
=
q
THEN GOTO
110
30 IF! = 13
THEN GOTO
110
40 l'f" tNT
(\44 1 (6
*
II):
IF
M
<
2
THEN
l' f
=
2
SO
PRINT
CHRt (27);
CHRS
(Sill CHRt
(!);
60 FOR
J
=
0
TO
M
70 IF
J :
M - 1
THEN PRINT
1;'/144
INCH SPACING
';: GOTO
90
90 PRINT TABI
3011
90 FOR N • 1 TO
401
PRINT CHR. 127'1")", CHRt 1241', CHRt 1271'-'"11 NEXT
N:
PRINT
100
NEXT
J
110
NEXT!
120
PRINT CHRt (27);"'.
130 PRI
01 END
Figure A-3 is the vertical spaCing program (refer to Figure 6-5) amended
for the Apple /I computer.
10 PRI 1
20 PR I NT CHRt
(27' I ••• ;
CHRt 127
I ; •
A·; CHRt (
6 I ;
30
FOR
II
=
1
TO
2
40
PRINT CHRt (271,"K", CHRt
(114);
CHRt
(01;
SO FOR SPACE = 1 TO 100
5S
PRINT CHRt
(0)11
NEXT SPACE
60
FOR COLK
=
1
TO
14
70 READ
CI
PRINT CHRt (C);: NEXT COL"
80
PRINT
90
NEXT
Ll
100
DATA
14,16,34,64,78,78,64,64,78,79,64,34,16,14
110
DATA
224,16,232,68,34,19,19,18,18,34,68,232,16,224
120 PRINT CHR$
(27';""
130 PRI 0
140
END
Figure A-4 is the dot graphics program presented in Chapter 6 (the one
that puts
a
smile on your paper) amended for the Apple /I computer.
157
Advertisement
