home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
egaint.zip
/
DISKMANT
/
EGAINT
/
FONTS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-07-13
|
2KB
|
76 lines
(*
* Copyright (C) 1989 Eric Ng
*
* Egaint is free software; you can redistribute it and/or modify it
* under the terms of the GNU General Public License, Version 1, as
* published by the Free Software Foundation.
*
* This program is distributed in the hope that it will be useful, but
* without any warranty whatsoever, without even the implied warranties
* of merchantability or fitness for a particular purpose. See the
* enclosed GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with egaint; see the file COPYING. If not, write to:
*
* Free Software Foundation, Inc.
* 675 Massachusetts Avenue
* Cambridge, Massachusetts 02139
*
*)
(*
* The complete egaint 0.93.05 package can be obtained at either of
* the following bulletin board systems:
*
* Tom and Sue McDermet's The Odyssey
* A carrier of the SmartNet network
* Morris Plains, New Jersey
* (201) 984-6574
*
* John Looker's Bandersnatch
* Phoenix Net #807/7
* Basking Ridge, New Jersey
* (201) 766-3801
*
* In addition, bug reports, modifications, and other assorted
* queries can be directed, via Internet e-mail, to
*
* erc@{mars,irss,inis}.njit.edu
*
* Please note that since I will be returning to college in the
* fall, future versions of egaint may not be posted on the above
* bulletin board systems. The e-mail address, however, should
* remain valid.
*
*)
(*
* Egaint 0.93.05 was originally written in Turbo Pascal 4.0;
* however, I have just received my upgrade copy of Turbo Pascal 5.5.
* This new version of the compiler, so far, has not exhibited
* any problems and compiled without change. What this means,
* through interpolation, is that it should (but is not guaranteed to)
* compile with Turbo Pascal 5.0 (but I can't verify this).
*
*)
{$B-}
{$D-}
{$I-}
{$L-}
{$R-}
{$S-}
{$V-}
Unit Fonts;
Interface
Procedure SansSerifFontProc;
Procedure SmallFontProc;
Implementation
Procedure SansSerifFontProc; External;
{$L sans.obj}
Procedure SmallFontProc; External;
{$L litt.obj}
End.