|
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: 6004 (0x1774)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »SORTPGM«
└─⟦175e012ba⟧ Bits:30008648 DDMQ1-0088_BARKABY_FLYGKLUBB_OK_LKPG
└─⟦this⟧ »SORTPGM«
└─⟦32c2b473d⟧ Bits:30008620 DDMQ1-0061_ETIK_a_H_S
└─⟦this⟧ »SORTPGM«
└─⟦57af864d8⟧ Bits:30008678 DDMQ1-0118_TGG
└─⟦this⟧ »SORTPGM«
└─⟦ce91c199d⟧ Bits:30008680 DDMQ1-0120_BARKABY_LKPG_TGGNAMN_DINDEX
└─⟦this⟧ »SORTPGM«
DCL 1 SORTER,
2 NR CHAR(5),
2 FNAMN CHAR(8),
2 ENAMN CHAR(16),
2 FIRMA CHAR(20),
2 AVD CHAR(15),
2 ADR CHAR(20),
2 BOX CHAR(10),
2 POST CHAR(18),
2 TEL CHAR(11),
2 CODE(7) CHAR(2);
DCL NAMNREG FILE;
DCL SORTFIL FILE;
DCL PN(2) CHAR(3) INITIAL(' ');
DCL KOD(7) CHAR(2) INITIAL(' ',' ',' ',' ',' ',' ',' ');
DCL B CHAR(2) INITIAL(' ');
DCL X CHAR(1);
OPEN NAMNREG;
OPEN SORTFIL;
PUT FILE(DISPLAY) SKIP LIST('SORTERAS PÅ POSTNR? 1 FÖR JA 2 FÖR NEJ ');
GET SKIP LIST(X);
PUT FILE(DISPLAY) SKIP LIST('SORTERA UT KOD NR(7ST) I ORDNING ');
DO I = 1 TO 7;
GET SKIP LIST(KOD(I));
END;
IF(X ='1') THEN GO TO POSTSORT;
IF(X = '2') THEN GO TO READSORT;
POSTSORT:
PUT FILE(DISPLAY) SKIP LIST('SKRIV IN LÄGSTA RESP HÖGSTA POSTNR ');
DO I = 1 TO 2;
GET SKIP LIST(PN(I));
END;
START:
ON ENDFILE GO TO SLUT;
READ FILE(NAMNREG) INTO (SORTER);
IF(SUBSTR(POST,1,3) < PN(1)) THEN GO TO START;
IF(SUBSTR(POST,1,3) > PN(2)) THEN GO TO START;
GO TO KODSORT;
READSORT:
ON ENDFILE GO TO SLUT;
READ FILE(NAMNREG) INTO(SORTER);
KODSORT:
IF(KOD(1) = CODE(1)) THEN GO TO TWO;
IF(KOD(1) = B) THEN GO TO TWO;
IF(X = '2') THEN GO TO READSORT;
GO TO START;
TWO: IF(KOD(2) = CODE(2)) THEN GO TO THREE;
IF(KOD(2) = B) THEN GO TO THREE;
IF(X = '2') THEN GO TO READSORT;
GO TO START;
THREE: IF(KOD(3) = CODE(3)) THEN GO TO FOUR;
IF(KOD(3) = B) THEN GO TO FOUR;
IF(X = '2') THEN GO TO READSORT;
GO TO START;
FOUR: IF(KOD(4) = CODE(4)) THEN GO TO FIVE;
IF(KOD(4) = B ) THEN GO TO FIVE;
IF(X = '2') THEN GO TO READSORT;
GO TO START;
FIVE: IF(KOD(5) = CODE(5)) THEN GO TO SIX;
IF(KOD(5) = B) THEN GO TO SIX;
IF(X = '2') THEN GO TO READSORT;
GO TO START;
SIX: IF(KOD(6) = CODE(6)) THEN GO TO SEV;
IF(KOD(6) = B) THEN GO TO SEV;
IF(X = '2') THEN GO TO READSORT;
GO TO START;
SEV: IF(KOD(7) = B) THEN GO TO PRNT;
IF(KOD(7) = CODE(7)) THEN GO TO PRNT;
GO TO NY;
PRNT: WRITE FILE(SORTFIL) FROM (SORTER);
NY: IF(X = '2') THEN GO TO READSORT;
GO TO START;
SLUT:
CLOSE SORTFIL;
END;