Procedure String2ASCIIZ(S: String; Var ASCIIZ: String);
(* Converts TP string to ASCIIZ string *)
Var
  Len: Byte;
Begin
  ASCIIZ := S;
  Len := Length(ASCIIZ);
  Move(ASCIIZ[1],ASCIIZ[0],Len);
  ASCIIZ[Len] := Chr(0)
End;

Function ASCIIZ2String(Var ASCIIZ: String): String;
(* Converts ASCIIZ string to TP string *)
Var
  Len: Byte;
  S  : String;
Begin
  (* Use the first 255 characters: *)
  Move(ASCIIZ,S[1],255);
  S[0] := Chr(255);

  (* Find the null-terminator: *)
  Len := Pos(Chr(0),S);

  If Len > 0 Then
  (* ASCIIZ string contained less than 255 characters: *)
    Begin
      Dec(Len);
      S[0] := Chr(Len)
    End;
  ASCIIZ2String := S
End;    
