Source Code
Myles_Zadok 09 Oct 2017 21:29
Here's your uploaded program, Ti Programs Online does not match any existing user name. For some reason, I got an ajax error trying to upload the compressed .zip folder, so I just uploaded .8xp file that contained the code. Here is the written code:
AxesOff
ClrDraw
Text(1,24,10,"TAXFIND 2017
Text(32,24,"BY NICK PEASE"
Text(57,30,"LOADING..."
For(A,0,250
End
Lbl A
ClrHome
Menu("TAXFIND17 v.1.0 ","5.0 PERCENT",B,"5.5 PERCENT",C,"6.0 PERCENT",D,"6.5 PERCENT",E,"7.0 PERCENT",F,"EXIT",G
Lbl G
ClrHome
Output(1,1," "
Stop
Lbl B
5.0→A
Goto H
Lbl C
5.5→A
Goto H
Lbl D
6.0→A
Goto H
Lbl E
6.5→A
Goto H
Lbl F
7.0→A
Goto H
Lbl H
Disp "TAXFIND17"
Disp "PRICE:"
Input "",B
Disp "CALCULATING..."
Float
A*.01→A
B*A→C
B+C→D
ClrDraw
Text(0,0,"RESULTS:"
Text(6,5,"ORIGINAL PRICE:",B
Text(12,5,"TAX PERCENT:",A*100
Text(18,5,"TOTAL TAX:",round(C,2
Text(24,5,"TOTAL PRICE:",round(D,2
Pause
Goto A