loop1:
Errhandler: 'error handler sub program line label
IF ERR THEN
PRINT "Error"; ERR; "on program file line"; _ERRORLINE
BEEP ' warning beep
END IF
OPEN "LiveBigBoardErrorLog.txt" FOR APPEND AS #2
PRINT #2, DATE$, TIME$, ERR, _ERRORLINE
CLOSE #2
'RESUME NEXT ' moves program to code following the error.
GOTO loop1
DIM SHARED FileHandles(100) 'for up to 100 files to be open at a time.
FH = GetHandle
OPEN "temp.txt" FOR OUTPUT AS FH
IF CheckHandle(FH) THEN
PRINT FH; " is open"
ELSE
PRINT FH; " is freed"
END IF
DO
_LIMIT 10
LOOP UNTIL CloseHandle(FH) = 0 'A check to pause execution until the file is actually freed
IF CheckHandle(FH) THEN
PRINT FH; " is open"
ELSE
PRINT FH; " is freed"
END IF
FUNCTION GetHandle
FOR i = 0 TO 100
IF FileHandles(i) = 0 THEN
FileHandles(i) = FREEFILE
GetHandle = FileHandles(i)
EXIT FUNCTION
END IF
NEXT
GetHandle = 0 '0 represents a failed file handle attempt
END FUNCTION
FUNCTION CloseHandle (Handle)
FOR i = 0 TO 100
IF FileHandles(i) = Handle THEN CLOSE Handle: FileHandles(i) = 0: CloseHandle = -1 'success
NEXT
'a return value of 0 means the handle wasn't found, nor freed.
END FUNCTION
FUNCTION CheckHandle (Handle)
FOR i = 0 TO 100
IF FileHandles(i) = Handle THEN CheckHandle = -1 'handle found
NEXT
'a return value of 0 means the handle wasn't found.
END FUNCTION