DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

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

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦cd25363e5⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »PROGRA«

Derivation

└─⟦d85593a46⟧ Bits:30000470 DOMUS disk image - User files
    └─⟦this⟧

TextFile

«ff»
  0010 DIM A$(5)
  0020 OPEN FILE(1,0)"USTYR"
  0030 LET I=3
  0040 INPUT A$;
  0050 WRITE FILE(1,I)A$
  0060 IF A$="SLUT" THEN GOTO 0100
  0070 LET I=I+1
  0080 IF I MOD 8=0 THEN PRINT 
  0090 GOTO 0040
  0100 WRITE FILE(1,1)I
  0110 CLOSE 
«nul»