Bug in INPUT (7820)

[slawek39]

This program demonstrates the error in the command INPUT. The error involves, inter alia, by displaying only part of the space of two first lists.

full version
EXPORT INPUTBUG()
BEGIN
LOCAL opcjenc:=1,opcjeac:=1,tryb:=1;
INPUT({{opcjenc,{"brak","podane","z innego celu","kurs z per"},{40,50,1}},{opcjeac,{"obliczane","podane","z innego celu","kurs z per"},{40,50,3}},{tryb,{"SH5","SH4"},{40,50,5}}},"Opcje",{"Nowy cel krs prd","Aktu celu krs prd","Tryb"},{"","",""},{1,1,1},{opcjenc,opcjeac,tryb})
END;

short version
EXPORT INPUTBUG2()
BEGIN
LOCAL a:=1,b:=1,c:=1;
INPUT({{a,{"A","B","C","D"},{40,50,1}},{b,{"E","F","G","H"},{40,50,3}},{c,{"I","J"},{40,50,5}}},"XXX",{"X","Y","Z"},{"","",""},{1,1,1},{a,b,c})
END;