迷路を作成し、通路を見つけるプログラム。
1000 CONSOLE ,,0,25:SCREEN 3,1,0,1:COLOR ,,,,2:CLS 3
1010 T=VAL(MID$(TIME$,4,2))*VAL(MID$(TIME$,7,2)):RANDOMIZE T
1020 DIM A(49,49)
1030 FOR I=0 TO 49:FOR J=0 TO 49:A(I,J)=1
1040 A(0,J)=7:A(49,J)=7:NEXT J
1050 A(I,0)=7:A(I,49)=7:NEXT I
1060 LINE(0,0)-(399,399),7,BF:LINE(8,8)-(391,391),1,BF
1070 X=INT(RND*38)+1:A(X,0)=5:Y=1:LINE(X*8,0)-(X*8+7,7),0,BF:XS=X:YS=Y
1080 A(X,Y)=0:LINE(X*8,Y*8)-(X*8+7,Y*8+7),0,BF
1090 IF A(X-1,Y)=6 THEN A(X-1,Y)=7:LINE((X-1)*8,Y*8)-((X-1)*8+7,Y*8+7),7,BF
1100 IF A(X+1,Y)=6 THEN A(X+1,Y)=7:LINE((X+1)*8,Y*8)-((X+1)*8+7,Y*8+7),7,BF
1110 IF A(X,Y-1)=6 THEN A(X,Y-1)=7:LINE(X*8,(Y-1)*8)-(X*8+7,(Y-1)*8+7),7,BF
1120 IF A(X,Y+1)=6 THEN A(X,Y+1)=7:LINE(X*8,(Y+1)*8)-(X*8+7,(Y+1)*8+7),7,BF
1130 IF A(X-1,Y)=1 THEN A(X-1,Y)=6:LINE((X-1)*8,Y*8)-((X-1)*8+7,Y*8+7),6,BF
1140 IF A(X+1,Y)=1 THEN A(X+1,Y)=6:LINE((X+1)*8,Y*8)-((X+1)*8+7,Y*8+7),6,BF
1150 IF A(X,Y-1)=1 THEN A(X,Y-1)=6:LINE(X*8,(Y-1)*8)-(X*8+7,(Y-1)*8+7),6,BF
1160 IF A(X,Y+1)=1 THEN A(X,Y+1)=6:LINE(X*8,(Y+1)*8)-(X*8+7,(Y+1)*8+7),6,BF
1170 IF A(X-1,Y)=6 OR A(X+1,Y)=6 THEN 1190
1180 IF A(X,Y-1)=6 OR A(X,Y+1)=6 THEN 1190 ELSE GOTO 1280
1190 D=INT(RND*4)+1:ON D GOTO 1200,1220,1240,1260
1200 IF A(X-1,Y)<>6 THEN 1190
1210 X=X-1:GOTO 1080
1220 IF A(X+1,Y)<>6 THEN 1190
1230 X=X+1:GOTO 1080
1240 IF A(X,Y-1)<>6 THEN 1190
1250 Y=Y-1:GOTO 1080
1260 IF A(X,Y+1)<>6 THEN 1190
1270 Y=Y+1:GOTO 1080
1280 FOR J=1 TO 48:FOR I=1 TO 48
1290 IF A(I,J)=6 THEN 1310
1300 NEXT I,J:GOTO 1350
1310 IF A(I-1,J)=1 OR A(I+1,J)=1 THEN 1330
1320 IF A(I,J-1)=1 OR A(I,J+1)=1 THEN 1330 ELSE GOTO 1340
1330 X=I:Y=J:GOTO 1080
1340 A(I,J)=7:LINE(I*8,J*8)-(I*8+7,J*8+7),7,BF:GOTO 1300
1350 E=INT(RND*38)+1:IF A(E,48)<>0 THEN 1350
1360 A(E,49)=0:LINE(E*8,392)-(E*8+7,399),0,BF:XE=E:YE=49
1370 FOR I=1 TO 48:FOR J=1 TO 48
1380 IF A(I,J)=1 THEN A(I,J)=7:LINE(I*8,J*8)-(I*8+7,J*8+7),7,BF
1390 NEXT J,I
1400 LINE(XS*8,0)-(XS*8+7,7),2,BF
1410 LINE(XS*8,YS*8)-(XS*8+7,YS*8+7),2,BF:A(XS,YS)=2
1420 IF YS=49 THEN STOP:GOTO 1030
1430 IF A(XS-1,YS)=0 THEN XS=XS-1:GOTO 1410
1440 IF A(XS+1,YS)=0 THEN XS=XS+1:GOTO 1410
1450 IF A(XS,YS-1)=0 THEN YS=YS-1:GOTO 1410
1460 IF A(XS,YS+1)=0 THEN YS=YS+1:GOTO 1410
1470 LINE(XS*8,YS*8)-(XS*8+7,YS*8+7),8,BF:A(XS,YS)=1
1480 IF A(XS-1,YS)=2 THEN XS=XS-1:GOTO 1410
1490 IF A(XS+1,YS)=2 THEN XS=XS+1:GOTO 1410
1500 IF A(XS,YS-1)=2 THEN YS=YS-1:GOTO 1410
1510 IF A(XS,YS+1)=2 THEN YS=YS+1:GOTO 1410
1520 GOTO 1410