DataMuseum.dk

top - download

    Length: 6016 (0x1780)
    Types: TextFile
    Names: »CORPDSS.CMD«

└─⟦6ae1c04a5⟧ Bits:30004364 SW1656 IFPS/Personal Version 2.10 release 1.1
    └─ ⟦this⟧ »CORPDSS.CMD« 

TextFile

org:clear
dropmicro 4
dropmicro 5
dropmicro 6
SETPARAM 3 TEMPLATE
makewindow 1 5 16 74 1
clearwindow
setattr 2
writeline  Consider the problem of an organization adapting to the
writeline  introduction of a new product.  Virtually every department
writeline  in the company needs to plan a new operation.
writeline
setattr 4
writeline    * Marketing develops new product plans.         
writeline    * Production Plans must be developed to match demand.
writeline    * Engineering must update processes to add a new product.
writeline    * Investment cash management programs should be adjusted.
writeline    * Financial plans and Budgets must add a new business unit.
setattr 2
writeline
writeline  Additionally, the analysis cannot be performed in a vacuum.
writeline
setattr 9
writestr              DATA 
setattr 2
writestr  and
setattr 9
writestr  KNOWLEDGE 
setattr 2
writestr  must be shared!
makewindow 18 5 20 72 1
clearwindow
setattr 2
writestr          Press 
setattr 6
writestr  any key 
setattr 2
writestr  to view our solution!
pause
ØØcommands orgchart
ØØorgchart.cmd
MAKEWINDOW 1 5 20 74 1
CLEARWINDOW
setattr 4
WRITELINE    ORGANIZATIONAL SHARING OF DATA AND MODELS WITH IFPS/PERSONAL
MAKEWINDOW 5 33 8 45 1          
CLEARWINDOW
setattr 3
writeline  MARKETING
writestr    MODEL
makewindow 5 46 7 54 0
clearwindow
writeline
writestr -------->
MAKEWINDOW 5 55 7 72 1
CLEARWINDOW
setattr 2
writestr INDEPENDENCE OF
makewindow 8 55 10 72 0
clearwindow
writestr  /         Ø
makewindow 9 50 11 60 1
clearwindow
setattr 2
writestr   DATA
makewindow 9 62 11 72 1
clearwindow
writestr  REPORTS
makewindow 9 33 12 45 0
writeline       :
writeline       :
writeline       :
writestr       : 
MAKEWINDOW 12 30 14 50 1
CLEARWINDOW
setattr 9
writestr  SHARED KNOWLEDGE
makewindow 15 7 17 72 0
clearwindow
writestr                           /  /     Ø  Ø
MAKEWINDOW 16 7 19 21 1
CLEARWINDOW
setattr 3
writeline  PRODUCTION
writestr  MODEL
MAKEWINDOW 16 23 19 37 1
CLEARWINDOW
setattr 3
writeline  ENGINEERING
writestr  MODEL
MAKEWINDOW 16 41 19 55 1
CLEARWINDOW
setattr 3
writeline  CASH MGMT
writestr  MODEL
MAKEWINDOW 16 58 19 72 1
CLEARWINDOW
setattr 3
writeline  FINANCE
writestr  MODEL
PARAMS RETURN Press <Enter> key to continue
DROPMICRO RETURN
beg:clear
makewindow 2 4 20 73 1
clearwindow
writeline
writestr              -
setattr 14  
writestr CORPORATE DECISION SUPPORT ANALYSIS
setattr 2
writeline -
writeline
setattr 4
writeline  Organization Template                  Press letter
writeline  =====================                  ============
writeline   Marketing                                  M         
writeline   Production                                 P
writeline   Engineers                                  E
writeline   Cash Management                            C
writeline   Financial Plan or Budget                   F
writeline
setattr 2
writeline  You can select any of these templates by pressing the
writeline  associated letter on the keyboard or by moving the <Space>
writeline  bar over to the selection and pressing the <Enter> key.
writeline                                                      
writestr       -
setattr 13
writestr <Esc> or <F9> returns to the previous menu.
setattr 2
writeline -
menu1 CorporateDSS:   Marketing          Production             Engineer
menu2                 Cash_management    Financial_budget           Help
menusel MPECFH
getmenu pick
clear
ifnum &pick& = 0 then goto omsg:
ifnum &pick& = 1 then goto mkt:
ifnum &pick& = 2 then goto pro:
ifnum &pick& = 3 then goto oen:
ifnum &pick& = 4 then goto csh:
ifnum &pick& = 5 then goto fin:
ifnum &pick& = 6 then goto ohlp:
omsg:clear
dropmicro pick
CLEAR
COMMANDS TEMPLATE
goto end:
mkt:clear                         
dropmicro pick
SETPARAM 1 MARKETING
SETPARAM 2 MARKET   
DEFINE C2 SELLING PRICE.@@BS
DEFINE C3 PRIOR * 1.1.@@BS
DEFINE C4 NET INCOME.@@BS
DEFINE C5 200000.@@BS
DEFINE C6 SALES FORECAST.@@BS
DEFINE C7 MARKET.@@BS
DEFINE C9 MARKET.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
pro:clear                         
dropmicro pick
setparam 1 PROD PLAN
SETPARAM 2 PRODPL  
DEFINE C2 SALES FORECAST.@@BS
DEFINE C3 PRIOR * 1.1.@@BS
DEFINE C4 PRODUCTION.@@BS
DEFINE C5 40.@@BS
DEFINE C6 BEG INVENTORY.@@BS
DEFINE C7 PRODPL.@@BS
DEFINE C9 PRODPL.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
oen:clear                         
dropmicro pick
SETPARAM 1 ENGINEERING
SETPARAM 2 ORGENG      
DEFINE C2 PRODUCTION.@@BS
DEFINE C3 PRIOR + 10.@@BS
DEFINE C4 EXCESS OR UNAVAILABLE CAPACITYÆHRS REQÅ.@@BS
DEFINE C5 0.@@BS
DEFINE C6 PRODUCT AÆUNITSÅ.@@BS
DEFINE C7 ORGENG.@@BS
DEFINE C9 ORGENG.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
csh:clear                         
dropmicro pick
SETPARAM 1 CASH MGMT
SETPARAM 2 CASHMN  
DEFINE C2 INVEST IN NEW PRODUCT.@@BS
DEFINE C3 PRIOR * 2.@@BS
DEFINE C4 NEW LOANS.@@BS
DEFINE C5 0.@@BS
DEFINE C6 TIMING OF INVEST.@@BS
DEFINE C9 CASHMN.@@BS
DEFINE C7 CASHMN.@@BS  
COMMANDS MAINMENU "&1" 
goback beg:
fin:clear                        
dropmicro pick
SETPARAM 1 CONSOL
SETPARAM 2 CONSOL
DEFINE C2 NEW PRODUCT SALES.@@BS
DEFINE C3 PRIOR * 1.1.@@BS
DEFINE C4 RET ON SALES.@@BS
DEFINE C5 .10.@@BS
DEFINE C6 NEW PRODUCT SALES.@@BS
DEFINE C7 CONSOL.@@BS
DEFINE C9 CONSOL.@@BS
COMMANDS BUDGET "&1"
goback beg:
ohlp:message
clear
dropmicro pick
makewindow 3 2 17 67 1
clearwindow
writeline
writeline      * MARKETING - product planning.                           
writeline      * ENGINEER - industrial engineering model.             
writeline      * PRODUCTION - production planning.  
writeline      * CASH MANAGEMENT - cash flow management.  
writeline      * CONSOLIDATED BUDGET - run the analysis together.
writeline
writeline   Press <Enter> to continue .....
writestr
pause
goback beg:
end:
«eof»