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