1 Temmuz 1986 Tarihli Commodore Gazetesi Sayfa 54

Zez YARIŞMA 3. Sayı Yarışma Sorusunun Çözümü B 00218 GoTO PROGRAM ADI : HECELER Ba190 90818 PRINT "<CLR>"?; <ana> goz2asa 90020 CLOSE 1:PRINT "<HOME><CTRL-N><3DOLİN 4RIGHT><7SPACE)<RYSON) BIR TUSA B ASIN...":POKE 198,B:WAIT 198,1:BS-A $ <217> aagaeza 889830 PRINT “<CLR><DOUHN><RIGHT>1İ) EKRANCS SPACE>2) ERİNTER<ASPACE )) BITİRİN" <104> 920238 00040 GET A$:IF ASC>"1I" AND AS<>"2" AND A >"e" THEN 408 <941> g20248 80050 IF AS-"G-" THEN PRİNT "<CLR>"7SENDO <oa9> 99060 DY-3:1F AF-"R2" THEN DVz4 <068> gpo2s5a 909878 A-I 3PRİNT "<3DOLİN>CUMLE NlZ7 < TEKRAR xcıN ERETURNIİ )<2DOLİN g90268 <a98> 88270 asasa UEF FNS1<X)SCSS'A" OR cs *E" ÜR C$- "I" OR C$-"0" OR cs ! OR C$-"A" O oceso R C$-"E" OR C$z"1 <Bia> 609090 DEF FNS<CX)-FNSİ<CX) OR C$z OR C$- o68239a u" <aBa7> 003098 BB1AA DEF FNNCX) -NOT (<CS<C-"Z" AND CS>-"A ") OR (C$<-"Z" AND CS>-"A")) <aga> 00310 90118 PDKE 631,34:POKE 632,34:POKE 533,20 02320 POKE ıea C: INPUT AH:ASZASL" * <145> İL” 00120 I1F A$-" THEN A$zB$ <215> Ba33a 00130 OPEN A,DV,7:PRİINTHA:PRINTHA,"CUMLE & "SASI PRINTHH PRINTHA,"HECELEME:! ";; <054> 00348 B8140 SZ-LENCAS) <118> 00350 80150 EsA <asa> 00160 IF MID$LAS,E, D)—"ELEK" OR MIDSCAS,E »D)E"ELEK" THEN <185> 90350 90165 C$-MIDSCAS,E, H)-IF NOT <FNN<CX)) THE 903 <B88> 00370 BO17O PRİINTHA,CS/:ESEY*A'IF E)>SZ THEN PRİN 00388 THA:GOTO 28 <9049> a0398 60180 GOTO 168 <aga> Basna Cumle: Siz de mi bizim Cekaslavakyalilastirabi Heceleme: den mi-si-niz? Cumle: Heceleme: Cumle: Heceleme: Cumle: Heceleme:i Olmak ya da olmamak, Ol-mak ya da ol-ma-mak, SA Trabzonlu Troleybuscu Tramvay Nuri Siz de mi bi-zim Ce-Kos-lo-vak-ya-li nin Trab-zon-lu Tro-ley-bus-cu Tram-vay Nu-ri' Bu yogurdu sarimsaklasakta mi saklasak, Bu yo-gur-du sa-rim-sak-la-sak-ta mi sak-la-sak, i sak-la-sak? IF FNS<X) THEN 320 CS-MID$SLAS,ETA,A)IIF FNS<X) THEN 27 IF FNN<X) THEN L-A:PRIİNT "<LEFT>"3 4 C$-MID$SCAS,E*B,AYLIF FNNCX) THEN L>z B:GOT0 358 C$-MIOSLAS,E*C,A)TIF FNNCX) THEN L> C:GOTÜ 350 C$-zMIDSLCAKS,E*OJA):IF FNNCX) THEN Lz :GOTO 358 CS'MIÜ$(HS E*D.AYIIFR FNSCX) THEN Lz Cc:GOTO 3 L-sD:GOTO 350 C$-MIDSLCAS,E*B,A):IF FNNCX) OR FNS£ ) THEN L-zB:GOTO 358 C$-MID$SCAS,E*C,A):IF FNNCX) THEN Lz Ci6GOTO 358 IF FNSCX) THEN L5z B GOTO 358 CE-MIOSLCAS,EYTO,A):IF FNS<X) THEN L> CiGOTO 3508 Lz0:GOTO 350 C$zMIDSLAS,EY*A,AYIIF FNNCX) OR FNSC X) THEN LzATGOTO 350 : - C$zMIOSLAS,EY*B,AYIIF FNSCK) THEN L A:GOTO 358 L>B FOR I-. TO L-A:PRINTHA,MID$CAS,EYİ, A)ŞENEXT #IİF NOT <FNNCX)) THEN PRİN Ar *a"ş ESE*LİİFR ZsA THEN 398 C$&-MIDSLCAS,EY*A,AYILEAİZSAZGOTO 350 $SAMIDSCAS,E*C,A)ILECIZA.GOTO 350 GOTO 16â lemediklerimizden misiniz? <083> <018> ci76) <156> <186> <216> <886> <82831> <ata> <238> <23a> <058> <Ba5> <245) <048> <064 > <1Si> <B7a> <850> <088)> <aa26> <147)> <170> —-las-ti-ra-bi-le-me-dik-le-ri-miz- fonKsiyonlari nin fonk-si-yon-la-ri Sarimlamasakta mi saklasak? Sa-rim-la-ma-sak iste butun mesele bu... is-te bu-tun me-se-le bu... —-ta m