Post by Admin on Dec 7, 2019 15:49:21 GMT
This crafted calculator requires a keyboard and mouse for positioning the window
HOW TO USE:
1 type in the stock price (eg. 8.22) and press (ENTER)
2 type in the amount you want to spend and press (ENTER)
3 the calculator shows you the amount of stocks you can buy
4 the calculator shows you 3 optional sell prices with profits
5 Press (ENTER) when ready to do another calculation
NOTE: If you choose to use this program you must accept any risks.
The Author of this program offers no statement of performance or usefulness.
Use at your own risk
HOW TO USE:
1 type in the stock price (eg. 8.22) and press (ENTER)
2 type in the amount you want to spend and press (ENTER)
3 the calculator shows you the amount of stocks you can buy
4 the calculator shows you 3 optional sell prices with profits
5 Press (ENTER) when ready to do another calculation
NOTE: If you choose to use this program you must accept any risks.
The Author of this program offers no statement of performance or usefulness.
Use at your own risk
LET bf=10:REM <<<<< Your Banking fee per transaction ***
PROCgraphics(155,505)
REM You must accept ALL financial risks from using this program before using it
REM This program is a demo.
REM The Author of this program offers no promise of reliability or usefullness
REPEAT
CLS
PROCsbox(5,10,300,200,"7")
PROCsbox(5,215,300,405,"10")
PROCsbox(5,415,300,605,"3")
PROCsbox(5,620,300,810,"15")
PROCsbox(5,815,300,1000,"15")
MOVE 10,190:GCOL 4: PRINT"STOCK SELL PRICE "
MOVE 10,380:PRINT"STOCK SELL PRICE "
MOVE 10,580:PRINT"STOCK SELL PRICE "
MOVE 10,790:PRINT"SHARES TO BUY "
GCOL 0
MOVE 10,980:PRINT"STOCK PRICE "
MOVE 10,910:PRINT"AMOUNT TO SPEND "
amount=0:vlu=0:tt=0:e$="":round%=0
GCOL 0
GCOL 128+15:REM background color black for text
MOVE 5,950:INPUT " : ",amount
REPEAT
MOVE 5,880: INPUT "$$ ",vlu
GCOL 0
REM INPUT " Amount you want to invest : ",value
UNTIL vlu>0
vlu=vlu-10:REM this is the amount your bank charges you for transaction. (adjust for you)
tt=vlu/amount
round%=tt
MOVE 10,760:PRINT " SHARES "+STR$(round%)
REPEAT
otheramt+=0.01
profit=round%*otheramt
UNTIL profit>vlu+30 :REM you must make this work out to around $30 profit
MOVE 10,150:PRINT " "+STR$(otheramt)
PRINT" PROFIT $ "+STR$(profit-vlu-bf)
REPEAT
otheramt+=0.01
profit=round%*otheramt
UNTIL profit>vlu+50 :REM you must make this work out to around $50 profit
MOVE 10,350:PRINT " "+STR$(otheramt)
PRINT " PROFIT $ "+STR$(profit-vlu-bf)
REPEAT
otheramt+=0.01
profit=round%*otheramt
UNTIL profit>vlu+100 :REM you must make this work out to around $100 profit
MOVE 10,550
PRINT " "+STR$(otheramt)
PRINT " PROFIT $ "+STR$(profit-vlu-bf)
PRINT
MOVE 0,0
INPUT "@",e$
PRINT "************************************************************"
CLS
UNTIL FALSE
END
REM lets stick with 16 colors **********************************************************************
DEF PROCsbox(x%,y%,w%,h%,c$)
LOCAL ry%,sx%,sy%
sx%=x%:sy%=y%
IF x%>w% THEN x%=w%:w%=sx%
IF y%>h% THEN y%=h%:h%=sy%
ry%=y%
GCOL VAL(c$)
REPEAT
LINE x%,y%,w%,y%
y%=y%+1
UNTIL y%=h%
y%=ry%
IF c$<>"0" THEN GCOL 0 ELSE GCOL 15
LINE x%+2,y%+2,w%-2,y%+2
LINE w%-2,y%+2,w%-2,h%-4
LINE w%-2,h%-4,x%+2,h%-4
LINE x%+2,h%-4,x%+2,y%+2
ENDPROC
DEF PROCgraphics(x,y)
VDU 23,22,x;y;8,15,16,1
VDU 5
ENDPROC