image of READY prompt

Wang2200.org

Listing of file='ACPA110C' on disk='vmedia/701-2654C.wvd.zip'

# Sector 503, program filename = 'ACPA110C'
0010 REM ACPA110C, RELEASE 2.3, (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      = ACPA110C
0030 REM RELEASE NUMBER    =  01
0040 REM REVISION NUMBER   =  00
0050 REM DATE WRITTEN      = 1/21/79
0055 REM DATE CHANGED      = 12/17/80
0057 REM UPDATED TO 2.3 BY ERRATUM 1195
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      = DISTIBUTION REPORT - LOAD NECESSARY SUBROUTINES
0130 REM PROGRAM FUNCTION = PUTS CHART OF ACCOUNTS FILE VARIABLES INTO COMMON
0140 REM **************************************************
0150 REM
0170     COM N1,Q6$80,Q7$80,M3$1,I0$3,D9$8,K1$7,L0,M$8,K6$(50)4,Q5
0172 REM
0176     SELECT @PART S0$
0177     K6$()=M$()
0186     N1=0
0199     GOSUB '99
3999 REM
4000     DEFFN '99
4005     Q5 = VAL(Q0$(5))
4010     RETURN  CLEAR
4020     N1=N1+1
4030     Q6$="KFAMOPENJENFILE GENFILE A/PCONT KFAMCODEDENTRY  SUBDATE SUBUTIL"
4040     IF N1 <= 8 THEN LOAD TSTR(Q6$,N1*8-7,8)10,199
4050     Q=1
4060 REM  LOAD T "KFAMOPEN" 10,210 BEG 4070
4070     LOAD T "COMCLEAR" 10,199 BEG  4080
4080     SELECT @PART S0$
4082 REM GET LINES/PAGE, MENU NAME , PRNT. ADDRESS, DATE, RPT. TYPE
4083     $UNPACK(F=HEX(A0076002A008A003A008A007)) STR(K6$(),92) TO M5$,L0,M$,I
     0$,D9$,K1$
4090 REM OPEN CONTROL FILE
4110     GOSUB '217(S$(9),9,S2,0,3," ",STR(K6$(),19,3),0)
4120     Q7$=" "
4130     Q6$="CONTROL FILE"
4140     IF Q$<> " " THEN 4360
4150 REM CLOSE OLD J/E FILE
4170     GOSUB '219(S$(1),1,S2," ",0)
4175     $OPEN #9
4180     GOSUB '66(9,0,1)
4190     IF M3$=" " THEN M3$="1"
4200     GOSUB '66(9,0,0)
4205     $CLOSE#9
4210 REM OPEN OTHER FILES
4220     Q7$ = " "
4240     GOSUB '230(1,7,8,1,S$(8),2," ",STR(K6$(),19,3),STR(K6$(),22,3))
4250     Q6$ = "CHART OF ACCOUNTS MASTER FILE"
4260     IF Q$ <> " " THEN 4360
4280     GOSUB '217(S$(4),4,S2,0,2," ",STR(K6$(),10,3),0)
4290     Q6$ = "JOURNAL ENTRIES SORT TAGS"
4300     IF Q$ <> " " THEN 4360
4320     GOSUB '217(S$(1),1,S2,0,2," ",STR(K6$(),,3),0)
4330     Q6$ = "JOURNAL ENTRIES FILE"
4335     STR(M5$,8)="D"
4340     IF Q$=" " THEN LOAD T M5$ 4000,
4350 REM ERROR EXIT
4360     GOSUB '91
4370     PRINT AT(1,0,80);Q7$;HEX(07)
4380     PRINT AT(3,16,64);Q6$
4390     GOSUB '254
4400 REM END OF PROGRAM
4410     DEFFN'31
4430     GOSUB '219(S$(4),4,S2," ",0)
4450     GOSUB '219(S$(1),1,S2," ",0)
4470     GOSUB '219(S$(9),9,S2," ",0)
4480     GOSUB '239(1)
4490     COM CLEAR I
4500     LOAD T M$
9999 DEFFN'29"Q$=";HEX(22);"ACPA110C";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)