Star Micronics 10X User Manual page 209

• •
Osborne
I
• •
15 LPRINT CHRf(27';'U";CHRS(I)
•
20 LPRINT CHRS(Z7'j"A"jCHRS(6'
30 FOR J=! TO 9
•
40 FOR 1=1 TO 12
50 READ A
•
60 lPRINT CHRSCA);
70 NEXT I
SO LPRINT
•
90 NEXT
J
100 LPRINT CHRS(27'j"@":
•
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
150 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
ISO 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 E-8 is the "Wy" program (refer to Figure 7-1) amended for the
Osborne computer.
• •
10 lPRINT CHRS(27'j'A"jCHRS(ol;CHR$(15)
20 LPRINT CHR$(27)j"U" jCHRS(1)
30 FOR 1(=1 TO 3
•
40 LPRINT CHRf(27);'S"jCHRS(I()
SO RESTORE •
60 FOR J=t TO 9
70 FOR 1=1 TO 12
•
80 READ A:LPRINT CHRS(A);
90 NEXT 1
•
100 LPRINT
110 NEXT
J
120 LPRINT:NEXT K
•
130
LPRINT CHRS(27);"@":END
140 DATA 224,224,224,224,224,224,224,224,224,245,224,224
•
150 DATA 224,224,224,224,224,224,224,224,252,245,224,224
160 DATA 224,224,224,245,224,224,224,252,239,245,224,224
•
201