rookie checking in, have no idea about coding or programming or whatever. Trying to teach myself, read a couple of tutorials..jst as confused as when i started only know i can manage to make something that does what i want it to do. Anyway, here is a program i wrote for my public finance and taxation course to calculate tax liability. Granted it may be a coding nightmare but it does what its sappose to do.

Any suggestions and comments will be appreciated, if u gonna make fun of me..make it funny so we all can enjoy the humor.

```
ClrHome
Menu("--Tax Liability--","Employment",1,"Rental",2,"Business",3,"Other",4)
Lbl 1
Input "Income:",A
If A>5000
Disp "Tax:",(A*0.35)-662.5,"Net:",A-(A*0.35-662.5)
If (Aù3551)(A÷5000)
Disp "Tax:",(A*0.3)-412.5,"Net:",A-(A*0.3-412.5)
If (Aù2351)(A÷3550)
Disp "Tax:",(A*0.25)-235,"Net:",A-(A*0.25-235)
If (Aù1401)(A÷2350)
Disp "Tax:",(A*0.2)-117.5,"Net:",A-(A*0.2-117.5)
If (Aù651)(A÷1400)
Disp "Tax:",(A*0.15)-47.5,"Net:",A-(A*0.15-47.5)
If (Aù151)(A÷650)
Disp "Tax:",(A*0.1)-15,"Net:",A-(A*0.1-15)
If A÷150
Disp "Tax:",0,"Net:",A
Stop
Lbl 2
Lbl 3
Input "Income:",B
If B>60000
Disp "Tax:",(B*0.35)-7950,"Net:",B-(B*0.35-7950)
If (Bù42601)(B÷60000)
Disp "Tax:",(B*0.3)-4950,"Net:",B-(B*0.3-4950)
If (Bù28201)(B÷42600)
Disp "Tax:",(B*0.25)-2820,"Net:",B-(B*0.25-2820)
If (Bù16801)(A÷28200)
Disp "Tax:",(B*0.2)-1410,"Net:",B-(B*0.2-1410)
If (Bù7801)(B÷16800)
Disp "Tax:",(B*0.15)-570,"Net:",B-(B*0.15-570)
If (Bù1801)(B÷7800)
Disp "Tax:",(B*0.1)-180,"Net:",B-(B*0.1-180)
If B÷1800
Disp "Tax:",0,"Net:",B
Stop
Lbl 4
Menu("--Other Income--","Royalties",5,"Technical Services",6,"Games of Chance",7,"Dividends",8,"Rental of Property",9,"Deposits",10,"Gains on Transfer",11)
Lbl 5
Input "Income:",C
Disp "Tax:",(C*0.05),"Net:",C-(C*0.05)
Stop
Lbl 6
Input "Income:",D
Disp "Tax:",(D*0.1),"Net:",D-(D*0.10)
Stop
Lbl 7
Input "Income:",E
If Eù100
Disp "Tax:",(E*0.15),"Net:",E-(E*0.15)
If E<100
Disp "Tax:",0,"Net:",E
Stop
Lbl 8
Input "Income:",F
Disp "Tax:",(F*0.1),"Net:",F-(F*0.10)
Stop
Lbl 9
Input "Income:",G
Disp "Tax:",(G*0.15),"Net:",G-(G*0.15)
Stop
Lbl 10
Input "Income:",H
Disp "Tax:",(H*0.05),"Net:",H-(H*0.05)
Stop
Lbl 11
Menu("--Gain On Transfer","Buildings for Business",12,"Shares of Companies",13)
Lbl 12
Input "Income:",I
Disp "Tax:",(I*0.15),"Net:",I-(I*0.15)
Stop
Lbl 13
Input "Income:",J
Disp "Tax:",(J*0.3),"Net:",J-(J*0.3)
Stop
```

P.S. for all super curios brahs, these rates are applied in Ethiopia. THe ù are sappose to be less than or equal signs while the ÷ is for greater than or equal to.