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

⟦98330a907⟧ TextFile

    Length: 1792 (0x700)
    Types: TextFile
    Names: »OPG1A.BAK«

Derivation

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

TextFile

       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 BLANE 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.
      *
      *
       UDSKRIV SECTION.
       SKRIV.
           DISPLAY NAVN AT 2010.
           DISPLAY ADR  AT 2110.
           DISPLAY POSTADR AT 2210.
           ACCEPT RET.
       SKRIV-UD.
	   EXIT.
«eof»