Star Micronics 10X User Manual page 181

• •
•
•
• •
•
•
• •
• •
•
• •
•
•
•
•
• •
•
•
Afari 800/400
10
OPEN
14,S,0,·P·
15 PRINT 14jCHR$(27Ij"U';CHR$(1)
20 PRINT t4;CHR$(27)j"A"jCHR$(6)
30 FOR J=l TO 9
40 FOR 1=1 TO 12
50
READ
A
60 PRINT
14jCHR$(AI;
70 NEXT I
80
PRINT
14
90
NEXT J
100
PRINT t4;CHR$(27);'@'
110
CLOSE
14
120
END
130 DATA 239,224,224,224,239,224,224,224,224,224,224,224
140
DATA
239,224,224,224,239,224,224,224,224,224,224,224
ISO DATA
239,224,224,224,239,224,239,224,224,224,239,224
160
DATA
239,224,239,224,239,224,234,233,224,234,233,224
170 DATA 239,234,239,233,239,224,224,239,224,239,224,224
180 DATA 239,239,224,239,239,224,224,234,239,233,224,224
190 DATA 234,233,224,234,233,224,224,224,239,224,224,224
200 DATA 224,224,224,224,224,224,224,234,233,224,224,224
210 DATA 224,224,224,224,224,224,224,239,224,224,224,224
Figure 8-8 is the "Wy" program (refer to Figure 7-1) amended for the
Atari computer.
10 OPEN 14,B,0,'P"
:0
PRINT
14jCHR$(27);'A"jCHR$(b);CHRS(15)
2S
PRINT
14;CHR$(27Ij"U";CHRS(I)
30 FOR K=1 TO 3
40
PRINT
14jCHR$(27)j"B";CHRS(K)
50 RESTORE
60 FOR
J::J
TO 9
70 FOR 1=1 TO 12
90 READ A:PRINT 14jCHR$(Alj
90 NEXT I
95 PRINT 14
100 NEXT
J
110
PRINT 14
120
NEXT K
130 PRINT t4;CHR$(27)j"@'
173