MSX2用BASICプログラム、簡易3D迷路2023

MSX2用プログラム(Msxpen)。
簡易3D迷路表示プログラム

----

10 COLOR15,0,0:SCREEN5:CLEAR999:DEFINTA-Z:OPEN"GRP:"AS#1
100 R$=STRING$(225,0):R2$=R$
101 FORI=0TO14
102 K=1+I :MID$(R$,K,1)=CHR$(ASC(MID$(R$,K,1))OR1)
103 K=1+I+14*15:MID$(R$,K,1)=CHR$(ASC(MID$(R$,K,1))OR4)
104 K=1+I*15 :MID$(R$,K,1)=CHR$(ASC(MID$(R$,K,1))OR8)
105 K=15+I*15 :MID$(R$,K,1)=CHR$(ASC(MID$(R$,K,1))OR2)
106 NEXT
107 FORI=1to225:MID$(R2$,I,1)=CHR$(INT(RND(1)*8)MOD2):NEXT
110 FORJ=0TO13*1:?j:FORI=0TO13*1:K=1+I+J*15
120 R=INT(RND(1)*3)+1:IF J>0 THEN R=INT(RND(1)*4)+1
130 R=RMOD4:K1=K-(R=1)-(R=2)*15:K2=K+16+(R=3)+(R=0)*15:K3=2^(1+(RMOD2)):K4=2^(3+(RMOD2)AND3): IF (ASC(MID$(R$,K1,1))AND K3)>0 THEN 120
140 MID$(R$,K1,1)=CHR$(ASC(MID$(R$,K1,1))ORK3):MID$(R$,K2,1)=CHR$(ASC(MID$(R$,K2,1))ORK4)
150 NEXT:NEXT
200 READ R:FOR I=1 TO R:READ R0,R1,R2,R3,R4
210 IF R0=0 THEN LINE(R1,R2)-(R3,R4),15,B ELSE IF R0=1 THEN LINE(R1,R2)-(R3,R4) ELSE IF R0=2 THEN PAINT(R1,R2),R3,15
220 NEXT
300 X=0:Y=0:D=0
310 TIME=0:D1=2^((D+3)MOD4):D2=2^D:D3=2^((D+1)MOD4):K=ASC(MID$(R$,X+Y*15+1,1)):C5=-6*((KANDD1)>0):K2=-6*((kANDD2)>0):C8=-6*((KANDD3)>0):C2=2*ASC(MID$(R2$,X+Y*15+1,1))
320 C3=1:C4=6:C6=6:C7=6:IF K2>0 THEN C3=6:GOTO340
330 KK=X+Y*15+1+(D=0)*15-(D=1)-(D=2)*15+(D=3):K=ASC(MID$(R$,KK,1)):C6=-6*((KANDD1)>0):C4=-6*((KANDD2)>0):C7=-6*((KANDD3)>0):C3=1*ASC(MID$(R2$,KK,1))
340 COLOR=(2,C2,C2,C2):COLOR=(3,C3,C3,C3):COLOR=(4,C4,C4,C4):COLOR=(5,C5,C5,C5):COLOR=(6,C6,C6,C6):COLOR=(7,C7,C7,C7):COLOR=(8,C8,C8,C8):
341 REM COLOR=(3,1,1,1):COLOR=(4,K2,K2,K2):COLOR=(6,K1,K1,K1):COLOR=(7,K3,K3,K3)
350 REM
360 PSET(0,0):?#1,X;TAB(4);Y;TAB(4);D
380 IF TIME<20 THEN 380
400 S=STICK(0):IF S=3 OR s=7 THEN D=(D-(S=3)-(S=7)*3)MOD4:GOTO310
410 IF S=1 AND K2=0 THEN Y=Y+(D=0)-(D=2):X=X+(D=3)-(D=1):GOTO310
420 GOTO400
1000 REM
1010 DATA 16
1020 DATA 0,8,8,168,168,0,48,48,128,128,0,68,68,108,108
1030 DATA 1,8,8,68,68,1,168,8,108,68,1,8,168,68,108,1,108,108,168,168
1040 DATA 2,88,28,2,0,2,88,58,3,0,2,88,88,4,0,2,88,118,3,0,2,88,148,2,0
1050 DATA 2,28,88,5,0,2,58,88,6,0,2,118,88,7,0,2,148,88,8,0
9999 'BSC 2023-12