image of READY prompt

Wang2200.org

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)