home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 05 / tricks / test2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-12  |  636 b   |  18 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     TEST2.PAS                          *)
  3. (*            Demoprogramm zu NOTHALT.PAS                 *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM Test2;
  6.  
  7. USES Crt;
  8.  
  9. BEGIN
  10.   CheckBreak := FALSE;
  11.   WriteLn('Falls sie NOTHALT installiert haben, können');
  12.   WriteLn('Sie ihr System mit <CTRL-ALT-HOME> wieder');
  13.   WriteLn('zum Leben erwecken !');
  14.   REPEAT UNTIL FALSE;  { Endlosschleife }
  15. END.
  16. (* ------------------------------------------------------ *)
  17. (*                Ende von TEST2.PAS                      *)
  18.