Listing of file='INVT110A' on disk='vmedia/701-2661A.wvd.zip'
# Sector 207, program filename = 'INVT110A'
0010 REM INVT110A, RELEASE 1-0, (06/18/79), THIS PROGRAM IS A COPYRIGHT PRODUC
T OF WANG LABORATORIES., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED,
SALES PROJ/L.O.S. INPUT OPTIONS
0170 COM A6$1,A9$1,B6(3),B6$19,F6$Q0,F7$Q0,F8$Q0,I5,I6,I6$1,I8,K6
4000 SELECT @PARTS0$
: SELECT PRINT 005(80),LIST 005,CO 005
: P,I8=12
: IF Q6$="SALES PROJECTION REPORT"THEN I6=0
: ELSE I6=1
4100 PRINT AT(5,16,);"DATA GROUPING OPTIONS"
: PRINT HEX(0A);,"1 All products"
: PRINT ,"2 Range of products"
: PRINT ,"3 Individual products"
: PRINT ,"4 By vendor"
: PRINT ,"5 By profile ID"
: PRINT ,"6 By product prefix"
: PRINT ,"7 By stock location"
4180 GOSUB '100("1","7",1,0,"ENTER NUMBER OF DATA GROUPING OPTION",1)
: GOSUB 5800
: K6=Q9
: IF K6=1OR K6=3THEN E8=0
: ELSE E8=2
: DATA "ALL PRODUCTS","PRODUCT ID","INDIVIDUAL PRODUCTS","VENDOR","PROFILE
ID","PRODUCT PREFIX","STOCK LOCATION"
: RESTORE K6
: READ B6$
: B6(3)=Q0
: IF K6<4THEN 4540
: Q4=VAL(Q0$(4))
4320 ON K6-4GOTO 4390,4440,4490
: B6(1)=1
: B6(2)=42+Q0
: B6(3)=Q4
: GOTO 4540
4390 B6(1)=4
: B6(2)=217+Q0+Q4-3*62
: B6(3)=VAL(Q0$(7))
: GOTO 4540
4440 B6(1)=1
: B6(2)=1+Q0
: B6(3)=12
: GOTO 4540
4490 B6(1)=2
: B6(2)=54+Q0+Q4-62
: B6(3)=6
4540 PRINT AT(5,16,);"DATA GROUPING: ";B6$
: IF E8=0THEN 4780
4570 PRINT AT(1,0,80);"ENTER STARTING ";B6$;" (OR END)"
: GOSUB '100(" ",HEX(7F),B6(3),0," ",2)
: GOSUB 5800
: IF Q6$="END"OR Q6$="end"THEN 5820
: GOSUB 5710
: F6$=F7$
: PRINT AT(1,0,80);"ENTER ENDING ";B6$;" (OR END)"
: GOSUB '100(" ",HEX(7F),B6(3),0," ",2)
: GOSUB 5800
: F7$=ALL(7F)
: IF Q6$="end"OR Q6$="END"THEN 4730
: GOSUB 5710
4700 IF F7$>=F6$THEN 4730
: PRINT AT(3,0,80);"Starting ID must be lower than Ending ID.";HEX(07)
: GOTO 4570
4730 PRINT AT(6,0);,"RANGE OF ";B6$;" CODES:"
: IF F6$=" "THEN Q7$="BEGINNING"
: ELSE Q7$=F6$
: IF POS(STR(F7$,1,B6(3))<>7F)=0THEN Q6$="END"
: ELSE Q6$=F7$
: PRINT ," ";Q7$;" TO ";Q6$
4780 Q6$="D"
: GOSUB '100("D,S","DdSsD ",1,1,"ENTER REPORT TYPE ('D'=DETAIL 'S'=SUMMAR
Y)",3)
: GOSUB 5800
: A6$=Q6$
: IF A6$="D"THEN F8$="DETAIL"
: ELSE F8$="SUMMARY"
: PRINT AT(6+E8,16);"REPORT TYPE: ";F8$
: IF I6=1THEN 5000
: Q6$="Y"
4870 GOSUB '100("N,Y","NnYyY ",1,1,"DO YOU WISH OUTPUT IN DOLLARS (Y OR N)",3
)
: GOSUB 5800
: A9$=Q6$
: IF A9$="Y"THEN F8$="DOLLARS"
: ELSE F8$="UNITS"
: PRINT AT(7+E8,16);"PRINTED AMOUNTS IN ";F8$
: CONVERT STR(Q1$,1,2)TO Q9
: CONVERT PTO Q$(2),(##)
: GOSUB '100("1",Q$(2),2,0,"ENTER STARTING PERIOD OF PROJECTION",0)
4960 GOSUB 5800
: I5=Q9
: PRINT AT(8+E8,16);"STARTING PERIOD OF PROJECTION =";I5
5000 Q6$="Y"
: GOSUB '100("N,Y","NnYyY ",1,1,"IS DATA OK (Y OR N)",3)
: GOSUB 5800
: IF Q6$="N"THEN 4100
: IF K6>3AND F7$>F6$THEN 5520
: GOSUB '98("Opening Files")
: Q=2
: LOAD T"KFAMOPEN"199,199BEG 5100
5100 LOAD T"KFAMCODE"199,199BEG 5130
5130 SELECT @PARTS0$
: Q$=" "
: GOSUB '91
: GOSUB '230(1,14,1,1,S$(1),1," ",STR(M$(),4,3),STR(M$(),,3))
: GOSUB '91
: IF J0=0THEN 5240
: PRINT AT(3,17);"- INVENTORY FILE"
: GOSUB '254
: GOSUB '31
5240 IF I6=1THEN 5350
: GOSUB '230(2,14,8,1,S$(8),1," ",STR(M$(),19,3),STR(M$(),22,3))
: GOSUB '91
: IF J0=0THEN 5350
: PRINT AT(3,17);"- PROFILE FILE"
: GOSUB '254
: GOSUB '31
5350 LOAD T"COMCLEAR"10,3617BEG 5360
5360 Q6$="KFAMCODEINVFILE"&S0$(3)&"FINFILE"&S0$(3)&"SLSSTABVPROFILE"&S0$(14)
: I=0
5370 DEFFN'99
: Q2=Q0
: Q4=VAL(Q0$(4))
: Q7=VAL(Q0$(7))
: I=I+1
: IF I=6THEN 5440
: LOAD DC T#0,STR(Q6$,I*8-7,8)199,210
5440 LOAD DC T#0,"PRNTAVAL"3940,3967BEG 5470
5470 GOSUB '98("Loading Print Module")
: I6$="K"
: Q6$=STR(M5$,,7)&"E"
: LOAD TQ6$4000
5520 I6$="S"
: $PACK(F=HEX(A008A001A0016001A013A00CA00CA00C60016001A00160016001))M$()<50
,>FROMM5$,A6$,A9$,B6(),B6$,F6$,F7$,F8$,I5,I6,I6$,I8,K6
: GOSUB '98("Loading Sort Routine")
: Q6$=STR(M5$,1,7)&"B"
: COM CLEAR M5$
: LOAD TQ6$
5630 DEFFN'98(Q6$)
: PRINT HEX(0D030A0A0A0A0A)
: PRINT TAB(6);"**************************************************"
: PRINT TAB(6);"*";TAB(31-.5*LEN(Q6$));Q6$;TAB(55);"*"
: PRINT TAB(6);"**************************************************"
: RETURN
5710 F7$=Q6$
: IF K6<>2AND K6<>4AND K6<>5THEN RETURN
: IF K6=2THEN Q9=2
: IF K6=4THEN Q9=4
: IF K6=5THEN Q9=7
: GOSUB '96(Q9)
: F7$=Q6$
: RETURN
5800 IF Q6$<>HEX(1F)THEN RETURN
5820 DEFFN'31
: SELECT PRINT 005(80)
: PRINT HEX(030A);TAB(20);"** TERMINATING PROGRAM **"
: COM CLEAR I
: LOAD TM$
5880 PRINT AT(3,0,80);HEX(07);"RE-ENTER"
: RETURN
9998 DEFFN'29"Q$=";HEX(22);"INVT110A";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)