File psl-1983/3-1/tests/20/main0.red artifact 75a4e052d7 part of check-in a57e59ec0d

% Simple 1 file test
% This is program MAIN1.RED

On SYSLISP;

IN "XXX-HEADER.RED"$

Procedure FirstCall;
 <<Init();
   PutC Char A;
   PutC Char B;
   Terpri();
   PutInt 1;
   Terpri();
   PutInt 2;
   Terpri();
   Putint Timc(); Terpri();
   Putint Timc(); Terpri();
   Quit;>>;

procedure terpri();
   PutC Char EOL;

end;