image of READY prompt

Wang2200.org

Listing of file='GBS3010A' on disk='vmedia/701-2652C.wvd.zip'

# Sector 282, program filename = 'GBS3010A'
0010 REM GBS3010A, RELEASE 2.2, (09/15/80) 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,D7$5
   : DIM K$1,K1$3,K2$3,K3$17
   : DIM M6(17),M7(17)
   : GOTO 4000
4000 SELECT @PARTS0$
   : A6$="N"
   : B6$="Y"
   : K2=366
   : K,K1,P1=0
   : L=60
   : 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 4140
   : $CLOSE#15
   : GOTO 4220
4140 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 4970
4220 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 4460,4370,4310
4310 GOSUB '34(HEX(08),"(000,")
   : IF Q6$="END"THEN 4850
   : K,K1,K2=Q9
   : GOTO 4460
4360 PRINT AT(3,0,80);"Starting date must be earlier than ending date.";HEX(07
     )
4370 MAT M6=ZER
   : L=60
   : GOSUB '34("STARTING","(000,")
   : IF Q6$="END"THEN 4970
   : K,K1=Q9
   : K2=366
   : GOSUB '34("ENDING","(")
   : IF Q6$<>"END"THEN K2=Q9
   : IF K2=0THEN 4360
   : IF K2<K1THEN 4360
4460 GOSUB '66(1,K,1)
   : IF B6$="N"THEN PRINT AT(1,0,80);"PROCESSING DATE SECTOR ";K
   : K=K+1
   : C6$="Y"
   : IF MAX(M())=0AND MIN(M())=0THEN C6$="N"
   : IF C6$="N"AND B6$="N"THEN 4660
   : IF K=1THEN 4600
   : GOSUB '123(INT(Q1/1E3)*1E3+K-1)
   : MAT M6=M6+M
   : MAT M7=M7+M
   : M6(16),M7(16)=0
4600 PRINT AT(4,0,)
   : IF B6$="Y"THEN GOSUB 6320
   : IF A6$="Y"THEN GOSUB '90
   : L=L+1
   : IF A6$="Y"AND C6$="Y"THEN GOSUB 6320
   : ELSE L=L-1
   : SELECT PRINT 005(80)
4660 IF K$="I"THEN 4310
   : IF K-1>=K2THEN 4730
   : IF B6$="Y"THEN GOSUB '254
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : GOTO 4460
4730 IF A6$="N"AND K$="R"THEN 4370
   : IF A6$="N"OR K$<>"R"THEN 4850
   : GOSUB '90
   : PRINT HEX(0A)
   : U9$="RANGE"
   : MAT M=M6
   : U9=0
   : GOSUB 6320
   : PRINT HEX(0A)
   : SELECT PRINT 005(80)
   : GOTO 4370
4850 IF A6$="N"THEN 4970
   : L=60
   : GOSUB '90
   : PRINT HEX(0A)
   : U9$="FINAL"
   : MAT M=M7
   : K=2
   : U9=0
   : GOSUB 6320
   : MAT M7=ZER
   : PRINT HEX(0C)
4970 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
5030 DEFFN'31
   : LOAD TM$
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$>(132)
   : IF L<=4THEN RETURN
   : P1=P1+1
   : PRINT HEX(0C0A0E);TAB(3);N2$
   : PRINT K3$;TAB(50);"CONTROL FILE";TAB(110);Q1$;TAB(122);"PAGE ";P1
   : PRINT HEX(0A)
   : L=0
   : RETURN
6160 DEFFN'34(D6$,D7$)
   : Q9=0
   : PRINT AT(1,0,80);"ENTER ";D6$;" DATE  ";D7$;"MM/DD/YY, END)"
   : GOSUB '100(" ",HEX(7F),8,0," ",2)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : IF Q6$="end"THEN Q6$="END"
   : IF Q6$="END"OR Q6$="000"THEN RETURN
   : GOSUB '121(Q6$)
   : Q9=MOD(U9,1E3)
   : IF Q6$<>"E"THEN RETURN
   : PRINT AT(3,0,80);HEX(07);"Invalid date, re-enter."
   : GOTO 6160
6280 %###,###,###.##-
6290 %#####
6300 %########
6320 Q5=24
   : Q6=52
   : Q7=22
   : Q8=40
   : Q9=64
   : IF K>1THEN 6800
   : PRINT "CONTROL RECORD"
   : PRINT HEX(0A)
   : PRINT "DATE OF LAST UPDATE";TAB(Q5);
   : PRINTUSING 6290,M(1);
   : PRINT TAB(Q8);"FISCAL MO 1 = CAL M0";TAB(Q9-1);
   : PRINTUSING "##",M(14)
   : PRINT "OPEN ITEM PRINT DATE";TAB(Q5);
   : PRINTUSING 6290,M(3);
   : PRINT TAB(Q8);"CURRENT FISCAL MONTH";TAB(Q9-1);
   : PRINTUSING "##",M(9)
6490 PRINT "SORT FLAG";TAB(Q5);M3$;TAB(Q8+2);"**YEAR-TO-DATE TOTALS**"
   : PRINT "G/L UPDATE FLAG";TAB(Q5);F5$(1);
   : PRINT TAB(Q8);"ASSETS";TAB(Q6);
   : PRINTUSING 6280,M(10)
   : PRINT "PAYMENT SELECT FLAG";TAB(Q5);F5$(2);
   : PRINT TAB(Q8);"LIABILITIES";TAB(Q6);
   : PRINTUSING 6280,M(11)
   : PRINT "DISTRIBUTION REP FLAG";TAB(Q5);F5$(3);
6570 PRINT TAB(Q8);"INCOME";TAB(Q6);
   : PRINTUSING 6280,M(12)
   : PRINT "G/L BASE ACCOUNT NO.";TAB(Q5);G2$;
   : PRINT TAB(Q8);"EXPENSE";TAB(Q6);
   : PRINTUSING 6280,M(13)
   : PRINT "A/P TRADE ACCOUNT NO.";TAB(Q5);M4$;
   : PRINT TAB(Q8);"A/P BALANCE";TAB(Q6);
   : PRINTUSING 6280,M(2)
   : PRINT HEX(0A)
   : PRINT TAB(Q5+3);"**RETAINED EARNINGS**"
   : PRINT TAB(Q5+8);"ACCOUNT";TAB(Q8+7);"%"
   : FOR I=1TO 5
6690 PRINT TAB(Q5+3);
   : PRINTUSING "(#) ";I;
   : PRINTUSING 6300,G$(I);
   : PRINT TAB(Q8+2);
   : PRINTUSING "###.##",M(3+I)
   : NEXT I
   : PRINT HEX(0A)
   : RETURN
6770 PRINT HEX(0A0A)
   : RETURN
6800 PRINT TAB(6);"DATE";TAB(Q7-7);U9$;TAB(Q8);
   : IF U9>0THEN PRINT "JULIAN DATE";TAB(Q9+1);U9;
   : PRINT
   : PRINT HEX(0A)
   : PRINT "CREDIT MEMO TOTAL";TAB(Q7);
   : IF M(6)<>0THEN PRINTUSING 6280,M(6);
   : PRINT TAB(Q8);"NO. OF CHECKS PRINTED";TAB(Q9);
   : IF M(1)<>0THEN PRINTUSING 6300,M(1)
   : ELSE PRINT
6890 PRINT "INVOICE TOTAL";TAB(Q7);
   : IF M(7)<>0THEN PRINTUSING 6280,M(7);
   : PRINT TAB(Q8);"LAST CHECK NO. PRINTED";TAB(Q9);
   : IF M(2)<>0THEN PRINTUSING 6300,M(2)
   : ELSE PRINT
6940 PRINT "PRINTED CHECKS TOTAL";TAB(Q7);
   : IF M(3)<>0THEN PRINTUSING 6280,M(3);
   : PRINT TAB(Q8);"CURRENT ASSETS";TAB(Q9);
   : IF M(10)<>0THEN PRINTUSING 6280,M(10)
   : ELSE PRINT
6990 PRINT "CASH DISCOUNTS TAKEN";TAB(Q7);
   : IF M(8)<>0THEN PRINTUSING 6280,M(8);
   : PRINT TAB(Q8);"CURRENT LIABILITIES";TAB(Q9);
   : IF M(11)<>0THEN PRINTUSING 6280,M(11)
   : ELSE PRINT
7040 PRINT "'E' PAYMENTS TOTAL";TAB(Q7);
   : IF M(4)<>0THEN PRINTUSING 6280,M(4);
   : PRINT TAB(Q8);"CURRENT INCOME";TAB(Q9);
   : IF M(12)<>0THEN PRINTUSING 6280,M(12)
   : ELSE PRINT
7090 PRINT "'X' PAYMENTS TOTAL";TAB(Q7);
   : IF M(5)<>0THEN PRINTUSING 6280,M(5);
   : PRINT TAB(Q8);"CURRENT EXPENSE";TAB(Q9);
   : IF M(13)<>0THEN PRINTUSING 6280,M(13)
   : ELSE PRINT
7140 PRINT HEX(0A)
   : PRINT TAB(Q8);"A/P BALANCE";TAB(Q9);
   : IF M(9)<>0THEN PRINTUSING 6280,M(9)
   : ELSE PRINT
   : RETURN
9998 DEFFN'29"Q$=";HEX(22);"GBS3010A";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 - Print/display A/P Control file.";HEX(22);":SELECT#15<I0$>:$OPE
     N#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:S
     ELECTLIST005(80)";HEX(0D)