Advertisement
• •
•
Afar; 8001400
•
2040 PRINT ·LEVEL ••• AND 'STOP' TO GET OUT"
•
I
I
• •
I
• •
• •
•
II
I
I
•
•
I
•
•
I
2050 PRINT • ___________________________________ _
2060 RETURN
Figure
8-2
is the word processing program (refer to Figure
5-4)
amended
for the Atari computer.
S Dl" AS(30),BS(121
10 OPEN 14,B,O,"P·
20 AS:'
25 8$="
30 PRINT 14jAS;"HI6H RESOLUTION VERTICAL SPACIN6"
35 PRINT 14;A$;"USIN6 THE ESC 3 N CONTROL CODE"
40 FOR 1=1 TO 30
SO IF 1=13 THEN 140
bO K=INT{144/(6tI)):If "(2 THEN "=2
70
PRINT 14;CHR$(27l,CHR$(SI);CHR${I);
90 FOR J=O TO "
90 IF J="-1 THEN PRINT 14;1;"'144 INCH SPACIN6"j8$;:60TO 110
100 PRINT 14;A$j
110 FOR N=I TO 40:PRINT 14;CHRS(241);:NEXT N:PRINT
14
120 NEXT
J
140 NEXT I
150 PRINT 14;CHR$(27)j"@'
160 CLOSE
14
170
END
Figure
8-3
is the vertical spacing program (refer to Figure
6-5)
amended
for the Atari computer.
10 OPEN 14,a,O,·p·
20 PRINT 14;CHR$(27);"@"
j
CHRS(27);"A"jCHR$(bl
30 FOR LINE=! TO 2
40
PRINT t4jCHR$(27);"K';CHRS(1141;CHR$(0);
50 FOR SPACE=! TO 100
55 PRINT t4;CHR$(0);:NEXT SPACE
60 FOR COLM=! TO 14
70 READ C:PRINT 14jCHRS(C)j:NEXT COL"
80 PRINT 14:NEXT LINE
171
Advertisement
