|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Types: dBASE-II
Names: »CHECKS.DBF«
└─⟦96695c514⟧ Bits:30005859 DBase II og SuperCalc2
└─⟦this⟧ »CHECKS.DBF«
| CHKNO | PAYTO | AMT | CAN | DATE | MEMO |
|---|---|---|---|---|---|
| UMMY ENTRY TO START PROGRAm | 0.0 | 0/00/0 | ECESSARY TO NUMBER CHEC | ||
| FLFLFD | 255.0 | 6/08/8 | SLDLD | ||
| ALE FOORD | 10.0 | 5/05/8 | RANSPORTATION | ||
| OM TERRIFIC | 8000.0 | 6/13/8 | OR BEING TERRIFIC |
0x000…209 Header {
0x000…209 version = 0x02 // 0x0 @0x0
0x000…209 nrec = 0x0004 // 0x1 @0x1
0x000…209 month = 0x00 // 0x3 @0x3
0x000…209 day = 0x00 // 0x4 @0x4
0x000…209 year = 0x00 // 0x5 @0x5
0x000…209 recsz = 0x004f // 0x6 @0x6
0x000…209 flddef = [ // 0x8 @0x8
0x000…209 [0x0]: FldDef {fname=»CHKNO «, ftype=»N«, flen=0x04, fadr=0xaab9, fdec=0x00}
0x000…209 [0x1]: FldDef {fname=»PAYTO «, ftype=»C«, flen=0x1e, fadr=0xaabd, fdec=0x00}
0x000…209 [0x2]: FldDef {fname=»AMT «, ftype=»N«, flen=0x0a, fadr=0xaadb, fdec=0x02}
0x000…209 [0x3]: FldDef {fname=»CAN «, ftype=»L«, flen=0x01, fadr=0xaae5, fdec=0x00}
0x000…209 [0x4]: FldDef {fname=»DATE «, ftype=»C«, flen=0x08, fadr=0xaae6, fdec=0x00}
0x000…209 [0x5]: FldDef {fname=»MEMO «, ftype=»C«, flen=0x19, fadr=0xaaee, fdec=0x00}
0x000…209 ]
0x000…209 }
0x209…345 [
0x209…345 [0x0]: Rec {status=» «, CHKNO=» 0«, PAYTO=»DUMMY ENTRY TO START PROGRAm «, AMT=» 0.00«, CAN=»t«, DATE=»00/00/00«, MEMO=»NECESSARY TO NUMBER CHECK«}
0x209…345 [0x1]: Rec {status=» «, CHKNO=» 1«, PAYTO=»LFLFLFD «, AMT=» 255.00«, CAN=»T«, DATE=»06/08/83«, MEMO=»LSLDLD «}
0x209…345 [0x2]: Rec {status=» «, CHKNO=» 2«, PAYTO=»DALE FOORD «, AMT=» 10.00«, CAN=»T«, DATE=»05/05/83«, MEMO=»TRANSPORTATION «}
0x209…345 [0x3]: Rec {status=» «, CHKNO=» 3«, PAYTO=»TOM TERRIFIC «, AMT=» 8000.00«, CAN=»T«, DATE=»06/13/83«, MEMO=»FOR BEING TERRIFIC «}
0x209…345 ]
0x345…360 1a 6f 75 74 69 6e 65 20 69 6e 74 6f 20 6d 65 6d 6f 72 79 20 61 6e 64 20 73 65 74 ┆ outine into memory and set┆
0x360…380 20 74 68 65 20 63 61 6c 6c 20 61 64 64 72 65 73 73 0d 0a 4c 4f 41 44 20 64 61 74 65 74 65 73 74 ┆ the call address LOAD datetest┆
0x380…3a0 0d 0a 53 45 54 20 43 41 4c 4c 20 54 4f 20 34 32 32 34 30 0d 0a 0d 0a 45 52 41 53 45 0d 0a 2a 20 ┆ SET CALL TO 42240 ERASE * ┆
0x3a0…3c0 20 52 65 61 64 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 61 74 65 2c 20 74 68 65 6e 20 73 65 74 ┆ Read the current date, then set┆
0x3c0…3e0 20 74 68 65 20 73 79 73 74 65 6d 20 64 61 74 65 0d 0a 53 54 4f 52 45 20 27 20 20 2f 20 20 2f 20 ┆ the system date STORE ' / / ┆
0x3e0…400 20 27 20 54 4f 20 74 6d 70 3a 64 61 74 65 0d 0a 44 4f 20 57 48 49 4c 45 20 44 41 54 45 28 29 20 ┆ ' TO tmp:date DO WHILE DATE() ┆