1000 REM filename "Moord" BBC B 1010 REM Cassette HDC 02 1020 REM Tellerstand 060-076 1030 REM spel moord in een flatgebouw 1040 PROCinitialisatie :MODE 7:CLS 1050 REPEAT 1060 PROCinvoer 1070 PROCverwerking 1080 PROCuitvoer 1090 UNTIL wond>5 OR p(killer)<=0 1100 PRINT CHR$(136);"U DOODDE DE MOORDENAAR" 1110 PRINT CHR$(136);"GEFELICITEERD" 1120 END 1125: 1130 DEF PROCinvoer:************* 1140 REPEAT INPUT "Wat wilt u? "k$:UNTILk$<>"" 1150 len=LEN k$ 1160 ihand=0: nkam=0 1170 REM verplaatsen 1180 fnd=FALSE 1190 FOR i = 1 TO 6 1200 IF fnd THEN GOTO 1250 1210 IF LEFT$(t$(i),len)<>k$ THEN GOTO 1250 1220 nkam=k(kam,i) 1230 IF nkam<>0 THEN fnd=TRUE:GOTO 1250 1240 PRINT "daar kunt u niet heen!!" 1250 NEXT i 1260 IF fnd THEN ENDPROC 1270 REM handelingen 1280 fnd=FALSE 1290 FOR i = 7 TO 13 1300 IF LEFT$(t$(i),len)=k$ THEN ihand=i:fnd=TRUE 1310 NEXT i 1320 IF fnd THEN ENDPROC 1330 PRINT "ik begrijp u niet" 1340 ENDPROC 1345: 1350 DEF PROCuitvoer:************ 1360 IF ihand=0 THEN PRINT "U ging ";k$ 1370 verdnr=INT((kam-1)/9)+1 1380 kamnr=kam-9*(verdnr-1) 1390 IF (li=0) AND (lil=0) THEN kamnr=10 1400 PRINT "U bent in een ";r$(kamnr) 1410 PRINT "op de ";e$(verdnr);" verdieping" 1420 FOR i = 1 TO 6 1430 IF k(kam,i)<>0 THEN PRINT "U kunt naar ";t$(i) 1440 NEXT i 1450 IF ivoor<>0 THEN PRINT "Er ligt hier een ";v$(ivoor) 1460 IF ipers<>0 THEN PRINT "Een ";p$(ipers);" is in de kamer" 1470 PRINT SPC(15);"***" 1480 ENDPROC 1485: 1490 DEF PROCverwerking:********* 1500 IF nkam<>0 THEN kam=nkam 1510 ivoor=0 1520 fnd=FALSE 1530 FOR i = 1 TO 10 1540 IF fnd THEN GOTO 1560 1550 IF v(i)=kam THEN ivoor=i:fnd=TRUE 1560 NEXT i 1570 ipers=0 1580 fnd=FALSE 1590 FOR i = 1 TO 5 1600 IF fnd THEN GOTO 1620 1610 IF p(i)=kam THEN ipers=i:fnd=TRUE 1620 NEXT i 1630 IF p(4)<>kam THEN GOTO 1750 1640 REM dief 1650 IF RND(1)>.5 THEN GOTO 1750 1660 PRINT "U wordt door iemand op de grond" 1670 PRINT "geworpen" 1680 IF RND(1)>.5 THEN GOTO 1750 1690 PRINT "Hij verdwijnt door een deur" 1700 p(ipers)=INT(9*(verdnr+RND(1)-1))+1:ipers=0 1710 IF ibez<2 THEN GOTO 1750 1720 ibez=ibez-1:v(b(ibez))=INT(RND(1)*18)+1 1730 lil=0 1740 PRINT "Volgens mij mist u iets" 1750 REM handelingen 1760 IF ihand=0 THEN GOTO 2730 1770 REM help 1780 IF ihand<>7 THEN GOTO 1840 1790 PRINT "Mogelijke handelingen: " 1800 FOR i = 1 TO 13 1810 PRINT t$(i) 1820 NEXT i 1830 GOTO 2730 1840 REM pak 1850 IF ihand<>8 THEN GOTO 1970 1860 IF ivoor=0 THEN PRINT "er valt hier niets te pakken ":ENDPROC 1870 PRINT "ik pak de ";v$(ivoor);" voor u" 1880 b(ibez)=ivoor 1890 ibez=ibez+1 1900 IF ivoor<>9 THEN GOTO 1940 1910 PRINT "Hierop ziet u hoe de moordenaar" 1920 PRINT "iemand doodsteekt" 1930 PRINT "De moordenaar is de ";p$(killer) 1940 v(ivoor)=0 1950 ivoor=0 1960 GOTO 2730 1970 REM doodt 1980 IF ihand<>9 THEN GOTO 2360 1990 IF ipers=0 THEN PRINT "hier kunt u alleen de tijd doden":ENDPROC 2000 PRINT "Wilt u de ";p$(ipers);" doden?" 2010 PRINT "Uw slachtoffer lijkt dit aan te voelen" 2020 IF RND(1)>.7 THEN GOTO 2100 2030 PRINT "Hij trekt een groot mes" 2040 IF RND(1)>.8 THEN GOTO 2100 2050 PRINT "en steekt toe. U bloedt !!" 2060 wond=wond+1 2070 IF wond>5 THEN ENDPROC 2080 PRINT "Ik schat dat u nog ";5-wond;" van deze" 2090 PRINT "wonden kunt overleven" 2100 INPUT "Zou je er niet van af zien? ja/nee ";j$ 2110 IF j$="ja" THEN GOTO 2730 2120 PRINT "Ik begin hem te wurgen" 2130 SOUND 0,-7,1,10 2140 PRINT "Hij loopt blauw aan" 2150 sterf=sterf+1 2160 IF sterf<5 THEN GOTO 2220 2170 PRINT "Uw slachtoffer is zojuist overleden" 2180 sterf=0 2190 p(ipers)=-kam 2200 ipers=0 2210 GOTO 2730 2220 IF RND(1)<.8 THEN GOTO 2040 2230 PRINT "Hij rukt zich los" 2240 rich=INT(RND(1)*4)+1 2250 IF k(kam,rich)<>0 THEN GOTO 2320 2260 PRINT "In paniek loopt hij door het raam" 2270 SOUND 0,-15,1,100 2280 PRINT "en valt te pletter" 2290 sterf=0 2300 p(ipers)=0:ipers=0 2310 GOTO 2730 2320 PRINT "En ontsnapt door een deur" 2330 p(ipers)=k(kam,rich) 2340 ipers=0 2350 GOTO 2730 2360 REM bezit 2370 IF ihand<>10 THEN GOTO 2440 2380 IF ibez<2 THEN PRINT "U bezit alleen wat u aan heeft":ENDPROC 2390 PRINT "U bezit het volgende:" 2400 FOR i = 1 TO ibez-1 2410 PRINT v$(b(i)) 2420 NEXT i 2430 GOTO 2730 2440 REM verbind 2450 IF ihand<>11 THEN GOTO 2580 2460 javerb=0 2470 FOR i = 1 TO ibez-1 2480 IF b(i)=4 THEN javerb=i:i=ibez-1 2490 NEXT i 2500 IF javerb=0 THEN PRINT "Dat gaat niet zonder verband":ENDPROC 2510 PRINT "Nou, nou, dat ziet er niet al te" 2520 PRINT "best uit" 2530 PRINT "Dat gaat u de hele voorraad kosten" 2540 wond=0 2550 v(4)=INT(RND(1)*45)+1 2560 b(javerb)=10 2570 GOTO 2730 2580 REM lamp aan 2590 IF ihand<>12 THEN GOTO 2690 2600 jal=0 2610 FOR i = 1 TO ibez-1 2620 IF b(i)=6 THEN jal=1: i=ibez 2630 NEXT i 2640 IF jal=0 THEN PRINT "Dat gaat niet zonder lantaarn":ENDPROC 2650 PRINT "De lantaarn is aan" 2660 lil=1 2670 REM lamp uit 2680 GOTO 2730 2690 IF ihand<>13 THEN GOTO 2730 2700 IF lil=0 THEN PRINT "De lantaarn was al uit" 2710 IF lil=1 THEN PRINT "De lantaarn is uit" 2720 lil=0 2730 REM deuren sluiten 2740 IF p(1)<=0 THEN GOTO 2840 2750 de=INT(RND(1)*4)+1 2760 IF k(p(1),de)=0 THEN GOTO 2840 2770 PRINT "Er zit iemand aan de deur te " 2780 PRINT "morrelen op de ";e$(INT((p(1)-1)/9)+1);" verdieping" 2790 IF RND(1)<.7 THEN GOTO 2840 2800 SOUND 0,-15,1,10 2810 PRINT "Die zit dicht" 2820 k(p(1),de)=0 2830 p(1)=INT(RND(1)*45)+1 2840 REM licht 2850 ron=ron+1 2860 IF ron