home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
h
/
htmix20.zip
/
FE.ZIP
/
LOADFNT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-07-11
|
2KB
|
50 lines
program LoadFont;
{┌──────────────────────────────── INFO ────────────────────────────────────┐}
{│ File : LOADFNT.PAS │}
{│ Author : Harald Thunem │}
{│ Purpose : Load a VGA text font from file. │}
{│ Updated : July 10 1992 │}
{└──────────────────────────────────────────────────────────────────────────┘}
{────────────────────────── Compiler directives ─────────────────────────────}
{$A+ Word align data }
{$B- Short-circuit Boolean expression evaluation }
{$E- Disable linking with 8087-emulating run-time library }
{$G+ Enable 80286 code generation }
{$R- Disable generation of range-checking code }
{$S- Disable generation of stack-overflow checking code }
{$V- String variable checking }
{$X- Disable Turbo Pascal's extended syntax }
{$N+ 80x87 code generation }
{$D- Disable generation of debug information }
{────────────────────────────────────────────────────────────────────────────}
uses Dos,
Strings,
FEUnit;
var Path : PathStr;
Dir : DirStr;
Name : NameStr;
Ext : ExtStr;
begin
WriteLn('Load font v2.0');
WriteLn;
if ParamCount<>1 then
begin
WriteLn('Wrong number of parameters.');
WriteLn('Usage : LOADFNT filename.ext');
Halt(1);
end;
Path := UpcaseStr(ParamStr(1));
FSplit(Path,Dir,Name,Ext);
if Ext='' then
Path := Dir+Name+'.FNT';
if ReadFontFile(Path) then
begin
LoadUserFont;
WriteLn('Font ',Name,' loaded.');
end
else WriteLn('Error loading fontfile ',Path);
end.