|
|
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: 1024 (0x400)
Types: dBASE-II
Names: »DBUDGET.DBF«
└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
└─⟦this⟧ »DBUDGET.DBF«
| KODE2 | KONTOGRP | BUBEL01 | BUBEL02 | BUBEL03 | BUBEL04 | BUBEL05 | BUBEL06 | BUBEL07 | BUBEL08 | BUBEL09 | BUBEL10 | BUBEL11 | BUBEL12 | KODE2GRP |
|---|
0x000…209 Header {
0x000…209 version = 0x02 // 0x0 @0x0
0x000…209 nrec = 0x0000 // 0x1 @0x1
0x000…209 month = 0x00 // 0x3 @0x3
0x000…209 day = 0x00 // 0x4 @0x4
0x000…209 year = 0x00 // 0x5 @0x5
0x000…209 recsz = 0x7473 // 0x6 @0x6
0x000…209 flddef = [ // 0x8 @0x8
0x000…209 [0x0]: FldDef {fname=»KODE2 «, ftype=»C«, flen=0x02, fadr=0x70b9, fdec=0x00}
0x000…209 [0x1]: FldDef {fname=»KONTOGRP «, ftype=»C«, flen=0x02, fadr=0x70bb, fdec=0x00}
0x000…209 [0x2]: FldDef {fname=»BUBEL01 «, ftype=»N«, flen=0x08, fadr=0x70bd, fdec=0x00}
0x000…209 [0x3]: FldDef {fname=»BUBEL02 «, ftype=»N«, flen=0x08, fadr=0x70c5, fdec=0x00}
0x000…209 [0x4]: FldDef {fname=»BUBEL03 «, ftype=»N«, flen=0x08, fadr=0x70cd, fdec=0x00}
0x000…209 [0x5]: FldDef {fname=»BUBEL04 «, ftype=»N«, flen=0x08, fadr=0x70d5, fdec=0x00}
0x000…209 [0x6]: FldDef {fname=»BUBEL05 «, ftype=»N«, flen=0x08, fadr=0x70dd, fdec=0x00}
0x000…209 [0x7]: FldDef {fname=»BUBEL06 «, ftype=»N«, flen=0x08, fadr=0x70e5, fdec=0x00}
0x000…209 [0x8]: FldDef {fname=»BUBEL07 «, ftype=»N«, flen=0x08, fadr=0x70ed, fdec=0x00}
0x000…209 [0x9]: FldDef {fname=»BUBEL08 «, ftype=»N«, flen=0x08, fadr=0x70f5, fdec=0x00}
0x000…209 [0xa]: FldDef {fname=»BUBEL09 «, ftype=»N«, flen=0x08, fadr=0x70fd, fdec=0x00}
0x000…209 [0xb]: FldDef {fname=»BUBEL10 «, ftype=»N«, flen=0x08, fadr=0x7105, fdec=0x00}
0x000…209 [0xc]: FldDef {fname=»BUBEL11 «, ftype=»N«, flen=0x08, fadr=0x710d, fdec=0x00}
0x000…209 [0xd]: FldDef {fname=»BUBEL12 «, ftype=»N«, flen=0x08, fadr=0x7115, fdec=0x00}
0x000…209 [0xe]: FldDef {fname=»KODE2GRP «, ftype=»C«, flen=0x04, fadr=0x711d, fdec=0x00}
0x000…209 ]
0x000…209 }
0x209…220 1a 20 20 48 45 4c 45 20 42 55 27 0d 0a 40 20 31 31 2c 33 30 20 53 41 ┆ HELE BU' @ 11,30 SA┆
0x220…240 59 20 27 44 47 45 54 54 45 54 27 0d 0a 40 20 31 33 2c 31 30 20 53 41 59 20 27 34 29 20 53 4c 45 ┆Y 'DGETTET' @ 13,10 SAY '4) SLE┆
0x240…260 54 54 45 20 20 20 20 48 45 4c 45 20 42 55 27 0d 0a 40 20 31 33 2c 33 30 20 53 41 59 20 27 44 47 ┆TTE HELE BU' @ 13,30 SAY 'DG┆
0x260…280 45 54 54 45 54 27 0d 0a 40 20 31 35 2c 31 30 20 53 41 59 20 27 35 29 20 4f 50 44 41 54 45 52 20 ┆ETTET' @ 15,10 SAY '5) OPDATER ┆
0x280…2a0 20 20 42 55 44 47 45 54 27 0d 0a 40 20 31 35 2c 33 30 20 53 41 59 20 27 49 4e 44 45 4b 53 27 0d ┆ BUDGET' @ 15,30 SAY 'INDEKS' ┆
0x2a0…2c0 0a 40 20 31 37 2c 30 30 20 53 41 59 20 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ @ 17,00 SAY '------------------┆
0x2c0…2e0 2d 2d 27 0d 0a 40 20 31 37 2c 32 30 20 53 41 59 20 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--' @ 17,20 SAY '--------------┆
0x2e0…300 2d 2d 2d 2d 2d 2d 27 0d 0a 40 20 31 37 2c 34 30 20 53 41 59 20 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆------' @ 17,40 SAY '----------┆
0x300…320 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 0d 0a 40 20 31 37 2c 36 30 20 53 41 59 20 27 2d 2d 2d 2d 2d 2d ┆----------' @ 17,60 SAY '------┆
0x320…340 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 0d 0a 40 20 31 38 2c 30 30 20 53 41 59 20 27 54 41 ┆--------------' @ 18,00 SAY 'TA┆
0x340…360 53 54 20 53 56 41 52 3a 27 0d 0a 20 20 20 53 45 54 20 43 4f 4e 53 4f 4c 45 20 4f 46 46 0d 0a 20 ┆ST SVAR:' SET CONSOLE OFF ┆
0x360…380 20 20 57 41 49 54 20 54 4f 20 4d 51 3a 44 55 4d 4d 59 0d 0a 20 20 20 53 45 54 20 43 4f 4e 53 4f ┆ WAIT TO MQ:DUMMY SET CONSO┆
0x380…3a0 4c 45 20 4f 4e 0d 0a 49 46 20 21 28 4d 51 3a 44 55 4d 4d 59 29 20 3d 20 27 30 27 0d 0a 52 45 4c ┆LE ON IF !(MQ:DUMMY) = '0' REL┆
0x3a0…3c0 45 41 53 45 20 4d 51 3a 44 55 4d 4d 59 0d 0a 75 73 65 0d 0a 52 45 54 55 52 4e 0d 0a 45 4c 53 45 ┆EASE MQ:DUMMY use RETURN ELSE┆
0x3c0…3e0 0d 0a 49 46 20 21 28 4d 51 3a 44 55 4d 4d 59 29 20 3d 20 27 31 27 0d 0a 20 20 44 4f 20 42 55 44 ┆ IF !(MQ:DUMMY) = '1' DO BUD┆
0x3e0…400 2e 41 44 44 0d 0a 45 4c 53 45 0d 0a 49 46 20 21 28 4d 51 3a 44 55 4d 4d 59 29 20 3d 20 27 32 27 ┆.ADD ELSE IF !(MQ:DUMMY) = '2'┆