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 >
Pascal/Delphi Source File  |  1995-08-16  |  2KB  |  81 lines

  1. {**********************************************************************
  2.  
  3.     Demo_SYM.Pas                Copyright 1994, Rob W. Smetana
  4.  
  5.     Demonstrate how to:
  6.  
  7.      1.  Select symbols (or icons) from Font Pak's library.
  8.  
  9.      2.  Determine how many symbols there are.
  10.  
  11.     Requires:
  12.  
  13.      1.  LdSymbols.OBJ (text-mode symbols)
  14.  
  15.  
  16.     Notes:
  17.           It is CRITICAL that you be in TEXT-mode when you call the
  18.           text-mode procedures.  A crash awaits you if you're not.
  19.  
  20. *************************************************************************}
  21.  
  22.  
  23. Uses CRT,
  24.      Font_Pak;        { The Font_Pak unit declares/links procedures }
  25.  
  26. (* We'll demonstrate these.  They're declared in unit Font Pak.
  27.  
  28.    procedure rsLoadSymbol (Block, WhichSymbol, AsciiCode : Integer);
  29.    function  Num16Symbols : Integer;
  30. *)
  31.  
  32. var
  33.     ErrorCode, n : Integer;
  34.     NumSymbols, WhichSymbol, Block, AsciiCode : Integer;
  35.  
  36. Begin
  37.  
  38.     TextAttr:=27;ClrScr;
  39.  
  40.     fpInitialize; ClrScr;       { useful for shareware versions only }
  41.  
  42.     DirectVideo := False;               { DirectVideo may interfere! }
  43.  
  44.     NumSymbols := Num16Symbols;
  45.  
  46.     Writeln('             Demonstrate how to select one of ',NumSymbols, ' symbols (or icons).');
  47.     WriteLn('');
  48.     Write  ('NOTE:  We''ll show these 2 at a time - so you can see which require 2 characters.');
  49.     WriteLn('       Please read Font Pak''s manual BEFORE trying to use symbols!');
  50.     WriteLn('');
  51.     WriteLn('                    Press <Enter> to move to the next shape.');
  52.  
  53.     { Loop until you click a mouse button. Then change mouse cursor shapes. }
  54.  
  55.     AsciiCode := 192;              { re-map the shape of ASCII 192 & 193 }
  56.     WhichSymbol := 1;
  57.  
  58.     Repeat
  59.  
  60.          { load the next one }
  61.          rsLoadSymbol (0, WhichSymbol, AsciiCode);
  62.          rsLoadSymbol (0, WhichSymbol+1, AsciiCode+1);
  63.  
  64.          gotoxy (25,12); write('Here are symbols ', WhichSymbol, ' and ', WhichSymbol+1 ,' -->  └┴');
  65.  
  66.          { wait for <Enter> }
  67.          ReadLn;
  68.  
  69.          WhichSymbol := WhichSymbol + 2;   { displaying 2, so step by 2 }
  70.  
  71.      Until WhichSymbol > NumSymbols;
  72.  
  73.     TextMode(CO80);                  { an easy way to restore default font }
  74.  
  75.     ClrScr;
  76.  
  77.     Write('That''s all . . .');
  78.  
  79. End.
  80.  
  81.