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

⟦c8a02b62d⟧ Q1_Text, reclen=79

    Length: 1975 (0x7b7)
    Types: Q1_Text, reclen=79
    Notes: q1file
    Names: »BILDGEN«

Derivation

└─⟦651a288b5⟧ Bits:30008768 50001583
    └─⟦this⟧ »BILDGEN«

Text

/*     PROGRAM-ID.               BILDGEN                                */     
/*     DATE-WRITTEN.             1978-06-21                             */     
/*     AUTHOR.                   JOHNNY ÅHSTRAND                        */     
/*     REMARKS.                  PROGRAMMET GENERERAR FILE FÖR BILDREDIG*/     
/*     WORKING-STORAGE SECTION.                                         */     
       DCL    1  STR,                                                          
                                                                               
                 2  CH           CHAR (47);                                    
       DCL    BILDFIL FILE;                                                    
/*     PROCEDURE DIVISION.                                              */     
              OPEN BILDFIL;                                                    
              CH = '                                               ';          
              PUT FILE (D) SKIP EDIT (' ') (A(57)) ('*** GENERERING PÅGÅR ***')
                                 (A(84));                                      
              DO I = 1 TO 600;                                                 
              ON ENDFILE GO TO FEL;                                            
              WRITE FILE (BILDFIL) FROM (STR);                                 
              END;                                                             
              CLOSE BILDFIL;                                                   
              GO TO UT;                                                        
       FEL:                                                                    
              PUT FILE (D) SKIP EDIT ('BILDFILEN ÄR FÖR LITEN') (A(47));       
              GET SKIP LIST (I);                                               
       UT:                                                                     
              END;