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

⟦793e592ec⟧ Q1_Text, reclen=79

    Length: 1264 (0x4f0)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »BITTAR«

Derivation

└─⟦9e403ec87⟧ Bits:30008765 50001610
    └─⟦this⟧ »BITTAR«

Text

/*  PR=GRAM-ID.                 BITTAR                                       */
/*  DATE-WRITTEN.               1978-08-24                                   */
/*  AUTHOR.                     OLLE                                         */
/*  REMARKS.                    MED PROGRAMMET                               */
/*                              SÄTTER MAN BITTAR SOM STYR SHIFT BEEP ETC.   */
/*  WORKING-STORAGE SECTION.                                                 */
    DCL     J                   BINARY,                                        
            I                   BINARY;                                        
/*  PROCEDURE DIVISION.                                                      */
    LOOP:                                                                      
            GET SKIP LIST (I);                                                 
            GET SKIP LIST (J);                                                 
            CALL OUTPUT (I,J);                                                 
            GO TO LOOP;                                                        
            END;