Category : Pascal Source Code
Archive   : TPTSR.ZIP
Filename : TSR.INT

 
Output of file : TSR.INT contained in archive : TPTSR.ZIP

{

tsr.pas
6-25-90

Copyright 1990
John W. Small
All rights reserved

PSW / Power SoftWare
P.O. Box 10072
McLean, Virginia 22102 8072
(703) 759-3838

Use tsr.skl for a skeleton to program with this unit.
Compile/run tsr.dem for a demonstration of this unit.

}

unit tsr;

interface

uses crt, dos;

const

TSRcolor : boolean = true;
{ Popups can use this to determine color/mono modes. }

type

TSRproc = procedure;
TSRCommProc = procedure(optCh : char;
argSeg, argOfs : word);

procedure MakeTSR(PopupOptions, PopupID : string;
HotKeyCode, HotShift : byte;
StartUp, Popup, Wrapup : TSRproc;
OptionComm : TSRCommProc);

var
TSRandPopupOptions: string;
{ Popups can use this with CmdLnParams object }

implementation