Listing of file='GENL060A' on disk='vmedia/701-2653B.wvd.zip'
# Sector 159, program filename = 'GENL060A'
0010 REM GENL060A, RELEASE 1-0, (01/31/79) THIS PROGRAM IS A COPYRIGHT PRODU
CT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBIT
ED
0170 DIM M8$(4)60,O6(8),D9$8
: DIM O6$Q5,O7$1,O8$30,O9$1
: GOTO 4000
4000 SELECT @PARTS0$
: GOSUB '93(" ")
: IF I0$=" "THEN GOSUB '31
: D9$=Q1$
: L=L0+5
4240 Q6$=Q1$
: GOSUB '100(" ","^",8,0,"ENTER REPORT DATE (MM/DD/YY)",3)
: IF Q6$=HEX(1F)THEN GOSUB '31
: 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 '66(3,0,1)
: M$(1)="ENTER PAGE HEADER MESSAGE - LINE 1"
: M$(2)="ENTER PAGE HEADER MESSAGE - LINE 2"
4450 M$(3)="ENTER FOOTER MESSAGE - LINE 1"
: M$(4)="ENTER FOOTER MESSAGE - LINE 2"
: M8$()=ALL(20)
4480 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 4480
: PRINT AT(4,0,);"PROCESSING ACCOUNT NO. ";HEX(06)
: GOSUB '235(1,0)
4600 GOTO 4640
4610 GOSUB '237(1,0)
: SELECT PRINT 005(80)
: IF Q$="E"THEN 5310
4640 IF Q$<>" "THEN 7290
: GOSUB '75(2)
: PRINT AT(4,23);O$
: Q7$=O6$&" has no subsidiary accounts"
: Q6$=" "
: IF O7$="M"AND O3$=" "THEN 7290
: Q7$="A master account does not precede "&O$
: IF O7$=" "AND O3$="S"THEN 7290
: IF O7$=" "THEN 4820
: IF O3$="S"THEN 5060
: IF O6(1)=0THEN 4820
: GOSUB '90
: PRINT TAB(4);O8$;TAB(19+O9*16);
4790 PRINTUSING "$###,###,###.##++",O6(1)
: L=L+1
: O6(1)=0
4820 IF O$>="3"THEN 5310
: IF O9$=STR(O$,,1)THEN 4980
: MAT O6=ZER
: O9$=O$
: IF O9$="1"THEN Q6$="asset"
: ELSE Q6$="liability"
: Q7$="First "&Q6$&" must be a title account"
: Q6$=" "
: IF O1$<>"1"THEN 7290
: L=L+3
: GOSUB '90
: IF L=6THEN L=9
: PRINT HEX(0A)
: PRINT HEX(0E);TAB(5+(64-LEN(O5$))/4);O5$
: PRINT HEX(0A)
: GOTO 4610
4980 IF NUM(O4$)=1THEN CONVERT O4$TO Q9
: ELSE Q9=1
: O9=MAX(MIN(Q9,3),0)
: O6$=O$
: O8$=O5$
: Q7$="Invalid level code for account no. "&O6$
: IF NUM(O1$)=1THEN CONVERT O1$TO Q9
: ELSE GOTO 7290
: IF INT((Q9+8)/9)=1THEN O6=Q9
: ELSE GOTO 7290
5060 O9$=O$
: O7$=O3$
: FOR I=1TO 8
: O6(I)=O6(I)+P2-P3+P4-P5
: NEXT I
: IF O3$<>" "OR O4$="0"THEN 5240
: IF O6>1AND O6(O6-1)=0THEN 5240
: GOSUB '90
: PRINT TAB(4);O8$;TAB(19+O9*16);
: IF O6>1THEN PRINTUSING "$###,###,###.##++",O6(O6-1)
: ELSE PRINT
: L=L+1
: Q6$=" "
: IF O9=2THEN Q6$=ALL("-")
: IF O9=3THEN Q6$=ALL("=")
: L=L+1
: IF O6>1THEN PRINT TAB(19+O9*16);STR(Q6$,,15)
: ELSE L=L-1
5230 GOSUB '90
5240 IF O6=1OR O3$="S"THEN 4610
: FOR I=1TO O6-1
: O6(I)=0
: NEXT I
: GOTO 4610
5310 GOSUB '90
: PRINT HEX(0A)
: PRINT TAB(11);M8$(3)
: PRINT TAB(11);M8$(4)
5360 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$>(85)
: IF L<L0THEN RETURN
: P1=P1+1
: Q6$=STR(N2$,POS(N2$<>" "))
: Q8=LEN(Q6$)
: Q7$=HEX(0C0A0D0E)
: Q9=(42-Q8)*.5
: IF Q9>=0THEN 7140
: Q7$=HEX(0C0A)
: Q9=42-.5*Q8
7140 PRINT Q7$;TAB(Q9);Q6$
: PRINT TAB(76);"PAGE ";P1
: PRINT HEX(0A)
: PRINT TAB(28);"BALANCE SHEET 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
: L=L+1
: IF L>7THEN PRINT HEX(0A)
: ELSE L=L-1
: RETURN
7290 GOSUB '91
: PRINT AT(1,0,80);Q7$
: PRINT AT(3,17);"- ";Q6$
: GOSUB '254
: GOTO 5360
9999 DEFFN'29"Q$=";HEX(22);"GENL060A";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)