File psl-1983/3-1/tests/20/main0.red from the latest check-in


% 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;



REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]