home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 09 / turpar.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1987-08-09  |  580 b   |  23 lines
  1. (* Demo fuer Uebergabe von einem Parameter-String *)
  2. (* mit mehr als 30 Zeichen:                       *)
  3.  
  4. PROGRAM ParDemo;
  5.  
  6. CONST Pointer_Adresse   = $1FC9;
  7.       Parameter_Laenge  = 127;
  8.  
  9. TYPE  Parameter_Type    = STRING[Parameter_Laenge];
  10.       Parameter_Pointer = ^Parameter_Type;
  11.  
  12. VAR   Parameter : Parameter_Pointer
  13.                       ABSOLUTE Pointer_Adresse;
  14.       Laenge    : INTEGER;
  15.  
  16. BEGIN
  17.   Laenge := Length(Parameter^);
  18.   WriteLn('Parameterzeile umfasst ',Laenge,' Zeichen.');
  19.   WriteLn;
  20.   WriteLn('Sie lautet:');
  21.   WriteLn(Parameter^);
  22. END.
  23.