Tandy TRS-80 Owner Manual & Programming Manual page 85
Color computer disk system
Hide thumbs
Also See for TRS-80:
- Technical reference manual (204 pages) ,
- Service manual (60 pages) ,
- Owner's manual (16 pages)
Table of Contents
Advertisement
-APPENDIX
C
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
THIS
230
240
250
260
270
280
290
program.
)
106?
170,
202,
234
,
266,
330,
INKEY*
u
^i
10
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
AN*
=
IF
AN*
=
IF
AN*
=
CLS
PRINT
3 98,
SELECTION
PRINT
3 130,
"PRESS ANY KEY"
FOR
1=1
TO 40:
NEXT
I
ON VAL (AN*)
GOTO 260,270,280,290
LOAD
"
HOUSE
/B
AS ",R
LOAD "FOYER/BAS",R
LOAD "STAIRS/BAS"
,R
END
"
HOUSE
/B AS"
"SELECTIONS:"
"1)
HOUSE"
"2)
FOYER"
"3)
STAIRS"
"4)
END
JOB"
"1,2,3, OR
4"
THEN
180
'
THEN 250
'TO
RETURN FROM
30
40
50
60
70
3,
1
PMODE
PCLS
SCREEN
1,0
DRAW
"
BM66
,
1
08
"
D48
;
R32
;
U48
5
L32
"
DRAW "BM66,68;R132;BM46,96;R132;
BM50,
156;R128"
80 DRAW
"BM50,96;D60;BM178,96?D60;
BM206,88;D50"
90
DRAW
"BM0, 136
;
R50; BM206,
136;R50"
(46,96)-(66,68>,PSET
<
178,
96>-< 198,68)
,
PSET
(198, 68)
-(206, 88), PSET
(174,
156)~<206,
136),
PSET
CIRCLE
(92,
130),
5,0
PAINT
(0,0),
3,
4
(0,
149), 1,4
(67,70) ,4,4
(55,
105),
2*
4
(194, 96),
2,
4
(82, 128)
,3,4
INKEY*
IF
AN*
=
""
THEN 210
LOAD "DISPLAY/BAS'SR
100
110
120
130
140
150
160
170
180
190
200
210
220
230
LINE
LINE
LINE
LINE
PAINT
PAINT
PAINT
PAINT
PAINT
AN*
=
40
50
60
70
BL4
80
BM2
90
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330
340
350
360
370
380
390
400
410
420
430
440
PMODE
3,
1
SCREEN
1,0
DRAW "BM104,60;D92;R48;U92;L48"
DRAW "BM44,20;R16B;D132;L132;
;L12?BL4?L16;BM44, 102;U82"
DRAW "BM220,60;D100;
44,58?D126"
DRAW
"
BM42
,102;
D38
;
R8
;
U38
?
L8
"
DRAW
"BM16,
148;D40;R4;U40"
DRAW
"BM64,
14B;D40;L4;U40"
DRAW
"
BM80
,124;
D40
;
L4
?
U36
"
CIRCLE
(144, 108),
4
(238, 117),
4
(45,
140), 15,4, .3,0,
.7
(45,140),
15,4,
.3, .95,
1
(53,
136),
4
(0,
192)
-< 16,
176),
PSET
(20,
172)-(44,
152),
PSET
(256,
192)-(212,
152),
PSET
(28, 8),
3,
4
(0,0) -(44, 20),
PSET
(
256,
)
-
(
212,
20
)
,
PSET
(220,60)-(244,59)
(
16,
148>-(44,
124)
(16,
148)-(64,
148)
(64,
148)-(80,
124)
(80,
124)-(52,
124)
(10, 10),
3,
4
(60,
32),
3,
4
(240, 20),
3,
4
10
20
30
40
50
60
CIRCLE
CIRCLE
CIRCLE
CIRCLE
LINE
LINE
LINE
PAINT
LINE
LINE
LINE
LINE
LINE
LINE
LINE
PAINT
PAINT
PAINT
PAINT-
PAINT
PAINT
PAINT
PAINT
PAINT
PAINT
PAINT
PAINT
CIRCLE
PSET
PSET
PSET
PSET
PSET
(
1
28
,
64
)
,
2
,
4
(228, 70),
2,
4
(62, 156)
,4,4
(78,
150),
4,
4
(
18,
156),
4,
4
(68,
128), 1,4
(128, 156),
2,
4
(40,
140),
4,
4
(48,
120),
2,
4
(46,
98),
5,
2,;
AN*
=
INKEY*
I
F
AN*
=
"
"
THEN 420
LOAD "DISPLAY/BAS'SR
"STAIRS/BAS"
10
'
20
'
30 PCLS
"FOYER/BAS"
PCLS
PMODE
3,
1
SCREEN
1,0
DRAW "BM60,20;R140;D120;L40?U32;
L4;D52;R4;U20;BM160, 160-L128;U150"
70 DRAW
"BM4,62;D130;BM28, 166?U102;
BM144,
148; R12"
80 DRAW
"BM40,72;D24;R36;U24;L36;
75
Advertisement
Table of Contents
