|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 618 (0x26a)
Types: TextFile
Notes: ASS::LSTFILÆN, LSTFILÆN
Names: »LSTFILÆN«
└─⟦714f3848e⟧ Bits:30006597 ALM Copy 24.9.79
└─⟦this⟧ »ASS::LSTFILÆN«
«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