|
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: 7505 (0x1d51)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »FILGEN1«
└─⟦651a288b5⟧ Bits:30008768 50001583
└─⟦this⟧ »FILGEN1«
/* FÖRSTA RADEN */
/* PROGRAMET GENERERAR EN DATABASSTRUKTUR 780331 PRG JÅ */
DCL 1 STRR,
2 NSEGR BINARY,
2 FILR CHAR(8),
2 IDR CHAR(10),
2 DATAR CHAR(37);
DCL ROTFIL FILE,
AFIL FILE,
BFIL FILE,
CFIL FILE,
DFIL FILE;
DCL FA BINARY,
FB BINARY,
FC BINARY,
FD BINARY,
NSEG BINARY,
SVAR CHAR(4),
FIL CHAR(8);
OPEN ROTFIL;
OPEN AFIL;
OPEN BFIL;
OPEN CFIL;
OPEN DFIL;
IDR='1234567890';
DATAR=' ';
L1:PUT FILE(D) SKIP EDIT('VILKA SEG SKA FINNAS UNDER ROT')(A(31))(IDR)(A(12));
GET SKIP LIST(SVAR);
IF SVAR='KLAR' THEN GO TO SLUT;
IF INDEX(SVAR,'A')¬=0 THEN FA=1;
ELSE FA=0;
IF INDEX(SVAR,'B')¬=0 THEN FB=1;
ELSE FB=0;
IF INDEX(SVAR,'C')¬=0 THEN FC=1;
ELSE FC=0;
IF INDEX(SVAR,'D') THEN FD=1;
ELSE FD=0;
NSEG=-1;
FIL=' ';
IF FD=1 THEN DO;
NSEGR=NSEG;
FILR=FIL;
NSEG=UNSPEC(DFIL);
FIL='DFIL ';
WRITE FILE(DFIL) FROM(STRR);
END;
IF FC=1 THEN DO;
NSEGR=NSEG;
FILR=FIL;
NSEG=UNSPEC(CFIL);
FIL='CFIL ';
WRITE FILE(CFIL) FROM(STRR);
END;
IF FB=1 THEN DO;
NSEGR=NSEG;
FILR=FIL;
NSEG=UNSPEC(BFIL);
FIL='BFIL ';
WRITE FILE(BFIL) FROM(STRR);
END;
IF FA=1 THEN DO;
NSEGR=NSEG;
FILR=FIL;
NSEG=UNSPEC(AFIL);
FIL='AFIL ';
WRITE FILE(AFIL) FROM(STRR);
END;
NSEGR=NSEG;
FILR=FIL;
WRITE FILE(ROTFIL) FROM(STRR);
IDR=IDR+1;
GO TO L1;
SLUT:CLOSE ROTFIL;
CLOSE AFIL;
CLOSE BFIL;
CLOSE CFIL;
CLOSE DFIL;
END;