|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5056 (0x13c0)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »ER«
└─⟦22252c168⟧ Bits:30008711 DDMQ1-0151_Programmers_Disk_Copy
└─⟦this⟧ »ER«
/* ETIK FÖR NAME */
DCL 1 KUND,
2 FNAMN CHAR(29) INIT(' '),
2 NAMN CHAR(29) INIT(' '),
2 CO CHAR(29) INIT(' '),
2 GAD CHAR(29) INIT(' '),
2 BOX CHAR(29),
2 PAD CHAR(29) INIT(' '),
2 TEL CHAR(29),
2 RES CHAR(29);
DCL NAME FILE;
DCL EFNAMN(4) CHAR(29),
ENAMN(4) CHAR(29),
ECO(4) CHAR(29),
EGAD(4) CHAR(29),
X FIXED(1),
XX CHAR(29) INIT(' '),
EPAD(4) CHAR(29),
ERES CHAR(29);
X=0;
DO I= 1 TO 4;
EFNAMN(I)=XX;
ENAMN(I)=XX;
ECO(I)=XX;
EGAD(I)=XX;
EPAD(I)=XX;
END;
OPEN NAME;
START: X=1;
DO I=1 TO 4;
ON ENDFILE GO TO ST;
READ FILE(NAME) INTO (KUND);
X=0;
EFNAMN(I)=FNAMN;
ENAMN(I)=NAMN;
ECO(I)=CO;
EGAD(I)=GAD;
IF BOX¬=' ' THEN EGAD(I)=BOX CAT XX;
EPAD(I)=PAD;
END;
ST: IF I¬=1 THEN DO;
PUT SKIP; DO J=1 TO I-1; PUT EDIT(EFNAMN(J))(A(10))(ENAMN(J))(A(26)); END;
PUT SKIP; DO J=1 TO I-1; PUT EDIT(ECO(J))(A(36)); END;
PUT SKIP; DO J=1 TO I-1; PUT EDIT(EGAD(J))(A(36)); END;
PUT SKIP; DO J=1 TO I-1; PUT EDIT(EPAD(J))(A(36)); END;
PUT SKIP; END;
PUT SKIP;
DO I=1 TO 4;
EFNAMN(I)=XX;
ENAMN(I)=XX;
ECO(I)=XX;
EGAD(I)=XX;
EPAD(I)=XX;
END;
IF X=0 THEN GO TO START;
SLUT: END;