home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
FNTPAK32.ZIP
/
PASCAL.EXE
/
DEMO_SYM.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-08-16
|
2KB
|
81 lines
{**********************************************************************
Demo_SYM.Pas Copyright 1994, Rob W. Smetana
Demonstrate how to:
1. Select symbols (or icons) from Font Pak's library.
2. Determine how many symbols there are.
Requires:
1. LdSymbols.OBJ (text-mode symbols)
Notes:
It is CRITICAL that you be in TEXT-mode when you call the
text-mode procedures. A crash awaits you if you're not.
*************************************************************************}
Uses CRT,
Font_Pak; { The Font_Pak unit declares/links procedures }
(* We'll demonstrate these. They're declared in unit Font Pak.
procedure rsLoadSymbol (Block, WhichSymbol, AsciiCode : Integer);
function Num16Symbols : Integer;
*)
var
ErrorCode, n : Integer;
NumSymbols, WhichSymbol, Block, AsciiCode : Integer;
Begin
TextAttr:=27;ClrScr;
fpInitialize; ClrScr; { useful for shareware versions only }
DirectVideo := False; { DirectVideo may interfere! }
NumSymbols := Num16Symbols;
Writeln(' Demonstrate how to select one of ',NumSymbols, ' symbols (or icons).');
WriteLn('');
Write ('NOTE: We''ll show these 2 at a time - so you can see which require 2 characters.');
WriteLn(' Please read Font Pak''s manual BEFORE trying to use symbols!');
WriteLn('');
WriteLn(' Press <Enter> to move to the next shape.');
{ Loop until you click a mouse button. Then change mouse cursor shapes. }
AsciiCode := 192; { re-map the shape of ASCII 192 & 193 }
WhichSymbol := 1;
Repeat
{ load the next one }
rsLoadSymbol (0, WhichSymbol, AsciiCode);
rsLoadSymbol (0, WhichSymbol+1, AsciiCode+1);
gotoxy (25,12); write('Here are symbols ', WhichSymbol, ' and ', WhichSymbol+1 ,' --> └┴');
{ wait for <Enter> }
ReadLn;
WhichSymbol := WhichSymbol + 2; { displaying 2, so step by 2 }
Until WhichSymbol > NumSymbols;
TextMode(CO80); { an easy way to restore default font }
ClrScr;
Write('That''s all . . .');
End.