home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tsr / tsrunit / test.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-09-18  |  268 b   |  19 lines
  1. uses dos,crt,tsr;
  2. {$M $0800,0,0}
  3. var
  4.    keycode:byte;
  5.  
  6. {$F+} function tssy:word;{$F-}
  7. begin
  8. window(10,2,70,18);
  9. clrscr;
  10. write('Hello World');
  11. readln;
  12. tssy:=0;
  13. end;
  14.  
  15.  
  16. begin
  17. keycode:=altkey+ctrlkey;
  18. tsrinstall('Test Program #1',tssy,keycode,'H');
  19. end.