> 480MHz Colour Maximite 2 G2
MMBasic Version 5.07.01
Copyright 2011-2021 Geoff Graham
Copyright 2016-2021 Peter Mather

> list "loc_test.bas"
Open "foo.txt" For Output As #1
Close #1

Open "foo.txt" For Random As #1
Print Loc(#1) ' Should be 1

Print #1, "foo";
Print Loc(#1) ' Should be 4
Close #1

Open "foo.txt" For Random As #1
Print Loc(#1) ' Should be 4 if the DOS code is a good reference
Close #1


> run "loc_test.bas"
0
0
0

void fun_loc(void) {
int fnbr;
getargs(&ep, 1, ",");
if(argc == 0) error("Syntax");
if(*argv[0] == '#') argv[0]++;
fnbr = getinteger(argv[0]);
   if(fnbr == 0)                                                   // accessing the console
       iret = kbhitConsole();
   else {
       if(fnbr < 1 || fnbr > MAXOPENFILES) error("File number");
       if(FileTable[fnbr].com == 0) error("File number is not open");
       if(FileTable[fnbr].com > MAXCOMPORTS) {
//            if(fmode[fnbr] & FA_WRITE){
//                iret = (*(FileTable[fnbr].fptr)).fptr + 1;
//            } else {
//             iret = RoundUptoBlock((*(FileTable[fnbr].fptr)).fptr)  -511 + buffpointer[fnbr];
//           }
       } else iret = SerialRxStatus(FileTable[fnbr].com);
   }
   targ = T_INT;
}