Cobol-80 (MS)
Re: Cobol-80 (MS)
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
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)
Hallo Alfred,
danke für die Info.
Schau ich mir an!.
Gruß
Kurt
danke für die Info.
Schau ich mir an!.
Gruß
Kurt
Re: Cobol-80 (MS)
Es folgen noch einige Beispiele.
Programm Menu.cob und kplager.cob.
Programm Menu.cob und kplager.cob.
- Dateianhänge
-
- kplager.cob.txt
- (11.25 KiB) Noch nie heruntergeladen
Re: Cobol-80 (MS)
Hier die Daten.
Gruß
Kurt
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
Re: Cobol-80 (MS)
Viel Spaß
Kurt
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
Re: Cobol-80 (MS)
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.
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.
- Dateianhänge
-
- Bild2.jpg (78.33 KiB) 11802 mal betrachtet
-
- kpstat0.cob.txt
- (3.5 KiB) Noch nie heruntergeladen
Re: Cobol-80 (MS)
Hier der Rest.
submit make kpstart
cobol $1=$1/z/l
l80 $1,$1/n/e
era $1.REL
edit $1.prn
Gruß
Kurt
submit make kpstart
cobol $1=$1/z/l
l80 $1,$1/n/e
era $1.REL
edit $1.prn
Gruß
Kurt
- Dateianhänge
-
- Bild1.jpg (87.11 KiB) 11801 mal betrachtet
Re: Cobol-80 (MS)
Das Prg kpstamm.cob fehlte noch.
- Dateianhänge
-
- kpstamm.cob.txt
- (14.47 KiB) Noch nie heruntergeladen