Özet
Hata köşesi.
Diğer Dergiler
Tam metin içeriği
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
20905 PRINT *<CTRL-N><CLR><EDONN><3SPACE >
ELEKTRONİK AJANDA” <B85>
06810 POKE 808,254:PRINT "<EDOLN><3SPACE
?MENU:*SINPUT *<DOWN><3SPACE >1-KODL
AMA, 2KOD COZME";W <174>
09011 IF W ȣ THEN 18 <005>
00812 PRINT "<DO4N><3SPACEYLUTFEN DISKETİ
TAKINIZ! <DOLN>” <127>
00015 PRINT TABCIN):INPUT *KDOLN><3SPACE
»KAYIT NO*s0$ «073>
200818 PRINT “<DOLN><3SPACE)KOD SAYILARI X
:YZ*IINPUT "KDOLN><3SPACE >VIRGULLE
AYIRARAK VERİN “:A$,BS,C$ <044>
20088 DIM T<839),T$<8a9):X-0'IF M2 THE
N 79 «<127>
00025 PRINT "<CLR><DOLN><3SPACE)METİIN KAY
DI <MAK, 838 KARAKTER) ":PRINT "<3SP
ACE>'#'> SON"IPRINT “<DOLN?>"; «163?
00938 GET T$<X):IF T$<X)3"* THEN 838 <282>
00035 IF T$(K)-"4“ OR X-839 THEN 58 <086>
00040 PRINT T$<K)31K5X11:60T0 30 <184>
00859 OPEN 1,8,2,0$*t”,S,M"IPRINT#İ ,KIFOR
1-8 TO X-1:B-B#CAXC):PRINT#I ,ASCCT$
<1))4C4B «218?
00060 NEXT I:CLOSE 1:G0TO 99 <143>
00070 PRINT *<CLR><DOLN)*;:0PEN 1,8,2,D$*
»,S,R"SINPUT#I,KSFOR 1-0 TO X-1:B-B
#CAKCISINPUTMI,TCI) «068>
00080 T(1)-(T(1)-B)-C4IF T<I)<8 OR TCI)22
55 THEN CLOSE I:PRINT "<DOLNDHATALI
KAYIT":G0TO0 89 <141>
200098 PRINT CHR$(T(I)):1NEKT IiCLOSE 1 <088>
00039 CLR:POKE 808,237:END «922>
- 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 100 POKE 56579,128
başımıza dert oldu çıktı. S.65'teki 140 SE
şemanın yanındaki program satır- GOTO 420.
larının doğrusunu aşağıda veri - 430 IE 2$-“A" THEN PRINT
yoruz: “ACILDI": POKE
- &. 57'deki Kaset Disket Sohbe- şagi 54 ETER Şe
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
* THEN
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 azaltiması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...
55
