1 Haziran 1986 Tarihli Commodore Gazetesi Sayfa 55

M o A HATA KÖŞESİ - Hata köşemize önce geçtiğimiz sayıda fahiş bir hata yaka- ladıklarını sanan okurlarımızı hayal kırıklığına uğratarak baş- layalım. 62. ve 63. sayfalardaki “Elektronik Ajanda” yazı- “sında, bir programdan söz edildiği halde, dökümü verilme- mişti. Ancak hatırlayacağınız gibi bu programın işlevi girdi- giniz bilgileri kodlamaktı. Gizliliği temin etmekle görevli bu program, kendi kendisini de gizlemişti. Aşağıda kendisini ifşa ediyoruz: PROGRAM ADI £ AJANDA 88985 PRIİNT "<CTRL-N><CLR><2DOWN><3SPACE > ELEKTRONİK AJANDA" <085> BÖ8610 POKE 808,2544PRINT "<2DOLMN)<3SPACE >MENU S" SINPUT "<DOLİN><3SPACE>İ -KODL AMA, 2-KOD COZME”:Lİ <174> göğil IF W 2>2 THEN 18 <305> B08612 PRIİINT "<DOLN><3SPACE LUTFEN DİSKETİ TAKINIZ ! <DOMN>” <i27> BOA15 PRINT TAB<İBİ)İINPUT “<DOLN2><3SPACE >KAYIT Nü”;üs <ö73> g6418 PRIİINT "<DOLN><3SPACE'KOD SAYILARI X rYoZ"TINPUT "<DORN><3SPACE YİIRGÜLLE AYIRARAK YVERİN ":ASF,B$,C$4 <444> aooza DIM T<839),T$C8339):X-0:1F Wz2 THE N 78 <127> 20825 PRIİNT "<CLR><DORN><3SPACE>METİN KAY i DI <(MAK. 839 KARAKTER)":PRINT "<3SP ACE>'k'sz SON”"EPRİNT "<DOWN>>"3 <163> B0330 GET T£$<X):1F T$<X)-"” THEN 38 <202> 60035 IF T$(R3)z"*” OR Xxz839 THEN 58 <B96> 868406 PRINT T$S<X)31X-X4*13G60O0T0 38 <184> 8650 OPEN 1,8,2,D$4*",S,M"IPRIİINT#İ,XEFOR Isz6 TO X-1:B-zBtLA*CIIPRINTHK1 , ASCLT$ <T))4CtB <218> 08860 NEXT I:CLOSE 1:6G0T0O 99 <143> AğA7O PRİNT "<CLR><DOLN>"3;3:0PEN 1İ,8,2 A$t *,S,R”3:INPUTHİ,X:FOR I- TO X-İ:B-B *CÇAXCISINPUT#L,TC1) <8068> AğAsAo Te1)-4T<1)-B)-CEIF T<1)<8 OR T<1)>2 55 THEN CLOSE İ:PRİNT "<DOLN>HATALI KAYIT":GOTO 889 <idi> 20898 PRINT CHRS$<TCI))74NEXT I:3CLOSE İ <asa> 929099 CLR:POKE 808,237:END <deaz> - 15. sayfada Commodore 84 diye bir aletten söz ediliyor. Commodore Intl. yayın yönetmenimiz kadar sabırsız değil; henüz böyle bir alet için üretim kararı almadı. Doğrusu bil- diğiniz Commodore 64 olacaktı. - Commodore 64'le Aydınlanma 190 POKE 56579,128 seo1i 110 POKE 56577.0 başımıza dert oldu çıktı. S.65'teki 120 GET 28: İF G$—“ THEN şemanın yanındaki program satır- GOTO 120 larının doğrusunu aşağıda veri- — 130 1F 2$-“A” THEN PRİNT yoruz: “ACILDI”: POKE - S. 57'deki Kaset Disket Sohbe- 14017 2$.—“3” TMEN PRNT ti'nin sondan bir önceki satırında- “KAPANDI": POKE ki SYS 32458'in doğrusu SYS 56577,0: GOTO 120 52458 olacak. 150 GOTO 120 YARIŞMA Geçen sayımızda yayınladığımız yarışmaya pek cevap gelmedi. Gelen cevaplarda da bazı hatalar vardı. Düşündük taşındık, bu güzel yarışma sorusuna iki nedenle az cevap gelmiş olabileceği sonucuna vardık. Birincisi soru biraz zordu. İkincisi ise ödülü açıklanmamış bir sorunun ilgiyi azaltmasıydı. Gerçek nedenin hangisi olduğunu bulamadığımızdan süreyi bir ay uzattık, hem düşünme fırsatı çıksın, hem de ödül açıklansın diye. Sorumuz aslen bir kelime işlem programının temeli niteliğinde. Onun için de ödül olarak, kazananlara içinde bir kelime işlem programı da bulunan üç temel program veriyoruz. Hem de kasette. Üstelik kura falan da yok; kazanan herkes bu programları alabilecek. Yalnız cevapların en geç 15 Haziran'da elimizde olması gerekiyor. Meraklılar için diğer programları da belirtelim, iş grafikleri programı “practicalc'”” ve veri tabanı programı “super base””, Haydi klavye başına...