Micro Mouse

Gallery

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
1000 PRINT AT E,F;" "
1010 PRINT AT A,B;"%*"
1020 GOTO 90
2000 PRINT AT 0,15;"% ";Q;"% "
2010 FOR N=1 TO 3000
2020 NEXT N
2030 PRINT AT 0,15;"% % % % % % "
2040 GOTO 30
2050 CLEAR 
2060 SAVE "1032%4"
2070 RUN