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