|
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: 992 (0x3e0)
Types: TextFile
Notes: Mikados_K
Names: »CPRNUMRE.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »CPRNUMRE.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »CPRNUMRE.K«
0010 // --------------------------- cprnumre ------------------------------- 0020 // Programmet beregner anvendelige cpr-numre for en given dato. 0030 // 0035 INTEGER A,B,C,D,E,F,G,H,I,CHECK,ISUM,HSUM,DATOSUM 0050 CLEAR 0060 PRINT "Indtast en dato således: D,D,M,M,A,A :" 0070 INPUT " ":A,B,C,D,E,F 0080 DATOSUM:=A*4+B*3+C*2+D*7+E*6+F*5 0090 CLEAR 0100 FOR G:=0 TO 9 DO 0110 GSUM:=DATOSUM+G*4 0120 FOR H:=0 TO 9 DO 0130 HSUM:=GSUM+H*3 0140 FOR I:=0 TO 9 DO 0150 ISUM:=HSUM+I*2 0160 FOR CHECK:=0 TO 9 DO 0170 IF (ISUM+CHECK) MOD 11=0 THEN PRINT A;B;C;D;E;F;"- ";G;H;I;CHECK;" ", 0180 NEXT CHECK 0190 NEXT I 0200 NEXT H 0210 NEXT G
0x000…04e Line {l1=0x4c, l2=»0010 // --------------------------- cprnumre -------------------------------«, l3=0x4c}
0x04e…094 Line {l1=0x44, l2=»0020 // Programmet beregner anvendelige cpr-numre for en given dato.«, l3=0x44}
0x094…09e Line {l1=0x08, l2=»0030 // «, l3=0x08}
0x09e…0d6 Line {l1=0x36, l2=»0035 INTEGER A,B,C,D,E,F,G,H,I,CHECK,ISUM,HSUM,DATOSUM«, l3=0x36}
0x0d6…0e3 Line {l1=0x0b, l2=»0050 CLEAR «, l3=0x0b}
0x0e3…120 Line {l1=0x3b, l2=»0060 PRINT "Indtast en dato således: D,D,M,M,A,A :"«, l3=0x3b}
0x120…15b Line {l1=0x39, l2=»0070 INPUT " ":A,B,C,D,E,F«, l3=0x39}
0x15b…182 Line {l1=0x25, l2=»0080 DATOSUM:=A*4+B*3+C*2+D*7+E*6+F*5«, l3=0x25}
0x182…18f Line {l1=0x0b, l2=»0090 CLEAR «, l3=0x0b}
0x18f…1a7 Line {l1=0x16, l2=»0100 FOR G:=0 TO 9 DO «, l3=0x16}
0x1a7…1bf Line {l1=0x16, l2=»0110 GSUM:=DATOSUM+G*4«, l3=0x16}
0x1bf…1d7 Line {l1=0x16, l2=»0120 FOR H:=0 TO 9 DO «, l3=0x16}
0x1d7…1ec Line {l1=0x13, l2=»0130 HSUM:=GSUM+H*3«, l3=0x13}
0x1ec…204 Line {l1=0x16, l2=»0140 FOR I:=0 TO 9 DO «, l3=0x16}
0x204…219 Line {l1=0x13, l2=»0150 ISUM:=HSUM+I*2«, l3=0x13}
0x219…235 Line {l1=0x1a, l2=»0160 FOR CHECK:=0 TO 9 DO «, l3=0x1a}
0x235…281 Line {l1=0x4a, l2=»0170 IF (ISUM+CHECK) MOD 11=0 THEN PRINT A;B;C;D;E;F;"- ";G;H;I;CHECK;" ",«, l3=0x4a}
0x281…292 Line {l1=0x0f, l2=»0180 NEXT CHECK«, l3=0x0f}
0x292…29f Line {l1=0x0b, l2=»0190 NEXT I«, l3=0x0b}
0x29f…2ac Line {l1=0x0b, l2=»0200 NEXT H«, l3=0x0b}
0x2ac…2b9 Line {l1=0x0b, l2=»0210 NEXT G«, l3=0x0b}
0x2b9…2c0 00 00 63 63 63 63 63 ┆ ccccc┆
0x2c0…2e0 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┆
[…0x8…]