User input/Text: Difference between revisions
→{{header|BabyCobol}}: conform to the task definition
Grammarware (talk | contribs) (→{{header|BabyCobol}}: remove stray space) |
Grammarware (talk | contribs) (→{{header|BabyCobol}}: conform to the task definition) |
||
Line 496:
PROGRAM-ID. USER INPUT.
DATA DIVISION.
01
01 FIVE DIGIT NUMBER PICTURE IS 9(5).
PROCEDURE DIVISION.
DISPLAY "Enter a
ACCEPT
DISPLAY "Enter a number (preferably 75000): " WITH NO ADVANCING
ACCEPT FiveDigit Number.
</syntaxhighlight>
| |||