Sayfa 62

0046 DAT © OOZÜ

CEMKEY ;FÜİNTER TÖ NEXT TABLE NÜSFPEL TAX TO İNDEX GETEEY ;GET ASSTİĞNMENT FROM TABLE

ŞAND IN

ALREADY

ENDEEY ST* YE ik NUMBER ÖF CHARACTERS Hi “ÖR CODE SPF FLAĞS TARLE ECU *

Şimdi vereceğimiz BASIC program dizi 10 karakterden fazla yapabilirsiniz. Cümle içinde tırnak makina dilindeki programı çalıştıra- Eğer fonksiyon tuşuna basar basmaz cümlenin içinde bir virgül gözüküyorcak ve dizileri hafızaya yerleştirecek- komutunuzun çalışmasını istiyorsanız, sa, cümle 330. satırdaki gibi tırncık işatir. Diziler programda datalar halinde dizinin sonuna “RETURN” karakterini ek- retiyle kapatılmalıdır. O verilmiştir (300-330. satırlar) ve istenil- lemeyi unutmayın. Bunu, cümledeki diği gibi değiştirilebilir. Ancak hiçbir son karakterin yerine * * koyarak

100 FOR I #828 TO 914 110 READ NEXT 120 DATA 169,71,160,3,141,1437,2,140,144,2,96,164 150 DATA 205,196,197, 240,10, 4,201 140 DATA

150 DATA 101, 197, 10, 160 DATA 240, 7,224, 4,208, 9,24,105,40,724, 105,40 170 DATA 24, 40,170,160,0,189,0,207,240,9,153 180 DATA 190 DATA : 200 IF THEN PRİNT'ERROR İN DATA" SEND 210 215 REM PLACE KEY ASSİGMENTS İN MEMORY REM : FOR TÜ FÜR LEN(X£) THEN REM RETURN 260 IF AsAS THEN 270 Az NEXT 280 IF Iİ END 290 NEXT ZOO ( Z1O DATAPFRE (0) «, 320 DATAF'ÖKE ,PEEK INELT# , RETURN