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

⟦1a2e56509⟧ TextFile

    Length: 2304 (0x900)
    Types: TextFile
    Names: »CASHMN.MOD«

Derivation

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

TextFile

COLUMNS 1..12
PERIODS 12
ØØ
ØØ This model analyzes the cash management options available
ØØ based on marketing and production plans in place.  A set of
ØØ policies exist for managing cash, debt and investments.  
ØØ
ØØ    * Cash levels must be between $10000 and $20000.
ØØ    * An investment portfolio of at least $50000 must be maintained.
ØØ    * If Cash is deficient, the manager must first sell off
ØØ       any extra investments, then borrow funds.
ØØ    * If Cash is in excesss of $20000, the manager must first
ØØ       pay off debt, then buy more investments.
ØØ
ØØ This model adjusts the cash levels each month according to
ØØ these priorities.  The final results are fed to the next month
ØØ and combined with operations to help plan investment schedules.
ØØ
ØØ MARKETING INPUT:
PROJECTED NET INCOME=DATA      
INVEST IN NEW PRODUCT=DATA  
INCOME SMOOTHING FACTOR=DATA
TIMING OF INVEST=DATA
ØØ
ØØ CASH MANAGEMENT POLICIES
MIN CASH=DATA 
MAX CASH=DATA 
MIN INVEST=DATA 
INCREMENT=DATA 
ØØ
ØØ CASH MANAGEMENT:    
CASH FLOW FROM OPERATIONS=(PROJECTED NET INCOME * INCOME SMOOTHING FACTOR)    
TOTAL INVEST IN PRODUCT=INVEST IN NEW PRODUCT*TIMING OF INVEST
BEG CASH=INITIAL CASH,PREVIOUS ENDING CASH
ENDING CASH=BEG CASH + CASH FLOW FROM OPERATIONS + NEW LOANS + '
            INVEST SOLD - INVEST BOUGHT - DEBT PAYOFF
ØØ
CASH AVAILABLE=BEG CASH + CASH FLOW FROM OPERATIONS - '
               TOTAL INVEST IN PRODUCT
EXCESS CASH=IF CASH AVAILABLE .GT. MAX CASH '   
            THEN TRUNCATE((CASH AVAILABLE - MIN CASH) / INCREMENT) * '
            INCREMENT ELSE 0
CASH NEEDED=IF CASH AVAILABLE .LT. MIN CASH '
            THEN ROUNDUP((MIN CASH - CASH AVAILABLE) / INCREMENT) * '
            INCREMENT ELSE 0
AVAILABLE INVEST=MAXIMUM(0,INVEST-MIN INVEST)
INVEST SOLD=MINIMUM(CASH NEEDED,AVAILABLE INVEST)
INVEST BOUGHT=EXCESS CASH - DEBT PAYOFF
ENDING INVEST=INVEST + INVEST BOUGHT - INVEST SOLD
NEW LOANS=CASH NEEDED - INVEST SOLD
DEBT PAYOFF=MINIMUM(EXCESS CASH,DEBT)
DEBT=INITIAL DEBT,PREVIOUS ENDING DEBT          
ENDING DEBT=DEBT + NEW LOANS - DEBT PAYOFF
ØØ
ØØ DATA AND FUNCTION CALLS:
INITIAL DEBT=DATA    
INITIAL CASH=DATA
INVEST=DATA        
«eof»