home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / BOMBA / BOMBA5.MSA / BFOLDER_TX11 < prev    next >
Text File  |  2006-02-17  |  6KB  |  207 lines
  1.  
  2. 10    clearw 2:fullw 2
  3. 60    rem ADOZAS
  4. 70    REM
  5. 110   DIM A(17)
  6. 120   DIM A$(22)
  7. 130   A$(1)="1.FOALLASU JOVEDELEM...."
  8. 132   A$(2)="2.VEGKIELEGITES........."
  9. 134   A$(3)="3.ELET-NYUGDIJBIZTOSITAS"
  10. 140   A$(4)="4.TARSAS VALLALKOZAS...."
  11. 150   A$(5)="5.EGYENI VALLALKOZAS...."
  12. 160   A$(6)="6.MASODALLAS............"
  13. 170   A$(7)="7.TALALMANY............."
  14. 180   A$(8)="8.ALKOTO TEVEKENYSEG...."
  15. 190   A$(9)="9.MEZOGAZDASAG 2-MIL-IG."
  16. 200   A$(10)="10.INGATLAN ERTEKESITES"
  17. 210   A$(11)="11.INGO ERTEKESITES...."
  18. 220   A$(12)="12.VAGYONI ERTEKU JOG.."
  19. 230   A$(13)="13.1.ALBERLET.........."
  20. 240   A$(14)="14.BORRAVALO..........."
  21. 250   A$(15)="15.NYUGDIJ............."
  22. 260   A$(16)="16.MEZOGAZD.TAG POTLEK."
  23. 270   A$(17)="17.EGYEB JOVEDELMEK...."
  24. 271   B$(1)="17.1.ETKEZESI UTALVANY.."
  25. 272   B$(2)="17.2.ATVALLALT ALBERLET."
  26. 273   B$(3)="17.3.MUNKARUHA TERITES.."
  27. 274   B$(4)="17.4.SZOCIALIS SEGELY..."
  28. 275   B$(5)="17.5.ATVALLALT UDULESI K."
  29. 276   B$(6)="17.6.GEPKOCSIK.-TERITES."
  30. 277   B$(7)="17.7.BEDOLGOZOI K.-TERITES"
  31. 278   B$(8)="17.8.ONKORMANYZATI K.-TER."
  32. 279   B$(9)="17.9.MAS KOLTSEGTERITES."
  33. 280   B$(10)="17.10.MAS JOVEDELEM...."
  34. 285   A$(18)="18.OSSZES JOVEDELEM...."
  35. 290   A$(19)="39.OSSZES LEVONAS......"
  36. 300   A$(20)="57.LEVONAS AZ ADOBOL..."
  37. 310   A$(21)="44.OSSZES ADO.........."
  38. 320   A$(22)="107.ADOBEFIZETESEK....."
  39. 330   C$(1)="31.ALAPITVANY..........."
  40. 340   C$(2)="32.SULYOS FOGYATEKOSSAG."
  41. 350   C$(3)="33.MUNKAVALLALOI TAGDIJ."
  42. 360   C$(4)="34.MUNKAVALLALOI JARULEK"
  43. 370   C$(5)="35.HELYI ADOK..........."
  44. 380   C$(6)="36.GYERMEK KEDVEZMENY..."
  45. 390   C$(7)="37.MUNKAVALLALOI KAMAT.."
  46. 400   C$(8)="38.BEFEKTETES..........."
  47. 405   D$(1)="51.ALKALMAZOTTI ADOKEDV."
  48. 410   D$(2)="52.NYUGDIJ ADOJA........"
  49. 420   D$(3)="53.SZOVETK. TAGOK POTL."
  50. 430   D$(4)="54.LAKASCELU MEGTAKARITAS"
  51. 440   D$(5)="55.NYUGD- ES ELETBIZ.20%-A"
  52. 450   D$(6)="56.BIZTOSITAS 20%-A....."
  53. 451   E$(1)="62.ERTEKPAPIR ELID. ADOJA"
  54. 452   E$(2)="63.ERTEKP. ARFOLY.NYER.A"
  55. 453   E$(3)="64.KULFOLDI JOV. ADOJA"
  56. 454   E$(4)="65.HALASZTOTT ADO OSSZEGE"
  57. 455   F$(1)="102.KIFIZETOK ALTAL LEVONT"
  58. 456   F$(2)="103.TAVALYI VEGKIELEGITESE"
  59. 457   F$(3)="104.ERTEKP.ELAD.KOR LEVONT"
  60. 458   F$(4)="105.ON ALTAL BEFIZETETT.."
  61. 460   PRINT"JOVEDELMEK":PRINT
  62. 461   lprint "                         
  63.       ADOBEVALLAS 1991.":LPRINT:LPRINT
  64. 462   lprint "       JOVEDELMEK":LPRINT:
  65.       LPRINT
  66. 470   FOR I=1 TO 16
  67. 480   PRINT A$(I),:INPUT A(I)
  68. 481   lprint A$(I);A(I)
  69. 485   IF I=13 THEN ? "13.2.EPITMENY 
  70.       BERBEADAS";:INPUT A1: A(I)=A(I)+A1
  71. 486   if I=13 then lprint "13.2 EPITMENY 
  72.       BERBEADAS";A1
  73. 490   NEXT I
  74. 491   CLEARW 2:? A$(17):?:LPRINT: LPRINT 
  75.       A$(17):LPRINT
  76. 492   FOR I=1 TO 10
  77. 493   ? B$(I);:INPUT B(I): LPRINT B$(I);
  78.       B(I)
  79. 494   NEXT I
  80. 495   CLEARW 2:?"MEGOSZTOTT JOVEDELMEK":
  81.       ?: LPRINT: LPRINT "MEGOSZTOTT 
  82.       JOVEDELMEK":
  83. 496   INPUT "21.TALALMANY/ALKOTAS...";
  84.       M1: LPRINT: LPRINT "21.TALALMANY,
  85.       ALKOTAS...";M1
  86. 497   INPUT "22.INGATLAN ERTEKESITESBOL"
  87.       ;M3:MM=M1+M3: LPRINT"22.INGATLAN 
  88.       ERTEKESITESBOL";M3
  89. 500   CLEARW 2: ? "JOVEDELEM CSOKKENTO:"
  90.       : ?
  91. 501   LPRINT: LPRINT "JOVEDELEM 
  92.       CSOKKENTO:": LPRINT
  93. 510   FOR I=1 TO 8
  94. 520   ? C$(I);:INPUT C(I):LPRINT C$(I);
  95.       C(I)
  96. 530   NEXT I
  97. 540   CLEARW 2
  98. 550   ?"ADOCSOKKENTO:":? : LPRINT : 
  99.       LPRINT "   ADOCSOKKENTO":LPRINT
  100. 560   FOR I=1 TO 6
  101. 570   ? D$(I);:INPUT D(I):LPRINT D$(I);
  102.       D(I)
  103. 580   NEXT I
  104. 582   CLEARW 2:?:?"EGYEB ADOK:":? : 
  105.       LPRINT: LPRINT "   EGYEB ADOK":
  106.       LPRINT
  107. 584   FOR I=1 TO 4
  108. 586   ? E$(I);:INPUT E(I):LPRINT E$(I);
  109.       E(I)
  110. 588   NEXT I
  111. 600   ?:?"ADOELOLEGEK:":?: LPRINT:   
  112.       LPRINT "   ADOELOLEGEK":LPRINT
  113. 610   FOR I=1 TO 4
  114. 620   ? F$(I);:INPUT F(I):LPRINT F$(I);
  115.       F(I)
  116. 630   NEXT I
  117. 640   CLEARW 2
  118. 650   AA=0
  119. 660   FOR I=1 TO 16
  120. 670   AA=AA+A(I)
  121. 680   NEXT I
  122. 682   FOR I=1 TO 10
  123. 684   AA=AA+B(I)
  124. 686   NEXT I
  125. 690   CC=0
  126. 700   FOR I=1 TO 8
  127. 710   CC=CC+C(I)
  128. 720   NEXT I
  129. 730   LE=0
  130. 740   FOR I=1 TO 6
  131. 750   LE=LE+D(I)
  132. 760   NEXT I
  133. 762   KP=0
  134. 764   FOR I=1 TO 4
  135. 766   KP=KP+F(I)
  136. 768   NEXT I
  137. 770   AB=AA-CC
  138. 780   IF AB<55000 THEN GOTO 851
  139. 790   IF AB<90000 THEN GOTO 852
  140. 800   IF AB<120000 THEN GOTO 853
  141. 810   IF AB<150000 THEN GOTO 854
  142. 820   IF AB<300000 THEN GOTO 855
  143. 830   IF AB<500000 THEN GOTO 856
  144. 850   IF AB>=500000 THEN GOTO 858
  145. 851   ADO=0:GOTO 860
  146. 852   ADO=(AB-55000)*0.12 : MA=MM*0.12:
  147.       GOTO 860
  148. 853   ADO=((AB-90000)*0.18)+4200:MA=MM*
  149.       0.18:GOTO 860
  150. 854   ADO=((AB-120000)*0.30)+9600:MA=MM*
  151.       0.30:GOTO 860
  152. 855   ADO=((AB-150000)*0.32)+18600:MA=
  153.       MM*0.32:GOTO 860
  154. 856   ADO=((AB-300000)*0.40)+66600:MA=
  155.       MM*0.40:GOTO 860
  156. 858   ADO=((AB-500000)*0.50)+146600:MA=
  157.       MM*0.50:GOTO 860
  158. 860   ADO=INT(ADO)+MA
  159. 870   BEF=ADO-LE
  160. 872   FOR I=1 TO 4
  161. 874   BEF=BEF+E(I)
  162. 876   NEXT I
  163. 880   IF BEF>KP+99 THEN L$="108.A 
  164.       BEFIZETENDO ADO"
  165. 890   IF BEF<KP-99 THEN L$="109.A 
  166.       VISSZAJARO ADOELOLEG"
  167. 900   IF ABS(BEF-KP)<100 THEN L$="ON 
  168.       EGALBAN VAN"
  169. 910   IF BEF>KP+99 THEN FIZ=BEF-KP
  170. 920   IF BEF<KP-99 THEN FIZ=KP-BEF
  171. 930   IF ABS(BEF-KP)<100 THEN FIZ =0
  172. 940   ?"  AZ ON ADOJA":?: LPRINT:  
  173.       LPRINT"   AZ ON ADOJA":LPRINT
  174. 950   ? A$(18) TAB(30) AA :LPRINT 
  175.       A$(18);AA
  176. 960   ? A$(19) TAB(30) CC :LPRINT 
  177.       A$(19);CC
  178. 970   ? A$(21) TAB(30) ADO:LPRINT 
  179.       A$(21);ADO
  180. 980   ? A$(20) TAB(30) LE:LPRINT 
  181.       A$(20);LE
  182. 990   ? A$(22) TAB(30) KP :LPRINT 
  183.       A$(22);KP
  184. 1000  ? L$ TAB(30) FIZ :LPRINT L$;FIZ
  185.  
  186. (Beküldte: Kispál Antal)
  187.  
  188. O.M.Dee megjegyzései:
  189.  
  190. 1., Remélem, nem sértettünk szerzôi jo-
  191.     gokat a program leközlésével. Érzé-
  192.     sem szerint ez csak egy átirat. 
  193.     Ezúton is üdvözlöm az eredeti prog-
  194.     ram szerzôjét.
  195.     Ha tisztelt olvasónk, Kispál Antal 
  196.     írta volna, akkor ez a paragrafus
  197.     hatályát veszti.
  198.  
  199. 2., A program az 1991-ben érvényes
  200.     adózási rend szerint íródott.
  201.     Vállalkozó kedvû olvasóink módosít-
  202.     hatják - örömmel vennénk a 94-es
  203.     verziót. E sorok írójának is köny-
  204.     nyebbé tenné az életét!
  205.  
  206. {[The End]}
  207.