|
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: 2528 (0x9e0)
Notes: Mikados TextFile, Mikados_K
Names: »KOPIDIR«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KOPIDIR«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KOPIDIR«
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