test.red 664 B

1234567891011121314151617181920212223242526272829
  1. off echo$
  2. % This file is the part of GRG 3.2 (C) 1997 V.V.Zhytnikov
  3. lisp$
  4. begin
  5. scalar psl,low,lis,cas,ok;
  6. psl := getd 'dskin;
  7. low := getd '!c!a!r;
  8. if psl then lis := "PSL" else lis:= "CSL";
  9. if low then cas := "Lower" else cas := "Upper";
  10. prin2 "This REDUCE is based on ";
  11. prin2 lis;
  12. prin2 " and is ";
  13. prin2 cas;
  14. prin2 "-Cased.";
  15. terpri();
  16. if low then <<
  17. prin2 "Use lower-case symbols for built-in constans and functions:";
  18. terpri();
  19. prin2 " e i pi sin cos log ..."; >>
  20. else <<
  21. prin2 "Use upper-case symbols for built-in constans and functions:";
  22. terpri();
  23. prin2 " E I PI SIN COS LOG ..."; >>;
  24. terpri();
  25. terpri();
  26. end$
  27. algebraic$
  28. end;