|
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: 4224 (0x1080)
Types: TextFile
Names: »OPG1.LST«
└─⟦b2cb6c17b⟧ Bits:30009846 EDB SKOLE - SYSTEM
└─⟦this⟧ »OPG1.LST«
\f
** CIS COBOL V4.4 OPG1.CBL PAGE: 0001
**
*
*
IDENTIFICATION DIVISION. 0118
PROGRAM-ID. OPG1. 0118
AUTHOR. P.HEINRICH. 0118
DATE-WRITTEN. 19.08.85. 0118
*
*
*DETTE PROGRAM INDLÆSER NAVN ADR. PÅ EN PERSON
*OG UDSKRIVER DET IGEN PÅ SKÆRMEN.
*
*
ENVIRONMENT DIVISION. 0118
CONFIGURATION SECTION. 0118
SOURCE-COMPUTER. PICCOLO. 0118
*
*
SPECIAL-NAMES. CONSOLE IS CRT, 0118
DECIMAL-POINT IS COMMA. 0118
*
*
DATA DIVISION. 0118
WORKING-STORAGE SECTION. 0184
01 NAVN PIC X(30). 0184 00
01 ADR PIC X(30). 01A2 1E
01 POSTADR PIC X(20). 01C0 3C
*
*
PROCEDURE DIVISION. 0000
STYR SECTION. 0009 00
STYRE. 000C 00
PERFORM INDLAES. 000D
PERFORM UDSKRIV. 0010
STOP RUN. 0013
STURE-UD. 0014 00
EXIT. 0015
*
INDLAES SECTION. 0016 00
LAES. 0019 00
DISPLAY SPACES. 001A
DISPLAY "INDTAST NAVN: " AT 1010. 001D
ACCEPT NAVN AT 1024. 0035
DISPLAY "INDTAST ADRESSE: " AT 1110. 0041
ACCEPT ADR AT 1127. 005C
DISPLAY "POSTNR. OG BY: " AT 1210. 0068
ACCEPT POSTADR AT 1225. 0081
LAES-UD. 008D 00
EXIT.
* 008E
**004************************ *******
**004******************************* *******
*
UDSKRIV SECTION. 0097 00
SKRIV. 009A 00
DISPLAY NAVN AT 2010. 009B
DISPLAY ADR AT 2110. 00A7
DISPLAY POSTADR AT 2210. 00B3
SKRIV-UD. 00BF 00
EXIT. 00C0
\f
** CIS COBOL V4.4 OPG1.CBL PAGE: 0002
**
00C0
** CIS COBOL V4.4 REVISION 1 URN BG/0026/BF
** COMPILER COPYRIGHT (C) 1978,1981 MICRO FOCUS LTD
** ERRORS=00002 DATA=00468 CODE=00300 DICT=00186:17465/17651 GSA FLAGS= OFF
«eof»