X=4 Y=10 BX=0 BY=0 DO CLS BG COPY BX,BY,32,32 TO 0,0 C=CELL.C(X,Y) IF C=1 THEN X=X+0.1 IF C=2 THEN Y=Y-0.1 IF C=3 THEN X=X-0.1 IF C=4 THEN Y=Y+0.1 IF C=9 THEN X=X+0.1 IF C=10 THEN Y=Y-0.1 IF C=11 THEN X=X-0.1 IF C=8 THEN Y=Y+0.1 CELL X,Y,5 IF X>=10 THEN X=X-1 BX=BX+1 END IF IF Y>=10 THEN BY=BY+1 Y=Y-1 END IF IF X<=3 THEN BX=BX-1 X=X+1 END IF IF Y<=3 THEN BY=BY-1 Y=Y+1 END IF WAIT 3 LOOP #1:MAIN PALETTES 0602080C00383400003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 0004027E7E0204000000000000000000 003C5A18181818000000000000000000 0020407E7E4020000000000000000000 00181818185A3C000000000000000000 00101C101010000000101C1010107E3C FFFFFFFFFFFFFFFF0000000000000000 0000000000000000FFFFFFFFFFFFFFFF FFE7E7E7A5C3FFFFFFFFFFFFFFFFFFFF FFF7FB8383FBF7FFFFFFFFFFFFFFFFFF FFFFC3A5E7E7E7FFFFFFFFFFFFFFFFFF FFEFDFC1C1DFEFFFFFFFFFFFFFFFFFFF #3:MAIN BG 00002020070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700080008000800 08000800080008000800080008000800 08000700070007000700070007000700 07000700070007000700070007000700 07000700070007000800080001000100 01000100010001000100010001000100 08000800080008000800070007000700 07000700070007000700070007000700 07000700080008000400040004000100 01000100010001000100010001000100 01000100040004000400080007000700 07000700070007000700070007000700 07000700010001000100010001000100 01000100010001000100010001000100 04000400040004000100040008000800 08000800080008000800070007000700 07000700010001000100010001000100 01000100010001000100010001000100 04000400040004000400040004000400 04000400040004000400080007000700 07000700010001000100010001000100 020002000200010002000A000A000100 01000100010001000100010001000100 0400040004000400040004000B000700 07000700010001000100010001000200 0A000A000200020002000B0007000A00 0A000100010001000100010001000100 0100040004000400040004000B000700 070007000A000A000A000A000A000A00 0A0009000200020002000B0007000700 0A000A00010001000100010001000100 0100010004000400040004000B000700 07000700080007000700070007000700 070009000200020002000B000B000700 070009000A000A000100010001000100 0100010004000400040004000B000700 07000700080008000800080008000800 0800080002000200020003000B000700 0700070009000A000100010001000100 0100010004000400040004000B000800 08000800010001000100010001000100 0100010002000200020003000B000700 07000700070007000A000A000A000A00 0A000900010004000400040001000100 01000100010001000100010001000100 0100020002000200020002000B000700 07000700070007000700070007000700 07000900010001000100040001000100 01000100010001000100010001000100 0100010002000200020003000B000700 07000700070007000700070007000700 07000900010004000100010001000100 010001000A000A000A000A000A000A00 0A000A000A000A000A000A0007000700 07000700070007000700070007000700 07000900010004000100010001000100 010001000A0007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000900 090004000300030003000B000B000A00 0A000A000A0007000700070007000700 07000700070007000700070007000700 07000700070007000700070009000400 030003000300030003000B0007000700 07000700080008000800080008000800 08000800080008000800080008000800 08000800080008000800080004000300 03000300030003000B000B0007000700 07000700020003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 0300030003000B000700070007000700 07000700030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 030003000B000B000700070007000700 07000700030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000300 0B000B000B0007000700070007000700 07000700030003000300030003000300 03000300030003000300030003000300 03000300030003000300030003000B00 0B000700070007000700070007000700 070007000A000A000A000A000A000A00 0A000A000A000A000A000A000A000A00 0A000A000A000A000A000A000A000A00 0A000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700070007000700070007000700 07000700