!! 12950	IF M2%=1% THEN GOTO 12970'&&&&&
!WARNING: removed float-integer conversion in line: 12950	IF M2%=1% THEN GOTO 12970'&&&&&
  .line12950; if(i_M2_==1) { jump line12970;}
!! 12951	PRINT "Vad heter loggfilen"; \ INPUT LINE M2$'&&&&&
!WARNING: Skipping INPUT in line: 12951	PRINT "Vad heter loggfilen"; \ INPUT LINE M2$'&&&&&
  print "Vad heter loggfilen"; decInputStr("",true,s_M2);
!! 12952	ON ERROR GOTO 12962'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 12952	ON ERROR GOTO 12962'&&&&&
!! 12954	OPEN M2$ FOR OUTPUT AS FILE #2'&&&&&
!WARNING: Skipping IO OPEN FOR OUTPUT in line: 12954	OPEN M2$ FOR OUTPUT AS FILE #2'&&&&&
!! 12956	ON ERROR GOTO 97000'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 12956	ON ERROR GOTO 97000'&&&&&
!! 12958	PRINT "Nu loggas alla kommandon på filen ";M2$'&&&&&
  print "Nu loggas alla kommandon på filen ";PrintString(s_M2);new_line;
!! 12960	M2%=1% \ W$=CHR$(3) \ GOTO 12210'&&&&&
!WARNING: removed float-integer conversion in line: 12960	M2%=1% \ W$=CHR$(3) \ GOTO 12210'&&&&&
  i_M2_=1;decStrCpy(s_W,decChrString(main_str-->0,3));jump line12210;





!! 12962	RESUME 12964'&&&&&
!WARNING: Skipping RESUME in line: 12962	RESUME 12964'&&&&&
!! 12964	ON ERROR GOTO 97000'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 12964	ON ERROR GOTO 97000'&&&&&
!! 12966	PRINT "? Jag kan inte öppna ";M2$'&&&&&
  print "? Jag kan inte öppna ";PrintString(s_M2);new_line;
!! 12968	GOTO 12210'&&&&&
  jump line12210;



!! 12970	M2%=0% \ CLOSE 2'&&&&&
!WARNING: removed float-integer conversion in line: 12970	M2%=0% \ CLOSE 2'&&&&&
!WARNING: Skipping IO CLOSE in line: 12970	M2%=0% \ CLOSE 2'&&&&&
  .line12970; i_M2_=0;
!! 12972	PRINT "Loggningen på ";M2$;" avslutad."'&&&&&
  print "Loggningen på ";PrintString(s_M2);print " avslutad.^";
!! 12974	GOTO 12210'&&&&&
  jump line12210;
!! 12975	PRINT "Vad heter loggfilen"; \ INPUT LINE M3$'&&&&&
!WARNING: Skipping INPUT in line: 12975	PRINT "Vad heter loggfilen"; \ INPUT LINE M3$'&&&&&
  .line12975; print "Vad heter loggfilen";decInputStr("",false,s_M3);
!! 12976	IF M3$="" THEN 12210 ELSE IF M3%=1% THEN CLOSE 3 \ M3%=0%'&&&&&
!WARNING: removed float-integer conversion in line: 12976	IF M3$="" THEN 12210 ELSE IF M3%=1% THEN CLOSE 3 \ M3%=0%'&&&&&
!WARNING: Skipping IO CLOSE in line: 12976	IF M3$="" THEN 12210 ELSE IF M3%=1% THEN CLOSE 3 \ M3%=0%'&&&&&
!WARNING: removed float-integer conversion in line: 12976	IF M3$="" THEN 12210 ELSE IF M3%=1% THEN CLOSE 3 \ M3%=0%'&&&&&
  if(decStrCmp(s_M3,decWriteString(main_str-->0,""))==0) { jump line12210; } else {if(i_M3_==1) {  }i_M3_=0;}
!! 12977	ON ERROR GOTO 12985'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 12977	ON ERROR GOTO 12985'&&&&&
!! 12979	OPEN M3$ FOR INPUT AS FILE #3'&&&&&
!WARNING: Skipping IO OPEN FOR INPUT in line: 12979	OPEN M3$ FOR INPUT AS FILE #3'&&&&&
!! 12981	ON ERROR GOTO 97000'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 12981	ON ERROR GOTO 97000'&&&&&
!! 12983	M3%=1% \ GOTO 12210'&&&&&
!WARNING: removed float-integer conversion in line: 12983	M3%=1% \ GOTO 12210'&&&&&
  i_M3_=1;jump line12210;



!! 12985	RESUME 12987'&&&&&
!WARNING: Skipping RESUME in line: 12985	RESUME 12987'&&&&&
!! 12987	PRINT "? Jag kan inte öppna ";M3$'&&&&&
  print "? Jag kan inte öppna ";PrintString(s_M3);new_line;
!! 12988	ON ERROR GOTO 97000'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 12988	ON ERROR GOTO 97000'&&&&&
!! 12989	GOTO 12210'&&&&&
  jump line12210;


!! 80005	ON ERROR GOTO 80500'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 80005	ON ERROR GOTO 80500'&&&&&
!! 80100	OPEN "STUGA.SPA" FOR OUTPUT AS FILE #1'&&&&&
!WARNING: Skipping IO OPEN FOR OUTPUT in line: 80100	OPEN "STUGA.SPA" FOR OUTPUT AS FILE #1'&&&&&
!! 80102	ON ERROR GOTO 97000'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 80102	ON ERROR GOTO 97000'&&&&&
!! 80105	MARGIN #1,132 \ QUOTE #1 \ X=0'&&&&&
!WARNING: Skipping MARGIN in line: 80105	MARGIN #1,132 \ QUOTE #1 \ X=0'&&&&&
!WARNING: Skipping QUOTE in line: 80105	MARGIN #1,132 \ QUOTE #1 \ X=0'&&&&&
  i_X=0;
!! 80110	PRINT #1,A(I); FOR I=0 TO A(0)'&&&&&
!WARNING: Skipping IO print# in line: 80110	PRINT #1,A(I); FOR I=0 TO A(0)'&&&&&
  for(i_I=0:i_I<=(i_A_1D-->0):i_I++) {}
!! 80115	X=X+A(I)/(PI) FOR I=0 TO A(0)'&&&&&
  for(i_I=0:i_I<=(i_A_1D-->0):i_I++) {i_X=i_X+(i_A_1D-->(i_I))/(i_PI);}
!! 80120	PRINT #1'&&&&&
!WARNING: Skipping IO print# in line: 80120	PRINT #1'&&&&&
!! 80125	PRINT #1,S(I); FOR I=0 TO S(0)'&&&&&
!WARNING: Skipping IO print# in line: 80125	PRINT #1,S(I); FOR I=0 TO S(0)'&&&&&
  for(i_I=0:i_I<=(i_S_1D-->0):i_I++) {}
!! 80127	X=X+S(I)/(PI-1) FOR I=0 TO S(0)'&&&&&
  for(i_I=0:i_I<=(i_S_1D-->0):i_I++) {i_X=i_X+(i_S_1D-->(i_I))/(i_PI-1);}
!! 80130	PRINT #1'&&&&&
!WARNING: Skipping IO print# in line: 80130	PRINT #1'&&&&&
!! 80131	PRINT #1,G/2,Z*7,X+G+Z'&&&&&
!WARNING: Skipping IO print# in line: 80131	PRINT #1,G/2,Z*7,X+G+Z'&&&&&
!! 80132	FOR I=0 TO S(24)'&&&&&
  for(i_I=0:i_I<=(i_S_1D-->24):i_I++) {
!! 80135	IF W$(I)="" THEN PRINT #1,"-----" ELSE PRINT #1,W$(I)'&&&&&
!WARNING: Skipping IO print# in line: 80135	IF W$(I)="" THEN PRINT #1,"-----" ELSE PRINT #1,W$(I)'&&&&&
!WARNING: Skipping IO print# in line: 80135	IF W$(I)="" THEN PRINT #1,"-----" ELSE PRINT #1,W$(I)'&&&&&
    if(decStrCmp((s_W_1D-->(i_I))-->0,decWriteString(main_str-->0,""))==0) {  } else { }
!! 80138	NEXT I'&&&&&
  }
!! 80140	PRINT #1,J(I); FOR I=0 TO J(0)'&&&&&
!WARNING: Skipping IO print# in line: 80140	PRINT #1,J(I); FOR I=0 TO J(0)'&&&&&
  for(i_I=0:i_I<=(i_J_1D-->0):i_I++) {}
!! 80150	CLOSE 1'&&&&&
!WARNING: Skipping IO CLOSE in line: 80150	CLOSE 1'&&&&&
!! 80155	PRINT "Det nuvarande läget är sparat på filen STUGA.SPA."'&&&&&
  print "Det nuvarande läget är sparat på filen STUGA.SPA.^";





!! 80202	ON ERROR GOTO 80500'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 80202	ON ERROR GOTO 80500'&&&&&
!! 80205	OPEN "STUGA.SPA" FOR INPUT AS FILE #1'&&&&&
!WARNING: Skipping IO OPEN FOR INPUT in line: 80205	OPEN "STUGA.SPA" FOR INPUT AS FILE #1'&&&&&
!! 80210	ON ERROR GOTO 80520'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 80210	ON ERROR GOTO 80520'&&&&&
!! 80300	MARGIN #1,132 \ X=0'&&&&&
!WARNING: Skipping MARGIN in line: 80300	MARGIN #1,132 \ X=0'&&&&&
  i_X=0;
!! 80305	INPUT #1,A(0)'&&&&&
!WARNING: Skipping IO INPUT in line: 80305	INPUT #1,A(0)'&&&&&
!! 80310	INPUT #1,A(I) FOR I=1 TO A(0)'&&&&&
!WARNING: Skipping IO INPUT in line: 80310	INPUT #1,A(I) FOR I=1 TO A(0)'&&&&&
  for(i_I=1:i_I<=(i_A_1D-->0):i_I++) {}
!! 80315	X=X+A(I)/(PI) FOR I=0 TO A(0)'&&&&&
  for(i_I=0:i_I<=(i_A_1D-->0):i_I++) {i_X=i_X+(i_A_1D-->(i_I))/(i_PI);}
!! 80318	INPUT #1,S(0)'&&&&&
!WARNING: Skipping IO INPUT in line: 80318	INPUT #1,S(0)'&&&&&
!! 80319	IF S(0)=0 THEN S(0)=53'$$$$$ Standardvärde. Raden bör tas bort småningom'&&&&&
  if((i_S_1D-->0)==0) { (i_S_1D-->0)=53;}
!! 80320	INPUT #1,S(I) FOR I=1 TO S(0)'&&&&&
!WARNING: Skipping IO INPUT in line: 80320	INPUT #1,S(I) FOR I=1 TO S(0)'&&&&&
  for(i_I=1:i_I<=(i_S_1D-->0):i_I++) {}
!! 80325	X=X+S(I)/(PI-1) FOR I=0 TO S(0)'&&&&&
  for(i_I=0:i_I<=(i_S_1D-->0):i_I++) {i_X=i_X+(i_S_1D-->(i_I))/(i_PI-1);}
!! 80326	IF S(24)=0 THEN S(24)=6'$$$$$'&&&&&
  if((i_S_1D-->24)==0) { (i_S_1D-->24)=6;}
!! 80327	ON ERROR GOTO 80540'$$$$$ Koll om gammal fil. Raden bör tas bort.'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 80327	ON ERROR GOTO 80540'$$$$$ Koll om gammal fil. Raden bör tas bort.'&&&&&
!! 80329	INPUT #1,G,Z,I1'&&&&&
!WARNING: Skipping IO INPUT in line: 80329	INPUT #1,G,Z,I1'&&&&&
!! 80330	INPUT #1,W$(I) FOR I=0 TO S(24)'&&&&&
!WARNING: Skipping IO INPUT in line: 80330	INPUT #1,W$(I) FOR I=0 TO S(24)'&&&&&
  for(i_I=0:i_I<=(i_S_1D-->24):i_I++) {}
!! 80332	W$(I)="" IF FNL$(W$(I),5)="-----" FOR I=0 TO S(24)'&&&&&
  .line80332; for(i_I=0:i_I<=(i_S_1D-->24):i_I++) {if(decStrCmp(fnc_FNL((s_W_1D-->(i_I))-->0,5),decWriteString(main_str-->1,"-----"))==0) { decStrCpy((s_W_1D-->(i_I))-->0,decWriteString(main_str-->0,"")); }}
!! 80336	IF END#1 THEN 80340'$$$$$'&&&&&
!WARNING: Skipping END# (IO function) in line: 80336	IF END#1 THEN 80340'$$$$$'&&&&&
  if(1) { jump line80340;}
!! 80337	INPUT #1,J(0)
!WARNING: Skipping IO INPUT in line: 80337	INPUT #1,J(0)
!! 80338	INPUT #1,J(I) FOR I=1 TO 100
!WARNING: Skipping IO INPUT in line: 80338	INPUT #1,J(I) FOR I=1 TO 100
  for(i_I=1:i_I<=100:i_I++) {}
!! 80340	G=G*2 \ Z=Z/7'&&&&&
  .line80340; i_G=i_G*2;i_Z=i_Z/7;
!! 80341	X=X+G+Z'&&&&&
  i_X=i_X+i_G+i_Z;
!! 80342	CLOSE 1'&&&&&
!WARNING: Skipping IO CLOSE in line: 80342	CLOSE 1'&&&&&
!! 80343	ON ERROR GOTO 97000'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 80343	ON ERROR GOTO 97000'&&&&&
!! 80345	IF ABS(X-I1)>0.03 THEN PRINT "Fel på STUGA.SPA!" \ STOP'&&&&&
!WARNING: removed float value in line: 80345	IF ABS(X-I1)>0.03 THEN PRINT "Fel på STUGA.SPA!" \ STOP'&&&&&
  if(decAbs(i_X-i_I1)>0) { print "Fel på STUGA.SPA!^";quit;}
!! 80350	IF Z=4 THEN 41000'&&&&&
  if(i_Z==4) { jump line41000;}
!! 80355	IF Z<8 OR Z>100 THEN PRINT "Fel i STUGA.SPA!" \ STOP'&&&&&
  if(i_Z<8 || i_Z>100) { print "Fel i STUGA.SPA!^";quit;}




!! 80500	PRINT "? Kan inte öppna STUGA.SPA."'&&&&&
  .line80500; print "? Kan inte öppna STUGA.SPA.^";
!! 80505	RESUME 80510'&&&&&
!WARNING: Skipping RESUME in line: 80505	RESUME 80510'&&&&&
!! 80510	ON ERROR GOTO 97000'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 80510	ON ERROR GOTO 97000'&&&&&
!! 80515	GOTO 12210'&&&&&
  jump line12210;
!! 80520	PRINT "Fel inuti STUGA.SPA!"'&&&&&
  .line80520; print "Fel inuti STUGA.SPA!^";
!! 80525	CLOSE 1'&&&&&
!WARNING: Skipping IO CLOSE in line: 80525	CLOSE 1'&&&&&
!! 80530	RESUME 99999'&&&&&
!WARNING: Skipping RESUME in line: 80530	RESUME 99999'&&&&&
!! 80540	RESUME 80545'$$$$$ Raderna 80540-80565 bör tas bort småningom.'&&&&&
!WARNING: Skipping RESUME in line: 80540	RESUME 80545'$$$$$ Raderna 80540-80565 bör tas bort småningom.'&&&&&
!! 80545	ON ERROR GOTO 80520'&&&&&
!WARNING: Skipping IO ON-ERROR in line: 80545	ON ERROR GOTO 80520'&&&&&
!! 80550	INPUT #1,W$(I) FOR I=0 TO 6'&&&&&
!WARNING: Skipping IO INPUT in line: 80550	INPUT #1,W$(I) FOR I=0 TO 6'&&&&&
  for(i_I=0:i_I<=6:i_I++) {}
!! 80552	INPUT #1,W$(3)'Starttid'&&&&&
!WARNING: Skipping IO INPUT in line: 80552	INPUT #1,W$(3)'Starttid'&&&&&
!! 80555	INPUT #1,A1$ FOR I=8 TO 14'&&&&&
!WARNING: Skipping IO INPUT in line: 80555	INPUT #1,A1$ FOR I=8 TO 14'&&&&&
  for(i_I=8:i_I<=14:i_I++) {}
!! 80560	INPUT #1,G,Z,I1'&&&&&
!WARNING: Skipping IO INPUT in line: 80560	INPUT #1,G,Z,I1'&&&&&
!! 80565	GOTO 80332'$$$$$'&&&&&
  jump line80332;




!! 90982	IF END#3 THEN M3%=0% \ GOTO 90980'&&&&&
!WARNING: Skipping END# (IO function) in line: 90982	IF END#3 THEN M3%=0% \ GOTO 90980'&&&&&
!WARNING: removed float-integer conversion in line: 90982	IF END#3 THEN M3%=0% \ GOTO 90980'&&&&&
  if(1) { i_M3_=0;jump line90980;}
!! 90984	INPUT LINE #3,W$ \ PRINT W$'&&&&&
!WARNING: Skipping IO INPUT in line: 90984	INPUT LINE #3,W$ \ PRINT W$'&&&&&
  PrintString(s_W);new_line;




!! 97000	IF ERR<>27 THEN 97004
!WARNING: Skipping ERR in line: 97000	IF ERR<>27 THEN 97004
.line97000; if(0~=27) { jump line97004;}
!! 97001	IF S2=0 THEN S1=1 \ RESUME 12999
!WARNING: Skipping RESUME in line: 97001	IF S2=0 THEN S1=1 \ RESUME 12999
if(i_S2==0) { i_S1=1;}
!! 97002	X=0 \ X1=0 \ IF S1<2 THEN S1=2 ELSE S1=1 \ S2=0
i_X=0;i_X1=0;if(i_S1<2) { i_S1=2; } else {i_S1=1; }i_S2=0;
!! 97003	RESUME 12999
!WARNING: Skipping RESUME in line: 97003	RESUME 12999
!! 97004	PRINT "? Fel på rad"ERL". Felkod:"ERR
!WARNING: Skipping ERL in line: 97004	PRINT "? Fel på rad"ERL". Felkod:"ERR
!WARNING: Skipping ERR in line: 97004	PRINT "? Fel på rad"ERL". Felkod:"ERR
.line97004; print "? Fel på rad";print 0;print ". Felkod:";print 0;new_line;
!! 97006	RESUME
!WARNING: Skipping RESUME in line: 97006	RESUME
!! 97010	'%%%%% Raderna 97010 - 98034 behövs bara på Oden och Nadja
.line97010; !=== %%%%% Raderna 97010 - 98034 behövs bara på Oden och Nadja
!! 97011	PRINT "? Kan inte öppna STUGA.TXT<11,155>. Ge kommandot"'%%%%%
print "? Kan inte öppna STUGA.TXT<11,155>. Ge kommandot^";
!! 97012	PRINT "  PATH/ADD:DSKD: innan du kör STUGA nästa gång"'%%%%%
print "  PATH/ADD:DSKD: innan du kör STUGA nästa gång^";
!! 97014	PRINT "  så slipper du förhoppningsvis denna utskrift."'%%%%%
print "  så slipper du förhoppningsvis denna utskrift.^";
!! 97016	RESUME 99996'%%%%%
!WARNING: Skipping RESUME in line: 97016	RESUME 99996'%%%%%





!! 98000	INPUT "S, A, A$, W$ eller Z; index; S eller L:"_A1$,A1%,A2$'%%%%%
!WARNING: removed float-integer conversion in line: 98000	INPUT "S, A, A$, W$ eller Z; index; S eller L:"_A1$,A1%,A2$'%%%%%
!WARNING: Skipping INPUT in line: 98000	INPUT "S, A, A$, W$ eller Z; index; S eller L:"_A1$,A1%,A2$'%%%%%
!! 98001	ON ERROR GOTO 98020'%%%%%
!WARNING: Skipping IO ON-ERROR in line: 98001	ON ERROR GOTO 98020'%%%%%
!! 98002	IF A2$="S" THEN INPUT "Nytt värde:"_A3$'%%%%%
!WARNING: Skipping INPUT in line: 98002	IF A2$="S" THEN INPUT "Nytt värde:"_A3$'%%%%%
if(decStrCmp(s_A2,decWriteString(fnc_FNI_str-->0,"S"))==0) { }
!! 98003	IF A1$="S" THEN PRINT S(A1%) \ IF A2$="S" THEN S(A1%)=VAL(A3$)'%%%%%
!WARNING: removed float-integer conversion in line: 98003	IF A1$="S" THEN PRINT S(A1%) \ IF A2$="S" THEN S(A1%)=VAL(A3$)'%%%%%
!WARNING: removed float-integer conversion in line: 98003	IF A1$="S" THEN PRINT S(A1%) \ IF A2$="S" THEN S(A1%)=VAL(A3$)'%%%%%
if(decStrCmp(s_A1,decWriteString(fnc_FNI_str-->0,"S"))==0) { print (i_S_1D-->(i_A1_));new_line;if(decStrCmp(s_A2,decWriteString(fnc_FNI_str-->1,"S"))==0) { (i_S_1D-->(i_A1_))=decVal(s_A3);}}
!! 98004	IF A1$="A" THEN PRINT A(A1%) \ IF A2$="S" THEN A(A1%)=VAL(A3$)'%%%%%
!WARNING: removed float-integer conversion in line: 98004	IF A1$="A" THEN PRINT A(A1%) \ IF A2$="S" THEN A(A1%)=VAL(A3$)'%%%%%
!WARNING: removed float-integer conversion in line: 98004	IF A1$="A" THEN PRINT A(A1%) \ IF A2$="S" THEN A(A1%)=VAL(A3$)'%%%%%
if(decStrCmp(s_A1,decWriteString(fnc_FNI_str-->0,"A"))==0) { print (i_A_1D-->(i_A1_));new_line;if(decStrCmp(s_A2,decWriteString(fnc_FNI_str-->1,"S"))==0) { (i_A_1D-->(i_A1_))=decVal(s_A3);}}
!! 98006	IF A1$="W$" THEN PRINT W$(A1%) \ IF A2$="S" THEN W$(A1%)=A3$'%%%%%
!WARNING: removed float-integer conversion in line: 98006	IF A1$="W$" THEN PRINT W$(A1%) \ IF A2$="S" THEN W$(A1%)=A3$'%%%%%
!WARNING: removed float-integer conversion in line: 98006	IF A1$="W$" THEN PRINT W$(A1%) \ IF A2$="S" THEN W$(A1%)=A3$'%%%%%
if(decStrCmp(s_A1,decWriteString(fnc_FNI_str-->0,"W$"))==0) { PrintString((s_W_1D-->(i_A1_))-->0);new_line;if(decStrCmp(s_A2,decWriteString(fnc_FNI_str-->1,"S"))==0) { decStrCpy((s_W_1D-->(i_A1_))-->0,s_A3);}}
!! 98007	IF A1$="Z" THEN PRINT Z \ IF A2$="S" THEN Z=VAL(A3$) \ GOTO 80360'%%%%%
if(decStrCmp(s_A1,decWriteString(fnc_FNI_str-->0,"Z"))==0) { print i_Z;new_line;if(decStrCmp(s_A2,decWriteString(fnc_FNI_str-->1,"S"))==0) { i_Z=decVal(s_A3);jump line80360;}}
!! 98008	IF A1$="A$" THEN 98030'%%%%%
if(decStrCmp(s_A1,decWriteString(fnc_FNI_str-->0,"A$"))==0) { jump line98030;}
!! 98009	ON ERROR GOTO 97000'%%%%%
!WARNING: Skipping IO ON-ERROR in line: 98009	ON ERROR GOTO 97000'%%%%%
!! 98010	A$=FNI$("") \ GOTO 12214'%%%%%
decStrCpy(s_A,fnc_FNI(decWriteString(fnc_FNI_str-->0,"")));jump line12214;
!! 98020	PRINT "Felaktigt index!"'%%%%%
.line98020; print "Felaktigt index!^";
!! 98022	RESUME 98009'%%%%%
!WARNING: Skipping RESUME in line: 98022	RESUME 98009'%%%%%
!! 98030	INPUT "0, 1, 2 eller 3:"_A2%'%%%%%
!WARNING: removed float-integer conversion in line: 98030	INPUT "0, 1, 2 eller 3:"_A2%'%%%%%
!WARNING: Skipping INPUT in line: 98030	INPUT "0, 1, 2 eller 3:"_A2%'%%%%%
!! 98032	PRINT A$(A1%,A2%) \ IF A2$="S" THEN A$(A1%,A2%)=A3$'%%%%%
!WARNING: removed float-integer conversion in line: 98032	PRINT A$(A1%,A2%) \ IF A2$="S" THEN A$(A1%,A2%)=A3$'%%%%%
!WARNING: removed float-integer conversion in line: 98032	PRINT A$(A1%,A2%) \ IF A2$="S" THEN A$(A1%,A2%)=A3$'%%%%%
!WARNING: removed float-integer conversion in line: 98032	PRINT A$(A1%,A2%) \ IF A2$="S" THEN A$(A1%,A2%)=A3$'%%%%%
!WARNING: removed float-integer conversion in line: 98032	PRINT A$(A1%,A2%) \ IF A2$="S" THEN A$(A1%,A2%)=A3$'%%%%%
PrintString(((s_A_2D-->(i_A1_))-->(i_A2_)));new_line;if(decStrCmp(s_A2,decWriteString(fnc_FNI_str-->0,"S"))==0) { decStrCpy(((s_A_2D-->(i_A1_))-->(i_A2_)),s_A3);}
!! 98034	GOTO 98009'%%%%%
jump line98009;



!! 99004	IF W$(6)="" THEN W$(6)=FNI$("Vad heter du ?")'%%%%% Kan tas bort
  if(decStrCmp((s_W_1D-->6)-->0,decWriteString(fnc_FNI_str-->0,""))==0) { decStrCpy((s_W_1D-->6)-->0,fnc_FNI(decWriteString(fnc_FNI_str-->1,"Vad heter du ?")));}



!! 99302	INPUT "Vill du ge några synpunkter på STUGA";A$ \ A$=FNC$(A$)'%%%%%
!WARNING: Skipping INPUT in line: 99302	INPUT "Vill du ge några synpunkter på STUGA";A$ \ A$=FNC$(A$)'%%%%%
  decInputStr("Vill du ge några synpunkter på STUGA",true,s_A);decStrCpy(s_A,fnc_FNC(s_A));
!! 99305	IF FNL$(A$,1)="J" THEN 99350'%%%%%
if(StrCmp(fnc_FNL(s_A,1),decWriteString(fnc_FNI_str-->0,"J"))==0) { jump line99350;}
!! 99310	IF FNL$(A$,1)="N" THEN I=0 \ GOTO 99400'%%%%%
if(StrCmp(fnc_FNL(s_A,1),decWriteString(fnc_FNI_str-->0,"N"))==0) { i_I=0;jump line99400;}
!! 99315	PRINT "Svara JA eller NEJ!"'%%%%%
print "Svara JA eller NEJ!^";
!! 99320	GOTO 99300'%%%%%
jump line99300;
!! 99350	PRINT "Skriv nu! Avsluta med en extra radframmatning."'%%%%%
.line99350; print "Skriv nu! Avsluta med en extra radframmatning.^";
!! 99355	FOR I=1 TO 50'%%%%%
for(i_I=1:i_I<=50:i_I++) {
!! 99360	INPUT LINE W$(I)'%%%%%
!WARNING: Skipping INPUT in line: 99360	INPUT LINE W$(I)'%%%%%
  decInputStr("",false,s_W_1D-->i_I);
!! 99365	IF W$(I)="" THEN I=I-1 \ GOTO 99395'%%%%%
  if(StrCmp((s_W_1D-->(i_I))-->0,decWriteString(fnc_FNI_str-->0,""))==0) { i_I=i_I-1;jump line99395;}
!! 99370	IF LEN(W$(I))>80 THEN W$(I)=FNL$(W$(I),80)'%%%%%
  if(StrLen((s_W_1D-->(i_I))-->0)>80) { decStrCpy((s_W_1D-->(i_I))-->0,fnc_FNL((s_W_1D-->(i_I))-->0,80));}
!! 99375	NEXT I'%%%%%
}
!! 99395	PRINT "Tack!"'%%%%%
.line99395; print "Tack!^";
!! 99400	ON ERROR GOTO 97010'%%%%%
!WARNING: Skipping IO ON-ERROR in line: 99400	ON ERROR GOTO 97010'%%%%%
.line99400;
!! 99402	OPEN "STUGA.TXT[11,155]$80" AS FILE :1'%%%%%
!WARNING: Skipping IO OPEN AS in line: 99402	OPEN "STUGA.TXT[11,155]$80" AS FILE :1'%%%%%
!! 99405	SET :1,LOF(:1)+1'%%%%%
!WARNING: Skipping IO SET in line: 99405	SET :1,LOF(:1)+1'%%%%%
!! 99410	A$=DATE$+" "+TIME$+"  "+STR$(S(2))+"  "+W$(6)'%%%%%
decStrCpy(s_A,decStrCat(decStrCat(decStrCat(decStrCat(decStrCat(decStrCat(decDate(fnc_FNI_str-->0),decWriteString(fnc_FNI_str-->1," ")),decTime(fnc_FNI_str-->2)),decWriteString(fnc_FNI_str-->3,"  ")),decStrString(fnc_FNI_str-->4,(i_S_1D-->2))),decWriteString(fnc_FNI_str-->5,"  ")),(s_W_1D-->6)-->0));
!! 99415	WRITE :1,A$'%%%%%
!WARNING: Skipping IO WRITE in line: 99415	WRITE :1,A$'%%%%%
!! 99420	WRITE :1,W$(J) FOR J=1 TO I'%%%%%
!WARNING: Skipping IO WRITE in line: 99420	WRITE :1,W$(J) FOR J=1 TO I'%%%%%
for(i_J=1:i_J<=i_I:i_J++) {}
!! 99500	CLOSE 1'%%%%%
!WARNING: Skipping IO CLOSE in line: 99500	CLOSE 1'%%%%%