K» K)
10 KEY 0 F F:WI
20 SOSUB 2070
30 SCREEN 0
40 CuLOR 1,11
50 CLS
60 '
70 
80 '
90 INPUT"VOER HE
1 -10) "; N
100 PRINT:PRINT
110 IF hl / 1 !M \ X ÜR N >10 THE I nl
120 INPUT  "VOER HET Af \ hl i n
N (1 _ i i 0) V  
130 IF y < i OR V >10 THEN 
140 SCREEN  n n *• ■* x-  
150 CD LOR 6,11,: I 1 
160 CL s   
T AANTAL ZOMBIES IN (
90
170 '
180 '
190 '
00 FOR X=30 TO 230 STEP 20 10 LI NE (X,20S)-(X,0)
220 NEXT X
230 FOR Y-0 TO 180 STEP 20 240 LINE(30,Y#1.4)-(230,Y*1. 250 NEXT Y 260 T=RND(-TIME)
270 FOR 1=1 TO V
282)
290
300
310
320
330
340
350
360
370
K(I)=INT(RND(1)*103*20+33
J(I)=INT(RND(l)*7)*28+3
IF POINT(K(I),J(I))=6 THEN 2B0
PfiINT(K(I),J(I)),6,6
NEXT
SGSUB 1270 R = RND(-TIME)
380 X7. = INT (RND {1  )*10)*2 0 + 33   
390 YX=INT{RND(1  )*7)*28 j. T   
400 IF PO INT < >• '/•, Y X) = 6 T HEN 380  
410 P S E T(XX, Y 7.) , 6    
4^0 PUT SPRI TE 0 ( y v y v ) , 6   
430 FOR 1=1 TO N     
440 X<I)=INT (RND (1 ) * 1 0 / *20 +   
450 Y <I) = I NT(RND  (1) # 7) * 28 + 3   
460 IF Pu INT i V { \ A \ I) , Y (13 ï =6 THE N 440 
R L TUi IF PO INT < X < I ) +20,Y( 1) ) = 6 T HEN 440
464 IF PO INT (X (I ) - 2 0 , Y { I) ) = 6 T HEN 440
466 IF P01NT{X(I),Y(I)+ 28)= 6 THEN 440 880 GOTO 890 
  890 IF PO INT (X X + 5, YX+5)=6 THEN
468 1F PO 1 NT(X(I!,Y ! 15-28)=6 THEN 440   
  900 OM SPRITE SOSUB 1230
470 PSET (X(I) , Y (I)5 ,6 910 SPRITE ON 
480 PUT SPRITE I, (X (I) , Y (I)) , 1,4 920 PUTSPRITE 0,(XX ,YX),6
490 NEXT 930 FOR T=1 TÖ 500 : N EXT
500 ' 940 FDR 1=1 TO N 
510 •• 950 ON SPRITE GOSUB 1180
520 ; 960 SPRITE ON 
530 D=S T1C K (0! 970 IF Y ! I)=209 AND X <I)=240 TH
540 FOR T=1 TO 150:NEXT 60  
550- 1F D=0 THEN 530 980 C=1 
560 ON D GOTO 570,600,650,680,730,760. 990 FOR 8=1 TO 3 
,810 ,040 1000 PUT SPRITEI,{X(I),Y{I)), 15 
570 YX=YX-28 1010 FOR H=1 TG 100 : NEXT
580 IF YX<3 THEN YX = 3:G0TQ 530 1020 PUT SPRITE I,(X (I) , Y!I) ) ,C 
590 GOTO 890 1030 FOR H=1 TO 100 : NEXT
6 00 XX=XX+20 1040 NEXT 
610 IF XX>213 THEN XX=213: GOTO 530
622 630 530 640 650 660 670 680 690 700 710 GOTO 720 730 740 750 760 770 780 790 TO 5 800 810 820 830 840 850 860 870 530
YX=YX-28
IF YX<3 THEN YX=3:XX=XX-20: GOTO
GOTO 890 XX=XX+20
IF XX>213 THEN XX=213;GOTO 532 GOTO 890 XX=XX+20
IF XX>213 THEN XX=213: GOTO 530 YX=YX+28
IF YX>171 THEN YX=171:XX=X%-20: 530
GOTO 890 YX=YX+28
IF YX>171 THEN YX = 171: GOTO 530 GOTO 890
X X = X X - 20
IFXX<33 THEN XX = 33: GOTO 530 YX=YX+28
IFYX>171 THEN YX=171;XX = XX + 20: GO 30
GOTO 890
XI = X X - 20
IF XX<33 THEN XX = 33: GOTO 530 GOTO 090 XX=XX-20
IFXX<33 THEN XX = 33: GOTO 530 Y X = Y X - 2 8
IF YX<3 THEN YX = 3: XX = XX + 2i2: GOTO
1050 IF X (I)< X X THEN X(ï)=X!I)+20
IF X <I)>XX THEN X(l)=X(I)-20 IF YUXYX THEN Y (I) =Y (I) +28 IF Y <I)>YX THEN Y(I)=Y(I)-28
1060 1070 1080 1090 1100 "
1110 '
1120 IF PuINT(X{13 +5,Y(1)+5)=6 THEN X < 15 =240: Y (I) =209: C = 0: B = 8+1 1130 IF A + 8 = N THEN PLAY"6EDEG,i: GOTO 1940
1140 PUT SPRITE I,<X(I),V ! I)),C , 4 1145 IF X(I)<240 THEN BEEP;DEEP:BEE P
1147 IF X(I)=240 THEN PLAY"L24BADEAA
H
1150 POR T = 1 TO 500:NEXT 1160 NEXT I 1170 GOTO 530 1180 SPRITE OFF
1190 IFX(Ï)=XX AND Y(15 = YX THEN PLAY"
L16GABDEA": GOTO 1780
1195 X<I)=240:YU)=209
1200 PUT SPRITE I,(240,209),0:A=A+1
1210 IF A + B = N THEN PLAY"GEDEG": GOTO
1940
1220 RETURN 1230 GOTO 1780 1240 '
1250 '
1260 "
1270 FOR 1=1 TO 16
1280 READAI
1290 8$ = B$ + CHRf (VAL("&B"+LEFTf (Af
, 8)) )
1300 Cf =Cf + CHRf(VAL("&B"+RIGHT$ (A f , 8) ) )
1310 MEXT I
1320 SPRITEK0 )=B$ +Cf 1330 '
1340 FOR 1=1 TO lé 1350 READ Af
1360. Df = D$ + CHRf (VAL ("&B"+LEFT$ (Af
-Ef + CHRf (VAK "&B,,+RI3HT$ (ft
, 8) ! )
1370 Ef t , 8) S 5 1380 NEXT I
1390 SPRITEfS 4)=Df +Ef 1400 RETURN
DATA 0000001111000000 DATA 0000011111100000 DATA 0000110110110000 DATA 0000111111110000 DATA 0000111001110000 DATA 0000011111110000 DATA 0000001111000000 DATA 1111111111111111 DATA 0011111111111100 DATA 0000111111110000 DATA 0000111111110000 DATA 0000111111110000 DATA 00001 1 100.1 1 10000 DATA 0001100000011000 DATA 0011000000001100 DATA 0110000000001110
1410
1420
1430
1440
1450
1460
1470
1480
1490
1500
1510
i ü il B
1530 1540 1550 1560 1570 1580 1590 1600 1610 1620 1630 1640 1650 1660 1670 1680 1690 1700 1710 1720 1730 1740 RETURN
DATA 0000100000010000 DATA 0000010000100000 DATA 0000001111000000 DATA 0000111111110000 DATA 0001110110111000 DATA 0011111111111100 1001111111111000 1000011111100000 1000001111111111 1111111111111111 DATA 0000111111110001 DATA 0000111111110001 DATA 0000011001100001 DATA 0000010000100000 DATA 0000100000210000 DATA 0001110000111000
DATA
DATA
DATA
DATA
1750 REM 1760 '
1770 ■
1780 SCREEN 3 1790 CIS
1800 OPEN" BRP: " AS# 1 1810 COLOR 15,6,6 1820 DRAW "BM20,30"
1830 CIS
1840 PRINT#! ,11 JE BENT"
1850 DRAWBM58,100"
1860 PR INT# 1,,! DOOD "
1870 PLAT"L12CDEFABC'
1880 INTERVAL ON
1890 ON INTERVAL = 200 SOSUB 2(210
1900 GOTO 1900
1910
1920 -1930 "
1940 SCREEN 1
1950 COLOR 4,14,5
1960 LOCATE 8,5
1970 PRINT "JE OVERLEEFT EN"
1980 PRINT "JE DOODDE";N;"ZOMBIES EN" SPRINT "ER WAREN";V;*VULKANEN8 1990 IF N<5 AMD V>5 THEN LOCATE 3,12: PRINT "PROBEER MEER ZOMBIES OF":PRINT "MINDER VULKANEN"
2000 GOSUB 2280 2010 CLS 2020 SCREEN 1 2830 COLOR 1,3,12
2040 LOCATE 3,5,0:PRÏMÏ "JE DOODDE";A +B;"ZOMBIES"
2050 IF N>6 AND V<3 THENLOCATE 3,10:P RINT "PROBEER MINDER ZOMBIES OF":PR IN T "MEER VULKANEN"
2060 GOSUB 2280 2070 COLOR 15,4,4 2080 CLS 2090 2100 '
2110 '
2120 PRINT "JE BENT OP ZOHBIE-EILAND, BEWOOND"
2130 PRINT "DOOR JOU EN ONVRIENDELIJK E ZOMBIES,"
2140 PRINT "ER ZIJN OOK VULKANEN OP H ET EILAND."
2150 -
2160 PRINT "VERPLAATS JEZELF OVER HET EILAND MET"
2170 PRINT ,!EEN VIERKANT PER ZET. GEB RUIK DE": PRINT"CURSORTOETSEN EN ÖNTLO OF' DE ZOMBIES EN VULKANEN."
2180 PRINT "DRUK TNEE TOETSEN TEGELIü K VOOR":PRINT"DIASONAAL ZETTEN. "
2190 PRINT "DE ZOMBIES KOMEN NAAR JE TOE"
2200 PRINT "EN ALS ZE IN AANRAKING KO MEN MET "
2210 PRINT "EEN VULKAAN STERVEN ZE" 2220 PRINT ; PRINT "DOOD DE ZOMBIES VO ORDAT ZE JOU DODEN"
2230
2240 PRINT;PRINT "DRUK SPATIEBALK" 2250 A$ = INKEY$
2260 IF A$<>" " THEN 2250.
2270 RETURN
2280 LOCATE 3,18:PRINT "KIL JE NOG EE N SPEL?":PR INT " (Y OR N)"
2290 A$ = INKEY$
2300 IF A$ = "Y" OR A$="y" THEN RUM 30 2310 IF A$ ="N" GR At="n" THEN LOCATE 5,15:PRINT "EINDE SPEL"
2320 GOTO 2280