|
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: 3713 (0xe81)
Types: Q1_Text, reclen=79
Notes: q1file
Names: »HEAD«
└─⟦934333717⟧ Bits:30008597 DDMQ1-0029_Demonstration_Disk_SOURCE_Single_Density_Sept_77
└─⟦this⟧ »HEAD«
/* PRINT NAME, ADDRESS OF CLENTMA AND STOCK OF STOCKFL*/
/* BILLING INVOICE DEMONSTRATION PROGRAM */
DCL CLENTMA FILE, STOCKFL FILE; DCL Y CHAR (1);
DCL 1 CLENTMAS_REC, 2 CACCT_NO CHAR(6), 2 M_NAME(4) CHAR(30),
2 M_BALANCE FLOAT(8);
DCL 1 STOCKMAS_REC, 2 M_STOCKNO CHAR(6), 2 M_DESCRIPTION CHAR(30),
2 M_UNIT CHAR(6), 2 M_UNITPRICE(4) FLOAT (5), 2 ON_HAND FLOAT(5);
START: PUT FILE(DISPLAY) SKIP LIST('A)CLENT B)STOCK: ');
GET SKIP LIST (Y);IF Y='A' THEN GOTO START1;
IF Y='B' THEN GOTO START2; IF Y='E' THEN GOTO ST; GOTO START;
START1: OPEN CLENTMA;
WORK1: PUT SKIP EDIT(' ')(A(10))('ACCOUNT')(A(8));
PUT SKIP EDIT(' ')(A(10))('NUMBER')(A(16))('NAME')(A(34))('ADDRESS')
(A(8));
DO N=1 TO 58; PUT LIST('┣08┫'); END;
PUT EDIT('______')(A(16))('____')(A(34))('_______ ')(A(7));
DO I=1 TO 9;
ON ENDFILE GOTO START;
READ FILE(CLENTMA) INTO (CLENTMAS_REC);
PUT SKIP(3) EDIT(' ')(A(10))(CACCT_NO)(A(16))
(M_NAME(1))(A(34))
(M_NAME(2))(A(31));
DO K=3 TO 4;
PUT SKIP EDIT(' ')(A(60))(M_NAME(K))(A(31)); END;
END; PUT SKIP(19); GOTO WORK1;
START2: OPEN STOCKFL;
WORK2: PUT SKIP EDIT(' ')(A(10))('STOCK')(A(6));
PUT SKIP EDIT(' ')(A(10))('NUMBER')(A(16))
('DESCRIPTION')(A(35))
('UNIT')(A(9))('PRICE ')(A(5));
DO N=1 TO 65; PUT LIST('┣08┫'); END;
PUT EDIT('______')(A(16))
('___________')(A(35))
('____')(A(9))('_____ ')(A(5));
DO I=1 TO 9;
ON ENDFILE GOTO START;
READ FILE(STOCKFL) INTO (STOCKMAS_REC);
PUT SKIP(3) EDIT(' ')(A(10))(M_STOCKNO)(A(7));
PUT EDIT(' ')(A(9))(M_DESCRIPTION)(A(31));
PUT EDIT(' ')(A(4))(M_UNIT)(A(9))('01: ')(A(3));
PUT EDIT(M_UNITPRICE(1))(P'ZZ9V.99');
DO K=2 TO 4;
PUT SKIP EDIT(' ')(A(70))(K)(P'99')(': ')(A(1))
(M_UNITPRICE(K))(P'ZZ9V.99'); END;
END; PUT SKIP(10); GOTO WORK2;
ST: END;