|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2016 (0x7e0)
Notes: Mikados TextFile, Mikados_K
Names: »RETTEFIL«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RETTEFIL«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RETTEFIL«
0010 // ------------------- rette_filus ------------------------ 0020 DIM P$(120) OF 80,FIL$ OF 16 0030 INPUT "Hvad hedder filen, der skal rettes? ":FIL$ 0040 PRINT 0050 PRINT 0060 INPUT "Hvilken linie skal rettes? ":NUMMER 0070 FIL$:="SYSTIME:"+FIL$ 0080 OPEN FIL$,R 0090 FOR B:=1 TO 120 DO 0100 GET FIL$:P$(B) 0110 PRINT P$(B) 0120 IF B=NUMMER THEN 0130 INPUT P$(B) 0140 ENDIF 0160 NEXT B 0170 CLOSE FIL$ 0180 OPEN FIL$,W 0190 FOR B:=1 TO 120 DO 0200 PUT FIL$:P$(B) 0210 NEXT B 0220 ENDFILE FIL$ 0230 CLOSE FIL$ D033 // 2