Input form in CAS programs

[roadrunner]

This works:

Code:

export blinput()
BEGIN
 local a;
 INPUT(a);
 return a;
END;

#cas
PPP2():=
BEGIN
 LOCAL a;
 a:=blinput();
 PRINT(a):
 return 0;
END;
#end

It's not pretty, but it works.

-road