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

⟦ce77b8856⟧ TextFile

    Length: 1280 (0x500)
    Types: TextFile
    Names: »TEST.TST«

Derivation

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

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 SPACE.
		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»