[proc_parse entry_point saveflag;
  switch(entry_point) {
    1: jump line12000;
    2: jump line12200;
    3: jump line12202;
    default: jump line8600; ! 0 is only expected value
  }
!! 06300  IF C$<>"" THEN 6305
  .line6300; if(decStrCmp(s_C,decWriteString(main_str-->0,""))~=0) { jump line6305;}
!! 06301  IF Z=37 AND S(38)=0 THEN X=13 \ GOTO 12999
  if(i_Z==37 && (i_S_1D-->38)==0) { i_X=13;jump line12999;}
!! 06302  C$=FNI$("Ta vadå ?") \ A$=C$=FNC$(C$)
  decStrCpy(s_C,fnc_FNI(decWriteString(main_str-->0,"Ta vadå ?")));decStrCpy(s_A,decStrCpy(s_C,fnc_FNC(s_C)));
!! 06305  FOR I=1 TO A(0)
  .line6305; for(i_I=1:i_I<=(i_A_1D-->0):i_I++) {

!! 06306  IF A$(I,0)<>"" THEN IF INSTR(1,C$,A$(I,1))>0 OR INSTR(1,C$,A$(I,2))>0 THEN 6400
    if(decStrCmp(((s_A_2D-->(i_I))-->0),decWriteString(main_str-->0,""))~=0) { if(decInstr(1,s_C,((s_A_2D-->(i_I))-->1))>0 || decInstr(1,s_C,((s_A_2D-->(i_I))-->2))>0) { jump line6400;}}
!! 06308  NEXT I
  }
!! 06309  IF FNL$(C$,4)="ALLT" THEN 6500
  if(decStrCmp(fnc_FNL(s_C,4),decWriteString(main_str-->0,"ALLT"))==0) { jump line6500;}
!! 06310  IF FNL$(C$,5)="VATTE" THEN 6330
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"VATTE"))==0) { jump line6330;}
!! 06311  IF FNL$(C$,5)="GRAVS" AND Z=61 THEN PRINT "Gravstenen väger alldeles för mycket."\GOTO 12210
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"GRAVS"))==0 && i_Z==61) { print "Gravstenen väger alldeles för mycket.^";jump line12210;}
!! 06312  IF FNL$(C$,5)="KISTA" THEN 6350
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"KISTA"))==0) { jump line6350;}
!! 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
  if((decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"FAMIL"))==0 || decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->1,"VAPEN"))==0) && i_Z==81) { print "Vapnet sitter för hårt fast.^";jump line12210;}
!! 06314  IF FNL$(C$,5)="TAVLA" AND S(36)=0 THEN 6360
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"TAVLA"))==0 && (i_S_1D-->36)==0) { jump line6360;}
!! 06315  IF FNL$(C$,5)="SAFTF" THEN PRINT "Jag ser ingen SAFTFLASKA här."\GOTO 12210
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"SAFTF"))==0) { print "Jag ser ingen SAFTFLASKA här.^";jump line12210;}
!! 06316  IF FNL$(C$,5)="FLASK" THEN 6370
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"FLASK"))==0) { jump line6370;}
!! 06317  IF FNL$(C$,4)="PORT" AND (Z=81 OR Z=62) THEN PRINT "Porten sitter fast i väggen."\GOTO 12210
  if(decStrCmp(fnc_FNL(s_C,4),decWriteString(main_str-->0,"PORT"))==0 && (i_Z==81 || i_Z==62)) { print "Porten sitter fast i väggen.^";jump line12210;}
!! 06318  IF FNL$(C$,4)="JACK" AND J(Z)=1 THEN PRINT "Jacken sitter fastskruvad i väggen!"\GOTO 12210
  if(decStrCmp(fnc_FNL(s_C,4),decWriteString(main_str-->0,"JACK"))==0 && (i_J_1D-->(i_Z))==1) { print "Jacken sitter fastskruvad i väggen!^";jump line12210;}
!! 06319  IF FNL$(C$,5)="BRUNN" AND Z=99 THEN PRINT "Brunnen är gjuten i marken!"\GOTO 12210
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"BRUNN"))==0 && i_Z==99) { print "Brunnen är gjuten i marken!^";jump line12210;}
!! 06320  IF FNL$(C$,5)="KASSA" AND Z=30 THEN PRINT "Det är fastgjutet i berget."\GOTO 12210
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"KASSA"))==0 && i_Z==30) { print "Det är fastgjutet i berget.^";jump line12210;}
!! 06321  IF FNL$(C$,3)="BÅT" AND (Z=49 OR Z=78 OR Z=50) THEN 6380
  if(decStrCmp(fnc_FNL(s_C,3),decWriteString(main_str-->0,"BÅT"))==0 && (i_Z==49 || i_Z==78 || i_Z==50)) { jump line6380;}
!! 06322  IF FNL$(C$,5)="GUBBE" AND S(30)=Z THEN 30002
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"GUBBE"))==0 && (i_S_1D-->30)==i_Z) { jump line30002;}
!! 06323  IF FNL$(C$,4)="LÅDA" AND A(28)=2 AND Z=56 THEN PRINT "Lådan är för tung!"\GOTO 12210
  if(decStrCmp(fnc_FNL(s_C,4),decWriteString(main_str-->0,"LÅDA"))==0 && (i_A_1D-->28)==2 && i_Z==56) { print "Lådan är för tung!^";jump line12210;}
!! 06324  IF FNL$(C$,5)="RUBIN" AND A1=1 AND Z=70 THEN 6355
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"RUBIN"))==0 && i_A1==1 && i_Z==70) { jump line6355;}
!! 06325  IF FNL$(C$,3)="ASK" AND A(27)=2 AND Z=57 THEN PRINT "Asken sitter fast i väggen."\GOTO 12210
  if(decStrCmp(fnc_FNL(s_C,3),decWriteString(main_str-->0,"ASK"))==0 && (i_A_1D-->27)==2 && i_Z==57) { print "Asken sitter fast i väggen.^";jump line12210;}
!! 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
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"FÖNST"))==0 && i_Z==16 && (i_A_1D-->15)==0) { print "Fönstret är fastkittat i väggen.^";jump line12210;}
!! 06327  IF Z=37 AND S(38)=0 THEN X=13 \ GOTO 12999
  if(i_Z==37 && (i_S_1D-->38)==0) { i_X=13;jump line12999;}
!! 06329  PRINT "Jag ser ingen ";C$;" här." \ GOTO 12210
  print "Jag ser ingen ";PrintString(s_C);print " här.^";jump line12210;
!! 06330  IF Z=25 OR Z=33 OR Z=49 OR Z=50 OR Z=66 OR Z=70 OR Z=91 THEN 6338
  .line6330; if(i_Z==25 || i_Z==33 || i_Z==49 || i_Z==50 || i_Z==66 || i_Z==70 || i_Z==91) { jump line6338;}
!! 06332  IF Z=72 OR Z=74 OR Z=78 OR Z=79 OR Z=83 OR Z=87 OR Z=88 THEN 6338
  if(i_Z==72 || i_Z==74 || i_Z==78 || i_Z==79 || i_Z==83 || i_Z==87 || i_Z==88) { jump line6338;}
!! 06334  PRINT "Jag ser inget VATTEN här."
  print "Jag ser inget VATTEN här.^";
!! 06336  GOTO 12210
  jump line12210;
!! 06338  IF A(19)<>1 THEN PRINT "Du har inget att ta vattnet i." \ GOTO 12210
  .line6338; if((i_A_1D-->19)~=1) { print "Du har inget att ta vattnet i.^";jump line12210;}
!! 06340  IF S(32)=0 THEN PRINT "Din vattenflaska är redan full." \ GOTO 12210
  if((i_S_1D-->32)==0) { print "Din vattenflaska är redan full.^";jump line12210;}
!! 06342  PRINT "Du fyller på vattenflaskan med vatten från ";
  print "Du fyller på vattenflaskan med vatten från ";
!! 06344  IF Z=91 THEN PRINT "vattenfallet." ELSE PRINT "sjön."
  if(i_Z==91) { print "vattenfallet.^"; } else {print "sjön.^"; }
!! 06346  S(32)=0 \ GOTO 12210
  (i_S_1D-->32)=0;jump line12210;
!! 06350  IF Z=15 THEN PRINT "Kistan väger 300 kilogram!" ELSE PRINT "Jag ser ingen KISTA här."
  .line6350; if(i_Z==15) { print "Kistan väger 300 kilogram!^"; } else {print "Jag ser ingen KISTA här.^"; }
!! 06352  GOTO 12210
  jump line12210;
!! 06355  PRINT "Just när du ska ta rubinen kommer Thorvald fram och utropar"
  .line6355; 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!"
  print " - April, april! Nu tar jag hand om rubinen själv!^";
!! 06357  A1=0 \ GOTO 12210
  i_A1=0;jump line12210;
!! 06360  PRINT "Du kan väl inte sno en av husets tavlor!"
  .line6360; print "Du kan väl inte sno en av husets tavlor!^";
!! 06362  S(2)=S(2)-1 \ GOTO 12210
  (i_S_1D-->2)=(i_S_1D-->2)-1;jump line12210;
!! 06370  PRINT "Du måste skriva vilket slags flaska du menar, t ex TA SAFTFLASKA."
  .line6370; print "Du måste skriva vilket slags flaska du menar, t ex TA SAFTFLASKA.^";
!! 06372  GOTO 12210
  jump line12210;
!! 06380  PRINT "Du orkar inte bära roddbåten."
  .line6380; print "Du orkar inte bära roddbåten.^";
!! 06382  GOTO 12210
  jump line12210;
!! 06400  IF (I=4 OR I=15 OR I=25 OR I=26) AND A(I)=2 THEN 28130
  .line6400; if((i_I==4 || i_I==15 || i_I==25 || i_I==26) && (i_A_1D-->(i_I))==2) { jump line28130;}
!! 06402  IF (I=10 OR I=11 OR I=19) AND S(30)=Z AND A(I)=0 THEN 30020
  if((i_I==10 || i_I==11 || i_I==19) && (i_S_1D-->30)==i_Z && (i_A_1D-->(i_I))==0) { jump line30020;}
!! 06404  IF I=22 AND Z=63 THEN 28160
  if(i_I==22 && i_Z==63) { jump line28160;}
!! 06406  IF I=29 AND S(6)<>1 THEN PRINT "Det kan du inte." \ GOTO 12210
  if(i_I==29 && (i_S_1D-->6)~=1) { print "Det kan du inte.^";jump line12210;}
!! 06410  IF A(I)=Z OR (I=30 AND S(44)=Z) THEN 6420
  .line6410; if((i_A_1D-->(i_I))==i_Z || (i_I==30 && (i_S_1D-->44)==i_Z)) { jump line6420;}
!! 06412  IF A(I)=1 THEN PRINT "Du bär redan ";A$(I,3);"." \ GOTO 12210
  if((i_A_1D-->(i_I))==1) { print "Du bär redan ";PrintString(((s_A_2D-->(i_I))-->3));print ".^";jump line12210;}
!! 06414  IF A(I)=5 THEN PRINT "Man kan inte ta tillbaka saker från maskinen."\GOTO 12210
  if((i_A_1D-->(i_I))==5) { print "Man kan inte ta tillbaka saker från maskinen.^";jump line12210;}
!! 06418  PRINT "Jag ser ";FNA$(I);A$(I,0);" här." \ GOTO 12210
  .line6418; print "Jag ser ";PrintString(fnc_FNA(i_I));PrintString(((s_A_2D-->(i_I))-->0));print " här.^";jump line12210;
!! 06420  IF S(1)=9 THEN PRINT "Du kan inte bära fler saker." \ GOTO 12210
  .line6420; if((i_S_1D-->1)==9) { print "Du kan inte bära fler saker.^";jump line12210;}
!! 06422  S(1)=S(1)+1 \ A(I)=1
  .line6422; (i_S_1D-->1)=(i_S_1D-->1)+1;(i_A_1D-->(i_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
  if(i_I==30 && ((i_J_1D-->(i_Z))==1 || (i_S_1D-->44)==i_Z)) { (i_S_1D-->44)=0;print "Du rycker loss sladden.^";jump line12210;}
!! 06425  IF I=30 THEN S(44)=0
  if(i_I==30) { (i_S_1D-->44)=0;}
!! 06426  IF I=25 AND (S(44)=Z OR J(Z)=1) THEN PRINT "Du kopplar ur telefonen." ELSE PRINT "Ok."
  if(i_I==25 && ((i_S_1D-->44)==i_Z || (i_J_1D-->(i_Z))==1)) { print "Du kopplar ur telefonen.^"; } else {print "Ok.^"; }
!! 06428  GOTO 12210
  jump line12210;
!! 06500  I=0'TA ALLT
  .line6500; i_I=0;
!! 06505  FOR I1=1 TO A(0)
  for(i_I1=1:i_I1<=(i_A_1D-->0):i_I1++) {
!! 06510  IF A(I1)<>Z AND (I1<>30 OR S(44)<>Z) THEN 6550
    if((i_A_1D-->(i_I1))~=i_Z && (i_I1~=30 || (i_S_1D-->44)~=i_Z)) { jump line6550;}
!! 06512  IF I1=29 AND S(6)<>1 THEN 6550
    if(i_I1==29 && (i_S_1D-->6)~=1) { jump line6550;}
!! 06515  IF S(1)<9 THEN 6535
    if((i_S_1D-->1)<9) { jump line6535;}
!! 06520  IF I=0 THEN PRINT "Du kan inte bära fler saker."
    if(i_I==0) { print "Du kan inte bära fler saker.^";}
!! 06525  IF I>0 THEN PRINT "." \ PRINT "Du kan inte bära resten."
    if(i_I>0) { print ".^";print "Du kan inte bära resten.^";}
!! 06530  GOTO 12210
    jump line12210;
!! 06535  IF I=0 THEN PRINT "Du tar "; ELSE PRINT " och ";
    .line6535; if(i_I==0) { print "Du tar "; } else {print " och "; }
!! 06540  PRINT A$(I1,3); \ S(1)=S(1)+1 \ A(I1)=1 \ I=I+1
    PrintString(((s_A_2D-->(i_I1))-->3));(i_S_1D-->1)=(i_S_1D-->1)+1;(i_A_1D-->(i_I1))=1;i_I=i_I+1;
!! 06545  IF I1=22 AND Z=63 THEN S(2)=S(2)-30 \ S(52)=0
    if(i_I1==22 && i_Z==63) { (i_S_1D-->2)=(i_S_1D-->2)-30;(i_S_1D-->52)=0;}
!! 06547  IF I1=30 THEN S(44)=0
    if(i_I1==30) { (i_S_1D-->44)=0;}
!! 06550  NEXT I1
  .line6550; }
!! 06551  IF Z=70 AND A1=1 THEN PRINT \ GOTO 6355
  if(i_Z==70 && i_A1==1) { new_line;jump line6355;}
!! 06552  IF I=0 AND Z=37 AND S(38)=0 THEN PRINT "Jag ser inget du kan ta här." \ GOTO 6560
  if(i_I==0 && i_Z==37 && (i_S_1D-->38)==0) { print "Jag ser inget du kan ta här.^";jump line6560;}
!! 06555  IF I=0 THEN PRINT "Det finns inget som du kan ta här." ELSE PRINT "."
  if(i_I==0) { print "Det finns inget som du kan ta här.^"; } else {print ".^"; }
!! 06560  GOTO 12210
  .line6560; jump line12210;
!! 07000  REM XXXXX SLÄPP XXXXX
  .line7000; !===  XXXXX SLÄPP XXXXX
!! 07001  IF C$="" THEN C$=FNI$("Släpp vadå ?") \ A$=C$=FNC$(C$)
  if(decStrCmp(s_C,decWriteString(main_str-->0,""))==0) { decStrCpy(s_C,fnc_FNI(decWriteString(main_str-->1,"Släpp vadå ?")));decStrCpy(s_A,decStrCpy(s_C,fnc_FNC(s_C)));}
!! 07003  FOR I=1 TO A(0)
  for(i_I=1:i_I<=(i_A_1D-->0):i_I++) {
!! 07005  IF A$(I,0)<>"" THEN IF INSTR(1,C$,A$(I,1))>0 OR INSTR(1,C$,A$(I,2))>0 THEN 7030
    if(decStrCmp(((s_A_2D-->(i_I))-->0),decWriteString(main_str-->0,""))~=0) { if(decInstr(1,s_C,((s_A_2D-->(i_I))-->1))>0 || decInstr(1,s_C,((s_A_2D-->(i_I))-->2))>0) { jump line7030;}}
!! 07007  NEXT I
  }
!! 07008  IF FNL$(C$,4)="ALLT" THEN 7100
  if(decStrCmp(fnc_FNL(s_C,4),decWriteString(main_str-->0,"ALLT"))==0) { jump line7100;}
!! 07009  IF C$="DEJ" OR C$="DIG" THEN 7020
  if(decStrCmp(s_C,decWriteString(main_str-->0,"DEJ"))==0 || decStrCmp(s_C,decWriteString(main_str-->1,"DIG"))==0) { jump line7020;}
!! 07018  PRINT "Du bär väl ingen ";C$;"!" \ GOTO 12210
  print "Du bär väl ingen ";PrintString(s_C);print "!^";jump line12210;
!! 07020  PRINT "Fy! Det vill jag inte." \ S(2)=S(2)-1 \ GOTO 12210
  .line7020; print "Fy! Det vill jag inte.^";(i_S_1D-->2)=(i_S_1D-->2)-1;jump line12210;
!! 07030  IF A(I)=1 THEN 7040
  .line7030; if((i_A_1D-->(i_I))==1) { jump line7040;}
!! 07034  PRINT "Du bär väl ";FNA$(I);A$(I,0);"!"
  print "Du bär väl ";PrintString(fnc_FNA(i_I));PrintString(((s_A_2D-->(i_I))-->0));print "!^";
!! 07036  GOTO 12210
  jump line12210;
!! 07040  IF (I=10 OR I=19) AND S(30)=Z THEN 7090
  .line7040; if((i_I==10 || i_I==19) && (i_S_1D-->30)==i_Z) { jump line7090;}
!! 07041  IF I=25 AND (S(44)=Z OR J(Z)=1) THEN 7075
  if(i_I==25 && ((i_S_1D-->44)==i_Z || (i_J_1D-->(i_Z))==1)) { jump line7075;}
!! 07042  IF Z=51 AND I<15 THEN X=15 \ GOTO 12999
  if(i_Z==51 && i_I<15) { i_X=15;jump line12999;}
!! 07043  IF Z=4 THEN PRINT "En mystisk kraft hindrar dej från att släppa någonting här." \ GOTO 12210
  .line7043; if(i_Z==4) { print "En mystisk kraft hindrar dej från att släppa någonting här.^";jump line12210;}
!! 07044  IF I=22 AND Z=63 THEN S(52)=S(50) \ S(2)=S(2)+25
  if(i_I==22 && i_Z==63) { (i_S_1D-->52)=(i_S_1D-->50);(i_S_1D-->2)=(i_S_1D-->2)+25;}
!! 07045  IF I=30 AND J(Z)=1 THEN S(44)=-1 ELSE IF I=30 THEN S(44)=0
  if(i_I==30 && (i_J_1D-->(i_Z))==1) { (i_S_1D-->44)=-1; } else {if(i_I==30) { (i_S_1D-->44)=0; }}
!! 07050  A(I)=Z \ S(1)=S(1)-1
  (i_A_1D-->(i_I))=i_Z;(i_S_1D-->1)=(i_S_1D-->1)-1;
!! 07052  IF I=22 AND Z=63 THEN PRINT "Du lägger försiktigt ner liket." ELSE PRINT "Ok."
  if(i_I==22 && i_Z==63) { print "Du lägger försiktigt ner liket.^"; } else {print "Ok.^"; }
!! 07054  GOTO 12210
  jump line12210;
!! 07075  S(28)=S(28)+1 \ S(1)=S(1)-1 \ A(25)=Z
  .line7075; (i_S_1D-->28)=(i_S_1D-->28)+1;(i_S_1D-->1)=(i_S_1D-->1)-1;(i_A_1D-->25)=i_Z;
!! 07077  IF S(28)=2 THEN 27100
  if((i_S_1D-->28)==2) { jump line27100;}
!! 07078  IF S(28)/3<>INT(S(28)/3) OR RND<0.5 THEN PRINT "Du kopplar in telefonen."\GOTO 12210
!WARNING: int function skipped in line: 07078 IF S(28)/3<>INT(S(28)/3) OR RND<0.5 THEN PRINT "Du kopplar in telefonen."\GOTO 12210
!WARNING: random argument should be adjusted in line: 07078 IF S(28)/3<>INT(S(28)/3) OR RND<0.5 THEN PRINT "Du kopplar in telefonen."\GOTO 12210
!WARNING: removed float value in line: 07078  IF S(28)/3<>INT(S(28)/3) OR RND<0.5 THEN PRINT "Du kopplar in telefonen."\GOTO 12210
  if(((i_S_1D-->28)%3)~=0 || random(100)<50) { print "Du kopplar in telefonen.^";jump line12210;}
!! 07080  PRINT "Just som du ska koppla in telefonen kommer en man klädd i en röd"
  print "Just som du ska koppla in telefonen kommer en man klädd i en röd ";
!! 07081  PRINT "dräkt som det står 'TELE' på, ";
  .line7081; print "dräkt som det står 'TELE' på, ";
!! 07082  IF J(Z)=1 THEN PRINT "skruvar bort telefonjacken" \ J(Z)=0
  if((i_J_1D-->(i_Z))==1) { print "skruvar bort telefonjacken ";(i_J_1D-->(i_Z))=0;}
!! 07083  IF J(Z)<>1 THEN PRINT "tar bort förlängningssladden" \ S(44)=0 \ A(30)=0
  if((i_J_1D-->(i_Z))~=1) { print "tar bort förlängningssladden ";(i_S_1D-->44)=0;(i_A_1D-->30)=0;}
!! 07084  PRINT "och sluddrar fram:"
  print "och sluddrar fram:^";
!! 07085  PRINT "- Abonnemangsavgiften är inte betald." \ PRINT
  print "- Abonnemangsavgiften är inte betald.^^";
!! 07087  X1=1 \ GOSUB 27050
!WARNING: gosub skipped in line: 07087  X1=1 \ GOSUB 27050
  i_X1=1;proc_setup_phone();
!! 07088  GOTO 12999
  jump line12999;
!! 07090  IF I=19 THEN PRINT "Gubben tar snabbt vattenflaskan när du släpper den." \ GOTO 7094
  .line7090; if(i_I==19) { print "Gubben tar snabbt vattenflaskan när du släpper den.^";jump line7094;}
!! 07092  PRINT "Gubben sätter din lagerkrans på sitt huvud och ser genast gladare ut."
  print "Gubben sätter din lagerkrans på sitt huvud och ser genast gladare ut.^";
!! 07094  A(I)=0 \ S(1)=S(1)-1
  .line7094; (i_A_1D-->(i_I))=0;(i_S_1D-->1)=(i_S_1D-->1)-1;
!! 07096  GOTO 12210
  jump line12210;
!! 07100  I=0'SLÄPP ALLT
  .line7100; i_I=0;
!! 07102  IF Z=4 THEN 7043
  if(i_Z==4) { jump line7043;}
!! 07105  FOR I1=1 TO A(0)
  for(i_I1=1:i_I1<=(i_A_1D-->0):i_I1++) {
!! 07110  IF A(I1)<>1 THEN 7135
    if((i_A_1D-->(i_I1))~=1) { jump line7135;}
!! 07115  IF I1=22 AND Z=63 THEN S(52)=S(50) \ S(2)=S(2)+25
    if(i_I1==22 && i_Z==63) { (i_S_1D-->52)=(i_S_1D-->50);(i_S_1D-->2)=(i_S_1D-->2)+25;}
!! 07117  IF I1=30 AND J(Z)=1 THEN S(44)=-1 ELSE IF I1=30 THEN S(44)=0
    if(i_I1==30 && (i_J_1D-->(i_Z))==1) { (i_S_1D-->44)=-1; } else {if(i_I1==30) { (i_S_1D-->44)=0; }}
!! 07120  A(I1)=Z \ S(1)=S(1)-1
    (i_A_1D-->(i_I1))=i_Z;(i_S_1D-->1)=(i_S_1D-->1)-1;
!! 07125  IF I=0 THEN PRINT "Du släpper "; ELSE PRINT " och ";
    if(i_I==0) { print "Du släpper "; } else {print " och "; }
!! 07130  PRINT A$(I1,3); \ I=I+1
    PrintString(((s_A_2D-->(i_I1))-->3));i_I=i_I+1;
!! 07135  NEXT I1
  .line7135; }
!! 07140  IF I=0 THEN PRINT "Du bär inte på någonting!" ELSE PRINT "."
  if(i_I==0) { print "Du bär inte på någonting!^"; } else {print ".^"; }
!! 07145  GOTO 12210
  jump line12210;



!! 08600  S(36)=1 'XXX VÄDERSTRECKSSUBRUTIN XXXXX
  .line8600; (i_S_1D-->36)=1;
!! 08602  IF A$="" THEN 12210
  if(decStrCmp(s_A,decWriteString(main_str-->0,""))==0) { jump line12210;}
!! 08603  X=0 \ X1=0 \ A$=FNC$(A$)
  i_X=0;i_X1=0;decStrCpy(s_A,fnc_FNC(s_A));
!! 08604  IF FNL$(A$,6)="SYDOST" OR FNL$(A$,6)="SYDÖST" OR A$="SO" OR A$="SÖ" THEN X=8
  if(decStrCmp(fnc_FNL(s_A,6),decWriteString(main_str-->0,"SYDOST"))==0 || decStrCmp(fnc_FNL(s_A,6),decWriteString(main_str-->1,"SYDÖST"))==0 || decStrCmp(s_A,decWriteString(main_str-->2,"SO"))==0 || decStrCmp(s_A,decWriteString(main_str-->3,"SÖ"))==0) { i_X=8;}
!! 08605  IF FNL$(A$,4)="VÄST" OR A$="V" THEN X=1
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"VÄST"))==0 || decStrCmp(s_A,decWriteString(main_str-->1,"V"))==0) { i_X=1;}
!! 08606  IF FNL$(A$,3)="ÖST" OR FNL$(A$,3)="OST" OR A$="Ö" OR A$="O" THEN X=2
  if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"ÖST"))==0 || decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->1,"OST"))==0 || decStrCmp(s_A,decWriteString(main_str-->2,"Ö"))==0 || decStrCmp(s_A,decWriteString(main_str-->3,"O"))==0) { i_X=2;}
!! 08607  IF FNL$(A$,4)="NORR" OR FNL$(A$,4)="NORD" OR A$="N" THEN X=3
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"NORR"))==0 || decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->1,"NORD"))==0 || decStrCmp(s_A,decWriteString(main_str-->2,"N"))==0) { i_X=3;}
!! 08608  IF FNL$(A$,3)="SYD" OR FNL$(A$,5)="SÖDER" OR A$="S" THEN X=4
  if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"SYD"))==0 || decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->1,"SÖDER"))==0 || decStrCmp(s_A,decWriteString(main_str-->2,"S"))==0) { i_X=4;}
!! 08609  IF FNL$(A$,5)="NORDV" OR A$="NV" THEN X=5
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"NORDV"))==0 || decStrCmp(s_A,decWriteString(main_str-->1,"NV"))==0) { i_X=5;}
!! 08610  IF FNL$(A$,4)="SYDV" OR A$="SV" THEN X=6
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"SYDV"))==0 || decStrCmp(s_A,decWriteString(main_str-->1,"SV"))==0) { i_X=6;}
!! 08611  IF FNL$(A$,5)="NORDO" OR FNL$(A$,5)="NORDÖ" OR A$="NO" OR A$="NÖ" THEN X=9
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"NORDO"))==0 || decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->1,"NORDÖ"))==0 || decStrCmp(s_A,decWriteString(main_str-->2,"NO"))==0 || decStrCmp(s_A,decWriteString(main_str-->3,"NÖ"))==0) { i_X=9;}
!! 08612  GOTO 12025
  jump line12025;
!! 08613  'XXXX INVENTERING XXX
  .line8613; !=== XXXX INVENTERING XXX
!! 08614  IF S(1)=0 THEN PRINT "Du bär ingenting." \ GOTO 12210
  if((i_S_1D-->1)==0) { print "Du bär ingenting.^";jump line12210;}
!! 08615  PRINT "Du bär på"
  print "Du bär på^";
!! 08617  IF A(1)=1 THEN PRINT "en gnistrande diamant"
  if((i_A_1D-->1)==1) { print "en gnistrande diamant^";}
!! 08618  IF A(15)=1 THEN PRINT "en stor kofot"
  if((i_A_1D-->15)==1) { print "en stor kofot^";}
!! 08619  IF A(16)=1 THEN PRINT "en ny cykelpump"
  if((i_A_1D-->16)==1) { print "en ny cykelpump^";}
!! 08620  IF A(2)=1 THEN PRINT "en illaluktande gurka"' uääääääääääääääää
  if((i_A_1D-->2)==1) { print "en illaluktande gurka^";}
!! 08621  IF A(3)=1 THEN PRINT "en snygg silvertacka"
  if((i_A_1D-->3)==1) { print "en snygg silvertacka^";}
!! 08622  IF A(17)=1 THEN PRINT "en lång stege"
  if((i_A_1D-->17)==1) { print "en lång stege^";}
!! 08623  IF A(18)<>1 THEN 8626
  if((i_A_1D-->18)~=1) { jump line8626;}
!! 08624  IF S(31)=0 THEN PRINT "en full brännvinsflaska"
  if((i_S_1D-->31)==0) { print "en full brännvinsflaska^";}
!! 08625  IF S(31)=1 THEN PRINT "en tom brännvinsflaska"
  if((i_S_1D-->31)==1) { print "en tom brännvinsflaska^";}
!! 08626  IF A(19)<>1 THEN 8629
  .line8626; if((i_A_1D-->19)~=1) { jump line8629;}
!! 08627  IF S(32)=0 THEN PRINT "en full vattenflaska"
  if((i_S_1D-->32)==0) { print "en full vattenflaska^";}
!! 08628  IF S(32)=1 THEN PRINT "en tom vattenflaska"
  if((i_S_1D-->32)==1) { print "en tom vattenflaska^";}
!! 08629  IF A(20)<>1 THEN 8632
  .line8629; if((i_A_1D-->20)~=1) { jump line8632;}
!! 08630  IF S(33)=0 THEN PRINT "en pumpad boll"
  if((i_S_1D-->33)==0) { print "en pumpad boll^";}
!! 08631  IF S(33)=1 THEN PRINT "en opumpad boll"
  if((i_S_1D-->33)==1) { print "en opumpad boll^";}
!! 08632  IF A(4)=1 THEN PRINT "en sylvass hillebard"
  .line8632; if((i_A_1D-->4)==1) { print "en sylvass hillebard^";}
!! 08633  IF A(21)=1 THEN PRINT "en jordig spade"
  if((i_A_1D-->21)==1) { print "en jordig spade^";}
!! 08634  IF A(5)=1 THEN PRINT "en urgammal dödskalle"
  if((i_A_1D-->5)==1) { print "en urgammal dödskalle^";}
!! 08635  IF A(6)=1 THEN PRINT "en tickande väckarklocka"
  if((i_A_1D-->6)==1) { print "en tickande väckarklocka^";}
!! 08637  IF A(11)=1 THEN PRINT "ett glittrande pärlhalsband"
  if((i_A_1D-->11)==1) { print "ett glittrande pärlhalsband^";}
!! 08638  IF A(22)=1 THEN PRINT "ett äckligt lik"
  if((i_A_1D-->22)==1) { print "ett äckligt lik^";}
!! 08640  IF A(12)=1 THEN PRINT "en ful faunsko"
  if((i_A_1D-->12)==1) { print "en ful faunsko^";}
!! 08641  IF A(7)=1 THEN PRINT "en massa guldmynt"
  if((i_A_1D-->7)==1) { print "en massa guldmynt^";}
!! 08642  IF A(25)=1 THEN PRINT "en modern telefon"
  if((i_A_1D-->25)==1) { print "en modern telefon^";}
!! 08645  IF A(26)=1 THEN PRINT "några gamla nycklar"
  if((i_A_1D-->26)==1) { print "några gamla nycklar^";}
!! 08646  IF A(27)=1 THEN PRINT "en vass sax"
  if((i_A_1D-->27)==1) { print "en vass sax^";}
!! 08647  IF A(28)=1 THEN PRINT "en tung slägga"
  if((i_A_1D-->28)==1) { print "en tung slägga^";}
!! 08650  IF A(8)=1 THEN PRINT "en läsvärd trilogi (Sagorna om Härskarringen)"
  if((i_A_1D-->8)==1) { print "en läsvärd trilogi (Sagorna om Härskarringen)^";}
!! 08651  IF A(24)=1 THEN PRINT "en lampa"
  if((i_A_1D-->24)==1) { print "en lampa^";}
!! 08652  IF A(9)=1 THEN PRINT "ett skärt kontrakt"
  if((i_A_1D-->9)==1) { print "ett skärt kontrakt^";}
!! 08653  IF A(10)=1 THEN PRINT "en grön lagerkrans"
  if((i_A_1D-->10)==1) { print "en grön lagerkrans^";}
!! 08654  IF A(23)=1 THEN PRINT "en tunn telefonkatalog"
  if((i_A_1D-->23)==1) { print "en tunn telefonkatalog^";}
!! 08656  IF A(30)=1 THEN PRINT "en förlängningssladd till telefonen"
  if((i_A_1D-->30)==1) { print "en förlängningssladd till telefonen^";}
!! 08663  GOTO 12210
  jump line12210;




!! 09950  IF M2%=1% THEN CLOSE 2 \ M2%=0%'&&&&& Stäng ev. loggfil
!WARNING: removed float-integer conversion in line: 09950 IF M2%=1% THEN CLOSE 2 \ M2%=0%'&&&&& Stäng ev. loggfil
!WARNING: Skipping IO CLOSE in line: 09950  IF M2%=1% THEN CLOSE 2 \ M2%=0%'&&&&& Stäng ev. loggfil
!WARNING: removed float-integer conversion in line: 09950 IF M2%=1% THEN CLOSE 2 \ M2%=0%'&&&&& Stäng ev. loggfil
  .line9950; if(i_M2_==1) { i_M2_=0;}
!! 09951  PRINT \ PRINT "Är du säker på att du vill sluta nu?";
  print "^Är du säker på att du vill sluta nu?";
!! 09952  A$=FNI$("") \ A$=FNC$(A$)
  decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"")));decStrCpy(s_A,fnc_FNC(s_A));
!! 09953  IF FNL$(A$,1)="J" THEN 99000
!  if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"J"))==0) { jump line99000;}
  if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"J"))==0) { proc_end();}
!! 09957  PRINT "Ok. Du har";S(2);"poäng!"
  print "Ok. Du har ",(i_S_1D-->2)," poäng!^";
!! 09958  GOTO 12210
  jump line12210;




!! 12000  S(36)=0'XXXXX KOMMANDOAVKODARE XXXXX
  .line12000; (i_S_1D-->36)=0;
!! 12001  IF A$="" THEN 12210
  if(decStrCmp(s_A,decWriteString(main_str-->0,""))==0) { jump line12210;}
!! 12003  X=0 \ X1=0 \ A$=FNC$(A$)
  i_X=0;i_X1=0;decStrCpy(s_A,fnc_FNC(s_A));
!! 12010  IF FNL$(A$,3)="UPP" OR A$="U" THEN X=1
  if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"UPP"))==0 || decStrCmp(s_A,decWriteString(main_str-->1,"U"))==0) { i_X=1;}
!! 12012  IF FNL$(A$,3)="NER" OR FNL$(A$,3)="NED" OR A$="N" THEN X=2
  if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"NER"))==0 || decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->1,"NED"))==0 || decStrCmp(s_A,decWriteString(main_str-->2,"N"))==0) { i_X=2;}
!! 12014  IF INSTR(1,A$,"VÄNSTER")>0 OR A$="V" THEN X=3
  if(decInstr(1,s_A,decWriteString(main_str-->0,"VÄNSTER"))>0 || decStrCmp(s_A,decWriteString(main_str-->1,"V"))==0) { i_X=3;}
!! 12016  IF INSTR(1,A$,"HÖGER")>0 OR A$="H" THEN X=4
  if(decInstr(1,s_A,decWriteString(main_str-->0,"HÖGER"))>0 || decStrCmp(s_A,decWriteString(main_str-->1,"H"))==0) { i_X=4;}
!! 12018  IF INSTR(1,A$,"FRAM")>0 OR A$="F" THEN X=5
  if(decInstr(1,s_A,decWriteString(main_str-->0,"FRAM"))>0 || decStrCmp(s_A,decWriteString(main_str-->1,"F"))==0) { i_X=5;}
!! 12020  IF INSTR(1,A$,"BAKÅ")>0 OR A$="B" THEN X=6
  if(decInstr(1,s_A,decWriteString(main_str-->0,"BAKÅ"))>0 || decStrCmp(s_A,decWriteString(main_str-->1,"B"))==0) { i_X=6;}
!! 12025  IF INSTR(1,A$,"HJÄLP")>0 THEN X=7
  .line12025; if(decInstr(1,s_A,decWriteString(main_str-->0,"HJÄLP"))>0) { i_X=7;}
! Nyskriven kod för att visa ledtrådar:
  if(decInstr2(s_A,decWriteString(main_str-->0,"LEDTRÅD"))>0) { i_X1=1; proc_hints();}
!! 12027  IF X>0 AND X<>7 AND S(21)>0 THEN PRINT FNS$("haltar",5);
  if(i_X>0 && i_X~=7 && (i_S_1D-->21)>0) { PrintString(fnc_FNS(decWriteString(main_str-->0,"haltar"),5));}
!! 12030  E=INSTR(1,A$," ") \ C$=FNM$(A$,E)
  i_E=decInstr(1,s_A,decWriteString(main_str-->0," "));decStrCpy(s_C,fnc_FNM(s_A,i_E));
!! 12032  IF C$="" THEN C$="" \ GOTO 12050
  .line12032; if(decStrCmp(s_C,decWriteString(main_str-->0,""))==0) { decStrCpy(s_C,decWriteString(main_str-->1,""));jump line12050;}
!! 12034  IF FNL$(C$,1)=" " THEN C$=FNM$(C$,2) \ GOTO 12032
  if(decStrCmp(fnc_FNL(s_C,1),decWriteString(main_str-->0," "))==0) { decStrCpy(s_C,fnc_FNM(s_C,2));jump line12032;}
!! 12050  S(50)=S(50)+1 \ S1=0
  .line12050; (i_S_1D-->50)=(i_S_1D-->50)+1;i_S1=0;
!! 12052  IF FNL$(A$,5)="VÄNTA" OR FNL$(A$,5)="STANN" THEN 12570
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"VÄNTA"))==0 || decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->1,"STANN"))==0) { jump line12570;}
!! 12055  IF INSTR(A$,"HELVETE")>0 THEN PRINT "Åt vilket håll är det?" \ GOTO 12210
  if(decInstr2(s_A,decWriteString(main_str-->0,"HELVETE"))>0) { print "Åt vilket håll är det?^";jump line12210;}
!! 12056  IF FNL$(A$,5)="HOPPA" THEN 12130
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"HOPPA"))==0) { jump line12130;}
!! 12057  IF FNL$(A$,6)="VRICKA" THEN 12584
  .line12057; if(decStrCmp(fnc_FNL(s_A,6),decWriteString(main_str-->0,"VRICKA"))==0) { jump line12584;}
!! 12058  IF INSTR(A$,"KNACK")>0 THEN PRINT "Ingenting händer." \ GOTO 12210
  if(decInstr2(s_A,decWriteString(main_str-->0,"KNACK"))>0) { print "Ingenting händer.^";jump line12210;}
!! 12059  IF FNL$(A$,4)="SKIT" THEN 12590
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"SKIT"))==0) { jump line12590;}
!! 12060  IF FNL$(A$,5)="SKRIK" THEN 12550
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"SKRIK"))==0) { jump line12550;}
!! 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
  if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"FAN"))==0 || decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->1,"JÄVLA"))==0 || decStrCmp(fnc_FNL(s_A,6),decWriteString(main_str-->2,"DJÄVLA"))==0 || decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->3,"SATAN"))==0) { jump line12555;}
!! 12062  IF A$="TITTA" OR A$="SE" THEN X1=1 \ S(50)=S(50)-1
  if(decStrCmp(s_A,decWriteString(main_str-->0,"TITTA"))==0 || decStrCmp(s_A,decWriteString(main_str-->1,"SE"))==0) { i_X1=1;(i_S_1D-->50)=(i_S_1D-->50)-1;}
!! 12063  IF A$="ALEA JACTA EST" THEN 12220
  if(decStrCmp(s_A,decWriteString(main_str-->0,"ALEA JACTA EST"))==0) { jump line12220;}
!! 12064  IF A$="SLUTA" THEN 9950
  if(decStrCmp(s_A,decWriteString(main_str-->0,"SLUTA"))==0) { jump line9950;}
!! 12065  IF FNL$(A$,2)="GÅ" THEN 12255
  if(decStrCmp(fnc_FNL(s_A,2),decWriteString(main_str-->0,"GÅ"))==0) { jump line12255;}
!! 12066  IF FNL$(A$,5)="BLÄND" THEN 12850
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"BLÄND"))==0) { jump line12850;}
!! 12067  IF FNL$(A$,3)="GE " THEN 28090
  if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"GE "))==0) { jump line28090;}
!! 12068  IF A$="VEKTOR" THEN 98000'%%%%% Denna rad kan tas bort
! Bortkommenterad. Senare beslut om VEKTOR ska återimplementeras!
!  if(decStrCmp(s_A,decWriteString(main_str-->0,"VEKTOR"))==0) { jump line98000;}
!! 12069  IF FNL$(A$,4)="VÄCK" AND S(6)=3 THEN 28000
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"VÄCK"))==0 && (i_S_1D-->6)==3) { jump line28000;}
!! 12070  IF FNL$(A$,5)="INVEN" THEN 8613
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"INVEN"))==0) { jump line8613;}
!! 12071  IF FNL$(A$,2)="TA" THEN 6300
  if(decStrCmp(fnc_FNL(s_A,2),decWriteString(main_str-->0,"TA"))==0) { jump line6300;}
!! 12072  IF FNL$(A$,5)="SLÄPP" THEN 7000
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"SLÄPP"))==0) { jump line7000;}
!! 12073  IF FNL$(A$,4)="FYLL" THEN 12340
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"FYLL"))==0) { jump line12340;}
!! 12074  IF FNL$(A$,5)="DRICK" THEN 12270
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"DRICK"))==0) { jump line12270;}
!! 12075  IF FNL$(A$,4)="RING" THEN 12800
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"RING"))==0) { jump line12800;}
!! 12076  IF A$="POÄNG" THEN PRINT "Du har";S(2);"poäng." \ GOTO 12210
  if(decStrCmp(s_A,decWriteString(main_str-->0,"POÄNG"))==0) { print "Du har ";print (i_S_1D-->2);print " poäng.^";jump line12210;}
!! 12077  IF FNL$(A$,4)="GRÄV" THEN 12230
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"GRÄV"))==0) { jump line12230;}
!! 12078  IF FNL$(A$,5)="SPARK" THEN 12580
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"SPARK"))==0) { jump line12580;}
!! 12079  IF FNL$(A$,4)="DÖDA" THEN 12240
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"DÖDA"))==0) { jump line12240;}
!! 12080  IF FNL$(A$,1)="?" THEN X1=1 \ S(50)=S(50)-1 \ GOSUB 91000
!WARNING: gosub skipped in line: 12080  IF FNL$(A$,1)="?" THEN X1=1 \ S(50)=S(50)-1 \ GOSUB 91000
  if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"?"))==0) { i_X1=1;(i_S_1D-->50)=(i_S_1D-->50)-1;proc_instructions();}
!! 12081  IF A$="UT" OR INSTR(1,A$," UT ")>0 OR FNL$(A$,3)="UT " OR FNR$(A$,3)=" UT" THEN 12420
  if(decStrCmp(s_A,decWriteString(main_str-->0,"UT"))==0 || decInstr(1,s_A,decWriteString(main_str-->1," UT "))>0 || decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->2,"UT "))==0 || decStrCmp(fnc_FNR(s_A,3),decWriteString(main_str-->3," UT"))==0) { jump line12420;}
!! 12082  IF FNL$(A$,5)="ÖPPNA" THEN 12440
  .line12082; if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"ÖPPNA"))==0) { jump line12440;}
!! 12083  IF FNL$(A$,5)="STÄNG" THEN 12470
  .line12083; if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"STÄNG"))==0) { jump line12470;}
!! 12084  IF FNL$(A$,3)="LÄS" THEN 12650
  .line12084; if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"LÄS"))==0) { jump line12650;}
!! 12085  IF FNL$(A$,5)="PUMPA" THEN 12900
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"PUMPA"))==0) { jump line12900;}
!! 12086  IF FNL$(A$,5)="SIMMA" OR FNL$(A$,5)="DUSCH" OR FNL$(A$,4)="BADA" THEN 12890
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"SIMMA"))==0 || decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->1,"DUSCH"))==0 || decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->2,"BADA"))==0) { jump line12890;}
!! 12087  IF FNL$(A$,4)="FÖLJ" THEN 12910
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"FÖLJ"))==0) { jump line12910;}
!! 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
  .line12088; if(decStrCmp(s_A,decWriteString(main_str-->0,"IN"))==0 || decInstr(1,s_A,decWriteString(main_str-->1," IN "))>0 || decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->2,"IN "))==0 || decStrCmp(fnc_FNR(s_A,3),decWriteString(main_str-->3," IN"))==0 || decInstr(1,s_A,decWriteString(main_str-->4,"IGENOM"))>0) { jump line12400;}
!! 12089  IF FNL$(A$,5)="KASTA" THEN PRINT "Tyvärr har kastarmen gått ur led."\GOTO 12210
  .line12089; if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"KASTA"))==0) { print "Tyvärr har kastarmen gått ur led.^";jump line12210;}

! Nyskriven kod följer:
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"VERS"))==0) {
    proc_version();
    (i_S_1D-->50)=(i_S_1D-->50)-1;
    jump line12210;
  }
  if(decStrCmp(fnc_FNL(s_A,2),decWriteString(main_str-->0,"OM"))==0 || decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"MENY"))==0) {
    proc_about_menu();
    i_X1 = 1;
    (i_S_1D-->50)=(i_S_1D-->50)-1;
    !    jump omStuga;
  }

!! 12090  IF FNL$(A$,4)="INFO" THEN 12770
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"INFO"))==0) { jump line12770;}
!! 12091  IF FNL$(A$,3)="ÅT" AND C$<>"" THEN A$=C$ \ GOTO 12214
  if(decStrCmp(fnc_FNL(s_A,3),decWriteString(main_str-->0,"ÅT "))==0 && decStrCmp(s_C,decWriteString(main_str-->1,""))~=0) { decStrCpy(s_A,s_C);jump line12214;}
!! 12092  IF FNL$(A$,5)="BEGRA" THEN 12510
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"BEGRA"))==0) { jump line12510;}
!! 12093  IF FNL$(A$,9)="KOPPLA IN" THEN 12140
  if(decStrCmp(fnc_FNL(s_A,9),decWriteString(main_str-->0,"KOPPLA IN"))==0) { jump line12140;}
!! 12094  IF FNL$(A$,9)="KOPPLA UT" OR FNL$(A$,9)="KOPPLA UR" THEN 12160
  if(decStrCmp(fnc_FNL(s_A,9),decWriteString(main_str-->0,"KOPPLA UT"))==0 || decStrCmp(fnc_FNL(s_A,9),decWriteString(main_str-->1,"KOPPLA UR"))==0) { jump line12160;}
!! 12095  IF A$="SPARA" THEN 80000'           &&&&&
  if(decStrCmp(s_A,decWriteString(main_str-->0,"SPARA"))==0) { jump line80000;}
!! 12096  IF FNL$(A$,5)="ÅTERS" THEN 80200'   &&&&&
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"ÅTERS"))==0) { jump line80200;}
!! 12097  IF FNL$(A$,4)="LOGG" THEN 12950'    &&&&&
  if(decStrCmp(fnc_FNL(s_A,4),decWriteString(main_str-->0,"LOGG"))==0) { jump line12950;}
!! 12098  FOR I=1 TO A(0)
  for(i_I=1:i_I<=(i_A_1D-->0):i_I++) {
!! 12099  IF A$(I,0)="" THEN 12103
    if(decStrCmp(((s_A_2D-->(i_I))-->0),decWriteString(main_str-->0,""))==0) { jump line12103;}
!! 12100  IF FNL$(A$,5)=FNL$(A$(I,1),5) OR A$=A$(I,1) THEN 12600
    if(decStrCmp(fnc_FNL(s_A,5),fnc_FNL(((s_A_2D-->(i_I))-->1),5))==0 || decStrCmp(s_A,((s_A_2D-->(i_I))-->1))==0) { jump line12600;}
!! 12101  IF FNL$(A$,5)=FNL$(A$(I,2),5) OR A$=A$(I,2) THEN 12600
    if(decStrCmp(fnc_FNL(s_A,5),fnc_FNL(((s_A_2D-->(i_I))-->2),5))==0 || decStrCmp(s_A,((s_A_2D-->(i_I))-->2))==0) { jump line12600;}
!! 12103  NEXT I
  .line12103; }
!! 12104  GOTO 12999
  jump line12999;
!! 12120  IF S(33)=1 THEN PRINT"Bollen är inte pumpad."\GOTO 12210
  .line12120; if((i_S_1D-->33)==1) { print "Bollen är inte pumpad.^";jump line12210;}
!! 12122  IF Z=39 AND S(48)<1 THEN X=13 \ GOTO 12999
  if(i_Z==39 && (i_S_1D-->48)<1) { i_X=13;jump line12999;}
!! 12123  PRINT "Du sparkar bollen så hårt att den försvinner."
  print "Du sparkar bollen så hårt att den försvinner.^";
!! 12124  IF A(20)=1 THEN S(1)=S(1)-1
  if((i_A_1D-->20)==1) { (i_S_1D-->1)=(i_S_1D-->1)-1;}
!! 12125  A(20)=INT(RND*92)+9
!WARNING: random argument should be adjusted in line: 12125 A(20)=INT(RND*92)+9
!WARNING: int function skipped in line: 12125 A(20)=INT(RND*92)+9
  (i_A_1D-->20)=random(92)+8;
!! 12126  GOTO 12210
  jump line12210;
!! 12130  IF INSTR(A$,"VATTEN")>0 OR INSTR(A$,"VATTNET")>0 THEN 12890
  .line12130; if(decInstr2(s_A,decWriteString(main_str-->0,"VATTEN"))>0 || decInstr2(s_A,decWriteString(main_str-->1,"VATTNET"))>0) { jump line12890;}
!! 12132  IF S(36)<>0 THEN 12057
  if((i_S_1D-->36)~=0) { jump line12057;}
!! 12134  IF C$="UPP" OR C$="UPPÅT" THEN X=1 ELSE X=2
  if(decStrCmp(s_C,decWriteString(main_str-->0,"UPP"))==0 || decStrCmp(s_C,decWriteString(main_str-->1,"UPPÅT"))==0) { i_X=1; } else {i_X=2; }
!! 12136  GOTO 12999
  jump line12999;
!! 12140  IF J(Z)<>1 AND S(44)<>Z THEN PRINT "Det finns ingen jack här." \ GOTO 12210'KOPPLA IN
  .line12140; if((i_J_1D-->(i_Z))~=1 && (i_S_1D-->44)~=i_Z) { print "Det finns ingen jack här.^";jump line12210;}
!! 12142  IF LEN(A$)>10 THEN A$=FNM$(A$,11) ELSE A$=FNC$(FNI$("Vad vill du koppla in ?"))
  if(StrLen(s_A)>10) { decStrCpy(s_A,fnc_FNM(s_A,11)); } else {decStrCpy(s_A,fnc_FNC(fnc_FNI(decWriteString(main_str-->0,"Vad vill du koppla in ?")))); }
!! 12144  IF FNL$(A$,5)="TELEF" THEN I=25 ELSE I=0
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"TELEF"))==0) { i_I=25; } else {i_I=0; }
!! 12146  IF FNL$(A$,5)="FÖRLÄ" OR FNL$(A$,5)="SLADD" THEN I=30
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"FÖRLÄ"))==0 || decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->1,"SLADD"))==0) { i_I=30;}
!! 12148  IF I=0 THEN PRINT "Det kan man inte koppla in." \ GOTO 12210
  if(i_I==0) { print "Det kan man inte koppla in.^";jump line12210;}
!! 12150  GOTO 7030
  jump line7030;
!! 12160  IF LEN(A$)>10 THEN A$=FNM$(A$,11) ELSE 12170'KOPPLA UR
  .line12160; if(StrLen(s_A)>10) { decStrCpy(s_A,fnc_FNM(s_A,11)); } else {jump line12170; }
!! 12162  IF FNL$(A$,5)="TELEF" THEN I=25 ELSE I=0
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"TELEF"))==0) { i_I=25; } else {i_I=0; }
!! 12164  IF FNL$(A$,5)="FÖRLÄ" OR FNL$(A$,5)="SLADD" THEN I=30
  if(decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->0,"FÖRLÄ"))==0 || decStrCmp(fnc_FNL(s_A,5),decWriteString(main_str-->1,"SLADD"))==0) { i_I=30;}
!! 12166  IF (I=30 AND S(44)=Z) OR (I>0 AND J(Z)=1) THEN 6410
  if((i_I==30 && (i_S_1D-->44)==i_Z) || (i_I>0 && (i_J_1D-->(i_Z))==1)) { jump line6410;}
!! 12168  PRINT "Det finns inget inkopplat i jacken." \ GOTO 12210
  print "Det finns inget inkopplat i jacken.^";jump line12210;
!! 12170  IF S(44)=Z THEN I=30 \ GOTO 6410
  .line12170; if((i_S_1D-->44)==i_Z) { i_I=30;jump line6410;}
!! 12172  IF J(Z)<>1 THEN PRINT "Det finns ingen jack här." \ GOTO 12210
  if((i_J_1D-->(i_Z))~=1) { print "Det finns ingen jack här.^";jump line12210;}
!! 12174  IF A(25)=Z THEN I=25 \ GOTO 6410
  if((i_A_1D-->25)==i_Z) { i_I=25;jump line6410;}
!! 12176  IF A(30)=Z THEN I=30 \ GOTO 6410
  if((i_A_1D-->30)==i_Z) { i_I=30;jump line6410;}
!! 12178  PRINT "Ingenting är inkopplat i jacken." \ GOTO 12210
  print "Ingenting är inkopplat i jacken.^";jump line12210;
!! 12200  REM'XXXXX ALLMÄN GOSUBRUTIN XXXXXX
  .line12200; !=== 'XXXXX ALLMÄN GOSUBRUTIN XXXXXX
!! 12201  GOSUB 6000
!WARNING: gosub skipped in line: 12201  GOSUB 6000
  proc_print_objects();
!! 12202  PRINT
  .line12202; new_line;
!! 12203  IF S1<2 THEN A$=FNI$("") \ PRINT
!  if(i_S1<2) { decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"")));new_line;}
  if(i_S1<2) { proc_receive_input();new_line;}

!! 12204  GOSUB 12000
!WARNING: gosub skipped in line: 12204  GOSUB 12000
  jump line12000;
!! 12208  RETURN
!  return;
!! 12210  PRINT'XXXX INMATNINGSRUTIN XXXX
  .line12210; new_line;
!! 12211  IF S(49)=0 AND S(30)=Z AND Z<>96 THEN X1=1 \ GOTO 30000
  if((i_S_1D-->49)==0 && (i_S_1D-->30)==i_Z && i_Z~=96) { i_X1=1;jump line30000;}
!! 12212  IF S<9 AND Z=60 THEN 12999
  if(i_S<9 && i_Z==60) { jump line12999;}
!! 12213  A$=FNI$("")
!  decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"")));
  proc_receive_input();
!! 12214  PRINT
  .line12214; new_line;
!! 12215  IF S(36)=1 THEN 8600 ELSE 12000
  if((i_S_1D-->36)==1) { jump line8600; } else {jump line12000; }
!! 12220  IF A(10)=5 OR A(10)=53 THEN PRINT "Ingenting händer." \ GOTO 12210
  .line12220; if((i_A_1D-->10)==5 || (i_A_1D-->10)==53) { print "Ingenting händer.^";jump line12210;}
!! 12223  IF A(10)=1 THEN 12226
  if((i_A_1D-->10)==1) { jump line12226;}
!! 12224  IF Z=53 THEN PRINT "Nu hänger lagerkransen på väggen." ELSE PRINT "Ok."
  .line12224; if(i_Z==53) { print "Nu hänger lagerkransen på väggen.^"; } else {print "Ok.^"; }
!! 12225  A(10)=53 \ GOTO 12210
  (i_A_1D-->10)=53;jump line12210;
!! 12226  S(1)=S(1)-1 \ A(10)=53
  .line12226; (i_S_1D-->1)=(i_S_1D-->1)-1;(i_A_1D-->10)=53;
!! 12227  IF Z=53 THEN 12224
  if(i_Z==53) { jump line12224;}
!! 12228  PRINT "Lagerkransen försvinner." \ GOTO 12210
  print "Lagerkransen försvinner.^";jump line12210;
!! 12230  IF A(21)<>1 THEN PRINT "Du har ingenting du kan gräva med." \ GOTO 12210
  .line12230; if((i_A_1D-->21)~=1) { print "Du har ingenting du kan gräva med.^";jump line12210;}
!! 12232  IF Z<>77 THEN PRINT "Marken är för hård." \ GOTO 12210
  if(i_Z~=77) { print "Marken är för hård.^";jump line12210;}
!! 12234  IF S(20)=1 THEN PRINT "Platsen är redan helt utgrävd." \ GOTO 12210
  if((i_S_1D-->20)==1) { print "Platsen är redan helt utgrävd.^";jump line12210;}
!! 12236  X=13 \ GOTO 12999
  i_X=13;jump line12999;
!! 12240  IF FNL$(C$,5)="GUBBE" OR (C$="" AND S(30)=Z) THEN 30050
  .line12240; if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"GUBBE"))==0 || (decStrCmp(s_C,decWriteString(main_str-->1,""))==0 && (i_S_1D-->30)==i_Z)) { jump line30050;}
!! 12242  IF FNL$(C$,4)="VAKT" OR (C$="" AND (A(29)=Z OR A(29)=1)) THEN 28010
  if(decStrCmp(fnc_FNL(s_C,4),decWriteString(main_str-->0,"VAKT"))==0 || (decStrCmp(s_C,decWriteString(main_str-->1,""))==0 && ((i_A_1D-->29)==i_Z || (i_A_1D-->29)==1))) { jump line28010;}
!! 12248  PRINT "Det finns inget du kan döda här." \ GOTO 12210
  print "Det finns inget du kan döda här.^";jump line12210;
!! 12255  IF C$<>"" THEN A$=C$ \ GOTO 12214
  .line12255; if(decStrCmp(s_C,decWriteString(main_str-->0,""))~=0) { decStrCpy(s_A,s_C);jump line12214;}
!! 12260  PRINT "Åt vilket håll?"
  print "Åt vilket håll?^";
!! 12261  A$=FNI$("")
  decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"")));
!! 12262  GOTO 12214
  jump line12214;
!! 12270  IF FNL$(C$,5)="BRÄNN" THEN 12280
  .line12270; if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"BRÄNN"))==0) { jump line12280;}
!! 12272  IF FNL$(C$,5)="VATTE" THEN 12282
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"VATTE"))==0) { jump line12282;}
!! 12274  IF C$<>"" THEN GOSUB 11000 \ GOTO 12210
!WARNING: gosub skipped in line: 12274  IF C$<>"" THEN GOSUB 11000 \ GOTO 12210
  if(decStrCmp(s_C,decWriteString(main_str-->0,""))~=0) { proc_print_err_msg();jump line12210;}
!! 12276  C$=FNI$("Drick vad ?")
  decStrCpy(s_C,fnc_FNI(decWriteString(main_str-->0,"Drick vad ?")));
!! 12278  C$=FNC$(C$) \ GOTO 12270
  decStrCpy(s_C,fnc_FNC(s_C));jump line12270;
!! 12280  IF A(18)=1 AND S(31)=0 THEN 12310 ELSE 12306
  .line12280; if((i_A_1D-->18)==1 && (i_S_1D-->31)==0) { jump line12310; } else {jump line12306; }
!! 12282  IF A(19)=1 AND S(32)=0 THEN 12292
  .line12282; if((i_A_1D-->19)==1 && (i_S_1D-->32)==0) { jump line12292;}
!! 12284  IF Z=25 OR Z=33 OR Z=49 OR Z=50 OR Z=66 OR Z=70 THEN 12296
  if(i_Z==25 || i_Z==33 || i_Z==49 || i_Z==50 || i_Z==66 || i_Z==70) { jump line12296;}
!! 12286  IF Z=72 OR Z=74 OR Z=78 OR Z=79 OR Z=83 OR Z=87 OR Z=88 THEN 12296
  if(i_Z==72 || i_Z==74 || i_Z==78 || i_Z==79 || i_Z==83 || i_Z==87 || i_Z==88) { jump line12296;}
!! 12288  IF Z=91 THEN PRINT "Du dricker ur vattenfallet." \ GOTO 12300
  if(i_Z==91) { print "Du dricker ur vattenfallet.^";jump line12300;}
!! 12290  PRINT "Jag ser inget VATTEN här." \ GOTO 12210
  .line12290; print "Jag ser inget VATTEN här.^";jump line12210;
!! 12292  PRINT "Du dricker ur vattenflaskan."
  .line12292; print "Du dricker ur vattenflaskan.^";
!! 12294  S(32)=1 \ GOTO 12300
  (i_S_1D-->32)=1;jump line12300;
!! 12296  PRINT "Du dricker ur sjön."
  .line12296; print "Du dricker ur sjön.^";
!! 12300  PRINT "Klunk...klunk...klunk......AHHHH!"
  .line12300; print "Klunk...klunk...klunk......AHHHH!^";
!! 12302  GOTO 12210
  jump line12210;
!! 12306  PRINT "Jag ser inget BRÄNNVIN här." \ GOTO 12210
  .line12306; print "Jag ser inget BRÄNNVIN här.^";jump line12210;
!! 12310  PRINT "Du dricker ur brännvinsflaskan."
  .line12310; print "Du dricker ur brännvinsflaskan.^";
!! 12312  PRINT "Klunk...klunk...klunk......HICK  !"
  print "Klunk...klunk...klunk......HICK  !^";
!! 12314  FOR I=1 TO 9
  for(i_I=1:i_I<=9:i_I++) {
!! 12316  S=SLEEP(3)
    i_S=decSleep(3);
!! 12318  PRINT TAB(INT(RND*66)+1);"HICK  !"
!WARNING: random argument should be adjusted in line: 12318 PRINT TAB(INT(RND*66)+1);"HICK  !"
!WARNING: int function skipped in line: 12318 PRINT TAB(INT(RND*66)+1);"HICK  !"
    PrintString(decTab(main_str-->0,random(66)));print "HICK  !^";
!! 12320  NEXT I
  }
!! 12322  PRINT \ S(31)=1
  new_line;(i_S_1D-->31)=1;
!! 12324  PRINT "Nu hoppas jag att vi har nyktrat till så pass att vi kan fortsätta!"
  print "Nu hoppas jag att vi har nyktrat till så pass att vi kan fortsätta!^";
!! 12326  PRINT \ GOTO 12210
  new_line;jump line12210;
!! 12340  IF FNL$(C$,5)="GUBBE" OR (C$="" AND S(30)=Z) THEN 30010
  .line12340; if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"GUBBE"))==0 || (decStrCmp(s_C,decWriteString(main_str-->1,""))==0 && (i_S_1D-->30)==i_Z)) { jump line30010;}
!! 12341  IF FNL$(C$,4)="VAKT" OR (C$="" AND (A(29)=Z OR A(29)=1)) THEN 12360
  if(decStrCmp(fnc_FNL(s_C,4),decWriteString(main_str-->0,"VAKT"))==0 || (decStrCmp(s_C,decWriteString(main_str-->1,""))==0 && ((i_A_1D-->29)==i_Z || (i_A_1D-->29)==1))) { jump line12360;}
!! 12342  IF INSTR(1,C$,"BRÄNN")>0 THEN 12306
  if(decInstr(1,s_C,decWriteString(main_str-->0,"BRÄNN"))>0) { jump line12306;}
!! 12344  IF INSTR(1,C$,"VATTE")>0 THEN 12380
  if(decInstr(1,s_C,decWriteString(main_str-->0,"VATTE"))>0) { jump line12380;}
!! 12346  IF C$="FYLL" OR INSTR(1,C$,"FLASKA")>0 THEN 12350
  if(decStrCmp(s_C,decWriteString(main_str-->0,"FYLL"))==0 || decInstr(1,s_C,decWriteString(main_str-->1,"FLASKA"))>0) { jump line12350;}
!! 12348  GOSUB 11000 \ GOTO 12210
!WARNING: gosub skipped in line: 12348  GOSUB 11000 \ GOTO 12210
  proc_print_err_msg();jump line12210;
!! 12350  IF A(18)=1 OR A(19)=1 THEN C$=FNI$("Fyll med vad ?")\C$=FNC$(C$)\GOTO 12340
  .line12350; if((i_A_1D-->18)==1 || (i_A_1D-->19)==1) { decStrCpy(s_C,fnc_FNI(decWriteString(main_str-->0,"Fyll med vad ?")));decStrCpy(s_C,fnc_FNC(s_C));jump line12340;}
!! 12354  PRINT "Du har ju ingen flaska!" \ GOTO 12210
  print "Du har ju ingen flaska!^";jump line12210;
!! 12360  IF A(29)<>Z AND A(29)<>1 THEN PRINT "Jag ser ingen VAKT här."\GOTO 12210
  .line12360; if((i_A_1D-->29)~=i_Z && (i_A_1D-->29)~=1) { print "Jag ser ingen VAKT här.^";jump line12210;}
!! 12361  IF S(6)=2 THEN PRINT "Vakten är ju död." \ GOTO 12210
  if((i_S_1D-->6)==2) { print "Vakten är ju död.^";jump line12210;}
!! 12362  IF S(6)=3 THEN PRINT "Han sover för djupt." \ GOTO 12210
  if((i_S_1D-->6)==3) { print "Han sover för djupt.^";jump line12210;}
!! 12364  IF A(18)<>1 THEN PRINT "Du har inget att fylla honom med." \ GOTO 12210
  if((i_A_1D-->18)~=1) { print "Du har inget att fylla honom med.^";jump line12210;}
!! 12366  IF S(31)=1 THEN PRINT "Din brännvinsflaska är tom." \ GOTO 12210
  if((i_S_1D-->31)==1) { print "Din brännvinsflaska är tom.^";jump line12210;}
!! 12368  S(31)=1 \ S(51)=S(50)
  (i_S_1D-->31)=1;(i_S_1D-->51)=(i_S_1D-->50);
!! 12370  PRINT "Vakten dricker upp ditt brännvin i en enda klunk."
  print "Vakten dricker upp ditt brännvin i en enda klunk.^";
!! 12372  IF S(6)=0 THEN S(6)=1 \ GOTO 12210
  if((i_S_1D-->6)==0) { (i_S_1D-->6)=1;jump line12210;}
!! 12374  PRINT "Den nu redlöst fulle vakten ramlar ihop i en hög på golvet och somnar."
  print "Den nu redlöst fulle vakten ramlar ihop i en hög på golvet och somnar.^";
!! 12376  S(6)=3 \ A(29)=Z
  (i_S_1D-->6)=3;(i_A_1D-->29)=i_Z;
!! 12378  GOTO 12210
  jump line12210;
!! 12380  IF A(19)<>1 THEN PRINT "Du bär ingen vattenflaska som du kan fylla."\GOTO 12210
  .line12380; if((i_A_1D-->19)~=1) { print "Du bär ingen vattenflaska som du kan fylla.^";jump line12210;}
!! 12382  IF S(32)=0 THEN PRINT "Din vattenflaska är så full den kan bli." \ GOTO 12210
  if((i_S_1D-->32)==0) { print "Din vattenflaska är så full den kan bli.^";jump line12210;}
!! 12384  IF Z=25 OR Z=33 OR Z=49 OR Z=50 OR Z=66 OR Z=70 OR Z=72 THEN 12390
  if(i_Z==25 || i_Z==33 || i_Z==49 || i_Z==50 || i_Z==66 || i_Z==70 || i_Z==72) { jump line12390;}
!! 12386  IF Z=74 OR Z=78 OR Z=79 OR Z=83 OR Z=87 OR Z=88 OR Z=91 THEN 12390
  if(i_Z==74 || i_Z==78 || i_Z==79 || i_Z==83 || i_Z==87 || i_Z==88 || i_Z==91) { jump line12390;}
!! 12388  GOTO 12290
  jump line12290;
!! 12390  PRINT "Du fyller vattenflaskan med vatten från ";
  .line12390; print "Du fyller vattenflaskan med vatten från ";
!! 12392  IF Z=91 THEN PRINT "vattenfallet." ELSE PRINT "sjön."
  if(i_Z==91) { print "vattenfallet.^"; } else {print "sjön.^"; }
!! 12394  S(32)=0 \ GOTO 12210
  (i_S_1D-->32)=0;jump line12210;
!! 12400  IF Z=81 THEN X=3
  .line12400; if(i_Z==81) { i_X=3;}
!! 12402  IF Z=50 THEN X=4
  if(i_Z==50) { i_X=4;}
!! 12404  IF Z=99 OR Z=55 THEN X=5
  if(i_Z==99 || i_Z==55) { i_X=5;}
!! 12406  IF Z=30 THEN S(23)=1 \ PRINT "I garderoben hittar du ett kassaskåp." \ GOTO 12210
  if(i_Z==30) { (i_S_1D-->23)=1;print "I garderoben hittar du ett kassaskåp.^";jump line12210;}
!! 12408  IF X>0 THEN 12999 ELSE 12089
  if(i_X>0) { jump line12999; } else {jump line12089; }
!! 12420  IF Z=8 OR Z=51 OR Z=100 THEN X=6
  .line12420; if(i_Z==8 || i_Z==51 || i_Z==100) { i_X=6;}
!! 12428  IF X>0 THEN 12999 ELSE 12082
  if(i_X>0) { jump line12999; } else {jump line12082; }
!! 12440  IF Z=81 OR Z=8 THEN 12450
  .line12440; if(i_Z==81 || i_Z==8) { jump line12450;}
!! 12442  IF Z=30 THEN 12456
  if(i_Z==30) { jump line12456;}
!! 12444  IF Z=62 AND S(7)=0 THEN PRINT "Porten är låst." \ GOTO 12210
  if(i_Z==62 && (i_S_1D-->7)==0) { print "Porten är låst.^";jump line12210;}
!! 12448  GOTO 12083
  jump line12083;
!! 12450  IF S(19)=1 THEN PRINT "Dörren är ju redan öppen!"
  .line12450; if((i_S_1D-->19)==1) { print "Dörren är ju redan öppen!^";}
!! 12452  IF S(19)<>1 THEN PRINT "Dörren öppnas med ett gnäll   ."
  if((i_S_1D-->19)~=1) { print "Dörren öppnas med ett gnäll   .^";}
!! 12454  S(19)=1 \ X=19 \ GOTO 12999
  (i_S_1D-->19)=1;i_X=19;jump line12999;
!! 12456  IF INSTR(1,A$,"GARDE")>0 OR (C$="" AND S(23)=0) THEN 12466
  .line12456; if(decInstr(1,s_A,decWriteString(main_str-->0,"GARDE"))>0 || (decStrCmp(s_C,decWriteString(main_str-->1,""))==0 && (i_S_1D-->23)==0)) { jump line12466;}
!! 12458  IF INSTR(1,A$,"KASSA")=0 AND C$<>"" THEN 12083
  if(decInstr(1,s_A,decWriteString(main_str-->0,"KASSA"))==0 && decStrCmp(s_C,decWriteString(main_str-->1,""))~=0) { jump line12083;}
!! 12460  IF Z=31 THEN PRINT "Kassaskåpet är redan öppet." \ GOTO 12210
  if(i_Z==31) { print "Kassaskåpet är redan öppet.^";jump line12210;}
!! 12464  PRINT "Dörren är utan handtag och lås." \ GOTO 12210
  print "Dörren är utan handtag och lås.^";jump line12210;
!! 12466  IF S(23)=1 THEN PRINT "Garderoben är redan öppen." \ GOTO 12210
  .line12466; if((i_S_1D-->23)==1) { print "Garderoben är redan öppen.^";jump line12210;}
!! 12468  PRINT "Du öppnar garderoben och hittar ett litet kassaskåp där."
  print "Du öppnar garderoben och hittar ett litet kassaskåp där.^";
!! 12469  S(23)=1 \ GOTO 12210
  (i_S_1D-->23)=1;jump line12210;
!! 12470  IF Z=30 THEN 12480
  .line12470; if(i_Z==30) { jump line12480;}
!! 12472  IF Z=31 THEN 12486
  if(i_Z==31) { jump line12486;}
!! 12478  GOTO 12084
  jump line12084;
!! 12480  IF S(23)=0 THEN PRINT "Garderoben är redan stängd." \ GOTO 12210
  .line12480; if((i_S_1D-->23)==0) { print "Garderoben är redan stängd.^";jump line12210;}
!! 12482  PRINT "Ok." \ S(23)=0 \ GOTO 12210
  print "Ok.^";(i_S_1D-->23)=0;jump line12210;
!! 12486  IF INSTR(1,A$,"GARDE")>0 OR (C$="" AND S(23)=1) THEN 12494
  .line12486; if(decInstr(1,s_A,decWriteString(main_str-->0,"GARDE"))>0 || (decStrCmp(s_C,decWriteString(main_str-->1,""))==0 && (i_S_1D-->23)==1)) { jump line12494;}
!! 12488  IF INSTR(1,A$,"KASSA")=0 AND C$<>"" THEN 12084
  if(decInstr(1,s_A,decWriteString(main_str-->0,"KASSA"))==0 && decStrCmp(s_C,decWriteString(main_str-->1,""))~=0) { jump line12084;}
!! 12490  PRINT "Kassaskåpet stängs sakta."
  print "Kassaskåpet stängs sakta.^";
!! 12492  Z=30 \ GOTO 12999
  .line12492; i_Z=30;jump line12999;
!! 12494  PRINT "Kassaskåpet och garderoben stängs."
  .line12494; print "Kassaskåpet och garderoben stängs.^";
!! 12496  S(23)=0 \ GOTO 12492
  (i_S_1D-->23)=0;jump line12492;
!! 12510  IF Z<>63 AND Z<>61 THEN PRINT "Marken är för hård!" \ GOTO 12210
  .line12510; if(i_Z~=63 && i_Z~=61) { print "Marken är för hård!^";jump line12210;}
!! 12512  IF FNL$(C$,3)<>"LIK" AND FNL$(C$,4)<>"VAKT" AND (C$="" AND A(22)<>1) THEN 12526
  if(decStrCmp(fnc_FNL(s_C,3),decWriteString(main_str-->0,"LIK"))~=0 && decStrCmp(fnc_FNL(s_C,4),decWriteString(main_str-->1,"VAKT"))~=0 && (decStrCmp(s_C,decWriteString(main_str-->2,""))==0 && (i_A_1D-->22)~=1)) { jump line12526;}
!! 12514  IF A(29)=1 OR A(29)=Z THEN PRINT "Du kan inte begrava en levande!" \ GOTO 12210
  if((i_A_1D-->29)==1 || (i_A_1D-->29)==i_Z) { print "Du kan inte begrava en levande!^";jump line12210;}
!! 12516  IF A(22)<>1 AND A(22)<>Z THEN PRINT "Du har inget sånt att begrava!" \ GOTO 12210
  if((i_A_1D-->22)~=1 && (i_A_1D-->22)~=i_Z) { print "Du har inget sånt att begrava!^";jump line12210;}
!! 12518  IF A(22)=63 THEN PRINT "Liket är redan begravt!" \ GOTO 12210
  if((i_A_1D-->22)==63) { print "Liket är redan begravt!^";jump line12210;}
!! 12520  IF A(22)=1 THEN S(1)=S(1)-1
  if((i_A_1D-->22)==1) { (i_S_1D-->1)=(i_S_1D-->1)-1;}
!! 12522  A(22)=63 \ S(2)=S(2)+25 \ S(52)=S(50)
  (i_A_1D-->22)=63;(i_S_1D-->2)=(i_S_1D-->2)+25;(i_S_1D-->52)=(i_S_1D-->50);
!! 12524  PRINT "Ok." \ GOTO 12210
  print "Ok.^";jump line12210;
!! 12526  PRINT "Man kan bara begrava lik!" \ GOTO 12210
  .line12526; print "Man kan bara begrava lik!^";jump line12210;
!! 12550  I=INSTR(A$," ")'================== SKRIK
  .line12550; i_I=decInstr2(s_A,decWriteString(main_str-->0," "));
!! 12551  IF I=0 OR I=LEN(A$) THEN PRINT "AAAAAAARRRRRRRRRR GHHHHH  H!" ELSE PRINT "Ok. ";FNM$(A$,I+1)
  if(i_I==0 || i_I==StrLen(s_A)) { print "AAAAAAARRRRRRRRRR GHHHHH  H!^"; } else {print "Ok. ";PrintString(fnc_FNM(s_A,i_I+1));new_line; }
!! 12553  GOTO 12210
  jump line12210;
!! 12555  '====================================================SVÄRORD============
  .line12555; !=== ====================================================SVÄRORD============
!! 12557  PRINT "Vilket språk!"
  print "Vilket språk!^";
!! 12559  GOTO 12210
  jump line12210;
!! 12570  '==========================================VÄNTA===========STANNA=======
  .line12570; !=== ==========================================VÄNTA===========STANNA=======
!! 12572  PRINT"Ok.";FNS$("väntar",10)
  print "Ok.";PrintString(fnc_FNS(decWriteString(main_str-->0,"väntar"),10));new_line;
!! 12574  IF Z=37 THEN 12999 ELSE PRINT "Så där ja!"
  if(i_Z==37) { jump line12999; } else {print "Så där ja!^"; }
!! 12576  GOTO 12210
  jump line12210;
!! 12580  IF S(21)>0 THEN PRINT"Du kan inte sparka något med vrickade fötter!"\GOTO 12210
  .line12580; if((i_S_1D-->21)>0) { print "Du kan inte sparka något med vrickade fötter!^";jump line12210;}
!! 12582  IF (FNL$(C$,4)="BOLL" OR C$="") AND (A(20)=Z OR A(20)=1) THEN 12120
  if((decStrCmp(fnc_FNL(s_C,4),decWriteString(main_str-->0,"BOLL"))==0 || decStrCmp(s_C,decWriteString(main_str-->1,""))==0) && ((i_A_1D-->20)==i_Z || (i_A_1D-->20)==1)) { jump line12120;}
!! 12584  PRINT"AJ! Du vrickar dina fötter."
  .line12584; print "AJ! Du vrickar dina fötter.^";
!! 12586  S(21)=S(50)
  (i_S_1D-->21)=(i_S_1D-->50);
!! 12588  GOTO 12210
  jump line12210;
!! 12590  IF Z<>23 THEN PRINT "Ok." \ GOTO 12210
  .line12590; if(i_Z~=23) { print "Ok.^";jump line12210;}
!! 12592  PRINT "Oj! Du ramlar själv ner i toaletten." \ A$="SPOLA"
  print "Oj! Du ramlar själv ner i toaletten.^";decStrCpy(s_A,decWriteString(main_str-->0,"SPOLA"));
!! 12594  GOTO 12999
  jump line12999;
!! 12600  PRINT "Vad vill du göra med ";A$(I,3);"?"
  .line12600; print "Vad vill du göra med ";PrintString(((s_A_2D-->(i_I))-->3));print "?^";
!! 12601  A1$=FNI$("") \ A$=A1$+" "+A$(I,0)
  decStrCpy(s_A1,fnc_FNI(decWriteString(main_str-->0,"")));decStrCpy(s_A,decStrCat(decStrCat(s_A1,decWriteString(main_str-->1," ")),((s_A_2D-->(i_I))-->0)));
!! 12610  GOTO 12214
  jump line12214;
!! 12650  IF INSTR(1,A$,"KATAL")>0 THEN 12670
  .line12650; if(decInstr(1,s_A,decWriteString(main_str-->0,"KATAL"))>0) { jump line12670;}
!! 12652  IF INSTR(1,A$,"KONTR")>0 THEN 12700
  if(decInstr(1,s_A,decWriteString(main_str-->0,"KONTR"))>0) { jump line12700;}
!! 12654  IF INSTR(1,A$,"TRILO")>0 THEN 12710
  if(decInstr(1,s_A,decWriteString(main_str-->0,"TRILO"))>0) { jump line12710;}
!! 12655  IF INSTR(1,A$,"LOGGF")>0 THEN 12975'&&&&&
  if(decInstr(1,s_A,decWriteString(main_str-->0,"LOGGF"))>0) { jump line12975;}
!! 12656  IF INSTR(1,A$,"KLOCK")>0 THEN 12740
  if(decInstr(1,s_A,decWriteString(main_str-->0,"KLOCK"))>0) { jump line12740;}
!! 12657  IF INSTR(1,A$,"GRAV")>0 OR INSTR(1,A$,"STEN")>0 THEN 12750
  if(decInstr(1,s_A,decWriteString(main_str-->0,"GRAV"))>0 || decInstr(1,s_A,decWriteString(main_str-->1,"STEN"))>0) { jump line12750;}
!! 12658  IF A$<>"LÄS" THEN GOSUB 11000 \ GOTO 12210
!WARNING: gosub skipped in line: 12658  IF A$<>"LÄS" THEN GOSUB 11000 \ GOTO 12210
  if(decStrCmp(s_A,decWriteString(main_str-->0,"LÄS"))~=0) { proc_print_err_msg();jump line12210;}
!! 12660  A$=FNI$("Vad vill du läsa ?") \ A$=FNC$(A$) \ GOTO 12650
  decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Vad vill du läsa ?")));decStrCpy(s_A,fnc_FNC(s_A));jump line12650;
!! 12670  IF A(23)<>1 AND A(23)<>Z THEN PRINT "Jag ser ingen KATALOG här." \ GOTO 12210
  .line12670; if((i_A_1D-->23)~=1 && (i_A_1D-->23)~=i_Z) { print "Jag ser ingen KATALOG här.^";jump line12210;}
!! 12672  PRINT
  new_line;
style fixed;
!! 12674  PRINT "    TELEFONKATALOG ÖVER STUGAN"
  print "    TELEFONKATALOG ÖVER STUGAN^";
!! 12676  PRINT "Telefonnr:    Abonnent:"
  print "Telefonnr:    Abonnent:^";
!! 12678  PRINT "   000        Stugas televerk"
  print "   000        Stugas televerk^";
!! 12680  PRINT "   100        Stugan"
  print "   100        Stugan^";
!! 12682  PRINT "   307        Hissreparatören"
  print "   307        Hissreparatören^";
!! 12684  PRINT "   323        Glasmästaren"
  print "   323        Glasmästaren^";
!! 12686  PRINT "   405        Personalköket"
  print "   405        Personalköket^";
!! 12688  PRINT "   481        Vakten"
  print "   481        Vakten^";
!! 12690  PRINT "   999        Larmcentralen"
  print "   999        Larmcentralen^";
style roman;
!! 12698  GOTO 12210
  jump line12210;
!! 12700  IF A(9)<>1 AND A(9)<>Z THEN PRINT "Jag ser inget KONTRAKT här."\GOTO 12210
  .line12700; if((i_A_1D-->9)~=1 && (i_A_1D-->9)~=i_Z) { print "Jag ser inget KONTRAKT här.^";jump line12210;}
!! 12702  PRINT "Tyvärr är kontraktet skrivet med Kermits oläsliga handstil."
  print "Tyvärr är kontraktet skrivet med Kermits oläsliga handstil.^";
!! 12704  PRINT \ GOTO 12210
  new_line;jump line12210;
!! 12710  IF A(8)<>1 AND A(8)<>Z THEN PRINT "Jag ser ingen TRILOGI här." \ GOTO 12210
  .line12710; if((i_A_1D-->8)~=1 && (i_A_1D-->8)~=i_Z) { print "Jag ser ingen TRILOGI här.^";jump line12210;}
!! 12712  PRINT \ PRINT
  new_line;new_line;
!! 12714  PRINT "Tre ringar för älvkungarnas makt högt i det blå,"
  print "Tre ringar för älvkungarnas makt högt i det blå,^";
!! 12716  PRINT "sju för dvärgarnas furstar i salarna av sten,"
  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å,"
  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"
  print "en för Mörkrets herre i ondskans dunkla sken^";
!! 12722  PRINT "i Mordorslandets hisnande gruva."
  print "i Mordorslandets hisnande gruva.^";
!! 12724  PRINT \ PRINT "En ring att sämja dem,"
  print "^En ring att sämja dem,^";
!! 12726  PRINT "en ring att främja dem,"
  print "en ring att främja dem,^";
!! 12728  PRINT "en ring att djupt i mörkrets"
  print "en ring att djupt i mörkrets^";
!! 12730  PRINT "vida riken tämja dem -"
  print "vida riken tämja dem -^";
!! 12732  PRINT "i Mordors land, där skuggorna ruva..."
  print "i Mordors land, där skuggorna ruva...^";
!! 12734  PRINT \ PRINT
  new_line;new_line;
!! 12736  GOTO 12210
  jump line12210;
!! 12740  IF A(6)<>1 AND A(6)<>Z THEN PRINT "Jag ser ingen KLOCKA här."\GOTO 12210
  .line12740; if((i_A_1D-->6)~=1 && (i_A_1D-->6)~=i_Z) { print "Jag ser ingen KLOCKA här.^";jump line12210;}
!! 12742  PRINT TIME$
  PrintString(decTime(main_str-->0));new_line;
!! 12744  GOTO 12210
  jump line12210;
!! 12750  IF Z<>61 THEN PRINT "Jag ser ingen GRAVSTEN här." \ GOTO 12210
  .line12750; if(i_Z~=61) { print "Jag ser ingen GRAVSTEN här.^";jump line12210;}
!! 12752  IF LEN(W$(6))=0 THEN PRINT "Gravstenen är tom." \ GOTO 12210
  if(StrLen((s_W_1D-->6)-->0)==0) { print "Gravstenen är tom.^";jump line12210;}
!! 12754  PRINT "Här vilar sej ";W$(6);"." \ PRINT
  print "Här vilar sej ";PrintString((s_W_1D-->6)-->0);print ".^^";
!! 12756  PRINT W$(6);" försvann in i ett okänt hus klockan ";W$(3);
  PrintString((s_W_1D-->6)-->0);print " försvann in i ett okänt hus klockan ";PrintString((s_W_1D-->3)-->0);
!! 12757  IF W$(4)=DATE$ THEN PRINT ELSE PRINT " ";W$(4)
  if(decStrCmp((s_W_1D-->4)-->0,decDate(main_str-->0))==0) { new_line; } else {print " ";PrintString((s_W_1D-->4)-->0);new_line; }
!! 12758  PRINT "och sågs aldrig mer."
  print "och sågs aldrig mer.^";
!! 12760  PRINT \ GOTO 12210
  new_line;jump line12210;
!! 12770  PRINT "INFORMATION OM VISSA KOMMANDON:"
  .line12770; print "INFORMATION OM VISSA KOMMANDON:^";
!! 12772  PRINT "Förflyttning inomhus:"
  print "Förflyttning inomhus:^";
!! 12774  PRINT "UPPÅT, NERÅT, FRAMÅT, BAKÅT, VÄNSTER, HÖGER (U, N, F, B, V, H)"
  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:"
  print "Förflyttning utanför huset:^";
!! 12778  PRINT "NORR, SÖDER, VÄSTER, ÖSTER (N, S, V, Ö) NV, NÖ, SV, SÖ"
  print "NORR, SÖDER, VÄSTER, ÖSTER (N, S, V, Ö) NV, NÖ, SV, SÖ^";
!! 12780  PRINT \ PRINT "INVENT skriver allt man bär på"
  print "^INVENT skriver allt man bär på^";
!! 12781  PRINT "HJÄLP  ger ibland hjälp"
  print "HJÄLP  ger ibland hjälp^";
! Hemgjord kod:
  print "LEDTRÅD  ger tillgång till utförliga ledtrådar^";
!! 12782  PRINT "POÄNG  visar hur många poäng man har fått"
  print "POÄNG  visar hur många poäng man har fått^";
!! 12783  PRINT "TITTA  ger hela rumsbeskrivningen"
  print "TITTA  ger hela rumsbeskrivningen^";
!! 12784  PRINT "SPARA  sparar spelat på fil"'                         &&&&&
  print "SPARA  sparar spelat på fil^";
!! 12785  PRINT "ÅTERSKAPA  hämtar tillbaka spelet"'                   &&&&&
  print "ÅTERSKAPA  hämtar tillbaka spelet^";

!! 12787  PRINT "LOGGA  skriver en loggfil med alla kommandon man ger"'&&&&&
!  print "LOGGA  skriver en loggfil med alla kommandon man ger^";
!! 12788  PRINT "LÄS LOGGFIL  utför kommandona i en loggfil"'          &&&&&
!  print "LÄS LOGGFIL  utför kommandona i en loggfil^";
!! 12789  PRINT "SLUTA  slutar" \ PRINT \ GOTO 12210
  print "SLUTA  slutar^";

! Hemgjord kod:
  print "ÅNGRA  tar tillbaka senaste draget^";
  print "VERSION  visar versionsinformation^";

new_line;jump line12210; ! Tillhörde egentligen rad 12789

!! 12800  IF A(25)=1 AND (J(Z)=1 OR S(44)=Z) THEN PRINT "Du HÅLLER ju i telefonsladden."
  .line12800; if((i_A_1D-->25)==1 && ((i_J_1D-->(i_Z))==1 || (i_S_1D-->44)==i_Z)) { print "Du HÅLLER ju i telefonsladden.^";}
!! 12802  IF A(25)<>1 AND A(25)<>Z THEN PRINT "Jag ser ingen TELEFON här."
  if((i_A_1D-->25)~=1 && (i_A_1D-->25)~=i_Z) { print "Jag ser ingen TELEFON här.^";}
!! 12804  IF J(Z)<>1 AND S(44)<>Z THEN PRINT "Jag ser ingen TELEFONJACK här."
  if((i_J_1D-->(i_Z))~=1 && (i_S_1D-->44)~=i_Z) { print "Jag ser ingen TELEFONJACK här.^";}
!! 12806  IF (J(Z)<>1 AND S(44)<>Z) OR A(25)<>Z THEN 12210
  if(((i_J_1D-->(i_Z))~=1 && (i_S_1D-->44)~=i_Z) || (i_A_1D-->25)~=i_Z) { jump line12210;}
!! 12808  IF C$="" THEN C$=FNI$("Ring vart:")
  if(decStrCmp(s_C,decWriteString(main_str-->0,""))==0) { decStrCpy(s_C,fnc_FNI(decWriteString(main_str-->1,"Ring vart:")));}
!! 12810  IF INSTR(1,C$,"000")>0 THEN 27250
  if(decInstr(1,s_C,decWriteString(main_str-->0,"000"))>0) { jump line27250;}
!! 12812  IF INSTR(1,C$,"100")>0 THEN 27600
  if(decInstr(1,s_C,decWriteString(main_str-->0,"100"))>0) { jump line27600;}
!! 12814  IF INSTR(1,C$,"307")>0 OR INSTR(1,C$,"323")>0 THEN 27620
  if(decInstr(1,s_C,decWriteString(main_str-->0,"307"))>0 || decInstr(1,s_C,decWriteString(main_str-->1,"323"))>0) { jump line27620;}
!! 12816  IF INSTR(1,C$,"405")>0 THEN 27200
  if(decInstr(1,s_C,decWriteString(main_str-->0,"405"))>0) { jump line27200;}
!! 12818  IF INSTR(1,C$,"481")>0 THEN 27630
  if(decInstr(1,s_C,decWriteString(main_str-->0,"481"))>0) { jump line27630;}
!! 12821  IF INSTR(1,C$,"900")>0 THEN 27400
  if(decInstr(1,s_C,decWriteString(main_str-->0,"900"))>0) { jump line27400;}
!! 12822  IF FNC$(C$)="HEM" THEN 12835
  if(decStrCmp(fnc_FNC(s_C),decWriteString(main_str-->0,"HEM"))==0) { jump line12835;}
!! 12826  PRINT "Du hör en röst säja:"
  .line12826; print "Du hör en röst säja:^";
!! 12828  PRINT "- Ingen abonnent på det numret."
  print "- Ingen abonnent på det numret.^";
!! 12830  GOTO 12210
  jump line12210;
!! 12835  IF W$(6)="" THEN PRINT "Du hör din egen röst:  - Jag är inte hemma än!" \ GOTO 12210
  .line12835; if(decStrCmp((s_W_1D-->6)-->0,decWriteString(main_str-->0,""))==0) { print "Du hör din egen röst:  - Jag är inte hemma än!^";jump line12210;}
!! 12836  PRINT "Du hör en röst säja:"
  print "Du hör en röst säja:^";
!! 12837  PRINT "- Detta är "W$(6)"s telefonsvarare. "W$(6)" är inte hemma."
  print "- Detta är ";PrintString((s_W_1D-->6)-->0);print "s telefonsvarare. ";PrintString((s_W_1D-->6)-->0);print " är inte hemma.^";
!! 12838  GOTO 12210
  jump line12210;
!! 12840  IF S(30)<>Z THEN PRINT "Du kan inte ge något till någon här."\ GOTO 12210
  .line12840; if((i_S_1D-->30)~=i_Z) { print "Du kan inte ge något till någon här.^";jump line12210;}
!! 12842  IF I=10 OR I=19 THEN 7030
  if(i_I==10 || i_I==19) { jump line7030;}
!! 12844  IF INSTR(1,C$,"VATTE")>0 THEN 30010
  if(decInstr(1,s_C,decWriteString(main_str-->0,"VATTE"))>0) { jump line30010;}
!! 12846  PRINT "Gubben tar inte emot det." \ GOTO 12210
  print "Gubben tar inte emot det.^";jump line12210;
!! 12850  IF A(24)<>1 THEN PRINT "Du har inget att blända med." \ GOTO 12210
  .line12850; if((i_A_1D-->24)~=1) { print "Du har inget att blända med.^";jump line12210;}
!! 12851  IF FNL$(C$,5)="GUBBE" OR (C$="" AND S(30)=Z) THEN 12860
  if(decStrCmp(fnc_FNL(s_C,5),decWriteString(main_str-->0,"GUBBE"))==0 || (decStrCmp(s_C,decWriteString(main_str-->1,""))==0 && (i_S_1D-->30)==i_Z)) { jump line12860;}
!! 12852  IF FNL$(C$,4)="VAKT" OR (C$="" AND (A(29)=Z OR A(29)=1)) THEN 12880
  if(decStrCmp(fnc_FNL(s_C,4),decWriteString(main_str-->0,"VAKT"))==0 || (decStrCmp(s_C,decWriteString(main_str-->1,""))==0 && ((i_A_1D-->29)==i_Z || (i_A_1D-->29)==1))) { jump line12880;}
!! 12854  PRINT "Du kan inte blända någon här." \ GOTO 12210
  print "Du kan inte blända någon här.^";jump line12210;
!! 12860  IF S(30)<>Z THEN PRINT "Jag ser ingen GUBBE här." \ GOTO 12210
  .line12860; if((i_S_1D-->30)~=i_Z) { print "Jag ser ingen GUBBE här.^";jump line12210;}
!! 12864  IF A(19)=0 THEN PRINT "Du försöker blända gubben men han häller"
  if((i_A_1D-->19)==0) { print "Du försöker blända gubben men han häller ";}
!! 12866  IF A(19)=0 THEN PRINT "vattenflaskan som skydd." \ GOTO 12210
  if((i_A_1D-->19)==0) { print "vattenflaskan som skydd.^";jump line12210;}
!! 12868  IF S(49)=0 OR S(49)=2 OR S(30)=96 THEN 30002
  if((i_S_1D-->49)==0 || (i_S_1D-->49)==2 || (i_S_1D-->30)==96) { jump line30002;}
!! 12870  S(49)=2 \ PRINT "Du bländar den stackars gubben med lampan." \ GOTO 12210
  (i_S_1D-->49)=2;print "Du bländar den stackars gubben med lampan.^";jump line12210;
!! 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
  .line12880; if(((i_A_1D-->29)==i_Z || (i_A_1D-->29)==1) && (i_S_1D-->6)~=2) { print "Du klarar inte av att blända vakten.^";jump line12210;}
!! 12881  IF S(6)=2 THEN PRINT "Vakten är död." ELSE PRINT "Jag ser ingen VAKT här."
  if((i_S_1D-->6)==2) { print "Vakten är död.^"; } else {print "Jag ser ingen VAKT här.^"; }
!! 12882  GOTO 12210
  jump line12210;
!! 12890  IF Z=25 OR Z=33 OR Z=49 OR Z=50 OR Z=66 OR Z=70 THEN X=10 \ GOTO 12999
  .line12890; if(i_Z==25 || i_Z==33 || i_Z==49 || i_Z==50 || i_Z==66 || i_Z==70) { i_X=10;jump line12999;}
!! 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
  if(i_Z==72 || i_Z==74 || i_Z==78 || i_Z==79 || i_Z==83 || i_Z==87 || i_Z==88) { i_X=10;jump line12999;}
!! 12893  IF Z=91 THEN PRINT "Vattenfallets vatten är alldeles för kallt."\GOTO 12210
  if(i_Z==91) { print "Vattenfallets vatten är alldeles för kallt.^";jump line12210;}
!! 12894  PRINT "Här finns det inget vatten." \ GOTO 12210
  print "Här finns det inget vatten.^";jump line12210;
!! 12900  IF A(20)<>1 THEN PRINT "Du har inget att pumpa."
  .line12900; if((i_A_1D-->20)~=1) { print "Du har inget att pumpa.^";}
!! 12902  IF A(16)<>1 THEN PRINT "Du har inget att pumpa med."
  if((i_A_1D-->16)~=1) { print "Du har inget att pumpa med.^";}
!! 12904  IF A(20)=1 AND S(33)=0 THEN PRINT "Din boll är redan pumpad."
  if((i_A_1D-->20)==1 && (i_S_1D-->33)==0) { 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
  if((i_A_1D-->16)==1 && (i_A_1D-->20)==1 && (i_S_1D-->33)==1) { print "Ok.^";(i_S_1D-->33)=0;}
!! 12908  GOTO 12210
  jump line12210;
!! 12910  IF INSTR(1,A$,"RÖVAR")>0 THEN PRINT "Jag ser ingen RÖVARE här." \ GOTO 12210
  .line12910; if(decInstr(1,s_A,decWriteString(main_str-->0,"RÖVAR"))>0) { print "Jag ser ingen RÖVARE här.^";jump line12210;}
!! 12912  IF INSTR(1,A$,"GUBBE")>0 THEN 12920
  if(decInstr(1,s_A,decWriteString(main_str-->0,"GUBBE"))>0) { jump line12920;}
!! 12914  IF INSTR(1,A$,"EFTER")>0 THEN PRINT "Jag ser ingen du kan följa efter."\GOTO 12210
  if(decInstr(1,s_A,decWriteString(main_str-->0,"EFTER"))>0) { print "Jag ser ingen du kan följa efter.^";jump line12210;}
!! 12916  IF (INSTR(1,A$,"RÅD")>0 OR INSTR(1,A$,"THORVALD")>0) AND Z=59 THEN 12924
  if((decInstr(1,s_A,decWriteString(main_str-->0,"RÅD"))>0 || decInstr(1,s_A,decWriteString(main_str-->1,"THORVALD"))>0) && i_Z==59) { jump line12924;}
!! 12918  GOTO 12088
  jump line12088;
!! 12920  IF S(30)=Z THEN PRINT "Gubben sitter ju här!" \ GOTO 12210
  .line12920; if((i_S_1D-->30)==i_Z) { print "Gubben sitter ju här!^";jump line12210;}
!! 12922  PRINT "Jag ser ingen GUBBE här." \ GOTO 12210
  print "Jag ser ingen GUBBE här.^";jump line12210;
!! 12924  PRINT "Du ska inte ha någon fördel bara för att Stugrådet råkar ha samman-"
  .line12924; 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."
  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
  print "(Förresten har dom redan försvunnit!)^";jump line12210;

! Egen kod för att loggningen inte är på plats
.line12950;
.line12975;
   print "Loggningsfunktionen är inte implementerad i denna version av Stuga.^";
   jump line12210;




!! 12999  IF S(30)=Z THEN 30000 ELSE RETURN
  .line12999; if((i_S_1D-->30)==i_Z) { jump line30000; } else {return; }




!! 27100  PRINT "Just när du ska koppla in telefonen kommer en man med en röd"
  .line27100; print "Just när du ska koppla in telefonen kommer en man med en röd ";
!! 27110  PRINT "dräkt som det står TELE på in och slänger en telefonkatalog"
  print "dräkt som det står TELE på in och slänger en telefonkatalog ";
!! 27120  PRINT "på dina fötter."
  print "på dina fötter.^";
!! 27122  IF J(Z)<>1 THEN 27140 ELSE J(Z)=0
  if((i_J_1D-->(i_Z))~=1) { jump line27140; } else {(i_J_1D-->(i_Z))=0; }
!! 27130  PRINT "Med en sur min skruvar han bort telefonjacken ur väggen och går."
  print "Med en sur min skruvar han bort telefonjacken ur väggen och går.^";
!! 27140  S(2)=S(2)+5
  .line27140; (i_S_1D-->2)=(i_S_1D-->2)+5;
!! 27150  A(23)=Z \ GOTO 12210
  (i_A_1D-->23)=i_Z;jump line12210;
!! 27200  REM XXXXX RING PERSONALKÖK XXXX
  .line27200; !===  XXXXX RING PERSONALKÖK XXXX
!! 27202  PRINT "Ok.   Ring , Ring  ."
  print "Ok.   Ring , Ring  .^";
!! 27204  PRINT\PRINT "TUUT ------ TUUT ----- TUUT ------ <klick>"
  print "^TUUT ------ TUUT ----- TUUT ------ <klick>^";
!! 27206  IF W$(6)="" THEN W$(6)=FNI$("Hej, vem där ?")
  if(decStrCmp((s_W_1D-->6)-->0,decWriteString(main_str-->0,""))==0) { decStrCpy((s_W_1D-->6)-->0,fnc_FNI(decWriteString(main_str-->1,"Hej, vem där ?")));}
!! 27212  PRINT "Personalköket rekommenderar:"
  print "Personalköket rekommenderar:^";
!! 27214  PRINT\PRINT "Halvruttna tomater med pilaffris."
  print "^Halvruttna tomater med pilaffris.^";
!! 27216  PRINT "Vändstekt, långsamt grillad samt hårdkokt ";W$(6)
  print "Vändstekt, långsamt grillad samt hårdkokt ";PrintString((s_W_1D-->6)-->0);new_line;
!! 27218  PRINT "Samt friskt, giftigt grottvatten. (Hi, hi, hi)"
  print "Samt friskt, giftigt grottvatten. (Hi, hi, hi)^";
!! 27220  PRINT "<klick> TUUT --- TUUT --- TUUT"
  print "<klick> TUUT --- TUUT --- TUUT^";
!! 27222  S(29)=1 \ PRINT \ X1=1 \ GOTO 12999
  (i_S_1D-->29)=1;new_line;i_X1=1;jump line12999;
!! 27250  REM XXX Ring Televerket XXXXX
  .line27250; !===  XXX Ring Televerket XXXXX
!! 27252  PRINT "Ok.  Ring, Ring."
  print "Ok.  Ring, Ring.^";
!! 27254  PRINT
  new_line;
!! 27256  PRINT "-Stugas televerk."
  print "-Stugas televerk.^";
!! 27258  A$=FNI$("Har ni klagomål på er linje ?")
  decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Har ni klagomål på er linje ?")));
!! 27262  IF FNL$(A$,1)="J" OR FNL$(A$,1)="j" THEN 27300
  if(decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->0,"J"))==0 || decStrCmp(fnc_FNL(s_A,1),decWriteString(main_str-->1,"j"))==0) { jump line27300;}
!! 27264  A$=FNI$("Vilket nummer gäller det ?")
  decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"Vilket nummer gäller det ?")));
!! 27268  PRINT "Ok. Vänta ett tag så ska jag kolla upp det."
  print "Ok. Vänta ett tag så ska jag kolla upp det.^";
!! 27270  S=SLEEP(20%) \ IF S THEN INPUT "TUU T"_A1$ \ GOTO 27270
!WARNING: Skipping INPUT in line: 27270 S=SLEEP(20%) \ IF S THEN INPUT "TUU T"_A1$ \ GOTO 27270
  .line27270; i_S=decSleep(20);if(i_S) { decInputStr("TUU T",false,s_A1); jump line27270;}
!! 27272  IF INSTR(1,A$,"481")>0 THEN 27280
  if(decInstr(1,s_A,decWriteString(main_str-->0,"481"))>0) { jump line27280;}
!! 27274  IF INSTR(1,A$,"999")>0 THEN 27290
  if(decInstr(1,s_A,decWriteString(main_str-->0,"999"))>0) { jump line27290;}
!! 27275  IF INSTR(1,A$,"100")>0 AND J(100)=0 THEN PRINT "Abonnemanget har upphört.<klick>"\GOTO 12210
  if(decInstr(1,s_A,decWriteString(main_str-->0,"100"))>0 && (i_J_1D-->100)==0) { print "Abonnemanget har upphört.<klick>^";jump line12210;}
!! 27276  PRINT "Det är inget fel på den linjen."
  print "Det är inget fel på den linjen.^";
!! 27278  PRINT "<klick>" \ S(28)=2 \ GOTO 12210
  print "<klick>^";(i_S_1D-->28)=2;jump line12210;
!! 27280  IF S(6)>0 THEN 27284
  .line27280; if((i_S_1D-->6)>0) { jump line27284;}
!! 27282  PRINT "Linjen fungerar utmärkt. (För en gångs skull...)"\ GOTO 12210
  print "Linjen fungerar utmärkt. (För en gångs skull...)^";jump line12210;
!! 27284  PRINT "Jaha. Hm, linjen är väl okej, men abonnenten..."
  .line27284; print "Jaha. Hm, linjen är väl okej, men abonnenten...^";
!! 27286  PRINT "Det fixar sej nog om ett tag.."
  print "Det fixar sej nog om ett tag..^";
!! 27287  PRINT "<klick>"
  print "<klick>^";
!! 27288  GOTO 12210
  jump line12210;
!! 27290  PRINT "Nummerändring. Nya numret är 900." \ GOTO 12210
  .line27290; print "Nummerändring. Nya numret är 900.^";jump line12210;
!! 27300  PRINT "Jag ska skicka någon för att fixa det."
  .line27300; print "Jag ska skicka någon för att fixa det.^";
!! 27302  PRINT "<klick>" \ PRINT
  print "<klick>^^";
!! 27304  PRINT "Ur skuggorna kommer plötsligt en man klädd i en röd"
  print "Ur skuggorna kommer plötsligt en man klädd i en röd ";
!! 27306  GOTO 7081
  jump line7081;
!! 27400  REM XXX Ring Larmcentralen. XXX
  .line27400; !===  XXX Ring Larmcentralen. XXX
!! 27402  PRINT "Ok. Ring, Ring ."
  print "Ok. Ring, Ring .^";
!! 27404  PRINT \ PRINT "Larmcentralen, var god dröj." \ S=SLEEP(20)
  print "^Larmcentralen, var god dröj.^";i_S=decSleep(20);
!! 27406  IF S THEN INPUT "  Var god dröj  "_A$ \S=SLEEP(30) \ GOTO 27406
!WARNING: Skipping INPUT in line: 27406 IF S THEN INPUT "  Var god dröj  "_A$ \S=SLEEP(30) \ GOTO 27406
  .line27406; if(i_S) {decInputStr("  Var god dröj  ",false,s_A); i_S=decSleep(30);jump line27406;}
!! 27408  PRINT "LARMCENTRALEN. Vi fixar allt - snabbt!"
  print "LARMCENTRALEN. Vi fixar allt - snabbt!^";
!! 27410  PRINT "Vad vill Du ha hjälp med";
  print "Vad vill Du ha hjälp med";
!! 27412  A$=FNC$(FNI$(" ?"))
  decStrCpy(s_A,fnc_FNC(fnc_FNI(decWriteString(main_str-->0," ?"))));
!! 27414  PRINT "Det går inte."
  print "Det går inte.^";
!! 27416  IF INSTR(1,A$,"RÖVARE")>0 THEN 27428
  if(decInstr(1,s_A,decWriteString(main_str-->0,"RÖVARE"))>0) { jump line27428;}
!! 27418  IF INSTR(1,A$,"TRAPPA")>0 THEN 27434
  if(decInstr(1,s_A,decWriteString(main_str-->0,"TRAPPA"))>0) { jump line27434;}
!! 27420  IF INSTR(1,A$,"HISS")>0 THEN 27440
  if(decInstr(1,s_A,decWriteString(main_str-->0,"HISS"))>0) { jump line27440;}
!! 27422  IF INSTR(1,A$,"BÅT")>0 THEN 27444
  if(decInstr(1,s_A,decWriteString(main_str-->0,"BÅT"))>0) { jump line27444;}
!! 27424  PRINT "<klick>"
  .line27424; print "<klick>^";
!! 27426  GOTO 12210
  jump line12210;
!! 27428  PRINT "Jo, förresten. Jag får väl snacka med honom. Om jag"
  .line27428; print "Jo, förresten. Jag får väl snacka med honom. Om jag ";
!! 27430  PRINT "får tag på honom. Han är ofta ute på jakt..."
  print "får tag på honom. Han är ofta ute på jakt...^";
!! 27432  S(3)=-1 \ GOTO 27424
  (i_S_1D-->3)=-1;jump line27424;
!! 27434  PRINT "Jo, förresten. Vi får väl ta och se över våra trappor."
  .line27434; print "Jo, förresten. Vi får väl ta och se över våra trappor.^";
!! 27436  PRINT "Jag ska genast kontakta gatukontoret."
  print "Jag ska genast kontakta gatukontoret.^";
!! 27438  S(15)=0 \ S(17)=0 \ S(18)=0 \ GOTO 27424
  (i_S_1D-->15)=0;(i_S_1D-->17)=0;(i_S_1D-->18)=0;jump line27424;
!! 27440  PRINT "Vänta, var det hissen du sa ?  Jag får väl se över den då."
  .line27440; print "Vänta, var det hissen du sa ?  Jag får väl se över den då.^";
!! 27442  S(40)=4 \ S(41)=0 \ GOTO 27424
  (i_S_1D-->40)=4;(i_S_1D-->41)=0;jump line27424;
!! 27444  PRINT "Nu får det vara slut på båtfärderna!!"
  .line27444; print "Nu får det vara slut på båtfärderna!!^";
!! 27446  S(35)=0.5 \ GOTO 27424
!WARNING: removed float value in line: 27446  S(35)=0.5 \ GOTO 27424
  (i_S_1D-->35)=-1;jump line27424;
!! 27600  IF J(100)=0 THEN 12826 ELSE PRINT FNS$("ringer",2)
  .line27600; if((i_J_1D-->100)==0) { jump line12826; } else {PrintString(fnc_FNS(decWriteString(main_str-->0,"ringer"),2));new_line; }
!! 27602  IF Z=100 THEN I=1 ELSE I=5
  if(i_Z==100) { i_I=1; } else {i_I=5; }
!! 27604  FOR I%=1 TO 8
!WARNING: removed float-integer conversion in line: 27604 FOR I%=1 TO 8
  .line27604; for(i_I_=1:i_I_<=8:i_I_++) {
!! 27606  S=SLEEP(I) \ IF S THEN INPUT ""_A$
!WARNING: Skipping INPUT in line: 27606 S=SLEEP(I) \ IF S THEN INPUT ""_A$
    i_S=decSleep(i_I);if(i_S) {decInputStr("",false,s_A); }
!! 27608  PRINT "R  ing!";
    print "R  ing!";
!! 27610  NEXT I%
!WARNING: removed float-integer conversion in line: 27610 NEXT I%
  }
!! 27612  PRINT \ S=SLEEP(I)
  new_line;i_S=decSleep(i_I);
!! 27614  IF Z=100 THEN PRINT "Det är visst upptaget." ELSE PRINT "Ingen svarar."
  if(i_Z==100) { print "Det är visst upptaget.^"; } else {print "Ingen svarar.^"; }
!! 27616  GOTO 12210
  jump line12210;
!! 27620  PRINT "En automatisk telefonsvarare svarar:"
  .line27620; print "En automatisk telefonsvarare svarar:^";
!! 27622  PRINT " - Han är tyvärr inte inne. Han har alltid så mycket att"
  print " - Han är tyvärr inte inne. Han har alltid så mycket att^";
!! 27624  PRINT "   göra att han aldrig hinner svara i telefon."
  print "   göra att han aldrig hinner svara i telefon.^";
!! 27626  PRINT "<klick>"
  .line27626; print "<klick>^";
!! 27628  GOTO 12210
  jump line12210;
!! 27630  ON S(6)+1 GOTO 27632,27640,27650,27650
  .line27630; switch((i_S_1D-->6)+1) {1: jump line27632;2: jump line27640;3: jump line27650;4: jump line27650;}
!! 27632  IF A(29)<>58 THEN 27652
  .line27632; if((i_A_1D-->29)~=58) { jump line27652;}
!! 27633  IF Z=58 THEN PRINT "Du hör en signal. Vakten går bort ett ögonblick."
  if(i_Z==58) { print "Du hör en signal. Vakten går bort ett ögonblick.^";}
!! 27634  PRINT "Ring, Ring !"
  print "Ring, Ring !^";
!! 27636  PRINT " - Stör mej inte! Jag vaktar!"
  print " - Stör mej inte! Jag vaktar!^";
!! 27638  GOTO 27626
  jump line27626;
!! 27640  IF (A(29)=58 OR A(29)=1) AND Z=58 THEN PRINT "Du hör en signal. Vakten kravlar iväg."
  .line27640; if(((i_A_1D-->29)==58 || (i_A_1D-->29)==1) && i_Z==58) { print "Du hör en signal. Vakten kravlar iväg.^";}
!! 27641  IF A(29)<>58 THEN 27652
  if((i_A_1D-->29)~=58) { jump line27652;}
!! 27642  PRINT "Ring, Rin  g!"
  print "Ring, Rin  g!^";
!! 27644  PRINT " - Hick, HELAN GÅÅÅÅÅÅÅÅR... HI  CK!"
  print " - Hick, HELAN GÅÅÅÅÅÅÅÅR... HI  CK!^";
!! 27646  GOTO 27626
  jump line27626;
!! 27650  IF Z=58 THEN PRINT "Du hör en signal."
  .line27650; if(i_Z==58) { print "Du hör en signal.^";}
!! 27652  I=4 \ GOTO 27604
  .line27652; i_I=4;jump line27604;
!! 28000  REM XXX VAKT XXXXX
  .line28000; !===  XXX VAKT XXXXX
!! 28002  IF A(29)=Z OR A(29)=1 THEN PRINT "Vakten sover för djupt." \ GOTO 12210
  if((i_A_1D-->29)==i_Z || (i_A_1D-->29)==1) { print "Vakten sover för djupt.^";jump line12210;}
!! 28010  IF A(29)<>Z AND A(29)<>1 THEN PRINT "Jag ser ingen VAKT här."\GOTO 12210
  .line28010; if((i_A_1D-->29)~=i_Z && (i_A_1D-->29)~=1) { print "Jag ser ingen VAKT här.^";jump line12210;}
!! 28012  IF S(6)=2 THEN PRINT "Vakten är redan död! Ser du inte blodfläckarna!"\GOTO 12210
  if((i_S_1D-->6)==2) { print "Vakten är redan död! Ser du inte blodfläckarna!^";jump line12210;}
!! 28014  IF A(4)<>1 THEN PRINT "Du har inget du kan döda honom med."\GOTO 12210
  if((i_A_1D-->4)~=1) { print "Du har inget du kan döda honom med.^";jump line12210;}
!! 28016  IF S(6)=3 THEN 28030
  if((i_S_1D-->6)==3) { jump line28030;}
!! 28018  IF S(6)=1 THEN 28026
  if((i_S_1D-->6)==1) { jump line28026;}
!! 28020  PRINT "Du kastar hillebarden mot vakten, men han duckar."
  print "Du kastar hillebarden mot vakten, men han duckar.^";
!! 28022  A(4)=Z \ S(1)=S(1)-1
  (i_A_1D-->4)=i_Z;(i_S_1D-->1)=(i_S_1D-->1)-1;
!! 28024  GOTO 12210
  jump line12210;
!! 28026  PRINT "Du kastar hillebarden mot den fulle vakten. Han fångar"
  .line28026; print "Du kastar hillebarden mot den fulle vakten. Han fångar ";
!! 28027  PRINT "upp den i luften med en elegant gest."
  print "upp den i luften med en elegant gest.^";
!! 28028  A(4)=2 \ S(1)=S(1)-1
  (i_A_1D-->4)=2;(i_S_1D-->1)=(i_S_1D-->1)-1;
!! 28029  GOTO 12210
  jump line12210;
!! 28030  PRINT "Du kastar hillebarden mot den sovande"
  .line28030; print "Du kastar hillebarden mot den sovande ";
!! 28034  PRINT "vakten, som stönar och bleknar."
  print "vakten, som stönar och bleknar.^";
!! 28036  PRINT "Du drar den bloddrypande hillebarden ur liket och torkar av den."
  print "Du drar den bloddrypande hillebarden ur liket och torkar av den.^";
!! 28038  S(6)=2 \ A(22)=Z \ A(29)=Z \ S(51)=0
  (i_S_1D-->6)=2;(i_A_1D-->22)=i_Z;(i_A_1D-->29)=i_Z;(i_S_1D-->51)=0;
!! 28039  IF Z=63 THEN S(52)=S(50) \ S(2)=S(2)+25
  if(i_Z==63) { (i_S_1D-->52)=(i_S_1D-->50);(i_S_1D-->2)=(i_S_1D-->2)+25;}
!! 28040  IF A(15)=2 THEN A(15)=Z
  if((i_A_1D-->15)==2) { (i_A_1D-->15)=i_Z;}
!! 28042  IF A(25)=2 THEN A(25)=Z
  if((i_A_1D-->25)==2) { (i_A_1D-->25)=i_Z;}
!! 28044  IF A(26)=2 THEN A(26)=Z
  if((i_A_1D-->26)==2) { (i_A_1D-->26)=i_Z;}
!! 28046  X1=1 \ GOTO 12999
  i_X1=1;jump line12999;
!! 28090  IF C$="" THEN 12999
  .line28090; if(decStrCmp(s_C,decWriteString(main_str-->0,""))==0) { jump line12999;}
!! 28092  IF C$="UPP" THEN 9950
  if(decStrCmp(s_C,decWriteString(main_str-->0,"UPP"))==0) { jump line9950;}
!! 28100  FOR I=1 TO A(0)
  for(i_I=1:i_I<=(i_A_1D-->0):i_I++) {
!! 28101  IF A$(I,0)<>"" THEN IF INSTR(1,C$,A$(I,1))>0 OR INSTR(1,C$,A$(I,2))>0 THEN 28105
    if(decStrCmp(((s_A_2D-->(i_I))-->0),decWriteString(main_str-->0,""))~=0) { if(decInstr(1,s_C,((s_A_2D-->(i_I))-->1))>0 || decInstr(1,s_C,((s_A_2D-->(i_I))-->2))>0) { jump line28105;}}
!! 28102  NEXT I
  }
!! 28103  I=0
  i_I=0;
!! 28105  IF (A(29)<>1 AND A(29)<>Z) OR S(6)>1 THEN 12840
  .line28105; if(((i_A_1D-->29)~=1 && (i_A_1D-->29)~=i_Z) || (i_S_1D-->6)>1) { jump line12840;}
!! 28106  IF INSTR(1,C$,"GUBBE")>0 OR S(30)=Z THEN 12840
  if(decInstr(1,s_C,decWriteString(main_str-->0,"GUBBE"))>0 || (i_S_1D-->30)==i_Z) { jump line12840;}
!! 28107  IF I>0 THEN 28110
  if(i_I>0) { jump line28110;}
!! 28108  PRINT "Det kan du inte ge till vakten." \ GOTO 12210
  .line28108; print "Det kan du inte ge till vakten.^";jump line12210;
!! 28110  IF I<>26 AND I<>25 AND I<>15 AND I<>4 AND I<>18 THEN 28108
  .line28110; if(i_I~=26 && i_I~=25 && i_I~=15 && i_I~=4 && i_I~=18) { jump line28108;}
!! 28112  IF A(I)<>1 THEN PRINT "Du bär väl ";FNA$(I);A$(I,3);"." \ GOTO 12210
  if((i_A_1D-->(i_I))~=1) { print "Du bär väl ";PrintString(fnc_FNA(i_I));PrintString(((s_A_2D-->(i_I))-->3));print ".^";jump line12210;}
!! 28114  IF I=18 THEN 12360
  if(i_I==18) { jump line12360;}
!! 28116  PRINT "Vakten tar emot ";A$(I,3);" med ett snett leende."
  print "Vakten tar emot ";PrintString(((s_A_2D-->(i_I))-->3));print " med ett snett leende.^";
!! 28118  S(1)=S(1)-1 \ A(I)=2 \ GOTO 12210
  (i_S_1D-->1)=(i_S_1D-->1)-1;(i_A_1D-->(i_I))=2;jump line12210;
!! 28130  IF A(29)<>Z AND A(29)<>1 THEN 6418
  .line28130; if((i_A_1D-->29)~=i_Z && (i_A_1D-->29)~=1) { jump line6418;}
!! 28132  IF S(6)=3 THEN 28150
  if((i_S_1D-->6)==3) { jump line28150;}
!! 28134  IF S(6)=1 THEN 28140
  if((i_S_1D-->6)==1) { jump line28140;}
!! 28136  PRINT "Vakten hindrar dej." \ GOTO 12210
  print "Vakten hindrar dej.^";jump line12210;
!! 28140  IF S(1)=9 THEN 6420
  .line28140; if((i_S_1D-->1)==9) { jump line6420;}
!! 28142  PRINT "Vakten släpper motvilligt ";A$(I,3);"."
  print "Vakten släpper motvilligt ";PrintString(((s_A_2D-->(i_I))-->3));print ".^";
!! 28144  S(1)=S(1)+1 \ A(I)=1
  (i_S_1D-->1)=(i_S_1D-->1)+1;(i_A_1D-->(i_I))=1;
!! 28146  GOTO 12210
  jump line12210;
!! 28150  PRINT "Har du hjärta att ta någonting från en sovande vakt?!?"
  .line28150; print "Har du hjärta att ta någonting från en sovande vakt?!?^";
!! 28152  A$=FNI$("") \ A$=FNC$(A$)
  decStrCpy(s_A,fnc_FNI(decWriteString(main_str-->0,"")));decStrCpy(s_A,fnc_FNC(s_A));
!! 28154  IF A$<>"JA" THEN 12214
  if(decStrCmp(s_A,decWriteString(main_str-->0,"JA"))~=0) { jump line12214;}
!! 28156  PRINT "Har Du inget hjärta i kroppen ?!!Jag vägrar!"\GOTO 12214
  print "Har Du inget hjärta i kroppen ?!!Jag vägrar!^";jump line12214;
!! 28160  IF A(22)<>63 THEN 6418
  .line28160; if((i_A_1D-->22)~=63) { jump line6418;}
!! 28162  IF S(1)=9 THEN 6420
  if((i_S_1D-->1)==9) { jump line6420;}
!! 28164  S(52)=0 \ S(2)=S(2)-30
  (i_S_1D-->52)=0;(i_S_1D-->2)=(i_S_1D-->2)-30;
!! 28166  GOTO 6422
  jump line6422;






!! 30000  REM XXX GUBBE XXXX
  .line30000; !===  XXX GUBBE XXXX
!! 30001  IF S(30)=96 OR S(49)=1 THEN RETURN
  if((i_S_1D-->30)==96 || (i_S_1D-->49)==1) { return;}
!! 30002  S(30)=INT(RND*92)+9 \ S(49)=0 \ X1=2
!WARNING: random argument should be adjusted in line: 30002 S(30)=INT(RND*92)+9 \ S(49)=0 \ X1=2
!WARNING: int function skipped in line: 30002 S(30)=INT(RND*92)+9 \ S(49)=0 \ X1=2
  .line30002; (i_S_1D-->30)=random(92)+8;(i_S_1D-->49)=0;i_X1=2;
!! 30004  IF S(30)=Z OR S(30)=51 OR S(30)=60 THEN 30002
  if((i_S_1D-->30)==i_Z || (i_S_1D-->30)==51 || (i_S_1D-->30)==60) { jump line30002;}
!! 30006  PRINT "Gubben reser sej, muttrar någonting om att man aldrig"
  print "Gubben reser sej, muttrar någonting om att man aldrig ";
!! 30008  PRINT "får vara i fred, och försvinner." \ RETURN
  print "får vara i fred, och försvinner.^";return;
!! 30010  IF S(30)<>Z THEN PRINT "Jag ser ingen gubbe här." \ GOTO 12210
  .line30010; if((i_S_1D-->30)~=i_Z) { print "Jag ser ingen gubbe här.^";jump line12210;}
!! 30012  IF A(19)=0 THEN PRINT "Gubben har ju vattenflaskan." \ GOTO 12210
  if((i_A_1D-->19)==0) { print "Gubben har ju vattenflaskan.^";jump line12210;}
!! 30014  IF A(19)<>1 OR S(32)>0 THEN PRINT "Du har ju ingen full vattenflaska."\GOTO 12210
  if((i_A_1D-->19)~=1 || (i_S_1D-->32)>0) { print "Du har ju ingen full vattenflaska.^";jump line12210;}
!! 30016  PRINT "Gubben dricker ur vattenflaskan och ser genast gladare ut."
  print "Gubben dricker ur vattenflaskan och ser genast gladare ut.^";
!! 30018  S(49)=1 \ S(32)=1 \ GOTO 12210
  (i_S_1D-->49)=1;(i_S_1D-->32)=1;jump line12210;
!! 30020  IF I=11 AND S(30)=Z AND S(49)=2 THEN 30028
  .line30020; if(i_I==11 && (i_S_1D-->30)==i_Z && (i_S_1D-->49)==2) { jump line30028;}
!! 30022  IF I=19 AND A(10)=0 THEN 30036
  if(i_I==19 && (i_A_1D-->10)==0) { jump line30036;}
!! 30024  PRINT "Gubben vägrar att släppa ";A$(I,3);"."
  print "Gubben vägrar att släppa ";PrintString(((s_A_2D-->(i_I))-->3));print ".^";
!! 30026  GOTO 12210
  jump line12210;
!! 30028  IF S(1)=9 THEN 6420
  .line30028; if((i_S_1D-->1)==9) { jump line6420;}
!! 30030  PRINT "Du tar pärlhalsbandet från den bländade gubben."
  print "Du tar pärlhalsbandet från den bländade gubben.^";
!! 30032  S(49)=0 \ A(11)=1 \ X1=1 \ S(1)=S(1)+1
  (i_S_1D-->49)=0;(i_A_1D-->11)=1;i_X1=1;(i_S_1D-->1)=(i_S_1D-->1)+1;
!! 30034  GOTO 30002
  jump line30002;
!! 30036  IF S(1)=9 THEN 6420
  .line30036; if((i_S_1D-->1)==9) { jump line6420;}
!! 30038  PRINT "Du tar vattenflaskan från gubben."
  print "Du tar vattenflaskan från gubben.^";
!! 30040  S(1)=S(1)+1 \ X1=1 \ A(19)=1
  (i_S_1D-->1)=(i_S_1D-->1)+1;i_X1=1;(i_A_1D-->19)=1;
!! 30042  GOTO 30002
  jump line30002;
!! 30050  IF S(30)<>Z THEN PRINT "Jag ser ingen GUBBE här." \ GOTO 12210
  .line30050; if((i_S_1D-->30)~=i_Z) { print "Jag ser ingen GUBBE här.^";jump line12210;}
!! 30052  PRINT "Gubben ser din hotande blick och smiter iväg."
  print "Gubben ser din hotande blick och smiter iväg.^";
!! 30054  S(30)=INT(RND*92)+9 \ S(49)=0
!WARNING: random argument should be adjusted in line: 30054 S(30)=INT(RND*92)+9 \ S(49)=0
!WARNING: int function skipped in line: 30054 S(30)=INT(RND*92)+9 \ S(49)=0
  .line30054; (i_S_1D-->30)=random(92)+8;(i_S_1D-->49)=0;
!! 30056  IF S(30)=Z OR S(30)=51 OR S(30)=60 THEN 30054
  if((i_S_1D-->30)==i_Z || (i_S_1D-->30)==51 || (i_S_1D-->30)==60) { jump line30054;}
!! 30058  GOTO 12210
  jump line12210;




!! 80000  REM *** SPARA *** &&&&& DEC-10 SPECIELL KOD PÅ 80000-80565
  .line80000; !===  *** SPARA *** &&&&& DEC-10 SPECIELL KOD PÅ 80000-80565

! Entirely new save routine
  @save -> saveflag;
  switch (saveflag) {
    0: print "Sparningen misslyckades.^";
    1: print "Det nuvarande läget är sparat.^";
    2: print "Spelet återskapades.^^";
!! 80347  S2=1'Återskapaflagga'&&&&&
       i_S2=1;
       i_X1=1;
       checkTerp();
       proc_input_date(s_Date);
       new_line;
       return;
  }
!! 80160  GOTO 12210'&&&&&
  jump line12210;



!! 80200  REM *** ÅTERSKAPA ***'&&&&&
  .line80200; !===  *** ÅTERSKAPA ***'&&&&&

! Entirely new restore routine
    restore Rmaybe;
    print "^Återskapandet misslyckades.^";
    jump RestoreCont;
! Nästa rad bör aldrig kunna nås
  .RMaybe; print "Spelet återskapades (men detta meddelande borde inte synas!).^";
  .RestoreCont;

  ! Borde vara rätt sak att göra?
  jump line12210;



];