home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 04 / praxis / entdat.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-14  |  508 b   |  15 lines
  1. PROGRAM EnterData;                   { Turbo Pascal ab 4.0 }
  2. VAR
  3.   ZeigSeg : WORD ABSOLUTE $40:$F0;   { ICA-Bereich enthält }
  4.   ZeigOfs : WORD ABSOLUTE $40:$F2;   { die Adresse des     }
  5.                                      { Datenbereichs!      }
  6. CONST
  7.   Data    : STRING[40] = '';
  8. BEGIN
  9.   IF (ZeigSeg <> 0) THEN BEGIN
  10.     Write('Geben Sie die Meldung ein: ');
  11.     ReadLn(Data);
  12.     Move(Data, Mem[ZeigSeg:ZeigOfs], SizeOf(Data));
  13.   END ELSE
  14.     WriteLn(^G, 'TSR_ICA nicht installiert!');
  15. END.