|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 3072 (0xc00)
Names: »KALENDER.DBF«
└─⟦9c8e44efc⟧ Bits:30005957 Std. Rammesystem
└─⟦this⟧ »KALENDER.DBF«
0x000…020 (0,) 02 0d 00 00 00 00 9d 00 4d 31 00 00 00 00 00 00 00 00 00 43 0d b9 70 00 4d 32 00 00 00 00 00 00 ┆ M1 C p M2 ┆
0x020…040 00 00 00 43 0d c6 70 00 4d 33 00 00 00 00 00 00 00 00 00 43 0d d3 70 00 4d 34 00 00 00 00 00 00 ┆ C p M3 C p M4 ┆
0x040…060 00 00 00 43 0d e0 70 00 4d 35 00 00 00 00 00 00 00 00 00 43 0d ed 70 00 4d 36 00 00 00 00 00 00 ┆ C p M5 C p M6 ┆
0x060…080 00 00 00 43 0d fa 70 00 4d 37 00 00 00 00 00 00 00 00 00 43 0d 07 71 00 4d 38 00 00 00 00 00 00 ┆ C p M7 C q M8 ┆
0x080…0a0 00 00 00 43 0d 14 71 00 4d 39 00 00 00 00 00 00 00 00 00 43 0d 21 71 00 4d 31 30 00 00 00 00 00 ┆ C q M9 C !q M10 ┆
0x0a0…0c0 00 00 00 43 0d 2e 71 00 4d 31 31 00 00 00 00 00 00 00 00 43 0d 3b 71 00 4d 31 32 00 00 00 00 00 ┆ C .q M11 C ;q M12 ┆
0x0c0…0e0 00 00 00 43 0d 48 71 00 0d 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ C Hq ┆
0x0e0…100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x8…]
0x200…220 (1,) 00 00 00 00 00 00 00 00 00 20 00 54 46 49 4c 2e 24 24 24 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ TFIL.$$$ ┆
0x220…240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0x2a0…2c0 20 20 20 20 20 20 20 3a 4a 41 4e 55 41 52 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ :JANUAR: ┆
0x2c0…2e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0x340…360 20 20 20 20 3a 46 45 42 52 55 41 52 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ :FEBRUAR: ┆
0x360…380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0x3e0…400 20 3a 4d 41 52 54 53 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ :MARTS: ┆
0x400…420 (2,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x460…480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 41 ┆ :A┆
0x480…4a0 50 52 49 4c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PRIL: ┆
0x4a0…4c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x2…]
0x500…520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 4d 41 4a 3a ┆ :MAJ:┆
0x520…540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0x5a0…5c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 4a 55 4e 49 3a 20 20 ┆ :JUNI: ┆
0x5c0…5e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0x640…660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 4a 55 4c 49 3a 20 20 20 20 20 ┆ :JULI: ┆
0x660…680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0x6e0…700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 41 55 47 55 53 54 3a 20 20 20 20 20 20 ┆ :AUGUST: ┆
0x700…720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0x780…7a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 53 45 50 54 45 4d 42 45 52 3a 20 20 20 20 20 20 ┆ :SEPTEMBER: ┆
0x7a0…7c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0x820…840 20 20 20 20 20 20 20 20 20 20 20 20 3a 4f 4b 54 4f 42 45 52 3a 20 20 20 20 20 20 20 20 20 20 20 ┆ :OKTOBER: ┆
0x840…860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0x8c0…8e0 20 20 20 20 20 20 20 20 20 3a 4e 4f 56 45 4d 42 45 52 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ :NOVEMBER: ┆
0x8e0…900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0x960…980 20 20 20 20 20 20 3a 44 45 43 45 4d 42 45 52 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ :DECEMBER: ┆
0x980…9a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x3…]
0xa00…a20 (5,) 20 20 1a 20 20 20 20 20 53 54 4f 52 45 20 4c 49 4e 49 45 4e 52 2b 31 20 54 4f 20 4c 49 4e 49 45 ┆ STORE LINIENR+1 TO LINIE┆
0xa20…a40 4e 52 0d 0a 20 20 20 45 4e 44 44 4f 0d 0a 20 20 20 53 54 4f 52 45 20 4c 45 4e 28 50 4f 53 54 29 ┆NR ENDDO STORE LEN(POST)┆
0xa40…a60 2d 32 20 54 4f 20 52 45 43 4c 47 44 0d 0a 20 20 20 3f 20 24 28 50 4f 53 54 2c 32 2c 52 45 43 4c ┆-2 TO RECLGD ? $(POST,2,RECL┆
0xa60…a80 47 44 29 0d 0a 45 4e 44 44 4f 0d 0a 0d 0a 2a 20 4c 55 4b 20 48 4a 5b 4c 50 45 20 46 49 4c 0d 0a ┆GD) ENDDO * LUK HJÆLPE FIL ┆
0xa80…aa0 20 53 45 54 20 41 4c 54 45 52 4e 41 54 45 20 4f 46 46 0d 0a 20 53 45 54 20 41 4c 54 45 52 4e 41 ┆ SET ALTERNATE OFF SET ALTERNA┆
0xaa0…ac0 54 45 20 54 4f 0d 0a 53 45 54 20 43 4f 4e 53 4f 4c 45 20 4f 4e 0d 0a 2a 20 49 4e 44 4c 5b 53 20 ┆TE TO SET CONSOLE ON * INDLÆS ┆
0xac0…ae0 48 4a 5b 4c 50 45 20 46 49 4c 20 54 49 4c 20 49 4e 54 45 52 4e 20 46 49 4c 0d 0a 55 53 45 20 26 ┆HJÆLPE FIL TIL INTERN FIL USE &┆
0xae0…b00 49 4e 54 46 49 4c 0d 0a 3f 20 27 4e 75 20 65 72 20 76 69 20 6b 6c 61 72 20 74 69 6c 20 61 74 20 ┆INTFIL ? 'Nu er vi klar til at ┆
0xb00…b20 6f 76 65 72 66 7c 72 65 20 64 65 20 6b 6f 6e 76 65 72 74 65 72 65 64 65 20 6c 69 6e 69 65 72 20 ┆overføre de konverterede linier ┆
0xb20…b40 74 69 6c 20 64 69 6e 20 62 61 73 65 2e 27 0d 0a 41 43 43 45 50 54 20 27 53 6b 61 6c 20 64 69 6e ┆til din base.' ACCEPT 'Skal din┆
0xb40…b60 20 62 61 73 65 20 76 7b 72 65 20 74 6f 6d 20 66 7c 72 20 76 69 20 6f 76 65 72 66 7c 72 65 72 20 ┆ base være tom før vi overfører ┆
0xb60…b80 64 65 20 6e 79 65 20 72 65 63 6f 72 64 20 3f 20 28 4a 2f 4e 29 20 27 20 74 6f 20 73 76 61 72 0d ┆de nye record ? (J/N) ' to svar ┆
0xb80…ba0 0a 49 46 20 21 28 73 76 61 72 29 3d 27 4a 27 0d 0a 20 20 20 41 43 43 45 50 54 20 27 4e 42 21 21 ┆ IF !(svar)='J' ACCEPT 'NB!!┆
0xba0…bc0 20 73 7d 20 74 7c 6d 6d 65 72 20 76 69 20 62 61 73 65 6e 2e 20 4f 4b 20 3f 20 28 4a 2f 4e 29 20 ┆ så tømmer vi basen. OK ? (J/N) ┆
0xbc0…be0 27 20 54 4f 20 53 56 41 52 0d 0a 20 20 20 49 46 20 21 28 73 76 61 72 29 3c 3e 27 4a 27 0d 0a 20 ┆' TO SVAR IF !(svar)<>'J' ┆
0xbe0…c00 20 20 20 20 20 3f 20 27 4a 61 2c 20 6a 61 20 2e 2e 2e 20 73 7d 20 67 7c 72 20 76 69 20 69 6b 6b ┆ ? 'Ja, ja ... så gør vi ikk┆