Gに辿り着くとクリアです。
下の数字はタイムです。
斜め移動もできます。
結構難しいですよ。
10 CLS:T=9:R=9:N=T:M=R 20 FORA=0TO30:FORB=0TO20:LCA,B:?CHR$(6):NEXT:NEXT 30 FORA=1TO29:FORB=1TO19:LCA,B:?CHR$(0):NEXT:NEXT 40 FORB=1TO14:FORC=1TO9 50 D=RND(4):LCB*2+[D*2],C*2+[D+2+1]:?CHR$(6) 60 LCB*2,C*2:?CHR$(6):NEXT:NEXT 70 LET[0],0,-1,0,1,-1,0,1,0 80 D=RND(4):LCB*2+[D*2],C*2+[D+2+1]:?CHR$(6) 90 X=1:Y=1:LC29,19:?"G":CLT 100 U=X-BTN(28)+BTN(29) 110 V=Y-BTN(30)+BTN(31) 120 LC0,23:?TICK()/60; 130 C=SCR(U,V) 138 IFC=239CLS:?"GAMEOVER!! TIME:";TICK()/60:FORI=0TO5:VIDEO2:WAIT5:VIDEO1:?"^ー^":WAIT5:NEXT:?"メノマエカ゛マックラニナッタ":WAIT180:VIDEO0:BEEP255,10:BEEP1,10:END 139 IFC=6GOTO100 140 LCT,R:?CHR$(0) 142 T=N:R=M:LCT,R:?CHR$(239) 145 P=P+1:IFP%2=0GOTO180ELSEGOTO230 180 IFX>NN=N+1 200 IFX<NN=N-1 210 IFY>MM=M+1 220 IFY<MM=M-1 225 IFSCR(N,M)=6GOTO180 230 LCX,Y:?CHR$(0) 240 X=U:Y=V 250 LCX,Y:?CHR$(249) 260 WAIT12 270 IFC!=71 BEEPRND(255),10:GOTO100 280 CLS:?"GOAL!! TIME:";TICK()/60:CLK 290 END
単に迷路を進むというだけでなく、敵がいるのがいいですね。追いつかれる前にゴールにたどりつけるか……ただの迷路なら何てことない行き止まりに緊迫感が出てます。そしてそれ以上に敵に捕まったあとの演出が見事! こういうの大好きです。