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