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

⟦aad0184f0⟧ TextFile

    Length: 1408 (0x580)
    Types: TextFile
    Names: »OPG1.BAK«

Derivation

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

TextFile

      *
      *
       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.
		DISLPAY POSTADR AT 2210.
       SKRIV-UD.
	   EXIT.
«eof»