DataMuseum.dk

top - download

    Length: 3712 (0xe80)
    Types: TextFile
    Names: »CORPDSS2.CMD«

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

TextFile

beg:clear
dropmicro 4
dropmicro 5
dropmicro 6
makewindow 2 4 20 73 1
clearwindow
setattr 6
writeline
writeline                     PRIMARY ACTION MENU
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                                                      
setattr 6
writeline        <Esc> or <F9> returns to the previous menu.
writestr
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& = 7 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 PRODUCTION PLANNING
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 MANAGEMENT
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    
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 - run the analysis together.
writeline
writeline   Press <Enter> to continue .....
writestr
pause
goback beg:
end:
«eof»