start tok64 d64-XbVUtA 0 bb=0:pi=0:ba=0:ko=0:ka=0 10 PRINT"{clear}" 15 pe =100 20 POKE53280,0:POKE53281,9 30 PRINT"{white}********* tillbaka till nutiden ********" 35 PRINT:PRINT"{space*16}gjort av{space*20}" 36 PRINT"{space*11}marcus.andersson{space*32}&"; 37 PRINT"{space*31}marcus.samsonowitz" 40 PRINT:PRINT:PRINT"{space*2}skriv ditt namn"; 50 INPUTna$ 60 PRINT"{clear}" 70 PRINT"{space*2}hej ";na$ 80 PRINT:PRINT"{space*2}vill du ha instruktioner? (j/n){space*2}"; 90 GETa$:IFa$=""THEN90 95 PRINTa$ 100 IFa$="n"THEN295 110 PRINT"{clear}*****{space*2}i n s t r u k t i o n e r{space*2}******" 120 PRINT:PRINT" du har varit p] en uppfinningsm[ssa.{space*3}"; 130 PRINT" du gick in i en tidsmaskin och kl]-{space*4}"; 140 PRINT" fingrig som du [r startade du maski-{space*3}"; 150 PRINT" nen. du har nu ]kt tillbaka i tiden.{space*3}"; 160 PRINT" du [r nu i en vildav[sternstad.{space*8}"; 170 PRINT" maskinen gick s{pound}nder n[r du landade.{space*3}"; 180 PRINT" du m]ste nu skaffa pengar p] diverse{space*3}"; 190 PRINT" s[tt te.x p] roulette f{pound}r att handla{space*4}maskindelar och br[nsle." 200 PRINT" du har med dig $100 och en pistol{space*6}"; 210 PRINT" pistolen [r v[rd $500." 220 PRINT" maskindelarna och br[nslet kostar $5{0*3}"; 225 PRINT:PRINT:PRINT" tryck en knapp f{pound}r mera instruktioner" 230 GETa$:IFa$=""THEN230 240 PRINT"{clear}*********{space*2}k o m m a n d o n{space*2}**********" 250 PRINT" (till]tna ibland men inte alltid){space*6}" 260 PRINT:PRINT" quit,j,n,h=h{pound}ger,v=v[nster,f=framm]t{space*3}"; 270 PRINT" b=bak]t,r]na,l]na,handla,g] ut,s[lja" 275 PRINT" om du vill veta hur mycket pengar du{space*4}har skriv pe" 280 PRINT:PRINT:PRINT" nu kan spelet b{pound}rja{space*21}tryck en knapp" 290 GETa$:IFa$=""THEN290 295 PRINT"{clear}" 300 REM******* v[g 1 ****************** 305 IFko=1ANDka=1THEN20000:REM klarat spelet 310 PRINT:PRINT"du st]r p] en v[g utanf{pound}r tidsmaskinen " 320 PRINT"till h{pound}ger ett apotek. till v[nster en{space*2}saloon.framm]t forts.v[gen" 330 IFbb=1THEN490 335 t=INT(10*RND(1)+1) 340 IFt=1 OR t=2 THEN350 345 GOTO490 350 PRINT"det st]r en bandit p] v[gen. han heter{space*2}buffalo bell" 360 PRINT"han utmanar dej p] duell. vill du? (j/n)" 370 GETa$:IFa$=""THEN370 380 IFa$="j"THEN410 390 PRINT"han blir sur och skjuter dej" 400 GOTO 10000 410 PRINT"ni skjuter mot varandra" 420 ba=INT(3*RND(1)+1) 430 IFba=<>3THEN460 440 PRINT"han sk{pound}t dej och du dog" 450 GOTO10000 460 IFpi=1THENPRINT"du hade ingen pistol. han skj{pound}t dej":IFpi=1THEN10000 465 PRINT"du har skjutit honom och han dog. han{space*3}"; 470 PRINT"hade $800 p] sig, du f]r dom" 480 bb =1:pe=pe+800 490 PRINT"vad ska du g{pound}ra nu" 500 INPUTva$ 510 IFva$="b"THENPRINT"det finns ingen v[g d[r":IFva$="b"THEN490 520 IFva$="v"THEN1400:REM saloon 530 IFva$="h"THEN1800:REM apotek 540 IFva$="f"THEN600:REM v[g 2 550 IFva$="quit"THEN10000 560 IFva$="pe"THENPRINT"$";pe:IFva$="pe"THEN330 565 IFpi=1THENPRINT"du har ingen pistol. han skjuter dej.":IFpi=1THEN10000 570 IFko=1ANDka=1THEN20000:REM klarat spelet 580 PRINT"f{pound}rst]r ej" 590 GOTO330 600 REM****** v[g 2 ******************* 605 PRINT:PRINT"du st]r p] en v[g.{space*22}"; 610 PRINT"framm]t forts[tter v[gen. till v[nster{space*2}en bank." 620 PRINT"till h{pound}ger ett f[ngelse. bak]t forts[t- ter v[gen.(tidsmaskinen)" 630 IFbb=1THEN790 635 t=INT(10*RND(1)+1) 640 IFt=1 OR t=2 THEN650 645 GOTO790 650 PRINT"det st]r en bandit p] v[gen. han heter{space*2}buffalo bell" 660 PRINT"han utmanar dej p] duell. vill du? (j/n)" 670 GETa$:IFa$=""THEN670 680 IFa$="j"THEN720 710 PRINT"han blir sur och skjuter dej" 715 GOTO10000 720 ba=INT(3*RND(1)+1) 730 IFba<>3THEN760 740 PRINT"han sk{pound}t dej och du dog" 750 GOTO10000 760 IFpi=1THENPRINT"du hade ingen pistol. han skj{pound}t dej":IFpi=1THEN10000 765 PRINT"du har skjutit honom och han dog. han{space*3}"; 770 PRINT"hade $800 p] sig, du f]r dom" 780 bb =1:pe=pe+800 790 PRINT"vad ska du g{pound}ra nu" 800 INPUTva$ 810 IFva$="f"THEN900:REM v[g 3 820 IFva$="b"THEN300:REM tids v[g 830 IFva$="v"THEN2100:REM bank 840 IFva$="h"THEN2300:REM f[ngelse 850 IFva$="pe"THENPRINT"$";pe:IFva$="pe"THEN630 860 IFva$="quit"THEN10000 870 PRINT"f{pound}rst]r ej" 880 GOTO630 900 REM****** v[g 3 ******************** 910 PRINT:PRINT"du st]r p] en v[g.{space*22}"; 920 PRINT"framm]t [r det en v[g.till v[nster lig- ger en handelsbod." 925 PRINT"till h{pound}ger ligger sheriffens kontor." 930 IFbb=1THEN1090 935 t=INT(10*RND(1)+1) 940 IFt=1 OR t=2 THEN950 945 GOTO1090 950 PRINT"det st]r en bandit p] v[gen. han heter{space*2}buffalo bell" 960 PRINT"han utmanar dej p] duell. vill du? (j/n)" 970 GETa$:IFa$=""THEN970 980 IFa$="j"THEN1020 1010 PRINT"han blir sur och skjuter dej" 1015 GOTO10000 1020 ba=INT(3*RND(1)+1) 1030 IFba<>3THEN1060 1040 PRINT"han sk{pound}t dej och du dog" 1050 GOTO10000 1060 IFpi=1THENPRINT"du hade ingen pistol. han skj{pound}t dej":IFpi=1THEN10000 1065 PRINT"du har skjutit honom och han dog. han{space*3}"; 1070 PRINT"hade $800 p] sig, du f]r dom" 1080 bb =1:pe=pe+800 1090 PRINT"vad ska du g{pound}ra nu" 1100 INPUTva$ 1110 IFva$="f"THEN1200:REM v[g 4 1120 IFva$="b"THEN600 1130 IFva$="v"THEN2400:REM handelsbod 1140 IFva$="h"THEN2800:REM sheriffen 1150 IFva$="pe"THENPRINT"$";pe:IFva$="pe"THEN930 1160 IFva$="quit"THEN10000 1170 PRINT"f{pound}rst]r ej" 1180 GOTO930 1200 REM********* v[g4************** 1210 PRINT:PRINT"du st]r p] en v[g. framm]t slutar v[gen.bak]t [r det en v[g." 1220 PRINT"]t v[nster en doktor.]t h{pound}ger en barbe- rare" 1230 PRINT"vad ska du g{pound}ra nu?" 1240 INPUTva$ 1250 IFva$="f"THENPRINT"det finns ingen v[g d[r":IFva$="f"THEN1230 1260 IFva$="b"THEN900 1270 IFva$="v"THEN3000:REM doktor 1280 IFva$="h"THEN3100:REM barberare 1290 IFva$="pe"THENPRINT"$";pe:IFva$="pe"THEN1230 1300 IFva$="quit"THEN10000 1310 PRINT"f{pound}rst]r ej":GOTO1230 1400 REM**** saloon ******************** 1410 PRINT:PRINT"du st]r i en saloon.utanf{pound}r [r det en{space*3}v[g.(tidsmaskin)" 1420 PRINT"vill du spela roulette? (j/n)" 1430 GETa$:IFa$=""THEN1430 1450 IFa$="j"THEN1480 1460 IFa$="n"THEN1620 1470 GOTO1420 1480 IFpe=0THENPRINT"du har inga pengar":IFpe=0THEN1620 1490 PRINT"vilket nr (0-36)" 1500 INPUTnr 1510 IFnr>36THEN1490 1520 PRINT"hur mycket satsar du?" 1530 INPUTsa 1540 IFsa>peTHENPRINT"du har bara $";pe:IFsa>peTHEN1520 1550 IFsa<0THENGOTO1520 1555 pe=pe-sa 1560 sn=INT(37*RND(1)) 1570 IFsn=nrTHEN1600 1580 PRINT"du f{pound}rlorade":GOTO1420 1600 PRINT"du vann 50*insatsen($"; sa*50;")" 1610 pe=pe+sa*50 1615 GOTO1420 1620 PRINT"vill du ha {pound}l(det kostar $10)(j/n)" 1630 GETa$:IFa$=""THEN1630 1640 IFa$="n"THENPRINT"dom tycker att du [r en tr]km]ns. du [r utkastad" 1650 IFa$="n"THEN300 1655 IFpe=0THENPRINT"du har inga pengar":IFpe=0THENa$="n":IFpe=0THEN1640 1660 PRINT"du f]r ditt {pound}l":pe=pe-10:p=INT(5*RND(1)+1) 1670 IFp=2THEN1700 1675 IFp<>1THEN1620 1680 PRINT"det ligger en polett i glaset.bartenderns[ger att du vunnit $100" 1690 pe=pe+100:GOTO1620 1700 PRINT"det var gift i {pound}let.":GOTO10000 1800 REM**********aptek***************** 1810 PRINT:PRINT"du st]r i ett apotek." 1820 PRINT"vad vill du,fr]gar apotekaren" 1830 INPUTva$ 1840 IFva$="handla"ORva$="k{pound}pa"THEN1900 1850 IFva$="r]na"THEN2020 1860 IFva$="g] ut"THEN300 1870 IFva$="handla br[nsle"THEN1900 1880 PRINT"jag f{pound}rst]r inte,s[ger han" 1890 GOTO1820 1900 PRINT"vad vill du handla" 1910 INPUTva$ 1920 IFva$="br[nsle"ORva$="bensin"THEN1970 1930 IFva$="hostmedicin"ORva$="medicin"THENpe=pe-50 1940 IFva$="hostmedicin"ORva$="medicin"THENPRINT"du f]r din medicin" 1945 IFva$="hostmedicin"ORva$="medicin"THEN1820 1950 PRINT"det har jag inte,s[ger han" 1960 GOTO1820 1970 IFpe<2000THENPRINT"du har inte tillr[ckligt med pengar.{space*4}($2{0*3})" 1980 IFpe<2000THEN1820 1990 ka=1:pe=pe-2000 2000 PRINT"du f]r ditt br[nsle" 2010 GOTO1820 2020 IFpi=1THENch=1 2030 IFpi=0THENch=3 2040 ro=INT(5*RND(1)+1) 2050 IFro>chTHENPRINT"sheriffen kommer. han tar dej till{space*6}f[ngelset" 2060 IFro>chTHEN2300:REM f[ngelse 2070 PRINT"r]net blev lyckat och du f]r $200.{space*6}du springer ut p] gatan" 2080 pe=pe+200:GOTO300 2100 REM********* bank ***************** 2110 PRINT:PRINT"du st]r i en bank." 2120 PRINT"vad vill du fr]gar bankiren" 2130 INPUTva$ 2140 IFva$="l]na"THENPRINT"dom litar inte p] fr[mlingar.du blir ut-kastad" 2150 IFva$="l]na"THEN600 2160 IFva$="r]na"THEN2200 2170 IFva$="g] ut"THEN600 2180 PRINT"det kan du inte g{pound}ra h[r" 2190 GOTO2120 2200 IFpi=1THENch=1 2210 IFpi=0THENch=5 2220 ro=INT(10*RND(1)+1) 2230 IFro>chTHENPRINT"sheriffen kommer.han tar dej till f[ngelset":IFro>chTHEN2300 2240 PRINT"r]net blev lyckat och du f]r $1{0*3}.{space*5}du springer ut p] gatan" 2250 pe=pe+1000 2260 GOTO600 2300 REM*********** f[ngelse *********** 2310 PRINT:PRINT"du sitter i en m{pound}rk cell.sheriffen{space*6}kommer.han s[ger " 2320 PRINT"att du m]ste betala $1{0*3} i b{pound}ter eller bli h[ngd" 2330 PRINT"vill du betala(j/n)" 2340 GETa$:IFa$=""THEN2340 2350 IFa$="n"THENPRINT"du [r h[ngd":IFa$="n"THEN10000 2360 IFpe<1000THENPRINT"du har inte tillr[ckligt med pengar{space*5}du blir h[ngd" 2370 IFpe<1000THEN10000 2380 PRINT"du blir fri.sheriffen sl[nger ut dig p] gatan":pe=pe-1000:GOTO600 2400 REM********** handelsboden ******** 2410 PRINT:PRINT"du st]r i en handelsbod." 2420 PRINT"vad vill du,fr]gar aff[rsinnehavaren" 2430 INPUTva$ 2440 IFva$="handla"ORva$="k{pound}pa"THEN2480 2450 IFva$="r]na"THEN2660 2455 IFva$="s[lja"THEN2600 2460 IFva$="g] ut"THEN900 2470 PRINT"jag f{pound}rst]r inte,s[ger aff[rsinnehavaren":GOTO2420 2480 PRINT"vad vill du k{pound}pa" 2490 INPUTva$ 2500 IFva$="maskindelar"THEN2540 2510 IFva$="pistol"THEN2570 2520 PRINT"det har vi inte,s[ger han" 2530 GOTO2420 2540 IFpe<3000THENPRINT"du har inte tillr[ckligt med pengar.{space*4}($3{0*3})" 2550 IFpe<3000THEN2420 2560 PRINT"du f]r maskindelarna":pe=pe-3000:ko=ko+1:GOTO2420 2570 IFpe<500THENPRINT"du har inte tillr[ckligt med pengar.{space*4}($500)" 2580 IFpe<500THEN2420 2590 PRINT"du f]r en pistol":pe=pe-500:pi=0:GOTO2420 2600 PRINT"vad vill du s[lja" 2610 INPUTva$ 2620 IFva$="pistol"ORva$="pistolen"THEN2640 2630 PRINT"vi tar inte imot det":GOTO2420 2640 IFpi=1THENPRINT"du har ingen pistol":IFpi=1THEN2420 2650 PRINT"de k{pound}per din pistol.du f]r $500":pe=pe+500:pi=1:GOTO2420 2660 IFpi=1THENch=1:IFpi=0THENch=3 2670 ro=INT(5*RND(1)+1) 2680 IFro>chTHENPRINT"sheriffen kommer.han f{pound}r dej till f[ngelset" 2690 IFro>chTHEN2300 2700 PRINT"r]net blev lyckat och du f]r $300.du{space*4}springer ut p] gatan.":pe=pe+300 2710 GOTO900 2800 REM************* cheriffen ******** 2810 PRINT:PRINT"du st]r i sheriffens kontor.{space*11}" 2820 PRINT"det [r en efterlysning p] v[ggen.det{space*4}st]r:" 2830 PRINT"efterlyst. buffalo bell. d{pound}d eller{space*6}levande! bel{pound}ning $1{0*3}" 2840 PRINT:PRINT"har du n]gra upplysningar om buffalo{space*4}bell,fr]gar sheriffen" 2850 GETa$:IFa$=""THEN2850 2860 IFa$="n"THEN2930 2870 PRINT"har du skjutit honom,fr]gar sheriffen" 2880 GETa$:IFa$=""THEN2880 2890 IFa$="n"THEN2930 2900 IFbb=1THEN2920 2910 PRINT"du ljuger. du f{pound}rs till f[ngelset":GOTO2300 2920 PRINT"du f]r en bel{pound}ning p] $1{0*3}":pe=pe+1000:bb=10 2930 PRINT"sheriffen s[ger att han [r upptagen.{space*4}du g]r ut.":GOTO900 3000 REM********** doktor ************** 3010 PRINT:PRINT"du [r i v[ntrummet.det st]r en skylt p] doktorns d{pound}rr att han [r sjuk." 3020 PRINT"s] du g]r ut." 3030 FORi=1TO700:NEXTi:GOTO1200 3100 REM********** barberare *********** 3110 PRINT:PRINT"du st]r i frisersalongen." 3120 PRINT"vad vill du,fr]gar barberaren." 3130 INPUTva$ 3140 IFva$="g] ut"THEN1200 3150 IFva$="bli klippt"ORva$="klippas"THEN3200 3160 IFva$="bli rakad"ORva$="rakas"THEN3200 3170 IFva$="r]na"THENPRINT"du f]r en rakkniv i huvudet":IFva$="r]na"THEN10000 3180 PRINT"qe!?jag f{pound}rst]r inte,s[ger barberaren." 3190 GOTO3120 3200 PRINT"du blir rakad och klippt.det kostar $50":pe=pe-50 3210 GOTO3120 10000 PRINT:PRINT:PRINT"{space*4}spelet [r slut{space*22}" 10010 PRINT:PRINT"ny spelomg]ng? (j/n){space*20}" 10020 GET a$:IFa$=""THEN10020 10030 IFa$="j"THEN0 10040 END 20000 PRINT"{clear}du har klarat det!{space*22}nu ]ker du hem.":PRINT:PRINT:PRINT:PRINT:PRINT 20010 GOTO10010 stop tok64 (bastext 1.0)