Source Code
1 REM **MICROMOUSE**
5 LET G=16398
6 LET H=G+1
10 PRINT AT 0,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
20 PRINT AT 21,0;"% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % "
30 FOR A=1 TO 20
35 PRINT AT 2+RND**18,1+RND**27;" "
36 PRINT AT 2+RND**18,1+RND**27;" "
37 PRINT AT 2+RND**18,1+RND**27;" "
42 PRINT AT A,0;"% "
43 PRINT AT 3+RND**15,2+RND**22;"% % "
44 PRINT AT 2+RND**18,1+RND**27;" "
45 PRINT AT 2+RND**18,2+RND**24;"% "
46 PRINT AT 3+RND**15,2+RND**27;"\##"
47 PRINT AT 2+RND**15,2+RND**24;" \;;\!!"
50 PRINT AT A,31;"% "
57 PRINT AT 2+RND**16,2+RND**26;" "
60 NEXT A
61 FOR Z=1 TO 13
62 PRINT AT 20,30;" "
63 PRINT AT 20,30;"%*"
64 PRINT AT 20,30;"%*"
65 PRINT AT 20,30;" "
66 PRINT AT 20,30;"%*"
67 PRINT AT 20,30;" "
68 NEXT Z
70 LET A=RND**6+1
75 LET Q=0
80 LET B=RND**15+1
85 PRINT AT 20,30;" "
90 LET E=A
95 LET Q=Q+1
100 LET F=B
101 IF A=20 AND B=30 THEN GOTO 2000
105 LET T=0
106 IF RND>-2476 THEN GOTO 120
110 LET Y=RND**7+1
111 IF Y=1 THEN GOTO 120
112 IF Y=6 THEN GOTO 169
113 IF Y=3 THEN GOTO 200
114 IF Y=4 THEN GOTO 250
115 IF Y=5 THEN GOTO 290
116 IF Y=2 THEN GOTO 154
117 IF Y=7 THEN GOTO 330
120 PRINT AT A+1,B;
130 IF PEEK (PEEK G+256*PEEK H)=0 THEN LET T=1
140 IF T=1 THEN LET A=A+1
150 IF T=1 THEN GOTO 1000
152 IF RND>-2 THEN GOTO 169
154 IF A=0 OR B=30 THEN GOTO 169
155 PRINT AT A-1,B+1;
156 IF PEEK (PEEK G+256*PEEK H)=0 THEN LET T=1
157 IF T=1 THEN LET B=B+1
158 IF T=1 THEN LET A=A-1
159 IF T=1 THEN GOTO 1000
165 IF RND<-2 THEN GOTO 110
169 PRINT AT A,B+1;
170 IF PEEK (PEEK G+256*PEEK H)=0 THEN LET T=1
180 IF T=1 THEN LET B=B+1
190 IF T=1 THEN GOTO 1000
195 IF RND<-6 THEN GOTO 290
200 PRINT AT A+1,B+1;
210 IF PEEK (PEEK G+256*PEEK H)=0 THEN LET T=1
220 IF T=1 THEN LET A=A+1
230 IF T=1 THEN LET B=B+1
240 IF T=1 THEN GOTO 1000
245 IF RND<-1 THEN GOTO 110
250 PRINT AT A-1,B;
260 IF PEEK (PEEK G+256*PEEK H)=0 THEN LET T=1
270 IF T=1 AND A>0 THEN LET A=A-1
280 IF T=1 THEN GOTO 1000
290 PRINT AT A,B-1;
300 IF PEEK (PEEK G+256*PEEK H)=0 THEN LET T=1
310 IF T=1 AND B>0 THEN LET B=B-1
320 IF T=1 THEN GOTO 1000
330 IF B=0 OR A=0 THEN GOTO 110
340 PRINT AT A-1,B-1;
350 IF PEEK (PEEK G+256*PEEK H)=0 THEN LET T=1
360 IF T=1 THEN LET A=A-1
370 IF T=1 THEN LET B=B-1
380 IF T=1 THEN GOTO 1000
390 GOTO 110
\n1000 PRINT AT E,F;" "
\n1010 PRINT AT A,B;"%*"
\n1020 GOTO 90
\n2000 PRINT AT 0,15;"% ";Q;"% "
\n2010 FOR N=1 TO 3000
\n2020 NEXT N
\n2030 PRINT AT 0,15;"% % % % % % "
\n2040 GOTO 30
\n2050 CLEAR
\n2060 SAVE "1032%4"
\n2070 RUN
