o que será que falta?
IDENTIFICATION DIVISION.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 NOME PIC X(30) VALUE SPACES.
01 POSICAO.
03 LINHA PIC 9(02) VALUE 10.
03 COLUNA PIC 9(02) VALUE 15.
PROCEDURE DIVISION.
ACCEPT NOME AT 1015 WITH AUTO PROMPT UPPER BACKGROUND-COLOR 0
FOREGROUND-COLOR 7.
STOP RUN.
- HaroNism likes this