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

⟦401f00898⟧ TextFile

    Length: 530 (0x212)
    Types: TextFile
    Notes: K244RETF
    Names: »K244RETF«

Derivation

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─ ⟦this⟧ »ASS2::K244RETF«

TextFile

«ff»
  9900 DIM A$(5000),S$(40),IN$(50),F$(8),NF$(8)
  9901 INPUT "FILNAVN ",F$,"<10><13>NYT FILNAVN  ",NF$,"<10><13>SØGER EFTER ",S$,"<10><13>SKAL INDSÆTTE  ",IN$
  9902 PAGE=0
  9903 OPEN FILE(1,1)F$
  9904 READ FILE(1)A$
  9905 CLOSE 
  9906 CREATE NF$,0
  9907 OPEN FILE(1,11)NF$
  9908 FOR X=1 TO LEN(A$)
  9909   IF A$(X)<>S$(1) THEN GOTO 9914
  9910   IF A$(X,LEN(S$)-1+X)=S$ THEN 
  9911     PRINT FILE(1)IN$;
  9912     LET X=X+LEN(S$)
  9913   ENDIF
  9914   PRINT FILE(1)A$(X);
  9915 NEXT X
  9916 CLOSE