|
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: 2212 (0x8a4)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »DDNS_I_S«
└─⟦415b26bc8⟧ Bits:30008568 DDMQ1-0003_Source_For_Q1_Payroll_Package_Diskette_1_1
└─⟦this⟧ »DDNS_I_S«
/* This Program Initializes DEDUCTNS File w/ Version Message */
/* "DEDUCTION FILE INITIALIZATION - Version : 1" February 20 1978 */
PUT FILE(D) SKIP EDIT('DEDUCTION FILE INITIALIZATION - ')(A)
('Version : 1')(A);
DCL DEDUCTNS FILE;
DCL 1 DEDUCTION,
2 D CHAR(10),
2 A FIXED(7,2),
2 F BINARY,
2 P FIXED(4,2),
2 M FIXED(7,2),
2 T FIXED(9,2);
D = ' ******** ';
A = 0;
F = 4;
P = 0;
M = 0;
T = 0;
I = 0;
OPEN DEDUCTNS;
A1: I = I + 1;
WRITE FILE(DEDUCTNS) FROM(DEDUCTION);
IF (I < 8) THEN GOTO A1;
CLOSE DEDUCTNS;
END;