10 REM***************af 20 REM* BLINDGANGER *ce 30 REM* RENE BOOT *9b 40 REM* WIJO KOEK *b6 50 REM* COMMODORE *e2 60 REM* DOSSIER *e6 80 REM***************f5 90 PRINTCHR$(152)CHR$(147)c7 100 POKE 53280,0:POKE53281,05f 110 GOSUB1480:GOSUB185055 120 GOSUB3220:GOTO84079 130 P=PEEK(56320)91 140 IFP<>127THENGOTO1307d 150 P=PEEK(56320):KEY=PEEK(197)a6 160 VUUR=PAND16:RICHTING=15-(PAND15)37 170 IFP<>127ORKEY<>64THENRETURN89 180 TY=VAL(TI$):IFTY+TL>300THENGOSUB1770:GOTO1230e2 190 PRINTCHR$(5)T$T1$"TIME"300-TY-TLCHR$(157)CHR$(32)e4 200 GOTO15075 210 IFR<>RICHTINGTHENR=RICHTING:RETURNfa 220 P=RAND7:MEMO=NLOK:NLOK=LOK+DIR(P)12 230 KAR=PEEK(NLOK)c9 240 RETURN7e 250 R1=DIR(P):R2=ABS(SGN(ABS(R1)-1)-1)*39+1:R3=-R204 260 T=((SGN(ABS(R1)-40))+2)*SGN(R1)+356 270 ONTGOTO280,290,290,280,29078 280 T1=R3:R3=R2:R2=T1ab 290 SOUND(1)=PEEK(MEMO+R1)e2 300 SOUND(2)=PEEK(MEMO+R2)ec 310 SOUND(3)=PEEK(MEMO+R3)f6 320 FORT=1TO380 330 IFSOUND(T)>12THENSOUND(T)=1365 340 T2=SOUND(T)97 350 GOSUB 380e9 360 NEXTeb 370 RETURNfd 380 POKE SID+24,1530 390 POKE SID,25550 400 POKE SID+1,H(T2)c0 410 POKE SID+5,(A(T2)*16)+D(T2)e4 420 POKE SID+6,(S(T2)*16)+R(T2)dd 430 POKE SID+4,W(T2):FORT1=1TO200:NEXT97 440 POKE SID+4,W(T2)-1:FORT1=1TO50:NEXT2c 450 RETURN4d 460 POKE SID+24,1580 470 POKE SID+7,2559d 480 POKE SID+8,H(T2)b9 490 POKE SID+12,(A(T2)*16)+D(T2)a2 500 POKE SID+13,T1*16+R(T2)e9 510 POKE SID+11,W(T2)80 520 RETURN84 530 TL=TL+20:GOSUB130:RETURN3b 540 PRINTCHR$(147)CHR$(151)CHR$(19)T1$T1$T1$;34 550 PRINT"CONTROLS: FIRE = SENSE SEWAGE PIPE"d6 560 PRINTTAB(10)"USE JOYSTICK TO MOVE"53 570 PRINT"F1-KEY: UNOBSTRUCTED PASSAGE SOUND"a7 580 PRINT"F3-KEY: PIPE WALL SOUND"93 590 PRINT"F5-KEY: PIT SOUND"e8 600 PRINT"F7-KEY: LADDER SOUND"ab 610 IFPEEK(197)<>64THEN61087 620 PRINTCHR$(147)CHR$(30)c6 630 RETURNfa 640 ONKEY-2GOTO680,650,660,67074 650 T2=1:GOSUB380:RETURN55 660 T2=13:GOSUB380:RETURN78 670 T2=11:GOSUB380:RETURN70 680 T2=12:GOSUB380:RETURN45 690 ON INT(RND(1)*3)+1GOTO700,700,710a5 700 KAR=KAR(VV+SGN(V)+1):RETURN6b 710 KAR=10:R=2:RETURN73 720 MEMO=LOK:LOK=LOK+V56 730 VV=PEEK(LOK):R=10a 740 IFVV=254THENKAR=3+SGN((V)+1):LOK=MEMO8b 750 IFVV>1ANDVV<6THENKAR=1081 760 IFVV<2THENGOSUB690e5 770 IFVV=255THENR=27f 780 POKE LOK,KARa4 790 RETURN9b 800 PRINTCHR$(5)CHR$(19)T1$T1$T1$;fd 810 PRINT"B L I N D G A N G E R"e5 820 PRINT:PRINT"TURNS: "MAAL58 830 RETURNb3 840 SYS4*4096:SYS16635d5 850 PRINTCHR$(5)CHR$(19)T1$T1$T1$;8f 855 PRINT"P L E A S E W A I T . . ."c6 860 SYS16669ff 870 FORT1=0TO196 880 FORT2=1TO487 890 U=INT((T2-1)/2)48 900 UU=T2-INT(T2/2)*22b 910 TT=INT(RND(1)*4)+200 920 X=INT(RND(1)*19)+1+U*192a 930 Y=(INT(RND(1)*12)+1+UU*12)*40ed 940 IF PEEK(SCREEN+X+Y)<>255THEN92046 950 XY=SCREEN+X+Y:LOK=XYca 960 ONT1+1GOTO990,97007 970 TT=117b 980 POKE XY,TT:GOTO1000df 990 POKE XY,TT:CROSS(T1*4+T2)=XY80 1000 ONT1+1GOTO1010,109029 1010 FORU=0TO231 1020 UU=(TT-2)*3+(U*3)+1b0 1030 V=VAL(MID$(A$,UU,3))bf 1040 KAR=SGN(ABS(V)-1)30 1050 GOSUB720a6 1060 ONRGOTO1070,104045 1070 LOK=XY:NEXT69 1080 GOTO 1180bd 1090 UU=INT(RND(1)*2)+1ce 1100 FORU=0TO18b 1110 ONUUGOTO1120,113067 1120 V=40*SGN((U*2)-1):GOTO11407a 1130 V=1*SGN((U*2)-1)f2 1140 KAR=SGN(ABS(V)-1)54 1150 GOSUB720c2 1160 ONRGOTO1170,1140e9 1170 LOK=XY:NEXTd5 1180 NEXT1a 1190 NEXT20 1200 P=INT(RND(1)*4)+1:POKECROSS(P),12e7 1210 CROSS=CROSS(P)5d 1220 PRINTCHR$(147)ad 1230 TI$="000000"41 1240 LOK=SCREEN+12*40:POKELOK+4096,7:NLOK=LOKb2 1250 GOSUB80053 1260 Y1=INT((CROSS-SCREEN)/40)d7 1270 X1=(CROSS-SCREEN)-Y1*40ba 1280 Y2=INT((LOK-SCREEN)/40)2f 1290 X2=(LOK-SCREEN)-Y2*4051 1300 PRINTT$T1$T1$"X= "X2CHR$(157)" Y= "Y2CHR$(157)CHR$(32)1f 1310 X=ABS(X1-X2):Y=ABS(Y1-Y2):MD=X+Y0a 1320 IFMD>8THENPS=0:POKESID+11,128:GOTO1345fe 1325 T1=16-2*MD:IFT1>15THENT1=15d1 1330 IFT1=PSTHEN1345cc 1335 IFT1>PSTHENPOKESID+11,128bd 1340 PS=T1:T2=14:GOSUB46083 1345 GOSUB130fb 1350 IFKEY=29THENGOSUB540:GOSUB800b2 1360 IFKEY>2ANDKEY<7THENGOSUB6406e 1370 IFVUUR=0THENGOSUB220:GOSUB250:NLOK=MEMO4c 1380 ONRICHTING+1GOSUB1400,1410,1410,1400,1410,1400,1400,1400,1410e7 1390 GOTO1280e9 1400 RETURNf3 1410 GOSUB21039 1420 IFNLOKSCREEN+999THENNLOK=MEMO:RETURN8e 1430 IFKAR>253THENNLOK=MEMO:RETURN68 1440 LOK=NLOK:POKELOK+4096,706 1450 IFKAR=11THENGOSUB530:T2=11:GOSUB380:GOTO141007 1460 IFKAR=12THENGOTO1810f5 1470 RETURN35 1480 A$=" -1 1 40-40 -1 1":TY=0a2 1490 TL=0:R=-40:PS=0:SCREEN=6*4096:SID=53*1024ed 1500 DIMCROSS(4),H(14),A(14),D(14),S(14),R(14),W(14)2f 1510 KAR(0)=2:KAR(1)=3d9 1520 KAR(2)=5:KAR(3)=4cf 1530 DIR(0)=1:DIR(1)=-405a 1540 DIR(2)=40:DIR(4)=-1a0 1550 P=53*1024:MAAL=3fd 1560 FORT=PTOP+24:POKET,0:NEXT2c 1570 FORT=0TO14:READH(T),A(T),D(T),S(T),R(T),W(T):NEXTe0 1580 DATA190,9,8,1,9,1298e 1590 DATA190,9,8,1,9,12994 1600 DATA190,9,8,1,7,129ec 1610 DATA190,9,8,1,7,129e6 1620 DATA190,9,8,1,7,129f8 1630 DATA190,9,8,1,7,129f2 1640 DATA190,9,8,1,7,129c4 1650 DATA190,9,8,1,7,129de 1660 DATA190,9,8,1,7,129d0 1670 DATA190,9,8,1,7,1292a 1680 DATA190,9,8,1,7,1293c 1690 DATA38,0,6,1,9,3336 1700 DATA188,0,7,1,4,333e 1710 DATA52,0,8,0,0,12932 1720 DATA8,0,0,0,0,12913 1730 T$=CHR$(19):FORT=1TO939 1740 T$=T$+CHR$(17):NEXTaa 1750 T1$=CHR$(17)+CHR$(17)89 1760 RETURN68 1770 POKE53280,1:GOSUB660:POKE53280,050 1780 MAAL=MAAL-1:IFMAAL=0THENGOTO1810ce 1790 TI$="000000":TL=0:SYS1663540 1800 RETURN81 1810 POKECROSS+4096,160 1820 SYS16540b3 1830 POKESID+11,0:POKE53248+21,07e 1840 GOTO1840b3 1850 FORT=0TO5fb 1860 FORTT=1TO63e0 1870 READU:POKE12287+T*64+TT,U8b 1880 NEXTdd 1890 NEXT:RETURN53 1900 DATA000,000,000d8 1910 DATA000,000,000c2 1920 DATA000,000,00034 1930 DATA000,129,00034 1940 DATA003,129,19223 1950 DATA015,195,24025 1960 DATA028,103,05617 1970 DATA024,060,02400 1980 DATA048,060,01201 1990 DATA032,024,00471 2000 DATA000,000,00064 2010 DATA000,000,0006e 2020 DATA000,000,00050 2030 DATA000,000,0005a 2040 DATA000,000,0004c 2050 DATA000,000,000b9 2060 DATA000,000,000b7 2070 DATA000,000,000ad 2080 DATA000,000,0009b 2090 DATA000,000,00091 2100 DATA000,000,0008f 2110 REMb9 2120 DATA000,000,000f3 2130 DATA000,000,000e9 2140 DATA000,000,000e7 2150 DATA000,000,000dd 2160 DATA001,000,128c1 2170 DATA001,165,128c9 2180 DATA007,255,2243e 2190 DATA031,060,2483f 2200 DATA060,024,06025 2210 DATA064,000,00219 2220 DATA000,000,00017 2230 DATA000,000,0000d 2240 DATA000,000,0007b 2250 DATA000,000,00071 2260 DATA000,000,0006f 2270 DATA000,000,00065 2280 DATA000,000,00053 2290 DATA000,000,00049 2300 DATA000,000,00047 2310 DATA000,000,000bc 2320 DATA000,000,000aa 2330 REM9c 2340 DATA000,000,0009e 2350 DATA000,000,00094 2360 DATA000,000,00082 2370 DATA000,000,000f8 2380 DATA000,000,000f6 2390 DATA000,036,000e9 2400 DATA000,255,000d8 2410 DATA001,219,128d0 2420 DATA003,000,192c7 2430 DATA002,000,064c4 2440 DATA004,000,03237 2450 DATA004,000,0322d 2460 DATA004,000,03223 2470 DATA008,000,01613 2480 DATA000,000,0000a 2490 DATA000,000,00000 2500 DATA000,000,0007e 2510 DATA000,000,00074 2520 DATA000,000,00062 2530 DATA000,000,00058 2540 DATA000,000,00056 2550 REM70 2560 DATA000,000,000b9 2570 DATA000,000,000b3 2580 DATA000,000,000ad 2590 DATA000,036,000a2 2600 DATA000,024,00097 2610 DATA000,060,0008d 2620 DATA000,066,00085 2630 DATA000,066,000ff 2640 DATA000,066,000e9 2650 DATA000,195,000ee 2660 DATA000,129,000d7 2670 DATA000,129,000dd 2680 DATA001,129,128c1 2690 DATA001,000,12831 2700 DATA001,000,1283f 2710 DATA001,000,12825 2720 DATA001,000,12813 2730 DATA000,000,00013 2740 DATA000,000,0000d 2750 DATA000,000,00007 2760 DATA000,000,00071 2770 REM57 2780 DATA000,000,00065 2790 DATA000,000,0005f 2800 DATA000,036,0004c 2810 DATA000,024,00045 2820 DATA000,060,000ba 2830 DATA000,126,000b3 2840 DATA000,102,000a3 2850 DATA000,102,00099 2860 DATA000,102,00097 2870 DATA000,102,0008d 2880 DATA000,102,000fb 2890 DATA000,036,000f7 2900 DATA000,036,000e9 2910 DATA000,036,000e3 2920 DATA000,036,000d5 2930 DATA000,036,000cf 2940 DATA000,036,000c1 2950 DATA000,000,0003e 2960 DATA000,000,00028 2970 DATA000,000,00022 2980 DATA000,000,0001c 2990 REM2a 3000 DATA000,255,00002 3010 DATA007,255,2247b 3020 DATA031,255,2487a 3030 DATA063,255,2526c 3040 DATA063,255,2525a 3050 DATA127,255,25457 3060 DATA127,255,25449 3070 DATA127,255,25542 3080 DATA255,255,255b5 3090 DATA255,255,255af 3100 DATA255,255,255a1 3110 DATA255,255,2559b 3120 DATA255,255,2558d 3130 DATA127,255,25480 3140 DATA127,255,254fe 3150 DATA127,255,254f4 3160 DATA063,255,252e5 3170 DATA063,255,252df 3180 DATA031,255,248dd 3190 DATA007,255,224c8 3200 DATA000,255,0003d 3210 REM09 3220 FORT=16384 TO 1684951 3230 READTT:POKET,TT:NEXT78 3240 RETURN2a 3250 DATA 169,255,133,251,16908 3260 DATA 095,133,252,162,0040a 3270 DATA 160,250,169,255,14575 3280 DATA 251,136,208,249,1606f 3290 DATA 250,230,251,208,0026d 3300 DATA 230,252,136,208,24750 3310 DATA 202,208,233,169,25555 3320 DATA 133,251,169,095,13343 3330 DATA 252,162,025,160,001bd 3340 DATA 169,001,145,251,160bc 3350 DATA 039,145,251,169,254a9 3360 DATA 160,040,145,251,1609c 3370 DATA 040,230,251,208,0029f 3380 DATA 230,252,136,208,24781 3390 DATA 202,208,226,169,25580 3400 DATA 133,251,169,095,133f2 3410 DATA 252,162,039,160,001e0 3420 DATA 169,254,145,251,160ee 3430 DATA 041,169,000,145,251d5 3440 DATA 230,251,208,002,230c0 3450 DATA 252,202,208,235,169c1 3460 DATA 151,133,251,169,09936 3470 DATA 133,252,162,039,1603c 3480 DATA 001,169,000,145,2512f 3490 DATA 160,041,169,254,14513 3500 DATA 251,230,251,208,0021b 3510 DATA 230,252,202,208,23502 3520 DATA 169,006,141,040,09679 3530 DATA 169,007,141,078,09679 3540 DATA 169,008,141,152,0996e 3550 DATA 169,009,141,190,0996b 3560 DATA 096,169,255,133,25152 3570 DATA 169,095,133,252,16944 3580 DATA 255,133,253,169,00348 3590 DATA 133,254,162,004,160bf 3600 DATA 250,177,251,145,253a9 3610 DATA 136,208,249,160,250a6 3620 DATA 230,251,208,002,23097 3630 DATA 252,230,253,208,0029b 3640 DATA 230,254,136,208,2418e 3650 DATA 202,208,227,169,255fe 3660 DATA 133,251,169,111,133f8 3670 DATA 252,169,255,133,253e7 3680 DATA 169,215,133,254,162d2 3690 DATA 004,160,250,177,251d4 3700 DATA 145,253,136,208,249cc 3710 DATA 160,250,230,251,208ce 3720 DATA 002,230,252,230,25336 3730 DATA 208,002,230,254,13621 3740 DATA 208,241,202,208,22721 3750 DATA 096,169,255,133,2511f 3760 DATA 169,111,133,252,16203 3770 DATA 004,160,250,169,0120e 3780 DATA 145,251,136,208,2497e 3790 DATA 160,250,230,251,2087e 3800 DATA 002,230,252,136,2086d 3810 DATA 247,202,208,233,09659 3820 DATA 169,011,141,039,2085b 3830 DATA 169,001,141,040,2084e 3840 DATA 169,030,141,000,208bf 3850 DATA 169,060,141,001,208b1 3860 DATA 169,043,141,002,208ad 3870 DATA 169,058,141,003,208ac 3880 DATA 169,001,141,029,2089e 3890 DATA 169,000,141,016,20889 3900 DATA 169,003,141,021,20880 3910 DATA 169,197,141,249,007f7 3920 DATA 169,192,141,236,099eb 3930 DATA 169,001,141,237,099eb 3940 DATA 169,000,141,238,099db 3950 DATA 169,000,141,239,099d0 3960 DATA 120,169,112,141,020cd 3970 DATA 003,169,065,141,02137 3980 DATA 003,088,096,238,2383c 3990 DATA 099,208,003,238,23922 4000 DATA 099,173,238,099,20113 4010 DATA 005,240,003,076,13712 4020 DATA 065,173,239,099,20105 4030 DATA 000,240,002,169,00109 4040 DATA 208,066,169,000,14174 4050 DATA 238,099,169,000,1416d 4060 DATA 239,099,173,237,0996b 4070 DATA 201,001,208,026,17353 4080 DATA 236,099,141,248,00746 4090 DATA 238,236,099,201,19645 4100 DATA 208,036,169,000,141a2 4110 DATA 237,099,169,196,141af 4120 DATA 236,099,076,207,065bb 4130 DATA 173,236,099,141,24889 4140 DATA 007,206,236,099,20188 4150 DATA 192,208,010,169,0019b 4160 DATA 141,237,099,169,192e5 4170 DATA 141,236,099,076,049e6 4180 DATA 234f2