File test.red artifact c78301acc3 part of check-in c59842e34e

off echo$
% This file is the part of GRG 3.2 (C) 1997  V.V.Zhytnikov
lisp$
begin
scalar psl,low,lis,cas,ok;
psl := getd 'dskin;
low := getd '!c!a!r;
if psl then lis := "PSL" else lis:= "CSL";
if low then cas := "Lower" else cas := "Upper";
prin2 "This REDUCE is based on ";
prin2 lis;
prin2 " and is ";
prin2 cas;
prin2 "-Cased.";
terpri();
if low then <<
  prin2 "Use lower-case symbols for built-in constans and functions:";
  terpri();
  prin2 "   e  i  pi  sin  cos  log  ..."; >>
else <<
  prin2 "Use upper-case symbols for built-in constans and functions:";
  terpri();
  prin2 "   E  I  PI  SIN  COS  LOG  ..."; >>;
terpri();
terpri();
end$
algebraic$
end;