[proc_print_objects;
!! 06000	REM ```` RUMSBESKRIVNING ```````````` TA ````````` SLÄPP ````````````
  .line6000; !===  ```` RUMSBESKRIVNING ```````````` TA ````````` SLÄPP ````````````
!! 06002	IF S(2)=335 AND RND>0.5 THEN PRINT "Plötsligt kommer Thorvald fram och säjer:" \ GOTO 99160
!WARNING: random argument should be adjusted in line: 06002	IF S(2)=335 AND RND>0.5 THEN PRINT "Plötsligt kommer Thorvald fram och säjer:" \ GOTO 99160
!WARNING: removed float value in line: 06002	IF S(2)=335 AND RND>0.5 THEN PRINT "Plötsligt kommer Thorvald fram och säjer:" \ GOTO 99160
!  if((i_S_1D-->2)==335 && random(100)>50) { print "Plötsligt kommer Thorvald fram och säjer:^";jump line99160;}
  if((i_S_1D-->2)==335 && random(100)>50) { print "Plötsligt kommer Thorvald fram och säjer:^"; proc_end(1);}
!! 06003	IF Z=70 AND A1=1 THEN PRINT "På marken ligger en enorm rubin."
  if(i_Z==70 && i_A1==1) { print "På marken ligger en enorm rubin.^";}
!! 06005	IF A(1)=Z THEN PRINT "Det finns en diamant här."
  if((i_A_1D-->1)==i_Z) { print "Det finns en diamant här.^";}
!! 06006	IF A(15)=Z THEN PRINT "Det ligger en kofot här."
  if((i_A_1D-->15)==i_Z) { print "Det ligger en kofot här.^";}
!! 06007	IF A(16)=Z THEN PRINT "Det står en cykelpump här."
  if((i_A_1D-->16)==i_Z) { print "Det står en cykelpump här.^";}
!! 06008	IF A(2)=Z THEN PRINT "Det finns en illaluktande gurka här."
  if((i_A_1D-->2)==i_Z) { print "Det finns en illaluktande gurka här.^";}
!! 06009	IF A(3)=Z THEN PRINT "Det finns en silvertacka här."
  if((i_A_1D-->3)==i_Z) { print "Det finns en silvertacka här.^";}
!! 06010	IF A(17)=Z AND Z<>11 THEN PRINT "Det står en stege här."
  if((i_A_1D-->17)==i_Z && i_Z~=11) { print "Det står en stege här.^";}
!! 06011	IF A(18)<>Z THEN 6014
  if((i_A_1D-->18)~=i_Z) { jump line6014;}
!! 06012	IF S(31)=0 THEN PRINT "Det finns en fylld brännvinsflaska här."
  if((i_S_1D-->31)==0) { print "Det finns en fylld brännvinsflaska här.^";}
!! 06013	IF S(31)=1 THEN PRINT "Det finns en tom brännvinsflaska här."
  if((i_S_1D-->31)==1) { print "Det finns en tom brännvinsflaska här.^";}
!! 06014	IF A(19)<>Z THEN 6017
  .line6014; if((i_A_1D-->19)~=i_Z) { jump line6017;}
!! 06015	IF S(32)=0 THEN PRINT "Det finns en fylld vattenflaska här."
  if((i_S_1D-->32)==0) { print "Det finns en fylld vattenflaska här.^";}
!! 06016	IF S(32)=1 THEN PRINT "Det finns en tom vattenflaska här."
  if((i_S_1D-->32)==1) { print "Det finns en tom vattenflaska här.^";}
!! 06017	IF A(20)<>Z THEN 6020
  .line6017; if((i_A_1D-->20)~=i_Z) { jump line6020;}
!! 06018	IF S(33)=0 THEN PRINT "Det finns en pumpad boll här."
  if((i_S_1D-->33)==0) { print "Det finns en pumpad boll här.^";}
!! 06019	IF S(33)=1 THEN PRINT "Det finns en opumpad boll här."
  if((i_S_1D-->33)==1) { print "Det finns en opumpad boll här.^";}
!! 06020	IF A(4)=Z THEN PRINT "Det står en hillebard här."
  .line6020; if((i_A_1D-->4)==i_Z) { print "Det står en hillebard här.^";}
!! 06021	IF A(21)=Z THEN PRINT "Det står en spade här."
  if((i_A_1D-->21)==i_Z) { print "Det står en spade här.^";}
!! 06022	IF A(5)=Z THEN PRINT "Det ligger en dödskalle här."
  if((i_A_1D-->5)==i_Z) { print "Det ligger en dödskalle här.^";}
!! 06023	IF A(6)=Z THEN PRINT "Det finns en väckarklocka här."
  if((i_A_1D-->6)==i_Z) { print "Det finns en väckarklocka här.^";}
!! 06024	IF A(23)=Z THEN PRINT "Det ligger en tunn telefonkatalog här."
  if((i_A_1D-->23)==i_Z) { print "Det ligger en tunn telefonkatalog här.^";}
!! 06025	IF A(12)=Z THEN PRINT "Det ligger en faunsko här."
  if((i_A_1D-->12)==i_Z) { print "Det ligger en faunsko här.^";}
!! 06026	IF A(7)=Z THEN PRINT "Det finns en massa guldmynt här."
  if((i_A_1D-->7)==i_Z) { print "Det finns en massa guldmynt här.^";}
!! 06027	IF J(Z)=1 AND A(25)=Z THEN PRINT "En telefon är inkopplad i en jack i väggen."
  if((i_J_1D-->(i_Z))==1 && (i_A_1D-->25)==i_Z) { print "En telefon är inkopplad i en jack i väggen.^";}
!! 06028	IF J(Z)=1 AND A(25)<>Z AND A(30)<>Z THEN PRINT "Det finns en telefonjack i väggen."
  if((i_J_1D-->(i_Z))==1 && (i_A_1D-->25)~=i_Z && (i_A_1D-->30)~=i_Z) { print "Det finns en telefonjack i väggen.^";}
!! 06029	IF J(Z)<>1 AND A(25)=Z AND S(44)<>Z THEN PRINT "Det finns en telefon här."
  if((i_J_1D-->(i_Z))~=1 && (i_A_1D-->25)==i_Z && (i_S_1D-->44)~=i_Z) { print "Det finns en telefon här.^";}
!! 06030	IF A(26)=Z THEN PRINT "Det finns några nycklar här."
  if((i_A_1D-->26)==i_Z) { print "Det finns några nycklar här.^";}
!! 06031	IF A(27)=Z THEN PRINT "Det hänger en sax här."
  if((i_A_1D-->27)==i_Z) { print "Det hänger en sax här.^";}
!! 06032	IF A(28)=Z THEN PRINT "Det hänger en slägga här."
  if((i_A_1D-->28)==i_Z) { print "Det hänger en slägga här.^";}
!! 06033	IF A(22)=Z THEN PRINT "Det ligger ett äckligt lik här."
  if((i_A_1D-->22)==i_Z) { print "Det ligger ett äckligt lik här.^";}
!! 06034	IF A(11)=Z THEN PRINT "Det finns ett glittrande pärlhalsband här."
  if((i_A_1D-->11)==i_Z) { print "Det finns ett glittrande pärlhalsband här.^";}
!! 06035	IF A(8)=Z THEN PRINT "Det ligger en trilogi här."
  if((i_A_1D-->8)==i_Z) { print "Det ligger en trilogi här.^";}
!! 06036	IF A(24)=Z THEN PRINT "Det står en lampa här."
  if((i_A_1D-->24)==i_Z) { print "Det står en lampa här.^";}
!! 06037	IF A(9)=Z THEN PRINT "Det ligger ett kontrakt här."
  if((i_A_1D-->9)==i_Z) { print "Det ligger ett kontrakt här.^";}
!! 06038	IF A(10)=Z THEN PRINT "Det hänger en lagerkrans här."
  if((i_A_1D-->10)==i_Z) { print "Det hänger en lagerkrans här.^";}
!! 06039	IF S(30)=Z THEN 6200
  if((i_S_1D-->30)==i_Z) { jump line6200;}
!! 06040	IF J(Z)=1 AND A(30)=Z THEN PRINT "En förlängningssladd är inkopplad i en jack i väggen."
  .line6040; if((i_J_1D-->(i_Z))==1 && (i_A_1D-->30)==i_Z) { print "En förlängningssladd är inkopplad i en jack i väggen.^";}
!! 06042	IF J(Z)<>1 AND A(30)=Z THEN PRINT "Det ligger en förlängningssladd här."
  if((i_J_1D-->(i_Z))~=1 && (i_A_1D-->30)==i_Z) { print "Det ligger en förlängningssladd här.^";}
!! 06043	IF J(Z)<>1 AND S(44)=Z AND A(25)=Z THEN PRINT "En telefon är inkopplad i en förlängningssladd."
  if((i_J_1D-->(i_Z))~=1 && (i_S_1D-->44)==i_Z && (i_A_1D-->25)==i_Z) { print "En telefon är inkopplad i en förlängningssladd.^";}
!! 06044	IF S(44)=Z AND (A(25)<>Z OR J(Z)=1) THEN PRINT "En förlängningssladd sticker in hit."
  if((i_S_1D-->44)==i_Z && ((i_A_1D-->25)~=i_Z || (i_J_1D-->(i_Z))==1)) { print "En förlängningssladd sticker in hit.^";}
!! 06048	IF S(44)=-1 AND Z<>A(30) THEN S(44)=Z \ PRINT "Förlängningssladden räcker precis hit."
  if((i_S_1D-->44)==-1 && i_Z~=(i_A_1D-->30)) { (i_S_1D-->44)=i_Z;print "Förlängningssladden räcker precis hit.^";}
!! 06050	IF S(3)>0 THEN 29000
  if((i_S_1D-->3)>0) { jump line29000;}
!! 06060	IF INT(RND*20)<>1 OR S(50)<50 THEN 6069
!WARNING: random argument should be adjusted in line: 06060	IF INT(RND*20)<>1 OR S(50)<50 THEN 6069
!WARNING: int function skipped in line: 06060	IF INT(RND*20)<>1 OR S(50)<50 THEN 6069
  if(random(20)~=1 || (i_S_1D-->50)<50) { jump line6069;}
!! 06062	S(3)=S(3)+1 IF A(I)=1 FOR I=1 TO 14
  for(i_I=1:i_I<=14:i_I++) {if((i_A_1D-->(i_I))==1) { (i_S_1D-->3)=(i_S_1D-->3)+1; }}
!! 06064	IF S(3)>0 THEN S(4)=INT(RND*6)+INT(S(3)/2+0.5)
!WARNING: random argument should be adjusted in line: 06064	IF S(3)>0 THEN S(4)=INT(RND*6)+INT(S(3)/2+0.5)
!WARNING: int function skipped in line: 06064	IF S(3)>0 THEN S(4)=INT(RND*6)+INT(S(3)/2+0.5)
!WARNING: removed float value in line: 06064	IF S(3)>0 THEN S(4)=INT(RND*6)+INT(S(3)/2+0.5)
!WARNING: int function skipped in line: 06064	IF S(3)>0 THEN S(4)=INT(RND*6)+INT(S(3)/2+0.5)
  if((i_S_1D-->3)>0) { (i_S_1D-->4)=random(6)-1+(i_S_1D-->3)/2;}
!! 06069	IF INT(RND*30)<>1 THEN 6100
!WARNING: random argument should be adjusted in line: 06069	IF INT(RND*30)<>1 THEN 6100
!WARNING: int function skipped in line: 06069	IF INT(RND*30)<>1 THEN 6100
  .line6069; if(random(30)~=1) { jump line6100;}
!! 06070	IF S(48)>0 THEN PRINT "En glasmästare springer förbi dej."\S(48)=0
  if((i_S_1D-->48)>0) { print "En glasmästare springer förbi dej.^";(i_S_1D-->48)=0;}
!! 06072	IF S(15)<>1 AND S(17)<>1 AND S(18)<>1 THEN 6076
  if((i_S_1D-->15)~=1 && (i_S_1D-->17)~=1 && (i_S_1D-->18)~=1) { jump line6076;}
!! 06074	PRINT "En verkmästare från Stugas gatukontor lunkar förbi dej." \ S(15)=S(17)=S(18)=0
  print "En verkmästare från Stugas gatukontor lunkar förbi dej.^";(i_S_1D-->15)=(i_S_1D-->17)=(i_S_1D-->18)=0;
!! 06076	IF S(41)=1 THEN PRINT "En hissreparatör går förbi dej."\S(41)=0\S(40)=INT(RND*9)+1
!WARNING: random argument should be adjusted in line: 06076	IF S(41)=1 THEN PRINT "En hissreparatör går förbi dej."\S(41)=0\S(40)=INT(RND*9)+1
!WARNING: int function skipped in line: 06076	IF S(41)=1 THEN PRINT "En hissreparatör går förbi dej."\S(41)=0\S(40)=INT(RND*9)+1
  .line6076; if((i_S_1D-->41)==1) { print "En hissreparatör går förbi dej.^";(i_S_1D-->41)=0;(i_S_1D-->40)=random(9);}
!! 06098	IF S(50)-S(21)>25 AND S(21)>0 THEN 6130
  if((i_S_1D-->50)-(i_S_1D-->21)>25 && (i_S_1D-->21)>0) { jump line6130;}
!! 06100	IF A(29)<>Z THEN 6120
  .line6100; if((i_A_1D-->29)~=i_Z) { jump line6120;}
!! 06102	IF S(50)-S(51)>30 AND S(51)>0 THEN 6124
  if((i_S_1D-->50)-(i_S_1D-->51)>30 && (i_S_1D-->51)>0) { jump line6124;}
!! 06104	IF S(6)=0 THEN PRINT "Här står en vakt."
  if((i_S_1D-->6)==0) { print "Här står en vakt.^";}
!! 06106	IF S(6)=1 THEN PRINT "En full vakt raglar omkring här."
  if((i_S_1D-->6)==1) { print "En full vakt raglar omkring här.^";}
!! 06108	IF S(6)=2 THEN PRINT "Det finns blodfläckar på golvet." \ RETURN
  if((i_S_1D-->6)==2) { print "Det finns blodfläckar på golvet.^";return;}
!! 06110	IF S(6)=3 THEN PRINT "En vakt sover här."
  if((i_S_1D-->6)==3) { print "En vakt sover här.^";}
!! 06112	IF A(15)=2 THEN PRINT "Han har din kofot."
  .line6112; if((i_A_1D-->15)==2) { print "Han har din kofot.^";}
!! 06114	IF A(26)=2 THEN PRINT "Han har dina nycklar."
  if((i_A_1D-->26)==2) { print "Han har dina nycklar.^";}
!! 06116	IF A(25)=2 THEN PRINT "Han bär på en telefon."
  if((i_A_1D-->25)==2) { print "Han bär på en telefon.^";}
!! 06118	IF A(4)=2 THEN PRINT "Han bär på en juvelprydd hillebard."
  if((i_A_1D-->4)==2) { print "Han bär på en juvelprydd hillebard.^";}
!! 06119	RETURN
  return;
!! 06120	IF A(29)<>1 THEN RETURN
  .line6120; if((i_A_1D-->29)~=1) { return;}
!! 06122	IF S(50)-S(51)<31 AND S(51)>0 THEN PRINT "Du följs av en full vakt." \ GOTO 6112
  if((i_S_1D-->50)-(i_S_1D-->51)<31 && (i_S_1D-->51)>0) { print "Du följs av en full vakt.^";jump line6112;}
!! 06123	S(1)=S(1)-1
  (i_S_1D-->1)=(i_S_1D-->1)-1;
!! 06124	PRINT "Vakten har nyktrat till nu."
  .line6124; print "Vakten har nyktrat till nu.^";
!! 06126	IF S(6)=3 THEN PRINT "Han vaknar och sträcker på sej."
  if((i_S_1D-->6)==3) { print "Han vaknar och sträcker på sej.^";}
!! 06128	A(29)=Z \ S(6)=0 \ S(51)=0
  (i_A_1D-->29)=i_Z;(i_S_1D-->6)=0;(i_S_1D-->51)=0;
!! 06129	RETURN
  return;
!! 06130	S(21)=0
  .line6130; (i_S_1D-->21)=0;
!! 06131	PRINT"Dina fötter är läkta nu."
  print "Dina fötter är läkta nu.^";
!! 06132	GOTO 6100
  jump line6100;
!! 06200	IF A(19)>0 AND A(11)>0 THEN PRINT "Här sitter en gubbe." \ GOTO 6210
  .line6200; if((i_A_1D-->19)>0 && (i_A_1D-->11)>0) { print "Här sitter en gubbe.^";jump line6210;}
!! 06202	PRINT "Här sitter en gubbe med ett pärlhalsband runt halsen."
  print "Här sitter en gubbe med ett pärlhalsband runt halsen.^";
!! 06204	IF A(19)=0 THEN PRINT "I armarna har han en vattenflaska."
  if((i_A_1D-->19)==0) { print "I armarna har han en vattenflaska.^";}
!! 06206	IF A(19)=0 AND A(10)=0 THEN PRINT "På huvudet bär han din lagerkrans."
  if((i_A_1D-->19)==0 && (i_A_1D-->10)==0) { print "På huvudet bär han din lagerkrans.^";}
!! 06208	IF A(19)=0 AND A(10)=1 THEN PRINT "Han stirrar på din lagerkrans."
  if((i_A_1D-->19)==0 && (i_A_1D-->10)==1) { print "Han stirrar på din lagerkrans.^";}
!! 06210	PRINT  \ GOTO 6040
  .line6210; new_line;jump line6040;


!! 29000	REM XXX RÖVARE XXXX
  .line29000; !===  XXX RÖVARE XXXX
!! 29005	S(4)=S(4)+1
  (i_S_1D-->4)=(i_S_1D-->4)+1;
!! 29010	IF S(4)>8 THEN 29050
  if((i_S_1D-->4)>8) { jump line29050;}
!! 29015	IF RND<0.2 THEN S(4)=S(3)=0 \ GOTO 6069
!WARNING: random argument should be adjusted in line: 29015	IF RND<0.2 THEN S(4)=S(3)=0 \ GOTO 6069
!WARNING: removed float value in line: 29015	IF RND<0.2 THEN S(4)=S(3)=0 \ GOTO 6069
  if(random(100)<20) { (i_S_1D-->4)=(i_S_1D-->3)=0;jump line6069;}
!! 29020	IF RND<0.7 THEN PRINT "Du hör tunga fotsteg i närheten."
!WARNING: random argument should be adjusted in line: 29020	IF RND<0.7 THEN PRINT "Du hör tunga fotsteg i närheten."
!WARNING: removed float value in line: 29020	IF RND<0.7 THEN PRINT "Du hör tunga fotsteg i närheten."
  if(random(100)<70) { print "Du hör tunga fotsteg i närheten.^";}
!! 29025	GOTO 6069
  jump line6069;
!! 29050	IF Z=80 THEN 6069
  .line29050; if(i_Z==80) { jump line6069;}
!! 29055	B=0
  i_B=0;
!! 29060	IF INT(RND*4)=3 THEN S(3)=0 \ S(41)=1 \ GOTO 6069
!WARNING: random argument should be adjusted in line: 29060	IF INT(RND*4)=3 THEN S(3)=0 \ S(41)=1 \ GOTO 6069
!WARNING: int function skipped in line: 29060	IF INT(RND*4)=3 THEN S(3)=0 \ S(41)=1 \ GOTO 6069
  if(random(4)==4) { (i_S_1D-->3)=0;(i_S_1D-->41)=1;jump line6069;}
!! 29065	FOR I=1 TO 14
  for(i_I=1:i_I<=14:i_I++) {
!! 29070	IF A(I)=1 THEN A(I)=80 \ B=B+1 \ S(1)=S(1)-1
    if((i_A_1D-->(i_I))==1) { (i_A_1D-->(i_I))=80;i_B=i_B+1;(i_S_1D-->1)=(i_S_1D-->1)-1;}
!! 29075	IF A(I)=Z THEN A(I)=80 \ B=B+1
    if((i_A_1D-->(i_I))==i_Z) { (i_A_1D-->(i_I))=80;i_B=i_B+1;}
!! 29080	NEXT I
  }
!! 29085	IF B=0 THEN 6069
  if(i_B==0) { jump line6069;}
!! 29090	IF S(20)=1 THEN S(20)=0
  if((i_S_1D-->20)==1) { (i_S_1D-->20)=0;}
!! 29095	PRINT
  new_line;
!! 29100	PRINT "Plötsligt hoppar en skäggig rövare fram ur mörkret och säjer:"
  print "Plötsligt hoppar en skäggig rövare fram ur mörkret och säjer:^";
!! 29105	PRINT " - Jag snor det här krafset och gömmer det i mitt"
  print " - Jag snor det här krafset och gömmer det i mitt^";
!! 29110	PRINT "   gömställe långt nere!!"
  print "   gömställe långt nere!!^";
!! 29115	PRINT \ PRINT "Han försvinner lika fort som han kom!"
  print "^Han försvinner lika fort som han kom!^";
!! 29120	S(4)=-7 \ S(3)=-1
  (i_S_1D-->4)=-7;(i_S_1D-->3)=-1;
!! 29125	GOTO 6069
  jump line6069;


];