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

⟦d42bfc542⟧ TextFile

    Length: 508 (0x1fc)
    Types: TextFile
    Notes: INDMAT  , LIB::INDMAT
    Names: »INDMAT«

Derivation

└─⟦769c4124f⟧ Bits:30007877 (PROGRAM DISKETTE 80.04.08 (KOPI 2) OMRÅDER: LIB KEY: 1)
    └─⟦this⟧ 
└─⟦b83d0ae16⟧ Bits:30007874 (PROGRAM DISKETTE 29.12.80 OMRÅDE: LIB NØGLE: 1)
    └─⟦this⟧

TextFile

«ff»
  0010 DIM TEKST$(580),XYTEKST(2,20)
  0020 LET X=1; Y=30; TÆLLER=1
  0030 INPUT "<140>",TEKST$(X,Y)
  0040 WHILE LEN(TEKST$(X,Y))<>0 DO 
  0050   LET XYTEKST(1,TÆLLER)=X; XYTEKST(2,TÆLLER)=LEN(TEKST$(X,Y))-1+X
  0060   LET TÆLLER=TÆLLER+1; X=LEN(TEKST$(X,Y))+X; Y=X+30
  0070   INPUT "",TEKST$(X,Y)
  0080 ENDWHILE
  0090 PAGE=0
  0100 PRINT TEKST$
  0110 MAT PRINT XYTEKST
  0120 END
  0130 OPEN FILE(1,3)"MATTEKST"
  0140 WRITE FILE(1)TEKST$
  0150 MAT WRITE FILE(1)XYTEKST
  0160 CLOSE