Radio Shack TRS-80 User Manual page 211

70
SET(RND[
127) ,RND(47)
)
72 N.
Z
30 1=0
1000 P.AT525,
"WHOSE
WOODS THESE
ARE
I
THINK
I
KNOW."
i
1001 GDSUB6000
1100
P.AT525,"HIS
HOUSE
IS
IN
THE VILLAGE,
THOUGH"
;
1
101
GOSUB6000
1200
P.AT525,"
HE WILL
NOT SEE ME STOPPING HERE "
S
1201 GOSUE6000
1300
P.AT525,"
TO
WATCH HIS WOODS FILL
UP
WITH SNOW"
j
1301
GOSUB6000
1*00
P.AT525,"MY
LITTLE HORSE MUST THINK
IT
QUEER "
j
1*01
GOSUB6000
1500
P.AT525, "
TO STOP WITHOUT
A
FARMHOUSE NEAR
"
;
1501 GOSUB6000
1600
P
.
AT525
,
"
BETWEEN THE WOODS AND FROZEN LAKE "
|
1601
GDSUB6000
1700
P.AT525,"THE DARKEST EVENING
OF
THE YEAR.
"
i
1701 GDSUB6000
1600
P.AT525,"
HE
GIVES HIS HARNESS BELLS
A
SHAKE
"
;
1801
GOSUB6000
1900
P.AT525,"
TO ASK IF THERE
IS
SOME MISTAKE."
i
1901
GOSUB6000
2000
P.
AT525
,
" THE ONLY OTHER SOUND'S THE SWEEP";
2001
GOSUB6000
2100
P.AT525,"OF EASY
WIND AND
DOWNYFLAKE.
"
;
2101 GOSUB6000
2200
P.ATS25,"THE
WOODS ARE LOVELY, DARK
AND
DEEP"
;
2201
GOSUB6000
2300 P.AT5S9,"
BUT
I
HAVE
PROMISES
TO
KEEP."
,
2305 1=3
2310 GDSUB6000
2*00
P.AT6S3,"AND
MILES
TO GO BEFORE
I
SLEEP."
|
2405 1=6
2*10 GOSUB6000
2500
P,AT717,"AND
MILES
TO GO
BEFORE
I
SLEEP,"
;
2505
1=9
2510 GOSUB6000
5000 SET(RND(
1
27) ,RND(47
) )
5001
G.5000
6000 F.N=1TO20
6020 X=RND!
127
)
6030 Y=RND{
*7
)
6070
IF Y =
2*+IG.6020
6080
IF Y = 25+1
G.6020
6090
IF
Y =
26+1
G.6020
6100
SET(
X, Y)
6150
F,
A=lTD20iN.
A
6 2
00 N.N
6300 RETURN
Termites
A
malicious
sense
of
humor
helps
on
this
one.
Its
avowed purpose
is
to
demon-
strate the graphic
RESET
(X,
Y)
function, turning off the
"lights"
in a
random
fashion, but
it's
not without other redeeming
value.
If
you
don't like to
sit
by
the
fire
and watch
it
snow
while reading good
poetry,
you
can always watch the
termites eat
your house down.
40 CLS
50
F
.X=1T0127
60 F.Y=3T047
100 SET(X,
Y)
120 N.YtN.X
209