start tok64 d64-YXB6DR 100 REM kidnapparna. 110 REM 120 REM ******************************* 130 REM 140 REM (c) 1989 mr.p. 150 REM reviderad 1991-08-22 mr.p./sys 160 REM ******************************* 170 REM * * 180 REM * h[r b{pound}rjar storyn.......... * 190 REM * * ******************************* 200 POKE53280,6:POKE53281,6:PRINT"{light blue}{142}{ct h}{clear}din kompis, vid namn arvid j{pound}nsson 210 PRINT"kariesgatan 22,tandeholm (l[gg den 220 PRINT"adressen p] minnet) har just ringt ett 230 PRINT"till dig{.*7} han sa: 240 PRINT"-hj[lp mig{!*4} jag har blivit kidnappad 250 PRINT" jag [r p] s{.*4} arg{h*5}{!*8} 260 PRINT" >klick<. telefonsamtalet br{pound}ts. 270 PRINT"{down}vad g{pound}r du? 280 PRINT"{down}(1) f{pound}rflytta dig till arvids bostad 290 PRINT"(2) leta efter adresser p] {white}s{light blue} 300 PRINT"(3) s[tta dig framf{pound}r datorn och spela 310 PRINT"(4) ge upp 320 PRINT"(5) sova p] saken 330 y=1:z=5:GOSUB2840 340 ONaGOTO420,600,740,350,890 350 PRINT"{clear}jass] du, du ger upp{.*5} 360 PRINT"{down*2}{white}och l]ter din v[n d{pound} i kidnapparnas 370 PRINT"klor{?*5} det var det v[rsta jag n]gon- 380 PRINT"sin h{pound}rt{!*7} nu ska du ta och r[dda 390 PRINT"honom{!*6} men du m]ste b{pound}rja fr]n 400 PRINT"b{pound}rjan{.*4} 410 PRINT"{down}tryck 0":y=0:z=y:GOSUB2840:RUN 420 PRINT"{clear}du hoppar in i bilen och ska just starta"; 430 PRINT"och ]ka till arvids l[genhet, d] du ser 440 PRINT"en blodig lapp p] instrumentbr[dan: 450 PRINT"{white}l[gg dig inte i det h[r, f{pound}r d]{!*6} 460 PRINT"{light blue}du best[mmer dig f{pound}r att [nd] ]ka till 470 PRINT"arvids l[genhet, d] du m[rker att du har"; 480 PRINT"gl{pound}mt bort hans adress{.*5} 490 INPUT"f{pound}rs{pound}k minnas{!*3}{space*2}";a$ 500 IFLEFT$(a$,7)<>"kariesg"THENPRINT"nej, det l]ter inte r[tt{!*4}":GOTO490 510 IFRIGHT$(a$,3)<>" 22"THENPRINT"det l]ter r[tt, men numret [r fel{!*3}":GOTO490 520 PRINT"bravo{!*3} du kom ih]g det{.*4} 530 PRINT"{down}vad g{pound}r du? 540 PRINT"{down}(1) ]ker till arvids l[genhet 550 PRINT"(2) g]r tillbaka hem 560 PRINT"(3) ]ker till polisen 570 PRINT"(4) ger upp" 580 y=1:z=4:GOSUB2840 590 ONaGOTO940,1040,1190,350 600 PRINT"{clear}du h[mtar din stadskarta. du sl]r upp 610 PRINT"registret p] s{.*4} 620 PRINT"f] se nu{.*4} 630 PRINT"stadshuset{.*6} stortorget{.*6} 640 PRINT"stockholmsv[gen. s.t.a.r{.*9} 650 PRINT"sequritas{.*7} skurkligan ab{.*3} 660 PRINT"samh[llskontoret{.*3} v[nta{.*3}" 670 PRINT"{white}skurkligan ab{light blue}, vad [r det{.*3} 680 PRINT"{down}tycker du att vi ska 690 PRINT"{down}(1) ]ka dit och kolla 700 PRINT"(2) sova p] saken 710 PRINT"(3) ]ka till arvids l[genhet 720 y=1:z=3:GOSUB2840 730 ONaGOTO1330,890,420 740 PRINT"{clear}du s[tter dig framf{pound}r din enast]ende c64"; 750 PRINT"och laddar in ditt favoritspel{.*3}" 760 PRINT"medan du h]ller p] att spela faller din 770 PRINT"blick p] en lapp som sticker fram under 780 PRINT"datorn{.*3} du drar genast fram den{.*3} 790 PRINT"d[r st]r: {white}det [r vi som har kidnappat 800 PRINT"arvid{light blue}. l[ngst ner [r det undertecknat 810 PRINT"men du ser bara tv] av bokst[verna: 820 PRINT"{white}s{light blue} som verkar vara f{pound}rst, och {white}a{light blue} i mitten 830 PRINT"{down}vad g{pound}r du? 840 PRINT"{down}(1) kollar adressregistret p] s och a. 850 PRINT"(2) ]ker till arvids l[genhet 860 PRINT"(3) spelar klart 870 y=1:z=3:GOSUB2840 880 ONaGOTO1500,420,1620 890 PRINT"{clear}du l[gger dig och f{pound}rs{pound}ker att sova{.*3} 900 PRINT"men du kan inte f] tanken om arvid ut ur"; 910 PRINT"ditt huvud.. du m]ste helt enkelt ]ka 920 PRINT"och kolla{.*4} 930 PRINT"{down}tryck 0":y=0:z=y:GOSUB2840:GOTO420 940 PRINT"{clear}n[r du kommer fram till d{pound}rren till den 950 PRINT"lilla l[genheten p] kariesgatan s] ser 960 PRINT"du en liten lapp sitta tejpad p] f{pound}rren:"; 970 PRINT"{white}ute och reser{light blue} 980 PRINT"{down}vad g{pound}r du? 990 PRINT"{down}(1) kontaktar polisen 1000 PRINT"(2) ]ker hem 1010 PRINT"(3) bryter dig in 1020 y=1:z=3:GOSUB2840 1030 ONaGOTO1700,1040,1780 1040 PRINT"{clear}n[r du kommer in i huset igen s] m[rker 1050 PRINT"du att det [r n]gon annan d[r{.*3} 1060 PRINT"{white}-upp med h[nderna{light blue}, skriker han (det [r 1070 PRINT"en l]ng man med en magnumpistol i han- 1080 PRINT"den.) {white}annars skjuter jag{light blue}, l[gger han 1090 PRINT"till{.*4} du f{pound}r sakta upp h[nderna {pound}ver 1100 PRINT"huvudet och han v[ser till dig: {white}-fort!! 1110 PRINT"ut genom d{pound}rren{!*3} {light blue}du skyndar dig ut.." 1120 PRINT"{down}vad g{pound}r du?" 1130 PRINT"{down}(1) f{pound}rs{pound}ker sl] ner honom 1140 PRINT"(2) f{pound}ljer med 1150 PRINT"(3) plockar fram din egna magnum .44 som{space*4}du har i h{pound}lstret 1160 y=1:z=3:GOSUB2840 1170 ONaGOTO1930,2050,1180 1180 PRINT"{down}tyv[rr, den [r inte laddad!":GOTO1120 1190 PRINT"{clear}du tar med dig lappen och ]ker till 1200 PRINT"poliskontoret. d[r visar du upp lappen 1210 PRINT"f{pound}r en poliskonstapel som s[ger: {white}-ja det"; 1220 PRINT"[r nog inte mycket vi kan g{pound}ra men vi 1230 PRINT"kan f{pound}rs{pound}ka. jag beh{pound}ver hans efternamn."; 1240 INPUT"{light blue}vad [r arvids efternamn";a$ 1250 IFa$<>"j{pound}nsson"THENPRINT"nej, det [r det inte{.*4}":GOTO1240 1260 PRINT"{down}{white}-okej. {light blue}s[ger polismannen, vi b{pound}rjar 1270 PRINT" 1280 PRINT"{down}vad g{pound}r du? 1290 PRINT"{down}(1) hj[lper till 1300 PRINT"(2) v[ntar p] polisstationen 1310 y=1:z=2:GOSUB2840 1320 ONaGOTO2210,2320 1330 PRINT"{clear}du ]ker ner till skurkligan ab. de har 1340 PRINT"ett stort hus med neonskyltar d[r texten"; 1350 PRINT"{white}s{yellow}k{orange}u{brown}r{dark gray}k{156}l{light blue}i{red}g{green}a{light gray}n {cyan}a{gray}b {light blue}blinkar i alla regnb]gens 1360 PRINT"f[rger. g]r in och kollar. en man kommer"; 1370 PRINT"fram och fr]gar: {white}-kan jag hj[lpa till? 1380 PRINT"{light blue}du svarar ja och fr]gar vad s.ab. h]ller"; 1390 PRINT"p] med. han svarar: {white}-vi tillverkar 1400 PRINT"tjuvlarm och andra anti-inbrottssaker. 1410 PRINT"och namnet skurkligan har vi bara hittat"; 1420 PRINT"p], s] det har inga kriminella anspel- 1430 PRINT"ningar {pound}ver huvudet taget.{light blue} du tackar och"; 1440 PRINT"g]r ut. 1450 PRINT"{down}vad g{pound}r du nu d]? 1460 PRINT"{down}(1) tar dig in bakv[gen och kollar om{space*7}det han sa var sant 1470 PRINT"(2) ]ka hem igen 1480 y=1:z=2:GOSUB2840 1490 ONaGOTO2410,1040 1500 PRINT"{clear}du unders{pound}ker i ditt adressregister, d[r"; 1510 PRINT"du, med datainspektionens medgivande, 1520 PRINT"har adress & telefonnummer till alla i 1530 PRINT"telefonkatalogen. du hittar tv] adresser"; 1540 PRINT"med s och a i: 1550 PRINT"{white}s{light blue}kurkligan {white}a{light blue}b (s.ab)" 1560 PRINT"{white}s{light blue}.t.{white}a{light blue}.r. som du inte vet vad det betyder 1570 PRINT"vad g{pound}r du? 1580 PRINT"(1) unders{pound}ker s.ab 1590 PRINT"(2) unders{pound}ker s.t.a.r. 1600 y=1:z=2:GOSUB2840 1610 ONaGOTO1330,2430 1620 PRINT"{clear}just n[r du ska spela klart, s] h{pound}r du 1630 PRINT"att n]gon som g{pound}mt sig i rummet kommer 1640 PRINT"bakifr]n{.*5} du k[nner en kniv mot din 1650 PRINT"strupe{.*4} den trycker h]rdare och 1660 PRINT"h]rdare{.*7} ";:FORi=0TO9999:NEXT 1670 PRINT"helt pl{pound}tsligt svartnar 1680 PRINT"allt f{pound}r dig{.*5} du [r d{pound}d{.*9} 1690 END 1700 PRINT"{clear}du hoppar in i bilen och beger dig till 1710 PRINT"polisen. du m[rker att n]gon sitter i 1720 PRINT"baks[tet{.*4} han har en magnum .44:a{.*3}" 1730 PRINT"han t[nker avlossa ett skott n[r som 1740 PRINT"helst{.*6} g{pound}r n]got{.*18} 1750 FORi=0TO9999:NEXT 1760 PRINT"f{pound}r sent{!*7} du [r d{pound}d{.*7} 1770 END 1780 PRINT"{clear}du f{pound}rs{pound}ker att bryta dig in i arvids 1790 PRINT"hus{.*4} du f{pound}rs{pound}ker sl] in d{pound}rren{.*5} 1800 PRINT"d] m[rker du att d{pound}rren [r {pound}ppen{.*5} 1810 PRINT"du traskar in{.*5} d[r inne ser du att 1820 PRINT"det [r en @*^^; r{pound}ra. du m[rker att det 1830 PRINT"[r lite blod p] golvet{.*4} du k[nner 1840 PRINT"och smakar p] det{.*3} det var ju inte 1850 PRINT"riktigt blod! det var ju ketchup, d] [r 1860 PRINT"det s[kert det p] lappen i bilen ocks]! 1870 PRINT"du t[nker g] ut och kolla, men n[r du 1880 PRINT"{pound}ppnar d{pound}rren ser du att hela tandeholms"; 1890 PRINT"maffia st]r utanf{pound}r d{pound}rren{.*4} ujujuj{.*3}"; 1900 PRINT"de verkar inte gilla dig{.*4} de riktar 1910 PRINT"sina pistoler mot dig{.*5}":FORi=0TO9999:NEXT 1920 PRINT"du [r d{pound}d{.*6}":END 1930 PRINT"{clear}du v[nder dig hastigt om och lyckas med 1940 PRINT"att sl] pistolen ur mannens hand{.*7} 1950 PRINT"han faller till marken, avsvimmad{.*6} 1960 PRINT"ur hans hatt ramlar en mikrofon ner{.*4} 1970 PRINT"om den [r inkopplad har du snart hela 1980 PRINT"maffian h[r, det var inte bra{.*4} 1990 PRINT"nu g[ller det att t[nka fort{.*4} 2000 PRINT"{down}vad g{pound}r du? 2010 PRINT"{down}(1) g]r till polisen 2020 PRINT"(2) f{pound}rst[ller r{pound}sten och spelar honom i{space*4}ett samtal 2030 y=1:z=2:GOSUB2840 2040 ONaGOTO2500,2570 2050 PRINT"{clear}du g]r ut till bilen. {white}-s[tt dig p] 2060 PRINT"f{pound}rarplatsen{light blue} befaller han. du g{pound}r som 2070 PRINT"han s[ger{.*5} han h]ller pistolen 2080 PRINT"riktad mot dig n[r ni ]ker och han 2090 PRINT"dirigerar dig fram genom gatorna. 2100 PRINT"{white}-stanna{light blue}. befaller han. du stannar. 2110 PRINT"han binder f{pound}r dina {pound}gon och f{pound}r dig 2120 PRINT"n]gonstans{.*5} ni g]r in genom en d{pound}rr 2130 PRINT"och han f{pound}r dig till arvid i ett litet 2140 PRINT"rum. 2150 PRINT"{down}vad g{pound}r du? 2160 PRINT"{down}(1) f{pound}rs{pound}ker fly 2170 PRINT"(2) anv[nder din minis[ndare/mottagare{space*6}f{pound}r att kommunicera med "; 2180 PRINT"din dator 2190 y=1:z=2:GOSUB2840 2200 ONaGOTO2610,2640 2210 PRINT"{clear}du best[mmer dig f{pound}r att hj[lpa polisen 2220 PRINT"med utredningen{.*3} det tar ett par 2230 PRINT"timmar innan ni kommer fram till vem som"; 2240 PRINT"det troligen kan vara. det [r antagligen"; 2250 PRINT"s.t.a.r. som polisen vet st]r f{pound}r: 2260 PRINT"{white}s{light blue}kurkarnas {white}t{light blue}otal{white}a{light blue}dmistrerade 2270 PRINT"{white}r{light blue}iksorganisation. 2280 PRINT"{down}vad g{pound}r ni? 2285 PRINT"{down}(1) f{pound}ljer med till s.t.a.r 2290 PRINT"(2) l]ter polisen sk{pound}ta det hela 2300 y=1:z=2:GOSUB2840 2310 ONaGOTO2710,2770 2320 PRINT"{clear}du s[tter dig ner och v[ntar p] att 2330 PRINT"de ska bli klara med sin utredning, n[r 2340 PRINT"en man kommer fram till dig och s[ger 2350 PRINT"att han vill tala med dig{.*12} 2360 PRINT"du f{pound}ljer med honom ut. han s[ger att 2370 PRINT"det h[r (och drar upp en revolver) talar"; 2380 PRINT"b[ttre om vad jag vill [n ord. och s] 2390 PRINT"avlossar han ett skott{.*3} synd f{pound}r dig, 2400 PRINT"hej{!*4}":END 2410 PRINT"{clear}du bryter dig in bakv[gen till s.ab." 2412 PRINT"men polisen kommer och arresterar dig 2420 PRINT"f{pound}r "CHR$(34)"olaga intr]ng"CHR$(34)"." 2422 END 2430 PRINT"{clear}du beger dig till s.t.a.r:s hus{.*4} 2440 PRINT"d[r verkar det v[ldigt f{pound}rfallet{.*4} 2450 PRINT"n[r du g]tt runt ett varv och just ska 2460 PRINT"g] in s] k[nner du en knackning p] 2470 PRINT"axeln, du v[nder dig om och {white}pang{light blue} ett 2480 PRINT"skott avlossas mot dig{.*4} du [r visst 2490 PRINT"d{pound}d vid det h[r laget{.*4}":END 2500 PRINT"{clear}precis n[r du har g]tt ut och l]st 2510 PRINT"d{pound}rren s] [r maffian h[r{!*7} 2520 PRINT"de ser inte s] v[nliga ut{!*6} 2530 PRINT"och vad var det som bl[nkte till i den 2540 PRINT"d[r store mannens hand? en kniv{!*5} 2550 PRINT"han t[nker d{pound}da dig{!*5}":FORi=0TO9999:NEXT 2560 PRINT"och det g{pound}r han{!*4} allt svartnar f{pound}r dina {pound}gon{!*5}":END 2570 PRINT"{clear}du f{pound}rs{pound}ker f{pound}rst[lla r{pound}sten, men det 2580 PRINT"lyckas inte{.*4} du m]ste g] till polisen 2590 PRINT"och l]ta de utreda det hela{.*9} 2600 PRINT"precis n[r du har g]tt ut och l]st":GOTO2510 2610 PRINT"{clear}du borde ha t[nkt p] att de har vakter.. 2620 PRINT"det borde du verkligen ha gjort{.*8} 2630 END 2640 PRINT"{clear}du f{pound}rs{pound}ker anropa din dator med din 2650 PRINT"lilla minis[ndare/mottagare. det lyckas 2660 PRINT"och du f]r din dator att ringa polisen. 2670 PRINT"och de kommer och hj[lper dig och din 2680 PRINT"v[n arvid ut ur knipan{.*14} 2690 PRINT"{down*5}{white}b r a v o ! ! !{sh space}!{sh space}!{sh space}!{sh space}!{sh space}!{light blue} 2700 PRINT"(fanfar)":END 2710 PRINT"{clear}du och poliskonstapeln beger er till 2720 PRINT"s.t.a.r:s h{pound}gkvarter. d[r tar de er till"; 2730 PRINT"f]nga tillsammans med arvid. och ni 2740 PRINT"sitter i ert lilla rum och sv[lter 2750 PRINT"ihj[l{.*3} men ni lyckades i alla fall medatt hitta arvid! 2760 END 2770 PRINT"{clear}du sitter och v[ntar p] att konstapeln 2780 PRINT"ska komma tillbaka, men det g{pound}r han inte"; 2790 PRINT"du beger dig efter, men du tas tillf]nga"; 2800 PRINT"av s.t.a.r. och f]r sitta i ett litet 2810 PRINT"rum tillsammans med arvid och polisen 2820 PRINT"och sv[lta ihj[l{.*3} men ni lyckades i{space*3}alla fall med att hitta arvid! 2830 END 2840 GETa$:IFa$=""THEN2840 2850 IFa$MID$(STR$(z),2)THEN2840 2860 a=VAL(a$):RETURN 2870 REM ****************************** 2880 REM l{pound}sning 2890 REM ****************************** 2900 REM start 2910 REM +-----------+ 2920 REM leta "s" l[genhet 2930 REM ! +------l[genhet 2940 REM ! ! ! 2950 REM kolla sab--tillbaka------+ 2960 REM ! 2970 REM f{pound}lja med 2980 REM ! 2990 REM kom.dator 3000 REM ****************************** stop tok64 (bastext 1.0)