|
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 - download
Length: 3072 (0xc00)
Types: dBASE-II
Names: »KALENDER.DBF«
└─⟦9c8e44efc⟧ Bits:30005957 Std. Rammesystem
└─⟦this⟧ »KALENDER.DBF«
| M1 | M2 | M3 | M4 | M5 | M6 | M7 | M8 | M9 | M10 | M11 | M12 |
|---|---|---|---|---|---|---|---|---|---|---|---|
| TFIL.$$$ | |||||||||||
| JANUAR: | |||||||||||
| FEBRUAR: | |||||||||||
| MARTS: | |||||||||||
| APRIL: | |||||||||||
| MAJ: | |||||||||||
| JUNI: | |||||||||||
| JULI: | |||||||||||
| AUGUST: | |||||||||||
| SEPTEMBER: | |||||||||||
| OKTOBER: | |||||||||||
| NOVEMBER: | |||||||||||
| DECEMBER: |
0x000…209 Header {
0x000…209 version = 0x02 // 0x0 @0x0
0x000…209 nrec = 0x000d // 0x1 @0x1
0x000…209 month = 0x00 // 0x3 @0x3
0x000…209 day = 0x00 // 0x4 @0x4
0x000…209 year = 0x00 // 0x5 @0x5
0x000…209 recsz = 0x009d // 0x6 @0x6
0x000…209 flddef = [ // 0x8 @0x8
0x000…209 [0x0]: FldDef {fname=»M1 «, ftype=»C«, flen=0x0d, fadr=0x70b9, fdec=0x00}
0x000…209 [0x1]: FldDef {fname=»M2 «, ftype=»C«, flen=0x0d, fadr=0x70c6, fdec=0x00}
0x000…209 [0x2]: FldDef {fname=»M3 «, ftype=»C«, flen=0x0d, fadr=0x70d3, fdec=0x00}
0x000…209 [0x3]: FldDef {fname=»M4 «, ftype=»C«, flen=0x0d, fadr=0x70e0, fdec=0x00}
0x000…209 [0x4]: FldDef {fname=»M5 «, ftype=»C«, flen=0x0d, fadr=0x70ed, fdec=0x00}
0x000…209 [0x5]: FldDef {fname=»M6 «, ftype=»C«, flen=0x0d, fadr=0x70fa, fdec=0x00}
0x000…209 [0x6]: FldDef {fname=»M7 «, ftype=»C«, flen=0x0d, fadr=0x7107, fdec=0x00}
0x000…209 [0x7]: FldDef {fname=»M8 «, ftype=»C«, flen=0x0d, fadr=0x7114, fdec=0x00}
0x000…209 [0x8]: FldDef {fname=»M9 «, ftype=»C«, flen=0x0d, fadr=0x7121, fdec=0x00}
0x000…209 [0x9]: FldDef {fname=»M10 «, ftype=»C«, flen=0x0d, fadr=0x712e, fdec=0x00}
0x000…209 [0xa]: FldDef {fname=»M11 «, ftype=»C«, flen=0x0d, fadr=0x713b, fdec=0x00}
0x000…209 [0xb]: FldDef {fname=»M12 «, ftype=»C«, flen=0x0d, fadr=0x7148, fdec=0x00}
0x000…209 ]
0x000…209 }
0x209…a02 [
0x209…a02 [0x0]: Rec {status=» «, M1=» TFIL.$$$ «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 [0x1]: Rec {status=» «, M1=»:JANUAR: «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 [0x2]: Rec {status=» «, M1=»:FEBRUAR: «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 [0x3]: Rec {status=» «, M1=»:MARTS: «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 [0x4]: Rec {status=» «, M1=»:APRIL: «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 [0x5]: Rec {status=» «, M1=»:MAJ: «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 [0x6]: Rec {status=» «, M1=»:JUNI: «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 [0x7]: Rec {status=» «, M1=»:JULI: «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 [0x8]: Rec {status=» «, M1=»:AUGUST: «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 [0x9]: Rec {status=» «, M1=»:SEPTEMBER: «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 [0xa]: Rec {status=» «, M1=»:OKTOBER: «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 [0xb]: Rec {status=» «, M1=»:NOVEMBER: «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 [0xc]: Rec {status=» «, M1=»:DECEMBER: «, M2=» «, M3=» «, M4=» «, M5=» «, M6=» «, M7=» «, M8=» «, M9=» «, M10=» «, M11=» «, M12=» «}
0x209…a02 ]
0xa02…a20 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┆