™"“":™Ç(14):—53281,1' X²1¤495T²1¤75:‚?™"-";F(‚Xb)S²1¤1000:‚:™" ÃAN ";…*S²1¤1000:‚:™"ËARAOTMARLI ";›>X²1¤49:F²1¤70:‚¥?™"-";¬B‚XêDT²1¤2000:‚:™" ÂU PROGRAM C-64 KOMUTLARINI EN KOLAY -"% ET²1¤2000:‚:™" BICIMDE ACIKLAR.ÙAKLASIK 15'DK SURER."m GV²54296:W²54276:A²54277:HF²54273:LF²54272:S²54278:PH²54275:PL²54274’ H—V,15:—W,17:—PH,15:—PL,15:—A,190™ I‡H  J‡L§ K‡D´ L‹H²«1§90Ä M—HF,H:—LF,LÞ NX²D«50¤D«20:—S,136:‚ë OT²1¤D:‚ P—HF,0:—LF,0:—W,0 Q‰72W Rƒ 17,37,250,19,63,250,17,37,250,21,154,500,21,154,250,22,227,375,19,63,250¥ Sƒ 17,37,375,21,154,250,22,227,290,22,227,290,22,227,490,21,154,250,25,177ñ Tƒ 250,22,227,250,21,154,400,25,177,255,22,227,300,22,227,225,21,154,250A Uƒ 19,63,250,17,37,250,21,154,250,19,63,500,25,177,250,28,214,250,22,227,250„ Vƒ 21,154,500,19,63,250,21,154,250,19,63,250,17,37,700,-1,-1,-1³ Z™"HERHANGI BIR TUSA BASINIZ."Å [¡A$:‹A$²""§91ß \™"“":™Ç(14):—53281,1ý d™" 'AND' (VE)", e™" IF'LI YONERGELERDE IKI AYRI IFADENIN-"Z f™"DE DOGRU OLMASI HALINDE IF'IN DOGRU O-"‡ g™"LACAGINI BELIRTIR.EGER KULLANACAGINIZ"° h™"SAYI '0' ISE YANLIS KABUL EDILIR."Ä i™" ORNEGIN="î j™" 10 IF S=14 AND F=56 THEN GOTO 10"& k™" EGER S=14,F=56 ISE SONUC DOGRUDUR.":T²1¤5000:‚R l™" HERHANGI BIR TUSA BASINIZ."e m¡A$:‹A$²""§109n o™"“" x™" 'CHR$' (KARAKTER)"¿ y™" BU HERHANGI BIR TUSU N SAYI OLARAK -"î z™" YAZILIMINI GOSTERIR.MESELA' H'TUSUNU -"{™" BIR YONERGEDE KULLANMAK IST IYORSUNUZ -"J|™" O HALDE 'H' TUSUNUN KARSILIGI OLAN"y}™" '72'YI CHR$(72) SEKLINDE YA ZARAK 'H'-"§~™" TUSUNU BILGISAYARA BASTIRMI S OLURUZ."×™" NOT:BU KOMUT PRINT I LE BIRLIKTE KUL-"€™" LANILIR.'PRINTCHR$(72)' SEK LINDE"-A²1¤10000:‚:™" SPACE'E BASINIZ."@‚¡A$:‹A$²""§130Iƒ™"“"g„™" END (SON)"—…™"PROGRAMIN ISLETMESINI DURDURUR.GENEL -"Ɇ™"LIKLE PROGRAMIN SONUNDA KULA NILIR.":™""Ú‡™" ORNEK:"ûˆ™" 10 ? CAN VE ......;"‰™" 20 ? COMMODORE-64"+Š™" 999 END"]‹T²1¤10000:‚:™" SPACE'E BASINIZ."pŒ¡A$:‹A$²""§140y™"“"šŽ™" 'FOR....NEXT'"Ç™" BU KOMUTUN IKI AYRI ISLEVI VARDIR."ô™" 1-BIR SAYAC VAZIFESI YAPAR. ORNEGIN:"‘™" FOR X=1 TO 20 00:NEXT"L’™" BU BILGISAYARI '2000' E KADAR SAYDIRIR."x“™" 2000'E KADAR SAYDIKTAN SONRA PROGRA"Ž”™"MA DEVAM EDER."¬•™" 2- FOR X=1 TO 10"Ì–™" ? CAN KARAOTMARLI"á—™" NEXT X" ˜™" BU EKRANA 10 KEZ 'CAN ' YAZDIRIR."<™D²1¤10000:‚:™" SPACE'E BASINIZ."Oš¡A$:‹A$²""§154X›™"“"vœ™" 'GET' (AL)"¢™" BU BASILAN TUSU OKUR VE KLAVYE DE"Ïž™" POSUNDA SAKLAR DEPODA EN FAZLA 10 KA"þŸ™" RAKTER SAKLANABILIR.DEPODAKI KARAKTER "- ™" LERDEN BIRININ 'GET'ILE OKU NMASI SONU"\¡™" CU DIGER KARAKTERLER ICIN Y ER ACILIR."Š¢™" BIRDE BU KOMUT PROGRAMIN AK ISI SIRA-"¸£™" SINDA 'RETURN'A BASMADAN BI LGI GIRME"夙" NIZE YARAR.PROGRAMIN AKISINI HIZLAN "¥™" DIRMAK ICIN DUSUNULMUSTUR."2¦™" 10 GETA$:IFA$="" THEN 10 "b§™" BU KOMUT BILGISAYARIN ISLEMESINI DURDU"¨™" RUR.BIR TUSA BASINCA PROG.DEVAM EDER."éX²1¤20000:‚:™" SPACE'E BASINIZ."Öª¡A$:‹A$²""§170ß«™"“"ù¬™" 'GOSUB'"'­™" PROGRAM YAZARKEN HERHANGI BIR YONER-"U®™" GEYI BIRDEN FAZLA KEZ YAZMAK GERE-"˜¯™" KIRSE BU KOMUTU KULLANIRIZ.":C²1¤4000:‚:™" BIR TUS"«°¡A$:‹A$²""§176æ±™"“":™" ORNEGIN:’":™" 10 FOR T=1 TO 1000:NEXT"²™" 20 ? CAN KARAOTMARLI"-³™" 30 FOR X=1 TO 1000:NEXT"T´™" 40 ? DERE MAH.KURKCU SOK."z½™" 70 FOR X=1 TO 1000:NEXT"Ÿ¾™" 50 FOR X=1 TO 1000:NEXT"È¿™" BOYLE UZUN YAZMAK YERINE ;"ãÀ™" 10 GOSUB 70"Á™" 20 ? CAN KARAOTMARLI" ™" 30 GOSUB 70"HÙ" 40 ? DERE MAH.KURKCU SOK."bÄ™" 50 GOSUB 70"wÅ™" 60 END"§È™ "NOT’BU KOMUT 'RETURN'SUZ KULLANILMAZ."ÉÒT²1¤10000:‚:™" BIR TUS’"ÜÜ¡A$:‹A$²""§220åæ™"“"ð™" 'GOTO' (GIT)"2ú™" BU COK KULLANILAN BIR KOMUTTUR.HER-"`™" HANGI BIR PROGRAMDA SINIRSIZ DONGULER"™" YARATABILIR.AYRICA ISTENILEN SATIRA-"»™" GIDEREK PROGRAMIN O SATIRDAN DEVAN ET"Ø™" MESINI SAGLAYABILIR."í™" ORNEGIN’:""™" 10 ? C-64 ",™" 20 GOTO 10"E6™" YUKARIDAKI ORNEKTE BILGISAYAR ONCE-"s@™" 10.SATIRDAKI 'C64'YAZISINI YAZAR DAHA"¡J™" SONRA 20.SATIRDAKI '10.SATIRA GIT'KO-"ÐT™" MUTUNU GORUNCE 10.SATIRA GIDECEKTIR.BU"ÿ^™" DONGU 'RUN/STOP'TUSUNA BASINCAYA KADAR".h™" EKRANI 'C64' YAZISI ILE DOLDURACAKTIR."ZrS²1¤10000:‚:™" BIR TUS’"m|¡A$:‹A$²""§380v†™"“" ™" 'IF.....THEN'(EGER...OYLEISE)"Κ™" BU KOMUT BASIC'IN DURUMLARI DEGERLEN"ü¤™" DIRME YETENEGINI VE SONUCAGORE YAPACA")®™" GI DEGISIK HARAKETLERI SECMESINI SAG"N¸™" LAYAN BIR YONERGE DIZISIDIR."`™" ORNEK’:"‘Ì™" 10 S=0 ===>BASLANGICTA 'S' YE BIR DEGER"²Ö™" 20 ? C-64 ===>YAZ 'C-64'"âà™" 30 S=S+1 ===>HER SEFERINDE 'S'YE 1 EKLE"üê™" 40 IF Ó<5 THEN 30"ô™" 50 END ===>SON"Aþ™" BU ORNEKTE 40.SATIRDA EGER S KUCUKSE"o™" 5'TEN GIT 20'YE DIYEBILIRIZ.SONUC OLA"™" RAK BU PROGRAM BILGISAYARIN IZA 5 KEZ"É™" C-64 YAZDIRACAKTIR.40.SATIRDAKI S=5"÷&™" TEN BUYUK OLUNCA BIR ALT SATIRA GECER"!0S²1¤10000:‚:™" BIR TUS."4:¡A$:‹A$²""§570=D™"“"^N™" ' INPUT' (GIRDI)"‹X™" BU KOMUT DAHA ONCEDEN PROGRAMLADIGI"´b™" MIZ SECENEKERI GIRMEMIZI SAGLAR."Ål™" ORNEK:"öv™" 10 INPUT SECIMINIZ (Å’VET/È’AYIR)?Á$"€™" 20 IF A$=EVET THEN 500"7Š™" 30 IFA$<>HAYIR THEN 1000m”K²1¤10000:‚:™" BIR TUS."€ž¡A$:‹A$²""§670‰¨™"“"Ÿ²™" 'LIST'(LISTE)"ͼ™" BU KOMUT YAZILAN PROGRAMIN LISTESINI"ùÆ™" VERIR.EKRANA DOLAYSIZ MODDA YAZDIGI"&Й" MIZ PROGRAMIN LISTESINI GORMEK ISTER"TÚ™" SEK LIST YAZIP RETURN’'A BASMAK YETE"dä™" CEKTIR."‚î™" LIST =TUM PROGRAM"¬ø™" LIST 500 = SADECE 500'UNCU SATIR"Й" LIST 500- =500'DEN SONRASI"õ ™" LIST -500 =500'E KADAR OLAN" ™" LIST 10-100 = 10 ILA 100 ARASI"> S²1¤10000:‚:™" BIR TUS."Q *¡A$:‹A$²""§810[ 4™"“Œ"y >™" 'NEW'(YENI)"© H™" NEW O ANDA BILGISAYARIN BELLEGINDE SAK"Ô R™" LI OLAN PROGRAMI SILER.EGER PROGRA"!\™" MI YANLISLIKLA SILMIS ISEK POKE 2050,1:"3!f™" SYS42291 RETURN’ YAZARAK SILINEN PROG"T!p™" RAMI GERI GETIREBILIRIZ."w!zT²1¤10000:‚:™" BIR TUS."Š!„¡A$:‹A$²""§900“!Ž™"“"²!˜™" 'PRINT'(YAZ)"ã!¢™" BU EKRANA YAZI YAZDIRMAYA YARAR.MESELA:" "¬™" 10 PRINT C-64'U COK SEVIYORUM."9"¶™" YAZARSAK SONUCTA BISAYARA YAZDIRMIS"k"À™" OLURUZ.PRINT YAZMAK YERINE '?'KOYABILIRIZ"z"Ê™"NOT’:"ª"Ô™" BILGISAYARA YAZDIRILACAK YAZILAR DENDEN"Ç"Þ™" ICINDE YAZILMALIDIR."Ø"èT²1¤10000:‚ê"é™" BIR TUS."þ"ê¡A$:‹A$²""§1002#ë™"“"#ì™" 'ÒUN'(CALISTIR)"M#í™" BU KOMUT BILGISAYARA O ANDA BELLEK"z#î™" TE BULUNAN PROGRAMI BASLATMASINI BIL"‰#ï™" DIRIR."·#ð™" RUN 500==>500'UNCU SATIRDAN BASLAR"ç#ñ™" RUN ===>PROGRAMI ILK SATIRDAN BASLATIR" $òD²1¤10000:‚:™" BIR TUS." $ü¡A$:‹A$²""§1020)$™"“"I$™" 'SAVE'(SAKLA)"t$™" BU KOMUT O ANDA BELLEKTE BULUNAN"¡$$™" PROGRAMI DATASETE YUKLEMESINI BILDI"Í$.™" RIR.KAYDEDILEN PROGRAMIN DAHA SONRA"î$8™" DA KULLANILMASINI SAGLAR"%B™" SAVE KASEDE ISIMSIZ KAYDEDER"F%L™" SAVE C-64 ;1 KASEDE ISIMLI KAYDEDER"s%°™" SAVE ;8 DIKETE ISIMSIZ KAYDEDER." %™" SAVE C-64 ;8 DISKE Ã-64 ISIMLI PROG"·%x™" RAMI KAYDEDER."è%‚T²1¤10000:‚:™" BIR TUS."ü%Œ¡A$:‹A$²""§1420&–™"“"&&ª™" 'SPC'(SPACE)"S&´™" PRINT KOMUTU ILE YAZILAN YAZILARIN"~&¾™" ARASINDAKI BOSLUKLARI AYARLAMAMIZI"Ž&È™" SAGLAR."¯&Ò™" 10 PRINT SEN VE BEN"×&Ü™" 20 PRINT SPC(5) BIZ SPC(5) SIZ"'æ™" PARANTEZ ICINDEKI SAYILAR NE KADAR ",'ð™" BOSLUK BIRAKILACAGINI GOSTERIR."N'úT²1¤10000:‚:™" BIR TUS."b'¡A$:‹A$²""§1540k'™"“"˜'™" *********************************"ª'"™" ** **"×',™" ** Ã-64 ËOMUTLARINI TANITAN **"é'6™" ** **"(@™" ** PROGRAMIMIZ BITTI:(II. **"((J™" ** **"U(T™" *********************************"`(^™""j(c1680“(h™" ©©© © © ©©© ©©© ©©© ©©© "(m1680Æ(r™" © ©©© ©-- ©-- © © © © "Ð(w1680ù(|™" © © © ©©© ©©© © © ©©© ¨")1680 )†€)T²1¤1600:‚)¤Ž