home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 02 / titel / list3.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1990-11-26  |  745 b   |  22 lines
  1. (* ------------------------------------------------------ *)
  2. (*     Hex-in-ASCII-Wandler für Turbo Pascal 4.0 - 5.5    *)
  3. (*          Listing 3: modulare Programmierung            *)
  4. (*             (c) 1991 G. Born & TOOLBOX                 *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM ASC;
  7.  
  8. USES Lib;
  9.  
  10. VAR
  11.   j : INTEGER;
  12.  
  13. BEGIN
  14.   IF ParamCount > 0 THEN                (* lese Parameter *)
  15.     FOR j := 1 TO ParamCount DO BEGIN
  16.       IF Length(ParamStr(j)) > 2 THEN   (* Fehler ?       *)
  17.         Error(ParamStr(j));             (* Exit           *)
  18.       Write(Chr(asc_hex(ParamStr(j)))); (* Ausgabe Hex    *)
  19.     END; (* FOR *)
  20.   Halt(0);                         (* Exit und setze Code *)
  21. END.
  22.