home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 08 / tsr / tsrpgm.inc < prev    next >
Encoding:
Text File  |  1987-06-02  |  1.3 KB  |  26 lines
  1. (* ----------------------------------------------------------------------- *)
  2. (*                            TSRPGM.PAS                                   *)
  3. (*     der Programmcode, der resident gemacht werden soll. Das Programm    *)
  4. (*     erscheint als Prozedur 'TSRPgm', die aus TSR.COM aufgerufen wird.   *)
  5. (* ----------------------------------------------------------------------- *)
  6. PROCEDURE TSRPgm;
  7. VAR ch : CHAR;  x, y: INTEGER;
  8. BEGIN
  9.   MkWindow(30,10,60,16,1,Black,White,Red);
  10.   WriteLn('Nicht vergessen: ');  WriteLn('PASCAL kaufen!');
  11.   WriteLn('PASCAL lesen!');      Write('Aber dalli dalli!');
  12.   Delay(1300);
  13.   Where_Cursor(x,y);
  14.   MkWindow(x,y,x+20,y+3,2,White,Black,Red);
  15.   GotoXY(1,1);
  16.   WriteLn('<Q> ==> Reinstall');  Write('Taste druecken...');
  17.   WHILE (NOT KeyPressed) DO;            (* unterdrueckt das 'Durchrasseln' *)
  18.   WHILE KeyPressed DO                   (* durch die Fenster bis zur DOS-  *)
  19.   Read(Kbd,ch);                         (* Ebene, bzw. aufrufendem Prog.   *)
  20.   RmWindow;                             (* schliesst kleines Fenster       *)
  21.   RmWindow;                             (* schliesst grosses Fenster       *)
  22.   IF UpCase(ch) = 'Q' THEN ReInstall;
  23. END;
  24. (* ----------------------------------------------------------------------- *)
  25. (*                            TSRPGM.PAS                                   *)
  26.