Listing of file='ACPA070B' on disk='vmedia/701-2654C.wvd.zip'
# Sector 324, program filename = 'ACPA070B'
0010 REM ACPA070B, RELEASE 2.2, (09/10/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0020 REM PROGRAM NAME = ACPA070B
0030 REM RELEASE NUMBER = 01
0040 REM REVISION NUMBER = 00
0050 REM DATE WRITTEN = 1/12/79
0055 REM DATE REVISED = 09/10/80
0060 REM THIS PROGRAM WAS UPGRADED TO 2.2 BY ERRATA 1143
0070 REM **************************************************
0080 REM * THIS PROGRAM IS PART OF A GENERALIZED *
0090 REM * APPLICATION. COPYRIGHT WANG LABS INC. 1979 *
0100 REM **************************************************
0110 REM SYSTEM NAME = GBS/MVP ACCOUNTS PAYABLE SYSTEM
0120 REM MODULE NAME = CHECK REGISTER PRINT PROGRAM
0130 REM PROGRAM FUNCTION = SORT4 SET-UP MODULE
0140 REM **************************************************
0150 REM
0170 DIM K(10),N(10),B(10),F$(6)3,N$(4)8,M0$(1)21
0179 LOAD T"SORT4"10,179
3400 M9$=$PSTAT(#PART)
3405 IF STR(M9$,,9)="M" THEN M=SPACE K+2
: ELSE M=SPACE K-1
3415 F = 0
3420 N$(1) = S$(1)
3425 F$()=M$()
: REM SET ADDRESSES
3426 M0$()=F$(6)&F$()
3428 SELECT #0 <F$(6)>
3430 B = 4
3435 L$ = "ALL"
3440 K = 2
3445 IF STR(M$(),57,1) = "1" THEN Q8 = 1
: ELSE Q8 = 2
3450 IF STR(M$(),57,1) = "1" THEN Q9 = 2
: ELSE Q9 = 1
3455 K = 2
3460 K(1),K(2) = 1
3465 B(Q8) = 30 + VAL(Q0$(4))
3470 N(Q8) = 4
3475 B(Q9) = 1
3480 N(Q9) = VAL(Q0$(4))
3485 N$(3) = S$(3)
3495 N$(4) = S$(4)
3500 P8$ = "T"
3505 M$ = STR(M$(),50,7)&"C"
3515 FOR I=1TO 6
3517 SELECT #I<F$(I)>
3525 HEXPACKC$FROM STR(F$(I),2,2)
3530 ADDC(C$,80)
3535 HEXUNPACKC$TO STR(F$(I),2,2)
3540 NEXT I
3545 C$ = "W"
9999 DEFFN'29"Q$= ";HEX(22);"ACPA070B";HEX(22);":SCRATCH T Q$:SAVE T$()Q$";HEX
(0D)