10  
   20 :
   30 :
   40 :
   50 REM "…PROGRAM FOR 8-BIT SOFTWARE                …BY RUSHDEN ROY (20G)                  … A 'L'PLATE PROGRAMER! 
   60 *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 1992/1993",11,14)
  140 PRINT''"   †(Errors and omissions excepted.)      †For additional information please     †   check with goverment offices."  
  150 PROCSPACE1
  160 CLS
  170 PROCheader("MENU ")
  180 PRINTTAB(0,6)"†TAX DATA :-"
  190 PRINT"� 1,ƒIncome Payments."
  200 PRINT" �2,ƒIncome Reliefs. "
  210 PRINT"� 3,ƒMortgage, Business & Equity Plan."
  220 PRINT" �4,ƒCapital Gains Tax."
  230 PRINT" �5,ƒMain Corporation Rates."
  240 PRINT" �6,ƒPersonal Pension Premium."
  250 PRINT'"†NATIONAL INSURANCE DATA :-"
  260 PRINT" �7,ƒNat.Ins.Cont.Employees/ers."
  270 PRINT" �8,ƒNat.Ins.Cont.Self-Employed."
  280 PRINT" �9,ƒPensions and Widows Benefits."
  290 PRINT"�10,ƒChild and Maternity Benefits."
  300 PRINT"�11,ƒUnemployed and Sickness Benefits."
  310 PRINTTAB(5,23)CHR$129+CHR$157+CHR$131+" Press 1-11 <RETURN>       "+CHR$156+CHR$13  
  320 REPEAT:INPUTTAB(28,23)"ƒˆ?‰"opt:IF opt>11 SOUND1,1,180,1:GOTO 310:UNTILopt>=1ANDopt<12 
  330 ON ERROR SOUND1,1,180,1:GOTO 310
  340 ONoptGOTO360,490,670,860,1020,1110,1270,1470,1570,1690,1840
  350 END
  360 CLS
  370 PROCheader("INCOME TAX")
  380 PRINT'" �  1991/92       :        1992/93"
  390 PRINT"�   BAND OF       :        BAND OF"
  400 PRINT"�TAXABLE INCOME   :     TAXABLE INCOME"
  410 PRINT"                  :     `0-`2,000    20%"
  420 PRINT"  `0-`23,700 25%  :   `2,001-`23,700 25%"
  430 PRINT"OVER `23,700 40%  :    OVER `23,700  40%"
  440 PRINT"        ------------------------"
  450 PRINT'"Independent Taxation for Married Couples"
  460 PRINT"All married couples are taxed independe-ntly, each partner receiving  a  single person's allowance."
  470 PROCSPACE1
  480 END
  490 CLS
  500 PROCheader("Main Income Tax Reliefs")
  510 PRINT'"�Personal               1991/2   1992/3"
  520 PRINT"�Age under 65"
  530 PRINT"Personnal  Allowance     `3295    `3445"
  540 PRINT"Married Couple's Allow.  `1720    `1720"
  550 PRINT"Single Parent,Widows etc `1720    `1720"
  560 PRINT"�Age 65 - 74ƒ*"
  570 PRINT"Personal Allowance       `4020    `4200"
  580 PRINT"Married Couple's Allow.  `2355    `2465"
  590 PRINT"�Age 75 and overƒ*"
  600 PRINT"Personal Allowance       `4180    `4370"
  610 PRINT"Married Couple's Allow.  `2395    `2505" 
  620 PRINT'"ƒ*‡Excess relief above standard."  
  630 PRINT"Personal Allowance reduced by one half"
  640 PRINT"of income over           `13500  `14200"
  650 PROCSPACE1
  660 END
  670 CLS
  680 PROCheader("Mort., Business & Equity")
  690 PRINT'"�Morgage Interest         1991/2 1992/3"
  700 PRINT"Main res. allowable loan  `30000 `30000"
  710 PRINT"( 1 only per residence) basic rate only"
  720 PRINT
  730 PRINT"�Business Expansion Scheme"
  740 PRINT"Max. Investment Allowable `30000 `30000"
  750 PRINT" B.E.S. to cease after 31/12/93"
  760 PRINT
  770 PRINT"�Personal Equity Plan"
  780 PRINT"Max. yearly investment allowable"
  790 PRINT"                          `9000  `9000"
  800 PRINT"Including `3000 in single company PEP"
  810 PRINT
  820 PRINT"Max. allowed in qualifying Unit Trusts"
  830 PRINT"or Investment Trusts      `3000  `6000"
  840 PROCSPACE1
  850 END
  860 CLS
  870 PROCheader("Capital Gains Tax")
  880 PRINT'"�Individuals"
  890 PRINT"Nil on first `5800 (`5500 in 1991/92)"
  900 PRINT"Income tax rate thereafter."
  910 PRINT"Note:-"
  920 PRINT"Exemption applies to each individual."
  930 PRINT
  940 PRINT"�Most Trusts"
  950 PRINT"Nil on first `2900 (`2750 in 1991/92)"
  960 PRINT"Income tax rate thereafter."
  970 PRINT
  980 PRINT"�Companies"
  990 PRINT"Corporation tax rate."
 1000 PROCSPACE1
 1010 END
 1020 CLS
 1030 PROCheader("Corporation Tax Rates.")
 1040 PRINT'"�Year Ending 31/3/1993"
 1050 PRINT'"�Profits                Rate"
 1060 PRINT"Up to `250,000          25%"
 1070 PRINT"`250,000 - `1,250,000   35%"
 1080 PRINT"`1,250,000 and over     33%"
 1090 PROCSPACE1
 1100 END
 1110 CLS
 1120 PROCheader("Personal Pens. Premium.")
 1130 PRINT'"�Premiums with tax relief"
 1140 PRINT
 1150 PRINT"�    Age              1992/93"
 1160 PRINT"  35 or less          17.5% of income"  
 1170 PRINT"  36 - 45               20%"
 1180 PRINT"  46 - 50               25%"
 1190 PRINT"  56 - 60               35%"
 1200 PRINT"  61 - 75               40%"
 1210 PRINT
 1220 PRINT"Life Assurance Content   5%"
 1230 PRINT"Based on Maximum Earnings `75,000"
 1240 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."
 1250 PROCSPACE1
 1260 END
 1270 CLS
 1280 PROCheader("Nat.Ins.Cont. EEs & ERs.")
 1290 PRINT'"�Employees Class 1        1992/93"
 1300 PRINT"†Total Weekly    Rate on       Rate on"
 1310 PRINT"†  Earnings    first `54.00    Balance"
 1320 PRINT"                            ƒContracted"
 1330 PRINT"                             ƒIn    Out"
 1340 PRINT"`00.00-`53.99       Nil       Nil   Nil"
 1350 PRINT"`54.00-`405.00       2%       9%    7%"
 1360 PRINT"`405.00+  tot.weekly cont.`32.67 `25.65"
 1370 PRINT'"�Employers Class 1 "
 1380 PRINT"`00.00-`53.99       Nil       Nil   Nil"
 1390 PRINT"`54.00-`89.99      4.60%    4.60% 0.80%"
 1400 PRINT"`90.00-``134.99    6.60%    6.60% 2.80%"
 1410 PRINT"`135.00-`189.99    8.60%    8.60% 4.80$"
 1420 PRINT"`190.00-`405.00   10.40%   10.40% 6.60%"
 1430 PRINT"Over `405.00      10.40%   10.40%`28.78"
 1440 PRINT"                                per week"
 1450 PROCSPACE1
 1460 END
 1470 CLS
 1480 PROCheader("Nat.Ins.Cont.Self-Employed")
 1490 PRINT'"�Class 2 Contributions :-"
 1500 PRINT'"  `5.35 a week."
 1510 PRINT"  (net earnings over `3,030 a year)"
 1520 PRINT'"�Class 4 Contributions :-"
 1530 PRINT'"  6.3% of profits or gains between"
 1540 PRINT"   `6,120 and `21,060"
 1550 PRINT'"Note:   50% of Class 4 Contributions         are allowed as a relief against         taxable income."
 1560 PROCSPACE1
 1570 CLS
 1580 PROCheader("Pensions & Widows")
 1590 PRINT'"�Retirement Pension"
 1600 PRINT"�                     Weekly Benefits"
 1610 PRINT"                   �  1991/2 1992/93"
 1620 PRINT"Single Person         `52.00  `54.15"
 1630 PRINT"Married Couple        `83.25  `86.70"
 1640 PRINT'"�Widow's"
 1650 PRINT'"Widow's Pension (max) `52.00  `54.15"
 1660 PRINT"Wid. Mother's Allow.  `52.00  `54.15"
 1670 PRINT"Wid.Payment(lump sum) `1000   `1000"
 1680 PROCSPACE1
 1690 CLS
 1700 PROCheader("Child and Maternity Ben.")
 1710 PRINT'"�                     Weekly Benefits"
 1720 PRINT"                   �  1991/2 1992/93"
 1730 PRINT'"�Child Benefit"
 1740 PRINT'"First Child           ` 9.25  ` 9.65"
 1750 PRINT"Other Children        ` 7.50  ` 7.80"
 1760 PRINT"Child Special Allow.  `10.70  `10.85"
 1770 PRINT'"�Maternity Allowance"
 1780 PRINT'"Maternity Allowance   `40.60  `42.25"
 1790 PRINT"Satutory Maternity Pay"
 1800 PRINT"         (lower rate) `44.50  `45.30"
 1810 PRINT'"Mat.Payment(lump sum)`100.00 `100.00"
 1820 PROCSPACE1
 1830 END
 1840 CLS
 1850 PROCheader("Unemployed and Sickness")
 1860 PRINT'"�Unemployment Benefit"
 1870 PRINT"�                     Weekly Benefits"
 1880 PRINT"                   �  1991/2 1992/93"
 1890 PRINT"Single Person         `41.40  `43.10"
 1900 PRINT"Married Couple        `66.95  `69.70"
 1910 PRINT'"�Sickness Benefit"
 1920 PRINT"Single Person         `39.60  `41.20"
 1930 PRINT'"�Statutory Sick Pay"
 1940 PRINT"Standard Rate         `52.50  `52.50"
 1950 PRINT"Lower Rate            `43.50  `45.30"
 1960 PROCSPACE1
 1970 END
 1980 DEFPROCROY
 1990 PRINT"“7`+47``57k`5 ````` PROGRAM BY ````````"
 2000 PRINT"’5b(55( 5m h%7`+4757`k 7k`57`k 7e757`k"
 2010 PRINT"‘uzp5upp5jpz 5( 5555js05 n15bs550!5u0`5"
 2020 PRINT"“ppppppppppp upp5u5upp5uzp5upp5u7t5upp5"
 2030 PRINT
 2040 PRINT"‚         FOR 8-BIT SOFTWARE"
 2050 PRINT"‚1 Oakwood Drive Heaton BOLTON BL1 5EE"'
 2060 ENDPROC
 2070 DEFPROCheader(header$)
 2080 IFLEN(header$)MOD2=1THENheader$=header$+CHR$32
 2090 RO%=LEN(header$):DI%=(28-RO%)/2:header$=STRING$(DI%," ")+header$+STRING$(DI%-1," "):PRINT"   ”¼,,,,,,,,,,,,,,,,,,,,,,,,,,,,,l       �”5ƒ";header$"”ê       �”5ƒ";header$;"”ê       �”-,,,,,,,,,,,,,,,,,,,,,,,,,,,,,." 
 2100 ENDPROC
 2110 DEFPROCSPACE1
 2120 *FX 15,0
 2130 rdd$=""+CHR$129+CHR$157+CHR$131+"Press SPACE for menu  "+CHR$156+CHR$13
 2140 PRINTTAB(6,23)rdd$
 2150 REPEAT:UNTIL GET=32:CLS:GOTO170
 2160 ENDPROC
 2170 DEFPROCdouble(x$,x,y)
 2180 PRINTTAB(x-1,y);CHR$(141);x$
 2190 PRINTTAB(x-1,y+1);CHR$(141);x$
 2200 ENDPROC