DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC700 "Piccolo"

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

See our Wiki for more about RegneCentralen RC700 "Piccolo"

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦310260d7a⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »FORMS2.CH2«

Derivation

└─⟦feb517505⟧ Bits:30005663 FORMS-2 v. 1.3 rev 5 for CIS-COBOL (RC702)
    └─⟦this⟧ »FORMS2.CH2«

TextFile

       CHECK-END.
           MOVE "N" TO W-REPLY.
           DISPLAY SPACE UPON CRT.
           DISPLAY "CHECK-OUT completed" AT 0101.
           DISPLAY "Repeat? ÆNÅ (Y=Yes)" AT 0201.
           ACCEPT W-REPLY AT 0210.
           IF W-REPLY = "Y" GO TO FORM-CHECK.
           IF W-REPLY = "y" GO TO FORM-CHECK.
           DISPLAY SPACE UPON CRT.
           DISPLAY "END OF FORMS2 CHECK-OUT" UPON CONSOLE.
       EXIT-PROGRAM.
           EXIT PROGRAM.
       STOP-RUN.
           STOP RUN.
«eof»