DataMuseum.dk

Presents historical artifacts from the history of:

Christian Rovsing CR7, CR8 & CR16 CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦b76785030⟧ TextFile

    Length: 640 (0x280)
    Types: TextFile
    Names: »XBALANCE.CMD«

Derivation

└─⟦ea621760d⟧ Bits:30005267 dBase II - uoriginal diskette
    └─ ⟦this⟧ »XBALANCE.CMD«

TextFile

NOTE - BALANCE COMMAND FILE TO BALANCE CHECKBOOK
*   
SUM AMT TO OUTSTAND FOR .NOT.CAN.AND.NO>0
SUM AMT TO T:OUT FOR .NOT.CAN.AND.NO=0
?   
?   
*  - display total of outstanding checks
DISP OFF ' TOTAL OUTSTANDING CHECKS    = $',OUTSTAND
?   
*  - display total of outstanding deposits
DISP OFF ' TOTAL OUTSTANDING DEPOSITS  = $'T:OUT
?   
*  - request ending balance form check book
INPUT "ENTER ENDING BALANCE FROM BANK STATEMENT" TO BEGIN
DISP OFF 'CURRENT BALANCE = $',BEGIN+T:OUT-OUTSTAND
WAIT
RETURN
«eof»