TP3/shell/TProbe.mod

MODULE TProbe ;
FROM Compiler IMPORT Compile, CodeBytes, DataBytes ;
FROM Term IMPORT PutStr, PutCard, CrLf ;
VAR errNo, errPos : CARDINAL ;
BEGIN
   IF Compile (errNo, errPos) THEN
      PutStr ("ok code=") ; PutCard (CodeBytes ()) ;
      PutStr (" data=") ; PutCard (DataBytes ()) ; CrLf
   ELSE
      PutStr ("err ") ; PutCard (errNo) ; PutStr ("@") ; PutCard (errPos) ; CrLf
   END
END TProbe.