5 REM COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
10 GOTO 1110
20 J=PEEK(56321+(P=2ORP=3))AND15
30 IFQ=.THENIF(PEEK(56321+(P=2ORP=3))AND16)=.THENRETURN
40 IFQTHENR=-(R=.):IFRTHENO=B*32+31:Z=O+O*(Z=O):POKEV+P*2+1,Z
50 U=((JAND4)=.)-((JAND8)=.):H=((JAND1)=.)-((JAND2)=.)
60 IFU=.THENIFH=.GOTO20
70 X=X+U:Y=Y+H:IFX<1ORX>7THENX=-6*(X>7)+1:U=.
80 IFY<1ORY>6THENY=-5*(Y>6)+1:H=.
90 IFQTHENRETURN
100 POKEV+21,PEEK(V+21)AND254
110 IFX>6THENPOKEV+16,PEEK(V+16)OR1:POKEV,316-X*40:GOTO130
120 POKE V+16,PEEK(V+16)AND254:POKEV,X*40+12
130 POKEV+1,Y*32+30:POKE V+21,PEEK(V+21)OR1:GOTO20
140 GOSUB 160
150 FORZ=1TO12:POKES+24,.:FORZZ=1TO3:NEXT:POKES+24,15:NEXT:RETURN
160 FORZ=.TO23:POKES+Z,.:NEXT:RETURN
170 P=P+1:IFP>CTHENP=1
180 IFW=C-1GOTO 1050
190 IFLX(P)=9GOTO170
200 X=LX(P):Y=LY(P):IFP=2ANDCP=1GOTO310
210 Q=1:A=X:B=Y
220 X=A:Y=B:GOSUB20:IFX=AANDY=BGOTO220
230 IFS(Y,X)=.GOTO220
240 IFP(Y,X)>.GOTO220
250 IFX=.ORX=8ORY=.ORY=7GOTO220
260 GOTO610
270 E=1:XS=X:YS=Y:IF(XS=2ORXS=6)THENIF(YS=2ORYS=5)THENE=.:RETURN
280 E=1:IFXS<1ORXS>7ORYS<1ORYS>6THENE=.:RETURN
290 IFS(YS,XS)=.ORP(YS,XS)>.THENE=.
300 RETURN
310 TR=.
320 TR=TR+1:AT=.:IFTR=5GOTO540
330 AT=AT+1:IFAT=20GOTO320
340 XP=X+INT(RND(1)*3)-1:IFXP=XTHENIF(TR=1ORTR=3)GOTO330
350 YP=Y+INT(RND(1)*3)-1:IFYP=YTHENIF(TR=1ORTR=3)GOTO330
360 IFYP<>YTHENIFXP<>XTHENIF(TRY=2ORTRY=4)GOTO 330
370 IFXP<1ORXP>7ORYP<1ORYP>6GOTO330
380 IFS(YP,XP)=.ORP(YP,XP)>.GOTO330
390 IFTR>2GOTO600
400 SX=XP-X:SY=YP-Y:IFTR=2GOTO470
410 XS=X+2*SX:YS=Y+2*SY:GOSUB280:IFEGOTO600
420 XS=X+SX:YS=Y+2*SY:GOSUB280:IFEGOTO600
430 XS=X+2*SX:YS=Y+SY:GOSUB280:IFEGOTO600
440 XS=X+2*SX:YS=Y+1*SY:GOSUB280:IFEGOTO600
450 XS=X+1*SX:YS=Y+2*SY:GOSUB280:IFEGOTO600
460 GOTO 330
470 YS=Y+2*SY:XS=X-1:GOSUB280:IFEGOTO600
480 XS=X:GOSUB280:IFEGOTO600
490 XS=X+1:GOSUB280:IFEGOTO600
500 XS=X+2*XS:YS=Y-1:GOSUB280:IFEGOTO600
510 YS=Y:GOSUB280:IFEGOTO600
520 YS=Y+1:GOSUB280:IFEGOTO600
530 GOTO330
540 Z=-2
550 Z=Z+1:XS=X+Z:YS=Y-1:GOSUB280:IFEGOTO590
560 YS=Y:IFZTHENGOSUB280:IFEGOTO590
570 YS=Y+1:GOSUB280:IFEGOTO590
580 GOTO550
590 XP=XS:YP=YS
600 A=X:B=Y:U=XP-X:H=YP-Y:X=XP:Y=YP
610 FORZ=1TO8:O=A*40+12+Z*5*U:ON-(O>255)GOTO630
620 POKEV+16,PEEK(V+16)AND255-2*(INT(P*P/2)-(P=1)):POKEV+P*2,O:GOTO640
630 POKEV+16,PEEK(V+16)OR2*(INT(P*P/2)-(P=1)):POKEV+P*2,O-256
640 O=B*32+31+Z*4*H:POKEV+P*2+1,O:NEXT
650 LX(P)=X:LY(P)=Y:P(B,A)=.:P(Y,X)=P
660 IFP=2ANDCP=1GOTO780
670 POKE V+21,PEEK(V+21)AND254:POKEV+16,PEEK(V+16)AND254
680 ONPGOTO690,700,710,720
690 X=2:Y=2:POKEV,92:POKEV+1,94:GOTO730
700 X=6:Y=5:POKEV+1,190:POKEV,252:GOTO730
710 X=6:Y=2:POKEV+1,94:POKEV,252:GOTO730
720 X=2:Y=5:POKEV,92:POKEV+1,190
730 POKEV+21,31
740 Q=.:GOSUB20:POKEV+1,.:IFP(Y,X)THENGOSUB140:GOTO670
750 IFS(Y,X)=.THENGOSUB140:GOTO670
760 IF(X=2ORX=6)THENIF(Y=2ORY=5)THENGOSUB140:GOTO670
770 GOTO 880
780 Z=.
790 Z=Z+1:IFZ>8GOTO840
800 X=LX(1)+CX(Z):IFLX(1)>4THENX=LX(1)+CX(Z)*-1
810 Y=LY(1)+CY(Z):IFLY(1)>3THENY=LY(1)+CY(Z)*-1
820 GOSUB270:IFEGOTO880
830 GOTO790
840 Y=1:X=.
850 X=X+1:IFX>7THENX=.:Y=Y+1
860 GOSUB270:IFEGOTO880
870 GOTO850
880 POKES+3,8:POKES+6,240:POKES+5,10:POKES+1,70:POKES+4,129:PS=52102+X*5+Y*160
890 FORZ=.TO2:O=PS+Z*40:POKEO,224:POKEO+1,224:POKEO+2,224:POKEO+3,224:NEXT
900 S(Y,X)=.:FORZ=15TO.STEP-.2:POKES+24,Z:NEXT
910 FORZ=1TOC:IFZ=PGOTO940
920 IFLX(Z)=9THENGOTO940
930 GOSUB 950
940 NEXT:Z=P:GOSUB950:GOTO170
950 X=LX(Z):Y=LY(Z):IFS(Y+1,X)ANDP(Y+1,X)=.GOTO1040
960 IFS(Y-1,X)THENIFP(Y-1,X)=.GOTO1040
970 IFS(Y,X+1)THENIFP(Y,X+1)=.GOTO1040
980 IFS(Y,X-1)THENIFP(Y,X-1)=.GOTO1040
990 IFS(Y+1,X+1)THENIFP(Y+1,X+1)=.GOTO1040
1000 IFS(Y+1,X-1)THENIFP(Y+1,X-1)=.GOTO1040
1010 IFS(Y-1,X+1)THENIFP(Y-1,X+1)=.GOTO1040
1020 IFS(Y-1,X-1)THENIFP(Y-1,X-1)=.GOTO1040
1030 W=W+1:POKEV+Z*2+1,.:P(Y,X)=.:LX(Z)=9
1040 RETURN
1050 GOSUB 160:N$="#4EUEU":D$="***&*#"
1060 POKES+5,13:POKES+12,9:POKES+24,15:FORZ=1TO6:N=ASC(MID$(N$,Z,1))+15
1070 D=ASC(MID$(D$,Z,1))-34:POKES+1,N:POKES+8,N/2:POKES+4,17:POKES+11,33
1080 FORW=1TO800/D:NEXT:POKES+4,16:POKES+11,32:NEXT:POKES+24,.
1090 POKE198,.:WAIT198,1:POKEV+21,.:PRINT"[147]":POKE53281,.
1100 POKE53265,PEEK(53265)AND191:GOTO1360
1110 PRINT"[147]"CHR$(142)CHR$(8)
1120 POKE88,.:POKE89,232:POKE90,.:POKE91,216:POKE781,9:POKE782,1:POKE56333,127
1130 POKE1,51:SYS41964:POKE1,55:POKE56333,129:POKE56578,PEEK(56578)OR3
1140 POKE56576,PEEK(56576)AND252:POKE53272,(PEEK(53272)AND63)OR48:POKE648,204
1150 POKE53272,(PEEK(53272)AND240)OR8:PRINT"[147]":POKE 53280,6
1160 POKE53281,.:POKE 53282,1:POKE 53283,14:POKE 53284,.:Z=RND(-TI)
1170 PRINTTAB(11)"ONE MOMENT PLEASE"
1180 DATA0,44,0,0,12,44,44,28,12,12,92,28,28,92,92,92,92,92
1190 DATA92,92,92,92,92,92,92,92,92,28,92,28,12,28,42,170,12,170
1200 DATA42,170,170,10,170,168,2,170,168,255,24,255,192,60,3,192,126,3
1210 DATA192,24,3,0,24,0,32,24,4,96,24,6,255,255,255,255,255,255,96,24,6
1220 DATA32,24,4,0,24,0,192,24,3,192,126,3,192,60,3,255,24,255
1230 FORZ=.TO44:READA:POKE59392+Z,A:NEXT:FORZ=45TO62:POKE59392+Z,.:NEXT
1240 FORZ=.TO47:READA:POKE59456+Z,A:NEXT:FORZ=48TO62:POKE59456+Z,.:NEXT
1250 V=53248:S=54272:GOSUB160
1260 POKE53240,161:POKE53241,160:POKE53242,160:POKE53243,160:POKE53244,160
1270 POKEV+39,1:POKEV+40,7:POKEV+41,13:POKEV+42,3:POKEV+43,15
1280 POKEV+28,30:POKEV+37,1:POKEV+38,11
1290 FORZ=.TO39:READA:POKE57560+Z,A:NEXT:FORZ=.TO47:READA:POKE57680+Z,A:NEXT
1300 FORZ=1TO8:READX:CX(Z)=X:NEXT:FORZ=1TO8:READY:CY(Z)=Y:NEXT
1310 DATA15,15,15,15,15,15,15,15,15,14,12,8,15,15,15,15,0,0,0,0,255,239,207,143
1320 DATA0,0,0,0,255,255,255,255,15,15,15,15,255,239,207,143,15,14,12,8,255,239
1330 DATA207,143,15,14,12,8,255,255,255,255,0,0,0,0,15,15,15,15,1,3,7,15,255
1340 DATA239,207,143,15,15,15,15,255,255,255,255,15,14,12,8,31,63,127,255
1350 DATA1,1,0,1,-1,0,-1,-1,1,0,1,-1,1,-1,0,-1
1360 FORY=1TO6:FORX=1TO7:P(Y,X)=.:S(Y,X)=1:NEXT:NEXT:LX(1)=2:LY(1)=2:LX(2)=6
1370 LY(2)=5:LX(3)=6:LY(3)=2:LX(4)=2:LY(4)=5:P=.:W=.:CP=.
1380 POKE53265,PEEK(53265)AND191:PRINT"[147]":PRINTTAB(10)"[178]"
1390 PRINTTAB(10)"[194]      [194]  [195][219][195]":PRINTTAB(10)"[155][194][213][195][201][213][195][201][194][213][195][174][194][209][155][213][195][201][178][195][201]"
1400 PRINTTAB(10)"[152][194][202][195][201][194] [194][194][194] [194][194][194][194] [194][194] [194]":PRINTTAB(10)"[151][177][202][195][203][202][195][203][202][202][195][202][202][202][202][195][203][177] [202][203]"
1410 PRINTTAB(7)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1420 PRINT""TAB(7)"[158]HOW MANY PLAYERS? (1 TO 4)"
1430 PRINTTAB(7)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1440 PRINTTAB(12)"[152]COPYRIGHT 1990":PRINTTAB(7)"COMPUTE! PUBLICATIONS INC"
1450 PRINTTAB(10)"ALL RIGHTS RESERVED"
1460 POKE198,.:WAIT198,1:GETK$:C=VAL(K$):IFC<1ORC>4GOTO1460
1470 P(2,2)=1:P(5,6)=2:IFC>2THENP(2,6)=3
1480 IFC>3THENP(5,2)=4
1490 IFC=1THENCP=1:C=2
1500 PRINT"[147][151]";:POKE53281,6:POKE53265,PEEK(53265)OR64:FORZ=1TO6
1510 PRINT"  [220][255][255][255][255][170][255][255][255][255][170][255][255][255][255][170][255][255][255][255][170][255][255][255][255][170][255][255][255][255][170][255][255][255][255][223]"
1520 FORJ=1TO3:PRINT"  [219]    [146][219]    [146][219]    [146][219]    [146][219]    [146][219]    [146][219]    [146][219]":NEXT
1530 NEXT:PRINT"  [175][255][255][255][255][171][255][255][255][255][171][255][255][255][255][171][255][255][255][255][171][255][255][255][255][171][255][255][255][255][171][255][255][255][255][174]";
1540 PRINT"  [172][255][255][255][255][221][255][255][255][255][221][255][255][255][255][221][255][255][255][255][221][255][255][255][255][221][255][255][255][255][221][255][255][255][255][173]":FORZ=1TO3
1550 PRINTTAB(8)"    "TAB(28)"    ":NEXT:PRINT"":FORZ=1TO3
1560 PRINTTAB(8)"    "TAB(28)"    ":NEXT
1570 POKEV+1,.:POKEV+7,.:POKEV+9,.:POKEV+2,92:POKEV+3,95:POKEV+4,252
1580 POKEV+5,191:IFC>2THENPOKEV+6,252:POKEV+7,95
1590 IFC>3THENPOKEV+8,92:POKEV+9,191
1600 POKEV+21,31:GOTO170