if( isalpha(*line_buffer) )
{ while( isalpha(*line_buffer) || *line_buffer=='$' )
{
strncat(befehl,line_buffer,1);
strcpy(line_buffer,line_buffer+1);
strcpy(line_buffer2,line_buffer2+1);
}
if(strlen( befehl ) )
{
i_token=istoken( befehl );
do // forward search
{
// forward search
while( i_token==(UWORD)NULL && strlen( befehl )>2 )
{
i_token=istoken( befehl );
if(i_token)
{
strcpy(befehl,"");
out_line[i_out_line]=(char)(i_token/256);
i_out_line++;
out_line[i_out_line]=(UBYTE)i_token;
i_out_line++;
i_token=0;
}
else
{
strcat(merke, befehl+strlen(befehl)-1);
*(befehl+strlen(befehl)-1)=0;
}
i_token=istoken( befehl );
if(i_token)
{
strcpy(befehl,"");
out_line[i_out_line]=(char)(i_token/256);
i_out_line++;
out_line[i_out_line]=(UBYTE)i_token;
i_out_line++;
while(strlen(merke))
{
strcat(befehl, (merke+strlen(merke)-1) );
*(merke+strlen(merke)-1)=0;
}
i_token=0;
}
/*
while(strlen(merke))
{
strcat(befehl, (merke+strlen(merke)-1) );
*(merke+strlen(merke)-1)=0;
}
*/
}
while(strlen(merke))
{
strcat(befehl, (merke+strlen(merke)-1) );
*(merke+strlen(merke)-1)=0;
}
if(strlen(befehl)&&!i_token)
{
out_line[i_out_line]=*befehl;
i_out_line++;
strcpy(befehl, befehl+1);
}
}while( strlen( befehl )>2 &&!i_token);
i_token=istoken( befehl );
if(i_token)
{
strcpy(befehl,"");
out_line[i_out_line]=(char)(i_token/256);
i_out_line++;
out_line[i_out_line]=(UBYTE)i_token;
i_out_line++;
i_token=0;
}
}
else
i_token=0;
if(i_token)
{ out_line[i_out_line]=(char)(i_token/256);
i_out_line++;
out_line[i_out_line]=(UBYTE)i_token;
i_out_line++;
}
else
if(strlen( befehl ) )
{
memcpy(&out_line[i_out_line], befehl, strlen(befehl));
i_out_line+=strlen(befehl);
strcpy(befehl,"");
}
}