Amiga Dünyası sayı 8, sayfa 75

Bu sayfadaki yazılar

Sayfanın metni

Sayfa 75

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

Klavyeyle gezinmek için ← ve → tuşları.