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