! Mainly generated by DecInf.rb
Constant HDR_GAMERELEASE   $02;     ! word
Constant HDR_GAMESERIAL    $12;     ! six ASCII characters

Constant Story "Stuga";
Constant Headline "Ett textäventyr skrivet av Viggo Eriksson, Kimmo Eriksson och Olle Johansson 1977-82
(Skriv kommandot ~OM~ i spelet för att läsa hela historiken).
  Översatt från Basic till Inform av Fredrik Ramsberg och Johan Berntsson 2007-2009.";
Constant GameVersion "Baserad på Stuga-version: 40(114)-4, daterad 821227.";
Serial "090712";
Release 3;

! Stugas IFID -- se http://babel.ifarchive.org/
Array UUID_ARRAY string "UUID://22B561FF-9A7D-426F-8ABC-4D056C28F741//"; #Ifdef UUID_ARRAY; #Endif;


Array data-->"DIAMANT" "DIAMA" "DIAMA" "diamanten" 15
             "GURKA" "GURKA" "ILLAL" "gurkan" 0
             "SILVERTACKA" "SILVE" "TACKA" "silvertackan" 31
             "HILLEBARD" "HILLE" "JUVEL" "hillebarden" 2
             "DÖDSKALLE" "DÖDSK" "SKALL" "dödskallen" 0
             "KLOCKA" "VÄCKA" "KLOCK" "klockan" 59
             "GULDMYNT" "GULD" "MYNT" "guldmynten" 0
             "TRILOGI" "TRILO" "SAGAN" "trilogin" 36
             "KONTRAKT" "KONTR" "SKÄRT" "kontraktet" 0
             "LAGERKRANS" "LAGER" "KRANS" "lagerkransen" 53
             "PÄRLHALSBAND" "PÄRL" "HALSB" "pärlhalsbandet" 0
             "FAUNSKO" "FAUN" "SKO" "faunskon" 0
             "KOFOT" "KOFOT" "KOFOT" "kofoten" 0
             "CYKELPUMP" "CYKEL" "PUMP" "cykelpumpen" 0
             "STEGE" "STEGE" "STEGE" "stegen" 4
             "BRÄNNVINSFLASKA" "BRÄNN" "BRÄNN" "brännvinsflaskan" 97
             "VATTENFLASKA" "VATTENF" "VATTENF" "vattenflaskan" 0
             "BOLL" "BOLL" "BOLL" "bollen" 8
             "SPADE" "SPADE" "SPADE" "spaden" 61
             "LIK" "LIK" "LIK" "liket" 0
             "KATALOG" "KATAL" "TELEFONK" "katalogen" 0
             "LAMPA" "LAMPA" "LAMPA" "lampan" 0
             "TELEFON" "TELEF" "TELEF" "telefonen" 100
             "NYCKLAR" "NYCKL" "NYCKE" "nycklarna" 54
             "SAX" "SAX" "SAX" "saxen" 2
             "SLÄGGA" "SLÄGG" "SLÄGG" "släggan" 2
             "VAKT" "VAKT" "VAKT" "vakten" 58
             "FÖRLÄNGNINGSSLADD" "FÖRLÄ" "SLADD" "förlängningssladden" 26

             "Dodge City" "Boot Hill" "en by i Montana" "fantomengrottan"
             "fängelsechefen i Råå" "Trondheim" "bröderna Dalton"
             "Sven Olssons kvintett" "bröderna Brothers"
             "Kimmo, den gamle fyllbulten," "Curt Nicolin" "Jesse James"
             "fängelset" "San Franciscos hem för tankspridda"
             "sin limosin" "burarna i Bronx Zoo" "en labyrint i Småland"
             "riksdagshuset" "fritidsorganet GLAD OCH NAKEN" "sheriffen"
             "guldlasten" "några glada flickor" "en aktie i Kuben"
             "en illaluktande gurka" "fruktans demoner" "ett bankrån"
             "Butch Cassidys hustru" "jultomten"
             "en hjärnskakningsepidemi" "kvarterspolisen" "ett bakhåll"
             "ett fel på Malmös TV 2-sändare" "en taxi"
             "att toaletten ska bli ledig"
             "att sheriffen ska göra något" "Lucky Luke"
             "skjuta sönder stan" "störa indianerna" "varsla om lockout"
             "väcka guvernören" "ta gisslan på Norges ambassad"
             "dra sej tillbaka" "rädda" "lätt berusade"
             "måna om sitt utseende" "allt färre" "svårflörtade"
             "sömniga" "på ett helt annat ställe" "för sent"
             "i grevens tid" "en liten aning för tidigt" "samtidigt" "inte" ;

! Dessa variabler behövs endast för kommandot VEKTOR, vilket nu är utkommenterat
! Array s_A2->100;
! Global i_A2;
! Array s_A3->100;

! Dessa variabler behövs endast för loggning till fil, vilket nu är utelämnat
! Array s_M2->100;
! Array s_M3->100;

Global i_hints = -1;

Global data_ptr = 0;
Array s_X1 buffer 100;
Global i_E1;
Array s_C->100;
Global i_A;
Array i_J_1D-->101;
Global i_B;
Array s_W->100;
Global i_X;
Global i_X_;
! Global i_PI;
Array s_A->100;
Global i_X1;
Global i_X2;
Global i_D;
Global i_Z;
Array i_X_1D-->21;
Global i_M2_;
Global i_E;
Global i_A1;
Global i_M3_;
Array s_R->100;
Global i_G;
Array s_A_2D-->31;
Array s_A_2D0-->4;
Array s_A_2D0_0->22;
Array s_A_2D0_1->22;
Array s_A_2D0_2->22;
Array s_A_2D0_3->22;
Array s_A_2D1-->4;
Array s_A_2D1_0->22;
Array s_A_2D1_1->22;
Array s_A_2D1_2->22;
Array s_A_2D1_3->22;
Array s_A_2D2-->4;
Array s_A_2D2_0->22;
Array s_A_2D2_1->22;
Array s_A_2D2_2->22;
Array s_A_2D2_3->22;
Array s_A_2D3-->4;
Array s_A_2D3_0->22;
Array s_A_2D3_1->22;
Array s_A_2D3_2->22;
Array s_A_2D3_3->22;
Array s_A_2D4-->4;
Array s_A_2D4_0->22;
Array s_A_2D4_1->22;
Array s_A_2D4_2->22;
Array s_A_2D4_3->22;
Array s_A_2D5-->4;
Array s_A_2D5_0->22;
Array s_A_2D5_1->22;
Array s_A_2D5_2->22;
Array s_A_2D5_3->22;
Array s_A_2D6-->4;
Array s_A_2D6_0->22;
Array s_A_2D6_1->22;
Array s_A_2D6_2->22;
Array s_A_2D6_3->22;
Array s_A_2D7-->4;
Array s_A_2D7_0->22;
Array s_A_2D7_1->22;
Array s_A_2D7_2->22;
Array s_A_2D7_3->22;
Array s_A_2D8-->4;
Array s_A_2D8_0->22;
Array s_A_2D8_1->22;
Array s_A_2D8_2->22;
Array s_A_2D8_3->22;
Array s_A_2D9-->4;
Array s_A_2D9_0->22;
Array s_A_2D9_1->22;
Array s_A_2D9_2->22;
Array s_A_2D9_3->22;
Array s_A_2D10-->4;
Array s_A_2D10_0->22;
Array s_A_2D10_1->22;
Array s_A_2D10_2->22;
Array s_A_2D10_3->22;
Array s_A_2D11-->4;
Array s_A_2D11_0->22;
Array s_A_2D11_1->22;
Array s_A_2D11_2->22;
Array s_A_2D11_3->22;
Array s_A_2D12-->4;
Array s_A_2D12_0->22;
Array s_A_2D12_1->22;
Array s_A_2D12_2->22;
Array s_A_2D12_3->22;
Array s_A_2D13-->4;
Array s_A_2D13_0->22;
Array s_A_2D13_1->22;
Array s_A_2D13_2->22;
Array s_A_2D13_3->22;
Array s_A_2D14-->4;
Array s_A_2D14_0->22;
Array s_A_2D14_1->22;
Array s_A_2D14_2->22;
Array s_A_2D14_3->22;
Array s_A_2D15-->4;
Array s_A_2D15_0->22;
Array s_A_2D15_1->22;
Array s_A_2D15_2->22;
Array s_A_2D15_3->22;
Array s_A_2D16-->4;
Array s_A_2D16_0->22;
Array s_A_2D16_1->22;
Array s_A_2D16_2->22;
Array s_A_2D16_3->22;
Array s_A_2D17-->4;
Array s_A_2D17_0->22;
Array s_A_2D17_1->22;
Array s_A_2D17_2->22;
Array s_A_2D17_3->22;
Array s_A_2D18-->4;
Array s_A_2D18_0->22;
Array s_A_2D18_1->22;
Array s_A_2D18_2->22;
Array s_A_2D18_3->22;
Array s_A_2D19-->4;
Array s_A_2D19_0->22;
Array s_A_2D19_1->22;
Array s_A_2D19_2->22;
Array s_A_2D19_3->22;
Array s_A_2D20-->4;
Array s_A_2D20_0->22;
Array s_A_2D20_1->22;
Array s_A_2D20_2->22;
Array s_A_2D20_3->22;
Array s_A_2D21-->4;
Array s_A_2D21_0->22;
Array s_A_2D21_1->22;
Array s_A_2D21_2->22;
Array s_A_2D21_3->22;
Array s_A_2D22-->4;
Array s_A_2D22_0->22;
Array s_A_2D22_1->22;
Array s_A_2D22_2->22;
Array s_A_2D22_3->22;
Array s_A_2D23-->4;
Array s_A_2D23_0->22;
Array s_A_2D23_1->22;
Array s_A_2D23_2->22;
Array s_A_2D23_3->22;
Array s_A_2D24-->4;
Array s_A_2D24_0->22;
Array s_A_2D24_1->22;
Array s_A_2D24_2->22;
Array s_A_2D24_3->22;
Array s_A_2D25-->4;
Array s_A_2D25_0->22;
Array s_A_2D25_1->22;
Array s_A_2D25_2->22;
Array s_A_2D25_3->22;
Array s_A_2D26-->4;
Array s_A_2D26_0->22;
Array s_A_2D26_1->22;
Array s_A_2D26_2->22;
Array s_A_2D26_3->22;
Array s_A_2D27-->4;
Array s_A_2D27_0->22;
Array s_A_2D27_1->22;
Array s_A_2D27_2->22;
Array s_A_2D27_3->22;
Array s_A_2D28-->4;
Array s_A_2D28_0->22;
Array s_A_2D28_1->22;
Array s_A_2D28_2->22;
Array s_A_2D28_3->22;
Array s_A_2D29-->4;
Array s_A_2D29_0->22;
Array s_A_2D29_1->22;
Array s_A_2D29_2->22;
Array s_A_2D29_3->22;
Array s_A_2D30-->4;
Array s_A_2D30_0->22;
Array s_A_2D30_1->22;
Array s_A_2D30_2->22;
Array s_A_2D30_3->22;
Global i_S1;
Global i_I1;
Global i_S;
Global i_S2;
Array s_A1->100;
Global i_I;
Global i_I_;
Array s_W_1D-->8;
Array s_W_1D0-->1;
Array s_W_1D0_0->100;
Array s_W_1D1-->1;
Array s_W_1D1_0->100;
Array s_W_1D2-->1;
Array s_W_1D2_0->100;
Array s_W_1D3-->1;
Array s_W_1D3_0->100;
Array s_W_1D4-->1;
Array s_W_1D4_0->100;
Array s_W_1D5-->1;
Array s_W_1D5_0->140;
Array s_W_1D6-->1;
Array s_W_1D6_0->100;
Array s_W_1D7-->1;
Array s_W_1D7_0->100;
Array i_S_1D-->56;
Array s_X2->100;
! Global i_J;
Array i_A_1D-->31;

[ InitArrays;

  s_A_2D-->0=s_A_2D0;
  s_A_2D0-->0=s_A_2D0_0;
  s_A_2D0-->1=s_A_2D0_1;
  s_A_2D0-->2=s_A_2D0_2;
  s_A_2D0-->3=s_A_2D0_3;
  s_A_2D-->1=s_A_2D1;
  s_A_2D1-->0=s_A_2D1_0;
  s_A_2D1-->1=s_A_2D1_1;
  s_A_2D1-->2=s_A_2D1_2;
  s_A_2D1-->3=s_A_2D1_3;
  s_A_2D-->2=s_A_2D2;
  s_A_2D2-->0=s_A_2D2_0;
  s_A_2D2-->1=s_A_2D2_1;
  s_A_2D2-->2=s_A_2D2_2;
  s_A_2D2-->3=s_A_2D2_3;
  s_A_2D-->3=s_A_2D3;
  s_A_2D3-->0=s_A_2D3_0;
  s_A_2D3-->1=s_A_2D3_1;
  s_A_2D3-->2=s_A_2D3_2;
  s_A_2D3-->3=s_A_2D3_3;
  s_A_2D-->4=s_A_2D4;
  s_A_2D4-->0=s_A_2D4_0;
  s_A_2D4-->1=s_A_2D4_1;
  s_A_2D4-->2=s_A_2D4_2;
  s_A_2D4-->3=s_A_2D4_3;
  s_A_2D-->5=s_A_2D5;
  s_A_2D5-->0=s_A_2D5_0;
  s_A_2D5-->1=s_A_2D5_1;
  s_A_2D5-->2=s_A_2D5_2;
  s_A_2D5-->3=s_A_2D5_3;
  s_A_2D-->6=s_A_2D6;
  s_A_2D6-->0=s_A_2D6_0;
  s_A_2D6-->1=s_A_2D6_1;
  s_A_2D6-->2=s_A_2D6_2;
  s_A_2D6-->3=s_A_2D6_3;
  s_A_2D-->7=s_A_2D7;
  s_A_2D7-->0=s_A_2D7_0;
  s_A_2D7-->1=s_A_2D7_1;
  s_A_2D7-->2=s_A_2D7_2;
  s_A_2D7-->3=s_A_2D7_3;
  s_A_2D-->8=s_A_2D8;
  s_A_2D8-->0=s_A_2D8_0;
  s_A_2D8-->1=s_A_2D8_1;
  s_A_2D8-->2=s_A_2D8_2;
  s_A_2D8-->3=s_A_2D8_3;
  s_A_2D-->9=s_A_2D9;
  s_A_2D9-->0=s_A_2D9_0;
  s_A_2D9-->1=s_A_2D9_1;
  s_A_2D9-->2=s_A_2D9_2;
  s_A_2D9-->3=s_A_2D9_3;
  s_A_2D-->10=s_A_2D10;
  s_A_2D10-->0=s_A_2D10_0;
  s_A_2D10-->1=s_A_2D10_1;
  s_A_2D10-->2=s_A_2D10_2;
  s_A_2D10-->3=s_A_2D10_3;
  s_A_2D-->11=s_A_2D11;
  s_A_2D11-->0=s_A_2D11_0;
  s_A_2D11-->1=s_A_2D11_1;
  s_A_2D11-->2=s_A_2D11_2;
  s_A_2D11-->3=s_A_2D11_3;
  s_A_2D-->12=s_A_2D12;
  s_A_2D12-->0=s_A_2D12_0;
  s_A_2D12-->1=s_A_2D12_1;
  s_A_2D12-->2=s_A_2D12_2;
  s_A_2D12-->3=s_A_2D12_3;
  s_A_2D-->13=s_A_2D13;
  s_A_2D13-->0=s_A_2D13_0;
  s_A_2D13-->1=s_A_2D13_1;
  s_A_2D13-->2=s_A_2D13_2;
  s_A_2D13-->3=s_A_2D13_3;
  s_A_2D-->14=s_A_2D14;
  s_A_2D14-->0=s_A_2D14_0;
  s_A_2D14-->1=s_A_2D14_1;
  s_A_2D14-->2=s_A_2D14_2;
  s_A_2D14-->3=s_A_2D14_3;
  s_A_2D-->15=s_A_2D15;
  s_A_2D15-->0=s_A_2D15_0;
  s_A_2D15-->1=s_A_2D15_1;
  s_A_2D15-->2=s_A_2D15_2;
  s_A_2D15-->3=s_A_2D15_3;
  s_A_2D-->16=s_A_2D16;
  s_A_2D16-->0=s_A_2D16_0;
  s_A_2D16-->1=s_A_2D16_1;
  s_A_2D16-->2=s_A_2D16_2;
  s_A_2D16-->3=s_A_2D16_3;
  s_A_2D-->17=s_A_2D17;
  s_A_2D17-->0=s_A_2D17_0;
  s_A_2D17-->1=s_A_2D17_1;
  s_A_2D17-->2=s_A_2D17_2;
  s_A_2D17-->3=s_A_2D17_3;
  s_A_2D-->18=s_A_2D18;
  s_A_2D18-->0=s_A_2D18_0;
  s_A_2D18-->1=s_A_2D18_1;
  s_A_2D18-->2=s_A_2D18_2;
  s_A_2D18-->3=s_A_2D18_3;
  s_A_2D-->19=s_A_2D19;
  s_A_2D19-->0=s_A_2D19_0;
  s_A_2D19-->1=s_A_2D19_1;
  s_A_2D19-->2=s_A_2D19_2;
  s_A_2D19-->3=s_A_2D19_3;
  s_A_2D-->20=s_A_2D20;
  s_A_2D20-->0=s_A_2D20_0;
  s_A_2D20-->1=s_A_2D20_1;
  s_A_2D20-->2=s_A_2D20_2;
  s_A_2D20-->3=s_A_2D20_3;
  s_A_2D-->21=s_A_2D21;
  s_A_2D21-->0=s_A_2D21_0;
  s_A_2D21-->1=s_A_2D21_1;
  s_A_2D21-->2=s_A_2D21_2;
  s_A_2D21-->3=s_A_2D21_3;
  s_A_2D-->22=s_A_2D22;
  s_A_2D22-->0=s_A_2D22_0;
  s_A_2D22-->1=s_A_2D22_1;
  s_A_2D22-->2=s_A_2D22_2;
  s_A_2D22-->3=s_A_2D22_3;
  s_A_2D-->23=s_A_2D23;
  s_A_2D23-->0=s_A_2D23_0;
  s_A_2D23-->1=s_A_2D23_1;
  s_A_2D23-->2=s_A_2D23_2;
  s_A_2D23-->3=s_A_2D23_3;
  s_A_2D-->24=s_A_2D24;
  s_A_2D24-->0=s_A_2D24_0;
  s_A_2D24-->1=s_A_2D24_1;
  s_A_2D24-->2=s_A_2D24_2;
  s_A_2D24-->3=s_A_2D24_3;
  s_A_2D-->25=s_A_2D25;
  s_A_2D25-->0=s_A_2D25_0;
  s_A_2D25-->1=s_A_2D25_1;
  s_A_2D25-->2=s_A_2D25_2;
  s_A_2D25-->3=s_A_2D25_3;
  s_A_2D-->26=s_A_2D26;
  s_A_2D26-->0=s_A_2D26_0;
  s_A_2D26-->1=s_A_2D26_1;
  s_A_2D26-->2=s_A_2D26_2;
  s_A_2D26-->3=s_A_2D26_3;
  s_A_2D-->27=s_A_2D27;
  s_A_2D27-->0=s_A_2D27_0;
  s_A_2D27-->1=s_A_2D27_1;
  s_A_2D27-->2=s_A_2D27_2;
  s_A_2D27-->3=s_A_2D27_3;
  s_A_2D-->28=s_A_2D28;
  s_A_2D28-->0=s_A_2D28_0;
  s_A_2D28-->1=s_A_2D28_1;
  s_A_2D28-->2=s_A_2D28_2;
  s_A_2D28-->3=s_A_2D28_3;
  s_A_2D-->29=s_A_2D29;
  s_A_2D29-->0=s_A_2D29_0;
  s_A_2D29-->1=s_A_2D29_1;
  s_A_2D29-->2=s_A_2D29_2;
  s_A_2D29-->3=s_A_2D29_3;
  s_A_2D-->30=s_A_2D30;
  s_A_2D30-->0=s_A_2D30_0;
  s_A_2D30-->1=s_A_2D30_1;
  s_A_2D30-->2=s_A_2D30_2;
  s_A_2D30-->3=s_A_2D30_3;
  s_W_1D-->0=s_W_1D0;
  s_W_1D0-->0=s_W_1D0_0;
  s_W_1D-->1=s_W_1D1;
  s_W_1D1-->0=s_W_1D1_0;
  s_W_1D-->2=s_W_1D2;
  s_W_1D2-->0=s_W_1D2_0;
  s_W_1D-->3=s_W_1D3;
  s_W_1D3-->0=s_W_1D3_0;
  s_W_1D-->4=s_W_1D4;
  s_W_1D4-->0=s_W_1D4_0;
  s_W_1D-->5=s_W_1D5;
  s_W_1D5-->0=s_W_1D5_0;
  s_W_1D-->6=s_W_1D6;
  s_W_1D6-->0=s_W_1D6_0;
  s_W_1D-->7=s_W_1D7;
  s_W_1D7-->0=s_W_1D7_0;
];