I am thinking can you create an fll instead? Remove printf functions and try to create it as fll.

>My problem is that i think this code read data in hex and so convert it to dec.
>Is it right?
>BiosCom is notuser-defined function. i find it in C++ help. it is a function for work with com port.
>
>
>>I don't think I can convert the entire code, but here are a few tips.
>>
>>Lines that start with "//" are comments.
>>
>>gotoxy() goes to a specific screen position (the screen is assumed to be in text mode, 80 columns x 25 lines, or something similar); printf() will show a text.
>>
>>if (ch) should be translated in VFP as if ch # 0, since it seems to be numeric, and that is the way equality is interpreted in C. Similar for while.
>>
>>I suspect that bioscom() is a user-defined function, not a built-in C command.
>>
>>
>>>Dear all,
>>>I have a C source code for reading data from com port.
>>>I want to change it to VFP code.
>>>Can anyone help me?
>>>I dont want to enter number for choose type of instrument. my instrument is Baskool and port is COM1 and Buad is 2400
>>>
>>>i need only section between if( scale_type==1) // Bascool
>>> and else // Scale
>>>
>>>thanks for your help
>>>
>>>
>>>
>>>
>>>

>>>
>>>#define PP 0x320
>>>#define NO1 14
>>>#define NO2 350
>>>
>>>#include <stdio.h>
>>>#include <conio.h>
>>>#include <dos.h>
>>>#include <io.h>
>>>#include <stdlib.h>
>>>#include <bios.h>
>>>
>>>void main()
>>>{
>>>  FILE *fop;
>>>  int t;
>>>  int i,j,k,l,i1,j1,l1,k1,zero,j2,l2,k2,last;
>>>  unsigned char ch ,comno,scale_type,baud;
>>>
>>>  textbackground(BLUE);
>>>  window(1,1,80,25);
>>>  clrscr();
>>>  gotoxy(30,2);
>>>  printf("P A N D  Industries Co.");
>>>
>>>  gotoxy(20,5);
>>>  printf("Enter COM Port No.:< 1:com1  , 2:com2 >");
>>>   do
>>>   {
>>>   comno = getch()-'1';
>>>   } while((comno != 0)&&(comno != 1));
>>>  putch(comno+'1');
>>>
>>>  gotoxy(20,10);
>>>  printf("Enter Scale Type :< 1:Bascool  , 2:Scale >");
>>>   do
>>>   {
>>>   scale_type= getch()-'0';
>>>   } while((scale_type!= 1)&&(scale_type!= 2));
>>>  putch(scale_type+'0');
>>>
>>>  gotoxy(20,15);
>>>  printf("Enter Baud Rate :< 1:2400, 2:4800 bps >");
>>>   do
>>>   {
>>>   baud= getch()-'0';
>>>   } while((baud!= 1)&&(baud!= 2));
>>>  putch(baud+'0');
>>>//....................................................................
>>>  if( baud==2) bioscom(0,0xc3,comno);
>>>    else       bioscom(0,0xa3,comno);
>>>
>>>  clrscr();
>>>
>>>  gotoxy(30,5);
>>>  printf("P A N D  Industries Co.");
>>>  gotoxy(20,8);
>>>  printf("Test Program For Reading Weight From Serial Port");
>>>  gotoxy(20,10);
>>>  if( scale_type==1)  printf(" COM %d: %d bps   Bascool",comno+1,baud*2400);
>>>	  else        printf(" COM %d: %d bps   Scale",comno+1,baud*2400);
>>>
>>>  if( scale_type==1)      // Bascool
>>>	while(!kbhit())
>>>	{
>>>	 while ( ( bioscom(2,0,comno) & 0xff ) !=0xbb && !kbhit()) ;
>>>	 if(!kbhit())
>>>	 {
>>>	 gotoxy(20,15);
>>>	 ch = bioscom(2,0,comno) & 0xff ;
>>>	 if (ch==0xe0 || ch==0xf0 )
>>>	  ch = bioscom(2,0,comno) & 0xff ;
>>>	 if(ch)  printf("total weight = %x",ch);
>>>	 else  printf("total weight = ");
>>>	 ch = bioscom(2,0,comno) & 0xff ;
>>>	 printf("%x",ch>>4);
>>>	 printf(".");
>>>	 printf("%x",ch%16);
>>>	 ch = bioscom(2,0,comno) & 0xff ;
>>>//     ch=ch>>4;
>>>	 printf("%02x    ",ch );
>>>	 }
>>>	}
>>>	else                    // Scale
>>>  while(!kbhit())
>>>	{
>>>	 while ( (( bioscom(2,0,comno) & 0xff ) !=0xbb )&&!kbhit()) ;
>>>	 gotoxy(20,15);
>>>
>>>	 ch = bioscom(2,0,comno) & 0xff ;
>>>	 if (ch==0xe0 || ch==0xf0 )
>>>	  ch = bioscom(2,0,comno) & 0xff ;
>>>	 if(ch)  printf("total weight = %x",ch);
>>>	 else  printf("total weight = ");
>>>	 //printf("total weight = %x.",ch);
>>>	 ch = bioscom(2,0,comno) & 0xff ;
>>>	 printf("%x",ch>>4);
>>>	 printf(".");
>>>	 printf("%x",ch%16);
>>>	 //printf("%02x",ch );
>>>	 ch = bioscom(2,0,comno) & 0xff ;
>>>	 //ch=ch>>4;
>>>	 printf("%02x",ch );
>>>	 printf("  ");
>>>	}
>>>  textbackground(BLACK);
>>>  window(1,1,80,25);
>>>  clrscr();
>>>
>>>}
>>>
>>>