Listing of file='GENL100A' on disk='vmedia/701-2653B.wvd.zip'
# Sector 91, program filename = 'GENL100A' 0010 REM GENL100A, RELEASE 2.2, (09/10/80)THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 DIM G6$(6)1,R9$(16) : GOTO 4000 4000 SELECT @PARTS0$ : GOSUB '66(8,0,1) : Q6$=" " : Q7$="Error in Control File - invalid current fiscal period" : IF M(9)<1OR M(9)>12THEN 6010 : Q7$="Error in Control File - invalid first fiscal month" : IF M(14)<1OR M(14)>12THEN 6010 : E7=MOD(M(9)+M(14)-2,12)+1 4440 M$()="January February March April May June July Augu st SeptemberOctober November December" : MAT REDIM M$(12)9 : IF M(9)=12THEN G6$(2),G6$(3)="*" : ELSE G6$(1)="*" : IF M(9)=12THEN G6$(1)="X" : ELSE G6$(2)="X" : IF F5$(1)<>"1"THEN G6$(1),G6$(2)="X" 4490 IF E7=12THEN G6$(4),G6$(5)="*" : PRINT AT(0,18);" - Ending ";M$(E7);", starting ";M$(MOD(E7,12)+1) : MAT REDIM M$(4)62 4520 IF POS(G6$()="*")=0THEN Q6$="*" : ELSE Q6$=" " : PRINT AT(4,0,);AT(6,10);Q6$;" (0) RETURN TO MENU";HEX(05) : PRINT TAB(10);G6$(1);" (1) END OF MONTH INITIALIZATION" : PRINT TAB(10);G6$(2);" (2) END OF FISCAL YEAR INITIALIZATION" : PRINT TAB(10);G6$(3);" (3) CLEAR BUDGET FIGURES" 4570 PRINT TAB(10);G6$(4);" (4) VENDOR MASTER FILE" : PRINT TAB(10);G6$(5);" (5) END OF CALENDAR YEAR INITIALIZATION" : PRINT TAB(10);G6$(6);" (6) CLEAR STANDARD JOURNAL ENTRIES FILE" : PRINT AT(4,0,80);"The options with an '*' should be chosen, an 'X' can't be chosen" 4610 GOSUB '100("0","6",1,0,"ENTER OPTION DESIRED",1) : IF Q9=0OR Q6$=HEX(1F)THEN 6060 : G6=Q9 : IF G6$(G6)<>"X"THEN 4670 : PRINT AT(3,0,80);"Option";G6;"can not be selected, re-enter";HEX(07) : GOTO 4520 4670 M$()="Month-to-date figures in the Chart of Accounts Year-to-date figure s for income/expense accountsBudget figures for income/expense accounts Year-to-date figures in the Vendor Master file Daily totals in the C ontrol file" : MAT REDIM M$(5)48 4690 IF G6<6THEN Q6$=M$(G6) : ELSE Q6$="Standard journal entries file" : PRINT AT(4,0,);AT(5,10);Q6$;" will be cleared" : IF G6=2THEN PRINT TAB(10);M$(1);" will be cleared" : MAT REDIM M$(4)62 : IF G6<3THEN PRINT TAB(10);"Journal entries files will be reset" : GOSUB '100("Y,N","YyNn",1,1,"IS ENTRY OK (Y OR N)",2) 4750 IF Q6$=HEX(1F)THEN 6060 : IF Q9=2THEN 4520 : ON G6-3GOTO 5650,5820,5970 : GOSUB '235(1,0) : Q6$="Chart of Accounts Master File" : Q7$="Correct error and restart program" : IF Q$<>" "THEN 6010 : PRINT AT(4,0,80);"Processing account no. ";T7$;HEX(06) 4850 GOSUB '75(2) : PRINT AT(4,23,8);T7$;HEX(06) : IF G6=3THEN 5000 : P4=P4+P2 : P5=P5+P3 : Q9=P(12) : Q6$="-#########.##" : PACK(Q6$)M$()FROMP() : MAT COPY -M$()<1,66>TO -M$()<7,66> : UNPACK(Q6$)M$()TO P() : P(1)=P2-P3 : P2,P3=0 : IF G6=2AND O$>="3"THEN P,P4,P5=0 : P=P+Q9 5000 IF G6=3THEN MAT P0=ZER : DBACKSPACE #2,1S : GOSUB '65(2) : GOSUB '237(1,0) : IF Q$=" "THEN 4850 : IF Q$<>"E"THEN 6010 : G6$(G6)="X" : IF G6>2THEN 4520 : $OPEN #8 : GOSUB '66(8,0,1) : M(9)=MOD(M(9),12)+1 : M3$,F5$(1),F5$(3)=" " : GOSUB '66(8,0,0) : $CLOSE#8 : LIMITS T#5,S$(5),Q5,Q6,Q7 : LIMITS T#6,S$(6),Q7,Q8,Q9 : Q6$=HEX(07) 5210 $OPEN 5600,#5,#6 : PRINT AT(4,0,80);"Resetting Journal Entry Files" : Q$="S" : Q7$="New journal entries will not fit in Old Journal Entries File" : IF Q9>Q6-Q5+1THEN 6010 : Q7$="Invalid end of file - New Journal Entries File" : Q$="X" : IF Q9<2THEN 6010 : DATA LOAD BA T#5,(Q6)R9$() : M$()=STR(R9$(),9) 5310 COPY T#6,(Q7,Q7+Q9-2)TO T#5,(Q5) : DATA LOAD BA T#6,(Q8)R9$() : Q6$=STR(R9$(),,8) : R9$()=STR(Q6$,,8)&M$() : DATA SAVE BA T#5,(Q6)R9$() : DBACKSPACE #6,BEG : GOSUB '218(S$(6),6," ",0) : $CLOSE#5,#6 : Q6$=" " : Q$="S" : LIMITS T#5,S$(5),Q5,Q6,Q7 : LIMITS T#7,S$(7),Q7,Q8,Q9 5440 Q7$="Standard Journal Entries will not fit in Old Journal Entries File" : IF Q9>Q6-Q5+1THEN 6010 : Q7$="Invalid end of file - Standard Journal Entries File" : Q$="X" : IF Q9<2THEN 6010 5500 J=MOD(J,4)+1 : DATA LOAD DC #7,M$() : IF END THEN 4520 : IF J<4THEN DBACKSPACE #7,1S : IF STR(M$(J),,1)=HEX(FF)THEN 4520 : $UNPACK(F=L3$)M$(J)TO H2,H0$,H1$,H,H3$,H4$,H5$,H1 : H=Q1 : H5$="STANDARD" : GOSUB '63(5) : GOTO 5500 5600 $BREAK5 : PRINT AT(4,0,80);"Waiting for disk with Journal Entry File";Q6$;HEX(06) : Q6$=" " : GOTO 5210 5650 GOSUB '235(2,0) : Q6$="Vendor Master File" : Q7$="Correct error and restart program" : IF Q$<>" "THEN 6010 : PRINT AT(4,0,80);"Processing Vendor ID. ";T7$;HEX(06) 5700 GOSUB '70(4) : PRINT AT(4,22,5);T7$;HEX(06) : A1=A-A3 : A,A3=0 : DBACKSPACE #4,1S : GOSUB '60(4) : GOSUB '237(2,0) : IF Q$=" "THEN 5700 : IF Q$<>"E"THEN 6010 : G6$(4)="X" : GOTO 4520 5820 $OPEN #8 : GOSUB '66(8,0,1) : M(12),M(13)=0 : GOSUB '66(8,0,0) : PRINT AT(4,0,0);"Processing day no.";1 : FOR I=1TO 366 : CONVERT ITO M2$,(###) : PRINT AT(4,19,4);I;HEX(06) : MAT M=ZER : GOSUB '66(8,I,0) : NEXT I : $CLOSE#8 : G6$(5)="X" : GOTO 4520 5970 DBACKSPACE #7,BEG : GOSUB '218(S$(7),7," ",0) : G6$(6)="X" : GOTO 4520 6010 GOSUB '91 : PRINT AT(1,0,80);Q7$ : PRINT AT(3,16,64);Q6$ : GOSUB '254 6060 DEFFN'31 : LOAD TM$ 9999 DEFFN'29"Q$=";HEX(22);"GENL100A";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)