image of READY prompt

Wang2200.org

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

# Sector 104, program filename = 'ACPA090A'
0010 REM ACPA090A, 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$Q0,K2$Q0,K3$17
   : GOTO 4000
4000 SELECT @PARTS0$
4012 %##,###,###.##-
4014 %########  ###.###
4020 K2$=ALL(FF)
   : A6$="N"
   : B6$="Y"
   : K,P1,K0=0
   : L=L0
   : D6,D7,D8,D9=0
   : 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 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$
   : 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$
4340 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 C6,C7,C8,C9,K=0
   : 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 '70(2)
   : IF A$>K2$THEN 4820
   : K=K+1
   : GOSUB '123(A0)
   : D6$=U9$
   : IF C6$<>"C"THEN 4770
   : K=K+1
   : C6=C6+A
   : C7=C7+A1
   : C8=C8+A3
   : C9=C9+A2
   : K0=K0+1
   : D6=D6+A
   : D7=D7+A1
   : D8=D8+A3
   : D9=D9+A2
4770 PRINT AT(5,0,)
   : IF B6$="Y"THEN GOSUB 6402
   : ELSE PRINT "Processing record ID ";T7$
   : IF A6$="Y"THEN GOSUB '90
   : IF A6$="Y"THEN ON VAL(C6$)-64GOSUB 6603,6654
   : SELECT PRINT 005(80)
4820 IF K$="I"THEN 4440
   : IF A$>=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
   : IF C6$<>"C"THEN 5060
   : L=L+2
   : GOSUB '90
   : PRINT HEX(0A)
   : A$=" "
   : A1$="RANGE TOTAL"
   : A=C6
   : A1=C7
   : A3=C8
   : A2=C9
   : GOSUB 6603
5060 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$>(132)
   : PRINT HEX(0A)
   : IF C6$<>"C"THEN 5210
   : L=L+3
   : GOSUB '90
   : PRINT HEX(0A)
   : A$=" "
   : A1$="FINAL TOTAL"
   : A=D7
   : A1=D7
   : A3=D8
   : A2=D9
   : GOSUB 6603
   : PRINT HEX(0A)
5210 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$>(132)
   : IF L<L0THEN RETURN
   : P1=P1+1
   : PRINT HEX(0C0A0D0E);TAB(3);N2$
   : PRINT K3$;TAB(56);"VENDOR MASTER FILE";TAB(110);Q1$;TAB(122);"PAGE ";P1
   : PRINT HEX(0A)
   : L=7
   : IF C6$="A"THEN 6137
   : PRINT TAB(56);"(CONDENSED)"
   : PRINT HEX(0A)
   : PRINT TAB(30);"VENDOR #";TAB(41);"NAME"
   : PRINT HEX(0A)
   : RETURN
6137 PRINT TAB(56);"(COMPLETE)"
   : PRINT HEX(0A)
   : PRINT TAB(38);"--DISTRIBUTION--";TAB(66);"Y-T-D";TAB(77);"LAST YEAR";TAB(
     96);"Y-T-D";TAB(111);"GROSS";TAB(121);"DATE LAST"
6140 PRINT "VENDOR #";TAB(11);"NAME/ADDRESS";TAB(38);"ACCT NO";TAB(51);"%";TAB
     (63);"PURCHASE";TAB(78);"PURCHASE";TAB(93);"DISCOUNT";TAB(109);"BALANCE";
     TAB(123);"PAYMENT"
   : PRINT HEX(0A)
   : L=L+1
   : RETURN
6160 DEFFN'34(Q7$)
   : PRINT AT(4,0,80)
   : PRINT AT(1,0,80);"ENTER ";Q7$;" VENDOR ID (OR END)"
   : GOSUB '100(" ",HEX(7F),Q0,0," ",2)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : IF Q6$="end"THEN Q6$="END"
   : IF Q6$="END"THEN RETURN
   : GOSUB '96(4)
   : RETURN
6402 PRINT "  VENDOR ID ";A$;TAB(40);"ACCT NO.";TAB(53);"%"
   : MAT REDIM M$(6)40
   : M$()=" "
   : M$(1)=A1$
   : M$(2)=A2$
   : M$(3)=A3$
   : M$(4)=A4$&" "&A5$
   : FOR I=1TO 6
   : PRINT TAB(7);M$(I);TAB(40);
   : IF B1$(I)<>" "THEN PRINTUSING 4014,B1$(I),A4(I);
   : PRINT
   : NEXT I
   : PRINT TAB(7);"YEAR-TO-DATE PURCHASES";TAB(32);
   : PRINTUSING 4012,A
   : PRINT TAB(7);"LAST YEAR PURCHASES";TAB(32);
6417 PRINTUSING 4012,A1
   : PRINT TAB(7);"CURRENT BALANCE";TAB(32);
   : PRINTUSING 4012,A2
   : PRINT TAB(7);"DISCOUNTS EARNED";TAB(32);
   : PRINTUSING 4012,A3
   : PRINT TAB(7);"LAST PAYMENT DATE";TAB(32);D6$
   : MAT REDIM M$(4)62
   : RETURN
6603 PRINT TAB(3);A$;TAB(11);A1$;TAB(38);
   : IF B1$(1)<>" "THEN PRINTUSING 4014,B1$(1),A4(1);
   : PRINT TAB(58);
   : IF A<>0THEN PRINTUSING 4012,A;
   : PRINT TAB(73);
   : IF A1<>0THEN PRINTUSING 4012,A1;
   : PRINT TAB(88);
   : IF A3<>0THEN PRINTUSING 4012,A3;
   : PRINT TAB(103);
   : IF A2<>0THEN PRINTUSING 4012,A2;
   : PRINT TAB(122);D6$
   : IF A$=HEX(80)THEN RETURN
   : M$()=" "
   : M$(2)=A2$
   : M$(3)=A3$
   : M$(4)=A4$&" "&A5$
   : FOR I=2TO 4
   : PRINT TAB(11);M$(I);TAB(38);
6622 IF B1$(I)<>" "THEN PRINTUSING 4014,B1$(I),A4(I);
   : PRINT
   : NEXT I
   : L=L+5
   : FOR I=5TO 6
   : L=L+1
   : PRINT TAB(38);
   : IF B1$(I)<>" "THEN PRINTUSING 4014,B1$(I),A4(I)
   : ELSE L=L-1
   : NEXT I
   : PRINT HEX(0A)
   : RETURN
6654 PRINT TAB(33);A$;TAB(41);A1$
   : L=L+1
   : RETURN
9992 DEFFN'29"Q$=";HEX(22);"ACPA090A";HEX(22);":SCRATCH TQ$:SAVE T$()Q$";HEX(0
     D)
9999 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22);
     "GBS/MVP - PRINT/DISPLAY VENDOR MASTER FILE";HEX(22);":SELECT#15<I0$>:$OP
     EN#15:SELECTLIST<I0$>(80): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':LISTZ$THEX(
     7A):$CLOSE#15:SELECTLIST005(80)";HEX(0D)