 CUBUK SECIM PROGRAMI3 BY LEVENT GUNTAYQ (C)1989 ISTANBUL/TURKEYW:x "ΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓ—  ** KALICI DEGISKENLER **―B$²"":X$(1)²B$:X²1ԏ ** ISTEGE BAGLI DEGISKENLER **ψU$²"…":D$²"ˆ":S²4:H²500:L²4:D²5 Y$(1)²" 1.SECENEK ") Y$(2)²" 2.SECENEK "B Y$(3)²" 3.SECENEK "[ Y$(4)²" 4.SECENEK "a #:{ 2 ** EKRAN DIZAYNI **˜ 7—53280,0:—53281,0:—646,5Ψ <™"“ISTEDIGINIZI SECIN VE RETURN'E BASIN...λ A™"F1’ YUKARIύ F™"F7’ ASAGI K™"RETURN’ SECIM" d:# i500> nX$(X)²B$:500:I²1€H:‚{ s‘C$:‹C$³±U$―C$³±D$―C$³±Η(13)§X$(X)²A$:500:I²1€H:‚:‰110  x‹C$²Η(13)§‘X‰1000,2000,3000,4000² }A²Sͺ1:B²1:C²1Κ ‚‹C$²U$§A².:B²S:C²«1Ψ ‡X²XͺC:Y²Xε Œ‹X²A§X²B ‘X$(Y«C)²A$:X$(X)²B$:‰100 ^:) τ ** SECENEKLERIN DIZAYNI **E ώ™"";:‹D§I²1€D:™"";:‚a I²1€S:™£L)X$(I)Y$(I):‚g &Ž€ θ 1.SECENEGIN SONUCU† ι:Ÿ Џ 2.SECENEGIN SONUCU₯ Ρ:Ύ Έ  3.SECENEGIN SONUCUΔ Ή :έ   4.SECENEGIN SONUCUγ ‘:2 (# "DEGISTIRME SATIRLARI ΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓh )# EGER IMLECIN YANIP SONMESINI ISTEMIYORSANIZ....u *# _110 :΄ +# _115 GETC$:IFC$<>U$ AND C$<>D$ AND C$<>CHR$(13) THEN 115Ϋ % "ΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓΓ ' EGER SECENEK TERCIHINI JOYSTICK'LE YAPMAK ISTIYORSANIZ....) ' _110 :w ' _115 R=(255-PEEK(56321))AND15:IFR<>1ANDR<>2ANDPEEK(56321)<>239 THEN 115Έ ' _120 IF PEEK(56321)=239 THEN ON X GOTO 1000,2000,3000,4000ά ' _130 IF R=1 THEN A=.:B=S:C=-1φ ' JOYSTICK --PORT I--