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)