image of READY prompt

Wang2200.org

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
     )