8-Bit Software Online Conversion

Tax 94/95 - Listing

10: 20: 30: 40: 50REM " PROGRAM BY RUSHDEN ROY A 'L'PLATE PROGRAMER! (SOLINET 125 - 8-BIT 20G) 60REM*FX 229,1 70MODE7:CLS 80PRINT' 90VDU23,1,0;0;0;0; 100ENVELOPE1,1,0,0,0,0,0,0,-126,-2,0,- 1,126,80 110PROCROY 120PROCdouble(" Tax and National Insur ance Data",3,10) 130PROCdouble(" for 1994/1995",11,14) 140PRINT''" (Errors and omissions e xcepted.) For additional informati on please check with goverment o ffices." 150REPEAT:PROCSPACE1 160PROCheader("MENU ") 170PRINTTAB(0,6)" TAX DATA :-" 180PRINT" 1, Income Payments. Rates/B ands." 190PRINT" 2, Income Reliefs, Allowanc es." 200PRINT" 3, Mortgage Interest & Equi ty Plan." 210PRINT" 4, Capital Gains Tax." 220PRINT" 5, Main Corporation Tax Rat es." 230PRINT" 6, Personal Pension Premium ." 240PRINT'" NATIONAL INSURANCE DATA :-" 250PRINT" 7, Nat.Ins.Cont.Employees/e rs." 260PRINT" 8, Nat.Ins.Cont.Self-Employ ed." 270PRINT" 9, Pensions and Widows Bene fits." 280PRINT" 10, Child and Maternity Bene fits." 290PRINT" 11, Unemployed and Sickness Benefits." 300PRINT" 12, Quit the program." 310PRINTTAB(0,23)CHR$129+CHR$157+CHR$1 31+" Enter 1 to 12 <RETURN> " 320REPEAT:INPUTTAB(27,23)" ? "opt:IF opt<1ORopt>12SOUND1,1,180,1:PRINTTAB(27, 23)" ? (1-12)" 330UNTILopt>=1 ANDopt<=12:CLS 340IF opt=1 PROC1 350IF opt=2 PROC2 360IF opt=3 PROC3 370IF opt=4 PROC4 380IF opt=5 PROC5 390IF opt=6 PROC6 400IF opt=7 PROC7 410IF opt=8 PROC8 420IF opt=9 PROC9 430IF opt=10 PROC10 440IF opt=11 PROC11 450IF opt=12 PROC12 460UNTILFALSE 470DEFPROC1 480PROCheader("INCOME TAX") 490PRINT'" 1993/94 : 1 994/95" 500PRINT" BAND OF : BA ND OF" 510PRINT" TAXABLE INCOME : TAXAB LE INCOME" 520PRINT" £0-£2,500 20%: £0- £3,000 20%" 530PRINT"£2,501-£23,700 25%: £3,001- £23,700 25%" 540PRINT" OVER £23,700 40%: OVER £ 23,700 40%" 550PRINT" --------------------- ---" 560PRINT'"Independent Taxation for Mar ried Couples" 570PRINT"All married couples are taxed independe-ntly, each partner receiving a single person's allowance." 580ENDPROC 590DEFPROC2 600PROCheader("Main Income Tax Allowan ces") 610PRINT'" Personal 1993 /4 1994/5" 620PRINT" Age under 65" 630PRINT"Personnal Allowance £344 5 £3445" 640PRINT"Married Couple's Allow * £172 0 £1720" 650PRINT"Additional, Widows etc * £172 0 £1720" 660PRINT" Age 65 - 74" 670PRINT"Personal Allowance £420 0 £4200" 680PRINT"Married Couple's Allow * £246 5 £2665" 690PRINT" Age 75 and over" 700PRINT"Personal Allowance £437 0 £4370" 710PRINT"Married Couple's Allow * £250 5 £2705" 720PRINT"Income limit for age" 730PRINT"related allowance. ** £1420 0 £14200" 740PRINT'" * 94/95 relief restricted t o 20%." 750PRINT" * 95/96 relief restricted to 15%." 760PRINT" ** Age allowances reduced by half" 770PRINT" of income above limit." 780ENDPROC 790DEFPROC3 800PROCheader("Mortgage Int. & Equity" ) 810PRINT'" Mortgage Interest Relief al lowed on" 820PRINT" qualifying loan up to £30,00 0" 830PRINT 840PRINT" 1993/4 1994/5 1995 /6" 850PRINT" 25% 20% 15 %" 860PRINT' 870PRINT" Personal Equity Plan" 880PRINT 890PRINT"Max. yearly investment allowa ble" 900PRINT" 1994/5 £9 000" 910PRINT"Includes £3000 in single comp any PEP" 920PRINT 930PRINT"Max. allowed in qualifying Un it Trusts" 940PRINT"or Investment Trusts £6000 " 950ENDPROC 960DEFPROC4 970PROCheader("Capital Gains Tax") 980PRINT'" Individuals" 990PRINT"Annual Exemption £5800" 1000PRINT"Rate:-Marginal Income Tax Rat e." 1010PRINT"Note:-" 1020PRINT"Exemption applies to each ind ividual." 1030PRINT 1040PRINT" Most Trusts" 1050PRINT"Annual Exemption £2900." 1060PRINT"Rate:-Income Tax Rate." 1070PRINT 1080PRINT" Companies" 1090PRINT"Annual Exemption n/a." 1100PRINT"Rate:-Corporation Tax Rate." 1110ENDPROC 1120DEFPROC5 1130PROCheader("Corporation Tax Rates." ) 1140PRINT'" Year Ending 31/3/1994" 1150PRINT'" Profits Rate " 1160PRINT"Up to £250,000 25%" 1170PRINT"£250,000 - £1,250,000 35%" 1180PRINT"£1,250,000 and over 33%" 1190PRINT'" Year Ending 31/3/1995" 1200PRINT'" Profits Rate " 1210PRINT"Up to £300,000 25%" 1220PRINT"£300,000 - £1,500,000 35%" 1230PRINT"£1,500,000 and over 33%" 1240ENDPROC 1250DEFPROC6 1260PROCheader("Personal Pens. Premium. ") 1270PRINT'" Premiums with tax relief" 1280PRINT 1290PRINT" Age 1994/95 " 1300PRINT" 35 or less 17.5% o f income" 1310PRINT" 36 - 45 20%" 1320PRINT" 46 - 50 25%" 1330PRINT" 56 - 60 35%" 1340PRINT" 61 - 75 40%" 1350PRINT 1360PRINT"Life Assurance Content 5%" 1370PRINT 1380PRINT"Based on Maximum Earnings £76 ,800" 1390PRINT'"If you pay into a personal p ension a percentage (depending on a ge) of income can be used for the p remium and tax relief may be claime d." 1400ENDPROC 1410DEFPROC7 1420PROCheader("Nat.Ins.Cont. EEs & ERs .") 1430PRINT'" Employees(Class 1) 19 94/95" 1440PRINT" Weekly Contracted Co ntracted" 1450PRINT" Earnings in out" 1460PRINT"£ 00.00-£ 56.99 Nil Nil" 1470PRINT"£ 57.00-£430.00 £1.14+10% £1 .14+8.2%" 1480PRINT" in excess of £57.00" 1490PRINT"Over £430.00(week)£38.44 £ 31.72" 1500PRINT" Employers(Class 1) 19 94/95" 1510PRINT" Weekly Amount % above " 1520PRINT" Earnings on first £ 57.00" 1530PRINT" £57.00 Co ntracted" 1540PRINT" i n out" 1550PRINT"£ 00.00-£ 56.99 Nil Ni l Nil" 1560PRINT"£ 57.00-£ 99.99 £2.05 3. 60% 0.60%" 1570PRINT"£100.00-£144.99 £3.19 5. 60% 2.60%" 1580PRINT"£145.00-£199.99 £4.33 7. 60% 4.60%" 1590PRINT"£200.00-£430.00 £5.81 10. 20% 7.20%" 1600PRINT" Over £430.00 £5.81 10. 20%10.20%" 1610ENDPROC 1620DEFPROC8 1630PROCheader("Nat.Ins.Cont.Self-Emplo yed") 1640PRINT'" Class 2 Contributions :-" 1650PRINT'" £5.65 a week." 1660PRINT"Net earnings exception £3,200 " 1670PRINT'" Class 3. Voluntary Contribu tions :-" 1680PRINT'" £5.55 a week." 1690PRINT'" Class 4 Contributions :-" 1700PRINT'" 7.30% (profits related)" 1710PRINT"Lower limit profit or gains £ 6,490" 1720PRINT"Upper limit profit or gains £ 22,360" 1730ENDPROC 1740DEFPROC9 1750PROCheader("Pensions & Widows") 1760PRINT'" Retirement Pension" 1770PRINT" Weekly B enefits" 1780PRINT" 1993/94 1994/95" 1790PRINT"Single Person £56.10 £57.60" 1800PRINT"Married Couple £89.80 £92.10" 1810PRINT"Age 80 addition 0.25 0.25" 1820PRINT'" Widow's" 1830PRINT'"Widow's Pension (max) £56.10 £57.60" 1840PRINT"Wid. Mother's Allow. £56.10 £57.60" 1850PRINT"Wid.Payment(lump sum) £1000 £1000" 1860ENDPROC 1870DEFPROC10 1880PROCheader("Child and Maternity Ben .") 1890PRINT'" Weekly Benefits" 1900PRINT" 1993/94 1994/95" 1910PRINT'" Child Benefit" 1920PRINT'"First Child £10.00 £10.20" 1930PRINT"Each subsequent child £ 8.10 £ 8.25" 1940PRINT"Single Parent Benefit.£ 6.05 £ 6.15" 1950PRINT"Child Special Allow. £10.95 £11.00" 1960PRINT'" Maternity Allowance" 1970PRINT'"Maternity Allowance £43. 75 £44.55" 1980PRINT"Statutory Maternity Pay £47.9 5 £48.80" 1990PRINT'"Mat.Payment(lump sum) £100. 00 £100.00" 2000ENDPROC 2010DEFPROC11 2020PROCheader("Unemployed and Sickness ") 2030PRINT'" Unemployment Weekly Benefits" 2040PRINT" Benefit 1993/94 1994/95" 2050PRINT"Single Person £44.65 £45.45" 2060PRINT"Married Couple £72.20 £73.50" 2070PRINT'" Sickness" 2080PRINT"Benefit £42.70 £43.45" 2090PRINT'" Statutory Sick Pay" 2100PRINT"Standard Rate £52.50 £52.50" 2110PRINT"Lower Rate £46.95 £47.80" 2120PRINT'" Invalidity" 2130PRINT"Benefit £56.10 £57.60" 2140PRINT"Allowances" 2150PRINT" Higher Rate £11.95 £12.15" 2160PRINT" Middle Rate £ 7.50 £ 7.60" 2170PRINT" Lower Rate £ 3.75 £ 3.80" 2180ENDPROC 2190DEFPROC12 2200CLS:PRINTTAB(13,10)"Bye from Roy.": VDU23,1,1;0;0;0;:END 2210ENDPROC 2220DEFPROCROY 2230PRINT"   PROGRAM B Y ££££££££" 2240PRINT"     k 7e757£k" 2250PRINT"     s550!5u0£5" 2260PRINT"   p5u7t5upp5" 2270PRINT 2300ENDPROC 2310DEFPROCheader(header$) 2320IFLEN(header$)MOD2=1THENheader$=hea der$+CHR$32 2330RO%=LEN(header$):DI%=(28-RO%)/2:hea der$=STRING$(DI%," ")+header$+STRING$(DI %-1," "):PRINT"  ,,,,,,,,,l       ,,,,,,,,,,,,,,,,." 2340ENDPROC 2350DEFPROCSPACE1 2360*FX 15,0 2370rdd$=""+CHR$129+CHR$157+CHR$131+"Pr ess SPACE for menu "+CHR$156+CHR$13 2380PRINTTAB(6,23)rdd$ 2390REPEAT:UNTIL GET=32:CLS 2400ENDPROC 2410DEFPROCdouble(x$,x,y) 2420PRINTTAB(x-1,y);CHR$(141);x$ 2430PRINTTAB(x-1,y+1);CHR$(141);x$ 2440ENDPROC