Listing of file='GENL040C' on disk='vmedia/701-2653B.wvd.zip'
# Sector 149, program filename = 'GENL040C'
0010 REM GENL040C, RELEASE 2.2, (09/11/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM N,N1,Q6$80,Q7$80,M3$1,I0$3,D9$8,F8$7,Q,K6$(50)4,L0,M$8,Q5
0176 SELECT @PARTS0$
: N1=0
0199 Q6$="KFAMOPENJENFILE"&S0$(9)&"GENFILE"&S0$(11)&"A/PCONT KFAMCODESUBUTIL S
UBDATE"
: GOSUB '99
4000 DEFFN'99
: N1=N1+1
: Q5=VAL(Q0$(5))
: IF N1<=7THEN LOAD TSTR(Q6$,N1*8-7,8)10,210
: Q=1
: Q5=VAL(Q0$(5))
: LOAD T"COMCLEAR"10,199BEG 4045
4045 SELECT @PARTS0$
: $UNPACK(F=HEX(A0076002A008A003A008A007))STR(M$(),92)TO M5$,L0,M$,I0$,D9$,
F8$
: K6$()=M$()
: GOSUB '217(S$(9),9,S2,0,3," ",STR(K6$(),25,3),0)
: Q6$="CONTROL FILE"
: Q7$=" "
: IF Q$>" "THEN 4310
: 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
4190 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 4310
: GOSUB '217(S$(4),4,S2,0,2," ",STR(K6$(),10,3),0)
: Q6$="JOURNAL ENTRIES SORT TAGS"
: IF Q$<>" "THEN 4310
: GOSUB '217(S$(1),1,S2,0,2," ",STR(K6$(),,3),0)
4290 Q6$="JOURNAL ENTRIES FILE"
: Q5=VAL(Q0$(5))
: STR(M5$,8)="D"
: IF Q$=" "THEN LOAD TM5$4000,
4310 GOSUB '91
: PRINT AT(1,0,80);Q7$;HEX(07)
: PRINT AT(3,16,64);Q6$
: GOSUB '254
4370 DEFFN'31
: GOSUB '239(1)
: GOSUB '219(S$(4),4,S2," ",0)
: GOSUB '219(S$(1),1,S2," ",0)
: GOSUB '219(S$(9),9,S2," ",0)
: COM CLEAR I
: LOAD TM$
9999 DEFFN'29"Q$=";HEX(22);"GENL040C";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)