ZX Computings - OpenLibra

Micro
This program it fascinating to
watch, and makes a good demonstration
of the ZX81, A 'mouse'
fan inverse asterisk) starts off in
a random position somewhere near
the top left hand corner of the
9creen. It is aiming for the bottom
right hand corner. There is a solid
black 'frame' on the screen, and a
number of obstacles are placed
randomly within the frame. When
the mouse finally makes it to the
1 REM MICROMOU5E
5 LET G = 16398
6 LET H=G + 1
10 PRINT RT 0.0
II
35
«•
ii
36
ii
l*
37
I*
end, the number of moves it took
is shown.
The obstacles change position,
the mouse flashes off and on a
few times, and then begins again.
The mouse cannot get itself into a
trap it cannot get out of, unless
it happens to land in one at the
very beginning, so have patience,
no matter how long it seems to
be taking.
1BK
FOR R =1 TO 20
PRINT RT 2 +RND#18, 1 +RND#27;
PRINT RT 2+RND*18_. 1 +RND #27,;
PRINT RT 2 +RND f 18.. 1 +RND #27.;
*•
4-2 PRINT RT R/0;"M"
4-3 PRINT RT 3+RNDH5, 2 +RND#22;
-» »•
4.4. PRINT RT 2+RNDHB, 1 #RNP.#27;
tl it
4-5 PRINT RT 2 +RND # 18 2#RND*24;
4.6 PRINT RT 34RND*15, 2 +RND #27;
47 PRINT RT 2+RNDH8, 2 + RND #24- J
MQ t
IS PRINT RT R . 31; "•'*
57 PRINT RT 2 +RND* 16.. 2 -f RND #26.;
60 NEXT R
61 FOR Z=1 TO 13
62 PRINT RT 20.30;" "
63 PRINT RT 20,30; ' B"
64- PRINT RT 20 . 30 : "fS"
65 PRINT RT 20.30;" "
66 PRINT RT 20,30;"D"
67 PRINT RT 20.30;" "
68 NEXT Z
70 LET R = INT (RND*6 + 1)
75 LET Q=0
80 LET B = INT (RND*15fl)
85 PRINT RT 20.30;" "
90 LET E=R
95 LET Q=Q+1
100 LET F=B
101 IF R =20 RND B =30 THEN GOTO
2000
105 LET T=0
106 IF RND > . 24-78 THEN GOTO 120
110 LET Y = INT ( RND #7 ) +1
Y=1 THEN GOTO 120
Y=6 THEN GOTO 169
Y-3 THEN GOTO 200
Y=4- THEN GOTO 250
Y=5 THEN GOTO 290
Y =2 THEN PPTD J
Y=7 THEN GOTO 330
INT RT R+l,Bj
PEEK (PEEK G +256 *PEEK H>
=0 THEN LET T-1
14-0 IF T = 1 THEN LET R=R*1
150 IF T=1 THEN GOTO 1000
152 IF RND > * 2 THEN GOTO 169
154. IF R=0 OR B =30 THEN GOTO 16
9 155 PRINT RT R-1,B#1;
156 IF PEEK CPEEK G+256#PEEK H)
=0 THEN LET T =1
157 IF T = 1 THEN LET B =B
158 IF T = 1 THEN LET R = R-1
159 IF T = 1 THEN GOTO 1000
165 IF RND0 THEN LET B=B
320 IF T ~ 1 THEN GOTO 1000
330 IF B =0 OR R = 0 THEN GOTO 110
34.0 PRINT RT R-l^B-1;
350 IF PEEK (PEEK G 4-256 #PEEK -H.»
=0 THEN LET T=1
360 IF T = 1 THEN LET R=R-1
370 IF T = 1 THEN LET B = B-1
380 IF T = 1 THEN GOTO 100P»
390 GOTO 110
1000 PRINT RT E.F;" "
1010 PRINT RT R,B;"B"
1020 GOTO 90
2000 PRINT RT 0.. 15 O; *Ji"
2010 FOR N = 1 TO 50
2020 NEXT N
2030 PRINT RT 0,15;"|
204.0 GOTO 30