|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2304 (0x900) Types: TextFile Names: »CASHMN.MOD«
└─⟦6ae1c04a5⟧ Bits:30004364 SW1656 IFPS/Personal Version 2.10 release 1.1 └─ ⟦this⟧ »CASHMN.MOD«
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»