Sayfa 27

3541RETURN RETURN GOSUB 3518 (3) o 425 GOTO 1222 “FE IF AND CEKDİ" THEN E IF THEN SL IF THEN 1818 İF THEN EKCİY RETURN 1F S<F RETURN FOR Asi TO X2$ OR THEN TEXT PRİNT AD LI BİR TAKİM HAFIZADA 160TO 1222 PRİNT OK. DUSTY" GET AR$IİF THEN 1223 CLR1GOTO 1 GET RETURN IF AS-X$ THEN #EGCİYEYECİ 350:RETU RU RETURN IF THEN RU RETURN DATA F.BAHCE .3.RIZE.O.BESIKTAS.3.A. GUCU.1 DATA TRABZON.O DATA K.YAKA.I.G.SARAY.I AY.I DATA SAKARYA .2 DATA MALATYA DATA SKİSEKİR.2

DATA DATA ANAL2 DATA MALATYA OLU.3 DATA SARIYER .2.KONYA.O.BESIKTAS. BAY CEKDİ.-1 DATA “RİZE DATA K.YAKA.2.A.GUCU.2.SAKARYA.I.TR DATA DATA ADANA .3 .SAMSUN .BOLU .0 .ADANAD 5.2 DATA PRİNT *<CLROHAFIZADA HAFTA VAR. HAFTA-HAFTA' NIN ORTALMASINI" KİS INPUT G1.G2 IF OR THEN PRİNT *P ARDONNT?...*16OTO 3512 FOR Asi TO HSİREAD AS.S.DS.F IF AND Se-1 AND AS-XS THEN IF AND THEN GÖSÜB 608 IF AS)H AND THEN GÖSÜB 356 RETURN KAR TAL ÖLEY KARA KARTAL'IPRINT 160TO 18108 COS1LFOR TO SİNEKT 53280.A:POKE 53281.B PRİNT *<HOME VB 10281 GOSUB 103001B-11FOR TO “<RVSON> 08) THEN S8-81G0TO PRİNT *<CTRL-2)*181160TO 18168 GET THEN RETURN IF THEN POKE 5228