|
DataMuseum.dkPresents historical artifacts from the history of: Regnecentalen RC-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Regnecentalen RC-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T U b
Length: 1151 (0x47f)
Types: TextFile
Notes: UNIX file
Names: »balance«
└─⟦657bff2be⟧ Bits:30004160/disk1.imd SW95860 UNIPLEX+ release 1.0 (dansk)
└─⟦657bff2be⟧ UNIX Filesystem
└─⟦this⟧ »ua/new/usr/UAP/outlines/ureport/balance«
#SECTION-balance
:LABEL
amount, right,format=($ZZ,ZZZ,ZZZ,ZZ9.99);
:LOCAL
crsum = sum(if amount >= 0 then amount), right,format=($ZZ,ZZZ,ZZZ,ZZ9.99);
dbsum = sum(if amount < 0 then amount), right,format=($ZZ,ZZZ,ZZZ,ZZ9.99);
balance = sum(amount), right,format=($ZZ,ZZZ,ZZZ,ZZ9.99);
:TEXT
CREDIT DEBIT
#SECTION entry
===================== =====================
[crsum______________] [dbsum______________]
===================== =====================
BALANCE
=====================
[balance____________]
=====================
))
#SECTION-entry
:CONTROL
break;
:TEXT
#SECTION crentry
#SECTION dbentry
))
#SECTION-crentry
:CONTROL
if amount >= 0;
:TEXT
[amount_____________]
))
#SECTION-dbentry
:CONTROL
if amount < 0;
:TEXT
[amount_____________]
))