home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / tooltypes / test.mod < prev    next >
Text File  |  1996-08-10  |  375b  |  22 lines
  1. MODULE Test;
  2. IMPORT ToolTypes,
  3.        io;
  4.  
  5. VAR erg:ARRAY 50 OF CHAR;
  6.  
  7. BEGIN
  8.   IF ToolTypes.GetToolString("TEST1",erg) THEN
  9.     io.WriteString(erg);
  10.     io.WriteLn;
  11.   END;
  12.   IF ToolTypes.GetToolString("TEST2",erg) THEN
  13.     io.WriteString(erg);
  14.     io.WriteLn;
  15.   END;
  16.   IF ToolTypes.GetToolString("TestDREI",erg) THEN
  17.     io.WriteString(erg);
  18.     io.WriteLn;
  19.   END;
  20.  
  21. END Test.
  22.