922 SOLIN$ = "C:\PIPPO.OKK"
930 OPEN "R", #1, SOLIN$, 67
940 FIELD #1, 10 AS U$, 1 AS G$, 1 AS M$, 1 AS A$, 22 AS F$, 2 AS E$, 2 AS D$, 20 AS ED$, 4 AS N$, 4 AS P$
950 DATN = AC * 10000 + MC * 100 + GC
960 CLS
970 'LOCATE 1, 1: PRINT T0$
980 FOR I = 1 TO LOF(1) / 67
990 GET 1, I
1160 XN = CVS(N$) : XN$ = STR$(XN)
1165 LSET F$ = XN$
1170 PUT 1, I
1220 NEXT I

float ConvertMbf4ToFloat(BYTE mbf[4]) 
{
	unsigned char *chp;
    float r, p;
    int E, I;
    chp = (unsigned char *) mbf;
    r = 1.0 + float(*(chp+2) % 128 ) / 128.0
            + float(*(chp+1)       ) / (256.0 * 128.0)
            + float( *chp          ) / (256.0 * 256.0 * 128.0);
    if ( (*(chp+2) / 128) == 1) r = -r;
    E = *(chp+3) - 129;
    p = 1.0;
    if (E > 0) {
      for (I = 1; I <= E; I++) p = p * 2.0;
    } else if (E < 0) {
      for (I = 1; I <= -E; I++) p = p / 2.0;
    } else {
    }
    r = r * p;
    return r;
}