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)