start tok64 d64-vnTbCf 0 FORl=49152TO49203:READa:POKEl,a:NEXT:SYS49152:POKE52,128:POKE56,128 1 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR1:POKE648,136 2 POKE52,128:POKE56,128:POKE56578,PEEK(56578)OR3:POKE53272,32:PRINT"{clear}{142}"; 4 DATA120,165,1,41,251,133,1,169,0,133,251,169,208,133,252,169,0,133,253,169 5 DATA128,133,254,160,0,177,251,145,253,200,192,0,208,247,230,252,230,254,165 6 DATA252,201,216,208,237,165,1,9,4,133,1,88,96 7 READn:z=n*8:IFn=>0THENFORj=0TO7:READx:POKE32768+z+j,x:POKE33792+z+j,255-x:NEXT:GOTO7 8 DATA27,102,24,60,102,126,102,102,,28,102,60,102,102,102,102,60,,29,60,102,60 9 DATA102,126,102,102,,,15,60,120,120,127,120,120,,64,240,60,30,30,254,30,30,,-1 10 REM"{delete*7}{space*7}***{space*2}adventure{space*2}*** 20 REM"{delete*7}{space*7}*** by mrp 1990 *** 30 REM"{delete*7}{space*7}******************* 40 REM"{delete*7} 50 REM"{delete*7} 60 REM"{delete*7} 70 REM"{delete*7}{space*6}(c) 1990 softwolves/mr.p. 80 REM"{delete*7} 90 REM"{delete*7} 100 POKE53280,0:POKE53281,0:PRINT"{gray}{clear}{142}"; 110 ar=1:GOSUB60000 120 ONarGOSUB1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000 130 IFar>12THENONar-12GOSUB13000,14000,15000,16000,17000,18000,19000,20000 140 IFar>20THENONar-20GOSUB21000,22000,23000,24000,25000,26000,27000,28000 150 z$="du ser ocks] ":f=0 160 FORi=1TO19 170 IFm(i,0)=arANDm(i,1)<0THENz$=z$+MID$(", ",3-f*2,2)+m$(i):f=1 180 NEXT 185 IFar=20ANDba=0THENz$=z$+"ett par dataspelsbatterier":f=1 190 IFf>0THENz$=z$+".":GOSUB990 200 in$="":PRINT:INPUT"{down}nu d] ";in$:ri=0 210 IFin$=""THENPRINT"vad sa du?":GOTO200 215 IFin$="i"ORLEFT$(in$,6)="invent"THENGOSUB40500:GOTO120 216 IFin$="q"ORin$="quit"THEN55000 217 IFLEFT$(in$,6)="hj[lp "THENPRINT"on{pound}digt":GOTO120 220 IFLEFT$(in$,3)="g] "THENin$=MID$(in$,4):v=1:GOTO400 222 IFLEFT$(in$,9)="unders{pound}k "THENd=10:v=2:GOTO500 223 IFLEFT$(in$,7)="flytta "THENd=8:v=3:GOTO500 224 IFLEFT$(in$,8)="l]s upp "THENd=9:v=4:GOTO500 225 IFLEFT$(in$,3)="ta "THENd=4:v=5:GOTO500 226 IFLEFT$(in$,11)="plocka upp "THENd=12:v=5:GOTO500 227 IFLEFT$(in$,6)="sl[pp "ORLEFT$(in$,6)="l[mna "THENd=7:v=6:GOTO500 228 IFLEFT$(in$,5)="l[gg "THENd=6:v=6:GOTO500 229 IFLEFT$(in$,3)="[t "THENd=4:v=7:GOTO500 230 IFLEFT$(in$,7)="s[tt i "THENd=8:v=8:GOTO500 231 IFLEFT$(in$,6)="spela "THENd=7:v=9:GOTO500 232 IFLEFT$(in$,3)="ge "THENd=4:v=10:GOTO500 233 IFLEFT$(in$,6)="titta "THENd=7:v=11:GOTO500 234 IFLEFT$(in$,5)="t[nd "THENd=6:v=12:GOTO500 235 IFLEFT$(in$,4)="l[s "THENd=5:v=13:GOTO500 240 REM ** inget av de orden ** 242 IFin$="v"ORin$="{pound}"ORin$="s{pound}"ORin$="sv"ORin$="n{pound}"ORin$="nv"THEN400 243 IFin$="n"ORin$="s"ORin$="v[st"ORin$="{pound}st"ORin$="ost"ORin$="norr"THEN400 244 IFin$="syd"ORin$="ner"ORin$="upp"THEN400 245 IFin$="l{pound}nng]ng"ANDar=2ANDso=-1THENar=5:GOTO100 250 REM ** of{pound}rst]eligt pj[mmel ** 260 PRINT"vad pratar du f{pound}r sm{pound}rja? jag f{pound}rst]r{space*3}inte ett enda ruttet ord.":GOTO200 400 REM ** riktningar ** 406 v=0:s=v:IFin$="n"ORin$="norr"ORin$="n{pound}"ORin$="nv"THENri=ri+1 407 IFLEFT$(in$,1)="s"THENri=ri+2 408 IFRIGHT$(in$,1)="v"THENri=ri+4 409 IFRIGHT$(in$,1)="{pound}"THENri=ri+8 410 IFin$="ner"THENri=16 411 IFin$="upp"THENri=32 412 IFin$="in"THENri=64 413 IFin$="ut"THENri=128 414 GOTO900 500 REM ** substantiv ** 505 su$=MID$(in$,d):s=0 506 IFsu$="lampa"THENs=1 507 IFsu$="soffa"THENs=2 508 IFsu$="tv"ORsu$="tv-apparat"ORsu$="tvapparat"THENs=3 509 IFsu$="trappa"THENs=4 510 IFsu$="ytterkl[der"ORsu$="kl[der"THENs=5 511 IFsu$="nyckel"THENs=6 512 IFsu$="ficklampa"THENs=7 513 IFsu$="meddelande"THENs=8 514 IFsu$="leksaksbil"THENs=9 515 IFsu$="[pple"THENs=10 516 IFsu$="enkrona"ORsu$="krona"ORsu$="peng"THENs=11 517 IFsu$="cykel"THENs=12 518 IFsu$="bandit"ORsu$="enarmad bandit"THENs=13 519 IFsu$="dataspel"ORsu$="spel"THENs=14 520 IFsu$="biljett"ORsu$="cirkusbiljett"ORsu$="fribiljett"THENs=15 521 IFsu$="fl{pound}jt"THENs=16 522 IFsu$="batterier"THENs=17 523 IFsu$="d{pound}rr"THENs=18 524 IFsu$="skylt"ORsu$="v[gskylt"THENs=19 530 IFs>0THEN600 540 PRINT"vad betyder ";su$"? 550 GOTO200 600 IFv<>5THEN700 605 IFm(s,0)=arANDm(s,1)<0THEN610 607 IFm(s,0)<>arTHENPRINT"vad d] f{pound}n]tt sa du?":GOTO200 608 PRINT"skulle inte besv[ra mig med det.":GOTO200 610 IFs=11THENpe=pe+1:PRINT"ok.":m(11,0)=0:m(11,1)=0:GOTO120 611 IFo%<5THEN620 615 PRINT"du har inte fler fickor att l[gga{space*7}sakerna i{!*3}":GOTO200 620 IFs=12THEN630 625 m(s,0)=-1:PRINT"ok.":o%=o%+1:GOTO120 630 PRINT"aj d]. snuten k{pound}r just f{pound}rbi och upp-{space*3}t[cker dig. du ]ker fast f{pound}r"; 640 PRINT" st{pound}ld.":GOTO55000 700 IFv<>6THEN800 705 IFm(s,0)=-1THEN710 707 PRINT"vad d] f{pound}n]tt sa du?":GOTO200 710 m(s,0)=ar:o%=o%-1:PRINT"ok.":GOTO120 800 IFv<>10THEN900 805 IFm(s,0)=-1THEN810 807 GOTO707 810 IFar=13ANDs=9THENGOTO880 820 IFar=24ANDs=14THENGOTO890 830 PRINT"det [r kn[ppt!":GOTO200 880 IFm(9,0)<>-1THEN707 885 m(9,0)=0:m(9,1)=0:o%=o%-1:PRINT"ok.":un=-1:GOTO120 890 IFm(14,0)<>-1THEN707 895 pe=pe+50:IFba=-1THENpe=pe+50 896 m(14,0)=0:m(14,1)=0:o%=o%-1:PRINT"du fick hittel{pound}n.":da=-1:GOTO120 900 gr=ar 905 ONgrGOSUB1500,2500,3500,4500,5500,6500,7500,8500,9500,10500,11500,12500 910 IFgr>12THENONar-12GOSUB13500,14500,15500,16500,17500,18500,19500,20500 920 IFgr>20THENONar-20GOSUB21500,22500,23500,24500,25500,26500,27500,28500 930 IFar<>grTHEN120 940 GOTO200 990 FORi=1TOLEN(z$):IFMID$(z$,i,1)<>" "THENNEXT 991 IFPOS(.)+i-1>39THENPRINT 992 PRINTLEFT$(z$,i-1);:IFPOS(.)<39THENPRINT" "; 993 IFi>LEN(z$)THENRETURN 994 z$=MID$(z$,i+1):GOTO990 1000 REM sovrum 1005 IFlaTHEN1100 1010 PRINT"{down}du [r i ditt sovrum. h[r [r det v[ldigt m{pound}rkt. det enda du ser "; 1020 PRINT"[r en lampa som{space*2}avtecknar sig mot den m{pound}rka v[ggen. 1030 RETURN 1100 PRINT"{down}du [r i ditt sovrum. den enda d{pound}rren du":PRINT"ser [r mot {pound}ster. "; 1110 RETURN 1500 IFlaTHEN1600 1510 IFv=12ANDs=1THENla=-1:GOTO1100 1520 GOTO1610 1600 IFri=8THENar=2:RETURN 1610 GOTO40000 2000 REM vardagsrum 2005 IFsoTHEN2100 2010 PRINT"{down}du [r i vardagsrummet. h[r inne st]r 2020 PRINT"det en l[dersoffa och en tv. "; 2030 RETURN 2100 PRINT"{down}du [r i vardagsrummet. h[r inne st]r deten tv. du ser att l[der"; 2110 PRINT"soffan st]r lite{right}p] sniskan och att det bakom den finns 2120 PRINT"ett h]l i v[ggen. ";:RETURN 2500 IFri=8THENar=3:RETURN 2510 IFri=4THENar=1:RETURN 2520 IFv=3ANDs=2THEN2600 2530 IFin$="l{pound}nng]ng"ANDsoTHENar=5:RETURN 2540 GOTO40000 2600 IFso=-1THENPRINT"du flyttar tillbaka soffan s] inte h]letsyns.":so=0:RETURN 2610 PRINT"n[r du flyttar lite p] soffan s] upp-{space*3}t[cker du ett h]l i v[ggen, "; 2620 PRINT"det [r tyd- ligen en l{pound}nng]ng.":so=-1 2630 RETURN 3000 REM hall {pound}verv 3010 PRINT"{down}du st]r i en hall. du ser framf{pound}r dig":PRINT"en trappa som g]r ner]t. "; 3020 RETURN 3500 IFri=16THENar=6:RETURN 3510 IFri=4THENar=2:RETURN 3520 GOTO40000 4000 REM st[dskrubb 4010 PRINT"{down}du st]r i en st[dskrubb. h[r [r det{space*5}fullt med olika saker "; 4020 PRINT"som man kan st[da med. ";:RETURN 4500 IFri=2THENar=7:RETURN 4510 GOTO40000 5000 REM stort valv ({pound}verv) 5010 PRINT"{down}du st]r i ett stort, ganska fuktigt{space*5}valv. det [r halvdunkelt "; 5020 PRINT"h[r inne, men{space*2}du ser [nd] a{t*3} det finns en trappa 5030 PRINT"som leder ner]t. ";:RETURN 5500 IFri=16THENar=8:RETURN 5510 IFri=1THENar=1:RETURN 5520 GOTO40000 6000 REM hall nederv 6010 IFdoTHEN6100 6020 PRINT"{down}du [r i hallen p] nederv]ningen. du ser":PRINT"att ytterd{pound}rren [r l]st. "; 6030 RETURN 6100 PRINT"{down}du [r i hallen p] nederv]ningen. "; 6110 RETURN 6500 IFv=4ANDs=18THEN6600 6510 IFri=4THENar=7:RETURN 6520 IFri=32THENar=3:RETURN 6530 IFri=128ANDdo=-1THENar=9:RETURN 6540 GOTO40000 6600 IFdoTHENPRINT"den [r redan uppl]st!":RETURN 6605 IFm(6,0)<>-1THENPRINT"du har ingen nyckel!":RETURN 6610 PRINT"du l]ser upp d{pound}rren och kan g] ut om du vill.":do=-1:RETURN 7000 REM k{pound}ket 7010 PRINT"{down}du [r i k{pound}ket. du ser att det ligger en 7020 PRINT"lapp med ett meddelande p] bordet. ";:RETURN 7500 IF(v=13ORv=2)ANDs=8THEN7600 7510 IFri=1THENar=4:RETURN 7520 IFri=8THENar=6:RETURN 7530 GOTO40000 7600 IFme=-1THENPRINT"det st]r fortfarande samma sak p] lappen":RETURN 7610 IFso=-1THEN7700 7620 PRINT"det st]r: gl{pound}m inte att g] till farmor. nyckeln hittar du om "; 7630 PRINT"du flyttar soffan..-mamma":me=-1:RETURN 7700 PRINT"det st]r: gl{pound}m inte att g] till farmor. -mamma":me=-1:RETURN 8000 REM stort valv (nederv) 8010 PRINT"du [r i ett om m{pound}jligt [nnu st{pound}rre 8020 PRINT"valv. h[r [r det ocks] ganska dunkelt. ";:RETURN 8500 IFri=4THENar=7:RETURN 8510 GOTO40000 9000 REM framf huset 9010 PRINT"{down}du st]r framf{pound}r ert hus. i tr[dg]rden 9020 IFapTHENPRINT"st]r det ett [ppeltr[d. ";:RETURN 9030 PRINT"st]r det ett [ppeltr[d med ett enda":PRINT"ensamt [pple. ";:RETURN 9500 IFap=-1THEN9600 9510 IFv=7ANDs=10THENPRINT"mums. det var gott.":ap=-1:RETURN 9600 IFri=64THENar=6:RETURN 9610 IFri=2THENar=10:RETURN 9620 GOTO40000 10000 REM vid v[gk 10010 PRINT"{down}du st]r vid v[gkanten. ";:RETURN 10500 IFri=1THENar=9:RETURN 10510 IFri=4THENar=11:RETURN 10520 GOTO40000 11000 REM vid v[gk 2 11010 PRINT"{down}du st]r vid v[gkanten. s{pound}derut ligger 11020 PRINT"casino. mot sydv[st finns en bro. ";:RETURN 11500 IFri=2THENar=12:RETURN 11510 IFri=6THENar=19:RETURN 11520 IFri=8THENar=10:RETURN 11530 GOTO40000 12000 REM casinot 12010 PRINT"{down}du [r i ett casino. framf{pound}r dig st]r en 12020 PRINT"enarmad bandit. insatsen [r 1kr. vill 12030 PRINT"spela? (skriv spela enarmad bandit) ";:RETURN 12500 IFca=-1THEN12600 12510 ca=-1:IFpe=0THEN12600 12520 IFv=9ANDs=13THENPRINT"du vann jackpot{!*4}":pe=pe+999:RETURN 12600 IFpe=0THEN12620 12610 IFv=9ANDs=13THENPRINT"tyv[rr du vann ingenting.":pe=pe-1:RETURN 12620 IFv=9ANDs=13THENPRINT"du har inga pengar!":RETURN 12630 IFri=4THENar=19:RETURN 12640 IFri=1THENar=11:RETURN 12650 GOTO40000 13000 REM p] stranden 13010 IFunTHEN13060 13020 PRINT"{down}du st]r p] stranden. du ser en liten 13030 PRINT"unge som skriker: 'u{[*4}h jag vill ha 13040 PRINT" min leksaksbil u{[*4}h{!*3}' "; 13050 RETURN 13060 PRINT"{down}du st]r p] stranden. ";:RETURN 13500 IFunTHEN13600 13510 IFri=0THEN40000 13520 PRINT"{down}ungens morsa kommer och ryter ]t dig:'gehonom hans bil d]'. du "; 13530 PRINT"f{pound}rs{pound}ker s[ga{space*4}imot, men morsan bara ryter och ryter..":GOTO55000 13600 IFri=8THENar=10:RETURN 13610 IFri=4THENar=14:RETURN 13620 GOTO40000 14000 REM l[ngs floden 14010 PRINT"{down}du [r n[ra stranden som ligger mot 14020 PRINT"{pound}ster. ";:RETURN 14500 IFri=8THENar=13:RETURN 14510 IFri=4THENar=15:RETURN 14520 GOTO40000 15000 REM l[ngs floden (2) 15010 PRINT"{down}du g]r utmed floden. du kan bara g] mot 15020 PRINT"norr eller {pound}st. ";:RETURN 15500 IFri=8THENar=14:RETURN 15510 IFri=1THENar=16:RETURN 16000 REM under bron 16010 IFtr=-1THEN16100 16020 PRINT"{down}du [r under bron. du ser ett hiskeligt 16030 PRINT"troll. det har en pansarmantel p] sig 16040 PRINT"s] du kan inte sl] ihj[l det. men g{pound}r 16050 PRINT"n]got, f{pound}r det f{pound}rs{pound}ker ta dig!! "; 16060 RETURN 16100 PRINT"{down}du [r under bron. ";:RETURN 16500 IFtr=-1THEN16600 16510 IFv=9ANDs=16ANDm(16,0)=-1THEN16590 16520 tr=tr+1 16530 IFtr<5THEN40000 16540 PRINT"tyv[rr! f{pound}r sent! trollet tog dig!":GOTO55000 16590 PRINT"grattis! du lyckades f] bort trollet sominte t]l att du spelar s] "; 16591 PRINT"d]ligt{.*6}":tr=-1:GOTO16100 16600 IFri=32THENar=19:RETURN 16610 IFri=1THENar=22:RETURN 16620 IFri=2THENar=15:RETURN 17000 REM p] bron 17010 IFtr=-1THEN17100 17020 PRINT"{down}du [r p] bron. du ser ett hiskeligt 17030 PRINT"troll. det har en pansarmantel p] sig 17040 PRINT"s] du kan inte sl] ihj[l det. men g{pound}r 17050 PRINT"n]got, f{pound}r det f{pound}rs{pound}ker ta dig!! "; 17060 RETURN 17100 PRINT"{down}du [r p] bron. ";:RETURN 17500 IFtr=-1THEN17600 17510 IFv=9ANDs=16ANDm(16,0)=-1THEN17590 17520 tr=tr+1 17530 IFtr<5THEN40000 17540 PRINT"tyv[rr! f{pound}r sent! trollet tog dig!":GOTO55000 17590 PRINT"grattis! du lyckades f] bort trollet sominte t]l att du spelar s] "; 17591 PRINT"d]ligt{.*6}":tr=-1:GOTO17100 17600 IFri=4THENar=18:RETURN 17610 IFri=8THENar=19:RETURN 17620 GOTO40000 18000 REM vid bron (v) 18010 PRINT"{down}du [r vid v[stra delen av bron. ";:RETURN 18500 IFri=8THENar=17:RETURN 18510 IFri=16THENar=16:RETURN 18520 GOTO40000 19000 REM vid bron ({pound}) 19010 PRINT"{down}du [r vid {pound}stra delen av bron. ";:RETURN 19500 IFri=4THENar=17:RETURN 19510 IFri=9THENar=11:RETURN 19520 IFri=8THENar=12:RETURN 19530 IFri=16THENar=16:RETURN 19540 GOTO40000 20000 REM cirkust[lt 20010 PRINT"du [r inuti cirkus fjott's cirkust[lt. ";:RETURN 20500 IFri=1THENar=23:RETURN 20510 IFri=4THENar=21:RETURN 20520 IFv=8ANDs=17THENPRINT"ok.":ba=-1:RETURN 20530 GOTO40000 21000 REM cirkusentre' 21010 IFci=-1THEN21200 21020 PRINT"{down}du [r vid cirkus fjott's entre'. det 21030 PRINT"fram en gubbe och fr]gar efter din 21040 PRINT"biljett. "; 21050 IFm(15,0)=-1THEN21100 21060 PRINT"'jag har ingen' s[ger du. 21070 PRINT"'jas] du f{pound}rs{pound}ker komma in utan 21080 PRINT"biljett? jag ska l[ra dig'. han kastar 21090 PRINT"ut dig.":ar=19:GOTO19000 21100 PRINT"'vars]god' s[ger du och ger 21110 PRINT"honom fribiljetten. 21120 m(15,0)=0:o%=o%-1:ci=-1:RETURN 21200 PRINT"{down}du [r vid cirkus fjott's entre'. ";:RETURN 21500 IFri=8THENar=20:RETURN 21510 IFri=4THENar=22:RETURN 21520 IFv=8ANDs=17ANDba=0THENba=-1:PRINT"ok.":RETURN 21530 GOTO40000 22000 REM l[ngs floden (3) 22010 PRINT"{down}du g]r utmed floden. ";:RETURN 22500 IFri=6THENar=18:RETURN 22510 IFri=8THENar=21:RETURN 22520 IFri=2THENar=16:RETURN 22530 GOTO40000 23000 REM l[ngs floden (4) 23010 GOTO22010 23500 IFri=1THENar=24:RETURN 23510 IFri=2THENar=20:RETURN 23520 GOTO40000 24000 REM polisstationen 24010 IFda=-1THEN24100 24020 PRINT"{down}du [r inne p] polisstationen. du ser 24030 PRINT"ett anslag p] vilket det st]r: 'data- 24040 PRINT"spel game&watch borttappat'. ";:RETURN 24100 PRINT"{down}du [r inne p] polisstationen. du kan g] 24110 PRINT"norrut, s{pound}derut. ";:RETURN 24500 IFri=1ANDda=-1THENar=25:RETURN 24510 IFri=2THENar=23:RETURN 24520 GOTO40000 25000 REM v[gsk[l 25010 PRINT"{down}du st]r vid ett v[gsk[l. du ser en 25020 PRINT"v[gskylt. ";:RETURN 25500 IF(v=13ORv=2)ANDs=19THEN25600 25510 IFri=9THENar=27:RETURN 25520 IFri=5THENar=26:RETURN 25530 GOTO40000 25600 PRINT"p] v[gskylten st]r det: 25610 PRINT"(nv){space*10}(n{pound}) 25620 PRINT"{reverse on} {reverse off}{sh pound} lingonstigen {cm asterisk}{reverse on} " 25630 PRINT"{sh pound}M{space*14}N{cm asterisk} 25640 PRINT"31-41{space*8}33-43 25650 RETURN 26000 REM lingonst. 41 26010 PRINT"{down}du g]r till lingonstigen 41. men- vad? 26020 PRINT"det var ett {white}djupt{gray} h]l i marken som 26030 PRINT"du trillade i. tyv[rr.":GOTO55000 27000 REM lingonst. 43 27010 PRINT"{down}du st]r p] lingonstigen 43. ";:RETURN 27500 IFri=4THENar=26:RETURN 27510 IFri=8THENar=28:RETURN 27520 IFri=6THENar=25:RETURN 27530 GOTO40000 28000 REM lingost. 45 28010 PRINT"{down}du st]r p] lingonstigen 45 framf{pound}r 28020 PRINT"farmors hus. ";:RETURN 28500 IFri=64THEN50000 28510 IFri=4THENar=27:RETURN 40000 PRINT"det kanske du kan g{pound}ra senare, men inte nu!":RETURN 40500 REM inventera 40510 z$="du b[r omkring p] ":f=0 40520 FORi=1TO19 40530 IFm(i,0)=-1ANDm(i,1)<0THENz$=z$+MID$(", ",3-f*2,2)+m$(i):f=1 40540 NEXT:IFo%=5THENz$=z$+" (du har fickorna fulla) 40550 PRINT"{clear}@{sh asterisk}dventure{down}{left*10}{cm t*10}":IFo%=0THENz$="du b[r ingenting" 40560 z$=z$+". " 40570 IFpe>0THENz$=z$+"du har"+STR$(pe)+"kr.":GOTO40590 40580 z$=z$+"du har inga pengar. 40590 GOSUB990:PRINT:RETURN 50000 PRINT"{down}UCCI UCCI UCCI C{cm r}C C{cm r}C I UCCI 50001 PRINT"{sh -}{space*4}{sh -}{space*2}{sh -} {sh -}{space*2}{sh -}{sh space} {sh -}{space*3}{sh -}{space*2}{sh -} {sh -}{space*2}K 50002 PRINT"{sh -}UCI {cm q}C{cm r}K {sh -}{space*2}{sh -}{space*2}{sh -}{space*3}{sh -}{space*2}{sh -} JCCI 50003 PRINT"{sh -}J {sh -} {sh -} JI {cm q}CC{cm w}{space*2}{sh -}{space*3}{sh -}{space*2}{sh -} U{space*2}{sh -} 50004 PRINT"JCCK K{space*2}J K{space*2}J{space*2}K{space*3}K{space*2}J JCCK 50005 GOTO50010 50010 PRINT"{down*2}vill du spela igen? 50015 INPUT"(ja/nej)";svar$ 50016 IFsv$="ja"THEN50030 50017 IFsv$<>"nej"THEN50010 50020 SYS64738 50030 RESTORE 50031 READx:IFx<>-1THEN50031 50032 GOTO60020 55000 PRINT"{down*2}UI{cm a}I{cm a}{cm s*2} {cm a}{cm s}{cm a}{cm r}{cm s}{space*2}UI{cm s} {cm s}{cm a*2}{cm r}{cm s} 55001 PRINT"JI{cm q}K{cm q} {sh -} {cm q}{space*2}{sh -}{space*3}JI{sh -} {sh -*2} {sh -} 55002 PRINT"JK{cm x} {cm z}{cm x}{cm z}{cm x}{cm z}{cm x} {cm e}{space*3}JK{cm z}{cm x}JK {cm e} 55005 GOTO50010 60000 REM ** setting up ** 60005 PRINT"{clear}{gray} @{sh asterisk}dventure . l[ser data . @{sh asterisk}dventure . 60010 DIMm$(19),m(19,1):REM subst 60020 FORi=1TO19:READm$(i),m(i,0),m(i,1):NEXT 60030 DATAlampa,1,0,soffa,2,0,tv,2,0,trappa,3,0 60031 DATAytterkl[der,6,-1,en nyckel,8,-1,en ficklampa,5,-1 60032 DATAmeddelande,8,0,en liten leksaksbil,4,-1,[pple,9,0 60033 DATAen enkrona,10,-1,en cykel,11,-1 60034 DATAenarmad bandit,12,0,ett 'game&watch' dataspel,14,-1 60035 DATAen fribiljett till 'cirkus fjott',15,-1 60036 DATAen liten fl{pound}jt,3,-1,batterier,20,0,d{pound}rr,6,0,skylt,25,0 60040 troll=0:unge=0:casi no=0:batterier=0:apple=0:meddelan de=0:soffa=0 60041 da taspel=0:pengar=0:lampa=0:do rr=0:cirkus=0 60050 PRINT"{clear}{down*2}st]ryn: du vaknar p] morgonen och{space*7}kommer ih]g att det "; 60051 PRINT"var idag du skulle{space*2}till din farmor, tr]kigt nog har du{space*5}gl{pound}mt "; 60052 PRINT"v[gen dit, men du kommer ih]g att{right}hon bor p] lingonstigen 45.{down} 60060 PRINT"{home}"TAB(15); 60065 FORi=0TO500:NEXT:PRINT"@{sh asterisk}{down}{left*2}{cm t*2}{up}"; 60066 FORi=0TO500:NEXT:PRINT"d{down}{left}{cm t}{up}"; 60067 FORi=0TO500:NEXT:PRINT"v{down}{left}{cm t}{up}"; 60068 FORi=0TO500:NEXT:PRINT"e{down}{left}{cm t}{up}"; 60069 FORi=0TO500:NEXT:PRINT"n{down}{left}{cm t}{up}"; 60070 FORi=0TO500:NEXT:PRINT"t{down}{left}{cm t}{up}"; 60071 FORi=0TO500:NEXT:PRINT"u{down}{left}{cm t}{up}"; 60072 FORi=0TO500:NEXT:PRINT"r{down}{left}{cm t}{up}"; 60073 FORi=0TO500:NEXT:PRINT"e{down}{left}{cm t} 60074 FORi=0TO500:NEXT:PRINT"{down*5} 60080 RETURN stop tok64 (bastext 1.0)