Tandy TRS-80 - Page 85

-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