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

⟦c9997c514⟧ TextFile

    Length: 2304 (0x900)
    Types: TextFile
    Names: »OPG1A.LST«

Derivation

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

TextFile

\f

* Level II COBOL  V2.1                 OPG1A.CBL                   Page 0001
*
* Options:
       IDENTIFICATION DIVISION.
       PROGRAM-ID.              OPG1A.
       AUTHOR.                  HOLD 4.
       DATE-WRITTEN.            20.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(30).
        01     BLANKE    PIC X(30)   VALUE SPACE.
        01     RET       PIC X.
      *
      *
       PROCEDURE DIVISION.
       STYR SECTION.
       STYRE.
           PERFORM BEHANDL UNTIL NAVN = "STOP".
           STOP RUN.
       STYRE-UD.
      *
      *
       BEHANDL SECTION.
       BEH-IND.
           PERFORM INDLAES.
           PERFORM UDSKRIV.
       BEH-UD.
           EXIT.
      *
      *
       INDLAES SECTION.
       LAES.
           DISPLAY SPACE.
           MOVE BLANKE TO NAVN.
           MOVE BLANKE TO ADR.
           MOVE BLANKE TO POSTADR.
           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.
\f

* Level II COBOL  V2.1                 OPG1A.CBL                   Page 0002
*
      *
      *
       UDSKRIV SECTION.
       SKRIV.
           DISPLAY NAVN AT 2010.
           DISPLAY ADR  AT 2110.
           DISPLAY POSTADR AT 2210.
           ACCEPT RET.
       SKRIV-UD.
           EXIT.

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