Listing of file='ACPA110B' on disk='vmedia/701-2654C.wvd.zip'
# Sector 494, program filename = 'ACPA110B'
0010 REM ACPA110B, RELEASE 1-0, (01/31/79) THIS PROGRAM IS A COPYRIGHT PRODU
CT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBIT
ED
0020 REM PROGRAM NAME = ACPA110B
0030 REM RELEASE NUMBER = 01
0040 REM REVISION NUMBER = 00
0050 REM DATE WRITTEN = 1/21/79
0060 REM **************************************************
0070 REM * THIS PROGRAM IS PART OF A GENERALIZED *
0080 REM * APPLICATION. COPYRIGHT WANG LABS INC. 1979 *
0090 REM **************************************************
0110 REM SYSTEM NAME = GBS/MVP ACCOUNTS PAYABLE SYSTEM
0120 REM MODULE NAME = SORT JOURNAL ENTRY FILE
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,Q5
0179 LOAD T"SORT4"10,179
3400 M9$=$PSTAT(#PART)
: REM SET UP $PSTAT VARIABLE
3405 IF STR(M9$,,9)="M" THEN M=SPACEK+2
: ELSE M=SPACEK-1
: REM MEMORY SIZE
3415 F = 0
3420 N$(1) = S$(1)
3425 F$() = M$()
: REM PUT ADDRESSES IN F$()
3426 M0$()=F$(6)&F$()
3427 SELECT #0<F$(6)>
3430 B = 4
3435 L$ = "ALL"
3440 K = 3
3445 K(1),K(2),K(3) = 1
3450 B(1) = 3
3455 N(1) = VAL(Q0$(5))
3460 B(2) = 5+VAL(Q0$(5))
3465 N(2) = 2
3470 B(3) = 1
3475 N(3) = 2
3480 N$(3) = S$(3)
3490 N$(4) = S$(4)
3495 P8$ = "T"
3500 M$ = STR(M$(),92,7)&"C"
3510 FOR I=1TO 6
3515 SELECT #I <F$(I)>
3520 HEXPACKC$FROM STR(F$(I),2,2)
3525 ADDC(C$,80)
3530 HEXUNPACKC$TO STR(F$(I),2,2)
3535 NEXT I
3540 C$ = "Y"
9999 DEFFN'29"Q6$=";HEX(22);"ACPA110B";HEX(22);":SCRATCHTQ6$:SAVET()Q6$";HEX(0
D)