10 rem*************** 20 rem* blindganger * 30 rem* rene boot * 40 rem* wijo koek * 50 rem* commodore * 60 rem* dossier * 80 rem*************** 90 printchr$(152)chr$(147) 100 poke 53280,0:poke53281,0 110 gosub1480:gosub1850 120 gosub3220:goto840 130 p=peek(56320) 140 ifp<>127thengoto130 150 p=peek(56320):key=peek(197) 160 vuur=pand16:richting=15-(pand15) 170 ifp<>127orkey<>64thenreturn 180 ty=val(ti$):ifty+tl>300thengosub1770:goto1230 190 printchr$(5)t$t1$"time"300-ty-tlchr$(157)chr$(32) 200 goto150 210 ifr<>richtingthenr=richting:return 220 p=rand7:memo=nlok:nlok=lok+dir(p) 230 kar=peek(nlok) 240 return 250 r1=dir(p):r2=abs(sgn(abs(r1)-1)-1)*39+1:r3=-r2 260 t=((sgn(abs(r1)-40))+2)*sgn(r1)+3 270 ontgoto280,290,290,280,290 280 t1=r3:r3=r2:r2=t1 290 sound(1)=peek(memo+r1) 300 sound(2)=peek(memo+r2) 310 sound(3)=peek(memo+r3) 320 fort=1to3 330 ifsound(t)>12thensound(t)=13 340 t2=sound(t) 350 gosub 380 360 next 370 return 380 poke sid+24,15 390 poke sid,255 400 poke sid+1,h(t2) 410 poke sid+5,(a(t2)*16)+d(t2) 420 poke sid+6,(s(t2)*16)+r(t2) 430 poke sid+4,w(t2):fort1=1to200:next 440 poke sid+4,w(t2)-1:fort1=1to50:next 450 return 460 poke sid+24,15 470 poke sid+7,255 480 poke sid+8,h(t2) 490 poke sid+12,(a(t2)*16)+d(t2) 500 poke sid+13,t1*16+r(t2) 510 poke sid+11,w(t2) 520 return 530 tl=tl+20:gosub130:return 540 printchr$(147)chr$(151)chr$(19)t1$t1$t1$; 550 print"controls: fire = sense sewage pipe" 560 printtab(10)"use joystick to move" 570 print"f1-key: unobstructed passage sound" 580 print"f3-key: pipe wall sound" 590 print"f5-key: pit sound" 600 print"f7-key: ladder sound" 610 ifpeek(197)<>64then610 620 printchr$(147)chr$(30) 630 return 640 onkey-2goto680,650,660,670 650 t2=1:gosub380:return 660 t2=13:gosub380:return 670 t2=11:gosub380:return 680 t2=12:gosub380:return 690 on int(rnd(1)*3)+1goto700,700,710 700 kar=kar(vv+sgn(v)+1):return 710 kar=10:r=2:return 720 memo=lok:lok=lok+v 730 vv=peek(lok):r=1 740 ifvv=254thenkar=3+sgn((v)+1):lok=memo 750 ifvv>1andvv<6thenkar=10 760 ifvv<2thengosub690 770 ifvv=255thenr=2 780 poke lok,kar 790 return 800 printchr$(5)chr$(19)t1$t1$t1$; 810 print"b l i n d g a n g e r" 820 print:print"turns: "maal 830 return 840 sys16384:sys16540 850 printchr$(5)chr$(19)t1$t1$t1$; 855 print"p l e a s e w a i t . . ." 860 sys16574 870 fort1=0to1 880 fort2=1to4 890 u=int((t2-1)/2) 900 uu=t2-int(t2/2)*2 910 tt=int(rnd(1)*4)+2 920 x=int(rnd(1)*19)+1+u*19 930 y=(int(rnd(1)*12)+1+uu*12)*40 940 if peek(screen+x+y)<>255then920 950 xy=screen+x+y:lok=xy 960 ont1+1goto990,970 970 tt=11 980 poke xy,tt:goto1000 990 poke xy,tt:cross(t1*4+t2)=xy 1000 ont1+1goto1010,1090 1010 foru=0to2 1020 uu=(tt-2)*3+(u*3)+1 1030 v=val(mid$(a$,uu,3)) 1040 kar=sgn(abs(v)-1) 1050 gosub720 1060 onrgoto1070,1040 1070 lok=xy:next 1080 goto 1180 1090 uu=int(rnd(1)*2)+1 1100 foru=0to1 1110 onuugoto1120,1130 1120 v=40*sgn((u*2)-1):goto1140 1130 v=1*sgn((u*2)-1) 1140 kar=sgn(abs(v)-1) 1150 gosub720 1160 onrgoto1170,1140 1170 lok=xy:next 1180 next 1190 next 1200 p=int(rnd(1)*4)+1:pokecross(p),12 1210 cross=cross(p) 1220 printchr$(147) 1230 ti$="000000" 1240 lok=screen+12*40:pokelok+4096,peek(lok+4096)or(2^(maal-1)):nlok=lok 1250 gosub800 1260 y1=int((cross-screen)/40) 1270 x1=(cross-screen)-y1*40 1280 y2=int((lok-screen)/40) 1290 x2=(lok-screen)-y2*40 1300 printt$t1$t1$"x= "x2chr$(157)" y= "y2chr$(157)chr$(32) 1310 x=abs(x1-x2):y=abs(y1-y2):md=x+y 1320 ifmd>8thenps=0:pokesid+11,128:goto1345 1325 t1=16-2*md:ift1>15thent1=15 1330 ift1=psthen1345 1335 ift1>psthenpokesid+11,128 1340 ps=t1:t2=14:gosub460 1345 gosub130 1350 ifkey=29thengosub540:gosub800 1360 ifkey>2andkey<7thengosub640 1370 ifvuur=0thengosub220:gosub250:nlok=memo 1380 onrichting+1gosub1400,1410,1410,1400,1410,1400,1400,1400,1410 1390 goto1280 1400 return 1410 gosub210 1420 ifnlokscreen+999thennlok=memo:return 1430 ifkar>253thennlok=memo:return 1440 lok=nlok:pokelok+4096,peek(lok+4096)or(2^(maal-1)) 1450 ifkar=11thengosub530:t2=11:gosub380:goto1410 1460 ifkar=12thengoto1810 1470 return 1480 a$=" -1 1 40-40 -1 1":ty=0 1490 tl=0:r=-40:ps=0:screen=6*4096:sid=53*1024 1500 dimcross(4),h(14),a(14),d(14),s(14),r(14),w(14) 1510 kar(0)=2:kar(1)=3 1520 kar(2)=5:kar(3)=4 1530 dir(0)=1:dir(1)=-40 1540 dir(2)=40:dir(4)=-1 1550 p=53*1024:maal=3 1560 fort=ptop+24:poket,0:next 1570 fort=0to14:readh(t),a(t),d(t),s(t),r(t),w(t):next 1580 data190,9,8,1,9,129 1590 data190,9,8,1,9,129 1600 data190,9,8,1,7,129 1610 data190,9,8,1,7,129 1620 data190,9,8,1,7,129 1630 data190,9,8,1,7,129 1640 data190,9,8,1,7,129 1650 data190,9,8,1,7,129 1660 data190,9,8,1,7,129 1670 data190,9,8,1,7,129 1680 data190,9,8,1,7,129 1690 data38,0,6,1,9,33 1700 data188,0,7,1,4,33 1710 data52,0,8,0,0,129 1720 data8,0,0,0,0,129 1730 t$=chr$(19):fort=1to9 1740 t$=t$+chr$(17):next 1750 t1$=chr$(17)+chr$(17) 1760 return 1770 poke53280,1:gosub660:poke53280,0 1780 maal=maal-1:ifmaal=0thengoto1810 1790 ti$="000000":tl=0 1800 return 1810 sys16755 1820 pokesid+11,0:poke53248+21,0 1830 goto1830 1840 rem 1850 fort=0to5 1860 fortt=1to63 1870 readu:poke12287+t*64+tt,u 1880 next 1890 next:return 1900 data000,000,000 1910 data000,000,000 1920 data000,000,000 1930 data000,129,000 1940 data003,129,192 1950 data015,195,240 1960 data028,103,056 1970 data024,060,024 1980 data048,060,012 1990 data032,024,004 2000 data000,000,000 2010 data000,000,000 2020 data000,000,000 2030 data000,000,000 2040 data000,000,000 2050 data000,000,000 2060 data000,000,000 2070 data000,000,000 2080 data000,000,000 2090 data000,000,000 2100 data000,000,000 2110 rem 2120 data000,000,000 2130 data000,000,000 2140 data000,000,000 2150 data000,000,000 2160 data001,000,128 2170 data001,165,128 2180 data007,255,224 2190 data031,060,248 2200 data060,024,060 2210 data064,000,002 2220 data000,000,000 2230 data000,000,000 2240 data000,000,000 2250 data000,000,000 2260 data000,000,000 2270 data000,000,000 2280 data000,000,000 2290 data000,000,000 2300 data000,000,000 2310 data000,000,000 2320 data000,000,000 2330 rem 2340 data000,000,000 2350 data000,000,000 2360 data000,000,000 2370 data000,000,000 2380 data000,000,000 2390 data000,036,000 2400 data000,255,000 2410 data001,219,128 2420 data003,000,192 2430 data002,000,064 2440 data004,000,032 2450 data004,000,032 2460 data004,000,032 2470 data008,000,016 2480 data000,000,000 2490 data000,000,000 2500 data000,000,000 2510 data000,000,000 2520 data000,000,000 2530 data000,000,000 2540 data000,000,000 2550 rem 2560 data000,000,000 2570 data000,000,000 2580 data000,000,000 2590 data000,036,000 2600 data000,024,000 2610 data000,060,000 2620 data000,066,000 2630 data000,066,000 2640 data000,066,000 2650 data000,195,000 2660 data000,129,000 2670 data000,129,000 2680 data001,129,128 2690 data001,000,128 2700 data001,000,128 2710 data001,000,128 2720 data001,000,128 2730 data000,000,000 2740 data000,000,000 2750 data000,000,000 2760 data000,000,000 2770 rem 2780 data000,000,000 2790 data000,000,000 2800 data000,036,000 2810 data000,024,000 2820 data000,060,000 2830 data000,126,000 2840 data000,102,000 2850 data000,102,000 2860 data000,102,000 2870 data000,102,000 2880 data000,102,000 2890 data000,036,000 2900 data000,036,000 2910 data000,036,000 2920 data000,036,000 2930 data000,036,000 2940 data000,036,000 2950 data000,000,000 2960 data000,000,000 2970 data000,000,000 2980 data000,000,000 2990 rem 3000 data000,255,000 3010 data007,255,224 3020 data031,255,248 3030 data063,255,252 3040 data063,255,252 3050 data127,255,254 3060 data127,255,254 3070 data127,255,255 3080 data255,255,255 3090 data255,255,255 3100 data255,255,255 3110 data255,255,255 3120 data255,255,255 3130 data127,255,254 3140 data127,255,254 3150 data127,255,254 3160 data063,255,252 3170 data063,255,252 3180 data031,255,248 3190 data007,255,224 3200 data000,255,000 3210 rem 3220 for t=16384 to 16908:read tt:poke t,tt:next:return 3230 data 169,255,133,251,169 3240 data 095,133,252,162,004 3250 data 160,250,169,255,145 3260 data 251,136,208,249,160 3270 data 250,230,251,208,002 3280 data 230,252,136,208,247 3290 data 202,208,233,169,255 3300 data 133,251,169,095,133 3310 data 252,162,025,160,001 3320 data 169,001,145,251,160 3330 data 039,145,251,169,254 3340 data 160,040,145,251,160 3350 data 040,230,251,208,002 3360 data 230,252,136,208,247 3370 data 202,208,226,169,255 3380 data 133,251,169,095,133 3390 data 252,162,039,160,001 3400 data 169,254,145,251,160 3410 data 041,169,000,145,251 3420 data 230,251,208,002,230 3430 data 252,202,208,235,169 3440 data 151,133,251,169,099 3450 data 133,252,162,039,160 3460 data 001,169,000,145,251 3470 data 160,041,169,254,145 3480 data 251,230,251,208,002 3490 data 230,252,202,208,235 3500 data 169,006,141,040,096 3510 data 169,007,141,078,096 3520 data 169,008,141,152,099 3530 data 169,009,141,190,099 3540 data 096,169,255,133,251 3550 data 169,111,133,252,162 3560 data 004,160,250,169,000 3570 data 145,251,136,208,249 3580 data 160,250,230,251,208 3590 data 002,230,252,136,208 3600 data 247,202,208,233,096 3610 data 169,011,141,039,208 3620 data 169,001,141,040,208 3630 data 169,030,141,000,208 3640 data 169,060,141,001,208 3650 data 169,043,141,002,208 3660 data 169,058,141,003,208 3670 data 169,001,141,029,208 3680 data 169,000,141,016,208 3690 data 169,003,141,021,208 3700 data 169,197,141,249,007 3710 data 169,192,141,236,099 3720 data 169,001,141,237,099 3730 data 169,000,141,238,099 3740 data 169,000,141,239,099 3750 data 120,169,017,141,020 3760 data 003,169,065,141,021 3770 data 003,088,096,238,238 3780 data 099,208,003,238,239 3790 data 099,173,238,099,201 3800 data 005,240,003,076,042 3810 data 065,173,239,099,201 3820 data 000,240,002,169,001 3830 data 208,066,169,000,141 3840 data 238,099,169,000,141 3850 data 239,099,173,237,099 3860 data 201,001,208,026,173 3870 data 236,099,141,248,007 3880 data 238,236,099,201,196 3890 data 208,036,169,000,141 3900 data 237,099,169,196,141 3910 data 236,099,076,112,065 3920 data 173,236,099,141,248 3930 data 007,206,236,099,201 3940 data 192,208,010,169,001 3950 data 141,237,099,169,192 3960 data 141,236,099,076,049 3970 data 234,169,096,141,156 3980 data 065,169,112,141,186 3990 data 065,169,004,141,168 4000 data 065,169,216,141,192 4010 data 065,169,000,141,155 4020 data 065,141,185,065,141 4030 data 167,065,141,191,065 4040 data 169,004,160,000,072 4050 data 190,000,096,169,102 4060 data 224,013,176,003,189 4070 data 241,065,153,000,004 4080 data 224,011,144,011,169 4090 data 011,224,013,176,011 4100 data 169,001,076,190,065 4110 data 190,000,112,189,254 4120 data 065,153,000,216,200 4130 data 208,214,104,056,233 4140 data 001,240,038,201,001 4150 data 240,015,238,156,065 4160 data 238,186,065,238,168 4170 data 065,238,192,065,076 4180 data 153,065,162,232,142 4190 data 155,065,142,185,065 4200 data 142,167,065,142,191 4210 data 065,160,024,076,153 4220 data 065,096,064,093,114 4230 data 107,115,113,112,110 4240 data 109,125,091,209,159 4250 data 011,006,006,014,006 4260 data 014,014,001,000,000 4270 data 000,000,000,000,000