Listing of file='ACCT040A' on disk='vmedia/701-2607C.wvd.zip'
# Sector 317, program filename = 'ACCT040A'
0010 REM ACCT040A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM A6$1,B6$1,D9,L1$16
: GOTO 4000
4000 SELECT @PARTS0$
: B$(1)="S"
: PACK(##)STR(B$(1),2)FROMS2
: L1$=HEX(A0)&BIN(Q0)&HEX(A0)&BIN(MIN(26-Q0,21))&HEX(5403540350035205520452
05)
: LIMITS T#7,S$(7),Q6,Q7,Q8
: IF Q8<3THEN 4110
: PRINT AT(1,0);"Transaction audit file must be cleared before aging.";HEX(
07)
: GOSUB '254
: GOTO 4440
4110 GOSUB '100("Y,N","YyY Nn",1,1,"END OF MONTH AGING (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: A6$=Q6$
4150 GOSUB '100(" ","^",8,0,"ENTER AGING DATE (MM/DD/YY)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: GOSUB '121(Q6$)
: IF Q6$<>"E"THEN 4230
: PRINT AT(3,0,80);"Invalid date, re-enter."
: GOTO 4150
4230 D9=U9
: GOSUB '123(U9)
: PRINT AT(5,0,80);"AGING DATE = ";U9$,U9
: GOSUB '100("Y,N","YyY Nn",1,1,"IS AGING DATE CORRECT (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="N"THEN 4150
: PRINT AT(5,0,80)
: GOSUB '100("Y,N","YyY Nn",1,1,"CALCULATE SERVICE CHARGE (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: B6$=Q6$
: $OPEN #1
4360 GOSUB '46(1,0,1)
: M(12)=D9
: GOSUB '46(1,0,0)
: $CLOSE#1
: STR(M5$,8)="B"
: LOAD TM5$4000,
4440 DEFFN'31
: LOAD TM$
9998 DEFFN'29"Q$=";HEX(22);"ACCT040A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)
9999 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22);
"GBS/MVP - Age & calculate service charges - initialize.";HEX(22);":SELEC
T#15<I0$>:$OPEN#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z
$':$CLOSE#15:SELECTLIST005(80)";HEX(0D)