上下左右スイッチを押して、迷路の中のキャラを動かすことができます。敵とかは居ません。
全部で935バイトです。
CLS DIM D(4):DIM M(14) D(0)=&B0110<<12 D(1)=&B1111<<12 D(2)=&B1111<<12 D(3)=&B0110<<12 M( 0)= &B111111111111111 M( 1)= &B100000000000001 M( 2)= &B101110111111101 M( 3)= &B101000000000101 M( 4)= &B101011111010101 M( 5)= &B100010000010001 M( 6)= &B101010101110101 M( 7)= &B101000100010101 M( 8)= &B101011111010101 M( 9)= &B101000000000101 M(10)= &B101110111111101 M(11)= &B100000000000001 M(12)= &B111111111111111 M(13)=0 FOR J=0 TO 5 FOR I=0 TO 6 PSET I*5+2,J*5+2,1 NEXT NEXT FOR J=0 TO 12 STEP 2 FOR I=0 TO 14 STEP 2 X=I/2*5 Y=J/2*5 IF &H2000>>I AND M(J) THEN LINE X,Y,X+5,Y,1 ENDIF IF &H4000>>I AND M(J+1) THEN LINE X,Y,X,Y+5,1 ENDIF NEXT NEXT X=6 Y=6 WHILE 1 WHILE SW=0 WEND IF SW AND 8 THEN X1=1:Y1=0: IF SW AND 4 THEN X1=-1:Y1=0 IF SW AND 2 THEN X1=0:Y1=1 IF SW AND 1 THEN X1=0:Y1=-1 I=Y/5*2+1+Y1 SFT=X/5*2+1+X1 IF &H4000 >> SFT AND M(I) THEN X1=0:Y1=0 FOR I=0 TO 4 LINE X,Y,X+3,Y+3,0,BF X=X+X1:Y=Y+Y1 BITMAP D,X,Y,4 REM NEXT WEND
最新版ファームのバージョンアップ（nicobas20080823b.zip）でline命令をBoxFullに対応させました。
語尾に「,BF」と付けると四角で塗りつぶします。
