|
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: 992 (0x3e0)
Notes: Mikados TextFile, Mikados_K
Names: »CPRNUMRE«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »CPRNUMRE«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »CPRNUMRE«
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