Advertisement
Gemini User's Manual
10 LPRINT TAB(20Ij"N';CHR$(13IjTAB(20);CHR$(lb4);CHR$(13);TAB(
16),"W I;CHRS(16bJ;CHRSI32J;TAB(22),CHRS(167J;" E";CHRS(13J;TA
B(20);CHR$(lbS);CHR$(13);TAB(20);"S"
15 END
Figure F-7 is the map program presented in Chapter 7 amended for the
TRS-BO.
10 LPRINT CHR$(27);"A";CHRS(6)
15 LPRINT CHR$(27l;IU";CHR$(I)
20 FOR
J
= 1 TO 9
30 FOR I
=
1 TO 12
40 READ A
50
LPRINT CHRS(A);
bO
NEXT
I
70 LPRIHT
BO
NEXT
J
90 DATA 239,224,224,224,239,224, 224,224,224,224,224,224
91 DATA 239,224,224,224,239,224, 224,224,224,224,224,224
92 DATA 239,224,224,224,239,224, 239,224,224,224,239,224
93 DATA 239,224,239,224,239,224, 234,233,224,234,233,224
94 DATA 239,234,239,233,239,224, 224,239,224,239,224,224
95 DATA 239,239,224,239,239,224, 224,234,239,233,224,224
96 DATA 234,233,224,234,233,224, 224,224,239,224,224,224
97 DATA 224,224,224,224,224,224, 224,234,233,224,224,224
9B DATA 224,224,224,224,224,224, 224,239,224,224,224,224
100 LPRINT CHRS(27J;"@":END
Figure F·B is the
"Wy"
program (refer to Figure
7·1)
amended for the
TRS-BO.
5 LPRINT CHR$(27);"U";CHR$(1)
10 LPRINT CHRS(27l;'A"jCHR$(b);CHR$(ISl
15 FOR K
=
1 TO 3
16 LPRIHT CHR'(27);"B";CHR$(K)
17
RESTORE
20
FOR
J
=
1
TO 9
30
FOR
!
=
1 TO 12
40 READ A
50 LPRINT CHR'(A)j
212
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
• •
•
Advertisement
