home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 19 / snap / show.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-07-31  |  1003 b   |  35 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      SHOW.PAS                          *)
  3. (*                      ShowPCX 2                         *)
  4. (*                Turbo Pascal ab 5.0                     *)
  5. (*         (c) 1990 Gerald Arend & TOOLBOX                *)
  6. (* ------------------------------------------------------ *)
  7. {$B-,D-,F-,I-,L-,O-,R-,S-,V-}
  8. {$M 16384,0,655360}
  9. PROGRAM Show;
  10.  
  11. USES Graph, Crt, LoadPCX;
  12.  
  13. BEGIN
  14.   IF ParamCount>=1 THEN
  15.   BEGIN
  16.     FileName := ParamStr(1);
  17.     IF (ParamStr(2)='/s') OR (ParamStr(2)='/S') THEN
  18.       ClearScreen:=FALSE;
  19.   END
  20.   ELSE
  21.     Halt(0);
  22.   IF Pos('.', FileName) = 0 THEN
  23.     FileName := FileName+'.PCX';
  24.   LoadPCXScreen(FileName);
  25.   IF PCXError THEN
  26.     Halt;
  27.   IF ClearScreen THEN
  28.   BEGIN
  29.     REPEAT
  30.     UNTIL ReadKey>'';
  31.     RestoreCrtMode;
  32.   END;
  33. END.
  34. (* ------------------------------------------------------ *)
  35. (*               Ende von SHOWPCX2.PAS                    *)