home *** CD-ROM | disk | FTP | other *** search
/ Compy Shop Magazin 1989 May / Compy_Shop_Magazin_1989_05___de_Side_B.atr / peek.i < prev    next >
Text File  |  2023-02-26  |  102b  |  1 lines
  1. FUNCTION Peek(Address:INTEGER);¢¢VAR MEM:^CHAR;¢¢BEGIN¢ MEM:=POINTER(Address);¢ Peek:=Ord(MEM^)¢END;¢¢