image of READY prompt

Wang2200.org

Listing of file='INVT210B' on disk='vmedia/701-2661A.wvd.zip'

# Sector 279, program filename = 'INVT210B'
0010 REM INVT210B, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
6270 % THIS SHOULD BE LINE 6270
6280 DEFFN'130
   : Q5=32
   : Q7=55
   : PRINT "PRODUCT ID";TAB(15);F1$
   : PRINT "DESCRIPTION";TAB(15);F2$
   : GOSUB '35(A1$)
   : PRINT "PROFILE ID";TAB(27-LEN(G1$));G1$;TAB(Q5);"DEMAND FILTER HIST     "
     ;B9$
   : IF Q$="N"THEN 6400
   : PRINT "DESCR";TAB(27-LEN(L2$));L2$;
   : GOTO 6410
6400 PRINT "*** PROFILE ID NOT FOUND ***";
6410 GOSUB '35(A2$)
   : PRINT TAB(Q5);"TRACKING SIGNAL HIST   ";B9$
   : GOSUB '35(A0$)
   : PRINT "SALES STABILITY";TAB(26);I1$;TAB(Q5);"VARIABLE TREND HIST    ";B9$
   : PRINT "DESEAS DEMAND   ";
   : PRINTUSING 7240,D;
   : PRINT TAB(Q5);"REORDER STRATEGY";TAB(62);A3$
   : PRINT "SAFETY FACTOR   ";
   : PRINTUSING 7240,D0;
   : IF A3$="M"THEN 6560
6540 PRINT TAB(Q5);"REVIEW TIME";TAB(61);C1
   : GOTO 6590
6560 PRINT TAB(Q5);"MINIMUM LEVEL";TAB(Q7);
   : PRINTUSING 7260,E4
6590 PRINT "MEAN ABS DEV    ";
   : PRINTUSING 7240,G2;
   : IF A3$="M"THEN 6650
   : PRINT TAB(Q5);"LEAD TIME (DAYS)";TAB(Q7);
   : PRINTUSING 7260,C3
   : GOTO 6680
6650 PRINT TAB(Q5);"MAXIMUM LEVEL";TAB(Q7);
   : PRINTUSING 7260,E5
6680 PRINT "MEAN SIGN DEV   ";
   : PRINTUSING 7240,G1;
   : IF A3$="M"THEN 6740
   : PRINT TAB(Q5);"SERVICE PERIOD";TAB(52);
   : PRINTUSING 7240,C2
   : GOTO 6770
6740 PRINT TAB(Q5);"ITEM MINIMUM";TAB(Q7);
   : PRINTUSING 7260,B5
6770 PRINT "VARIABLE TREND  ";
   : PRINTUSING 7240,G;
   : IF A3$="M"THEN 6830
   : PRINT TAB(Q5);"COUNTER STOCK";TAB(Q7);
   : PRINTUSING 7260,D2
   : GOTO 6860
6830 PRINT TAB(Q5);"PACK SIZE";TAB(Q7);
   : PRINTUSING 7260,B4
6860 PRINT "TREND PERCENT   ";
   : PRINTUSING 7240,D1*100;
   : IF A3$<>"M"THEN 6910
   : PRINT
   : GOTO 6970
6910 Q6$="FIXED ORDER QTY"
   : IF A3$="F"THEN 6940
   : Q6$="PACK SIZE"
6940 PRINT TAB(Q5);Q6$;TAB(Q7);
   : PRINTUSING 7260,B4
6970 PRINT "LAST PERIOD PROC        ";
   : PRINTUSING 7250,C0;
   : PRINT TAB(Q5);
   : IF A3$<>"M"THEN 7030
   : PRINT
   : GOTO 7100
7030 IF A3$="F"THEN 7070
   : PRINT "ITEM MINIMUM";TAB(Q7);
   : PRINTUSING 7260,B5
   : GOTO 7100
7070 PRINT "LEVEL OF SERVICE";TAB(59);
   : PRINTUSING 7270,C5
7100 IF C0<>0THEN 7130
   : PRINT "%1ST PER W/SLS     ";
   : PRINTUSING 7260,100*(G4+1-SGN(G4));
7130 PRINT TAB(Q5);
   : IF A3$="S"THEN 7180
   : IF A3$="W"THEN 7210
   : PRINT
   : RETURN
7180 PRINT "LEVEL OF SERVICE";TAB(59);
   : PRINTUSING 7270,C5
   : RETURN
7210 PRINT "WEEKS SUPPLY";TAB(52);
   : PRINTUSING 7240,D3
   : RETURN
7240 %-####,###.#
7250 %-##
7260 %####,###
7270 %.###
7300 DEFFN'131
   : L=L+7
   : Q3=40
   : Q5=70
   : Q7=104
   : PRINT "PRODUCT ID";TAB(37-LEN(F1$));F1$;TAB(Q3);"SAFETY FACTOR   ";
   : PRINTUSING 7240,D0;
   : PRINT TAB(Q5);
   : IF C0<>0THEN 7410
   : PRINT "% 1ST PER W/SLS        ";
   : PRINTUSING 7260,100*(1+G4-SGN(G4));
7410 PRINT TAB(Q7);
   : IF A3$="M"THEN 7460
   : PRINT "LEAD TIME (DAYS)";TAB(Q7+18);
   : PRINTUSING 7260,C3
   : GOTO 7490
7460 PRINT "MINIMUM LEVEL     ";
   : PRINTUSING 7260,E4
7490 PRINT "DESCRIPTION";TAB(37-LEN(F2$));F2$;TAB(Q3);"MEAN ABS DEV    ";
   : PRINTUSING 7240,G2;
   : GOSUB '35(A1$)
   : PRINT TAB(Q5);"DEMAND FILTER HIST     ";B9$;TAB(Q7);
   : IF A3$="M"THEN 7570
   : PRINT "SERVICE PERIOD ";
   : PRINTUSING 7240,C2
   : GOTO 7600
7570 PRINT "MAXIMUM LEVEL     ";
   : PRINTUSING 7260,E5
7600 PRINT "PROFILE ID";TAB(37-LEN(G1$));G1$;TAB(Q3);"MEAN SIGN DEV   ";
   : PRINTUSING 7240,G1;
   : GOSUB '35(A2$)
   : PRINT TAB(Q5);"TRACKING SIGNAL HIST   ";B9$;TAB(Q7);
   : IF A3$="M"THEN 7680
   : PRINT "COUNTER STOCK     ";
   : PRINTUSING 7260,D2
   : GOTO 7710
7680 PRINT "ITEM MINIMUM      ";
   : PRINTUSING 7260,B5
7710 IF Q$="N"THEN 7740
   : PRINT "PROF DESC";TAB(37-LEN(L2$));L2$;
   : GOTO 7750
7740 PRINT "*** PROFILE ID NOT FOUND ***";
7750 PRINT TAB(Q3);"VARIABLE TREND  ";
   : PRINTUSING 7240,G;
   : GOSUB '35(A0$)
   : PRINT TAB(Q5);"VARIABLE TREND HIST    ";B9$;TAB(Q7);
   : Q6$="PACK SIZE"
   : IF A3$<>"F"THEN 7820
   : Q6$="FIXED ORDER QTY"
7820 PRINT Q6$;TAB(Q7+18);
   : PRINTUSING 7260,B4
   : PRINT "SALES STABILITY";TAB(36);I1$;TAB(Q3);"TREND PERCENT   ";
   : PRINTUSING 7240,D1*100;
   : PRINT TAB(Q5);"REORDER STRATEGY";TAB(Q5+30);A3$;TAB(Q7);
   : IF A3$="M"THEN 7950
   : IF A3$="F"THEN 7930
   : PRINT "ITEM MINIMUM      ";
   : PRINTUSING 7260,B5;
   : GOTO 7950
7930 PRINT "LEVEL OF SERVICE      ";
   : PRINTUSING 7270,C5;
7950 PRINT
   : PRINT "DESEAS DEMAND";TAB(26);
   : PRINTUSING 7240,D;
   : PRINT TAB(Q3);"LAST PER PROC";TAB(Q3+24);
   : PRINTUSING 7250,C0;
   : PRINT TAB(Q5);
   : IF A3$="M"THEN 8070
   : PRINT "REVIEW TIME";TAB(Q5+29);C1;
   : PRINT TAB(Q7);
   : IF A3$="S"THEN 8140
   : IF A3$="W"THEN 8100
8070 PRINT
   : PRINT
   : RETURN
8100 PRINT "WEEKS SUPPLY   ";
   : PRINTUSING 7240,D3
   : PRINT
   : RETURN
8140 PRINT "LEVEL OF SERVICE      ";
   : PRINTUSING 7270,C5
   : PRINT
   : RETURN
8190 DEFFN'35(B7$)
   : B9$=HEX(8040201008040201)
   : INIT(B7$)B7$
   : B8$=HEX(3180314031203110310831043102310130002020)
   : AND (B9$,B7$)
   : $TRAN(B9$,B8$)R
   : RETURN
9999 DEFFN'29"Q$=";HEX(22);"INVT210B";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)