|
Post by Admin on Nov 3, 2019 22:35:30 GMT
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
|
|