|
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: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »KOPIDIR.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KOPIDIR.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KOPIDIR.K«
0010 // -------------------- kopi_dir ---------------------------- 0020 // Programmet lavet for at kunne følge bogens forklaring fra RC. 0030 // Filen 'highscore' kan nemmere kopieres ved : 0040 // 1. Tekstbehandlingssystemet WordWork 0050 // 2. COMAL80 programmet FCOPY80 0080 DIM LISTE(10),PERSON$(10) OF 30,S$ OF 1,FILNAVN$ OF 17,ETIKETTE$ OF 8 0100 ETIKETTE$:="SYSTIME" 0105 FILNAVN$:=ETIKETTE$+":"+"HIGHSCOR" 0110 OPEN FILNAVN$,R 0120 FOR I:=1 TO 5 DO 0130 GET "SYSTIME:HIGHSCORE",I:LISTE(I),PERSON$(I) 0140 PRINT LISTE(I),PERSON$(I) 0150 NEXT I 0160 CLOSE 0170 INPUT "Indsæt ny diskette: ":S$ 0180 INPUT "Indtast etikette for ny diskette : ":ETIKETTE$ 0185 FILNAVN$:=ETIKETTE$+":"+"HIGHSCOR" 0186 CREATE FILNAVN$,5,40 0190 OPEN FILNAVN$,W 0200 FOR I:=1 TO 5 DO 0210 PUT FILNAVN$,I:LISTE(I),PERSON$(I) 0220 PRINT LISTE(I),PERSON$(I) 0230 NEXT I 0240 CLOSE
0x000…044 Line {l1=0x42, l2=»0010 // -------------------- kopi_dir ----------------------------«, l3=0x42}
0x044…08b Line {l1=0x45, l2=»0020 // Programmet lavet for at kunne følge bogens forklaring fra RC.«, l3=0x45}
0x08b…0c1 Line {l1=0x34, l2=»0030 // Filen 'highscore' kan nemmere kopieres ved :«, l3=0x34}
0x0c1…0f0 Line {l1=0x2d, l2=»0040 // 1. Tekstbehandlingssystemet WordWork«, l3=0x2d}
0x0f0…118 Line {l1=0x26, l2=»0050 // 2. COMAL80 programmet FCOPY80«, l3=0x26}
0x118…164 Line {l1=0x4a, l2=»0080 DIM LISTE(10),PERSON$(10) OF 30,S$ OF 1,FILNAVN$ OF 17,ETIKETTE$ OF 8«, l3=0x4a}
0x164…17f Line {l1=0x19, l2=»0100 ETIKETTE$:="SYSTIME"«, l3=0x19}
0x17f…1a8 Line {l1=0x27, l2=»0105 FILNAVN$:=ETIKETTE$+":"+"HIGHSCOR"«, l3=0x27}
0x1a8…1be Line {l1=0x14, l2=»0110 OPEN FILNAVN$,R«, l3=0x14}
0x1be…1d6 Line {l1=0x16, l2=»0120 FOR I:=1 TO 5 DO «, l3=0x16}
0x1d6…20a Line {l1=0x32, l2=»0130 GET "SYSTIME:HIGHSCORE",I:LISTE(I),PERSON$(I)«, l3=0x32}
0x20a…22a Line {l1=0x1e, l2=»0140 PRINT LISTE(I),PERSON$(I)«, l3=0x1e}
0x22a…237 Line {l1=0x0b, l2=»0150 NEXT I«, l3=0x0b}
0x237…244 Line {l1=0x0b, l2=»0160 CLOSE «, l3=0x0b}
0x244…26b Line {l1=0x25, l2=»0170 INPUT "Indsæt ny diskette: ":S$«, l3=0x25}
0x26b…2a7 Line {l1=0x3a, l2=»0180 INPUT "Indtast etikette for ny diskette : ":ETIKETTE$«, l3=0x3a}
0x2a7…2d0 Line {l1=0x27, l2=»0185 FILNAVN$:=ETIKETTE$+":"+"HIGHSCOR"«, l3=0x27}
0x2d0…2eb Line {l1=0x19, l2=»0186 CREATE FILNAVN$,5,40«, l3=0x19}
0x2eb…301 Line {l1=0x14, l2=»0190 OPEN FILNAVN$,W«, l3=0x14}
0x301…319 Line {l1=0x16, l2=»0200 FOR I:=1 TO 5 DO «, l3=0x16}
0x319…342 Line {l1=0x27, l2=»0210 PUT FILNAVN$,I:LISTE(I),PERSON$(I)«, l3=0x27}
0x342…362 Line {l1=0x1e, l2=»0220 PRINT LISTE(I),PERSON$(I)«, l3=0x1e}
0x362…36f Line {l1=0x0b, l2=»0230 NEXT I«, l3=0x0b}
0x36f…37c Line {l1=0x0b, l2=»0240 CLOSE «, l3=0x0b}
0x37c…380 00 00 63 63 ┆ cc┆
0x380…3a0 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┆
[…0x32…]