%d;께께께께께께께께께께께께께께께4e;� 3�12K �=f;� �[g;� OKAN YILMAZ � ANKARA �h;께께께께께께께께께께께께께께께�i;�j.EQ BSCSTRT � $2B ;BASIC BASLANGIC ADRESI VEC짺U�k;�l.EQ BSC� � $37 ;BASIC BITIS ADRESI VEC짺U�m;, n.EQ VARSTRT � $2D ;DEGISKEN BASLANGIC ADRESI VEC짺U2 o;g p.EQ ARRYSTR � $2F ;BOYUT BASLANGIC ADRESI VEC짺Um q;� r.EQ ARRY� � $31 ;BOYUT BITIS ADRESI VEC짺U� s;� t.EQ � � $FFE4 ;KERNAL � RUTINI� u;� v.EQ MAX � 3 ;MAX. SECENEK� w;" x.EQ CHR� � $73 ;ZERO PAGE KARAKTER ALMA RUTINI( y;Q z.EQ CHR�T � $79 ;CHR� RUTININ DEVAMIW {;� |.EQ EXEC � $308 ;BASIC KOMUT YURURLUGE KOYMA VEK짺U� };� ~.EQ EXECOLD � $A7E7 ;BASIC KOMUT YURURLUGE KOYMA ROM RUTINI� ; �.EQ 놷 � $A474 ;놷 MESAJI YOLLAYAN ROM RUTINI �;C �.EQ STR�UT � $AB1E ;STRING YAZAN ROM RUTINIp �.EQ � � $FFD2 ;KARAKTER YAZAN ROM RUTINIv �;� �.EQ � � $A644 ;ROM � RUTINI� �;� �.EQ COM1 � 14335 ;COMPUTER 1 BITIS ADRESI� �;� �.EQ COM2 � 26623 ;COMPUTER 2 BITIS ADRESI �;$ �.BA $C000 ;BASLANGIC ADRESI* �;L �INIT LDA#�(TEST);BASIC KOMUTUf �LDY#�(TEST);YURURLUGE� �STAEXEC;KOYMA ADRESLERI� �STYEXEC�1;DUZEN홇R� �LDX#3� �LDA#0;COM. 1 VE COM.2 NIN� �ZERO STACOM1,X;BITIS ADRESLERI� �STACOM2,X;S딬RLANIR �DEX �BNEZERO �JSR�! �RTS' �;D �TEST JSRCHR�;KAREKTER ALd �CMP#"!";OZEL ISARETIMIZ MI�v �BEQFOUND;EVET� �NO� JSRCHR�T;HAYIR,O HALDE� �JMPEXECOLD;ROM RUTININE ATLA� �FOUND JSRCHR�;KARAKTER AL� �CMP#"C";"C" MI�� �BEQFOUNDC;EVET�CMP#"T";"T" MI�2�BNENO�;HAYIR KOMUT BULUNAMADI!]�FOUNDT LDA#�(CMPTR);"T" KOMUTU BULUNDU��LDY#�(CMPTR);MESAJ ADRE풦 A쵿 YUKLE��JSRSTR�UT;MESAJI YAZ��LDACHOOSE;AKT� COM. NO'SUNU AL��CLC;힖I KODUNA CEVIR��ADC#48��JSR�;EKRANA YAZ�LDA#�(ACTIV);S멢AKI MESAJ ADRE풦>�LDY#�(ACTIV);A쵿 MODUNDA ALW�JSRSTR�UT;MESAJI YAZq�JMP놷;놷 MESAJI YOLLAw�;��FOUNDC LDXCHOOSE;ESKI VEC짺LERI��LDAVARSTRT;TABLODA��STATABLE,X;SAKLA��LDAVARSTRT�1��STATABLE2,X �JSRMESAJ;SECIM MESAJINI YOLLA*�좱OOP JSR�;KARAKTER ALINANA?��#15;KADAR BEKLEL�BEQ좱OOPv�CMP#MAX�1;KARAKTER 1,2 VEYA 3 DEGILSE��BCS좱OOP;TEKRAR � RUTININE��TAX��STXCHOOSE;YENI PARAMETREYI SAKLA��LDACHOOSE,X;VEC짺LERI��ST턇STRT�1;YENI�LDACHOOSE�1,X;PARAMETREYE�ST턇��1;�RE2�L귻LE,X;DUZENLEA�STAVARSTRTP�STAARRYSTR]�STAARRY�j�L귻LE2,X{�STAVARSTRT�1��STAARRYSTR�1��STAARRY��1��JMPFOUNDT��CHOOSE .BY1,8,$33,$68��TABLE .BY$98,3,3��TABLE2 .BY3,8,$38,$68��;�MESAJ LDA#�(MES);MESAJ RUTINI)�LDY#�(MES)7�JSRSTR�UT?�RTSN�MES .BY$0Dm�.TX " 1,2 VEYA 3 GIRINIZ."{�.BY $0D,0��CMPTR .TX"COMMODORE "��.BY 0��ACTIV .TX" AKTIF DURUMDA."��.BY 0