Seite 2 von 2

Re: Cobol-80 (MS)

Verfasst: 10. Jan 2022, 10:54
von Alfred
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

Re: Cobol-80 (MS)

Verfasst: 10. Jan 2022, 17:16
von kurt_cpm
Hallo Alfred,

danke für die Info.

Schau ich mir an!.

Gruß
Kurt

Re: Cobol-80 (MS)

Verfasst: 11. Jan 2022, 21:48
von kurt_cpm
Es folgen noch einige Beispiele.

Programm Menu.cob und kplager.cob.
Bild1.jpg
Bild1.jpg (53.66 KiB) 11293 mal betrachtet
Bild2.jpg
Bild2.jpg (67.85 KiB) 11293 mal betrachtet

Re: Cobol-80 (MS)

Verfasst: 11. Jan 2022, 21:50
von kurt_cpm
Hier die Daten.

Gruß
Kurt

Re: Cobol-80 (MS)

Verfasst: 11. Jan 2022, 21:55
von kurt_cpm
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.

Re: Cobol-80 (MS)

Verfasst: 28. Jan 2022, 07:09
von kurt_cpm
Weiter geht es mit Cobol 80.

Ich habe mal versucht Teile meiner Fibu in Cobol zu schreiben.

Um das Programm mit vergleichbaren Eingaberoutinen umzusetzen bedarf es noch
einige Übung. BASCOM und KSAM80 sind ein gutes Gerüst zur Entwicklung von
kfm. Programmen.

Ich bin auf meine Reise mit Cobol gespannt. Spaß macht es alle Tage.
kpstart.cob.txt
(3.35 KiB) Noch nie heruntergeladen

Re: Cobol-80 (MS)

Verfasst: 28. Jan 2022, 07:11
von kurt_cpm
Hier der Rest.
Bild4.jpg
Bild4.jpg (100.52 KiB) 11102 mal betrachtet
Bild3.jpg
Bild3.jpg (75.62 KiB) 11102 mal betrachtet

submit make kpstart

cobol $1=$1/z/l
l80 $1,$1/n/e
era $1.REL
edit $1.prn

Gruß
Kurt

Re: Cobol-80 (MS)

Verfasst: 28. Jan 2022, 09:41
von kurt_cpm
Das Prg kpstamm.cob fehlte noch.