1 Nisan 1986 Tarihli Commodore Gazetesi Sayfa 62

ÖOOLA ( CTRLEY OO47 ÖO48 CEPKLEY DOĞ7 RHFÜOİNTER TÜ NEXT TÖBLE DOHÜO SHTFTE NÜSFEL Tnx şFOTNTER TÜ IİNDEX LODX #O GETAEY #GET ASSTGÖNMENT FROM TABLE I*l AF PF ER, Y ŞAND WEREDTE IN BÜFFER l1 COHARACTER ALREADY ENDEEY 3 SAVE r—llJMHI—R ÖF CHARACTERS . e INVAL 1D KEYEOCARD CODE PP e TARLE EĞLİ : Şimdi vereceğimiz BASIC program dizi 10 karakterden fazla olmamalıdır. 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üyor- cak ve dizileri hafızaya yerleştirecek- komutunuzun çalışmasını istiyorsanız, sa, cümle 330. satırdaki gibi tırnak İşa- tir. Diziler programda doatalar 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 TÜ 914 110 READ Xa POKET,X:8—54X: NEXT 150 DATA 169,71,160,3,141,1453,3,140, 144 130 DATA 203,196,197,240,10,177,245, 1dö DATA m_,.7a,.,7a,7:.sf%,v 150 DATA 101,197,10,174,141,2,22 : 160 DATA 240, ,234 4, 208 9,24,10“,4u,rq 1Uq,4n 170 DATA 24,105,40,170,160,4 ,189,0,207,240,9,15 180 DATA 1ı9,m “,EÜÜ,l?E,lu,JUH,_4“,lJ,,I?H 1&2,?55 1950 DATA 76,38,235 200 1F 8<>10591 THEN PRİNT'ERROR İN DATA": END FRINT"OK" GYSg28g REM PLACE KEEY ASSİGMENTS IN MEMÜRY TR4OYGRLEREMSİ REM #ÜFOO FOÖR z0 TÜ 15:READ XdeFOR JEİTÜ LEN(X4) | AzASC(MIDE(XE,İ,L1))11F Az95 THEN AzlE:REM RETURN IF AsAŞ THEN Az34 REM GLUCTE FPOKEADALÖ#THİ—Iİ, A NEXT TF J< >L1THEN POKEAD*T&104*J-1,0:REM END CRIİTERTÜM NEXT DATAL IST,RUNS, GOTO, CHB ( DATAFPFRE (0) &, BAVE,PRINT,THEN DATAFÖKE , PEEK GÇPRINT#E, INFUTE DATA"LOAD ' £*,96" ,NEXT , GOSUR , RETÜURN READY . ——— TeT galaal-lele