10: 20: 30: 40: 50REM " PROGRAM BY RUSHDEN ROY A 'L'PLATE PROGRAMER! (SOLINET 125 - 8-BIT 20G) 60*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 1993/1994",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." 190PRINT" 2, Income Reliefs. " 200PRINT" 3, Mortgage, Business & Equ ity Plan." 210PRINT" 4, Capital Gains Tax." 220PRINT" 5, Main Corporation Rates." 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." 300PRINTTAB(0,23)CHR$129+CHR$157+CHR$1 31+" Enter 1 to 11 <RETURN> " 310REPEAT:INPUTTAB(27,23)" ? "opt:IF opt<1ORopt>11SOUND1,1,180,1:PRINTTAB(27, 23)" ? (1-11)" 320UNTILopt>=1 ANDopt<=11:CLS 325REM Help from Cris Richardson with the menu (got rid of the goto's) thanks Chris. 330IF opt=1 PROC1 340IF opt=2 PROC2 350IF opt=3 PROC3 360IF opt=4 PROC4 370IF opt=5 PROC5 380IF opt=6 PROC6 390IF opt=7 PROC7 400IF opt=8 PROC8 410IF opt=9 PROC9 420IF opt=10 PROC10 430IF opt=11 PROC11 440UNTILFALSE 450DEFPROC1 460PROCheader("INCOME TAX") 470PRINT'" 1992/93 : 1 993/94" 480PRINT" BAND OF : BA ND OF" 490PRINT" TAXABLE INCOME : TAXAB LE INCOME" 500PRINT" £0-£2,000 20%: £0- £2,500 20%" 510PRINT"£2,001-£23,700 25%: £2,501- £23,700 25%" 520PRINT" OVER £23,700 40%: OVER £ 23,700 40%" 530PRINT" --------------------- ---" 540PRINT'"Independent Taxation for Mar ried Couples" 550PRINT"All married couples are taxed independe-ntly, each partner receiving a single person's allowance." 560ENDPROC 570DEFPROC2 580PROCheader("Main Income Tax Reliefs ") 590PRINT'" Personal 1992 /3 1993/4" 600PRINT" Age under 65" 610PRINT"Personnal Allowance £344 5 £3445" 620PRINT"Married Couple's Allow. £172 0 £1720" 630PRINT"Single Parent,Widows etc £172 0 £1720" 640PRINT" Age 65 - 74 *" 650PRINT"Personal Allowance £420 0 £4200" 660PRINT"Married Couple's Allow. £246 5 £2465" 670PRINT" Age 75 and over *" 680PRINT"Personal Allowance £437 0 £4370" 690PRINT"Married Couple's Allow. £250 5 £2505" 700PRINT'" * Excess relief above stand ard." 710PRINT"Personal Allowance reduced by one half" 720PRINT"of income over £142 00 £14200" 730ENDPROC 740DEFPROC3 750PROCheader("Mort., Business & Equit y") 760PRINT'" Morgage Interest 19 92/3 1993/4" 770PRINT"Main res. allowable loan £30 000 £30000" 780PRINT"( 1 only per residence) basic rate only" 790PRINT 800PRINT" Business Expansion Scheme" 810PRINT"Max. Investment Allowable £40 000 £40000" 820PRINT" B.E.S. to cease after 31/12/ 93" 830PRINT 840PRINT" Personal Equity Plan" 850PRINT"Max. yearly investment allowa ble" 860PRINT" £90 00 £9000" 870PRINT"Including £3000 in single com pany PEP" 880PRINT 890PRINT"Max. allowed in qualifying Un it Trusts" 900PRINT"or Investment Trusts £60 00 £6000" 910ENDPROC 920DEFPROC4 930PROCheader("Capital Gains Tax") 940PRINT'" Individuals" 950PRINT"Nil on first £5800 (£5800 in 1992/93)" 960PRINT"Income tax rate thereafter." 970PRINT"Note:-" 980PRINT"Exemption applies to each ind ividual." 990PRINT 1000PRINT" Most Trusts" 1010PRINT"Nil on first £2900 (£2900 in 1992/93)" 1020PRINT"Income tax rate thereafter." 1030PRINT 1040PRINT" Companies" 1050PRINT"Corporation tax rate." 1060ENDPROC 1070DEFPROC5 1080PROCheader("Corporation Tax Rates." ) 1090PRINT'" Year Ending 31/3/1994" 1100PRINT'" Profits Rate " 1110PRINT"Up to £250,000 25%" 1120PRINT"£250,000 - £1,250,000 35%" 1130PRINT"£1,250,000 and over 33%" 1140ENDPROC 1150DEFPROC6 1160PROCheader("Personal Pens. Premium. ") 1170PRINT'" Premiums with tax relief" 1180PRINT 1190PRINT" Age 1993/94 " 1200PRINT" 35 or less 17.5% o f income" 1210PRINT" 36 - 45 20%" 1220PRINT" 46 - 50 25%" 1230PRINT" 56 - 60 35%" 1240PRINT" 61 - 75 40%" 1250PRINT 1260PRINT"Life Assurance Content 5%" 1270PRINT"Based on Maximum Earnings £75 ,000" 1280PRINT'"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." 1290ENDPROC 1300DEFPROC7 1310PROCheader("Nat.Ins.Cont. EEs & ERs .") 1320PRINT'" Employees Class 1 19 93/94" 1330PRINT" Total Weekly Rate on Rate on" 1340PRINT" Earnings first £56.00 Balance" 1350PRINT" Contracted" 1360PRINT" In Out" 1370PRINT"£ 00.00-£ 55.99 Nil Nil Nil" 1380PRINT"£ 56.00-£420.00 2% 9% 7.20%" 1390PRINT"£420.00+ tot.weekly cont. £33 .88 £27.33" 1400PRINT'" Employers Class 1 " 1410PRINT"£ 00.00-£ 55.99 Nil Nil Nil" 1420PRINT"£ 56.00-£ 94.99 4.60% 4 .60% 1.60%" 1430PRINT"£ 95.00-£139.99 6.60% 6 .60% 3.60%" 1440PRINT"£140.00-£194.99 8.60% 8 .60% 5.60%" 1450PRINT"£195.00-£420.00 10.40% 10 .40% 7.40%" 1460PRINT" Over £420.00 10.40% 10 .40%10.40%" 1470ENDPROC 1480DEFPROC8 1490PROCheader("Nat.Ins.Cont.Self-Emplo yed") 1500PRINT'" Class 2 Contributions :-" 1510PRINT'" £5.55 a week." 1520PRINT" (net earnings over £3,140 a year)" 1530PRINT'" Class 4 Contributions :-" 1540PRINT'" 6.3% of profits or gains b etween" 1550PRINT" £6,340 and £21,840" 1560ENDPROC 1570DEFPROC9 1580PROCheader("Pensions & Widows") 1590PRINT'" Retirement Pension" 1600PRINT" Weekly Benefits" 1610PRINT" 1992/93 1993/94" 1620PRINT"Single Person £54.15 £56.10" 1630PRINT"Married Couple £86.70 £89.80" 1640PRINT'" Widow's" 1650PRINT'"Widow's Pension (max) £54.15 £56.10" 1660PRINT"Wid. Mother's Allow. £54.15 £56.10" 1670PRINT"Wid.Payment(lump sum) £1000 £1000" 1680ENDPROC 1690DEFPROC10 1700PROCheader("Child and Maternity Ben .") 1710PRINT'" Weekly Benefits" 1720PRINT" 1992/93 1993/94" 1730PRINT'" Child Benefit" 1740PRINT'"First Child £ 9.65 £10.00" 1750PRINT"Other Children £ 7.80 £ 8.10" 1760PRINT"Child Special Allow. £10.85 £10.95" 1770PRINT'" Maternity Allowance" 1780PRINT'"Maternity Allowance £42.25 £43.75" 1790PRINT"Satutory Maternity Pay" 1800PRINT" (lower rate) £46.30 £47.95" 1810PRINT'"Mat.Payment(lump sum)£100.00 £100.00" 1820ENDPROC 1830DEFPROC11 1840PROCheader("Unemployed and Sickness ") 1850PRINT'" Unemployment Benefit" 1860PRINT" Weekly Benefits" 1870PRINT" 1992/93 1993/94" 1880PRINT"Single Person £43.10 £44.65" 1890PRINT"Married Couple £69.70 £72.20" 1900PRINT'" Sickness Benefit" 1910PRINT"Single Person £41.20 £42.70" 1920PRINT'" Statutory Sick Pay" 1930PRINT"Standard Rate £52.50 £52.50" 1940PRINT"Lower Rate £45.30 £46.95" 1950ENDPROC 1960DEFPROCROY 1970PRINT"   PROGRAM B Y ££££££££" 1980PRINT"     k 7e757£k" 1990PRINT"     s550!5u0£5" 2000PRINT"   p5u7t5upp5" 2010PRINT 2020REMPRINT" FOR 8-BIT SOFTWA RE" 2030REMPRINT" 1 Oakwood Drive Heaton BO LTON BL1 5EE"' 2040ENDPROC 2050DEFPROCheader(header$) 2060IFLEN(header$)MOD2=1THENheader$=hea der$+CHR$32 2070RO%=LEN(header$):DI%=(28-RO%)/2:hea der$=STRING$(DI%," ")+header$+STRING$(DI %-1," "):PRINT"  ,,,,,,,,,l        ,,,,,,,,,,,,,,,,." 2080ENDPROC 2090DEFPROCSPACE1 2100*FX 15,0 2110rdd$=""+CHR$129+CHR$157+CHR$131+"Pr ess SPACE for menu "+CHR$156+CHR$13 2120PRINTTAB(6,23)rdd$ 2130REPEAT:UNTIL GET=32:CLS 2140ENDPROC 2150DEFPROCdouble(x$,x,y) 2160PRINTTAB(x-1,y);CHR$(141);x$ 2170PRINTTAB(x-1,y+1);CHR$(141);x$ 2180ENDPROC