Category : Pascal Source Code
Archive   : 3DLAB110.ZIP
Filename : BINFILES.PAS

 
Output of file : BINFILES.PAS contained in archive : 3DLAB110.ZIP
{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
{ÄÄÄThis Unit contains (binary) file handling procedures.ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
{ÄÄÄ( C ) Copyright 1993 By Kimmo Fredriksson.ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}
{ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ}

{$A+ Word Alignment }
{$B- Short-circuit Boolean expression evaluation }
{$D- Debug information off }
{$E- Disable 80x87 run-time library }
{$F- Force Far Calls off }
{$G+ 80286 instructions }
{$I- I/O checking off }
{$L- Local Symbols off }
{$N- Calc reals by software }
{$O- Overlays not allowed }
{$P- Open string parameters disabled }
{$Q- Overflow Check off }
{$R- Range-checking off }
{$S- Stack-checking off }
{$T- Type-Check pointers off }
{$V- Strict Var-String off }
{$X+ Extended Syntax on }

UNIT BinFiles;

INTERFACE


FUNCTION FOpenRead( VAR f : FILE; CONST fn : STRING ) : Boolean;
FUNCTION FOpenWrite( VAR f : FILE; CONST fn : STRING ) : Boolean;


IMPLEMENTATION


{ÄAssign file f to filename fn, and try to open that file for readingÄÄÄÄÄÄÄÄ}

FUNCTION FOpenRead( VAR f : FILE; CONST fn : STRING ) : Boolean;
VAR IOErr : Integer;
BEGIN
Assign( f, fn );
ReSet( f, 1 );
IOErr := IOResult;
FOpenRead := IOErr = 0
END;


{ÄAssign file f to filename fn, and try to open that file for writingÄÄÄÄÄÄÄÄ}

FUNCTION FOpenWrite( VAR f : FILE; CONST fn : STRING ) : Boolean;
VAR IOErr : Integer;
BEGIN
Assign( f, fn );
ReWrite( f, 1 );
IOErr := IOResult;
FOpenWrite := IOErr = 0
END;

{ INITIALIZATION }

END.


  3 Responses to “Category : Pascal Source Code
Archive   : 3DLAB110.ZIP
Filename : BINFILES.PAS

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/