home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 05 / t4_upd / tsrdemo.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1988-02-24  |  452 b   |  26 lines
  1. (* hier nur den wirklich benötigten Stack/Heap angeben:  *)
  2. {$M 4096,0,0}
  3.  
  4. PROGRAM TSR_Demo;
  5.  
  6. USES TSR;
  7.  
  8. CONST
  9.   Hotkey = $6800;    (* die Aktivierungstaste: <Alt><F1> *)
  10.  
  11.  
  12. (*      Pop-Up-Programm: im FAR-Modell kompilieren:      *)
  13. {$F+}
  14. PROCEDURE PopUp;
  15. BEGIN
  16.   Write (^G)
  17. END;
  18. {$F-}
  19.  
  20.  
  21. BEGIN
  22.   WriteLn; WriteLn ('TSR Demoprogramm installiert,');
  23.   WriteLn ('aktivieren mit <Alt><F1>.');
  24.   MakeResident (@PopUp, Hotkey)
  25. END.
  26.