Cobol-80 (MS)

Software für CP/M, die nicht Teil des Betriebssystems ist
Benutzeravatar
Alfred
Beiträge: 75
Registriert: 17. Jun 2019, 18:47
Wohnort: Enzkreis
Kontaktdaten:

Re: Cobol-80 (MS)

Beitrag von Alfred » 10. Jan 2022, 10:54

Sauber, aber für Cobol bin ich zu doof ;-)!

Hier gibt es ein paar Beiträge zu dem Thema Cobol:
http://oldcomputers.dyndns.org/public/p ... s/club-80/

Gruß
Alfred

kurt_cpm
Beiträge: 71
Registriert: 2. Jul 2020, 19:16

Re: Cobol-80 (MS)

Beitrag von kurt_cpm » 10. Jan 2022, 17:16

Hallo Alfred,

danke für die Info.

Schau ich mir an!.

Gruß
Kurt

kurt_cpm
Beiträge: 71
Registriert: 2. Jul 2020, 19:16

Re: Cobol-80 (MS)

Beitrag von kurt_cpm » 11. Jan 2022, 21:48

Es folgen noch einige Beispiele.

Programm Menu.cob und kplager.cob.
Bild1.jpg
Bild1.jpg (53.66 KiB) 118 mal betrachtet
Bild2.jpg
Bild2.jpg (67.85 KiB) 118 mal betrachtet
Dateianhänge
kplager.cob.txt
(11.25 KiB) Noch nie heruntergeladen

kurt_cpm
Beiträge: 71
Registriert: 2. Jul 2020, 19:16

Re: Cobol-80 (MS)

Beitrag von kurt_cpm » 11. Jan 2022, 21:50

Hier die Daten.

Gruß
Kurt
Dateianhänge
make.sub.txt
(128 Bytes) Noch nie heruntergeladen
lager.key.txt
(1.5 KiB) Noch nie heruntergeladen
lager.dat.txt
(1.5 KiB) Noch nie heruntergeladen

kurt_cpm
Beiträge: 71
Registriert: 2. Jul 2020, 19:16

Re: Cobol-80 (MS)

Beitrag von kurt_cpm » 11. Jan 2022, 21:55

Viel Spaß

Kurt

Code: Alles auswählen

               
00010  IDENTIFICATION DIVISION.
       PROGRAM-ID. MENU.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. CPM.
       OBJECT-COMPUTER. CPM.
00020  DATA DIVISION.
00030  WORKING-STORAGE SECTION.
       01  TASTE   PIC X(1) VALUE SPACES.
       01  LEERKOPF PIC X(20) VALUE SPACES.
       01  LEER PIC X(25) VALUE SPACES.
       01  KOPFZEILE PIC X(79) VALUE ALL "-".
       LINKAGE SECTION.
00200  PROCEDURE DIVISION.
       ANFANG.
           PERFORM HAUPT UNTIL TASTE = "0".
           STOP RUN.
       HAUPT.
           DISPLAY (1, 1) ERASE.
           DISPLAY KOPFZEILE.
           DISPLAY LEERKOPF " A u s w a h l - M a s k e ".
           DISPLAY KOPFZEILE.
           DISPLAY (5, 15) " ".
           DISPLAY SPACES.
           DISPLAY LEER "1. CRTEST ".
           DISPLAY SPACES.
           DISPLAY LEER "2. KPLAG  ".
           DISPLAY SPACES.
           DISPLAY LEER "3. KPLAGER".
           DISPLAY SPACES.
           DISPLAY LEER "4. TRAINER".
           DISPLAY SPACES.
           DISPLAY LEER "0. E n d e ".
           DISPLAY (20, 25) "---> Bitte Funktion waehlen ".
           ACCEPT TASTE.
           IF TASTE = "1" CHAIN "CRTEST.COM".
           IF TASTE = "2" CHAIN "KPLAGE.COM".
           IF TASTE = "3" CHAIN "KPLAGER.COM".
           IF TASTE = "4" CHAIN "TRAINER.COM".
           IF TASTE = "0" OR = "*" GO TO ENDE.
              GO TO HAUPT.

       ENDE.
00500      DISPLAY (1, 1) ERASE.
           DISPLAY "Have a nice day! ".
           STOP RUN.
Dateianhänge
menu.cob.txt
(1.52 KiB) Noch nie heruntergeladen

Antworten