Post Reply 
Bug in INPUT (7820)
06-17-2015, 04:14 PM
Post: #1
Bug in INPUT (7820)
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;


Attached File(s)
.zip  INPUTBUG.zip (Size: 779 bytes / Downloads: 1)
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)