10 REM VAT Calculator
20 REM By S.Johnson
30 REM April 91
100 MODE7
105VDU 23,0,10,32,0,0,0,0,0,0
110 CLS
130PROCinfo
140 G=GET
150PROCmain
180 END
500DEFPROCmain
510CLS
520PROCtitle
521p=7
530PRINT TAB(2,6)CHR$(130)"Ex-Vat";TAB
(16,6)CHR$(135)"VAT";TAB(28,6)CHR$(130)"
Total"
540REPEAT
545@%=&020208
550 PRINTTAB(0,23) CHR$(132)CHR$(157)C
HR$(135)"Enter Total"SPC2CHR$(156)
552INPUT TAB(17,23);t
555IF t<0 THEN GOTO 610
560p=p+1
565 nett=FNcalc(t)
570 IF t<10 THEN PRINT TAB(4,p)CHR$(13
0);nett;TAB(16,p)CHR$(135);t-nett;TAB(29
,p)CHR$(130);t
571 IF t>=10 AND t<11.75 THEN PRINT TA
B(4,p)CHR$(130);nett;TAB(16,p)CHR$(135);
t-nett;TAB(28,p)CHR$(130);t
572 IF t>11.74 AND t<67.11 THEN PRINT
TAB(3,p)CHR$(130);nett;TAB(9,p)" ";TAB(
16,p)CHR$(135);t-nett;TAB(28,p)CHR$(130)
;t;TAB(34,p)" "
573 IF t>67.10 AND t<117.50 THEN PRINT
TAB(3,p)CHR$(130);nett;TAB(9,p)" ";TAB(
15,p)CHR$(135);t-nett;TAB(21,p)" ";TAB(2
8,p)CHR$(130);t;TAB(34,p)" "
574 IF t>99.99 AND t<117.50 THEN PRINT
TAB(3,p)CHR$(130);nett;TAB(9,p)" ";TAB(
15,p)CHR$(135);t-nett;TAB(21,p)" ";TAB(2
7,p)CHR$(130);t;TAB(34,p)" "
575 IF t>117.49 AND t<671.40 THEN PRIN
T TAB(2,p)CHR$(130);nett;TAB(9,p)" ";TA
B(15,p)CHR$(135);t-nett;TAB(21,p)" ";TAB
(27,p)CHR$(130);t;TAB(34,p)" "
576 IF t>671.39 AND t<1000.00 THEN PRI
NT TAB(2,p)CHR$(130);nett;TAB(9,p)" ";T
AB(14,p)CHR$(135);t-nett;TAB(21,p)" ";TA
B(27,p)CHR$(130);t;TAB(34,p)" "
577 IF t>999.99 AND t<1175.00 THEN PRI
NT TAB(2,p)CHR$(130);nett;TAB(9,p)" ";T
AB(14,p)CHR$(135);t-nett;TAB(21,p)" ";TA
B(26,p)CHR$(130);t;TAB(34,p)" "
578 IF t>1174.99 THEN PRINT TAB(1,p)CH
R$(130);nett;TAB(9,p)" ";TAB(14,p)CHR$(
135);t-nett;TAB(21,p)" ";TAB(26,p)CHR$(1
30);t;TAB(34,p)" "
579 IF t>6714.25 THEN PRINT TAB(1,p)CH
R$(130);nett;TAB(9,p)" ";TAB(13,p)CHR$(
135);t-nett;TAB(21,p)" ";TAB(26,p)CHR$(1
30);t;TAB(34,p)" "
580 IF t>9999.99 THEN PRINT TAB(1,p)CH
R$(130);nett;TAB(9,p)" ";TAB(13,p)CHR$(
135);t-nett;TAB(21,p)" ";TAB(25,p)CHR$(1
30);t;TAB(34,p)" "
581 IF t>11749.99 AND t<67142.82 THEN
PRINT TAB(0,p)CHR$(130);nett;TAB(9,p)"
";TAB(13,p)CHR$(135);t-nett;TAB(21,p)" "
;TAB(25,p)CHR$(130);t;TAB(34,p)" "
582 IF t>67142.82 AND t<100000.00 THEN
PRINT TAB(0,p)CHR$(130);nett;TAB(9,p)"
";TAB(12,p)CHR$(135);t-nett;TAB(21,p)"
";TAB(25,p)CHR$(130);t;TAB(34,p)" "
583 IF t>99999.99 THEN PRINT TAB(0,p)C
HR$(131)"Have you just bought a Rolls Ro
yce ?"
610PRINT TAB(17,23)"
"
650 UNTIL p=21
660 PRINT TAB(0,23) CHR$(132)CHR$(157)
CHR$(135)"Screen Full Press Any Key To C
lear"
670G=GET
680GOTO 500
700ENDPROC
1100DEFPROCtitle
1110CLS
1120PRINTTAB(7) CHR$(141)CHR$(129)CHR$(
157)CHR$(135)" VAT Calculator"SPC3CHR$(1
56);TAB(7)CHR$(141)CHR$(129)CHR$(157)CHR
$(135)" VAT Calculator"SPC3CHR$(156)
1140ENDPROC
1200DEFPROCinfo
1210CLS
1220PROCtitle
1230PRINT''"Quite often reciepts and in
voices only show a total with VAT inclu
sive."
1231PRINT'"Enter the total and this pro
gram will calculate the PRE-VAT price
and the amount of VAT paid."
1232PRINT'"The rate of VAT used for thi
s program is17.5%."
1240 PRINTTAB(8,23) CHR$(135)CHR$(157)C
HR$(132)CHR$(136)"Press Any Key"SPC3CHR$
(156)
1270 ENDPROC
1500DEFFNcalc(t)
1510=(t*17.5)/20.5625