home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tsr / tsrunit / test2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-09-18  |  430 b   |  23 lines
  1. uses dos,crt,tsr;
  2. {$M $0800,0,0}
  3. var
  4.    keycode:byte;
  5.  
  6. {$F+} function tss2:word;{$F-}
  7. begin
  8. window(10,4,70,17);
  9. textbackground(7);
  10. textcolor(0);
  11. clrscr;
  12. gotoxy(5,4);write
  13. ('Hello World. Today is a great cause for celebration as');
  14. gotoxy(5,5);write
  15. ('my TSR program finally works.');
  16. readln;
  17. tss2:=0;
  18. end;
  19.  
  20. begin
  21. keycode:=altkey+ctrlkey+leftkey+rightkey;
  22. tsrinstall('Test Program #2',tss2,keycode,'D');
  23. end.