DataMuseum.dk

top - download

    Length: 618 (0x26a)
    Types: TextFile
    Notes: LSTFILÆN
    Names: »LSTFILÆN«

└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
    └─ ⟦this⟧ »ASS::LSTFILÆN« 

TextFile

«ff»
  0005 PAGE=0
  0010 DIM A$(3000),B$(3000)
  0020 DIM C$(100),D$(100),FIL$(8),FIL2$(8)
  0025 INPUT "FRAFIL: ",FIL$,"<13><10>TILFIL: ",FIL2$
  0030 INPUT "FRA : ",C$,"<13><10>TIL : ",D$
  0032 OPEN FILE(1,1)FIL$
  0034 READ FILE(1)A$
  0036 IF LEN(A$)=3000 THEN PRINT "A$ FOR LILLE !!!!"
  0038 CLOSE 
  0039 LET I=0
  0040 REPEAT
  0045   LET I=I+1
  0050   IF A$(I,I+LEN(C$)-1)=C$ THEN LET B$=A$(1,I-1),D$,A$(I+LEN(C$),LEN(A$)); A$=B$; I=I+LEN(D$)
  0060 UNTIL I=LEN(A$)+LEN(C$)-1
  0063 PRINT A$
  0064 STOP
  0065 CREATE FIL2$,0
  0070 OPEN FILE(1,3)FIL2$
  0080 WRITE FILE(1)A$
  0090 CLOSE