User input/Text: Difference between revisions
+BabyCobol
m (→{{header|Wren}}: Changed to Wren S/H) |
Grammarware (talk | contribs) (+BabyCobol) |
||
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 THREE DIGIT NUMBER PICTURE IS 9(3).
PROCEDURE DIVISION.
DISPLAY "Enter a number: " WITH NO ADVANCING
ACCEPT ThreeDigit Number.
</syntaxhighlight>
=={{header|BASIC}}==
| |||