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
To Next Page
Loading...
