150 print"{clr}" 155 print"please wait........" 160 dimb(12,20),z(25,2),p(9),q(9) 170 rem 180 rem 190 rem 200 forn1=1to9 210 readp(n1),q(n1) 220 nextn1 230 data-1,1,0,1,1,1,-1,0,0,0,1,0,-1,-1,0,-1,1,-1 240 forn1=1to25 250 forn2=1to2 260 letz(n1,n2)=0 270 nextn2 280 nextn1 290 print"{clr}":z1=0 300 rem 310 rem 320 rem 330 forn1=1to12 340 forn2=1to20 350 b(n1,n2)=4 360 nextn2 370 nextn1 380 forn1=2to11 390 forn2=2to19 400 r=20*rnd(ti) 410 ifr>18.5then490 420 ifr<17.90then480 430 z1=z1+1 440 z(z1,1)=n1 450 z(z1,2)=n2 460 b(n1,n2)=2 470 goto490 480 b(n1,n2)=1 490 nextn2 500 nextn1 510 rem 520 rem 530 rem 540 x=5+int(10*rnd(ti)) 550 y=3+int(5*rnd(ti)) 560 b(y,x)=3 570 forn1=y-1toy+1 580 forn2=x-1tox+1 590 ifabs(y-n1)+abs(x-n2)=0then610 600 b(n1,n2)=1 610 nextn2 620 nextn1 630 rem 640 rem 650 rem 660 print 670 print"you have just landed on zombie island" 680 print 690 print"your only hope of survival is to lure all the zombies" 700 print"into potholes. you may indicate the direction of your" 710 print"moves as follows :-" 720 print 730 print"7 8 9" 740 print"4 x 6" 750 print"1 2 3" 760 print:print:print 770 printtab(7)"{rvon}press a key to start" 780 geta$:ifa$=""then780 790 print"{clr}" 800 forn1=1toz1 810 ifb(z(n1,1),z(n1,2))=2then880 820 forn2=n1toz1 830 z(n2,1)=z(n2+1,1) 840 z(n2,2)=z(n2+1,2) 850 nextn2 860 z1=z1-1 870 goto800 880 nextn1 890 print 900 rem 910 rem 920 rem 930 forpp=1to1000:next 931 print"{clr}" 935 forn1=1to12 940 forn2=1to20 950 onb(n1,n2)goto960,980,1000,1020 960 print" "; 970 goto1030 980 print" z"; 990 goto1030 1000 print" x"; 1010 goto1030 1020 print" o"; 1030 nextn2 1040 ifn1<12thenprint 1050 nextn1 1060 print"{home}" 1065 forpp=1to5000:next 1070 rem 1080 rem 1090 rem 1100 print"{home}your move" 1105 geta$:ifa$=""then1105 1106 a=val(a$) 1110 print"{clr}" 1120 ifa>9then1140 1130 ifa>=1then1160 1140 print"please usa a number between 1 and 9 ---"; 1150 goto1100 1160 b(y,x)=1 1170 y=y+q(a) 1180 x=x+p(a) 1190 onb(y,x)goto1200,1220,1200,1240 1200 b(y,x)=3 1210 goto1290 1220 print"straight into the zombies mouth --- "; 1230 goto1600 1240 poke59459,255:print"head first into the pit --- ";:poke59459,0 1250 goto1600 1260 rem 1270 rem 1280 rem 1290 z2=1 1300 z8=z(z2,1) 1310 z9=z(z2,2) 1320 b(z8,z9)=1 1330 z8=z8+sgn(y-z8) 1340 z9=z9+sgn(x-z9) 1350 onb(z8,z9)goto1480,1450,1430,1360 1360 poke59459,255:print"splash goes a zombie":poke59459,0 1370 forz3=z2toz1 1380 z(z3,1)=z(z3+1,1) 1390 z(z3,2)=z(z3+1,2) 1400 nextz3 1410 z1=z1-1 1420 goto1520 1430 print"your zapped by a zombie ---"; 1440 goto1600 1450 print"zoiks!---here come the zombies" 1460 b(z(z2,1),z(z2,2))=2 1470 goto1510 1480 b(z8,z9)=2 1490 z(z2,1)=z8 1500 z(z2,2)=z9 1510 z2=z2+1 1520 ifz2<=z1then1300 1530 rem 1540 rem 1550 rem 1560 ifz1>=1then0890 1570 print 1580 print"well done---the zombies are extinct" 1590 print"you escaped "; 1600 input"another game ";a$ 1620 ifleft$(a$,1)="y"then290 1660 end