一份basic文件转化成c文件（自己收藏）的C文件

/**/ /****************************************************************/
/**/ /*       Created with BCX -- The BASIC To C Translator          */
/**/ /*            BCX (c) 1999, 2000 by Kevin Diggins               */
/**/ /****************************************************************/

#include  < windows.h >       /**/ /* Windows Specific Header File */
#include  < windowsx.h >      /**/ /* Windows Specific Header File */
#include  < commctrl.h >      /**/ /* Windows Specific Header File */
#include  < mmsystem.h >      /**/ /* Windows Specific Header File */
#include  < shellapi.h >      /**/ /* Windows Specific Header File */
#include  < winsock.h >       /**/ /* Windows Specific Header File */
#include  < stdio.h >
#include  < string .h >
#include  < stddef.h >
#include  < stdlib.h >
#include  < ctype.h >
#include  < setjmp.h >
#include  < math.h >
#include  < time.h >
#include  < cstdlib >
/**/ /* ------------------------ */
/**/ /*     System Variables     */
/**/ /* ------------------------ */

static  COORD cursor;
static  HANDLE hConsole;
static   int  color_fg  =   7 ;
static   int  color_bg  =   0 ;
static  jmp_buf  GosubStack[ 100 ];
static   int       GosubNdx;
static    int   StrCnt;
static    char  StrFunction [ 64 ][ 257 ];
static    char  InputBuffer [ 257 ];

/**/ /* ------------------- */
/**/ /*  User's Constants   */
/**/ /* ------------------- */


/**/ /* ----------------------- */
/**/ /*  User Global Variables  */
/**/ /* ----------------------- */

static    int     FLAG1;
static    double     XIDUMMY;
static    double     XIPRELOAD;
static    int     XISTEP;
static    double     TCDR;
static    double     TCDRPRELOAD;
static    int     TCDRMAX;
static    double     IORTPRELOAD;
static    int     DELTIME;
static    int     FS1;
static    int     FS2;
static    int     FS3;
static    char    XXX [ 257 ] = ... {'-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-'} ;
double  X;
char    B [ 257 ];
double  BB;
static    int     A3;
static    int     NDAY;
double     H3ARG;
static    int   KI;
static    int     NFLAG;
double   PI;
double   PIANG;
FILE  *   F1;
long   SORF;
char    FOUT [ 257 ];
int     DEBUG;
FILE  *   F2;
int   GG;
int     NSELECT;
int     ET;
int     NS;
int     NSETS;
double     Q3;
double     ATCDR [ 1001 ];
int     TIME [ 1001 ];
int  DIV;
double  DA;
double  FR;
int  SUNTIME;
double  DEGTORAD;
double  CDRLATRAD;
double  CDRLATDEG;
double  DECLDEG;
double  DECLRAD;
double  H3RAD;
double  H3DEG;
double  HOURANGDEG;
double  HOURANGRAD;
double  CHIDENOM;
double  CHI;
int  CAZ;
double  ABSORP;
double  Z4DEG;
double  Z4RAD;
double  E2RAD;
double  CDRELEV;
double  Z1RAD;
double  Z1DEG;
double  E1;
double  QS;
double  D;
char  D1[ 220 ];
double  TAMB;
double  EMISS;
double  USING;
double  VWIND;
double  QCF;
double  CDRLAT;
double  RLO;
double  TLO;
double  RHI;
double  QR;
double  QC;
double  TR;
double  THI;
double  HEATCAP;
double  HEATCORE;
int  HEATOUT;   // double
double  TT;
double  HEATOUTELSEHEATCAP;
double  AT;
double  W4;
double  DX;
double  R4;
double  R5;
double  TCDRTAMB;
char  INKEY[ 20 ];
double  T5;
double  U1;
double  P1;
double  K1;
double  Q1;
double  Q2;
char  C[ 220 ];
char  t[ 10 ];
int  I;
int  JK;
int  HNH;
int  SORM;
int  KTIMEMAX;
int  FLAG;
int  K  =   1 ;
int  P;
int  tcdrmax;
char  Z[ 220 ];
char  FILENAM[ 220 ];
// double Z;
double  WINDANGDEG;
char  FT[ 220 ];
char  FG[ 220 ];
char  COMMENT[ 220 ];
//  float F;
char  F [ 257 ];
char  FFF[ 257 ];
float  F8;
float  FL;
float  FM;
double  B1;
int  YC;
double  WINDANGRAD;
double  XLI;
double  XRI;
double  XM;
double  XHI;
double  XLO;
double  EPS;
double  grat;
int  IEND;
float  TEMP;
int  IER;
double  XL;
double   XR;
double  CHA;
double  TOL;
double  T3;
double  T4;
int  NUM;
double  FO;
double  FF;

double  value  =   0.0 ;
char   *  p;
char  temp[ 128 ] = ... {0} ;

/**/ /* ---------------------- */
/**/ /*  Standard Prototypes   */
/**/ /* ---------------------- */

float  sgn ( float );
float  Abs ( float );
char   * string  ( int ,  char   * );
int  len ( char   * );
int  fInt ( float );
void  cls();
void  locate ( int , int , int );


/**/ /* --------------------- */
/**/ /*  Run Time Functions   */
/**/ /* --------------------- */


float  sgn ( float  a)
... {
    if(a<0)
    ...{
        return -1;
    }
    if(a>0)
    ...{return 1;}
    return 0;
}

char   * string  ( int  count,  char   * a)
... {
    static char t [257];
    static int i;
    if (++StrCnt==64) StrCnt = 0;
    sprintf(t,"%s","");
    for(i=1;i<=count;i++)
    ...{
        sprintf(t,"%s%s",t,a);
    }
    sprintf(StrFunction[StrCnt],"%s",t);
    return StrFunction[StrCnt];
}


int  len ( char   * d)
... {return strlen(d);}

int  fInt ( float  a)
... {
    return a+0.5;
}


float  Abs ( float  a)
... {
    if(a<0)
    ...{return a*(-1);}
    else
    ...{return a;}
}

void  cls ()
... {
    DWORD ret;
    int attr;
    cursor.X = 0;
    cursor.Y = 0;
    FillConsoleOutputCharacter(hConsole,32,2000,cursor,&ret);
    attr = color_fg + color_bg * 16;
    FillConsoleOutputAttribute (hConsole,attr,2000,cursor,&ret);
    locate(1,1,1);
}

void  locate( int  row, int  col, int  show)
... {
    CONSOLE_CURSOR_INFO cci;
    cursor.X = col-1;
    cursor.Y = row-1;
    SetConsoleCursorPosition(hConsole,cursor);
    cci.bVisible = show;
    SetConsoleCursorInfo(hConsole,&cci);
}

void  splitstrng( char   *  str)
... {
  for(int i=0;i<strlen(str);i++)
   ...{
     if((str[i]==' ') && (str[i+1]==' '))
      ...{
         str[i]='