VERGİ İADESİ

• Ofis programları
• Program dökümü

Amiga'cı arkadaşımız BURAK DOĞAN tarafından dergimize gönderilen vergi iadesi hesaplama programını, sizlere yararlı olacağını düşünerek yayınlıyoruz. Programı yazıp çalıştırdığınızda, açıklanması gereken bir şey olmadığını göreceksiniz. Ne dersiniz? Artık vergi iadelerimizi Amiga'ya hesaplatalım mı?

BURAK DOĞAN, bu satırlardan teşekkür ederken, bizimle ilişkiye geçmenizi rica ediyoruz.

10 REM ********************************************** 
20 REM * 
Vergi İade Programı 
30 REM * 
Hazirlayan 
40 REM * 
BURAK TUGAN 
45 REM* 
Haziran/1990 
50 REM *********************************************** 
110 SCREEN 1,640,200,3,2 
120 WINDOW 4," 
Vergi iadesi",(164,0)-(627,186),0,1 
130 WINDOW 3,'TOPLAM        ADET",(5,150)-(150,186),0,1 
140 WINDOW 2, "Fatura miktari",(5,0)-(150,134),0,1 
1000 WINDOWOUTPUT2 
1002 PRINT "   ";:INPUT a:IF a<0 THEN c=c-2 
1003 IF a=0 THEN a=b:GOTO 3000 
1004 WINDOWOUTPUT3 
1010 b=b+a:c=c+1 
1020 PRINT"   ,,;:PRINTUSING"#######";b;:PRINT"   ";c 
1022 GOTO 1000 
3000 WINDOW OUTPUT 4 
3010 LOCATE 22,15:PRINT " (A)ylik — (U)c aylik    " 
3020 z$=INKEY$:z$=UCASE$(z$) 
3030 IF z$="A" THEN j=1 :GOTO 3060 
3140 IF z$="U" THEN j=3:GOTO 3060 
3150 GOTO 3020 
3060 CLS 
3070b=30000*j:c=30000*j:d=40000&*j 
3080 IF a>b THEN f=a-b:aa=30000*j 
3090 IF a>b+c THEN y=f-c:ff=30000*j 
3100 IF a>b+c+d THEN u=y-d:yy=40000&*j:uu=a-yy 
3110 IF a>=b THEN s=6000*j 
3120 IF f>=c THEN v=4500*j 
3130 IF y>=d THEN g=4000*j 
3140 IF a<b THEN s=a*.2:aa=a 
3150 IF f<c THEN v=f*.15:ff=a-aa 
3160 IF y<d THEN g=y*.1 :yy=a-ff-aa 
3170 IF 1<u THEN q=u*.05:uu=a-aa-ff-yy 
3172 a$(1)="      0-30.000 arası        ":a$(3)="       0-90.000 arası 
3174 b$(1)="      30.000-60.000 arasi   ":b$(3)="       90.000-180.000 arasi " 
3176 c$(1)="      60.000-100.000 arasi ":c$(3)="       180.000-300.000 arasi " 
3178 d$(1)="      100.000'den yukarısı ":d$(3)="      300.000'den yukarisi " 
3180 PRINT :PRINT :PRINT :PRINT "      ----------------------------------------- " 
3190 PRINT a$(j);:PRINT USING "#######";aa;:PRINT "    ";:PRINT USING "#######,,;s 
3200 PRINT b$(j);:PRINT USING "#######";ff;:PRINT "    ";:PRINT USING "#######'> 
3210 PRINT c$(j);:PRINT USING "#######";yy;:PRINT "    ";:PRINT USING "######T;g 
3220 PRINT d$(j);:PRINT USING "#######";uu;:PRINT "    ";:PRINT USING "#######";q 
3230 PRINT "      ----------------------------------------- " 
3240 w=s+v+g+q:w=INT(w) 
3250 PRINT "       T O P L A M 
";:PRINT USING "#######";aa+ff+yy+uu;:PRINT" 
";:PRINT USING "#######M;w 
3260 m=w*.005:m=INT(m) 
3270 PRINT :PRINT "      kesinti (damga resmi) ";:PRINT " 
";:PRINT USING"#######";m 
3280 z=w-m :z=INT(z/50)*50:PRINT :PRINT 
3282 PRINT " ----------------------------------------------- " 
3290 PRINT "       ELE GECEN (NET) ";:PRINT" 
";:COLOR 3,0:PRINT USING 
"#######";z:COLOR1,0 
3300 PRINT "      ------------------------------------------ " 
3310 PRINT :PRINT :PRINT :PRINT "      (C)lkis — (D)evam" 
3330 z$=INKEY$:z$=UCASE$(z$) 
3340 IF z$="C" THEN SCREEN CLOSE 1:CLS:SYSTEM 
3350 IF z$="D" THEN RUN 
3360 GOTO 3330