8 lines
141 B
Text
8 lines
141 B
Text
Prgm
|
|
Dialog
|
|
Title "Rosetta Code"
|
|
Request "A string", s
|
|
DropDown "An integer", {"75000"}, n
|
|
EndDlog
|
|
74999 + n → n
|
|
EndPrgm
|