Listing of file='FCSTMENU' on disk='vmedia/701-2663.wvd.zip'
# Sector 351, program filename = 'FCSTMENU'
0010 REM FCSTMENU, RELEASE 1-0, (05/29/79), THIS PROGRAM IS A COPYRIGHT PRODU
CT OF WANG LABORATORIES., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED,
INVENTORY MANAGEMENT MENU
0260 COM P$1,P,P1,P(13),P6$(14)2,L5$9,M$8,P$(13)3,M6$1,@I0$5,M5$8,Q6$64,M2$8,S
0$8,S2
: COM CLEAR Q6$
: SELECT PRINT 005(64),CO 005,P
: @I0$=ALL(00)
: S2=#PART
: GOSUB '180
: P$()="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC "
: M$="FCSTMENU"
: PRINT HEX(030A);"PRESS SPECIAL FUNCTION KEY FOR DESIRED PROGRAM"
0370 PRINT HEX(0A0A0A0A);TAB(16);"INVENTORY MANAGEMENT SYSTEM MENU"
: PRINT HEX(0A);TAB(14);"FN KEY PROGRAM"
: PRINT TAB(14);"----------------------"
: PRINT ,"01 PROFILE MAINTENANCE ROUTINE"
: PRINT ,"02 REORDER SIMULATOR"
: PRINT ,"03 DEMAND SIMULATOR"
: PRINT ,"15 ANOTHER APPLICATION"
0440 Q6$=" "
0450 KEYIN Q6$,460,470
0460 GOTO 450
0470 Q9=VAL(Q6$)
: IF Q9=15THEN 600
: ON Q9GOTO 520,540,570
: GOTO 440
0520 GOSUB '98("PROFILE MAINTENANCE","FCST110A")
0540 M6$="R"
: M5$="FCST120A"
: GOSUB '98("REORDER SIMULATOR","FCST120A")
0570 M6$="D"
: M5$="FCST120A"
: GOSUB '98("DEMAND SIMULATOR","FCST120A")
0600 COM CLEAR P$
: GOSUB '98("APPLICATION TRANSFER","APPLTRNS")
0640 DEFFN'98(Q6$,M2$)
: PRINT HEX(030A0A0A0A0A0A0A);TAB(31-.5*LEN(Q6$));"* * LOADING ";Q6$;" *
*"
: IF M2$="FCST120A"THEN 680
: LOAD DC T#0,M2$
0680 LOAD DC T#0,"FCST120A"BEG 4000
0710 DEFFN'180
: P=12
: P$="D"
: P(1)=31
: P(2)=28
: P(3)=31
: P(4)=30
: P(5)=31
: P(6)=30
: P(7)=31
: P(8)=31
: P(9)=30
: P(10)=31
: P(11)=30
: P(12)=31
: P(13)=00
: P1=0
: FOR P6=1TO P
: PACK(####)P6$(P6)FROMP1
: P1=P1+P(P6)
: NEXT P6
: PACK(####)P6$(P+1)FROMP1
: RETURN
9998 DEFFN'29"Q$=";HEX(22);"FCSTMENU";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)