'	+-------------------------------------------------+
'	|    investCalc.iwb © 2026 Campanile Data Systems |
'	|               All Rights Reserved               |
'	+-------------------------------------------------+
'	| Software to compute missing vales on statements |
'	+-------------------------------------------------+

AutoDefine "OFF"

float DividendAmount
float DividendQuantity
float GainAmount
float GainQuantity
float ReinvestmentAmount
float ReinvestmentQuantity
float DividendPercent
float GainPercent
string correct

CONST BLACK  =  0
CONST RED    =  4
CONST YELLOW = 14
CONST WHITE  = 15

OpenConsole 


dataEntry:
PrintHeading()
Color WHITE, BLACK
Print
Input "          Enter Dividend Amount: ", DividendAmount
Input "              Enter Gain Amount: ", GainAmount
Input "      Enter Reinvestment Amount; ", ReinvestmentAmount
Input "    Enter Reinvestment Quantity: ", ReinvestmentQuantity
ReinvestmentAmount = Abs(ReinvestmentAmount) 'must be postive

CLS 'clears console
PrintHeading()
Color WHITE, BLACK
Print
Print "        Dividend Amount: $" + Using("%f##,###.##",  DividendAmount)
Print "            Gain Amount: $" + Using("%f##,###.##",  GainAmount)
Print "    Reinvestment Amount: $" + Using("%f##,###.##",  ReinvestmentAmount)
Print "  Reinvestment Quantity: $" + Using("%f##,###.###", ReinvestmentQuantity)

checkData:
Print
Input "   Are these values correct? 'Yes' or 'No'  ", correct
correct = Ucase$(correct)
Select correct
	Case "YES"
		Goto theEnd
	Case "NO"
		CLS
		Goto dataEntry
	Default
		Goto checkData
EndSelect

theEnd:
PrintHeading()
Color WHITE, BLACK
DividendPercent = DividendAmount / ReinvestmentAmount
GainPercent     = GainAmount    / ReinvestmentAmount

DividendQuantity = ReinvestmentQuantity * DividendPercent
GainQuantity     = ReinvestmentQuantity * GainPercent

CLS
PrintHeading()
Color WHITE, BLACK
Print
Print "   Copy the data and click any key to exit.\n"
Print "   Dividend Quantity (Shares): " + Using("%f##,###.###", DividendQuantity)
Print "       Gain Quantity (Shares): " + Using("%f##,###.###", GainQuantity)

Do: Until InKey$ <> ""
CloseConsole
End

Sub PrintHeading()
Color RED, YELLOW
Locate 4,18
Print " +---------------------------------------+ "
Locate 5,18
Print " | Welcome to the Investment Calculator! | "
Locate 6,18
Print " + --------------------------------------+ "
Return
EndSub