Post by Walt Decker on Oct 15, 2022 12:32:52 GMT -5
The interpreter fails if the tag target of MAPHANDLE contains a period.
Given:
'
One$ = ""
One$ = FN.OpenBinFile$("BINFILE.TXT", "#ONE.")
'One$ = FN.OpenBinFile$("BINFILE.TXT", "ONE")
PRINT #One$, "HELLO"
PRINT #One$, "WORLD"
PRINT #One$, "GOODBY"
RetVal = FN.CloseFile(One$)
One$ = FN.OpenOutPut$("OUTFILE.TXT", "#ONE.")
'One$ = FN.OpenOutPut$("OUTFILE.TXT", "ONE")
PRINT #One$, "HELLO"
PRINT #One$, "WORLD"
PRINT #One$, "GOODBY"
RetVal = FN.CloseFile(One$)
One$ = FN.InPut$("OUTFILE.TXT", "#ONE.")
'One$ = FN.InPut$("OUTFILE.TXT", "#ONE")
RetVal = FN.CloseFile(One$)
END
'----------------------------------------------
'----------------------------------------------
FUNCTION FN.OpenBinFile$(FlName$, Tag$)
OPEN FlName$ FOR BINARY AS #1
MAPHANDLE #1, Tag$
FN.OpenBinFile$ = Tag$
END FUNCTION
'----------------------------------------------
'----------------------------------------------
FUNCTION FN.CloseFile(Tag$)
CLOSE #Tag$
END FUNCTION
'----------------------------------------------
'----------------------------------------------
FUNCTION FN.OpenOutPut$(FlName$, Tag$)
OPEN FlName$ FOR OUTPUT AS #1
MAPHANDLE #1, Tag$
FN.OpenOutPut$ = Tag$
END FUNCTION
'----------------------------------------------
'----------------------------------------------
FUNCTION FN.InPut$(FlName$, Tag$)
OPEN FlName$ FOR INPUT AS #1
MAPHANDLE #1, Tag$
FN.InPut$ = Tag$
END FUNCTION
'