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