DataMuseum.dk

top - download

    Length: 4608 (0x1200)
    Types: TextFile
    Names: »FUNCTION.CMD«

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

TextFile

beg:clear
dropmicro 1
dropmicro 2
dropmicro 3
SETPARAM 3 FUNCTION
makewindow 1 4 20 73 1
clearwindow
writestr                -
setattr 14  
writestr FUNCTIONAL TEMPLATE OPTIONS
setattr 2
writeline -
writeline
setattr 4
writeline  Functional Template                    Press letter
writeline  ===================                    ============
writeline   Finance - Financial Statements             F         
writeline   Marketing Product Plan Analysis            M
writeline   Engineering Analysis                       E
writeline   Statistical Forecasting                    S
writeline   Human Resources Planning                   H
writeline   Purchasing EOQ analysis                    P
writeline   Merger/Acquisition Analysis                A
setattr 2
writeline
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 Industry:  Finance      Marketing      Engineering      Statistics
menu2            Human_resource   Purchasing   merger_Acquisition   heLp
menusel FMESHPAL
getmenu pick
clear
ifnum &pick& = 0 then goto fmsg:
ifnum &pick& = 1 then goto fns:
ifnum &pick& = 2 then goto mar:
ifnum &pick& = 3 then goto eng:
ifnum &pick& = 4 then goto stat:
ifnum &pick& = 5 then goto hum:
ifnum &pick& = 6 then goto pur:
ifnum &pick& = 7 then goto mer:
ifnum &pick& = 8 then goto fhlp:
fmsg:clear
dropmicro pick
CLEAR
COMMANDS TEMPLATE 
goto end:
fns:clear                         
dropmicro pick
SETPARAM 1 FINANCE
SETPARAM 2 FINANC 
DEFINE C2 INTEREST RATE.@@BS
DEFINE C3 .15.@@BS
DEFINE C4 PROFIT BEFORE TAX.@@BS
DEFINE C5 4.@@BS
DEFINE C6 SALES.@@BS
DEFINE C7 FINANC.@@BS
DEFINE C9 FINANC.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
mar: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:
eng:clear                         
dropmicro pick
SETPARAM 1 ENGINEERING
SETPARAM 2 ENG      
DEFINE C2 DECLINE RATE.@@BS
DEFINE C3 .20.@@BS
DEFINE C4 CUMULATIVE PRODUCTIONÆ10Å.@@BS
DEFINE C5 TOTAL RESERVESÆ10Å.@@BS
DEFINE C6 INITIAL PRODUCTIONÆ1Å.@@BS
DEFINE C7 ENG.@@BS
DEFINE C9 ENG.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
stat:clear                        
dropmicro pick
SETPARAM 1 STATISTICAL
SETPARAM 2 STAT     
DEFINE C2 UNITS.@@BS
DEFINE C3 PRIOR + 50.@@BS
DEFINE C4 FORECASTÆ37Å.@@BS
DEFINE C5 170.@@BS
DEFINE C6 UNITSÆ25Å.@@BS
DEFINE C7 STAT.@@BS
DEFINE C9 STAT.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
pur:clear                         
dropmicro pick
SETPARAM 1 PURCHASING
SETPARAM 2 PURCH   
DEFINE C2 SCHED PROD.@@BS
DEFINE C3 PRIOR + 100.@@BS
DEFINE C4 EOQ.@@BS
DEFINE C5 4000.@@BS
DEFINE C6 ORDER COST.@@BS
DEFINE C9 PURCH.@@BS
DEFINE C7 PURCH.@@BS    
COMMANDS MAINMENU "&1" 
goback beg:
hum:clear                        
dropmicro pick
SETPARAM 1 HUMAN RESOURCES
SETPARAM 2 HUMAN
DEFINE C2 START DATE.@@BS
DEFINE C3 PRIOR + 10.@@BS
DEFINE C4 BONUS.@@BS
DEFINE C5 0.@@BS
DEFINE C6 STOP DATE.@@BS
DEFINE C7 HUMAN.@@BS
DEFINE C9 HUMAN.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
mer:clear                        
SETPARAM 1 MERGER
SETPARAM 2 MERGER
DEFINE C2 SELLERS SALES.@@BS
DEFINE C3 PRIOR*1.1.@@BS
DEFINE C4 EPS.@@BS
DEFINE C5 5,PREVIOUS + 1.@@BS
DEFINE C6 SELLERS SALES.@@BS
DEFINE C7 MERGER.@@BS
DEFINE C9 MERGER.@@BS
COMMANDS MAINMENU "&1"
goback beg:
fhlp:message
clear
dropmicro pick
makewindow 3 2 17 67 1
clearwindow
writeline
writeline      * FINANCE - Financial Statements Projections              
writeline      * MARKETING - Product line planning.                   
writeline      * ENGINEER - Decline curve analysis.
writeline      * PURCHASING - Economic order quantity analysis.
writeline      * HUMAN RESOURCES - Bonus calculations.              
writeline      * MERGER/ACQUISITION - Merger/Acquistion study.   
writeline      * STATISTICAL - seasonal forecasting.
writeline
writeline   Press <Enter> to continue .....
writestr
pause
goback beg:
«eof»