DataMuseum.dk

top - download

    Length: 4736 (0x1280)
    Types: TextFile
    Names: »INDUSTRY.CMD«

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

TextFile

ECHO NO
beg:clear
dropmicro 1
dropmicro 2
dropmicro 3
SETPARAM 3 TEMPLATE
makewindow 1 4 20 73 1
clearwindow
writestr                 -
setattr 14  
writestr INDUSTRY TEMPLATE OPTIONS
setattr 2
writeline -
writeline
setattr 4
writeline  Industry Template                      Press letter
writeline  =================                      ============
writeline   Banking Loan Evaluation                    B         
writeline   Manufacturing Analysis                     M
writeline   Real Estate Property Analysis              R
writeline   Oil Exploration Economics                  O
writeline   Insurance Product Line Analysis            I
writeline   Financial Service Portfolios               F
writeline   Syndication Partnership Analysis           S
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:  Banking     Manufacturing       Real_estate     Oil
menu2            Insurance   Financial_service   Syndication     Help
menusel BMROIFSH
getmenu pick
clear
ifnum &pick& = 0 then goto imsg:
ifnum &pick& = 1 then goto bnk:
ifnum &pick& = 2 then goto man:
ifnum &pick& = 3 then goto res:
ifnum &pick& = 4 then goto oil:
ifnum &pick& = 5 then goto ins:
ifnum &pick& = 6 then goto fin:
ifnum &pick& = 7 then goto syn:
ifnum &pick& = 8 then goto ihlp:
imsg:clear
dropmicro pick
CLEAR
COMMANDS TEMPLATE          
goto end:
bnk:clear                         
dropmicro pick
setparam 1 BANKING
setparam 2 BANK    
DEFINE C2 SALES GROWTH RATE.@@BS
DEFINE C3 COMPANIES PROJECTED GROWTH RATE.@@BS
DEFINE C4 CASH FLOW.@@BS
DEFINE C5 20000.@@BS
DEFINE C6 SALES GROWTH RATE.@@BS
DEFINE C9 BANK.@@BS
DEFINE C7 BANK.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
oil:clear                         
dropmicro pick
setparam 1 OIL
setparam 2 OIL
DEFINE C2 OIL PRICE.@@BS
DEFINE C3 PRIOR + 2.@@BS
DEFINE C4 RATE OF RETURN BEFORE TAXÆ10Å.@@BS
DEFINE C5 .40.@@BS
DEFINE C6 OIL PRICEÆ1Å.@@BS
DEFINE C7 OIL.@@BS
DEFINE C9 OIL.@@bs
COMMANDS MAINMENU "&1" 
goback beg:
res:clear                         
dropmicro pick
setparam 1 REAL ESTATE
setparam 2 REALES 
DEFINE C2 RENT RATE.@@BS
DEFINE C3 PRIOR + 100.@@BS
DEFINE C4 ANNUAL AFTER TAX RETURN REAL ESTATEÆ1Å.@@BS
DEFINE C5 .15.@@BS
DEFINE C6 RENT RATEÆ1Å.@@BS
DEFINE C7 REALES.@@BS
DEFINE C9 REALES.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
syn:clear                         
dropmicro pick
setparam 1 SYNDICATION
setparam 2 REAL2  
DEFINE C2 part investment.@@bs
DEFINE C3 130000,0.@@BS
DEFINE C4 "after tax irr"Æ4Å.@@BS
DEFINE C5 .15.@@BS
DEFINE C6 part investmentÆ1Å.@@bs
DEFINE C7 REAL2.@@BS
DEFINE C9 REAL2.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
ins:clear                         
dropmicro pick
SETPARAM 1 INSURANCE
SETPARAM 2 INSUR  
DEFINE C2 NUMBER OF AGENTS.@@BS
DEFINE C3 PRIOR + 10.@@BS
DEFINE C4 UNDERWRITING EARNINGS.@@BS
DEFINE C5 0.@@BS
DEFINE C6 AGENTS GROWTH RATE.@@BS
DEFINE C9 INSUR.@@BS
DEFINE C7 INSUR.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
man:clear                        
dropmicro pick
setparam 1 MANUFACTURING
SETPARAM 2 MANUF
DEFINE C2 SALES.@@BS
DEFINE C3 PRIOR * 1.1.@@BS
DEFINE C4 SHORTFALLÆ1Å.@@BS
DEFINE C5 0.@@BS
DEFINE C6 BEGINNING INVENTORYÆ1Å.@@BS
DEFINE C7 MANUF.@@BS
DEFINE C9 MANUF.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
fin:clear                        
SETPARAM 1 FINANCIAL SERVICE
SETPARAM 2 FINSRV 
DEFINE C2 ISSUE C PRICE.@@BS
DEFINE C3 80.@@BS
DEFINE C4 ISSUE C RETURN.@@BS
DEFINE C5 0.@@BS
DEFINE C6 ISSUE C DIVIDEND.@@BS
DEFINE C7 FINSRV.@@BS
DEFINE C9 FINSRV.@@BS
COMMANDS MAINMENU "&1" 
goback beg:
ihlp:message
clear
dropmicro pick
makewindow 3 2 17 67 1
clearwindow
writeline
writeline      * BANK - Loan Evaluation Analysis.                        
writeline      * OIL - Oil exploration economics evaluation.          
writeline      * REAL ESTATE - analysis of property purchase.
writeline      * INSURANCE - Product line analysis system.
writeline      * MANUFACTURING - Materials/Labor requirements planning.
writeline      * FINANCIAL SERVICES - Investment portfolio analysis.
writeline      * SYNDICATION ANALYSIS - Real estate syndication study.
writeline
writeline   Press <Enter> to continue .....
writestr
pause
goback beg:
«eof»