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

⟦e6dc2737d⟧ TextFile

    Length: 1024 (0x400)
    Types: TextFile
    Names: »UUDDA«

Derivation

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

TextFile

«ff»
  0010 DIM A$(5)
  0020 OPEN FILE(1,0)"USTYR"
  0030 READ FILE(1,1)X
  0040 PRINT X;
  0050 LET Z=9
  0060 FOR I=2 TO X
  0070   READ FILE(1,I)A$
  0080   LET T=T+1
  0090   IF A$(1,1)="S" THEN PRINT 
  0100   IF A$(1,1)="S" THEN PRINT 
  0110   IF A$(1)="S" THEN LET T=0
  0120   PRINT A$;"   ";
  0130   IF T MOD Z=0 AND A$(1)<>"S" THEN PRINT "       ";
  0140 NEXT I
  0150 CLOSE 
«nul»