Listing of file='GENL070A' on disk='vmedia/701-2653B.wvd.zip'
# Sector 344, program filename = 'GENL070A' 0010 REM GENL070A, RELEASE 2.2, (09/11/80) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 DIM B6(9),B7(9),C6(9),C7(9),D6(9),D7(9),A6$1,D9$8 0172 DIM M8$(4)60,O6$Q5,O7$1 : GOTO 4000 4000 SELECT @PARTS0$ : GOSUB '93(" ") : IF I0$=" "THEN GOSUB '254 : D9$=Q1$ : L=L0+5 4240 Q6$=Q1$ : GOSUB '100(" ","^",8,0,"ENTER REPORT DATE (MM/DD/YY)",3) : D9$=Q6$ : GOSUB '121(D9$) : IF Q6$<>"E"THEN 4290 : PRINT AT(3,0,80);HEX(07);"Invalid report date, re-enter" : GOTO 4240 4290 PRINT AT(5,0,80);"REPORT DATE = ";D9$,U9 : GOSUB '100("Y,N","YyY Nn",1,1,"IS REPORT DATE OK (Y OR N)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q9=2THEN 4240 : GOSUB '100("Y,N","YyY Nn",1,1,"DO YOU WANT LAST YEAR COMPARATIVE FIGURES (Y OR N)",2) : A6$=Q6$ : GOSUB '66(3,0,1) 4480 M$(1)="ENTER PAGE HEADER MESSAGE - LINE 1" : M$(2)="ENTER PAGE HEADER MESSAGE - LINE 2" : M$(3)="ENTER FOOTER MESSAGE - LINE 1" : M$(4)="ENTER FOOTER MESSAGE - LINE 2" : M8$()=ALL(20) 4530 FOR I=1TO 4 : Q6$=M8$(I) : IF Q6$<>" "THEN Q9=3 : ELSE Q9=2 : GOSUB '100(" ",HEX(7F),60,0,M$(I),Q9) : IF Q6$=HEX(1F)THEN GOSUB '31 : M8$(I)=Q6$ : PRINT AT(4+I,0,80);Q6$ : NEXT I : GOSUB '100("Y,N","YyY Nn",1,1,"ARE MESSAGE LINES OK (Y OR N)",2) : IF Q6$=HEX(1F)THEN GOSUB '31 : IF Q9=2THEN 4530 : PRINT AT(4,0,);"PROCESSING ACCOUNT NO. ";HEX(06) 4630 O$="2"&ALL(FF) : GOSUB '232(1,0,O$) 4650 GOSUB '237(1,0) : SELECT PRINT 005(80) : IF Q$="E"THEN 5280 : IF Q$<>" "THEN 7350 : GOSUB '75(2) : PRINT AT(4,23);O$ : Q7$=O6$&" HAS NO SUBSIDIARY ACCOUNTS" : Q6$=" " : IF O7$="M"AND O3$=" "THEN 7350 : Q7$="A master account does not precede "&O$ : IF O7$=" "AND O3$="S"THEN 7350 : Q7$="Invalid level code for account "&O$ : Q6$=" " 4800 IF NUM(O1$)=1THEN CONVERT O1$TO O6 : ELSE GOTO 7350 : O7$=O3$ : O6$=O$ : Q9=0 : FOR I=1TO M(9) : Q9=Q9+P0(I) : NEXT I : FOR I=2TO 9 : C6(I)=C6(I)+P2-P3 : B6(I)=B6(I)+P0(M(9)) : C7(I)=C7(I)+P2-P3+P4-P5 : B7(I)=B7(I)+Q9 : D6(I)=D6(I)+P(12) : D7(I)=D7(I)+P+P(12) : NEXT I : GOSUB '90 : L=L+1 : Q6$=O5$ : IF O6=1THEN Q6$=Q6$&HEX(0E) : PRINT Q6$;TAB(32); 5030 IF O6=1OR O3$="M"THEN PRINT : IF O6=1OR O3$="M"THEN 4650 : PRINTUSING 7320,C6(O6);B6(O6); : IF B6(O6)<>0THEN PRINTUSING 7330,ROUND((C6(O6)/B6(O6)*100,2); : PRINT TAB(78); : PRINTUSING 7320,C7(O6);B7(O6); : IF B7(O6)<>0THEN PRINTUSING 7330,ROUND((C7(O6)/B7(O6)*100,2); : PRINT : IF A6$<>"Y"THEN 5230 : PRINT TAB(32); : PRINTUSING 7320," ";D6(O6); : IF D6(O6)<>0THEN PRINTUSING 7330,ROUND((C6(O6)/D6(O6)*100,2); : PRINT TAB(78); 5170 PRINTUSING 7320," ";D7(O6); : IF D7(O6)<>0THEN PRINTUSING 7330,ROUND((C7(O6)/D7(O6)*100,2); : PRINT : PRINT : L=L+2 5230 FOR I=2TO O6 : B6(I),B7(I),C6(I),C7(I),D6(I),D7(I)=0 : NEXT I : GOTO 4650 5280 GOSUB '90 : PRINT HEX(0A) : PRINT TAB(11);M8$(3) : PRINT TAB(11);M8$(4) 5330 DEFFN'31 : LOAD TM$ 7040 DEFFN'90 : Q6$=" " : KEYIN Q6$,7080,7080 7080 IF Q6$="P"THEN GOSUB '254 : IF Q6$=HEX(1F)THEN GOSUB '31 : SELECT PRINT <I0$>(131) : IF L<L0THEN RETURN : P1=P1+1 : PRINT HEX(0C0A0D0E);TAB(3);N2$ : PRINT TAB(110);"PAGE ";P1 : PRINT HEX(0A) : PRINT TAB(46);"BUDGET REPORT AS OF ";D9$ : PRINT HEX(0A) : L=6 : FOR I=1TO 2 : L=L+1 : IF M8$(I)<>" "THEN PRINT TAB(11);M8$(I) : ELSE L=L-1 : NEXT I : PRINT HEX(0A) : INIT("-")Q6$ 7260 PRINT TAB(32);STR(Q6$,,14);" CURRENT MONTH ";STR(Q6$,,14);TAB(79);STR(Q6$ ,,14);" YEAR TO DATE ";STR(Q6$,,14) : PRINT TAB(41);"ACTUAL";TAB(58);"BUDGET";TAB(70);"%";TAB(87);"ACTUAL";TAB( 104);"BUDGET";TAB(116);"%" : IF A6$="Y"THEN PRINT TAB(55);"LAST YEAR";TAB(70);"%";TAB(101);"LAST YEAR" ;TAB(116);"%" : ELSE L=L-1 : PRINT HEX(0A) : L=L+5 : RETURN 7320 %$###,###,###.##++ 7330 % ####.### 7350 GOSUB '91 : PRINT AT(1,0,80);Q7$;HEX(07) : PRINT AT(3,17);"- ";Q6$ : GOSUB '254 : GOTO 5330 9999 DEFFN'29"Q$=";HEX(22);"GENL070A";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)