DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦5f902ca96⟧ TextFile

    Length: 1920 (0x780)
    Types: TextFile
    Names: »OPG1.LST«

Derivation

└─⟦c154ac35e⟧ Bits:30002656 COBOL-programmer til undervisning
    └─ ⟦this⟧ »OPG1.LST«

TextFile

\f

* Level II COBOL  V2.1                  OPG1.CBL                   Page 0001
*
* Options:
      *
      *
       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 SPACEs.
                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.
                DISPLAY POSTADR AT 2210.
       SKRIV-UD.
           EXIT.

\f

* Level II COBOL  V2.1                  OPG1.CBL                   Page 0002
*
* Level II COBOL  V2.1 REVISION 9                             URN EY/0011/GA
* Compiler  Copyright (C) 1983 Micro Focus Ltd
*
* ERRORS=00000 DATA=00768 CODE=00512 DICT=00218:61589/61807 GSA FLAGS =  OFF
«eof»