Star Micronics 10X User Manual page 194

~
____________________________________ G_6_m_in_i_U_S_6_'·_S_M_B_n_U_B/
:0
QPEN',4.5:C~D4
15 PRINT CHR$(2
71
;'U";CHR$(l'
:0 PRINT
CHR$(271:'~';CHR$161
3D FOR J:i TO
~
~O
FOR 1=1 TO 12
50 REAr
~
60 PRINT
~HR$(A\;
70 NEXT ;
90 PRINT
90 NEXT ~
100 PRINT CHPS(27);"@':
110 PRINT44:CLOSE!
120 END
:30 DATA 23
Q
,224,224,224,239,224.224,224,224.:24,224.224
140 DATA 239,224,224,224,:39!224,224!224.2:4,224,~24,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
17Q
DATA
239!234,239,233.239,224.224,:39.22~.239,224,224
180
DATA 239,239,224,239,239,224,224,234,23
Q
.233,224,224
190 DATA
234,233.224,234,233,224,224.224,239,2:4,:24,224
200 DATA 224,224,224,224,224,224,224,234,233,224,224,224
210 DATA 224,224,224,:24,224,224,224,23
9
,224,224,224.224
Figure C-B is the "Wy" program (refer to Figure 7-1) amended for the
Commodore computer.
10
OPEN4,4.S:Cr,D~
20
PRINT CHR$(27l;"A"iCHR$(6\;CHR$(lS)
2S PRINT CHR$(27);"U";CHP$!\'
30 FOR K=l TO 3
40 PRINT CHR$(27lj"B";CHRS(Kl
50 REST OPE
bO
FOR J=l TO
0
70 FOR 1=1 TO 12
90 READ A:PRINT CHR$(AJ;
~o NEXT I
95 PRINT
100 NEXT J
110 PRINT
186
• •
• •
• •
• •
• •
• •
• •
• •
•
I
• •
• •
•