Sayfa 77

1230 RESTORE 1210.FOR P=1 TO 12.READ AY$(P):NEXT P 1240 CLS:RESTORE:LOCATE 5,1 :GOSUB 1650 1250 ON S GOSUB 110,300,1420,1320,3000,1990 1300 GOTO 1200 1^10 REM *************** KAYIT ************* 1330 OPEN AYY$ FOR OUTPUT AS #1 1340 WRITE #1,BOL 1350WRITE#1,GELIR 1360 FOR X=1 TO 10:WRITE#1,A(X):NEXT X 1390 CLOSE #1 1400 RETURN 1410 REM *************** OKUMA ************** 1430 CLS.LOCATE 11, 0:INPUT "HANGI AY :";AYY$ 3 1460 OPEN T\#1,AYY$ 1470 INPUT #1,BOL 1480 INPUT #1,GELIR 1490 FOR X=1 TO 10.INPUT #1,A(X):NEXT X 1520 CLOSE #1 1530 RETURN 1540 REM ************* HATA *********** 1560 LOCATE 1,1:PRINT " HATA VAR !... M:RESUME NEXT 1570 IF (ERR=53) AND (ERL=3060) THEN RESUME NEXT 1580 IF (ERR=53) AND (ERL=1460) THEN RESUME NEXT 1610 LOCATE 22,45: PRINT "GELIRIN ZI ASTINIZ!..." I 1620 E$=INKEY$:IF E$="" THEN 1620 1630 GOTO 1200 1660 CLS:LINE (234,15)-(356,24)„B 1680 LOCATE 3,31: PRINT " M I D S O F T " 1700 LINE (175,30)-(413,40)„B 1710 LOCATE 5,23: PRINT " WRITTEN BY MEHMET DEVELIOGLU" 1730 LINE (175,45)-(413,97)„B 1740 LOCATE 7,25:PRINT " 1> YENI GIRIS H 1760 LOCATE 8,25:PRINT " 2> GRAFIK DOKUMU" 1780 LOCATE 9,25:PRINT " 3> DISKTEN OKUMA" 1800 LOCATE 10,25:PRINT " 4> DISKE KAYIT" 1820 LOCATE 11,25:PRINT " 5> ANALIZ" 1825 LOCATE 12,25:PRINT " 6> SON" 1840 LINE (15,100)-(605,160)„B 1850 LOCATE 15,3 1860 PRINT " BU PROGRAM AYLIK HARCAMALARINIZI AYRI AYRI DOSYALAR HALINDE SAKLAR VE" 1870 LOCATE 16,3 1880 PRINT " ISTENDIGINDE DISKETTEN GERI CAGIRARAK ISTENILEN DEGISIKLIGI VEYA ANALIZ" 1890 LOCATE 17,3 1900 PRINT " YAPMA IMKANI VERIR " 1910 LOCATE 20,3 1920 PRINT " ADRES.NATO CADDESI TURKAY SOKAK YILDIZ AP. A.BLOK PK:2 38010 KAYSERI " 1950 LINE (234,165)-(356,178)„B 1960 LOCATE 22,43:PRINT " ":LOCATE 22,31 .PRINT "SECIMINIZ =" 1970 LOCATE 22,43:PRINT "*":W$=INKEY$:IF W$=""THEN 1960 1975 IF W$ < "1" OR W$ > "6" THEN 1960 1980 S=VAL(W$):RETURN 1990 REM * PROGRAMDAN CIKIS * 2000 CHDIR "dfO:" 2010 WINDOW CLOSE 2:WINDOW OUTPUT 1 -.SCREEN CLOSE 1 -.END 3000 REM ****** ANALIZ BOLUMU ******* 3001 CLS:RESTORE 3002:FOR X=1 TO 10:READ A$(X):NEXT X 3002 DATA "KIRA","YAKIT","YIYECEK","GIYIM","ULASTIRMA","KIRTASIYE" 3003 DATA "EGLENCE","SAGLIK","DIGERLERI","TASARRUF" 3030 CLS:FOR X=1 TO 10:LOCATE 2+X,2 3040 PRINT X;">";A$(X):NEXT X 3050 PRINT .PRINT :PRINT -.INPUT "ANALIZI YAPILACAK GIDER TURUNUN NUMARASI = ",NUM 3055 FOR S=1 TO 12 -.WINDOW OUTPUT 2 3060 OPEN T',#1,AY $(S) 3070 INPUT #1,BOL 3080 INPUT #1,GELIR 3090 FOR X=1 TO 10:INPUT #1,A(X):NEXT X 3100 CLOSE #1 3110ANA(S)=A(NUM):ATG(S)=GELIR:A(NUM)=0 3120 NEXT S 3130 CLS 3131 SCREEN 1,640,240,2,2 3132 WINDOW 2," B U T C E K O N T R O L (C) COPYRIGHT 1989 BY MIDSOFT',,16,1 3133 WINDOW OUTPUT 2 ::YUZDE1=0:YUTO=0 3140 FOR C=1 TO 12 3150 LOCATE (3+C),3 3160 PRINT TAB(1) AY$ C);TAB(9) "ICIN";TAB(14) A$(NUM) ( 3165 LOCATE (4+C),24 3170 PRINT " GIDERI ";:PRINT USING "#########";ANA(C);:PRINT "._TL OLMUSTUR."; 3172 IF ANA(C)=0 THEN ANA(C)=.00001 3173 IF ATG(C)=0 THEN ATG(C)=1 3174YUZDE=ANA(C)/ATG(C)*100:YUTO=YUTO+YUZDE 3175 LOCATE (4+C),55:PRINT " AYLIK'A ORANI = %";:PRINT USING "###";YUZDE;:IF YUZDE>YUZDE1 THEN PRINT " +" ELSE PRINT " -" 3190 YUZDE1=YUZDE -.NEXT C 3195 YTG#=0:FOR T=1 TO 12:YTG#=YTG#+ATG(T):NEXT T 3200 LOCATE 18,1 3210 PRINT " YILLIK TOPLAM GELIRINIZ =";YTG#;" ORTALAMA %=";:PRINT USING "###.#";YUTO/12 3220 Q$=INKEY$:IF Q$="" THEN 3220 3230 RETURN AMIGA DUNYASI93