DataMuseum.dk

Presents historical artifacts from the history of:

Q1 computer

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Q1 computer

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦cb74feffe⟧ Q1_Text, reclen=79

    Length: 2054 (0x806)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »BUS«

Derivation

└─⟦3dd001c96⟧ Bits:30008706 DDMQ1-0146_PROGRAMMERS_DISK_TILLHÖR_HS
    └─⟦this⟧ »BUS«

Text

/*BLACK AND SCHOLES*/                                                          
                                                                               
DCL PO CHAR (5);                                                               
DCL PA CHAR (4);                                                               
DCL PF CHAR (4);                                                               
DCL R CHAR (4);                                                                
DCL T CHAR (2);                                                                
DCL D CHAR (4);                                                                
DCL Z1 CHAR (3);                                                               
DCL ZN1 CHAR (6);                                                              
DCL Z2 CHAR (3);                                                               
DCL ZN2 CHAR (6);                                                              
DCL DOPT CHAR (20);                                                            
DCL DAT CHAR (8);                                                              
DCL SVAR CHAR (4);                                                             
DCL Q CHAR (5);                                                                
                                                                               
IGEN: PUT FILE(D) SKIP EDIT ('**** BLACK AND SCHOLES VÄRDERING ****') (A(39))  
('TRYCK RETURN OM DU VILL FORTSÄTTA')(A(38))                                   
('SKRIV "SLUT" OM DU VILL SLUTA')(A(37));                                      
GET SKIP LIST (SVAR);                                                          
IF SVAR='SLUT' THEN GO TO UT;                                                  
GO TO IGEN;                                                                    
UT: END;