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

⟦9f4083155⟧ TextFile

    Length: 403 (0x193)
    Types: TextFile
    Notes: RDX8->10
    Names: »RDX8->10«

Derivation

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─ ⟦this⟧ »BASIC::RDX8->10«

TextFile

«ff»
  0005 REM ** PROGRAM DER ÆNDRE RDX8-->RDX10 (MED WRITE FILE I SÆT 95!!!)** JM **
  0010 DEF FNB(B)=A MOD 10^B DIV 10^(B-1)
  0020 DIM F$(8),R$(28)
  0030 INPUT "FILNAVN  ",F$
  0040 OPEN FILE(0,0)F$
  0050 FOR TÆL=1 TO 30
  0060   READ FILE(0,TÆL)A,R$
  0065   LET C=0
  0070   FOR X=1 TO 6
  0080     LET C=C+FNB(X)*8^(X-1)
  0090   NEXT X
  0095   WRITE FILE(0,TÆL)C,R$
  0100 NEXT TÆL