> list "tick-bug.bas"
Dim t1%, t2%, t3%, t4%

' Comment this out and the ticks are accurate !!!
Pause 1000

SetTick 100, inc_t1, 1
SetTick  50, inc_t2, 2
SetTick  10, inc_t3, 3
SetTick   2, inc_t4, 4

Pause 1000

SetTick 0, inc_t4, 4
SetTick 0, inc_t3, 3
SetTick 0, inc_t2, 2
SetTick 0, inc_t1, 1

Print Str$(t1%); " should be ~10"
Print Str$(t2%); " should be ~20"
Print Str$(t3%); " should be ~100"
Print Str$(t4%); " should be ~500"

Sub inc_t1()
 Inc t1%
End Sub

Sub inc_t2()
 Inc t2%
End Sub

Sub inc_t3()
 Inc t3%
End Sub

Sub inc_t4()
 Inc t4%
End Sub

> run "tick-bug.bas"
18 should be ~10
37 should be ~20
188 should be ~100
681 should be ~500

list "error-bug.bas"                                                                                                        
Print "  ";
On Error Skip 1
Error "foo"
Print "MSG: " Mm.ErrMsg$

> run "error-bug.bas"
 MSG:
Error in line 5: foo

'test if we can remote program mites
'tested with maximite CMM1

'read ADC values from CMM1 in MMB4W

'open communication with the CMM1
open "com2:3800" as #1

'write a program to CMM1 from the data lines
do
 read a$
 if a$="" then a$=chr$(3)  'stop auto(save) mode with ctrl-C
 print #1,a$
 pause 500 'estimated wait between commands
loop until a$="run"

'gather the output of the CMM1 and print on screen
c$=""
do
 if loc(1)<>0 then
   b$=input$(1,#1)
   'convert ascii data separated by <CR> to numeric value
   if b$=chr$(13) then
     print val(c$):c$=""
   else
     c$=c$+b$
   end if
 end if
loop while inkey$=""

'terminate the program
print #1,chr$(3)  'stop running program
pause 1000
close #1
end

'data statements containing the CMM1 program and commands
data "new"  'clear program memory
data "auto" 'enter autosave mode
data "setpin 2,ain:settick 100,intr:do:loop:sub intr:print pin(2):end sub" 'the program
data "" 'this symbolizes the chr$(3)
data "run" 'start the program

> list "lof_bug.bas"
Option Console Both

Dim f$ = "hello_world.txt"

Open f$ For Output As #1
Print #1, "Hello World";

Print Lof(#1)
Close #1

Open f$ For Random As #1
Print Lof(#1)
Close #1

> run "lof_bug.bas"
11
11

> run "lof_bug.bas"
0
0

> list "eof_error.bas"
Option Console Both
Open "hello_world.txt" For Output As #11
Print #11, "Hello World"
Print Eof(#11)
Close #11

> run "eof_error.bas"
Error in line 4: Invalid file number

MMBASIC 0 "solarsys480x320.bas"

Option Console Both
Open "hello_world.txt" For Output As #11
Print #11, "Hello World"
Print Eof(#11)
Close #11

int file_eof(int fnbr) {
   if (fnbr < 0 || fnbr > MAXOPENFILES) ERROR_INVALID_FILE_NUMBER;
   if (fnbr == 0) return 0;

   switch (file_table[fnbr].type) {
       case fet_closed:
           ERROR_NOT_OPEN;
           break;

       case fet_file: {
           FILE *f = file_table[fnbr].file_ptr;
           errno = 0;
           int ch = fgetc(f);  // the Watcom compiler will only set eof after
                                // it has tried to read beyond the end of file
           error_check();
           int i = (feof(f) != 0) ? 1 : 0;
           error_check();
           ungetc(ch, f);  // undo the Watcom bug fix
           error_check();
           return i;
       }

       case fet_serial:
           return serial_eof(fnbr);
   }

   ERROR_INTERNAL_FAULT;
   return 1;
}

Open "hello_world.txt" For Output As #11
Print #11, "Hello World"
Print Eof(#11)
Close #11

'Blitz3d and Blitzplus

fileout = WriteFile("hello_dworld.txt")
DebugLog Eof(fileout); eof
WriteString( fileout, "MM4BW" )
DebugLog Eof(fileout); eof ?
WaitKey()

'glbasic  debug on

OPENFILE(1, "EOF.txt", FALSE)
DEBUG ENDOFFILE(1)
WRITELONG 1, 1234
DEBUG ENDOFFILE(1)
CLOSEFILE 1
SLEEP 2222


'  qb64
Open "EOFqb64.txt" For Output As #1
Print EOF(1)
Print #1, x, y, z$
Print EOF(1)
Close #1
Print "File created with data. Press a key!"
K$ = Input$(1) 'press a key

If CreateFile(0, "hello_world.txt" )
  Debug Lof(0)
  Debug Eof(0)
  Debug Loc(0)
  Debug ""
 WriteString(0,"Hello World",#PB_Ascii)
 Debug Lof(0)
 Debug Eof(0)
 Debug Loc(0)
 CloseFile(0)
EndIf

#include <errno.h>
#include <stdio.h>
#include <stdlib.h>

int main(int argc, char **argv) {
   errno = 0;
   FILE *f = fopen("hello-world.txt", "w");
   if (!f) perror("fopen() error");
   fprintf(f, "Hello World");
   printf("feof before flush = %d\n", feof(f));
   if (fflush(f) != 0) perror("fflush() error");
   printf("feof after flush = %d\n", feof(f));
   int ch = fgetc(f);
   if (ch == EOF) {
       printf("feof after fgetc = %d\n", feof(f));
       printf("ferror() = %d\n", ferror(f));
       printf("errno = %d\n", errno);
       if (ferror(f)) {
           perror("fgetc() error");
           exit(0);
       }
   } else {
       printf("OK\n");
   }
   if (fclose(f) != 0) perror("fclose() error");
}

thwill@PSEUK1383 MINGW64 /c/home-thwill
$ cl c-file-io.c
Microsoft (R) C/C++ Optimizing Compiler Version 19.14.26433 for x64
Copyright (C) Microsoft Corporation.  All rights reserved.

c-file-io.c
Microsoft (R) Incremental Linker Version 14.14.26433.0
Copyright (C) Microsoft Corporation.  All rights reserved.

/out:c-file-io.exe
c-file-io.obj

thwill@PSEUK1383 MINGW64 /c/home-thwill
$ ./c-file-io.exe
fgetc() error: No error
feof before flush = 0
feof after flush = 0
feof after fgetc = 0
ferror() = 1
errno = 0

thwill@pseuk1383:~/home-thwill$ gcc --version
gcc (Ubuntu 11.2.0-7ubuntu2) 11.2.0
Copyright (C) 2021 Free Software Foundation, Inc.
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

thwill@pseuk1383:~/home-thwill$ gcc c-file-io.c
thwill@pseuk1383:~/home-thwill$ ./a.out
feof before flush = 0
feof after flush = 0
feof after fgetc = 0
ferror() = 1
errno = 9
fgetc() error: Bad file descriptor

int MMfeof(int fnbr) {
 int i, c;
 if(fnbr < 0 || fnbr > 10) error("Invalid file number");
 if(fnbr == 0) return 0;
 fnbr--;
 if(MMComPtr[fnbr] != NULL) return SerialEOF(MMComPtr[fnbr]);
 if(MMFilePtr[fnbr] == NULL) error("File number is not open");
 errno = 0;
 c = fgetc(MMFilePtr[fnbr]); // the Watcom compiler will only set eof after it has tried to read beyond the end of file
 if(ErrorCheck()) return 0;
 i = (feof(MMFilePtr[fnbr]) != 0) ? -1 : 0;
 if(ErrorCheck()) return 0;
 ungetc(c, MMFilePtr[fnbr]); // undo the Watcom bug fix
 ErrorCheck();
 return i;
}