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)