|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1280 (0x500)
Types: TextFile
Names: »TEST.TST«
└─⟦c154ac35e⟧ Bits:30002656 COBOL-programmer til undervisning
└─⟦this⟧ »TEST.TST«
IDENTIFICATION DIVISION.
PROGRAM-ID. OPG1.
AUTHOR. HOLD 4.
DATE-WRITTEN. 15.8.85
*
*
*DETTE PROGRAN INDLÆSER NAVN ADR. PÅ EN PERSON
*OG UDSKRIVER DET IGEN PÅ SKÆRMEN
*
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. PICCOLINE.
*
*
SPECIAL-NAMES. CONSOLE IS CRT.
DECIMAL-POINT IS COMMA.
*
*
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NAVN PIC X(30).
01 ADR PIC X(30).
01 POSTADR PIC x(20).
*
*
PROCEDURE DIVISION.
STYR SECTION.
STYRE.
PERFORM INDLAES.
PERFORM UDSKRIV.
STOP RUN.
STYRE-UD.
*
*
INDLAES SECTION.
LAES.
DISPLAY SPACE.
DISPLAY "INDTAST NAVN:" AT 1010.
ACCEPT NAVN AT 1025.
DISPLAY "INDTAST ADRESSE:" AT 1110.
ACCEPT ADR AT 1128.
DISPLAY "INDTAST POSTNR. OG BY:" AT 1210.
ACCEPT POSTADR AT 1234.
LAES-UD.
EXIT.
*
*
UDSKRIV SECTION.
SKRIV.
DISPLAY NAVN AT 2010.
DISPLAY ADR AT 2110.
DISLPAY POSTADR AT 2210.
SKRIV-UD.
EXIT.
«eof»