!! 90600	DEF FNA$(I1)
Array fnc_FNA_str-->6; ! temporary string
Array fnc_FNA_str0->100;
Array fnc_FNA_str1->100;
Array fnc_FNA_str2->100;
Array fnc_FNA_str3->100;
Array fnc_FNA_str4->100;
Array fnc_FNA_str5->100;
Array fnc_FNA_str_retval->100;

[ fnc_FNA i_I1 ;
  fnc_FNA_str-->0=fnc_FNA_str0;
  fnc_FNA_str-->1=fnc_FNA_str1;
  fnc_FNA_str-->2=fnc_FNA_str2;
  fnc_FNA_str-->3=fnc_FNA_str3;
  fnc_FNA_str-->4=fnc_FNA_str4;
  fnc_FNA_str-->5=fnc_FNA_str5;
!! 90602	IF I1=7 OR I1=26 THEN FNA$="inga " ELSE IF I1=9 OR I1=11 OR I1=22 THEN FNA$="inget " ELSE FNA$="ingen "
  if(i_I1==7 || i_I1==26) {
    decStrCpy(fnc_FNA_str_retval,decWriteString(fnc_FNA_str-->0,"inga ")); 
  } else {
    if(i_I1==9 || i_I1==11 || i_I1==22) { 
      decStrCpy(fnc_FNA_str_retval,decWriteString(fnc_FNA_str-->1,"inget ")); 
    } else {
      decStrCpy(fnc_FNA_str_retval,decWriteString(fnc_FNA_str-->2,"ingen ")); 
    } 
  }
!! 90604	FNEND
return fnc_FNA_str_retval; ];
!! 90650	DEF FNS$(X1$,X)

Array fnc_FNS_str-->6; ! temporary string
Array fnc_FNS_str0->100;
Array fnc_FNS_str1->100;
Array fnc_FNS_str2->100;
Array fnc_FNS_str3->100;
Array fnc_FNS_str4->100;
Array fnc_FNS_str5->100;
Array fnc_FNS_str_retval->100;

[ fnc_FNS s_X1 i_X;
  fnc_FNS_str-->0=fnc_FNS_str0;
  fnc_FNS_str-->1=fnc_FNS_str1;
  fnc_FNS_str-->2=fnc_FNS_str2;
  fnc_FNS_str-->3=fnc_FNS_str3;
  fnc_FNS_str-->4=fnc_FNS_str4;
  fnc_FNS_str-->5=fnc_FNS_str5;
!! 90655	D=ECHO(1)
  i_D=decEcho(1);
!! 90660	D=SLEEP(X)
  .line90660; i_D=decSleep(i_X);
!! 90665	IF D THEN PRINT"Tyst, jag ";X1$;\INPUT "!"_A$ \ GOTO 90660
!WARNING: Skipping INPUT in line: 90665	IF D THEN PRINT"Tyst, jag ";X1$;\INPUT "!"_A$ \ GOTO 90660
  if(i_D) { print "Tyst, jag ";PrintString(s_X1);decInputStr("!",false,s_A);jump line90660;}
!! 90670	D=ECHO(0) \ FNS$="" \ PRINT
  i_D=decEcho(0);decStrCpy(fnc_FNS_str_retval,decWriteString(fnc_FNS_str-->0,""));new_line;
!! 90675	FNEND
return fnc_FNS_str_retval; ];
!! 90700	DEF FNC$(A$)

Array fnc_FNC_str-->6; ! temporary string
Array fnc_FNC_str0->100;
Array fnc_FNC_str1->100;
Array fnc_FNC_str2->100;
Array fnc_FNC_str3->100;
Array fnc_FNC_str4->100;
Array fnc_FNC_str5->100;
Array fnc_FNC_str_retval->100;

[ fnc_FNC s_A i;
  fnc_FNC_str-->0=fnc_FNC_str0;
  fnc_FNC_str-->1=fnc_FNC_str1;
  fnc_FNC_str-->2=fnc_FNC_str2;
  fnc_FNC_str-->3=fnc_FNC_str3;
  fnc_FNC_str-->4=fnc_FNC_str4;
  fnc_FNC_str-->5=fnc_FNC_str5;
!! 90705	X1$=FNL$(A$,130) \ X2$="" \ FNC$=""
  decStrCpy(s_X1,fnc_FNL(s_A,130));decStrCpy(s_X2,decWriteString(fnc_FNC_str-->0,""));decStrCpy(fnc_FNC_str_retval,decWriteString(fnc_FNC_str-->1,""));
!! 90710	IF LEN(X1$)>20 THEN X2$=FNM$(X1$,21) \ X1$=FNL$(X1$,20)
  .line90710; if(StrLen(s_X1)>20) { decStrCpy(s_X2,fnc_FNM(s_X1,21));decStrCpy(s_X1,fnc_FNL(s_X1,20));}
!! 90715	CHANGE X1$ TO X
!WARNING: Skipping CHANGE in line: 90715	CHANGE X1$ TO X
  for(i=0:i<(s_X1-->0):i++) i_X_1D-->(i+1)=s_X1->(2+i);  ! Hemmasnickrad rad
  i_X_1D-->0 = s_X1 --> 0;  ! Hemmasnickrad rad
!! 90720	X(X2)=X(X2)-32 IF X(X2)>96 AND X(X2)<126 FOR X2=1 TO X(0)
  for(i_X2=1:i_X2<=(i_X_1D-->0):i_X2++) {
    if(((i_X_1D-->(i_X2))>96 && (i_X_1D-->(i_X2))<123)
!       ||((i_X_1D-->(i_X2))>223 && (i_X_1D-->(i_X2))<255 && (i_X_1D-->(i_X2))~=247)
      ) 
    {
      i_X_1D-->(i_X2) = i_X_1D-->(i_X2) - 32;
    } else if(i_X_1D-->(i_X2)=='å') i_X_1D-->(i_X2)='Å';
    else if(i_X_1D-->(i_X2)=='ä') i_X_1D-->(i_X2)='Ä';
    else if(i_X_1D-->(i_X2)=='ö') i_X_1D-->(i_X2)='Ö';
  }
!! 90750	CHANGE X TO X1$
!WARNING: Skipping CHANGE in line: 90750	CHANGE X TO X1$
  for(i=0:i<(s_X1-->0):i++) s_X1->(2+i)=i_X_1D-->(i+1); ! Hemmasnickrad rad
!! 90755	FNC$=FNC$+X1$
  decStrCpy(fnc_FNC_str_retval,decStrCat(fnc_FNC_str_retval,s_X1));
!! 90760	IF X2$<>"" THEN X1$=X2$ \ X2$="" \ GOTO 90710
  if(decStrCmp(s_X2,decWriteString(fnc_FNC_str-->0,""))~=0) { decStrCpy(s_X1,s_X2);decStrCpy(s_X2,decWriteString(fnc_FNC_str-->1,""));jump line90710;}
!! 90765	FNEND
return fnc_FNC_str_retval; ];
!! 90800	DEF FNL$(X1$,X)

Array fnc_FNL_str-->6; ! temporary string
Array fnc_FNL_str0->100;
Array fnc_FNL_str1->100;
Array fnc_FNL_str2->100;
Array fnc_FNL_str3->100;
Array fnc_FNL_str4->100;
Array fnc_FNL_str5->100;
Array fnc_FNL_str_retval1->100;
Array fnc_FNL_str_retval2->100;
Array fnc_FNL_str_retval-->3;

[ fnc_FNL s_X1 i_X;
  fnc_FNL_str-->0=fnc_FNL_str0;
  fnc_FNL_str-->1=fnc_FNL_str1;
  fnc_FNL_str-->2=fnc_FNL_str2;
  fnc_FNL_str-->3=fnc_FNL_str3;
  fnc_FNL_str-->4=fnc_FNL_str4;
  fnc_FNL_str-->5=fnc_FNL_str5;
  fnc_FNL_str_retval-->1=fnc_FNL_str_retval1;
  fnc_FNL_str_retval-->2=fnc_FNL_str_retval2;
  fnc_FNL_str_retval-->0=1-(fnc_FNL_str_retval-->0);
!! 90805	IF X<=0 THEN FNL$="" \ GOTO 90815
  if(i_X<=0) { decStrCpy(fnc_FNL_str_retval-->((fnc_FNL_str_retval-->0)+1),decWriteString(fnc_FNL_str-->0,""));jump line90815;}
!! 90810	IF X>LEN(X1$) THEN FNL$=X1$ ELSE FNL$=LEFT$(X1$,X)
  if(i_X>StrLen(s_X1)) { decStrCpy(fnc_FNL_str_retval-->((fnc_FNL_str_retval-->0)+1),s_X1); } else {decStrCpy(fnc_FNL_str_retval-->((fnc_FNL_str_retval-->0)+1),decLeftString(fnc_FNL_str-->0,s_X1,i_X)); }
!! 90815	FNEND
.line90815; return fnc_FNL_str_retval-->((fnc_FNL_str_retval-->0)+1); 
];
!! 90820	DEF FNR$(X1$,X)

Array fnc_FNR_str-->6; ! temporary string
Array fnc_FNR_str0->100;
Array fnc_FNR_str1->100;
Array fnc_FNR_str2->100;
Array fnc_FNR_str3->100;
Array fnc_FNR_str4->100;
Array fnc_FNR_str5->100;
Array fnc_FNR_str_retval->100;

[ fnc_FNR s_X1 i_X;
  fnc_FNR_str-->0=fnc_FNR_str0;
  fnc_FNR_str-->1=fnc_FNR_str1;
  fnc_FNR_str-->2=fnc_FNR_str2;
  fnc_FNR_str-->3=fnc_FNR_str3;
  fnc_FNR_str-->4=fnc_FNR_str4;
  fnc_FNR_str-->5=fnc_FNR_str5;
!! 90825	IF X<=0 THEN FNR$="" \ GOTO 90835
  if(i_X<=0) { decStrCpy(fnc_FNR_str_retval,decWriteString(fnc_FNR_str-->0,""));jump line90835;}
!! 90830	IF X>LEN(X1$) THEN FNR$=X1$ ELSE FNR$=RIGHT$(X1$,X)
  if(i_X>StrLen(s_X1)) { decStrCpy(fnc_FNR_str_retval,s_X1); } else {decStrCpy(fnc_FNR_str_retval,decRightString(fnc_FNR_str-->0,s_X1,i_X)); }
!! 90835	FNEND
.line90835; return fnc_FNR_str_retval; ];
!! 90840	DEF FNM$(X1$,X)

Array fnc_FNM_str-->6; ! temporary string
Array fnc_FNM_str0->100;
Array fnc_FNM_str1->100;
Array fnc_FNM_str2->100;
Array fnc_FNM_str3->100;
Array fnc_FNM_str4->100;
Array fnc_FNM_str5->100;
Array fnc_FNM_str_retval->100;

[ fnc_FNM s_X1 i_X;
  fnc_FNM_str-->0=fnc_FNM_str0;
  fnc_FNM_str-->1=fnc_FNM_str1;
  fnc_FNM_str-->2=fnc_FNM_str2;
  fnc_FNM_str-->3=fnc_FNM_str3;
  fnc_FNM_str-->4=fnc_FNM_str4;
  fnc_FNM_str-->5=fnc_FNM_str5;
!! 90845	IF X>LEN(X1$) OR X<=0 THEN FNM$="" \ GOTO 90855
  if(i_X>StrLen(s_X1) || i_X<=0) { decStrCpy(fnc_FNM_str_retval,decWriteString(fnc_FNM_str-->0,""));jump line90855;}
!! 90850	FNM$=MID$(X1$,X,LEN(X1$)-X+1)
  decStrCpy(fnc_FNM_str_retval,decMidString(fnc_FNM_str-->0,s_X1,i_X,StrLen(s_X1)-i_X+1));
!! 90855	FNEND
.line90855; return fnc_FNM_str_retval; ];
!! 90900	DEF FNF$(X)

Array fnc_FNF_str-->6; ! temporary string
Array fnc_FNF_str0->100;
Array fnc_FNF_str1->100;
Array fnc_FNF_str2->100;
Array fnc_FNF_str3->100;
Array fnc_FNF_str4->100;
Array fnc_FNF_str5->100;
Array fnc_FNF_str_retval->100;

[ fnc_FNF i_X ;
  fnc_FNF_str-->0=fnc_FNF_str0;
  fnc_FNF_str-->1=fnc_FNF_str1;
  fnc_FNF_str-->2=fnc_FNF_str2;
  fnc_FNF_str-->3=fnc_FNF_str3;
  fnc_FNF_str-->4=fnc_FNF_str4;
  fnc_FNF_str-->5=fnc_FNF_str5;
!! 90910	READ X1$ FOR I1=0 TO X(X)
  for(i_I1=0:i_I1<=(i_X_1D-->(i_X)):i_I1++) {WriteString(s_X1,data-->data_ptr++);}
!! 90920	FNF$=X1$
  decStrCpy(fnc_FNF_str_retval,s_X1);
!! 90930	READ X1$ FOR I1=X(X)+1 TO 5
  for(i_I1=(i_X_1D-->(i_X))+1:i_I1<=5:i_I1++) {WriteString(s_X1,data-->data_ptr++);}
!! 90940	FNEND
return fnc_FNF_str_retval; ];
!! 90950	DEF FNI$(X1$)

Array fnc_FNI_str-->6; ! temporary string
Array fnc_FNI_str0->100;
Array fnc_FNI_str1->100;
Array fnc_FNI_str2->100;
Array fnc_FNI_str3->100;
Array fnc_FNI_str4->100;
Array fnc_FNI_str5->100;
Array fnc_FNI_str_retval->100;

[ fnc_FNI s_X1 i;
  fnc_FNI_str-->0=fnc_FNI_str0;
  fnc_FNI_str-->1=fnc_FNI_str1;
  fnc_FNI_str-->2=fnc_FNI_str2;
  fnc_FNI_str-->3=fnc_FNI_str3;
  fnc_FNI_str-->4=fnc_FNI_str4;
  fnc_FNI_str-->5=fnc_FNI_str5;

.restart_FNI;  
  
!! 90960	IF M2%=1% AND W$<>CHR$(3) THEN PRINT #2,W$'&&&&&
!WARNING: removed float-integer conversion in line: 90960	IF M2%=1% AND W$<>CHR$(3) THEN PRINT #2,W$'&&&&&
!WARNING: Skipping IO print# in line: 90960	IF M2%=1% AND W$<>CHR$(3) THEN PRINT #2,W$'&&&&&
!  if(i_M2_==1 && decStrCmp(s_W,decChrString(fnc_FNI_str-->0,3))~=0) { }
!! 90970	PRINT X1$;
  if(s_X1 && StrLen(s_X1)>0) {
    PrintString(s_X1);
    print " ";
  }
!! 90980	IF M3%=0% THEN INPUT ""_W$ \ GOTO 90990
!WARNING: removed float-integer conversion in line: 90980	IF M3%=0% THEN INPUT ""_W$ \ GOTO 90990
!WARNING: Skipping INPUT in line: 90980	IF M3%=0% THEN INPUT ""_W$ \ GOTO 90990
!  .line90980; if(i_M3_==0) { decInputStr("",false,s_W); jump line90990;}
  .line90980; decInputStr("",false,s_W); !  jump line90990;

! Section to print debug info
if(decStrCmp(s_W,decWriteString(fnc_FNI_str-->1,"?#%"))==0) {
    print "Available instructions:^^";
    print "?#z^";
    print "?#an 0<=n<=30^";
    print "?#a$n 0<=n<=30^";
    print "?#sn 0<=n<=55^";
    jump restart_FNI;
}
else if(decStrCmp(s_W,decWriteString(fnc_FNI_str-->1,"?#z"))==0) {
    print "Z=", i_Z, "^";
    jump restart_FNI;
}
else if(decInstr2(s_W,decWriteString(fnc_FNI_str-->1,"?#s"))==1) {
  i = decVal(decMidString(fnc_FNI_str-->1, s_W, 4, -1));
  if(i>=0 && i<=55) {
    print "S(",i,")=", i_S_1D-->i, "^";
    jump restart_FNI;
  }
}
else if(decInstr2(s_W,decWriteString(fnc_FNI_str-->1,"?#a$"))==1) {
  i = decVal(decMidString(fnc_FNI_str-->1, s_W, 5, -1));
  if(i>=0 && i<=30) {
    print "A$(",i,",3)=";
    PrintString((s_A_2D-->(i))-->3);
    print "^";
    jump restart_FNI;
  } 
}
else if(decInstr2(s_W,decWriteString(fnc_FNI_str-->1,"?#a"))==1) {
  i = decVal(decMidString(fnc_FNI_str-->1, s_W, 4, -1));
  if(i>=0 && i<=30) {
    print "A(",i,")=", i_A_1D-->i, "^";
    jump restart_FNI;
  }
}

!! 90990	FNI$=W$
  .line90990; decStrCpy(fnc_FNI_str_retval,s_W);
!! 90995	FNEND
return fnc_FNI_str_retval; 
];