Listing of file='ACPA110C' on disk='vmedia/701-2652C.wvd.zip'
# Sector 272, 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
0170 COM N1,Q6$80,Q7$80,M3$1,I0$3,D9$8,K1$7,L0,M$8,K6$(50)4,Q5
0176 SELECT @PARTS0$
: K6$()=M$()
: N1=0
0199 GOSUB '99
4000 DEFFN'99
: Q5=VAL(Q0$(5))
: RETURN CLEAR
4020 N1=N1+1
: Q6$="KFAMOPENJENFILE GENFILE A/PCONT KFAMCODEDENTRY SUBDATE SUBUTIL"
: IF N1<=8THEN LOAD TSTR(Q6$,N1*8-7,8)10,199
: Q=1
: LOAD T"COMCLEAR"10,199BEG 4080
4080 SELECT @PARTS0$
: $UNPACK(F=HEX(A0076002A008A003A008A007))STR(K6$(),92)TO M5$,L0,M$,I0$,D9$
,K1$
: GOSUB '217(S$(9),9,S2,0,3," ",STR(K6$(),19,3),0)
: Q7$=" "
: Q6$="CONTROL FILE"
: IF Q$<>" "THEN 4360
: GOSUB '219(S$(1),1,S2," ",0)
: $OPEN #9
: GOSUB '66(9,0,1)
: IF M3$=" "THEN M3$="1"
: GOSUB '66(9,0,0)
: $CLOSE#9
: Q7$=" "
4240 GOSUB '230(1,7,8,1,S$(8),2," ",STR(K6$(),19,3),STR(K6$(),22,3))
: Q6$="CHART OF ACCOUNTS MASTER FILE"
: IF Q$<>" "THEN 4360
: GOSUB '217(S$(4),4,S2,0,2," ",STR(K6$(),10,3),0)
: Q6$="JOURNAL ENTRIES SORT TAGS"
: IF Q$<>" "THEN 4360
: GOSUB '217(S$(1),1,S2,0,2," ",STR(K6$(),,3),0)
4330 Q6$="JOURNAL ENTRIES FILE"
: STR(M5$,8)="D"
: IF Q$=" "THEN LOAD TM5$4000,
4360 GOSUB '91
: PRINT AT(1,0,80);Q7$;HEX(07)
: PRINT AT(3,16,64);Q6$
: GOSUB '254
4410 DEFFN'31
: GOSUB '219(S$(4),4,S2," ",0)
: GOSUB '219(S$(1),1,S2," ",0)
: GOSUB '219(S$(9),9,S2," ",0)
: GOSUB '239(1)
: COM CLEAR I
: LOAD TM$
9999 DEFFN'29"Q$=";HEX(22);"ACPA110C";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)