DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦95bdd6444⟧ TextFile

    Length: 4096 (0x1000)
    Types: TextFile
    Names: »IND2.CMD«

Derivation

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

TextFile

beg:clear
dropmicro 1
dropmicro 2
dropmicro 3
SETPARAM 3 INDUSTRY
makewindow 1 4 20 73 1
clearwindow
setattr 6  
writeline
writeline                 INDUSTRY TEMPLATE OPTIONS
writeline
setattr 4
writeline  Industry Template                      Press letter
writeline  =================                      ============
writeline   Banking Loan Evaluation                    B         
writeline   Oil Exploration Economics                  O
writeline   Real Estate Property Analysis              R
writeline   Insurance Product Line Analysis            I
writeline   Manufacturing Analysis                     M
writeline   Financial Service Portfolios               F
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                                                      
setattr 6
writeline        <Esc> or <F9> returns to the previous menu.
writestr
menu1 Industry:  Banking       Oil        Real_estate       Insurance  
menu2            Manufacturing      Financial_service       Help
menusel BORIMFH
getmenu pick
clear
ifnum &pick& = 0 then goto imsg:
ifnum &pick& = 1 then goto bnk:
ifnum &pick& = 2 then goto oil:
ifnum &pick& = 3 then goto res:
ifnum &pick& = 4 then goto ins:
ifnum &pick& = 5 then goto man:
ifnum &pick& = 6 then goto fin:
ifnum &pick& = 7 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.@@BS
DEFINE C5 .25.@@BS
DEFINE C6 RENT RATE.@@BS
DEFINE C7 REALES.@@BS
DEFINE C9 REALES.@@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 NUMBER OF AGENTS.@@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 SAFETY STOCK.@@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 PRICE.@@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
writeline   Press <Enter> to continue .....
writestr
pause
goback beg:
«eof»