|
DataMuseum.dkPresents historical artifacts from the history of: ICL Comet |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about ICL Comet Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 512 (0x200)
Names: »GENEANNR.CML«
└─⟦2cd1ff413⟧ Bits:30004221/disk1.imd Penge og samfund (Comet)
└─⟦this⟧ »GENEANNR.CML«
0x000…020 (0,) 36 35 30 30 20 50 52 4f 43 20 47 45 4e 45 41 4e 4e 52 28 4c 45 56 24 2c 20 56 41 52 45 24 2c 20 ┆6500 PROC GENEANNR(LEV$, VARE$, ┆ 0x020…040 52 45 46 20 45 41 4e 24 29 20 43 4c 4f 53 45 44 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆REF EAN$) CLOSED //-------------┆ 0x040…060 2d 2d 2d 20 47 45 4e 45 41 4e 4e 52 0d 36 35 30 31 20 20 20 44 49 4d 20 4c 24 20 4f 46 20 35 2c ┆--- GENEANNR 6501 DIM L$ OF 5,┆ 0x060…080 20 56 24 20 4f 46 20 35 2c 20 43 24 20 4f 46 20 31 2c 20 45 24 20 4f 46 20 31 33 0d 36 35 30 32 ┆ V$ OF 5, C$ OF 1, E$ OF 13 6502┆ 0x080…0a0 20 20 20 4c 24 3a 3d 4c 45 56 24 3b 20 56 24 3a 3d 56 41 52 45 24 0d 36 35 30 33 20 20 20 57 48 ┆ L$:=LEV$; V$:=VARE$ 6503 WH┆ 0x0a0…0c0 49 4c 45 20 4c 45 4e 28 4c 24 29 3c 35 20 44 4f 20 0d 36 35 30 34 20 20 20 20 20 4c 24 3a 3d 22 ┆ILE LEN(L$)<5 DO 6504 L$:="┆ 0x0c0…0e0 30 22 2b 4c 24 0d 36 35 30 35 20 20 20 45 4e 44 57 48 49 4c 45 20 0d 36 35 30 36 20 20 20 57 48 ┆0"+L$ 6505 ENDWHILE 6506 WH┆ 0x0e0…100 49 4c 45 20 4c 45 4e 28 56 24 29 3c 35 20 44 4f 20 0d 36 35 30 37 20 20 20 20 20 56 24 3a 3d 22 ┆ILE LEN(V$)<5 DO 6507 V$:="┆ 0x100…120 30 22 2b 56 24 0d 36 35 30 38 20 20 20 45 4e 44 57 48 49 4c 45 20 0d 36 35 30 39 20 20 20 45 24 ┆0"+V$ 6508 ENDWHILE 6509 E$┆ 0x120…140 3a 3d 22 35 37 22 2b 4c 24 2b 56 24 3b 20 53 55 4d 3a 3d 30 0d 36 35 31 30 20 20 20 46 4f 52 20 ┆:="57"+L$+V$; SUM:=0 6510 FOR ┆ 0x140…160 49 3a 3d 31 20 54 4f 20 31 31 20 53 54 45 50 20 32 20 44 4f 20 0d 36 35 31 31 20 20 20 20 20 53 ┆I:=1 TO 11 STEP 2 DO 6511 S┆ 0x160…180 55 4d 3a 3d 53 55 4d 2b 56 41 4c 28 45 24 28 49 3a 49 29 29 2b 33 2a 56 41 4c 28 45 24 28 49 2b ┆UM:=SUM+VAL(E$(I:I))+3*VAL(E$(I+┆ 0x180…1a0 31 3a 49 2b 31 29 29 0d 36 35 31 32 20 20 20 4e 45 58 54 20 49 0d 36 35 31 33 20 20 20 43 3a 3d ┆1:I+1)) 6512 NEXT I 6513 C:=┆ 0x1a0…1c0 28 31 30 2d 53 55 4d 20 4d 4f 44 20 31 30 29 20 4d 4f 44 20 31 30 3b 20 45 24 3a 3d 45 24 2b 43 ┆(10-SUM MOD 10) MOD 10; E$:=E$+C┆ 0x1c0…1e0 48 52 24 28 34 38 2b 43 29 3b 20 45 41 4e 24 3a 3d 45 24 0d 36 35 31 34 20 45 4e 44 50 52 4f 43 ┆HR$(48+C); EAN$:=E$ 6514 ENDPROC┆ 0x1e0…200 20 47 45 4e 45 41 4e 4e 52 0d 4c 28 45 24 28 49 3a 49 29 29 2b 33 2a 56 41 4c 28 45 24 28 49 6a ┆ GENEANNR L(E$(I:I))+3*VAL(E$(Ij┆