image of READY prompt

Wang2200.org

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

# Sector 198, program filename = 'GENLDISP'
0010 REM GENL010A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM A6$1,B6$1,C6$1,D6$8
   : DIM K$1,K1$Q5,K2$Q5,K3$17
4000 %##,###,###.##-
4001 SELECT @PARTS0$
   : GOSUB '66(3,0,1)
   : IF M(9)<1OR M(9)>12THEN M(9)=1
   : IF M(14)<1OR M(14)>12THEN M(14)=1
   : K2$=ALL(FF)
   : A6$="N"
   : B6$="Y"
   : K,P1=0
   : L=L0
   : GOSUB '100("Y,N","NnYyY ",1,1,"PRINT REPORT (Y OR N)",2)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : A6$=Q6$
   : IF A6$="Y"THEN 4150
   : $CLOSE#15
   : GOTO 4230
4150 GOSUB '93(" ")
   : IF I0$=" "THEN A6$="N"
   : GOSUB '100("Y,N","NnYyY ",1,1,"SCREEN DISPLAY (Y OR N)",2)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : B6$=Q6$
   : IF B6$="N"AND A6$="N"THEN 5230
4230 IF A6$="N"THEN 4300
   : PRINT AT(5,0,);TAB(16);"A = Full report"
   : PRINT TAB(16);"B = Condensed report"
   : GOSUB '100("A,B","AaBb",1,1,"ENTER REPORT TYPE",2)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : C6$=Q6$
4300 PRINT AT(5,0,)
   : GOSUB '100("A,R,I","AaIiRr",1,1,"ENTER INQUIRY TYPE  (A=ALL, R=RANGE, I=I
     NDIVIDUAL)",2)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : K$=Q6$
   : Q6$="ALL       RANGE     INDIVIDUAL"
   : K3$=STR(Q6$,Q9*10-9,10)
   : K3$=K3$&" OPTION"
   : ON Q9GOTO ,4530,4440
   : GOSUB '235(1,0)
   : IF Q$="B"THEN 4000
   : IF Q$>" "THEN 5320
   : GOTO 4670
4440 GOSUB '34(HEX(08))
   : IF Q6$="END"THEN 5100
   : K1$,K2$=Q6$
   : GOSUB '232(1,0,K1$)
   : GOSUB '91
   : ON J0+1GOTO 4670,,,4440,,,,4440
   : GOTO 5320
4520 PRINT AT(3,0,80);"Starting ID must be lower than Ending ID.";HEX(07)
4530 L=L0
   : GOSUB '34("STARTING")
   : IF Q6$="END"THEN 5100
   : K1$=Q6$
   : GOSUB '34("ENDING")
   : K2$=ALL(FF)
   : IF Q6$<>"END"THEN K2$=Q6$
   : IF K1$>K2$THEN 4520
   : GOSUB '232(1,0,K1$)
   : J$(3)=" "
   : GOSUB '91
   : ON J0GOTO ,,4870,,,,4000
   : IF J0>0THEN 5320
4670 GOSUB '75(2)
   : IF O$>K2$THEN 4820
   : K=K+1
   : D6$="INACTIVE"
   : GOSUB '123(P0)
   : IF Q6$<>"E"THEN D6$=U9$
   : PRINT AT(5,0,)
   : IF B6$="Y"THEN GOSUB 7040
   : ELSE PRINT "Processing record ID ";T7$
   : IF A6$="Y"THEN GOSUB '90
   : IF A6$="Y"THEN ON VAL(C6$)-64GOSUB 7345,7315
   : SELECT PRINT 005(80)
4820 IF K$="I"THEN 4440
   : IF O$>=K2$THEN 4950
   : IF B6$="Y"THEN GOSUB '254
   : IF Q6$=HEX(1F)THEN GOSUB '31
4870 IF J0=7THEN GOSUB '92
   : GOSUB '237(1,0)
   : IF Q$=" "THEN 4670
   : IF Q$="E"THEN 4950
   : GOSUB '91
   : IF J0=7THEN 4870
   : GOTO 5320
4950 IF A6$="N"AND K$="R"THEN 5090
   : IF A6$="N"OR K$<>"R"THEN 5100
   : L=L+2
   : GOSUB '90
   : PRINT HEX(0A)
   : IF K>0THEN PRINT "NO. OF RECORDS PROCESSED = ";K
   : SELECT PRINT 005(80)
5090 GOTO 4530
5100 IF A6$="N"THEN 5230
   : SELECT PRINT <I0$>(85)
   : PRINT HEX(0A)
   : PRINT HEX(0C)
5230 SELECT PRINT 005(80)
   : PRINT AT(1,0,)
   : GOSUB '100("M,R","MmRr",1,1,"KEY R TO RESTART, M FOR MENU",2)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : IF Q6$="R"THEN 4000
5290 DEFFN'31
   : LOAD TM$
5320 GOSUB '91
   : GOSUB '254
   : GOTO 5290
6020 DEFFN'90
   : Q6$=" "
   : KEYIN Q6$,6050,6050
6050 IF Q6$="P"THEN GOSUB '254
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : SELECT PRINT <I0$>(85)
   : IF C6$="A"THEN Q9=4
   : ELSE Q9=0
   : IF L<L0-Q9THEN RETURN
   : P1=P1+1
   : Q8=POS(N2$<>" ")
   : IF Q8=0THEN Q8=1
   : Q6$=STR(N2$,Q8)
   : Q8=LEN(Q6$)
   : Q7$=HEX(0C0A0D0E)
   : Q9=(42-Q8)*.5
   : IF Q9>=0THEN 6100
   : Q7$=HEX(0C0A)
   : Q9=42-.5*Q8
6100 PRINT Q7$;TAB(Q9);Q6$
   : PRINT K3$;TAB(32);"CHART OF ACCOUNTS FILE";TAB(65);Q1$;TAB(76);"PAGE ";P1
   : IF C6$="A"THEN PRINT TAB(38);"(COMPLETE)"
   : ELSE PRINT TAB(38);"(CONDENSED)"
   : PRINT HEX(0A)
   : IF C6$="B"THEN PRINT "ACCT #";TAB(11);"NAME";TAB(43);"LVL";TAB(48);"SUB C
     D";TAB(131),TAB(131)
   : PRINT HEX(0A)
   : L=8
   : RETURN
6160 DEFFN'34(Q7$)
   : PRINT AT(1,0,80);"ENTER ";Q7$;" ACCOUNT NO.  (OR END)"
   : GOSUB '100(" ",HEX(7F),VAL(Q0$(5)),0," ",2)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : IF Q6$="end"THEN Q6$="END"
   : IF Q6$="END"THEN RETURN
   : GOSUB '96(5)
   : RETURN
7040 PRINT AT(4,0,)
   : Q2=2
   : Q3=22
   : Q4=40
   : Q5=60
   : PRINT "ACCOUNT NO.";TAB(12);O$;TAB(Q3);"NAME";TAB(31);O5$
   : MAT REDIM M$(5)18
   : M$(1)="LEVEL CODE"
   : M$(2)="SUBSIDIARY CODE"
   : M$(3)="BAL. SH. COL. CODE"
   : M$(4)="REPORT SIGN FLAG"
   : M$(5)="CASH FLOW FLAG"
   : Q6$=O1$&O3$&O4$&P2$&P1$
   : FOR I=1TO 5
7095 IF O2$(I)<>" "THEN Q7$=STR(O2$(I),,2)&"-"&STR(O2$(I),3)
   : ELSE Q7$=" "
   : PRINT TAB(Q2);M$(I);TAB(Q3);STR(Q6$,I,1);TAB(Q4);"SCHEDULE ID";I;Q7$
   : NEXT I
   : MAT REDIM M$(4)62
   : B7,B8=0
   : FOR I=1TO 12
   : B8=B8+P0(I)
   : NEXT I
   : FOR I=1TO M(9)
   : B7=B7+P0(I)
   : NEXT I
   : PRINT TAB(Q2);"CURRENT DEBIT AMT";TAB(Q3);
   : IF P2<>0THEN PRINTUSING 4000,P2;
7160 PRINT TAB(Q4);"Y-T-D DEBIT AMOUNT";TAB(Q5);
   : IF P4<>0THEN PRINTUSING 4000,P4
   : ELSE PRINT
   : PRINT TAB(Q2);"CURRENT CREDIT AMT";TAB(Q3);
   : IF P3<>0THEN PRINTUSING 4000,P3;
   : PRINT TAB(Q4);"Y-T-D CREDIT AMOUNT";TAB(Q5);
   : IF P5<>0THEN PRINTUSING 4000,P5
   : ELSE PRINT
   : PRINT TAB(Q2);"BEGINNING BALANCE";TAB(Q3);
   : IF P4-P5<>0THEN PRINTUSING 4000,P4-P5;
   : PRINT TAB(Q4);"ENDING BALANCE";TAB(Q5);
7205 IF P2-P3+P4-P5<>0THEN PRINTUSING 4000,P2-P3+P4-P5
   : ELSE PRINT
   : PRINT TAB(Q2);"LAST POSTING DATE";TAB(Q3);D6$;TAB(Q4);"Y-T-D BUDGET";TAB(
     Q5);
   : PRINTUSING 4000,B7
   : IF O$<"3"OR B8=0THEN RETURN
   : PRINT HEX(0A)
   : M$()="JANUARY  FEBRUARY MARCH    APRIL    MAY      JUNE     JULY     AUGU
     ST   SEPTEMBEROCTOBER  NOVEMBER DECEMBER"
7240 MAT REDIM M$(12)9
   : PRINT TAB(11);"* * * * *  F I S C A L  B U D G E T  * * * * *"
   : PRINT TAB(Q2);"MONTH        BUDGET AMOUNT";TAB(42);"MONTH        BUDGET A
     MOUNT"
   : FOR I=1TO 6
   : Q9=MOD(M(14)+I-2,12)+1
   : PRINT TAB(Q2);M$(Q9);TAB(15);
   : PRINTUSING 4000,P0(I);
   : Q9=MOD(M(14)+I+4,12)+1
   : PRINT TAB(42);M$(Q9);TAB(55);
   : PRINTUSING 4000,P0(I+6)
   : NEXT I
7295 MAT REDIM M$(4)62
   : RETURN
7315 L=L+1
   : GOSUB '90
   : PRINT O$;TAB(11);O5$;TAB(44);O1$;TAB(50);O3$
   : RETURN
7345 GOSUB '90
   : PRINT "ACCOUNT NO";TAB(13);O$;TAB(24);"NAME";TAB(30);O5$
   : PRINT "LVL CD";TAB(10);O1$;TAB(16);"SUB CD";TAB(25);O3$;TAB(31);"BSCC";TA
     B(40);O4$;TAB(46);"CSH/FLG";TAB(55);P1$;TAB(61);"RPT/FLG";TAB(70);P2$;TAB
     (72);"DATE";TAB(77);D6$
   : FOR I=1TO 5
   : IF O2$(I)<>" "THEN Q7$=STR(O2$(I),,2)&"-"&STR(O2$(I),3)
   : ELSE Q7$=" "
7380 PRINT "SCH ID";I;Q7$;TAB(15*I+1);
   : NEXT I
   : PRINT
   : PRINT "BEG BAL";TAB(08);
   : IF P4-P5<>0THEN PRINTUSING 4000,P4-P5;
   : PRINT TAB(31);"CURR DR";TAB(39);
   : IF P2<>0THEN PRINTUSING 4000,P2
   : ELSE PRINT
   : PRINT "END BAL";TAB(08);
   : IF P2-P3+P4-P5<>0THEN PRINTUSING 4000,P2-P3+P4-P5;
   : PRINT TAB(31);"CURR CR";TAB(39);
   : IF P3<>0THEN PRINTUSING 4000,P3;
   : B9=0
   : FOR I=1TO M(9)
   : B9=B9+P0(I)
   : NEXT I
7455 IF B9<>0THEN PRINT TAB(61);"YTD BUDGET";TAB(70);
   : IF B9<>0THEN PRINTUSING 4000,B9;
   : ELSE PRINT
   : L=L+5
   : IF O$<"3"THEN 7555
   : GOSUB '90
   : Q6$="   MO.   BUDGET AMT"
   : PRINT Q6$;Q6$;Q6$;Q6$
   : Q6$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"
   : FOR I=1TO 3
   : FOR J=1TO 4
   : Q8=I+J*3-3
   : Q9=MOD(M(14)+Q8-2,12)+1
   : PRINT TAB(J*19-16);STR(Q6$,Q9*3-2,3);
7530 IF P0(Q8)<>0THEN PRINTUSING 4000,P0(Q8);
   : NEXT J
   : PRINT
   : NEXT I
   : L=L+4
7555 GOSUB '90
   : PRINT HEX(0A0A)
   : L=L+2
   : RETURN
9998 DEFFN'29"Q$=";HEX(22);"GENL010A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
     )
9999 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22);
     "GBS/MVP - DISPLAY/PRINT CHART OF ACCOUNTS.";HEX(22);":SELECT#15<I0$>:$OP
     EN#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':LISTZ$THEX
     (7A):$CLOSE#15:SELECTLIST005(80)";HEX(0D)