00001 'Version: 4O(114)-4 821227/VE
00002 DIM S(55),W$(7),J(100),A(31),A$(31,4),X(20)
00003 GOTO 90000
00005 '************************ S T U G A *****************************
00010 '******* STUGA är skrivet av Viggo Eriksson, Kimmo Eriksson *******
00015 '******* och Olle Johansson. Adressen till programmakarna *******
00020 '******* är Solängsvägen 170, 191 54 SOLLENTUNA. *******
00025 '******* Denna fil är hemlig och får inte spridas ut utan *******
00030 '******* författarnas tillstånd. 810321 *******
00035 '******************************************************************
00050 'Rader märkta med $$$$$ är till för kompatibilitet med gamla versioner
00055 'Rader märkta med %%%%% får bara finnas med på Oden och Nadja
00060 'Rader märkta med &&&&& använder DEC-10-BASIC-filhantering
! **** GOSUB:s from 8009,13224,36065
00700 REM ********************** THORVALD: ******************************
00701 IF RND<0.8 THEN 724
! **** GOSUB from 90056
00702 PRINT " IIIIIIIIIIIIIIII"
00703 PRINT " _ _ _ II II _ _ _"
00704 PRINT "__I I I I_____I I_____I I I I______"
00705 PRINT " I I I I I I--I I--I I I I I I"
00706 PRINT " I_I_I_I I I I I I I I_I_I_I"
00707 PRINT " I I I I I I "
00708 PRINT " I I *I I* I I"
00709 PRINT " I I__I I__I I"
00710 PRINT " II II"
00711 PRINT " II II"
00712 PRINT " II II"
00713 PRINT " I__ __I"
00714 PRINT " I I"
00715 PRINT " I I"
00716 PRINT " I I"
00717 PRINT " I I"
00718 PRINT " II II"
00719 PRINT " I__I"
00720 PRINT
00721 PRINT
00723 RETURN
! ---- GOTO from 701
00724 PRINT " I------I"
00725 PRINT "----------------------I * * I----------------------------"
00726 PRINT " I I"
00727 PRINT " --II--"
00728 PRINT " II"
00729 PRINT " --" \ RETURN
! **** GOSUB from 8148
00730 REM******************OLLES SUBRUTIN****************************
00731 PRINT "Du kommer in i ett rum där det står en massa djur! På en"
00732 PRINT "skylt i luften står det"
00733 PRINT " RUM UNDER BYGGNAD, SUPREMS BYGGNADS AB"
00734 PRINT "Plötsligt omges du av ett gult moln!"
00735 RETURN
! ---- GOTO:s from 1518,1520
01499 GOSUB 11000
! ---- GOTO:s from 1532,1539,1548,8254,8309,8426,8428,8430,8964,8997,10006,15014,15062,17230,80380
01500 Z=53 \ S(25)=S(25)+1'XXXXX VIGGOS ATELJE XXXXX
01503 IF S(25)>2 AND S(25)<8 THEN PRINT "Du är i Ateljen." \ GOTO 1511
! ---- GOTO from 1517
01504 PRINT "Du är i Ateljen. Här finns det tre dörrar."
01505 PRINT "Dom går åt vänster, åt höger och bakåt."
01506 PRINT "På väggen står det: ALEA JACTA EST"
! ---- GOTO from 1503
01511 IF S(25)>8 THEN S(25)=4
01512 GOSUB 12200
01517 IF X1=1 THEN 1504
01518 IF X=0 THEN 1499
01520 ON X GOTO 1499,1499,15000,15050,1499,1540,1530
! ---- GOTO from 1520
01530 IF A(10)=53 THEN 1538
01532 PRINT "TIPS!! Prova orden och gå tillbaka hit." \ S(2)=S(2)-10 \ GOTO 1500
! ---- GOTO from 1530
01538 PRINT "TIPS!! Ta lagerkransen och skriv HJÄLP igen."
01539 S(2)=S(2)-10 \ GOTO 1500
! ---- GOTO from 1520
01540 IF A(1)<>1 THEN 9991
01542 PRINT "Dörren har gått i baklås så du kommer inte ut åt det hållet!"
01544 IF A(26)=1 OR A(26)=Z THEN PRINT "Dina nycklar passar inte i nyckelhålet."
01548 GOTO 1500
! ---- GOTO from 1913
01908 GOSUB 11000
! ---- GOTO:s from 1923,1933,1974,14020,80370
01909 PRINT "Du är i en stor svängande labyrint."
01910 Z=34
01911 GOSUB 12200
01913 IF X=0 OR X>6 THEN 1908
01914 ON X GOTO 1970,1919,1939,8095,1950,1929
! ---- GOTO from 1922
01918 GOSUB 11000
! ---- GOTO:s from 1914,1933,1954,1964,8041,8042,8075,8254,8263,8342,9104,80400
01919 PRINT "Du är i en svängig stor labyrint."
01921 Z=92 \ GOSUB 12200'XX KIVIS LABYRINTRUM 3 XXXX Z=92 XXX
01922 IF X=0 OR X>6 THEN 1918
01923 ON X GOTO 1929,1944,1960,1950,1909,8300
! ---- GOTO from 1932
01928 GOSUB 11000
! ---- GOTO:s from 1914,1923,1954,1964,1974,8007,8426,80395
01929 PRINT "Du är i en svängande stor labyrint."
01931 Z=89 \ GOSUB 12200'XX KIVIS LABYRINTRUM 2 XXXX Z=89 XXX
01932 IF X=0 OR X>6 THEN 1928
01933 ON X GOTO 1960,1950,1939,1909,1970,1919
! ---- GOTO:s from 1914,1933
01939 ON (INT(RND*2)+1) GOTO 16500,15432
! ---- GOTO:s from 1923,1954,8007
01944 PRINT "Du är i en återvändsgång. Här står Kimmo och säjer:"
01945 PRINT " - Det här är återvändsgången i denna labyrint."
01946 PRINT " här gömmer piraten sina skatter. Jag är piraten!"
01947 PRINT " HAR HAR HAR"
01948 IF G=1 THEN PRINT "Han håller din halvruttna tomat i handen."
! ---- GOTO:s from 1914,1923,1933,1956,1964,1974,8428,80400
01950 PRINT "Du är i en stor svängig labyrint."
01952 Z=93 \ GOSUB 12200'XX KIVIS LABYRINTRUM 4 XXXX Z=93 XXX
01953 IF X=0 OR X>6 THEN 1956
01954 ON X GOTO 8000,1929,1960,1970,1944,1919
! ---- GOTO from 1953
01956 GOSUB 11000 \ GOTO 1950
! ---- GOTO from 1963
01959 GOSUB 11000
! ---- GOTO:s from 1923,1933,1954,1974,18110,80400
01960 PRINT "Du är i en stor labyrint som också är svängig."
01962 Z=94 \ GOSUB 12200'XX KIVIS LABYRINTRUM 5 XXXX Z=94 XXX
01963 IF X=0 OR X>6 THEN 1959
01964 ON X GOTO 1919,8035,1970,1980,1929,1950
! ---- GOTO from 1973
01969 GOSUB 11000
! ---- GOTO:s from 1914,1933,1954,1964,1980,1983,8430,80400
01970 PRINT "Du är i en svängig labyrint som också är stor."
01972 Z=95 \ GOSUB 12200'XX KIVIS LABYRINTRUM 6 XXXX Z=95 XXX
01973 IF X=0 OR X>6 THEN 1969
01974 ON X GOTO 1960,1980,8071,1950,1909,1929
! ---- GOTO:s from 1964,1974
01980 IF G=1 THEN 1970 ELSE PRINT "Du har en halvrutten tomat i handen."
01981 PRINT "HAR HAR HAR! ropar en pirat som springer mot dej."
01982 PRINT "Piraten tar din tomat."
01983 G=1 \ GOTO 1970
! ---- GOTO from 14124
02008 PRINT "Du är i Högra pannrummet."
02009 S(42)=S(42)+1
02010 IF S(42)>1 THEN PRINT "Ett hål finns i väggen." \ GOTO 2012
02011 PRINT "En panna sprängs och gör ett hål i väggen."
! ---- GOTO from 2010
02012 A$=FNI$("Vill du gå in i hålet ?")
02014 IF FNL$(A$,1)="J" OR FNL$(A$,1)="j" THEN 2019
02015 PRINT "Ok."
02016 GOTO 14100
! ---- GOTO:s from 2024,2025
02018 GOSUB 11000
! ---- GOTO:s from 2014,2037,2056,80385
02019 Z=69 'XXXX GROTTRUM 1 XXXXX Z=69 XXX
02020 PRINT "Du är i en grotta som sträcker sej utom synhåll åt vänster och höger."
02021 IF S(42)>0 THEN PRINT "Bakom dej finns ett uppsprängt hål."
02023 GOSUB 20500
02024 IF X<3 THEN 2018 ELSE ON X-2 GOTO 2044,2032,2018,2025,2018
! ---- GOTO from 2024
02025 IF S(42)>0 THEN 14100 ELSE 2018
! ---- GOTO from 2024
02032 PRINT "Du gick just genom ett vattenfall."
! ---- GOTO:s from 2073,2119,80400
02033 Z=91'XXXXX GROTTRUM 6 XXX Z=91 XXX
! ---- GOTO from 2039
02034 PRINT "Du är vid ett vattenfall i en skog."
02035 GOSUB 20500
02036 IF X=0 OR X>6 THEN 2038
02037 ON X GOTO 2019,2066,2115,2150,2066,2019
! ---- GOTO from 2036
02038 GOSUB 11000
02039 GOTO 2034
! ---- GOTO:s from 2054,2056
02043 GOSUB 11000
! ---- GOTO:s from 2024,2089,2154,80360
02044 Z=19'XXXX GROTTRUM 2 XXX Z=19 XXX
02045 IF A(12)<>0 THEN 2051
02046 PRINT "En liten faun springer fram och tänker trampa dej på foten"
02047 PRINT "men han tappar en sko och springer ylande därifrån."
02049 A(12)=19
! ---- GOTO from 2045
02051 PRINT "Du är i Schweiziska klockrummet."
02052 GOSUB 20500
02054 IF X=0 THEN 2043
02056 ON X GOTO 2043,2043,2075,2150,2145,2019,2043
! ---- GOTO:s from 2073
02065 GOSUB 11000
! ---- GOTO:s from 2037,2089,9423,20277,20307,80370
02066 Z=33'XXXXX GROTTRUM 3 XXXXX
02067 PRINT "Du är på stranden till en underjordisk sjö."
02068 GOSUB 20500
02071 IF X=10 THEN 2107
02073 IF X<>0 THEN ON X GOTO 2101,2104,2075,20270,2107,2033,2065 ELSE 2065
! ---- GOTO:s from 2089,2090
02074 GOSUB 11000
! ---- GOTO:s from 2056,2073,20187,20262,80365
02075 Z=25 'XXX GROTTRUM 5 XXX Z=25 XXX
02076 PRINT "Du är på stranden till en underjordisk sjö bredvid en enorm spelautomat."
02077 PRINT "På den står det: 'DRA I SPAKEN OM DU HAR EN FAUNSKO ATT SATSA'"
02078 GOSUB 20500
02079 IF FNL$(A$,3)<>"DRA" THEN 2089
02080 IF A(12)=1 THEN 2083
02081 PRINT "FUSKARE! Du har ingen faunsko!"
02082 GOTO 2087
! ---- GOTO from 2080
02083 D=INT(RND*10)+1
02084 IF D>7 THEN 2094
02085 PRINT "Grattis ! Du vann en massa guldmynt."
02086 A(12)=2 \ A(7)=25 \ S(1)=S(1)-1
! ---- GOTO:s from 2082,2096
02087 PRINT "Du är vid slutet av stranden."
02088 GOSUB 20500
! ---- GOTO from 2079
02089 IF X>0 AND X<7 THEN ON X GOTO 2074,2074,20255,2066,2107,2044
02090 IF X=10 THEN 2107 ELSE 2074
! ---- GOTO from 2084
02094 PRINT "Tyvärr,du förlorade!"
02095 S(1)=S(1)-1 \ A(12)=0
02096 GOTO 2087
! ---- GOTO from 2073
02101 PRINT "Du fastnade i en jättesugkopp och kan inte komma loss.";FNS$("sover",15)
02102 PRINT "Hoppsan, nu svalt du ihjäl."
02103 GOTO 9461
! ---- GOTO:s from 2073,2163
02104 PRINT "Du sjunker...S J U N K E R!!"
02105 PRINT "Du är";
02106 GOTO 9450
! ---- GOTO:s from 2071,2073,2089,2090,2212,9370,9397,9431,20010,20034,20060,20161,20187,20277,20336
02107 PRINT "Vattnet är lugnt, du simmar fort."\PRINT SPACE$(40)
02108 GOTO 2138
! ---- GOTO from 2139
02109 PRINT "Järndörrar slår ner omkring dej. Du kan bara gå uppåt."
! ---- GOTO from 2114
02111 A$=FNI$("") \ A$=FNC$(A$)
02112 IF FNL$(A$,3)="UPP" OR A$="U" THEN 2135
02113 PRINT "Så kan du väl inte gå!"
02114 GOTO 2111
! ---- GOTO:s from 2037,2121,2134,2146,20161,80365
02115 Z=20 'XXX GROTTRUM 4 XXX Z=20 XXX
02116 PRINT "Du är fortfarande i skogen men åt ett håll skymtar"
02117 PRINT "man en stuga."
02118 GOSUB 20500
02119 IF X<>0 THEN ON X GOTO 2120,2120,20155,2120,2127,2033,2120
! ---- GOTO:s from 2119
02120 GOSUB 11000
02121 GOTO 2115
! ---- GOTO from 2134
02123 PRINT "Du hoppar ner i brunnen och ramlar tillslut ner på marken."
02124 GOTO 14000
! ---- GOTO:s from 2133,2134
02126 GOSUB 11000
! ---- GOTO:s from 2119,35155,80400
02127 Z=99 'XXXXX GROTTRUM 7 XXXX Z=99 XXXX
02128 PRINT "Du står utanför stugan vid en brunn."
! ---- GOTO from 2136
02129 GOSUB 20500
02133 IF X=0 OR X>6 THEN 2126
02134 ON X GOTO 2126,2123,2126,2126,35000,2115
! ---- GOTO from 2112
02135 PRINT "Du har kommit upp ur en brunn. Här finns en stuga."
02136 Z=99 \ GOTO 2129
! ---- GOTO from 2108
02138 D=INT(RND*4)+1
02139 IF D=2 THEN 2109
02140 IF D>2 THEN 36000 ELSE PRINT "Du dras ner. Nu är du";
02143 GOTO 9450
! ---- GOTO from 2056
02145 D=INT(RND*5)+1
02146 IF D<4 THEN 2115
02147 PRINT "En hord fauner kommer framrusande. Nnnnnu är du en våt fläck."
02148 GOTO 9461
! ---- GOTO from 2153
02149 GOSUB 11000
! ---- GOTO:s from 2037,2056,2160,2169,2175,36030,80400
02150 Z=98'XXX GROTTRUM 8 XXXX Z=98 XXXXX
02151 PRINT "Du har en halvrutten tomat i handen men den försvinner."
02152 GOSUB 20500
02153 IF X=0 OR X>6 THEN 2149
02154 ON X GOTO 2157,36000,2180,2168,2161,2044
! ---- GOTO from 2154
02157 IF S(31)<>0 OR A(18)<>1 THEN 2164
02158 S(31)=1
02159 PRINT "Du har blivit nervös och tar fram brännvinsflaskan och dricker ur den."
02160 GOTO 2150
! ---- GOTO from 2154
02161 PRINT "Du har kommit till en sjö där du ser två båtar."
02162 PRINT "Du kliver i en men upptäcker att den bara var en synvilla."
02163 GOTO 2104
! ---- GOTO from 2157
02164 IF S(32)<>0 THEN 2168
02165 D=INT(RND*5)+1
02166 IF A(19)=1 AND S(32)=0 THEN 2173
02167 S(46)=S(46)+1
! ---- GOTO:s from 2154,2164,2185,8155
02168 PRINT "Du står bakom ett draperi."
02169 GOTO 2150
! ---- GOTO from 2166
02173 S(32)=1
02174 PRINT "Du råkar hälla ut vattnet på en faun som springer ylande iväg."
02175 GOTO 2150
! ---- GOTO from 2154
02180 D=INT (RND*10)+1
02181 IF D>8 THEN 2183
02182 GOTO 14100
! ---- GOTO from 2181
02183 PRINT "Plötsligt känner du en trasa framför näsan och du säckar ihop."
02184 PRINT "När Du vaknar märker Du att ";
02185 GOTO 2168
! ---- GOTO:s from 2212,2224
02199 GOSUB 11000
! ---- GOTO:s from 2215,2217,2219,9396,20187,20262,20277,20307,80375
02200 Z=50'XXX SÖDRA STRANDEN XXXXX Z=50 XXXX
! ---- GOTO from 2275
02201 PRINT "Du är på den södra sidan av sjön. Här finns ett hus."
02203 IF S(35)<>0 THEN 2207
! ---- GOTO from 2220
02204 PRINT "Du hittar ett hål som du kryper ner i."
02205 GOTO 14000
! ---- GOTO from 2203
02207 IF S(35)=1 THEN PRINT "Det ligger en roddbåt här."
02208 GOSUB 15200
02211 IF X=0 THEN 2220
02212 ON X GOTO 20255,20300,2216,2241,20180,2218,2199,2218,20270,2107
02215 GOTO 2200
! ---- GOTO from 2212
02216 PRINT "Kan du gå på vattnet?"
02217 GOTO 2200
! ---- GOTO:s from 2212
02218 PRINT "Ett staket hindrar dej från att gå ditåt."
02219 GOTO 2200
! ---- GOTO from 2211
02220 IF INSTR(1,A$,"NER")>0 OR INSTR(1,A$,"NED")>0 OR A$="N" THEN 2204
02222 IF S(35)=1 AND (INSTR(1,A$,"BÅT")>0 OR A$="RO") THEN 9390
02224 GOTO 2199
! ---- GOTO:s from 2212,9576,80380
02241 Z=51'XXX STRANDHUSET XXXXX Z=51 XXXX
! ---- GOTO from 2276
02242 PRINT "Du är inne i huset. Här finns en automat med"
02243 PRINT "en skylt där det står:"
02244 PRINT " SLÄPP SAKER HÄR, så får du poäng enligt prislistan."
02245 PRINT
02246 PRINT " PRISLISTA:"
02247 PRINT " Om du släpper: Så får du:"
02248 PRINT
02249 PRINT " En tavla 5 poäng"
02250 IF A(1)=1 THEN PRINT " En diamant 15 poäng"
02251 IF A(3)=1 THEN PRINT " En silvertacka 10 poäng"
02252 IF A(2)=1 THEN PRINT " En illaluktande gurka 5 poäng"
02253 IF A(4)=1 THEN PRINT " En hillebard 20 poäng"
02254 IF A(5)=1 THEN PRINT " En dödskalle 20 poäng"
02255 IF A(6)=1 THEN PRINT " En väckarklocka 15 poäng"
02256 IF A(7)=1 THEN PRINT " Massor av guldmynt 10 poäng"
02257 IF A(8)=1 THEN PRINT " En trilogi 10 poäng"
02258 IF A(9)=1 THEN PRINT " Ett kontrakt 15 poäng"
02259 IF A(10)=1 THEN PRINT " En lagerkrans 15 poäng"
02260 IF A(11)=1 THEN PRINT " Ett pärlhalsband 25 poäng"
02261 IF A(12)=1 THEN PRINT " En faunsko 5 poäng"
! ---- GOTO from 2278
02272 GOSUB 12200
02274 IF X=15 THEN 2290
02275 IF X=6 THEN 2201
02276 IF X1=1 THEN 2242 ELSE GOSUB 11000
! ---- GOTO from 2302
02277 PRINT "Du är vid apparaten och kan bara gå bakåt."
02278 GOTO 2272
! ---- GOTO from 2274
02290 A(I)=5 \ S(1)=S(1)-1
02292 S(2)=S(2)+5
02294 IF I<>2 AND I<>12 THEN S(2)=S(2)+5
02296 IF I=1 OR I=6 OR I=10 OR I=9 OR I=11 THEN S(2)=S(2)+5
02298 IF I=4 OR I=5 OR I=11 THEN S(2)=S(2)+10
02300 PRINT "Maskinen slukar ";A$(I,4);"."
02302 GOTO 2277
! **** GOSUB:s from 8334,9307,12201,15200,20500,35040
06000 REM ```` RUMSBESKRIVNING ```````````` TA ````````` SLÄPP ````````````
06002 IF S(2)=335 AND RND>0.5 THEN PRINT "Plötsligt kommer Thorvald fram och säjer:" \ GOTO 99160
06003 IF Z=70 AND A1=1 THEN PRINT "På marken ligger en enorm rubin."
06005 IF A(1)=Z THEN PRINT "Det finns en diamant här."
06006 IF A(15)=Z THEN PRINT "Det ligger en kofot här."
06007 IF A(16)=Z THEN PRINT "Det står en cykelpump här."
06008 IF A(2)=Z THEN PRINT "Det finns en illaluktande gurka här."
06009 IF A(3)=Z THEN PRINT "Det finns en silvertacka här."
06010 IF A(17)=Z AND Z<>11 THEN PRINT "Det står en stege här."
06011 IF A(18)<>Z THEN 6014
06012 IF S(31)=0 THEN PRINT "Det finns en fylld brännvinsflaska här."
06013 IF S(31)=1 THEN PRINT "Det finns en tom brännvinsflaska här."
! ---- GOTO from 6011
06014 IF A(19)<>Z THEN 6017
06015 IF S(32)=0 THEN PRINT "Det finns en fylld vattenflaska här."
06016 IF S(32)=1 THEN PRINT "Det finns en tom vattenflaska här."
! ---- GOTO from 6014
06017 IF A(20)<>Z THEN 6020
06018 IF S(33)=0 THEN PRINT "Det finns en pumpad boll här."
06019 IF S(33)=1 THEN PRINT "Det finns en opumpad boll här."
! ---- GOTO from 6017
06020 IF A(4)=Z THEN PRINT "Det står en hillebard här."
06021 IF A(21)=Z THEN PRINT "Det står en spade här."
06022 IF A(5)=Z THEN PRINT "Det ligger en dödskalle här."
06023 IF A(6)=Z THEN PRINT "Det finns en väckarklocka här."
06024 IF A(23)=Z THEN PRINT "Det ligger en tunn telefonkatalog här."
06025 IF A(12)=Z THEN PRINT "Det ligger en faunsko här."
06026 IF A(7)=Z THEN PRINT "Det finns en massa guldmynt här."
06027 IF J(Z)=1 AND A(25)=Z THEN PRINT "En telefon är inkopplad i en jack i väggen."
06028 IF J(Z)=1 AND A(25)<>Z AND A(30)<>Z THEN PRINT "Det finns en telefonjack i väggen."
06029 IF J(Z)<>1 AND A(25)=Z AND S(44)<>Z THEN PRINT "Det finns en telefon här."
06030 IF A(26)=Z THEN PRINT "Det finns några nycklar här."
06031 IF A(27)=Z THEN PRINT "Det hänger en sax här."
06032 IF A(28)=Z THEN PRINT "Det hänger en slägga här."
06033 IF A(22)=Z THEN PRINT "Det ligger ett äckligt lik här."
06034 IF A(11)=Z THEN PRINT "Det finns ett glittrande pärlhalsband här."
06035 IF A(8)=Z THEN PRINT "Det ligger en trilogi här."
06036 IF A(24)=Z THEN PRINT "Det står en lampa här."
06037 IF A(9)=Z THEN PRINT "Det ligger ett kontrakt här."
06038 IF A(10)=Z THEN PRINT "Det hänger en lagerkrans här."
06039 IF S(30)=Z THEN 6200
! ---- GOTO from 6210
06040 IF J(Z)=1 AND A(30)=Z THEN PRINT "En förlängningssladd är inkopplad i en jack i väggen."
06042 IF J(Z)<>1 AND A(30)=Z THEN PRINT "Det ligger en förlängningssladd här."
06043 IF J(Z)<>1 AND S(44)=Z AND A(25)=Z THEN PRINT "En telefon är inkopplad i en förlängningssladd."
06044 IF S(44)=Z AND (A(25)<>Z OR J(Z)=1) THEN PRINT "En förlängningssladd sticker in hit."
06048 IF S(44)=-1 AND Z<>A(30) THEN S(44)=Z \ PRINT "Förlängningssladden räcker precis hit."
06050 IF S(3)>0 THEN 29000
06060 IF INT(RND*20)<>1 OR S(50)<50 THEN 6069
06062 S(3)=S(3)+1 IF A(I)=1 FOR I=1 TO 14
06064 IF S(3)>0 THEN S(4)=INT(RND*6)+INT(S(3)/2+0.5)
! ---- GOTO:s from 6060,29015,29025,29050,29060,29085,29125
06069 IF INT(RND*30)<>1 THEN 6100
06070 IF S(48)>0 THEN PRINT "En glasmästare springer förbi dej."\S(48)=0
06072 IF S(15)<>1 AND S(17)<>1 AND S(18)<>1 THEN 6076
06074 PRINT "En verkmästare från Stugas gatukontor lunkar förbi dej." \ S(15)=S(17)=S(18)=0
! ---- GOTO from 6072
06076 IF S(41)=1 THEN PRINT "En hissreparatör går förbi dej."\S(41)=0\S(40)=INT(RND*9)+1
06098 IF S(50)-S(21)>25 AND S(21)>0 THEN 6130
! ---- GOTO:s from 6069,6132
06100 IF A(29)<>Z THEN 6120
06102 IF S(50)-S(51)>30 AND S(51)>0 THEN 6124
06104 IF S(6)=0 THEN PRINT "Här står en vakt."
06106 IF S(6)=1 THEN PRINT "En full vakt raglar omkring här."
06108 IF S(6)=2 THEN PRINT "Det finns blodfläckar på golvet." \ RETURN
06110 IF S(6)=3 THEN PRINT "En vakt sover här."
! ---- GOTO from 6122
06112 IF A(15)=2 THEN PRINT "Han har din kofot."
06114 IF A(26)=2 THEN PRINT "Han har dina nycklar."
06116 IF A(25)=2 THEN PRINT "Han bär på en telefon."
06118 IF A(4)=2 THEN PRINT "Han bär på en juvelprydd hillebard."
06119 RETURN
! ---- GOTO from 6100
06120 IF A(29)<>1 THEN RETURN
06122 IF S(50)-S(51)<31 AND S(51)>0 THEN PRINT "Du följs av en full vakt." \ GOTO 6112
06123 S(1)=S(1)-1
! ---- GOTO from 6102
06124 PRINT "Vakten har nyktrat till nu."
06126 IF S(6)=3 THEN PRINT "Han vaknar och sträcker på sej."
06128 A(29)=Z \ S(6)=0 \ S(51)=0
06129 RETURN
! ---- GOTO from 6098
06130 S(21)=0
06131 PRINT"Dina fötter är läkta nu."
06132 GOTO 6100
! ---- GOTO from 6039
06200 IF A(19)>0 AND A(11)>0 THEN PRINT "Här sitter en gubbe." \ GOTO 6210
06202 PRINT "Här sitter en gubbe med ett pärlhalsband runt halsen."
06204 IF A(19)=0 THEN PRINT "I armarna har han en vattenflaska."
06206 IF A(19)=0 AND A(10)=0 THEN PRINT "På huvudet bär han din lagerkrans."
06208 IF A(19)=0 AND A(10)=1 THEN PRINT "Han stirrar på din lagerkrans."
! ---- GOTO from 6200
06210 PRINT \ GOTO 6040
! ---- GOTO from 12071
06300 IF C$<>"" THEN 6305
06301 IF Z=37 AND S(38)=0 THEN X=13 \ GOTO 12999
06302 C$=FNI$("Ta vadå ?") \ A$=C$=FNC$(C$)
! ---- GOTO from 6300
06305 FOR I=1 TO A(0)
06306 IF A$(I,1)<>"" THEN IF INSTR(1,C$,A$(I,2))>0 OR INSTR(1,C$,A$(I,3))>0 THEN 6400
06308 NEXT I
06309 IF FNL$(C$,4)="ALLT" THEN 6500
06310 IF FNL$(C$,5)="VATTE" THEN 6330
06311 IF FNL$(C$,5)="GRAVS" AND Z=61 THEN PRINT "Gravstenen väger alldeles för mycket."\GOTO 12210
06312 IF FNL$(C$,5)="KISTA" THEN 6350
06313 IF (FNL$(C$,5)="FAMIL" OR FNL$(C$,5)="VAPEN") AND Z=81 THEN PRINT "Vapnet sitter för hårt fast."\GOTO 12210
06314 IF FNL$(C$,5)="TAVLA" AND S(36)=0 THEN 6360
06315 IF FNL$(C$,5)="SAFTF" THEN PRINT "Jag ser ingen SAFTFLASKA här."\GOTO 12210
06316 IF FNL$(C$,5)="FLASK" THEN 6370
06317 IF FNL$(C$,4)="PORT" AND (Z=81 OR Z=62) THEN PRINT "Porten sitter fast i väggen."\GOTO 12210
06318 IF FNL$(C$,4)="JACK" AND J(Z)=1 THEN PRINT "Jacken sitter fastskruvad i väggen!"\GOTO 12210
06319 IF FNL$(C$,5)="BRUNN" AND Z=99 THEN PRINT "Brunnen är gjuten i marken!"\GOTO 12210
06320 IF FNL$(C$,5)="KASSA" AND Z=30 THEN PRINT "Det är fastgjutet i berget."\GOTO 12210
06321 IF FNL$(C$,3)="BÅT" AND (Z=49 OR Z=78 OR Z=50) THEN 6380
06322 IF FNL$(C$,5)="GUBBE" AND S(30)=Z THEN 30002
06323 IF FNL$(C$,4)="LÅDA" AND A(28)=2 AND Z=56 THEN PRINT "Lådan är för tung!"\GOTO 12210
06324 IF FNL$(C$,5)="RUBIN" AND A1=1 AND Z=70 THEN 6355
06325 IF FNL$(C$,3)="ASK" AND A(27)=2 AND Z=57 THEN PRINT "Asken sitter fast i väggen."\GOTO 12210
06326 IF FNL$(C$,5)="FÖNST" AND Z=16 AND A(15)=0 THEN PRINT "Fönstret är fastkittat i väggen."\GOTO 12210
06327 IF Z=37 AND S(38)=0 THEN X=13 \ GOTO 12999
06329 PRINT "Jag ser ingen ";C$;" här." \ GOTO 12210
! ---- GOTO from 6310
06330 IF Z=25 OR Z=33 OR Z=49 OR Z=50 OR Z=66 OR Z=70 OR Z=91 THEN 6338
06332 IF Z=72 OR Z=74 OR Z=78 OR Z=79 OR Z=83 OR Z=87 OR Z=88 THEN 6338
06334 PRINT "Jag ser inget VATTEN här."
06336 GOTO 12210
! ---- GOTO:s from 6330,6332
06338 IF A(19)<>1 THEN PRINT "Du har inget att ta vattnet i." \ GOTO 12210
06340 IF S(32)=0 THEN PRINT "Din vattenflaska är redan full." \ GOTO 12210
06342 PRINT "Du fyller på vattenflaskan med vatten från ";
06344 IF Z=91 THEN PRINT "vattenfallet." ELSE PRINT "sjön."
06346 S(32)=0 \ GOTO 12210
! ---- GOTO from 6312
06350 IF Z=15 THEN PRINT "Kistan väger 300 kilogram!" ELSE PRINT "Jag ser ingen KISTA här."
06352 GOTO 12210
! ---- GOTO:s from 6324,6551
06355 PRINT "Just när du ska ta rubinen kommer Thorvald fram och utropar"
06356 PRINT " - April, april! Nu tar jag hand om rubinen själv!"
06357 A1=0 \ GOTO 12210
! ---- GOTO from 6314
06360 PRINT "Du kan väl inte sno en av husets tavlor!"
06362 S(2)=S(2)-1 \ GOTO 12210
! ---- GOTO from 6316
06370 PRINT "Du måste skriva vilket slags flaska du menar, t ex TA SAFTFLASKA."
06372 GOTO 12210
! ---- GOTO from 6321
06380 PRINT "Du orkar inte bära roddbåten."
06382 GOTO 12210
! ---- GOTO from 6306
06400 IF (I=4 OR I=15 OR I=25 OR I=26) AND A(I)=2 THEN 28130
06402 IF (I=10 OR I=11 OR I=19) AND S(30)=Z AND A(I)=0 THEN 30020
06404 IF I=22 AND Z=63 THEN 28160
06406 IF I=29 AND S(6)<>1 THEN PRINT "Det kan du inte." \ GOTO 12210
! ---- GOTO:s from 12166,12170,12174,12176
06410 IF A(I)=Z OR (I=30 AND S(44)=Z) THEN 6420
06412 IF A(I)=1 THEN PRINT "Du bär redan ";A$(I,4);"." \ GOTO 12210
06414 IF A(I)=5 THEN PRINT "Man kan inte ta tillbaka saker från maskinen."\GOTO 12210
! ---- GOTO:s from 28130,28160
06418 PRINT "Jag ser ";FNA$(I);A$(I,1);" här." \ GOTO 12210
! ---- GOTO:s from 6410,28140,28162,30028,30036
06420 IF S(1)=9 THEN PRINT "Du kan inte bära fler saker." \ GOTO 12210
! ---- GOTO from 28166
06422 S(1)=S(1)+1 \ A(I)=1
06424 IF I=30 AND (J(Z)=1 OR S(44)=Z) THEN S(44)=0 \ PRINT "Du rycker loss sladden." \ GOTO 12210
06425 IF I=30 THEN S(44)=0
06426 IF I=25 AND (S(44)=Z OR J(Z)=1) THEN PRINT "Du kopplar ur telefonen." ELSE PRINT "Ok."
06428 GOTO 12210
! ---- GOTO from 6309
06500 I=0'TA ALLT
06505 FOR I1=1 TO A(0)
06510 IF A(I1)<>Z AND (I1<>30 OR S(44)<>Z) THEN 6550
06512 IF I1=29 AND S(6)<>1 THEN 6550
06515 IF S(1)<9 THEN 6535
06520 IF I=0 THEN PRINT "Du kan inte bära fler saker."
06525 IF I>0 THEN PRINT "." \ PRINT "Du kan inte bära resten."
06530 GOTO 12210
! ---- GOTO from 6515
06535 IF I=0 THEN PRINT "Du tar "; ELSE PRINT " och ";
06540 PRINT A$(I1,4); \ S(1)=S(1)+1 \ A(I1)=1 \ I=I+1
06545 IF I1=22 AND Z=63 THEN S(2)=S(2)-30 \ S(52)=0
06547 IF I1=30 THEN S(44)=0
! ---- GOTO:s from 6510,6512
06550 NEXT I1
06551 IF Z=70 AND A1=1 THEN PRINT \ GOTO 6355
06552 IF I=0 AND Z=37 AND S(38)=0 THEN PRINT "Jag ser inget du kan ta här." \ GOTO 6560
06555 IF I=0 THEN PRINT "Det finns inget som du kan ta här." ELSE PRINT "."
! ---- GOTO from 6552
06560 GOTO 12210
! ---- GOTO from 12072
07000 REM XXXXX SLÄPP XXXXX
07001 IF C$="" THEN C$=FNI$("Släpp vadå ?") \ A$=C$=FNC$(C$)
07003 FOR I=1 TO A(0)
07005 IF A$(I,1)<>"" THEN IF INSTR(1,C$,A$(I,2))>0 OR INSTR(1,C$,A$(I,3))>0 THEN 7030
07007 NEXT I
07008 IF FNL$(C$,4)="ALLT" THEN 7100
07009 IF C$="DEJ" OR C$="DIG" THEN 7020
07018 PRINT "Du bär väl ingen ";C$;"!" \ GOTO 12210
! ---- GOTO from 7009
07020 PRINT "Fy! Det vill jag inte." \ S(2)=S(2)-1 \ GOTO 12210
! ---- GOTO:s from 7005,12150,12842
07030 IF A(I)=1 THEN 7040
07034 PRINT "Du bär väl ";FNA$(I);A$(I,1);"!"
07036 GOTO 12210
! ---- GOTO from 7030
07040 IF (I=10 OR I=19) AND S(30)=Z THEN 7090
07041 IF I=25 AND (S(44)=Z OR J(Z)=1) THEN 7075
07042 IF Z=51 AND I<15 THEN X=15 \ GOTO 12999
! ---- GOTO from 7102
07043 IF Z=4 THEN PRINT "En mystisk kraft hindrar dej från att släppa någonting här." \ GOTO 12210
07044 IF I=22 AND Z=63 THEN S(52)=S(50) \ S(2)=S(2)+25
07045 IF I=30 AND J(Z)=1 THEN S(44)=-1 ELSE IF I=30 THEN S(44)=0
07050 A(I)=Z \ S(1)=S(1)-1
07052 IF I=22 AND Z=63 THEN PRINT "Du lägger försiktigt ner liket." ELSE PRINT "Ok."
07054 GOTO 12210
! ---- GOTO from 7041
07075 S(28)=S(28)+1 \ S(1)=S(1)-1 \ A(25)=Z
07077 IF S(28)=2 THEN 27100
07078 IF S(28)/3<>INT(S(28)/3) OR RND<0.5 THEN PRINT "Du kopplar in telefonen."\GOTO 12210
07080 PRINT "Just som du ska koppla in telefonen kommer en man klädd i en röd"
! ---- GOTO from 27306
07081 PRINT "dräkt som det står 'TELE' på, ";
07082 IF J(Z)=1 THEN PRINT "skruvar bort telefonjacken" \ J(Z)=0
07083 IF J(Z)<>1 THEN PRINT "tar bort förlängningssladden" \ S(44)=0 \ A(30)=0
07084 PRINT "och sluddrar fram:"
07085 PRINT "- Abonnemangsavgiften är inte betald." \ PRINT
07087 X1=1 \ GOSUB 27050
07088 GOTO 12999
! ---- GOTO from 7040
07090 IF I=19 THEN PRINT "Gubben tar snabbt vattenflaskan när du släpper den." \ GOTO 7094
07092 PRINT "Gubben sätter din lagerkrans på sitt huvud och ser genast gladare ut."
! ---- GOTO from 7090
07094 A(I)=0 \ S(1)=S(1)-1
07096 GOTO 12210
! ---- GOTO from 7008
07100 I=0'SLÄPP ALLT
07102 IF Z=4 THEN 7043
07105 FOR I1=1 TO A(0)
07110 IF A(I1)<>1 THEN 7135
07115 IF I1=22 AND Z=63 THEN S(52)=S(50) \ S(2)=S(2)+25
07117 IF I1=30 AND J(Z)=1 THEN S(44)=-1 ELSE IF I1=30 THEN S(44)=0
07120 A(I1)=Z \ S(1)=S(1)-1
07125 IF I=0 THEN PRINT "Du släpper "; ELSE PRINT " och ";
07130 PRINT A$(I1,4); \ I=I+1
! ---- GOTO from 7110
07135 NEXT I1
07140 IF I=0 THEN PRINT "Du bär inte på någonting!" ELSE PRINT "."
07145 GOTO 12210
! **** GOSUB:s from 9422,25119
07500 A(I)=Z IF A(I)=1 FOR I=1 TO A(0)'Släpper allt man bär i rummet
07502 S(1)=0
07504 RETURN
! ---- GOTO:s from 7564,7568,7585,35090,80370
07556 Z=35'XXXXX HISSENS MASKINRUM XXX Z=35 XXX
07558 PRINT "Du är i hissens maskinrum. Det bullrar och låter."
07559 PRINT "Det finns en dörr bakom Dej."
07560 IF A(1)<>1 THEN PRINT "Det finns en lucka i golvet."
07562 GOSUB 12200
07564 IF X1=1 THEN 7556
07566 IF X=6 THEN 35000
07568 IF X=2 AND A(1)<>1 THEN 7570 ELSE GOSUB 11000 \ GOTO 7556
! ---- GOTO from 7586
07569 GOSUB 11000
! ---- GOTO:s from 7568,7588,13006,80370
07570 PRINT "Du är i ett litet rum utan fönster."
07573 Z=32 \ GOSUB 12200
07579 IF X1=1 THEN 7588
07585 IF X=1 THEN 7556
07586 IF X=0 OR X=7 THEN 7569
07587 IF X=5 THEN 13000
! ---- GOTO from 7579
07588 PRINT "Du kan gå framåt och uppåt."\GOTO 7570
! ---- GOTO:s from 8003,8010
07999 GOSUB 8290
! ---- GOTO:s from 1954,8018,8041,8250,8252,8254,8256,8261,8307,8387,8388,8389,8426,8428,8430,8701,14020,17210,20103,80375
08000 Z=43'XXXXX LABYRINTRUM 8 XXX Z=43 XXX
08001 PRINT "Du är i en gångande vindel."
08002 GOSUB 12200
08003 IF X=0 OR X>7 THEN 7999
08007 IF S(45)=1 THEN ON X GOTO 1929,8330,1944,8300,8420,8300,8011
08008 PRINT "Det hänger en tavla här."
08009 GOSUB 700
08010 ON X GOTO 8330,7999,8400,17000,8020,16000,8011
! ---- GOTO:s from 8007,8010,8250
08011 GOTO 8017
! ---- GOTO from 8011
08017 S(2)=S(2)-2
08018 PRINT "Gå inte åt höger eller neråt!" \ GOTO 8000
! ---- GOTO from 8026
08019 GOSUB 8290
! ---- GOTO:s from 8010,8041,8042,8075,8250,8253,80375
08020 Z=44'XXXXX LEBYRINTRUM 9 XXX Z=44 XXX
08021 PRINT "Du är i en gång med vindlar överallt."
08022 GOSUB 12200
08025 IF X=4 THEN S(45)=2
08026 IF X=0 OR X>6 THEN 8019
08027 ON S(45) GOTO 8250,8263,8430
! ---- GOTO from 8038
08034 GOSUB 8290
! ---- GOTO:s from 1964,8057,8701,80375
08035 Z=45'XXXXX LABYRINTRUM 10 XXXXX Z=45 XXX
08036 PRINT "Du är i en vindlande gång med hål överallt."
08037 GOSUB 12200
08038 IF X=0 OR X>6 THEN 8034
08040 IF S(45)=1 THEN S(45)=3
08041 IF S(45)=3 THEN ON X GOTO 8000,1919,8300,8020,17000,8365
08042 ON X GOTO 1919,8071,8020,8365,8300,8330
! ---- GOTO:s from 8252,8253,8254,8256,8258,8261,8263
08054 PRINT "Den här hjälpen kostar inget."
08056 S(3)=1 \ S(41)=1
08057 GOTO 8035
! ---- GOTO from 8263
08067 ON S(45) GOTO 8252,8258,8256
! ---- GOTO from 8074
08070 GOSUB 8290
! ---- GOTO:s from 1974,8042,8075,8256,8258,8261,8426,80370
08071 Z=38'XXXXX LABYRINTRUM 3 XXXX Z=38 XXX
08072 PRINT "Du är i ett rum som vindlar."
08073 GOSUB 12200
08074 IF X=0 OR X>6 THEN 8070
08075 IF S(45)=3 THEN ON X GOTO 8095,8071,1919,8365,8330,8020
08076 ON S(45) GOTO 8261,8253
! ---- GOTO from 8104
08093 GOSUB 11000
! ---- GOTO:s from 1914,8075,8103,8106,8110,8143,8250,8252,8256,8258,8263,8306,8701,80370
08095 Z=39'XXXXX LABYRINTRUM 4 XXXXX
08096 PRINT "Du är i ett rum med hål överallt."
08097 IF S(48)>0 THEN PRINT "Det finns ett krossat fönster här." \ GOTO 8102
08100 PRINT "Högt uppe i taket finns ett fönster."
08101 PRINT "Någon knackar på det!!!"
! ---- GOTO from 8097
08102 GOSUB 12200
08103 IF X1=1 THEN 8095
08104 IF X=13 THEN 8131 ELSE IF X=0 THEN 8093
08105 IF X<>7 THEN 8112
08106 IF A(20)=1 AND S(33)=0 THEN PRINT "Sparka din pumpade boll!"\S(2)=S(2)-5\GOTO 8095
08108 PRINT "Inget du bär kan hjälpa dej att komma upp till fönstret." \ S(2)=S(2)-2
08110 GOTO 8095
! ---- GOTO from 8105
08112 ON S(45) GOTO 8250,8254,8253
! ---- GOTO from 8104
08131 PRINT "Du sparkar din boll mot fönstret."
08132 PRINT " PANG!"
08133 PRINT "Fönsterrutan gick sönder." \ IF S(48)=-1 THEN S(2)=S(2)+10\S(48)=0
08134 S(48)=S(48)+1
08135 PRINT "Ett rep ramlar ner genom fönstret och nån viskar: -Kom fort!"
! ---- GOTO from 8141
08137 A$=FNI$("Klättrar du upp på repet ?")
08138 IF FNL$(A$,1)="N" OR FNL$(A$,1)="n" THEN 8142
08139 IF FNL$(A$,1)="J" OR FNL$(A$,1)="j" THEN 8144
08140 PRINT "Bestäm dej!"
08141 GOTO 8137
! ---- GOTO from 8138
08142 PRINT "TYST!! Han hörde dej och drog upp repet!!!"
08143 GOTO 8095
! ---- GOTO from 8139
08144 PRINT "Du klättrar upp i en mörk gång efter en mörk skugga."
08145 PRINT "Långt borta hörs en röst:"
08146 PRINT " - HÖ, HÖ! En boll! In med den!!!"
08147 A(20)=4\S(1)=S(1)-1
! ---- GOTO:s from 8349,9525,80400
08148 IF S(48)<>-1 THEN PRINT "Du är i en mörk gång." ELSE GOSUB 730 \ GOTO 17000
! ---- GOTO from 8154
08149 Z=97 'XXXXX MÖRK GÅNG ÖVER LAB.4 XXXX
08150 GOSUB 12200
08152 IF X>0 THEN ON X GOTO 17000,25000,18000,10020,8300,8155,8153
! ---- GOTO from 8152
08153 GOSUB 11000
08154 GOTO 8149
! ---- GOTO from 8152
08155 IF S(47)=1 THEN 9510 ELSE 2168
! ---- GOTO:s from 8027,8112
08250 ON X GOTO 8365,8300,8000,8330,8020,8095,8011
! ---- GOTO from 8067
08252 ON X GOTO 8420,8000,8365,8300,17000,8095,8054
! ---- GOTO:s from 8076,8112
08253 ON X GOTO 8330,8020,8330,8330,8300,8420,8054
! ---- GOTO from 8112
08254 ON X GOTO 8381,8000,1500,1919,8330,8300,8054
! ---- GOTO from 8067
08256 ON X GOTO 8095,8000,8420,8071,8300,8330,8054
! ---- GOTO from 8067
08258 ON X GOTO 8300,8920,8095,8071,8330,14100,8054
! ---- GOTO from 8076
08261 ON X GOTO 8381,8365,8300,8000,17000,8071,8054
! ---- GOTO from 8027
08263 ON X GOTO 8095,8095,8300,8365,8067,1919,8054
! **** GOSUB:s from 7999,8019,8034,8070,8310,8329,8363,8380,8419
08290 PRINT "Du kan gå åt vänster,höger,framåt,bakåt,uppåt och neråt!"
08291 RETURN
! ---- GOTO:s from 1923,8007,8041,8042,8152,8250,8252,8253,8254,8256,8258,8261,8263,8308,8321,8325,8342,8370,8387,8388,8389,8407,8409,8426,8428,8430,8701,9072,80370
08300 Z=36'XXXXX LABYRINTRUM 1 XXXXX
08302 PRINT "Du är i en vindlande liten gång med hål."
! ---- GOTO from 8311
08304 GOSUB 12200
08306 IF X=1 THEN 8095 ELSE IF X=0 THEN 8310
08307 IF S(45)=1 THEN ON X GOTO 8320,17000,8000,8322,8365,8330,8700
08308 IF S(45)=2 THEN ON X GOTO 8327,8320,8365,8300,8330,8381,8700
08309 IF S(45)=3 THEN ON X GOTO 1500,8330,8320,8365,8322,8381,8323
! ---- GOTO from 8306
08310 GOSUB 8290
08311 GOTO 8304
! ---- GOTO:s from 8307,8308,8309,8342,8370,8371,8387
08320 PRINT "Återvändsgränd!"
08321 GOTO 8300
! ---- GOTO:s from 8307,8309
08322 S(45)=2 \ GOTO 8420
! ---- GOTO from 8309
08323 PRINT "TIPS!! Skriv framåt!"
08324 S(2)=S(2)-4
08325 GOTO 8300
! ---- GOTO:s from 8308,8342,8371,8407,8409,8964
08327 PRINT "Du är";
! ---- GOTO from 8369
08328 GOTO 9450
! ---- GOTO from 8340
08329 GOSUB 8290
! ---- GOTO:s from 8007,8010,8042,8075,8250,8253,8254,8256,8258,8307,8308,8309,8344,8350,8369,8371,8376,8388,8389,8407,8409,80370
08330 Z=37'XXXXX LABYRINTRUM 2 XXX Z=37 XXXX
08331 IF S(38)=0 THEN PRINT "Du är i en kolsvart gång." \ GOTO 8335
08332 PRINT "Du är i en gång där det på väggen står:"
! ---- GOTO from 8354
08333 PRINT "Lampan försvinner om det tas ur gången. Stanna kvar!"
08334 GOSUB 6000
! ---- GOTO from 8331
08335 A$=FNI$("") \ GOSUB 12000
08336 IF FNL$(A$,5)="VÄNTA" OR FNL$(A$,5)="STANN" THEN 8345
08338 IF X=13 THEN 8350
08339 IF X=7 AND S(38)=0 THEN 8343
08340 IF X=0 OR X>6 THEN 8329
08341 IF S(38)=1 THEN A(24)=31 \ S(38)=2 \ S(1)=S(1)-1 \ PRINT "Lampan försvinner!"
08342 ON X GOTO 8300,8327,8320,8365,8420,1919
! ---- GOTO from 8339
08343 PRINT "HJÄLP: Det finns en sak här i mörkret."
08344 S(2)=S(2)-5 \ GOTO 8330
! ---- GOTO from 8336
08345 IF A(24)<>1 OR S(38)<>1 THEN 8349
08347 PRINT "Lampan och ";
08348 S(38)=2
! ---- GOTO from 8345
08349 PRINT "Du lyfts uppåt." \ GOTO 8148
! ---- GOTO from 8338
08350 IF S(1)=9 THEN PRINT "Du kan inte bära fler saker." \ GOTO 8330
08351 PRINT "När du rör saken blir det ljust i gången. Saken är"
08352 PRINT "en lampa. På väggen ser du att det står:"
08353 S(1)=S(1)+1 \ A(24)=1 \ S(38)=1
08354 GOTO 8333
! ---- GOTO from 8368
08363 GOSUB 8290
! ---- GOTO:s from 8041,8042,8075,8250,8252,8261,8263,8307,8308,8309,8342,8375,8379,8387,8388,8389,8428,8430,80370
08365 Z=40'XXXXX LABYRINTRUM 5 XXXXX
08366 PRINT "Du är i en gång med hål."
08367 GOSUB 12200
08368 IF X=0 THEN 8363
08369 IF S(45)=1 THEN ON X GOTO 8420,8328,8381,14100,8330,8376,8373
08370 IF S(45)=2 THEN ON X GOTO 8376,8300,8400,8320,8381,8420,8700
08371 IF S(45)=3 THEN ON X GOTO 8381,8327,8320,8330,8376,8420,8700
! ---- GOTO from 8369
08373 PRINT "TIPS! Gå åt höger."
08374 S(2)=S(2)-4
08375 GOTO 8365
! ---- GOTO:s from 8369,8370,8371
08376 IF A(8)<>1 THEN 8330
08377 PRINT "Din trilogi (Sagorna om Härskarringen) försvinner plötsligt."
08378 A(8)=31 \ S(1)=S(1)-1
08379 GOTO 8365
! ---- GOTO:s from 8386,8394
08380 GOSUB 8290
! ---- GOTO:s from 8254,8261,8308,8309,8369,8370,8371,8407,8409,8426,8428,8430,9181,80375
08381 Z=41'XXXXX LABYRINTRUM 6 XXXXX
08382 PRINT "Du vindlar i en liten gång."
08384 GOSUB 12200
08386 IF X=0 THEN 8380
08387 IF S(45)=1 THEN ON X GOTO 8365,8000,8300,8400,8420,8320,8391
08388 IF S(45)=2 THEN ON X GOTO 8000,8300,8400,8365,8420,8330,8392
08389 IF S(45)=3 THEN ON X GOTO 8420,8365,8000,8400,8300,8330,8392
! ---- GOTO from 8387
08391 S(45)=3
! ---- GOTO:s from 8388,8389
08392 PRINT "TIPS!! Gå uppåt eller bakåt!" \ S(45)=3
08393 S(2)=S(2)-4
08394 GOTO 8380
! ---- GOTO:s from 8010,8370,8387,8388,8389,8406,80375
08400 Z=42'XXXXX LABYRINTRUM 7 XXXXX
08401 PRINT "Du står på kanten till en djup brunn."
08402 PRINT "Om du hoppar ner kommer du inte upp igen!"
! ---- GOTO from 8416
08403 GOSUB 12200
08406 IF X=0 THEN 8400
08407 IF S(45)=1 THEN ON X GOTO 8420,8327,8381,8420,8300,8330,8414
08408 S(45)=3
08409 ON X GOTO 8420,8327,8330,8420,8381,8300,8414
! ---- GOTO:s from 8407,8409
08414 PRINT "TIPS!! Chansa på uppåt eller neråt!"
08415 S(2)=S(2)-4
08416 GOTO 8403
! ---- GOTO from 8425
08419 GOSUB 8290
! ---- GOTO:s from 8007,8252,8253,8256,8322,8342,8369,8370,8371,8387,8388,8389,8407,8409,8701,80380
08420 Z=52'XXXXX LABYRINTRUM 11 XXXXX
08421 PRINT "Lilla du vindlar."
08422 IF S(43)=0 THEN 8800
08423 GOSUB 12200
08425 IF X=0 OR X>6 THEN 8419
08426 IF S(45)=1 THEN ON X GOTO 8071,1929,8381,8000,8300,1500
08428 IF S(45)=2 THEN ON X GOTO 8000,8365,1950,8381,1500,8300
! ---- GOTO from 8027
08430 IF S(45)=3 THEN ON X GOTO 8300,8000,8365,1970,8381,1500
! ---- GOTO from 8886
08440 REM XXXX FOZZIS BERÄTTELSE XXXXX
08442 PRINT "Fozzi tar dej med in i hans loge och säjer :"
08443 PRINT " - Om du säjer ett niosiffrigt tal där ingen siffra är över fem"
08444 PRINT "så ska jag, Fozzi den rolige, hjälpa Dej med en berättelse."
! ---- GOTO:s from 8447,8448
08445 A$=FNI$("Svara SPRINGA eller ett niosiffrigt tal :")
08446 IF FNC$(FNL$(A$,5))="SPRIN" THEN 8842
08447 IF LEN(A$)<>9 THEN 8445
08448 GOTO 8445 IF ASCII(FNM$(A$,I))<48 OR ASCII(FNM$(A$,I))>54 FOR I=1 TO 9
08450 X(I)=VAL(MID$(A$,I,1)) FOR I=1 TO 9
08460 PRINT
08463 PRINT "Fozzi skriver upp en berättelse på en lapp som han ger dej."
08465 PRINT "Du går tillbaka till scenen och berättar."
08470 PRINT
08472 PRINT " - Ett meddelande når ";FNF$(1);" att ";FNF$(2)
08475 PRINT " har släppts ut ur ";FNF$(3);" och kommer för att lägga"
08480 PRINT " beslag på ";FNF$(4);". Staden befinner sej snart i klorna på"
08485 PRINT " ";FNF$(5);" och folket sätter sej ner och väntar på "
08487 PRINT " ";FNF$(6);"."
08490 PRINT " Oroliga för att skurkarna tänker ";FNF$(7);" börjar"
08495 PRINT " saloonflickorna bli ";FNF$(8);". Skurkarna kommer"
08500 PRINT " men faran avvärjs ";FNF$(9);"."
08532 PRINT\PRINT "Publiken jublar men gubbarna på balkongen är bara spydiga."
08533 GOTO 8907
! **** GOSUB:s from 15204,20508
! ---- GOTO from 12215
08600 S(36)=1 'XXX VÄDERSTRECKSSUBRUTIN XXXXX
08602 IF A$="" THEN 12210
08603 X=0 \ X1=0 \ A$=FNC$(A$)
08604 IF FNL$(A$,6)="SYDOST" OR FNL$(A$,6)="SYDÖST" OR A$="SO" OR A$="SÖ" THEN X=8
08605 IF FNL$(A$,4)="VÄST" OR A$="V" THEN X=1
08606 IF FNL$(A$,3)="ÖST" OR FNL$(A$,3)="OST" OR A$="Ö" OR A$="O" THEN X=2
08607 IF FNL$(A$,4)="NORR" OR FNL$(A$,4)="NORD" OR A$="N" THEN X=3
08608 IF FNL$(A$,3)="SYD" OR FNL$(A$,5)="SÖDER" OR A$="S" THEN X=4
08609 IF FNL$(A$,5)="NORDV" OR A$="NV" THEN X=5
08610 IF FNL$(A$,4)="SYDV" OR A$="SV" THEN X=6
08611 IF FNL$(A$,5)="NORDO" OR FNL$(A$,5)="NORDÖ" OR A$="NO" OR A$="NÖ" THEN X=9
08612 GOTO 12025
! ---- GOTO from 12070
08613 'XXXX INVENTERING XXX
08614 IF S(1)=0 THEN PRINT "Du bär ingenting." \ GOTO 12210
08615 PRINT "Du bär på"
08617 IF A(1)=1 THEN PRINT "en gnistrande diamant"
08618 IF A(15)=1 THEN PRINT "en stor kofot"
08619 IF A(16)=1 THEN PRINT "en ny cykelpump"
08620 IF A(2)=1 THEN PRINT "en illaluktande gurka"' uääääääääääääääää
08621 IF A(3)=1 THEN PRINT "en snygg silvertacka"
08622 IF A(17)=1 THEN PRINT "en lång stege"
08623 IF A(18)<>1 THEN 8626
08624 IF S(31)=0 THEN PRINT "en full brännvinsflaska"
08625 IF S(31)=1 THEN PRINT "en tom brännvinsflaska"
! ---- GOTO from 8623
08626 IF A(19)<>1 THEN 8629
08627 IF S(32)=0 THEN PRINT "en full vattenflaska"
08628 IF S(32)=1 THEN PRINT "en tom vattenflaska"
! ---- GOTO from 8626
08629 IF A(20)<>1 THEN 8632
08630 IF S(33)=0 THEN PRINT "en pumpad boll"
08631 IF S(33)=1 THEN PRINT "en opumpad boll"
! ---- GOTO from 8629
08632 IF A(4)=1 THEN PRINT "en sylvass hillebard"
08633 IF A(21)=1 THEN PRINT "en jordig spade"
08634 IF A(5)=1 THEN PRINT "en urgammal dödskalle"
08635 IF A(6)=1 THEN PRINT "en tickande väckarklocka"
08637 IF A(11)=1 THEN PRINT "ett glittrande pärlhalsband"
08638 IF A(22)=1 THEN PRINT "ett äckligt lik"
08640 IF A(12)=1 THEN PRINT "en ful faunsko"
08641 IF A(7)=1 THEN PRINT "en massa guldmynt"
08642 IF A(25)=1 THEN PRINT "en modern telefon"
08645 IF A(26)=1 THEN PRINT "några gamla nycklar"
08646 IF A(27)=1 THEN PRINT "en vass sax"
08647 IF A(28)=1 THEN PRINT "en tung slägga"
08650 IF A(8)=1 THEN PRINT "en läsvärd trilogi (Sagorna om Härskarringen)"
08651 IF A(24)=1 THEN PRINT "en lampa"
08652 IF A(9)=1 THEN PRINT "ett skärt kontrakt"
08653 IF A(10)=1 THEN PRINT "en grön lagerkrans"
08654 IF A(23)=1 THEN PRINT "en tunn telefonkatalog"
08656 IF A(30)=1 THEN PRINT "en förlängningssladd till telefonen"
08663 GOTO 12210
! ---- GOTO:s from 8307,8308,8370,8371
08700 PRINT "Du kan inte få nå'n hjälp så som du ser ut!"\ D=INT(RND*5)+1
08701 ON D GOTO 8000,8300,8095,8035,8420
! ---- GOTO from 8422
08800 S(43)=1'XXX MUPPET SHOW XXX
08802 IF W$(6)<>"" THEN 8808
08804 PRINT "Här sitter björnen Fozzi och frågar:"
08806 W$(6)=FNI$("Vad heter du ?") \ GOTO 8810
! ---- GOTO from 8802
08808 PRINT "Björnen Fozzi skyndar förbi dej."
! ---- GOTO from 8806
08810 REM PLATS FÖR SIGNATUR
08830 PRINT "Någon säjer: Här är THE MUPPET SHOW med kvällens gäst-"
08831 PRINT "artist: ";W$(6)
! ---- GOTO from 8871
08833 PRINT "Ridån går upp och du är på en scen tillsammans med"
08834 PRINT "grodan Kermit. Dockpubliken applåderar."
! ---- GOTO from 8840
08836 A$=FNI$("Svara SPRING eller UPPTRÄD :") \ A$=FNC$(A$) \ PRINT
08838 IF FNL$(A$,5)="SPRIN" THEN 8842
08839 IF FNL$(A$,5)="UPPTR" THEN 8873
08840 GOTO 8836
! ---- GOTO:s from 8446,8838,8885
08842 PRINT "Du springer rätt in i ett monster som slukar dej i en
enda"
08843 PRINT "munsbit! Du känner en sprängladdning här!"
! ---- GOTO from 8848
08845 A$=FNI$("Svara ROPA eller SPRÄNG :") \ A$=FNC$(A$) \ PRINT
08846 IF FNL$(A$,4)="ROPA" THEN 8850
08847 IF FNL$(A$,5)="SPRÄN" THEN 8857
08848 GOTO 8845
! ---- GOTO from 8846
08850 PRINT "Du ropar och Kermit hämtar hjälp. Det tar tid."
! ---- GOTO from 8855
08852 A$=FNI$("Svara VÄNTA eller SPRÄNG :") \ A$=FNC$(A$) \ PRINT
08853 IF FNL$(A$,5)="VÄNTA" THEN 8860
08854 IF FNL$(A$,5)="SPRÄN" THEN 8857
08855 GOTO 8852
! ---- GOTO:s from 8847,8854
08857 PRINT "Du och monstret sprängs i bitar! "
08859 GOTO 9461
! ---- GOTO from 8853
08860 PRINT "Du väntar i 30 sekunder!"
08861 S=ECHO(1)
08862 FOR I=1 TO 6
08863 D=SLEEP(5)
08864 IF D THEN INPUT ""_A$
08867 NEXT I
08868 S=ECHO(0)
08870 PRINT "Någon skär upp magen. Du märker att"
08871 GOTO 8833
! ---- GOTO from 8839
08873 PRINT "Kermit frågar dej om du vill sjunga eller berätta en historia."
! ---- GOTO from 8878
08875 A$=FNI$("Svara SJUNG eller BERÄTTA :") \ A$=FNC$(A$) \ PRINT
08876 IF FNL$(A$,5)="SJUNG" THEN 8890
08877 IF FNL$(A$,5)="BERÄT" THEN 8880
08878 GOTO 8875
! ---- GOTO from 8877
08880 PRINT "Du börjar att berätta men efter första meningen"
08881 PRINT "avbryts du av kraftiga bu-rop. Bara två gubbar pä"
08882 PRINT "läktaren skrattar (åt ditt utseende). Fozzi erbjuder dej hjälp."
! ---- GOTO from 8887
08884 A$=FNI$("Svara HJÄLP eller SPRING :") \ A$=FNC$(A$) \ PRINT
08885 IF FNL$(A$,5)="SPRIN" THEN 8842
08886 IF FNL$(A$,5)="HJÄLP" THEN 8440
08887 GOTO 8884
! ---- GOTO from 8876
08890 PRINT "Du börjar sjunga: I'm a poor lonesome cowboy and a"
08891 PRINT "long way from home..."
08894 PRINT "Publiken jublar men sångarna Wayne & Wanda är arga"
08895 PRINT "på dej för att du tagit deras plats. Dom vill döda dej!"
! ---- GOTO from 8900
08897 A$=FNI$("Svara FRED (med Wayne & Wanda) eller FÖLJ (Kermit) :")
08898 A$=FNC$(A$) \ PRINT
08899 IF FNL$(A$,4)="FRED" THEN 8920
08900 IF FNL$(A$,4)<>"FÖLJ" THEN 8897
08902 D=INT(RND*7)+1
08903 IF D>4 THEN 8907
! ---- GOTO from 8922
08904 PRINT "Wayne & Wanda kommer bakifrån och kastar upp dej i luften!"
08905 S(43)=0 \ GOTO 8963
! ---- GOTO:s from 8533,8903
08907 PRINT "Du följer efter Kermit för att få ett kontrakt."
08910 W$(2)=FNI$("Fozzi säjer: Skriv ett intresse som du har :")
08912 PRINT "Fozzi tackar för sej och går." \ IF S(1)=9 THEN 9528
! ---- GOTO from 9533
08913 PRINT "Du får ett skärt kontrakt av Kermit."\PRINT "Det finns en dörr till höger."
08914 A(9)=1 \ S(1)=S(1)+1
! ---- GOTO from 8918
08915 A$=FNI$("Svara FÖLJ (Fozzi) eller HÖGER :") \ A$=FNC$(A$) \PRINT
08916 IF FNL$(A$,4)="FÖLJ" THEN 8943
08917 IF FNL$(A$,5)="HÖGER" THEN 8950
08918 GOTO 8915
! ---- GOTO:s from 8258,8899
08920 PRINT "Du går fram mot Wayne & Wanda för att sluta fred."
08921 D=INT(RND*20)+1
08922 IF D=1 THEN 8904
08923 PRINT "Du bestämmer att du inte ska sjunga mer så W&W"
08924 PRINT "ska kunna behålla jobbet. Fozzi kommer fram och säjer:"
08925 W$(2)=FNI$("Skriv ett intresse du har!")
08928 PRINT "Fozzi tackar för sej och går. Det finns en dörr till vänster."
! ---- GOTO from 8932
08929 A$=FNI$("Svara FÖLJ (Fozzi) eller VÄNSTER :") \ A$=FNC$(A$) \ PRINT
08930 IF FNL$(A$,5)="VÄNST" THEN 8950
08931 IF FNL$(A$,4)="FÖLJ" THEN 8943
08932 GOTO 8929
! ---- GOTO:s from 8916,8931
08943 PRINT "Nu går Fozzi in genom en dörr. Det finns också en dörr framåt."
! ---- GOTO from 8947
08944 A$=FNI$("Svara FÖLJ (Fozzi) eller FRAMÅT :") \ A$=FNC$(A$) \ PRINT
08945 IF FNL$(A$,5)="FRAMÅ" THEN 8950
08946 IF FNL$(A$,4)="FÖLJ" THEN 8970
08947 GOTO 8944
! ---- GOTO:s from 8917,8930,8945,9534
08950 PRINT "Du är innanför dörren. Kermit kommer fram och säjer"
08951 PRINT "att du ska vara med i en diskussion om ";W$(2)
! ---- GOTO from 8957
08953 A$=FNI$("Svara DISKUTERA eller SPRING :") \ A$=FNC$(A$) \ PRINT
08954 IF FNL$(A$,5)="DISKU" THEN 8980
08955 IF FNL$(A$,5)="SPRIN" THEN 8960
08957 GOTO 8953
! ---- GOTO:s from 8955,8974
08960 PRINT "Du springer rätt in i ett monster som slukar grönsaker!"
08961 PRINT "Han tar upp dej och kastar dej högt upp i luften."
! ---- GOTO from 8905
08963 D=INT(RND*5)+1
08964 ON D GOTO 8327,1500,14100,9145,16000
! ---- GOTO from 8946
08970 PRINT "Du är inne i en tortyrkammare. Dörren gick i lås bakom dej!"
08971 PRINT "Väggarna närmar sej. Enda vägen ut spärras av ett monster!"
! ---- GOTO from 8976
08973 A$=FNI$("Svara SPRING (ut) eller STANNA :") \ A$=FNC$(A$) \ PRINT
08974 IF FNL$(A$,5)="SPRIN" THEN 8960
08975 IF FNL$(A$,5)="STANN" THEN 8977
08976 GOTO 8973
! ---- GOTO from 8975
08977 PRINT "Väggarna klämmer ut inälvorna på dej!"
08978 GOTO 9461
! ---- GOTO from 8954
08980 S(2)=S(2)+30
08983 PRINT "Kermit inleder: Nu ska vi återigen höja programmets"
08984 PRINT "intellektuella nivå. Vi ska idag prata kring ämnet ";W$(2);"."
08985 PRINT W$(6);" får inleda med en replik. Vad tycker du om ";W$(2);"?"
08987 A$=FNI$("")
08988 PRINT "Kermit: Jag håller fullständigt med dej!"
08989 PRINT "Fozzi: Nej helt fel, tvärt om!"
08990 PRINT "Gubbarna: Ut med björnen!"
08991 PRINT "Fozzi: Det var det värsta!!!!"
08992 PRINT "Gubbarna: Nej dina skämt är värre! HA HA HA ..."
08993 PRINT "Fozzi: Jag ska minsann..."
08994 PRINT "Kermit: Öh...Vi får visst avrunda här. Nästa veckas ämne:"
08995 PRINT "-Varför retas folk?"
08996 PRINT "Vi ses då i: *****THE MUPPET SHOW*****"
08997 GOTO 1500
! ---- GOTO from 9010
08999 GOSUB 11000
! ---- GOTO:s from 9014,9360,16058,80365
09000 Z=21 \ R$="första"'XXXX HISSRUM 1 XXX Z=21 XXX
09002 GOSUB 9250
09004 GOSUB 12200
! ---- GOTO from 9014
09008 IF X=4 THEN 16000
09010 IF X<>3 THEN 8999
09012 GOSUB 9260
09014 ON X% GOTO 9008,9300,9000
! ---- GOTO from 9028
09019 GOSUB 11000
! ---- GOTO:s from 9032,9360,41100,80365
09020 Z=28 \ R$="åttonde"'XXXX HISSRUM 8 XXX Z=28 XXX
09022 GOSUB 9250
09024 GOSUB 12200
! ---- GOTO from 9032
09026 IF X=4 THEN 41000
09028 IF X<>3 THEN 9019
09030 GOSUB 9260
09032 ON X% GOTO 9026,9300,9020
! ---- GOTO:s from 9048,9055,9360,15375,17220,80365
09035 Z=22'XXXX HISSRUM 2 XXX Z=22 XXX
09037 PRINT "Du befinner dej i andra våningens hissrum. Till höger ser man"
09039 IF S(40)=2 THEN PRINT "en öppen"; ELSE PRINT "en stängd";
09041 PRINT " hissdörr. I den vänstra väggen finns"
09043 PRINT "ett hål till ett trapprum."
! ---- GOTO from 9060
09045 GOSUB 12200
! ---- GOTO from 9055
09047 IF X=3 THEN 15370
09048 IF X1=1 THEN 9035
09051 IF X<>4 THEN 9056
09053 GOSUB 9260
09055 ON X% GOTO 9047,9300,9035
! ---- GOTO from 9051
09056 GOSUB 11000
09058 PRINT "Du är i andra våningens hissrum."
09060 GOTO 9045
! ---- GOTO:s from 9071,9360,80365
09065 Z=23'XXXX HISSRUM 3 XXX Z=23 XXX
09066 PRINT "3:e våningens hissrum var visst toaletten."
09067 PRINT "Du spolas ut på golvet. Till vänster finns"
09068 PRINT "en dörr men du kan också spola ner dej."
! ---- GOTO from 9074
09069 GOSUB 12200
09070 IF FNL$(A$,3)="SPO" THEN 9075
09071 IF X1=1 THEN PRINT "Som sagt, "; \ GOTO 9065
09072 IF X=3 THEN 8300
09073 GOSUB 11000
09074 PRINT "Du är i toaletten." \ GOTO 9069
! ---- GOTO:s from 9070,9360,10062,10066
09075 PRINT "Du befinner dej";
09076 GOTO 9450
! ---- GOTO from 9105
09099 GOSUB 11000
! ---- GOTO:s from 9107,9360,80365
09100 Z=27 \ R$="sjunde"'XXXX HISSRUM 7 XXX Z=27 XXX
09102 GOSUB 9250
09103 GOSUB 12200
! ---- GOTO from 9107
09104 IF X=4 THEN 1919
09105 IF X<>3 THEN 9099
09106 GOSUB 9260
09107 ON X% GOTO 9104,9300,9100
! ---- GOTO from 9154
09144 GOSUB 11000
! ---- GOTO:s from 8964,9158,9360,15310,15430,80365
09145 Z=24 \ R$="fjärde"'XXXX HISSRUM 4 XXX Z=24 XXX
09146 GOSUB 9250
09147 PRINT "Bakom dej anar man en öppning."
09148 GOSUB 12200
! ---- GOTO from 9158
09150 IF X=4 THEN 15432
09152 IF X=6 THEN 15300
09154 IF X<>3 THEN 9144
09156 GOSUB 9260
09158 ON X% GOTO 9150,9300,9145
! ---- GOTO from 9183
09174 GOSUB 11000
! ---- GOTO:s from 9187,9360,80365
09175 Z=26 \ R$="sjätte"'XXXX HISSRUM 6 XXX Z=26 XXX
09177 GOSUB 9250
09179 GOSUB 12200
! ---- GOTO from 9187
09181 IF X=4 THEN 8381
09183 IF X<>3 THEN 9174
09185 GOSUB 9260
09187 ON X% GOTO 9181,9300,9175
! ---- GOTO from 9198
09189 GOSUB 11000
! ---- GOTO:s from 9202,9360,17235,35090,80365
09190 Z=29 \ R$="nionde"'XXXX HISSRUM 9 XXX Z=29 XXX
09192 GOSUB 9250
09194 GOSUB 12200
! ---- GOTO from 9202
09196 IF X=4 THEN 35000
09198 IF X<>3 THEN 9189
09200 GOSUB 9260
09202 ON X% GOTO 9196,9300,9190
! ---- GOTO from 9358
09210 A=A*-1
09211 PRINT S(39);
09212 X=S(39)
09213 FOR I=1 TO A
09214 S=SLEEP(2)
09215 IF S THEN 9222
! ---- GOTO from 9223
09216 X=X-1
09217 PRINT " ";X;
09219 NEXT I
! ---- GOTO from 9237
09220 PRINT CHR$(7)
09221 GOTO 9359
! ---- GOTO from 9215
09222 INPUT ""_C$
09223 IF FNL$(C$,1)<>"N" AND FNL$(C$,1)<>"n" THEN 9216
! ---- GOTO from 9240
09224 S(40)=X
09225 PRINT "Hissen stannar och du kastas ur!"
09226 GOTO 9360
! ---- GOTO from 9358
09228 X=S(39)
09229 PRINT S(39);
09230 FOR I=1 TO A
09231 S=SLEEP(2)
09232 IF S THEN 9238
! ---- GOTO from 9239
09233 X=X+1
09234 PRINT " ";X;
09236 NEXT I
09237 GOTO 9220
! ---- GOTO from 9232
09238 INPUT ""_C$
09239 IF FNL$(C$,1)<>"N" AND FNL$(C$,1)<>"n" THEN 9233
09240 GOTO 9224
! **** GOSUB:s from 9002,9022,9102,9146,9177,9192
09250 PRINT "Du är i ";R$;" våningens hissrum. Till vänster finns en"
09252 IF S(40)=Z-20 THEN PRINT "öppen"; ELSE PRINT "stängd";
09254 PRINT " hissdörr och till höger en annan dörr."
09256 RETURN
! **** GOSUB:s from 9012,9030,9053,9106,9156,9185,9200
09260 X%=2 \ S(39)=Z-20
09261 IF S(40)=S(39) THEN S(40)=0 \ GOTO 9280
! ---- GOTO from 9265
09262 PRINT "Du står framför en stängd hissdörr. På en knapp bredvid"
09263 PRINT "dörren står det HIT."
09264 GOSUB 12200
09265 IF X1=1 THEN 9262
09266 IF FNL$(A$,3)<>"TRY" AND A$<>"HIT" THEN X%=1 \ GOTO 9280
09268 IF S(40)=10 THEN PRINT "Hissen kommer inte. Den måste vara trasig!" \ X%=3 \ GOTO 9280
09269 I1=1
! ---- GOTO from 9275
09270 I=INSTR(I1,A$," ")
09271 IF I<1 OR I>=LEN(A$) THEN 9276
09272 D=ASCII(MID$(A$,I+1,1))
09273 IF D>47 AND D<58 THEN S(40)=D-48 \ GOTO 9278
09274 I1=I+1
09275 IF I1<LEN(A$) THEN 9270
! ---- GOTO from 9271
09276 S(40)=-1
09277 W$="TRYCK 0"
! ---- GOTO from 9273
09278 PRINT "Hissen kommer och du stiger in."
! ---- GOTO:s from 9261,9266,9268
09280 RETURN
! ---- GOTO:s from 9014,9032,9055,9107,9158,9187,9202,9331,80360
09300 Z=18 \ S(22)=S(22)+1 'XXX HISSEN XXX
09301 IF S(40)>0 THEN 9335 ELSE S=SLEEP(2)
09304 IF S(22)/2=INT(S(22)/2) THEN PRINT "Du är i hissen." \ GOTO 9307
! ---- GOTO from 9332
09305 PRINT "Du är i hissen. Här finns tio knappar. Dom nio första är numrerade"
09306 PRINT "1-9. På den sista står det NÖDSTOPP."
! ---- GOTO from 9304
09307 GOSUB 6000
! ---- GOTO from 9323
09308 PRINT "Vilken knapp trycker du på ? ";
09309 E=INT(RND*9)+1 \ E1=INT(RND*15)+5
09310 IF S(40)=0 OR M3%=1% THEN 9315 ELSE IF SLEEP(8+E1) THEN 9315
09311 PRINT \ PRINT "Dörrarna går igen och hissen startar."
09312 IF M2%=1% THEN PRINT #2,W$ \ W$=STR$(E)'&&&&&
09313 S(40)=E \ PRINT "Hissen går till";S(40);"an."
09314 GOTO 9356
! ---- GOTO:s from 9310
09315 A$=FNI$("") \ PRINT
! ---- GOTO from 9330
09316 IF ASCII(A$)>48 AND ASCII(A$)<58 THEN S(40)=VAL(FNL$(A$,1)) \ GOTO 9335
09318 IF FNL$(A$,1)<>"N" AND FNL$(A$,1)<>"n" THEN GOSUB 12000\GOTO 9330
09322 PRINT "Skrik inte på hjälp innan det hemska börjar!"
09323 GOTO 9308
! ---- GOTO from 9318
09330 IF ASCII(A$)>48 AND ASCII(A$)<58 THEN 9316
09331 IF X1=1 THEN 9300
09332 GOSUB 11000 \ GOTO 9305
! ---- GOTO:s from 9301,9316
09335 IF S(41)<>1 THEN 9355
09337 PRINT FNS$("åker hiss",5)
09338 PRINT "Hissen faller !!"
09339 PRINT "Hissen krossas mot hisschaktets botten."
09340 S(40)=10 \ GOTO 9461
! ---- GOTO from 9335
09355 PRINT "Hissen startar." \ S=SLEEP(4)
! ---- GOTO from 9314
09356 A=S(40)-S(39)
09357 IF A=0 THEN 9360
09358 IF A<0 THEN 9210 ELSE 9228
! ---- GOTO from 9221
09359 PRINT "Hissen är framme. Du går ur..."\ IF RND<0.1 THEN S(41)=1
! ---- GOTO:s from 9226,9357
09360 ON S(40) GOTO 9000,9035,9065,9145,9075,9175,9100,9020,9190
! ---- GOTO:s from 9372,9374,9395,9431,20010,20074,20089,20212,80375
09361 Z=49'XXX ÖSTRA STRANDEN XXX Z=49 XXXXX
09362 PRINT "Du är på östra stranden. Åt norr är det skog."
09364 IF S(35)=0 THEN PRINT "Här ligger en roddbåt."
09366 GOSUB 15200
09368 IF S(35)=0 AND (INSTR(1,A$,"BÅT")>0 OR A$="RO") THEN 9390
09370 IF X<>0 THEN ON X GOTO 20000,9424,20070,9374,20200,9374,9372,9374,20085,2107
! ---- GOTO from 9370
09372 GOSUB 11000 \ GOTO 9361
! ---- GOTO:s from 9370
09374 PRINT "Du kan väl inte gå på vattnet?" \ GOTO 9361
! ---- GOTO:s from 2222,9368,80390
09390 Z=78'XXXX I BÅTEN XXXXX Z=78 XXXXX
09391 PRINT "Du sitter i båten, mitt i sjön."
! ---- GOTO from 9401
09392 GOSUB 15200 \ S(35)=INT(RND*2)
09393 IF X=1 THEN 9410
09394 IF X=2 THEN 9416
09395 IF X=3 THEN S(35)=0 \ GOTO 9361
09396 IF X=4 THEN S(35)=1 \ GOTO 2200
09397 IF X=10 THEN 2107
09399 GOSUB 11000
09400 PRINT "Skriv söder, norr, öster eller väster."
09401 GOTO 9392
! ---- GOTO from 9393
09410 PRINT "Oj, en motorbåt åkte för nära dej."
09411 PRINT "Din båt går runt och Du svimmar!"
09412 PRINT
09414 PRINT "När Du vaknar är Du";
09415 GOTO 9450
! ---- GOTO from 9394
09416 PRINT "Du ror och ror..."
09417 PRINT "Plötsligt åker Du in i en vattenvirvel som suger ner "
09418 PRINT "både Dej och båten."
09419 D=SLEEP(3) \ IF D THEN INPUT ""_A$
09420 PRINT
09421 PRINT "Du flyter upp och ser att"
09422 Z=4\GOSUB7500
09423 GOTO 2066
! ---- GOTO:s from 9370,9429,9433,9438,20074,20089,20336,80395
09424 PRINT "Du är på en stenig sjöstrand."
09425 PRINT "Det finns en liten badhytt här."\Z=88
! ---- GOTO:s from 9431
09426 PRINT "Ett staket hindrar dej att gå åt NORDOST,ÖSTER eller SYDOST."
09428 GOSUB 15200
09429 IF X1=1 THEN 9424
09430 IF X=0 THEN 9436
09431 ON X GOTO 9361,9426,20085,20330,20070,9432,9437,9426,9426,2107
! ---- GOTO from 9431
09432 PRINT "Kan du gå på vattnet?"
09433 GOTO 9424
! ---- GOTO from 9430
09436 IF INSTR(1,A$,"BADHYTT")>0 OR FNL$(A$,5)="ÖPPNA" OR A$="IN" THEN 9439
! ---- GOTO from 9431
09437 GOSUB 11000
09438 GOTO 9424
! ---- GOTO from 9436
09439 PRINT "Du går in i badhytten men golvet ger vika och du faller..."
09440 GOTO 25000
! ---- GOTO:s from 2106,2143,8328,9076,9415
09450 PRINT " under bryggan."
09451 PRINT "Du ser ett hål rakt fram, men kan inte komma dit."
09452 IF A(1)<>1 THEN GOTO 9455
09453 A(1)=0 \ S(1)=S(1)-1
09454 PRINT "OJ! Du tappar diamanten. Den ligger på botten."
! ---- GOTO from 9452
09455 IF S(2)<10 THEN 9459
09456 A$=FNI$("Vill du vara kvar här ?")
09457 IF FNL$(A$,1)="N" OR FNL$(A$,1)="n" THEN 20005
! ---- GOTO from 9455
09459 PRINT
09460 PRINT "Din luft är slut och du kvävs. Ditt lik flyter upp."
! ---- GOTO:s from 2103,2148,8859,8978,9340,9469,9578,25120
09461 A$=FNI$("Vill du att jag ska återuppliva dej ?")
09462 S(46)=S(46)+1
09464 IF FNL$(A$,1)="N" OR FNL$(A$,1)="n" THEN 9484
09467 IF FNL$(A$,1)="J" OR FNL$(A$,1)="j" THEN 9470
09468 PRINT "JA eller NEJ! Min chans att lyckas minskar... "
09469 S(46)=S(46)+1 \ GOTO 9461
! ---- GOTO from 9467
09470 PRINT "OK, men skyll inte på mej om något går fe..."
09471 IF S(46)=1 THEN 9479
09472 IF S(46)=6 THEN 9483
09473 D=INT(RND*10)+1
09474 IF D>3 THEN 9479
09475 PRINT "POFF!!! Ett grönt gasmoln omger dej!"
09476 PRINT "OJOJOJ, det gick inte. Du är fortfarande stendöd! Jag"
09477 PRINT "lovar att du ska få en värdig begravning!!"
09478 GOTO 99000
! ---- GOTO:s from 9471,9474
09479 PRINT "POFF!!! Ett grönt gasmoln omger dej!!"
09480 PRINT "Du lever! När gasen skingrats ser Du att "
09482 S(2)=S(2)-5
! ---- GOTO from 9472
09483 GOTO 36050
! ---- GOTO from 9464
09484 PRINT "VA? Litar du inte på mig? Senast igår återuppväckte jag"
09485 PRINT "en DEC-2020 och den fungerade i flera minuter..."
09486 PRINT
09487 PRINT "Men jag ska inte bråka. Du får som du vill."
09488 GOTO 99000
! ---- GOTO:s from 9497,9550,9566,14020,80380
09490 Z=54'XXXXX VIGGOS HEMLIGA RUM 1 XXXXX
09491 PRINT "Du är i ett dunkelt, dammtäckt rum."
! ---- GOTO from 9516
09492 PRINT "Dörrar går bakåt, åt höger och framåt."
09493 IF S(47)>0 THEN PRINT "Det finns ett hål till vänster." \ GOTO 9496
09494 PRINT "Bakom ett draperi till vänster kan man ana ett hål."
! ---- GOTO:s from 9493,9502
09496 GOSUB 12200
09497 IF X1=1 THEN 9490
09500 IF X>0 THEN ON X GOTO 9501,9501,9510,9558,9545,14000,9501
! ---- GOTO:s from 9500
09501 GOSUB 11000
09502 PRINT "Du är i ett dunkelt, dammtäckt rum."\GOTO 9496
! ---- GOTO:s from 8155,9500,9519,9522,9524,9527,9537,80380
09510 Z=55'XXXXX VIGGOS HEMLIGA RUM 2 XXXXX
09511 IF S(47)>0 THEN PRINT "Det finns ett hål i väggen." ELSE PRINT "Du är vid draperiet."
09512 GOSUB 12200
09515 IF X=5 THEN 9525
09516 IF X=6 THEN 9492
09517 IF FNL$(A$,5)="KLIPP" AND S(47)=0 THEN 9520
09518 IF (FNL$(A$,5)="ÖPPNA" OR FNL$(A$,3)="DRA") AND S(47)=0 THEN 9523
09519 GOSUB 11000 \ GOTO 9510
! ---- GOTO from 9517
09520 IF A(27)=1 THEN 9535
09521 PRINT "Du har inget att klippa med!"
09522 GOTO 9510
! ---- GOTO from 9518
09523 PRINT "Du är för svag för att kunna rubba draperiet."
09524 GOTO 9510
! ---- GOTO from 9515
09525 IF S(47)=1 THEN 8148
09526 PRINT "Draperiet är i vägen."
09527 GOTO 9510
! ---- GOTO:s from 8912,80380
09528 Z=60'XXXXX MUPPET SHOW DEL 2 XXXXX
09529 PRINT "Kermit vill ge dej ett kontrakt, men då måste du släppa"
09530 PRINT "något först. (Tänk på att du inte kommer hit igen!!)"
09531 A$=FNI$("Svara SLÄPP <det du vill släppa> eller DÅLIGT
:")
09532 IF FNC$(FNL$(A$,5))="SLÄPP" THEN GOSUB 12000
09533 IF S<9 THEN 8913
09534 PRINT "Ok." \ PRINT "Du går genom en dörröppning." \ GOTO 8950
! ---- GOTO from 9520
09535 S(47)=1 \ S(2)=S(2)+20
09536 PRINT "Du klipper sönder draperiet. Draperiet försvinner."
09537 GOTO 9510
! ---- GOTO:s from 9500,9552,9553,9555,80380
09545 Z=56'XXXXX VIGGOS HEMLIGA RUM 3 XXXXX
09546 PRINT "Du är i en återvändsgränd."
09547 IF A(28)=2 THEN PRINT "Det ligger en låst låda här som du inte orkar bära."
09548 GOSUB 12200
09550 IF X=6 THEN 9490
09551 IF FNL$(A$,3)="LÅS" THEN 9553
09552 GOSUB 11000 \ GOTO 9545
! ---- GOTO from 9551
09553 IF A(26)<>1 OR A(28)<>2 THEN PRINT "Det kan du inte." \ GOTO 9545
09554 PRINT "Du låser upp lådan och hittar en slägga. Lådan försvinner."
09555 A(28)=56 \ GOTO 9545
! ---- GOTO:s from 9565,9566,9568
09556 GOSUB 11000
! ---- GOTO from 9571
09557 PRINT "Du är i höger kammare." \ GOTO 9562
! ---- GOTO:s from 9500,9569,80380
09558 Z=57'XXXXX VIGGOS HEMLIGA RUM 4 XXXXX
09559 PRINT "Du är i höger kammare. En väg går framåt, men på ett"
09560 PRINT "anslag står det: DU SOM VÅGAR DEJ IN HÄR FÅR "
09561 PRINT "ANTINGEN EN BELÖNING ELLER OCKSÅ ... DÖDEN"
! ---- GOTO from 9557
09562 IF A(27)=2 THEN PRINT "Fastskruvad i väggen sitter en glasask med en sax i."
09563 GOSUB 12200
09564 IF FNL$(A$,3)="SLÅ" OR FNL$(A$,5)="KROSS" THEN 9568
09565 IF X=0 OR X>6 THEN 9556
09566 ON X GOTO 9556,9556,9556,9556,9575,9490
! ---- GOTO from 9564
09568 IF A(27)<>2 THEN 9556
09569 IF A(28)<>1 THEN PRINT "Du har inget att slå med."\ GOTO 9558
09570 PRINT "Du krossar glaset. Saxen ramlar ur och asken försvinner i ett moln."
09571 A(27)=57 \ GOTO 9557
! ---- GOTO from 9566
09575 D=INT(RND*10)
09576 IF D<4 THEN PRINT "Gången mynnar ut i ett hus." \ GOTO 2241
09577 PRINT "Du trampar på en sprängladdning och sprängs i luften!"
09578 GOTO 9461
! ---- GOTO:s from 12064,28092
09950 IF M2%=1% THEN CLOSE 2 \ M2%=0%'&&&&& Stäng ev. loggfil
09951 PRINT \ PRINT "Är du säker på att du vill sluta nu?";
09952 A$=FNI$("") \ A$=FNC$(A$)
09953 IF FNL$(A$,1)="J" THEN 99000
09957 PRINT "Ok. Du har";S(2);"poäng!"
09958 GOTO 12210
! ---- GOTO:s from 1540,15357,15434,17190,20225,80360
09991 Z=8 \ S(8)=S(8)+1'XXXXX HALLEN XXXXX
09993 IF S(8)=1 THEN S(2)=S(2)+5
09995 IF S(8)<3 OR S(8)>7 THEN 10009 ELSE 10000
! ---- GOTO from 10008
09997 GOSUB 11000
! ---- GOTO:s from 9995,10017
10000 PRINT "Du är i hallen."
! ---- GOTO:s from 10002,10014
10001 GOSUB 12200
10002 IF S1>0 THEN 10001
! ---- GOTO from 10004
10003 IF X1=1 THEN 10009
10004 IF X=19 THEN GOSUB 12202 \ GOTO 10003
10006 IF X>2 AND X<7 THEN ON X-2 GOTO 15350,1500,15425,10015
10008 GOTO 9997
! ---- GOTO:s from 9995,10003
10009 PRINT "Du är i en hall med tre dörrar. På den vänstra finns en nedåtriktad"
10010 PRINT "pil, på dörren rakt fram finns en pil som pekar uppåt och på dörren"
10011 PRINT "till höger står det atelje. Bakom dej ligger porten ut ur huset."
10012 IF S(19)=1 THEN PRINT "Ytterporten är öppen."
10013 IF S(8)>7 THEN S(8)=3
10014 GOTO 10001
! ---- GOTO from 10006
10015 IF S(19)=1 THEN PRINT "Porten stängs bakom dej."\S(19)=0\GOTO 20200
10016 PRINT "Porten är stängd!"
10017 GOTO 10000
! ---- GOTO:s from 8152,10032,10089,21200,25012,25212,80360
10020 Z=16'XXXXX SKUMGUMMIRUMMET XXXXX
10022 PRINT "Du är i Skumgummirummet."
10024 IF A(15)=0 THEN PRINT "Det finns ett mystiskt, mörkt fönster i väggen."
10025 IF A(15)=0 THEN PRINT "Bakom fönstret anar man ett föremål."
10026 PRINT "Det finns dörrar framåt och åt vänster."
10028 PRINT "En gång går neråt."
! ---- GOTO:s from 10054,10080
10030 GOSUB 12200
10032 IF X1=1 THEN 10020
10034 IF X=0 THEN 10040
10036 ON X GOTO 10050,25130,25100,10050,21100,25000,10090
! ---- GOTO from 10034
10040 IF A(15)>0 THEN 10050
10042 IF FNL$(A$,5)="KROSS" OR FNL$(A$,3)="SLÅ" THEN 10084
10044 IF FNL$(A$,4)="SKÄR" THEN 10060
10046 IF FNL$(A$,5)="ÖPPNA" THEN PRINT "Du kan inte öppna fönstret." \ GOTO 10052
! ---- GOTO:s from 10036,10040,10090
10050 GOSUB 11000
! ---- GOTO:s from 10046,10068,10070,10072,10084,10096
10052 PRINT "Du är i Skumgummirummet."
10054 GOTO 10030
! ---- GOTO from 10044
10060 IF INSTR(1,A$,"DIAMA")>0 THEN 10072
10062 IF INSTR(1,A$,"TUNGA")>0 THEN 9075
10064 A$=FNI$("Vad ska du skära med? Din vassa tunga ?")
10065 A$=FNC$(A$)
10066 IF A$="JA" OR FNL$(A$,5)="TUNGA" THEN 9075
10068 IF A$="NEJ" THEN PRINT "Det var ju skönt!" \ GOTO 10052
10070 IF FNL$(A$,5)<>"DIAMA" THEN PRINT "Det går inte!" \ GOTO 10052
! ---- GOTO from 10060
10072 IF A(1)<>1 THEN PRINT "Du bär väl ingen DIAMANT!"\GOTO 10052
10074 PRINT "Du skär upp fönstret med diamanten."
10076 PRINT "En kofot ramlar ut och slår dej hårt i huvudet."
10078 PRINT "Du rasar ihop av slaget.";FNS$("sover",10)
10079 S(2)=S(2)+10\PRINT "När du vaknar är du fortfarande i Skumgummirummet."
10080 A(15)=16 \ GOTO 10030
! ---- GOTO from 10042
10084 IF A(28)<>1 THEN PRINT "Du har inget att slå med." \ GOTO 10052
10086 PRINT "Du krossar fönstret med släggan. Därbakom finns en kofot."
10087 PRINT "Thorvald springer fram och säjer: - Jag hörde braket! Nu tar jag"
10088 PRINT "kofoten som betalning för det förstörda fönstret."
10089 PRINT "Han tar kofoten och försvinner." \ A(15)=5 \ GOTO 10020
! ---- GOTO from 10036
10090 IF A(15)>0 THEN 10050
10092 IF A(1)<>1 THEN PRINT "Försök att hitta något du kan skära upp fönstret med."
10094 IF A(1)=1 THEN PRINT "Skär upp fönstret med din diamant!"
10096 S(2)=S(2)-5 \ GOTO 10052
! **** GOSUB:s from 1499,1908,1918,1928,1956,1959,1969,2018,2038,2043,2065,2074,2120,2126,2149,2199,2276,7568,7569,8093,8153,8999,9019,9056,9073,9099,9144,9174,9189,9332,9372,9399,9437,9501,9519,9552,9556,9997,10050,12274,12348,12658,13008,13172,13245,14022,14099,14998,15064,15299,15349,15369,15385,15431,16060,16545,17032,20011,20026,20035,20048,20054,20075,20090,20151,20162,20173,20188,20199,20248,20263,20278,20293,20309,20324,20338,21230,21410,25023,25220,35075,36035,36085,40200,41105
11000 REM VIOLS SUBFELMEDDELANDERUTIN 3
11001 IF X1>0 OR S1>0 THEN 11100 ELSE S(50)=S(50)-1
11002 IF INSTR(1,A$,"HJÄLP")>0 THEN PRINT "Du kan inte få någon hjälp här." \ GOTO 11100
11003 IF A$="N" OR A$="V" THEN PRINT "Du kan inte gå ditåt." \ GOTO 11100
11004 IF INSTR(1,"*NORR*SÖDER*VÄSTER*ÖSTER*NV*NÖ*NO*SV*SÖ*SO","*"+A$)>0 THEN 11200
11005 IF INSTR(1,"*NORDVÄST*NORDÖST*NORDOST*SYDVÄST*SYDÖST*SYDOST","*"+A$)>0 THEN 11200
11006 IF INSTR(1,"*UPPÅT*NEDÅT*NERÅT*VÄNSTER*HÖGER*FRAMÅT*BAKÅT","*"+A$)>0 THEN 11220
11007 IF INSTR(1,A$,"SESAM")=0 AND INSTR(1,A$,"KORKSKRUV")=0 THEN 11011
11008 PRINT "Ingenting händer."
11009 GOTO 11100
! ---- GOTO from 11007
11011 IF INSTR(1,A$,"STÄNG")>0 THEN PRINT "Det finns inget du kan stänga här!"\GOTO 11100
11013 IF INSTR(1,A$,"KROSS")>0 THEN PRINT "Det finns inget du kan krossa här!"\GOTO 11100
11014 IF INSTR(1,A$,"SKÄR")>0 THEN PRINT "Det finns inget du kan skära här!"\ GOTO 11100
11015 IF A$="SE" OR INSTR(1,A$,"TITTA")>0 THEN RETURN
11017 IF FNL$(A$,5)="HOPPA" AND X=1 THEN PRINT "Du kommer ingenstans uppåt." \ GOTO 11100
11018 IF FNL$(A$,5)="HOPPA" THEN PRINT "Det finns inget hål att hoppa ner genom." \ GOTO 11100
11080 D=INT(RND*5)+1
11081 IF D=1 THEN PRINT "Va ??"
11082 IF D=2 THEN PRINT "Jag förstår inte."
11083 IF D=3 THEN PRINT "Det förstår jag inte alls."
11084 IF D=4 THEN PRINT "Det vet jag inte vad det betyder."
11085 IF D=5 THEN PRINT "Uttryck Dej klarare."
11099 PRINT
! ---- GOTO:s from 11001,11002,11003,11009,11011,11013,11014,11017,11018,11205,11230
11100 RETURN
! ---- GOTO:s from 11004,11005
11200 IF S(36)=0 THEN PRINT "Inomhus ska du ange riktningar, inte väderstreck."
11202 IF S(36)<>0 THEN PRINT "Du kan inte gå ditåt."
11205 GOTO 11100
! ---- GOTO from 11006
11220 IF S(36)=1 THEN PRINT "Utomhus ska du ange väderstreck, inte riktningar."
11225 IF S(36)<>1 THEN PRINT "Du kan inte gå ditåt."
11230 GOTO 11100
! **** GOSUB:s from 8335,9318,9532,12204,20512,35052
! ---- GOTO from 12215
12000 S(36)=0'XXXXX KOMMANDOAVKODARE XXXXX
12001 IF A$="" THEN 12210
12003 X=0 \ X1=0 \ A$=FNC$(A$)
12010 IF FNL$(A$,3)="UPP" OR A$="U" THEN X=1
12012 IF FNL$(A$,3)="NER" OR FNL$(A$,3)="NED" OR A$="N" THEN X=2
12014 IF INSTR(1,A$,"VÄNSTER")>0 OR A$="V" THEN X=3
12016 IF INSTR(1,A$,"HÖGER")>0 OR A$="H" THEN X=4
12018 IF INSTR(1,A$,"FRAM")>0 OR A$="F" THEN X=5
12020 IF INSTR(1,A$,"BAKÅ")>0 OR A$="B" THEN X=6
! ---- GOTO from 8612
12025 IF INSTR(1,A$,"HJÄLP")>0 THEN X=7
12027 IF X>0 AND X<>7 AND S(21)>0 THEN PRINT FNS$("haltar",5);
12030 E=INSTR(1,A$," ") \ C$=FNM$(A$,E)
! ---- GOTO from 12034
12032 IF C$="" THEN C$="" \ GOTO 12050
12034 IF FNL$(C$,1)=" " THEN C$=FNM$(C$,2) \ GOTO 12032
! ---- GOTO from 12032
12050 S(50)=S(50)+1 \ S1=0
12052 IF FNL$(A$,5)="VÄNTA" OR FNL$(A$,5)="STANN" THEN 12570
12055 IF INSTR(A$,"HELVETE")>0 THEN PRINT "Åt vilket håll är det?" \ GOTO 12210
12056 IF FNL$(A$,5)="HOPPA" THEN 12130
! ---- GOTO from 12132
12057 IF FNL$(A$,6)="VRICKA" THEN 12584
12058 IF INSTR(A$,"KNACK")>0 THEN PRINT "Ingenting händer." \ GOTO 12210
12059 IF FNL$(A$,4)="SKIT" THEN 12590
12060 IF FNL$(A$,5)="SKRIK" THEN 12550
12061 IF FNL$(A$,3)="FAN" OR FNL$(A$,5)="JÄVLA" OR FNL$(A$,6)="DJÄVLA" OR FNL$(A$,5)="SATAN" THEN 12555
12062 IF A$="TITTA" OR A$="SE" THEN X1=1 \ S(50)=S(50)-1
12063 IF A$="ALEA JACTA EST" THEN 12220
12064 IF A$="SLUTA" THEN 9950
12065 IF FNL$(A$,2)="GÅ" THEN 12255
12066 IF FNL$(A$,5)="BLÄND" THEN 12850
12067 IF FNL$(A$,3)="GE " THEN 28090
12068 IF A$="VEKTOR" THEN 98000'%%%%% Denna rad kan tas bort
12069 IF FNL$(A$,4)="VÄCK" AND S(6)=3 THEN 28000
12070 IF FNL$(A$,5)="INVEN" THEN 8613
12071 IF FNL$(A$,2)="TA" THEN 6300
12072 IF FNL$(A$,5)="SLÄPP" THEN 7000
12073 IF FNL$(A$,4)="FYLL" THEN 12340
12074 IF FNL$(A$,5)="DRICK" THEN 12270
12075 IF FNL$(A$,4)="RING" THEN 12800
12076 IF A$="POÄNG" THEN PRINT "Du har";S(2);"poäng." \ GOTO 12210
12077 IF FNL$(A$,4)="GRÄV" THEN 12230
12078 IF FNL$(A$,5)="SPARK" THEN 12580
12079 IF FNL$(A$,4)="DÖDA" THEN 12240
12080 IF FNL$(A$,1)="?" THEN X1=1 \ S(50)=S(50)-1 \ GOSUB 91000
12081 IF A$="UT" OR INSTR(1,A$," UT ")>0 OR FNL$(A$,3)="UT " OR FNR$(A$,3)=" UT" THEN 12420
! ---- GOTO from 12428
12082 IF FNL$(A$,5)="ÖPPNA" THEN 12440
! ---- GOTO:s from 12448,12458
12083 IF FNL$(A$,5)="STÄNG" THEN 12470
! ---- GOTO:s from 12478,12488
12084 IF FNL$(A$,3)="LÄS" THEN 12650
12085 IF FNL$(A$,5)="PUMPA" THEN 12900
12086 IF FNL$(A$,5)="SIMMA" OR FNL$(A$,5)="DUSCH" OR FNL$(A$,4)="BADA" THEN 12890
12087 IF FNL$(A$,4)="FÖLJ" THEN 12910
! ---- GOTO from 12918
12088 IF A$="IN" OR INSTR(1,A$," IN ")>0 OR FNL$(A$,3)="IN " OR FNR$(A$,3)=" IN" OR INSTR(1,A$,"IGENOM")>0 THEN 12400
! ---- GOTO from 12408
12089 IF FNL$(A$,5)="KASTA" THEN PRINT "Tyvärr har kastarmen gått ur led."\GOTO 12210
12090 IF FNL$(A$,4)="INFO" THEN 12770
12091 IF FNL$(A$,3)="ÅT" AND C$<>"" THEN A$=C$ \ GOTO 12214
12092 IF FNL$(A$,5)="BEGRA" THEN 12510
12093 IF FNL$(A$,9)="KOPPLA IN" THEN 12140
12094 IF FNL$(A$,9)="KOPPLA UT" OR FNL$(A$,9)="KOPPLA UR" THEN 12160
12095 IF A$="SPARA" THEN 80000' &&&&&
12096 IF FNL$(A$,5)="ÅTERS" THEN 80200' &&&&&
12097 IF FNL$(A$,4)="LOGG" THEN 12950' &&&&&
12098 FOR I=1 TO A(0)
12099 IF A$(I,1)="" THEN 12103
12100 IF FNL$(A$,5)=FNL$(A$(I,2),5) OR A$=A$(I,2) THEN 12600
12101 IF FNL$(A$,5)=FNL$(A$(I,3),5) OR A$=A$(I,3) THEN 12600
! ---- GOTO from 12099
12103 NEXT I
12104 GOTO 12999
! ---- GOTO from 12582
12120 IF S(33)=1 THEN PRINT"Bollen är inte pumpad."\GOTO 12210
12122 IF Z=39 AND S(48)<1 THEN X=13 \ GOTO 12999
12123 PRINT "Du sparkar bollen så hårt att den försvinner."
12124 IF A(20)=1 THEN S(1)=S(1)-1
12125 A(20)=INT(RND*92)+9
12126 GOTO 12210
! ---- GOTO from 12056
12130 IF INSTR(A$,"VATTEN")>0 OR INSTR(A$,"VATTNET")>0 THEN 12890
12132 IF S(36)<>0 THEN 12057
12134 IF C$="UPP" OR C$="UPPÅT" THEN X=1 ELSE X=2
12136 GOTO 12999
! ---- GOTO from 12093
12140 IF J(Z)<>1 AND S(44)<>Z THEN PRINT "Det finns ingen jack här." \ GOTO 12210'KOPPLA IN
12142 IF LEN(A$)>10 THEN A$=FNM$(A$,11) ELSE A$=FNC$(FNI$("Vad vill du koppla in ?"))
12144 IF FNL$(A$,5)="TELEF" THEN I=25 ELSE I=0
12146 IF FNL$(A$,5)="FÖRLÄ" OR FNL$(A$,5)="SLADD" THEN I=30
12148 IF I=0 THEN PRINT "Det kan man inte koppla in." \ GOTO 12210
12150 GOTO 7030
! ---- GOTO from 12094
12160 IF LEN(A$)>10 THEN A$=FNM$(A$,11) ELSE 12170'KOPPLA UR
12162 IF FNL$(A$,5)="TELEF" THEN I=25 ELSE I=0
12164 IF FNL$(A$,5)="FÖRLÄ" OR FNL$(A$,5)="SLADD" THEN I=30
12166 IF (I=30 AND S(44)=Z) OR (I>0 AND J(Z)=1) THEN 6410
12168 PRINT "Det finns inget inkopplat i jacken." \ GOTO 12210
! ---- GOTO from 12160
12170 IF S(44)=Z THEN I=30 \ GOTO 6410
12172 IF J(Z)<>1 THEN PRINT "Det finns ingen jack här." \ GOTO 12210
12174 IF A(25)=Z THEN I=25 \ GOTO 6410
12176 IF A(30)=Z THEN I=30 \ GOTO 6410
12178 PRINT "Ingenting är inkopplat i jacken." \ GOTO 12210
! **** GOSUB:s from 1512,1911,1921,1931,1952,1962,1972,2272,7562,7573,8002,8022,8037,8073,8102,8150,8304,8367,8384,8403,8423,9004,9024,9045,9069,9103,9148,9179,9194,9264,9496,9512,9548,9563,10001,10030,13004,13176,13241,14012,14112,15008,15060,15306,15356,15374,15392,15429,16055,16530,17020,20147,21160,21350,25010,25136,36015,36070,40100,41040
12200 REM'XXXXX ALLMÄN GOSUBRUTIN XXXXXX
12201 GOSUB 6000
! **** GOSUB from 10004
12202 PRINT
12203 IF S1<2 THEN A$=FNI$("") \ PRINT
12204 GOSUB 12000
12208 RETURN
! ---- GOTO:s from 6311,6313,6315,6317,6318,6319,6320,6323,6325,6326,6329,6336,6338,6340,6346,6352,6357,6362,6372,6382,6406,6412,6414,6418,6420,6424,6428,6530,6560,7018,7020,7036,7043,7054,7078,7096,7145,8602,8614,8663,9958,12001,12055,12058,12076,12089,12120,12126,12140,12148,12168,12172,12178,12220,12225,12228,12230,12232,12234,12248,12274,12290,12302,12306,12326,12348,12354,12360,12361,12362,12364,12366,12372,12378,12380,12382,12394,12406,12444,12460,12464,12466,12469,12480,12482,12510,12514,12516,12518,12524,12526,12553,12559,12576,12580,12588,12590,12658,12670,12698,12700,12704,12710,12736,12740,12744,12750,12752,12760,12789,12806,12830,12835,12838,12840,12846,12850,12854,12860,12866,12870,12880,12882,12893,12894,12908,12910,12914,12920,12922,12928,12960,12968,12974,12976,12983,12989,27150,27275,27278,27282,27288,27290,27426,27616,27628,28002,28010,28012,28014,28024,28029,28108,28112,28118,28136,28146,30010,30012,30014,30018,30026,30050,30058,80160,80515
12210 PRINT'XXXX INMATNINGSRUTIN XXXX
12211 IF S(49)=0 AND S(30)=Z AND Z<>96 THEN X1=1 \ GOTO 30000
12212 IF S<9 AND Z=60 THEN 12999
12213 A$=FNI$("")
! ---- GOTO:s from 12091,12255,12262,12610,28154,28156,98010
12214 PRINT
12215 IF S(36)=1 THEN 8600 ELSE 12000
! ---- GOTO from 12063
12220 IF A(10)=5 OR A(10)=53 THEN PRINT "Ingenting händer." \ GOTO 12210
12223 IF A(10)=1 THEN 12226
! ---- GOTO from 12227
12224 IF Z=53 THEN PRINT "Nu hänger lagerkransen på väggen." ELSE PRINT "Ok."
12225 A(10)=53 \ GOTO 12210
! ---- GOTO from 12223
12226 S(1)=S(1)-1 \ A(10)=53
12227 IF Z=53 THEN 12224
12228 PRINT "Lagerkransen försvinner." \ GOTO 12210
! ---- GOTO from 12077
12230 IF A(21)<>1 THEN PRINT "Du har ingenting du kan gräva med." \ GOTO 12210
12232 IF Z<>77 THEN PRINT "Marken är för hård." \ GOTO 12210
12234 IF S(20)=1 THEN PRINT "Platsen är redan helt utgrävd." \ GOTO 12210
12236 X=13 \ GOTO 12999
! ---- GOTO from 12079
12240 IF FNL$(C$,5)="GUBBE" OR (C$="" AND S(30)=Z) THEN 30050
12242 IF FNL$(C$,4)="VAKT" OR (C$="" AND (A(29)=Z OR A(29)=1)) THEN 28010
12248 PRINT "Det finns inget du kan döda här." \ GOTO 12210
! ---- GOTO from 12065
12255 IF C$<>"" THEN A$=C$ \ GOTO 12214
12260 PRINT "Åt vilket håll?"
12261 A$=FNI$("")
12262 GOTO 12214
! ---- GOTO:s from 12074,12278
12270 IF FNL$(C$,5)="BRÄNN" THEN 12280
12272 IF FNL$(C$,5)="VATTE" THEN 12282
12274 IF C$<>"" THEN GOSUB 11000 \ GOTO 12210
12276 C$=FNI$("Drick vad ?")
12278 C$=FNC$(C$) \ GOTO 12270
! ---- GOTO from 12270
12280 IF A(18)=1 AND S(31)=0 THEN 12310 ELSE 12306
! ---- GOTO from 12272
12282 IF A(19)=1 AND S(32)=0 THEN 12292
12284 IF Z=25 OR Z=33 OR Z=49 OR Z=50 OR Z=66 OR Z=70 THEN 12296
12286 IF Z=72 OR Z=74 OR Z=78 OR Z=79 OR Z=83 OR Z=87 OR Z=88 THEN 12296
12288 IF Z=91 THEN PRINT "Du dricker ur vattenfallet." \ GOTO 12300
! ---- GOTO from 12388
12290 PRINT "Jag ser inget VATTEN här." \ GOTO 12210
! ---- GOTO from 12282
12292 PRINT "Du dricker ur vattenflaskan."
12294 S(32)=1 \ GOTO 12300
! ---- GOTO:s from 12284,12286
12296 PRINT "Du dricker ur sjön."
! ---- GOTO:s from 12288,12294
12300 PRINT "Klunk...klunk...klunk......AHHHH!"
12302 GOTO 12210
! ---- GOTO:s from 12280,12342
12306 PRINT "Jag ser inget BRÄNNVIN här." \ GOTO 12210
! ---- GOTO from 12280
12310 PRINT "Du dricker ur brännvinsflaskan."
12312 PRINT "Klunk...klunk...klunk......HICK !"
12314 FOR I=1 TO 9
12316 S=SLEEP(3)
12318 PRINT TAB(INT(RND*66)+1);"HICK !"
12320 NEXT I
12322 PRINT \ S(31)=1
12324 PRINT "Nu hoppas jag att vi har nyktrat till så pass att vi kan fortsätta!"
12326 PRINT \ GOTO 12210
! ---- GOTO:s from 12073,12350
12340 IF FNL$(C$,5)="GUBBE" OR (C$="" AND S(30)=Z) THEN 30010
12341 IF FNL$(C$,4)="VAKT" OR (C$="" AND (A(29)=Z OR A(29)=1)) THEN 12360
12342 IF INSTR(1,C$,"BRÄNN")>0 THEN 12306
12344 IF INSTR(1,C$,"VATTE")>0 THEN 12380
12346 IF C$="FYLL" OR INSTR(1,C$,"FLASKA")>0 THEN 12350
12348 GOSUB 11000 \ GOTO 12210
! ---- GOTO from 12346
12350 IF A(18)=1 OR A(19)=1 THEN C$=FNI$("Fyll med vad ?")\C$=FNC$(C$)\GOTO 12340
12354 PRINT "Du har ju ingen flaska!" \ GOTO 12210
! ---- GOTO:s from 12341,28114
12360 IF A(29)<>Z AND A(29)<>1 THEN PRINT "Jag ser ingen VAKT här."\GOTO 12210
12361 IF S(6)=2 THEN PRINT "Vakten är ju död." \ GOTO 12210
12362 IF S(6)=3 THEN PRINT "Han sover för djupt." \ GOTO 12210
12364 IF A(18)<>1 THEN PRINT "Du har inget att fylla honom med." \ GOTO 12210
12366 IF S(31)=1 THEN PRINT "Din brännvinsflaska är tom." \ GOTO 12210
12368 S(31)=1 \ S(51)=S(50)
12370 PRINT "Vakten dricker upp ditt brännvin i en enda klunk."
12372 IF S(6)=0 THEN S(6)=1 \ GOTO 12210
12374 PRINT "Den nu redlöst fulle vakten ramlar ihop i en hög på golvet och somnar."
12376 S(6)=3 \ A(29)=Z
12378 GOTO 12210
! ---- GOTO from 12344
12380 IF A(19)<>1 THEN PRINT "Du bär ingen vattenflaska som du kan fylla."\GOTO 12210
12382 IF S(32)=0 THEN PRINT "Din vattenflaska är så full den kan bli." \ GOTO 12210
12384 IF Z=25 OR Z=33 OR Z=49 OR Z=50 OR Z=66 OR Z=70 OR Z=72 THEN 12390
12386 IF Z=74 OR Z=78 OR Z=79 OR Z=83 OR Z=87 OR Z=88 OR Z=91 THEN 12390
12388 GOTO 12290
! ---- GOTO:s from 12384,12386
12390 PRINT "Du fyller vattenflaskan med vatten från ";
12392 IF Z=91 THEN PRINT "vattenfallet." ELSE PRINT "sjön."
12394 S(32)=0 \ GOTO 12210
! ---- GOTO from 12088
12400 IF Z=81 THEN X=3
12402 IF Z=50 THEN X=4
12404 IF Z=99 OR Z=55 THEN X=5
12406 IF Z=30 THEN S(23)=1 \ PRINT "I garderoben hittar du ett kassaskåp." \ GOTO 12210
12408 IF X>0 THEN 12999 ELSE 12089
! ---- GOTO from 12081
12420 IF Z=8 OR Z=51 OR Z=100 THEN X=6
12428 IF X>0 THEN 12999 ELSE 12082
! ---- GOTO from 12082
12440 IF Z=81 OR Z=8 THEN 12450
12442 IF Z=30 THEN 12456
12444 IF Z=62 AND S(7)=0 THEN PRINT "Porten är låst." \ GOTO 12210
12448 GOTO 12083
! ---- GOTO from 12440
12450 IF S(19)=1 THEN PRINT "Dörren är ju redan öppen!"
12452 IF S(19)<>1 THEN PRINT "Dörren öppnas med ett gnäll ."
12454 S(19)=1 \ X=19 \ GOTO 12999
! ---- GOTO from 12442
12456 IF INSTR(1,A$,"GARDE")>0 OR (C$="" AND S(23)=0) THEN 12466
12458 IF INSTR(1,A$,"KASSA")=0 AND C$<>"" THEN 12083
12460 IF Z=31 THEN PRINT "Kassaskåpet är redan öppet." \ GOTO 12210
12464 PRINT "Dörren är utan handtag och lås." \ GOTO 12210
! ---- GOTO from 12456
12466 IF S(23)=1 THEN PRINT "Garderoben är redan öppen." \ GOTO 12210
12468 PRINT "Du öppnar garderoben och hittar ett litet kassaskåp där."
12469 S(23)=1 \ GOTO 12210
! ---- GOTO from 12083
12470 IF Z=30 THEN 12480
12472 IF Z=31 THEN 12486
12478 GOTO 12084
! ---- GOTO from 12470
12480 IF S(23)=0 THEN PRINT "Garderoben är redan stängd." \ GOTO 12210
12482 PRINT "Ok." \ S(23)=0 \ GOTO 12210
! ---- GOTO from 12472
12486 IF INSTR(1,A$,"GARDE")>0 OR (C$="" AND S(23)=1) THEN 12494
12488 IF INSTR(1,A$,"KASSA")=0 AND C$<>"" THEN 12084
12490 PRINT "Kassaskåpet stängs sakta."
! ---- GOTO from 12496
12492 Z=30 \ GOTO 12999
! ---- GOTO from 12486
12494 PRINT "Kassaskåpet och garderoben stängs."
12496 S(23)=0 \ GOTO 12492
! ---- GOTO from 12092
12510 IF Z<>63 AND Z<>61 THEN PRINT "Marken är för hård!" \ GOTO 12210
12512 IF FNL$(C$,3)<>"LIK" AND FNL$(C$,4)<>"VAKT" AND (C$="" AND A(22)<>1) THEN 12526
12514 IF A(29)=1 OR A(29)=Z THEN PRINT "Du kan inte begrava en levande!" \ GOTO 12210
12516 IF A(22)<>1 AND A(22)<>Z THEN PRINT "Du har inget sånt att begrava!" \ GOTO 12210
12518 IF A(22)=63 THEN PRINT "Liket är redan begravt!" \ GOTO 12210
12520 IF A(22)=1 THEN S(1)=S(1)-1
12522 A(22)=63 \ S(2)=S(2)+25 \ S(52)=S(50)
12524 PRINT "Ok." \ GOTO 12210
! ---- GOTO from 12512
12526 PRINT "Man kan bara begrava lik!" \ GOTO 12210
! ---- GOTO from 12060
12550 I=INSTR(A$," ")'================== SKRIK
12551 IF I=0 OR I=LEN(A$) THEN PRINT "AAAAAAARRRRRRRRRR GHHHHH H!" ELSE PRINT "Ok. ";FNM$(A$,I+1)
12553 GOTO 12210
! ---- GOTO from 12061
12555 '====================================================SVÄRORD============
12557 PRINT "Vilket språk!"
12559 GOTO 12210
! ---- GOTO from 12052
12570 '==========================================VÄNTA===========STANNA=======
12572 PRINT"Ok.";FNS$("väntar",10)
12574 IF Z=37 THEN 12999 ELSE PRINT "Så där ja!"
12576 GOTO 12210
! ---- GOTO from 12078
12580 IF S(21)>0 THEN PRINT"Du kan inte sparka något med vrickade fötter!"\GOTO 12210
12582 IF (FNL$(C$,4)="BOLL" OR C$="") AND (A(20)=Z OR A(20)=1) THEN 12120
! ---- GOTO from 12057
12584 PRINT"AJ! Du vrickar dina fötter."
12586 S(21)=S(50)
12588 GOTO 12210
! ---- GOTO from 12059
12590 IF Z<>23 THEN PRINT "Ok." \ GOTO 12210
12592 PRINT "Oj! Du ramlar själv ner i toaletten." \ A$="SPOLA"
12594 GOTO 12999
! ---- GOTO:s from 12100,12101
12600 PRINT "Vad vill du göra med ";A$(I,4);"?"
12601 A1$=FNI$("") \ A$=A1$+" "+A$(I,1)
12610 GOTO 12214
! ---- GOTO:s from 12084,12660
12650 IF INSTR(1,A$,"KATAL")>0 THEN 12670
12652 IF INSTR(1,A$,"KONTR")>0 THEN 12700
12654 IF INSTR(1,A$,"TRILO")>0 THEN 12710
12655 IF INSTR(1,A$,"LOGGF")>0 THEN 12975'&&&&&
12656 IF INSTR(1,A$,"KLOCK")>0 THEN 12740
12657 IF INSTR(1,A$,"GRAV")>0 OR INSTR(1,A$,"STEN")>0 THEN 12750
12658 IF A$<>"LÄS" THEN GOSUB 11000 \ GOTO 12210
12660 A$=FNI$("Vad vill du läsa ?") \ A$=FNC$(A$) \ GOTO 12650
! ---- GOTO from 12650
12670 IF A(23)<>1 AND A(23)<>Z THEN PRINT "Jag ser ingen KATALOG här." \ GOTO 12210
12672 PRINT
12674 PRINT " TELEFONKATALOG ÖVER STUGAN"
12676 PRINT "Telefonnr: Abonnent:"
12678 PRINT " 000 Stugas televerk"
12680 PRINT " 100 Stugan"
12682 PRINT " 307 Hissreparatören"
12684 PRINT " 323 Glasmästaren"
12686 PRINT " 405 Personalköket"
12688 PRINT " 481 Vakten"
12690 PRINT " 999 Larmcentralen"
12698 GOTO 12210
! ---- GOTO from 12652
12700 IF A(9)<>1 AND A(9)<>Z THEN PRINT "Jag ser inget KONTRAKT här."\GOTO 12210
12702 PRINT "Tyvärr är kontraktet skrivet med Kermits oläsliga handstil."
12704 PRINT \ GOTO 12210
! ---- GOTO from 12654
12710 IF A(8)<>1 AND A(8)<>Z THEN PRINT "Jag ser ingen TRILOGI här." \ GOTO 12210
12712 PRINT \ PRINT
12714 PRINT "Tre ringar för älvkungarnas makt högt i det blå,"
12716 PRINT "sju för dvärgarnas furstar i salarna av sten,"
12718 PRINT "nio för de dödliga, som köttets väg skall gå,"
12720 PRINT "en för Mörkrets herre i ondskans dunkla sken"
12722 PRINT "i Mordorslandets hisnande gruva."
12724 PRINT \ PRINT "En ring att sämja dem,"
12726 PRINT "en ring att främja dem,"
12728 PRINT "en ring att djupt i mörkrets"
12730 PRINT "vida riken tämja dem -"
12732 PRINT "i Mordors land, där skuggorna ruva..."
12734 PRINT \ PRINT
12736 GOTO 12210
! ---- GOTO from 12656
12740 IF A(6)<>1 AND A(6)<>Z THEN PRINT "Jag ser ingen KLOCKA här."\GOTO 12210
12742 PRINT TIME$
12744 GOTO 12210
! ---- GOTO from 12657
12750 IF Z<>61 THEN PRINT "Jag ser ingen GRAVSTEN här." \ GOTO 12210
12752 IF LEN(W$(6))=0 THEN PRINT "Gravstenen är tom." \ GOTO 12210
12754 PRINT "Här vilar sej ";W$(6);"." \ PRINT
12756 PRINT W$(6);" försvann in i ett okänt hus klockan ";W$(3);
12757 IF W$(4)=DATE$ THEN PRINT ELSE PRINT " ";W$(4)
12758 PRINT "och sågs aldrig mer."
12760 PRINT \ GOTO 12210
! ---- GOTO from 12090
12770 PRINT "INFORMATION OM VISSA KOMMANDON:"
12772 PRINT "Förflyttning inomhus:"
12774 PRINT "UPPÅT, NERÅT, FRAMÅT, BAKÅT, VÄNSTER, HÖGER (U, N, F, B, V, H)"
12776 PRINT "Förflyttning utanför huset:"
12778 PRINT "NORR, SÖDER, VÄSTER, ÖSTER (N, S, V, Ö) NV, NÖ, SV, SÖ"
12780 PRINT \ PRINT "INVENT skriver allt man bär på"
12781 PRINT "HJÄLP ger ibland hjälp"
12782 PRINT "POÄNG visar hur många poäng man har fått"
12783 PRINT "TITTA ger hela rumsbeskrivningen"
12784 PRINT "SPARA sparar spelat på fil"' &&&&&
12785 PRINT "ÅTERSKAPA hämtar tillbaka spelet"' &&&&&
12787 PRINT "LOGGA skriver en loggfil med alla kommandon man ger"'&&&&&
12788 PRINT "LÄS LOGGFIL utför kommandona i en loggfil"' &&&&&
12789 PRINT "SLUTA slutar" \ PRINT \ GOTO 12210
! ---- GOTO from 12075
12800 IF A(25)=1 AND (J(Z)=1 OR S(44)=Z) THEN PRINT "Du HÅLLER ju i telefonsladden."
12802 IF A(25)<>1 AND A(25)<>Z THEN PRINT "Jag ser ingen TELEFON här."
12804 IF J(Z)<>1 AND S(44)<>Z THEN PRINT "Jag ser ingen TELEFONJACK här."
12806 IF (J(Z)<>1 AND S(44)<>Z) OR A(25)<>Z THEN 12210
12808 IF C$="" THEN C$=FNI$("Ring vart:")
12810 IF INSTR(1,C$,"000")>0 THEN 27250
12812 IF INSTR(1,C$,"100")>0 THEN 27600
12814 IF INSTR(1,C$,"307")>0 OR INSTR(1,C$,"323")>0 THEN 27620
12816 IF INSTR(1,C$,"405")>0 THEN 27200
12818 IF INSTR(1,C$,"481")>0 THEN 27630
12821 IF INSTR(1,C$,"900")>0 THEN 27400
12822 IF FNC$(C$)="HEM" THEN 12835
! ---- GOTO from 27600
12826 PRINT "Du hör en röst säja:"
12828 PRINT "- Ingen abonnent på det numret."
12830 GOTO 12210
! ---- GOTO from 12822
12835 IF W$(6)="" THEN PRINT "Du hör din egen röst: - Jag är inte hemma än!" \ GOTO 12210
12836 PRINT "Du hör en röst säja:"
12837 PRINT "- Detta är "W$(6)"s telefonsvarare. "W$(6)" är inte hemma."
12838 GOTO 12210
! ---- GOTO:s from 28105,28106
12840 IF S(30)<>Z THEN PRINT "Du kan inte ge något till någon här."\ GOTO 12210
12842 IF I=10 OR I=19 THEN 7030
12844 IF INSTR(1,C$,"VATTE")>0 THEN 30010
12846 PRINT "Gubben tar inte emot det." \ GOTO 12210
! ---- GOTO from 12066
12850 IF A(24)<>1 THEN PRINT "Du har inget att blända med." \ GOTO 12210
12851 IF FNL$(C$,5)="GUBBE" OR (C$="" AND S(30)=Z) THEN 12860
12852 IF FNL$(C$,4)="VAKT" OR (C$="" AND (A(29)=Z OR A(29)=1)) THEN 12880
12854 PRINT "Du kan inte blända någon här." \ GOTO 12210
! ---- GOTO from 12851
12860 IF S(30)<>Z THEN PRINT "Jag ser ingen GUBBE här." \ GOTO 12210
12864 IF A(19)=0 THEN PRINT "Du försöker blända gubben men han häller"
12866 IF A(19)=0 THEN PRINT "vattenflaskan som skydd." \ GOTO 12210
12868 IF S(49)=0 OR S(49)=2 OR S(30)=96 THEN 30002
12870 S(49)=2 \ PRINT "Du bländar den stackars gubben med lampan." \ GOTO 12210
! ---- GOTO from 12852
12880 IF (A(29)=Z OR A(29)=1) AND S(6)<>2 THEN PRINT "Du klarar inte av att blända vakten."\GOTO 12210
12881 IF S(6)=2 THEN PRINT "Vakten är död." ELSE PRINT "Jag ser ingen VAKT här."
12882 GOTO 12210
! ---- GOTO:s from 12086,12130
12890 IF Z=25 OR Z=33 OR Z=49 OR Z=50 OR Z=66 OR Z=70 THEN X=10 \ GOTO 12999
12892 IF Z=72 OR Z=74 OR Z=78 OR Z=79 OR Z=83 OR Z=87 OR Z=88 THEN X=10\GOTO 12999
12893 IF Z=91 THEN PRINT "Vattenfallets vatten är alldeles för kallt."\GOTO 12210
12894 PRINT "Här finns det inget vatten." \ GOTO 12210
! ---- GOTO from 12085
12900 IF A(20)<>1 THEN PRINT "Du har inget att pumpa."
12902 IF A(16)<>1 THEN PRINT "Du har inget att pumpa med."
12904 IF A(20)=1 AND S(33)=0 THEN PRINT "Din boll är redan pumpad."
12906 IF A(16)=1 AND A(20)=1 AND S(33)=1 THEN PRINT "Ok." \ S(33)=0
12908 GOTO 12210
! ---- GOTO from 12087
12910 IF INSTR(1,A$,"RÖVAR")>0 THEN PRINT "Jag ser ingen RÖVARE här." \ GOTO 12210
12912 IF INSTR(1,A$,"GUBBE")>0 THEN 12920
12914 IF INSTR(1,A$,"EFTER")>0 THEN PRINT "Jag ser ingen du kan följa efter."\GOTO 12210
12916 IF (INSTR(1,A$,"RÅD")>0 OR INSTR(1,A$,"THORVALD")>0) AND Z=59 THEN 12924
12918 GOTO 12088
! ---- GOTO from 12912
12920 IF S(30)=Z THEN PRINT "Gubben sitter ju här!" \ GOTO 12210
12922 PRINT "Jag ser ingen GUBBE här." \ GOTO 12210
! ---- GOTO from 12916
12924 PRINT "Du ska inte ha någon fördel bara för att Stugrådet råkar ha samman-"
12926 PRINT "träde när du ramlar in. Du får försöka hitta skattkammaren själv."
12928 PRINT "(Förresten har dom redan försvunnit!)" \ GOTO 12210
! ---- GOTO from 12097
12950 IF M2%=1% THEN GOTO 12970'&&&&&
12951 PRINT "Vad heter loggfilen"; \ INPUT LINE M2$'&&&&&
12952 ON ERROR GOTO 12962'&&&&&
12954 OPEN M2$ FOR OUTPUT AS FILE #2'&&&&&
12956 ON ERROR GOTO 97000'&&&&&
12958 PRINT "Nu loggas alla kommandon på filen ";M2$'&&&&&
12960 M2%=1% \ W$=CHR$(3) \ GOTO 12210'&&&&&
! ---- GOTO from 12952
12962 RESUME 12964'&&&&&
12964 ON ERROR GOTO 97000'&&&&&
12966 PRINT "? Jag kan inte öppna ";M2$'&&&&&
12968 GOTO 12210'&&&&&
! ---- GOTO from 12950
12970 M2%=0% \ CLOSE 2'&&&&&
12972 PRINT "Loggningen på ";M2$;" avslutad."'&&&&&
12974 GOTO 12210'&&&&&
! ---- GOTO from 12655
12975 PRINT "Vad heter loggfilen"; \ INPUT LINE M3$'&&&&&
12976 IF M3$="" THEN 12210 ELSE IF M3%=1% THEN CLOSE 3 \ M3%=0%'&&&&&
12977 ON ERROR GOTO 12985'&&&&&
12979 OPEN M3$ FOR INPUT AS FILE #3'&&&&&
12981 ON ERROR GOTO 97000'&&&&&
12983 M3%=1% \ GOTO 12210'&&&&&
! ---- GOTO from 12977
12985 RESUME 12987'&&&&&
12987 PRINT "? Jag kan inte öppna ";M3$'&&&&&
12988 ON ERROR GOTO 97000'&&&&&
12989 GOTO 12210'&&&&&
! ---- GOTO:s from 6301,6327,7042,7088,12104,12122,12136,12212,12236,12408,12428,12454,12492,12574,12594,12890,12892,27222,28046,28090
12999 IF S(30)=Z THEN 30000 ELSE RETURN
! ---- GOTO:s from 7587,13005,13009,13016,13177,80380
13000 Z=58'XXX FARSTUN XXXXX
13002 PRINT "Du är i farstun, ett litet rum med en dörr bakom dej"
13003 PRINT "och en stor portal rakt fram."
13004 GOSUB 12200
13005 IF X1=1 THEN 13000
13006 IF X>4 THEN ON X-4 GOTO 13173,7570,13010
! ---- GOTO from 13010
13008 GOSUB 11000
13009 GOTO 13000
! ---- GOTO from 13006
13010 IF S(6)>0 OR A(29)<>Z THEN 13008
13012 PRINT "Det finns en sak som kan påverka vakten."
13014 S(2)=S(2)-10
13016 GOTO 13000
! ---- GOTO:s from 13184,13195
13172 GOSUB 11000
! ---- GOTO:s from 13006,13179,13180,13188,13190,13198,13200,13202,13204,13218,13244,80385
13173 Z=62'XXX PORTEN XXX
13175 PRINT "Du står vid en jättelik, utsmyckad port."
13176 GOSUB 12200
13177 IF X>5 THEN ON X-5 GOTO 13000,13195
13178 IF X=5 AND S(7)=1 THEN 13220
13179 IF X=5 THEN PRINT "Porten är låst." \ GOTO 13173
13180 IF X1=1 THEN 13173
13184 IF FNL$(A$,3)<>"LÅS" THEN 13172
13186 IF INSTR(1,A$,"UPP")>0 THEN 13200
13188 IF S(7)=0 THEN PRINT "Porten är redan låst." \ GOTO 13173
13190 PRINT "Det går inte utan nycklar." \ GOTO 13173
! ---- GOTO from 13177
13195 IF S(7)<>0 OR S(26)=1 THEN 13172
13196 IF A(26)<>2 THEN PRINT "Vakten orkar låsa upp porten, men han har inga nycklar."
13197 IF A(26)=2 THEN PRINT "Ta hit vakten och lås upp porten."
13198 S(2)=S(2)-15 \ GOTO 13173
! ---- GOTO from 13186
13200 IF S(7)=1 THEN PRINT "Porten är redan upplåst." \ GOTO 13173
13202 IF A(26)=1 THEN PRINT "Du orkar inte vrida om nyckeln själv." \ GOTO 13173
13204 IF A(29)<>1 OR A(26)<>2 THEN PRINT "Det går inte." \ GOTO 13173
13206 PRINT "Vakten låser upp porten."
13208 PRINT "Han tittar på nycklarna ett slag, innan han äter upp dom."
13218 S(7)=1 \ A(26)=0 \ S(2)=S(2)+10 \ GOTO 13173
! ---- GOTO from 13178
13220 IF S(26)=1 THEN 13235 ELSE S(26)=1
13222 PRINT "Du har kommit in i matrummet. Här har Stugrådet sammanträde."
13223 PRINT "Just nu pratar ordföranden, Thorvald:"
13224 GOSUB 700
13225 PRINT " - Vi har samlats till detta krismöte för att diskutera den"
13226 PRINT " allvarliga frågan om stugforskarnas kvalitet. Jag, och många"
13227 PRINT " med mej, anser att stugforskarnas kvalitet genomgående har"
13228 PRINT " försämrats."
13229 PRINT "Kimmo:"
13230 PRINT " - Jag håller med dej. Titta bara på den som kom in nu! Jag"
13231 PRINT " föreslår att vi fortsätter vårt sammanträde i skattkammaren."
13232 PRINT \ PRINT "Hela församlingen reser sej och ger sej iväg."
13233 PRINT \ PRINT
! ---- GOTO:s from 13220,13246,13251,13253,40147,80380
13235 Z=59 \ PRINT "Du är i husets matrum. Väggarna är målade i rött och guld."
13237 IF S(15)=0 THEN PRINT "En trappa leder uppåt."
13238 IF S(15)=1 THEN PRINT "En trappa har gått uppåt, men är nu obrukbar."
13241 GOSUB 12200
13244 IF X<>0 THEN ON X GOTO 13247,13245,13245,13245,13245,13173,13245
! ---- GOTO:s from 13244
13245 GOSUB 11000
13246 GOTO 13235
! ---- GOTO from 13244
13247 IF S(15)=0 AND NOT A(1)=1 THEN 40000
13248 IF S(15)=1 THEN 13252
13249 PRINT "Trappan rasar ihop."
13250 S(15)=1
13251 GOTO 13235
! ---- GOTO from 13248
13252 PRINT "Trappan är avspärrad av stugas gatukontor."
13253 GOTO 13235
! ---- GOTO:s from 2124,2205,9500,14018,14038,14139,80385
14000 Z=64'XXXXX MÖRKA GÅNGEN XXXXX
14004 PRINT "Du är i en mörk gång. Framåt är en öppning."
14008 PRINT "Till vänster skymtar man en grind och till höger en panna."
14010 PRINT "Det finns ett hål i golvet och en gång går snett bakåt-uppåt."
! ---- GOTO from 14024
14012 GOSUB 12200
14018 IF X1=1 THEN 14000
14020 IF X<>0 THEN ON X GOTO 9490,1909,14030,14100,8000,9490,14022
! ---- GOTO from 14020
14022 GOSUB 11000
14024 PRINT "Du är i en mörk gång." \ GOTO 14012
! ---- GOTO from 14020
14030 PRINT "Du går genom en grind som går i lås bakom dej."
14032 GOTO 20040
! ---- GOTO from 20046
14034 PRINT "Grinden öppnar sej och du går in."
14036 PRINT "BA NG!! Grinden stängs bakom dej!"
14038 GOTO 14000
! ---- GOTO:s from 14121,14124
14099 GOSUB 11000
! ---- GOTO:s from 2016,2025,2182,8258,8369,8964,14020,14145,15062,17190,17191,17205,80385
14100 Z=65'XXXXX PANNRUMMET XXXXX
14106 PRINT "Du är i Pannrummet, en trång gång går snett uppåt-framåt"
14107 PRINT "och en går åt vänster. Till höger fortsätter Pannrummet."
14112 GOSUB 12200
14121 IF X=0 THEN 14099
14124 ON X GOTO 14139,14099,15050,2008,14139,14099,14099
! ---- GOTO:s from 14124
14139 IF A(1)<>1 THEN 14000
14142 PRINT "Nå'nting du bär på tar emot. Skriv INVENT och släpp det."
14145 GOTO 14100
! ---- GOTO:s from 15013,15014
14998 GOSUB 11000
! ---- GOTO:s from 1520,15310,16058,16540,80360
15000 Z=10 \ S(10)=S(10)+1'XXXXX KÄLLAREN XXXXX
15004 IF S(10)<3 OR S(10)>7 THEN 15018
15006 PRINT "Du är i källaren."
! ---- GOTO from 15026
15008 GOSUB 12200
15012 IF X1=1 THEN 15018
15013 IF X=0 THEN 14998
15014 ON X GOTO 16000,14998,15300,16500,1500,14998,14998
! ---- GOTO:s from 15004,15012
15018 PRINT "Du är i källaren. Ett kallt och rått rum med tre dörrar"
15020 PRINT "(vänster,höger och framåt) och en gång uppåt."
15024 IF S(10)>8 THEN S(10)=4
15026 GOTO 15008
! ---- GOTO:s from 1520,14124,15394,17172,80360
15050 Z=9 \ S(9)=S(9)+1 \ S(45)=2'XXXXX ÅP-RUMMET XXXXX
15056 IF S(9)<3 OR S(9)>7 THEN 15066
! ---- GOTO:s from 15076,15078
15058 PRINT "Du är i ÅP-rummet."
! ---- GOTO from 15074
15060 GOSUB 12200
15062 IF X<>0 THEN ON X GOTO 15076,15064,15386,14100,1500,15078,15064
! ---- GOTO:s from 15062
15064 GOSUB 11000
! ---- GOTO from 15056
15066 IF S(9)>8 THEN S(9)=4
15068 PRINT "Du är i ett stort rum som heter ÅP-rummet."
15070 PRINT "Dörrar leder till vänster och höger men"
15072 PRINT "man kan också gå framåt."
15074 GOTO 15060
! ---- GOTO from 15062
15076 PRINT "Tror du att du kan flyga?" \ GOTO 15058
! ---- GOTO from 15062
15078 PRINT "Du kan inte gå bakåt!" \ GOTO 15058
! **** GOSUB:s from 2208,9366,9392,9428,20007,20024,20033,20043,20057,20073,20088,20158,20168,20183,20204,20243,20258,20273,20288,20303,20318,20333
15200 GOSUB 6000'XXXXX ALLMÄN GOSUBRUTIT XXXXX
! **** GOSUB from 20208
15202 PRINT
15203 IF S1<2 THEN A$=FNI$("") \ PRINT
15204 GOSUB 8600
15205 RETURN
! ---- GOTO from 15308
15299 GOSUB 11000
! ---- GOTO:s from 9152,15014,15314,16058,16540,25012,25122,80360
15300 Z=11'XXX Hilbertrummet XXX
15302 PRINT "Du är i Hilbertrummet, ett rum med fyra dörrar och hål i taket och golvet."
15304 IF A(17)=11 THEN PRINT "En stege är uppställd mot hålet i taket."
15306 GOSUB 12200