13) MAZE GENERATOR (360 B)
To use: LOAD 4, RUN 600

610 REM
620 REM MAZE GENERATOR
630 REM
640 DIM W(32)
650 PRINT
660 LET W(1)=2
670 LET W(32)=130
680 FOR I=2 TO 31
690 LET W(I)=3
700 NEXT I
710 LET X=RND(20)
720 LET W(X)=2
730 LET W(X+6)=130
740 FOR I=2 TO 5
750 LET W(X+I)=0
760 NEXT I
770 FOR L=1 TO 15
780 FOR I=1 TO 32
790 PRINT CHR$(W(I));
800 IF I=1 OR I=32 THEN GOTO 920
810 IF W(I)<3 THEN GOTO 890
820 IF W(I)>3 THEN GOTO 870
830 LET X=RND(8)
840 IF X<3 THEN LET W(I)=2
850 IF X=8 THEN LET W(I)=7
860 GOTO 920
870 LET W(I)=1+RND(2)
880 GOTO 920
890 LET X=RND(5)
900 LET W(I)=1+X/2
910 IF X=1 THEN LET W(I)=7
920 NEXT I
930 NEXT L
940 STOP