|
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 - download
Length: 2016 (0x7e0)
Types: TextFile
Notes: Mikados_K
Names: »RETTEFIL.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RETTEFIL.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »RETTEFIL.K«
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
0x000…042 Line {l1=0x40, l2=»0010 // ------------------- rette_filus ------------------------«, l3=0x40}
0x042…065 Line {l1=0x21, l2=»0020 DIM P$(120) OF 80,FIL$ OF 16«, l3=0x21}
0x065…09f Line {l1=0x38, l2=»0030 INPUT "Hvad hedder filen, der skal rettes? ":FIL$«, l3=0x38}
0x09f…0ac Line {l1=0x0b, l2=»0040 PRINT «, l3=0x0b}
0x0ac…0b9 Line {l1=0x0b, l2=»0050 PRINT «, l3=0x0b}
0x0b9…0f5 Line {l1=0x3a, l2=»0060 INPUT "Hvilken linie skal rettes? ":NUMMER«, l3=0x3a}
0x0f5…111 Line {l1=0x1a, l2=»0070 FIL$:="SYSTIME:"+FIL$«, l3=0x1a}
0x111…123 Line {l1=0x10, l2=»0080 OPEN FIL$,R«, l3=0x10}
0x123…13d Line {l1=0x18, l2=»0090 FOR B:=1 TO 120 DO «, l3=0x18}
0x13d…152 Line {l1=0x13, l2=»0100 GET FIL$:P$(B)«, l3=0x13}
0x152…164 Line {l1=0x10, l2=»0110 PRINT P$(B)«, l3=0x10}
0x164…17c Line {l1=0x16, l2=»0120 IF B=NUMMER THEN «, l3=0x16}
0x17c…18e Line {l1=0x10, l2=»0130 INPUT P$(B)«, l3=0x10}
0x18e…19b Line {l1=0x0b, l2=»0140 ENDIF «, l3=0x0b}
0x19b…1a8 Line {l1=0x0b, l2=»0160 NEXT B«, l3=0x0b}
0x1a8…1b9 Line {l1=0x0f, l2=»0170 CLOSE FIL$«, l3=0x0f}
0x1b9…1cb Line {l1=0x10, l2=»0180 OPEN FIL$,W«, l3=0x10}
0x1cb…1e5 Line {l1=0x18, l2=»0190 FOR B:=1 TO 120 DO «, l3=0x18}
0x1e5…1fa Line {l1=0x13, l2=»0200 PUT FIL$:P$(B)«, l3=0x13}
0x1fa…207 Line {l1=0x0b, l2=»0210 NEXT B«, l3=0x0b}
0x207…21a Line {l1=0x11, l2=»0220 ENDFILE FIL$«, l3=0x11}
0x21a…22b Line {l1=0x0f, l2=»0230 CLOSE FIL$«, l3=0x0f}
0x22b…236 Line {l1=0x09, l2=»D033 // 2«, l3=0x09}
0x236…240 00 00 63 63 63 63 63 63 63 63 ┆ cccccccc┆
0x240…260 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2c…]