100 POKE53280,0:POKE53281,0:PRINT"[159][147]";
110 S=1024:DQ=55296-S
120 POKES+DQ,6:POKES,96:POKES+DQ+39,6:POKES+39,96
130 POKES+DQ+960,6:POKES+960,96:POKES+DQ+999,6:POKES+999,96
140 FORI=S+1TOS+38:POKEI+DQ,6:POKEI,100:NEXT
150 FORI=S+79TOS+959STEP40:POKEI+DQ,6:POKEI,101:NEXT
160 FORI=S+961TOS+998:POKEI+DQ,6:POKEI,99:NEXT
170 FORI=S+40TOS+920STEP40:POKEI+DQ,6:POKEI,103:NEXT
190 DEFFNR(X)=INT(PEEK(56324)*X/256)
200 DIMX(20),Y(20),XD(20),YD(20)
210 N=6
220 FORI=1TON
230 X(I)=FNR(30)+5
240 Y(I)=FNR(20)+2
241 IFPEEK(S+X(I)+Y(I)*40)<>32THEN230
250 XD(I)=FNR(3)-1
260 YD(I)=FNR(3)-1
261 IFXD(I)=0ANDYD(I)=0THEN260
270 NEXT
300 NN=1
310 C=0
500 FORI=1TONN
510 XX=X(I):YY=Y(I)
520 X=XX+XD(I):Y=YY+YD(I)
530 P=PEEK(S+X+40*Y)
540 IFP=32THEN600
545 IFXD(I)ANDYD(I)ANDP=102THEN580
550 IFP=102THENJ=XD(I):XD(I)=YD(I):YD(I)=-J:X=X+XD(I):Y=Y+YD(I):GOTO530
560 IFP=100ORP=99THENYD(I)=-YD(I):GOTO520
565 IFP=103ORP=101THENXD(I)=-XD(I):GOTO520
570 IFP=96THENXD(I)=-XD(I):YD(I)=-YD(I):GOTO520
580 XD(I)=FNR(3)-1
585 YD(I)=FNR(3)-1
587 IFXD(I)=0ANDYD(I)=0THEN580
590 GOTO520
600 POKES+XX+YY*40,32
610 POKES+X+Y*40,81
615 X(I)=X:Y(I)=Y
620 NEXTI
621 C=C+1
622 IFC<100THEN630
623 C=0:NN=NN+1:IFNN>NTHENNN=N
624 P=S+164+FNR(32)+40*FNR(18)
626 IFPEEK(P)=32THENPOKEP,160:POKEP+DQ,FNR(15)+1
630 GOTO500