image of READY prompt

Wang2200.org

Listing of file='GENL040D' on disk='vmedia/701-2653B.wvd.zip'

# Sector 71, program filename = 'GENL040D'
0010 REM GENL040D, RELEASE 2.2, (09/11/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM D9$8,P9$Q5,F9$50
0172 DIM C8(8),F9(8),N8(5),O9(8),U9
   : GOTO 4000
4000 SELECT @PARTS0$
   : PRINT HEX(03);TAB(24);"G/L TRIAL BALANCE"
4020 % ##,###,###.##-
4040 P9$=HEX(00)
   : L=L0+5
   : GOSUB '66(9,0,1)
   : PRINT AT(4,0,80);"Processing account no. ";HEX(06)
   : GOSUB '235(1,0)
   : IF Q$<>" "THEN 7270
   : GOTO 4640
4600 GOSUB '237(1,0)
   : IF Q$="E"THEN 5610
   : IF Q$<>" "THEN 7270
4640 GOSUB '75(8)
   : PRINT AT(4,23,8);O$
   : Q7$="Invalid level code, account no. "&O$
   : Q$,Q6$=" "
   : IF NUM(O1$)=1THEN CONVERT O1$TO L9
   : ELSE L9=0
   : IF L9<1OR L9>9THEN 7270
   : IF L9=1OR O3$="M"THEN 4600
   : F9$=" "&O$&" "&O5$
   : IF L9<>2THEN 4870
   : FOR I=1TO 8
   : O9(I)=O9(I)+P4-P5
   : C8(I)=C8(I)+P2-P3
   : NEXT I
   : IF O$<"3"THEN A9=4
   : ELSE A9=0
   : F9(1+A9)=F9(1+A9)+P2
4840 F9(2+A9)=F9(2+A9)+P3
   : F9(3+A9)=F9(3+A9)+P4+P2
   : F9(4+A9)=F9(4+A9)+P5+P3
4870 IF P9$<>HEX(00)THEN 5040
4890 J=MOD(J,50)+1
   : Q7$="End of J/E File"
   : H0$=HEX(FF)
   : IF J=1THEN DATA LOAD DC #4,K6$()
   : IF END THEN 5110
   : IF STR(K6$(J),,1)=HEX(FF)THEN 5110
   : DATA LOAD DA T#1,(STR(K6$(J),,2))M$()
   : Q9=VAL(STR(K6$(J),4))
   : IF STR(M$(Q9),,1)=HEX(FF)THEN 5110
   : $UNPACK(F=L3$)M$(Q9)TO H2,H0$,H1$,H,H3$,H4$,H5$,H1
   : U9$=" "
   : GOSUB '123(H)
   : D8$=U9$
5040 Q6$=ALL(00)
   : PRINTUSING TO Q6$,"#####",H2
   : Q7$="Trans no "&STR(Q6$,3,5)&"posted to non-existent acct no "&H0$
   : Q6$=" "
   : IF O$>H0$THEN 7270
   : IF O$=H0$THEN 5330
5110 GOSUB '90
   : IF P9$<>O$THEN 5200
   : IF STR(F8$,,1)="S"THEN 5200
   : L=L+2
   : PRINT
   : PRINT TAB(41);"OPNG BALANCE  CURRENT MONTH   CLSG BALANCE"
5200 PRINT F9$;TAB(40);
   : PRINTUSING 4020,O9(L9-1);C8(L9-1);O9(L9-1)+C8(L9-1)
   : PRINT
   : L=L+2
   : GOSUB '90
   : P9$=O$
   : FOR I=1TO L9-1
   : O9(I),C8(I)=0
   : NEXT I
   : SELECT PRINT 005(80)
   : GOTO 4600
5330 IF STR(F8$,,1)="S"THEN 5490
   : GOSUB '90
   : L=L+1
   : IF F9$<>" "THEN PRINT F9$
   : ELSE L=L-1
   : F9$=" "
   : P9$=O$
   : PRINT TAB(11);H3$;TAB(36);
   : PRINTUSING "########",H2;
   : PRINT TAB(45);D8$;TAB(54);H4$;TAB(63);H5$;;TAB(71);
   : PRINTUSING " #,###,###.##-";H1
   : L=L+1
   : SELECT PRINT 005(80)
5490 FOR I=1TO 8
   : C8(I)=C8(I)+H1
   : NEXT I
   : IF O$<"3"THEN A9=4
   : ELSE A9=0
   : IF H1<0THEN Q9=2
   : ELSE Q9=1
   : F9(Q9+A9)=F9(Q9+A9)+ABS(H1)
   : F9(Q9+2+A9)=F9(Q9+2+A9)+ABS(H1)
   : GOTO 4890
5610 L=L0+5
   : GOSUB '90
   : PRINT
   : PRINT " INCOME & EXPENSES";TAB(41);"TOTAL DEBITS  TOTAL CREDITS     DIFFE
     RENCE"
   : PRINT TAB(21);"MONTH TO DATE";TAB(40);
   : PRINTUSING 4020,F9(1);F9(2);F9(1)-F9(2)
   : PRINT TAB(22);"YEAR TO DATE";TAB(40);
   : PRINTUSING 4020,F9(3);F9(4);F9(3)-F9(4)
5690 PRINT " ASSETS & LIABILITIES";TAB(41);"TOTAL DEBITS  TOTAL CREDITS     DI
     FFERENCE"
   : PRINT TAB(21);"MONTH TO DATE";TAB(40);
   : PRINTUSING 4020,F9(5);F9(6);F9(5)-F9(6)
   : PRINT TAB(22);"YEAR TO DATE";TAB(40);
   : PRINTUSING 4020,F9(7);F9(8);F9(7)-F9(8)
   : L=L0+5
   : IF F9(1)-F9(2)=0THEN 5920
   : GOSUB '90
5770 PRINT TAB(25);"----- RETAINED EARNINGS DIST -----"
   : PRINT TAB(27);"ACCT NO";TAB(50);"DIST AMT"
   : PRINT
   : Q8=0
   : FOR I=1TO 5
   : N8(I)=ROUND(((F9(1)-F9(2))*M(I+3)*.01,2)
   : IF G$(I)=" "THEN N8(I)=0
   : ELSE Q8=Q8+N8(I)
   : NEXT I
   : Q9=F9(1)-F9(2)-Q8
   : FOR I=1TO 5
   : IF G$(I)=" "THEN 5910
   : PRINT TAB(27);G$(I);TAB(44);
   : PRINTUSING 4020;N8(I)+Q9
   : Q9=0
5910 NEXT I
5920 PRINT HEX(0C)
   : SELECT PRINT 005(80)
   : $GIO/005(02200300122140074007400740074007,Q6$)
   : $OPEN #9
   : GOSUB '66(9,0,1)
   : IF STR(F8$,,1)="D"THEN M3$="2"
   : GOSUB '66(9,0,0)
   : $CLOSE#9
6030 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$
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$>(132)
   : IF L<L0THEN RETURN
   : P1=P1+1
   : PRINT HEX(0C0A0A0E);TAB(3);N2$
   : PRINT TAB(76);"PAGE";P1
   : PRINT
   : PRINT TAB(32);F8$;" TRIAL BALANCE"
   : PRINT TAB(35);"AS OF ";D9$
   : PRINT
   : IF J0=1THEN 7240
   : PRINT " ACCT NO. DESCRIPTION";
7230 IF STR(F8$,,1)="S"THEN PRINT TAB(41);"OPNG BALANCE  CURRENT MONTH   CLSG
     BALANCE"
   : ELSE PRINT TAB(37);"TRAN NO     DATE";TAB(54);"REF-1";TAB(63);"REF-2    G
     ROSS AMOUNT"
7240 PRINT
   : L=10
   : RETURN
7270 GOSUB '91
   : PRINT AT(1,0,80);Q7$;HEX(07)
   : PRINT AT(3,16,64);Q6$
   : GOSUB '254
   : GOTO 6030
9999 DEFFN'29"Q$=";HEX(22);"GENL040D";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)