DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC759 "Piccoline"

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

See our Wiki for more about RegneCentralen RC759 "Piccoline"

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦4a5c987de⟧ TextFile

    Length: 709 (0x2c5)
    Types: TextFile
    Names: »MULTI_P.TXT«

Derivation

└─⟦6a1b9f2c5⟧ Bits:30005310/disk3.imd Open Access II v2.10 (dansk)
    └─⟦this⟧ »MULTI_P.TXT«

TextFile

 
    !MULTI_P program -- for pausing program execution.
    !The variable message must already exist
    !If a value was assigned to message before calling, print it;
    !   otherwise print the default message. 
     
    IF message = ''                               !If no value for message    
      message = ' Tast <udf▶9b◀r> for at forts▶91◀tte.' !give message this value. 
      END IF
    PUT AT 1,-1 message                         !Write out message's value.    
    message = ''                                !Erase message's value.    
    b = TRUE; GET AT 1,-1 b                     !Wait for user to press <do> 
    PUT DO CLEAR LINE                           !Erase what was written