|
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: »KOPI_SEK.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KOPI_SEK.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »KOPI_SEK.K«
0100 // ------ kopi_sekvens ----- 0110 // dette program er udgået i DDE-COMAL versionen 0120 // benyt i stedet programmet FCOPY80 fra DDE
0x000…023 Line {l1=0x21, l2=»0100 // ------ kopi_sekvens -----«, l3=0x21}
0x023…05a Line {l1=0x35, l2=»0110 // dette program er udgået i DDE-COMAL versionen«, l3=0x35}
0x05a…08d Line {l1=0x31, l2=»0120 // benyt i stedet programmet FCOPY80 fra DDE«, l3=0x31}
0x08d…0a0 00 00 65 27 20 6b 61 6e 20 6e 65 6d 6d 65 72 65 20 6b 6f ┆ e' kan nemmere ko┆
0x0a0…0c0 70 69 65 72 65 73 20 76 65 64 20 3a 33 3d 30 30 34 30 20 2f 2f 20 31 2e 20 20 41 6e 76 65 6e 64 ┆pieres ved :3=0040 // 1. Anvend┆
0x0c0…0e0 65 20 74 65 6b 73 74 6b 6f 70 69 65 72 69 6e 67 73 70 72 6f 67 72 61 6d 6d 65 74 20 75 6e 64 65 ┆e tekstkopieringsprogrammet unde┆
0x0e0…100 72 20 57 6f 72 64 57 6f 72 6b 2e 3d 36 30 30 35 30 20 2f 2f 20 32 2e 20 20 41 6e 76 65 6e 64 65 ┆r WordWork.=60050 // 2. Anvende┆
0x100…120 20 43 4f 4d 41 4c 38 30 20 6b 6f 70 69 65 72 69 6e 67 73 70 72 6f 67 72 61 6d 20 46 43 4f 50 59 ┆ COMAL80 kopieringsprogram FCOPY┆
0x120…140 38 30 2e 36 08 30 30 36 30 20 2f 2f 20 08 08 30 30 38 30 20 2f 2f 20 08 2c 30 30 39 30 20 44 49 ┆80.6 0060 // 0080 // ,0090 DI┆
0x140…160 4d 20 4c 49 53 54 45 28 31 30 29 2c 50 45 52 53 4f 4e 24 28 31 30 29 20 4f 46 20 33 30 2c 53 24 ┆M LISTE(10),PERSON$(10) OF 30,S$┆
0x160…180 20 4f 46 20 31 2c 26 30 31 30 30 20 44 49 4d 20 44 49 53 4b 4e 41 56 4e 24 20 4f 46 20 38 2c 46 ┆ OF 1,&0100 DIM DISKNAVN$ OF 8,F┆
0x180…1a0 49 4c 4e 41 56 4e 24 20 4f 46 20 31 37 26 19 30 31 31 30 20 44 49 53 4b 4e 41 56 4e 24 3a 3d 22 ┆ILNAVN$ OF 17& 0110 DISKNAVN$:="┆
0x1a0…1c0 53 59 53 54 49 4d 45 22 19 27 30 31 31 35 20 46 49 4c 4e 41 56 4e 24 3a 3d 44 49 53 4b 4e 41 56 ┆SYSTIME" '0115 FILNAVN$:=DISKNAV┆
0x1c0…1e0 4e 24 2b 22 3a 22 2b 22 4c 4f 57 53 43 4f 52 45 22 27 08 30 31 32 30 20 2f 2f 20 08 14 30 31 33 ┆N$+":"+"LOWSCORE"' 0120 // 013┆
0x1e0…200 30 20 4f 50 45 4e 20 46 49 4c 4e 41 56 4e 24 2c 52 14 16 30 31 34 30 20 46 4f 52 20 49 3a 3d 31 ┆0 OPEN FILNAVN$,R 0140 FOR I:=1┆
0x200…220 20 54 4f 20 35 20 44 4f 20 16 25 30 31 35 30 20 47 45 54 20 46 49 4c 4e 41 56 4e 24 3a 4c 49 53 ┆ TO 5 DO %0150 GET FILNAVN$:LIS┆
0x220…240 54 45 28 49 29 2c 50 45 52 53 4f 4e 24 28 49 29 25 1e 30 31 36 30 20 50 52 49 4e 54 20 4c 49 53 ┆TE(I),PERSON$(I)% 0160 PRINT LIS┆
0x240…260 54 45 28 49 29 2c 50 45 52 53 4f 4e 24 28 49 29 1e 0b 30 31 37 30 20 4e 45 58 54 20 49 0b 13 30 ┆TE(I),PERSON$(I) 0170 NEXT I 0┆
0x260…280 31 38 30 20 43 4c 4f 53 45 20 46 49 4c 4e 41 56 4e 24 13 08 30 31 39 30 20 2f 2f 20 08 25 30 32 ┆180 CLOSE FILNAVN$ 0190 // %02┆
0x280…2a0 30 30 20 49 4e 50 55 54 20 22 49 6e 64 73 7b 74 20 6e 79 20 64 69 73 6b 65 74 74 65 3a 20 20 22 ┆00 INPUT "Indsæt ny diskette: "┆
0x2a0…2c0 3a 53 24 25 34 30 32 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6e 61 76 6e 20 70 7d ┆:S$%40210 INPUT "Indtast navn på┆
0x2c0…2e0 20 6e 79 20 64 69 73 6b 65 74 74 65 3a 20 22 3a 44 49 53 4b 4e 41 56 4e 24 34 08 30 32 32 30 20 ┆ ny diskette: ":DISKNAVN$4 0220 ┆
0x2e0…300 2f 2f 20 08 27 30 32 32 34 20 46 49 4c 4e 41 56 4e 24 3a 3d 44 49 53 4b 4e 41 56 4e 24 2b 22 3a ┆// '0224 FILNAVN$:=DISKNAVN$+":┆
0x300…320 22 2b 22 4c 4f 57 53 43 4f 52 45 22 27 16 30 32 32 35 20 43 52 45 41 54 45 20 46 49 4c 4e 41 56 ┆"+"LOWSCORE"' 0225 CREATE FILNAV┆
0x320…340 4e 24 2c 31 16 14 30 32 33 30 20 4f 50 45 4e 20 46 49 4c 4e 41 56 4e 24 2c 57 14 16 30 32 34 30 ┆N$,1 0230 OPEN FILNAVN$,W 0240┆
0x340…360 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 35 20 44 4f 20 16 25 30 32 35 30 20 50 55 54 20 46 49 4c ┆ FOR I:=1 TO 5 DO %0250 PUT FIL┆
0x360…380 4e 41 56 4e 24 3a 4c 49 53 54 45 28 49 29 2c 50 45 52 53 4f 4e 24 28 49 29 25 1e 30 32 36 30 20 ┆NAVN$:LISTE(I),PERSON$(I)% 0260 ┆
0x380…3a0 50 52 49 4e 54 20 4c 49 53 54 45 28 49 29 2c 50 45 52 53 4f 4e 24 28 49 29 1e 0b 30 32 37 30 20 ┆PRINT LISTE(I),PERSON$(I) 0270 ┆
0x3a0…3c0 4e 45 58 54 20 49 0b 13 30 32 38 30 20 43 4c 4f 53 45 20 46 49 4c 4e 41 56 4e 24 13 00 00 00 63 ┆NEXT I 0280 CLOSE FILNAVN$ c┆
0x3c0…3e0 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┆
[…0x20…]