User input/Text: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H) |
Grammarware (talk | contribs) (+BabyCobol) |
||
Line 488: | Line 488: | ||
Disp "That isn't 7500" |
Disp "That isn't 7500" |
||
End</syntaxhighlight> |
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}}== |
=={{header|BASIC}}== |