program uhrtsr;
{$m 2048,1000,1000}
{$i-}
{-------------------------------------------------
                   demotsr.pas
                   -----------
 Stellt dar, auf welche einfache Weise sich TSR-
 Programme mit der Unit TPPTSR entwickeln lassen.

 von Martin Althaus 1990
 -------------------------------------------------
}
uses crt,dos,tpptsr;
const
 identifikation:TSR_KennungsString='uhr_tsr';

var
 h,m,s,hs       :word;

{$f+} procedure popup; {$f-}
{-------------------------------------------------
 Das ist die Prozedur, die zum AuslÖsen des Hot-
 key aufgerufen wird.
 -------------------------------------------------
}
begin
 gettime(h,m,s,hs);
 gotoxy(72,1);
 writeln(h:2,':',m:2,':',s:2);
 repeat until keypressed;

end;

{-------------------------------------------------
 Hier folgt das Hauptprogramm, in dem die TSR-
 Prozedur resident installiert wird.
 -------------------------------------------------
}
begin
 writeln;
 writeln('Zeitanzeige-Program von RenÉ Scholz ');
 writeln;
 if TSR_SchonInstalliert(identifikation)
  then
   {----------------------------------------------
    TSR-Programm ist bereits im Speicher
    ----------------------------------------------
   }
   if TSR_Deinstallieren
    then
    {---------------------------------------------
     Es hat sich problemlos entfernen lassen
     ---------------------------------------------
    }
     begin
      writeln;
      writeln('Das TSR-Programm wurde aus dem');
      writeln('Speicher entfernt.');
      writeln;
     end
    else
    {---------------------------------------------
     Entfernen nicht mÖglich, passiv geschaltet
     ---------------------------------------------
    }
     if TSR_Schlafend
      then
       begin
        writeln;
        writeln('Ein Entfernen des TSR-Programms war');
        writeln('nicht mÖglich, das Programm wurde');
        writeln('jedoch abgeschaltet.');
        writeln;
       end
      else
       begin
        writeln;
        writeln('Das Programm befindet sich bereits');
        writeln('Im Speicher, wo es abgeschaltet war.');
        writeln('Es wurde wieder eingeschaltet.');
        writeln;
       end
  else
   begin
    writeln;
    writeln('Das TSR-Programm ist nun im Speicher');
    writeln('installiert. Aktiviert wird es mit der');
    writeln('Tastenkombination <Alt> <Shift> T ');
    writeln;
    TSR_Installieren(TSR_Taste_T+
		     TSR_Steuertaste_ShiftLinks+
                     TSR_Steuertaste_Alt,
                     popup);
   end;
end.