Stock Trader calculator (modify to fit your needs)

REM this is a example program and you can adjust for your custom needs
REM You must accept any risks involved in using this program modified or not modified if you choose to use it.
PROCgraphics(340,100)
CLS
PRINT "STOCK CALCULATOR VERSION 3 (OCT 17,2019)"
PRINT
amount%=0:value%=0:total%=0:e$="":round%=0
REPEAT
INPUT " VALUE OF STOCK per share : ",amount

REPEAT
INPUT " Amount you want to invest : ",value
UNTIL value>0
value=value-10:REM this is the amount your bank charges you for transaction. (adjust for you)***********
total=value/amount
round%=total
PRINT STR$(value)+" divided by "+ STR$(amount) +" Equals "+STR$(round%)

PRINT
INPUT "PRESS ENTER to start another calculation ",e$
PRINT "************************************************************"
CLS
UNTIL FALSE
END
DEF PROCgraphics(x,y)
VDU 23,22,x;y;8,15,16,1
ENDPROC