User input/Text: Difference between revisions
→{{header|BabyCobol}}: conform to the task definition
imported>Brie (Add Nu) |
Grammarware (talk | contribs) (→{{header|BabyCobol}}: conform to the task definition) |
||
(4 intermediate revisions by 3 users not shown) | |||
Line 488:
Disp "That isn't 7500"
End</syntaxhighlight>
=={{header|BabyCobol}}==
<syntaxhighlight lang="cobol">
* NB: whitespace insignificance and case insensitivity
* are used in the field name.
IDENTIFICATION DIVISION.
PROGRAM-ID. USER INPUT.
DATA DIVISION.
01 HUNDRED CHAR STRING PICTURE IS X(100).
01 FIVE DIGIT NUMBER PICTURE IS 9(5).
PROCEDURE DIVISION.
DISPLAY "Enter a string of appropriate length: " WITH NO ADVANCING
ACCEPT HundredChar String.
DISPLAY "Enter a number (preferably 75000): " WITH NO ADVANCING
ACCEPT FiveDigit Number.
</syntaxhighlight>
=={{header|BASIC}}==
Line 930 ⟶ 946:
=={{header|Elena}}==
ELENA
<syntaxhighlight lang="elena">import extensions;
Line 936 ⟶ 952:
{
var num := new Integer();
console.write
var word := console.write
}</syntaxhighlight>
Line 2,732 ⟶ 2,748:
=={{header|Wren}}==
<syntaxhighlight lang="
var string
|