|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1664 (0x680)
Types: TextFile
Names: »OPG1.CBL«
└─⟦b2cb6c17b⟧ Bits:30009846 EDB SKOLE - SYSTEM
└─⟦this⟧ »OPG1.CBL«
*
*
IDENTIFICATION DIVISION.
PROGRAM-ID. OPG1.
AUTHOR. P.HEINRICH.
DATE-WRITTEN. 19.08.85.
*
*
*DETTE PROGRAM INDLÆSER NAVN ADR. PÅ EN PERSON
*OG UDSKRIVER DET IGEN PÅ SKÆRMEN.
*
*
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. PICCOLO.
*
*
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.
STURE-UD.
EXIT.
*
INDLAES SECTION.
LAES.
DISPLAY SPACES.
DISPLAY "INDTAST NAVN: " AT 1010.
ACCEPT NAVN AT 1024.
DISPLAY "INDTAST ADRESSE: " AT 1110.
ACCEPT ADR AT 1127.
DISPLAY "POSTNR. OG BY: " AT 1210.
ACCEPT POSTADR AT 1225.
LAES-UD.
EXIT.
*
*
UDSKRIV SECTION.
SKRIV.
DISPLAY NAVN AT 2010.
DISPLAY ADR AT 2110.
DISPLAY POSTADR AT 2210.
SKRIV-UD.
EXIT.
«eof»