1 Kasım 1986 Tarihli Commodore Gazetesi Sayfa 43

PROGRAM ADI : S.BFLASH 20010 BFLASH 10,0,1:PAVSE 5 aapea BFLHaH 48, 2 10 PAUSE 5 99838 BFEL 1,5 :PAVSE S g0aA48 BFLHJH a PROGRAM ADI : S.ON ERROR Bö0ğ1€ ON ERROR:GOT0 188 Bğ020 FOR Isiğ TO -i STEP -1 g8230 PRİINT "KOK ":;157"-";SGRLI) 00040 NEKT I4:END OğiBdü NÜ ERRÜOR ©ğ118 PRINT " HATALI HESAPLAMA, SATIR:”ER RLN PRÜGREM ADI # S.INV 90813 FCOL 0,0,409,25,0:C0L0UR 6,15 FOR I'1024 TO 2ğ25: POKE I,1:NEXT I- B:ıGOSUBR 180680:FCOL R,C, U D PNDLS)AIS NEXT TO 108:GOSUB 19808:FÜOR 11- 0 %l IN? R;,C,LI,D:FOR Ts1 TO 108: NE 1C-RNHİ DLB) PND 8)x(25- Oo ER R-RND k8)# x40 N RNDLSB) 4C4 O-C)4*14 R3)*1:RETURN PROGRAM ADI : 5S.PAVUSE B08018 PRİNT "<CLR)<DOUN)<RİGHT>5 SANİYE B EKLEYECEGİM...":TI$z"BAdüdü":PAUSE SıPRINT TI$ ppaza TI$-"naosada":PAUSE "<RIİGHT>SIMDI D E 8 SANIYE...",8S:PRINT TI$ PROGRAM ADI : S.PLACE 0010 POKE 631,34:POKE 632,34:POKE 633,20 iPOKE 198,3:1NPUT "i1.KELİMENİZ ":AÂAS POKE 631,34:PÖÜKE 632,34:POKE 633,28 :POKE 198,3:1NPUT "2.KELİMENİZ ":B$ PRINT PLACE£BL,AS)" < 3DOLİN>" :RUN pao2a 208048 PROGRAM ADI : 5S.FLASH g0818 H$—"<CTRL l)xCTRL 2><CTRL-3><CTRL-A TR >SCTRL 7/<CTPL 8><C —1)<C=Eğ<C=3ı<C z4)><0> g —S -f>":4 INT LOUR alalarmz) FDR Isi TO LENCAS): PRINT MID$(H$ 1, DOIDUPC"A",SASINEKT 06030 FOR 1-1 100:0FF:FLASH RNDCS)415, RNDCS)*SO:PAVSE 34NEKT FROGRAM ADI S.NRM-BCKGİNDS5 -COLOUnR PROGRAM ADI : S.IİNKEY A08010 IİF-İNKEYSİF I-0 THEN 18 B0020 IF I<9 AND IİNT<1/2)-51/2 THEN PRİNT "SHIFT F"I:GOT0 18 20030 I1F 1<3 THEN PRİNT "F"1:G0TO 00040 IF IİNT<C1/2)-1/2 THEN PRİNT HIFT F"I:GOT0O 18 BB050 PRINT "C-> F"I:GOTO 18 18 "Ca YE & PROGRAM ADI : S.INST B0010 POKE 631,34:POKE 632,34:PÜKE 5633,20 :POKE 198,3:1INPUT "i1İ.,KELİMENİZ "JA$ 20020 POKE 631,34:PÜKE 632,34:POKE 633,28 iPOKE 198,3:1NPUT "2.KELİMENİZ ":B$ 88830 INPUT "KACINCI HARF "SASIİF A>LENCRS ) THEN 38 20040 PRİNT IİNSTCB$,AS,A)"<SDOLİN>" #RUN PROGRAM ADI # S.İNSERT 60010 POKE 631,34:POKE 632,34:POKE 633,20 :POKE 198,3:1INPUT "iİ.KELİMENİZ ";AS Bf020 POKE 631,34:POKE 632,34:PÜKE 633,20 iPOKE 1388,3:1INPUT "2.KELİMENİZ ";B$ A0030 INPUT "KACINCI HARF "SASIİF A>SLENCA $ N 38 g0040 PRIİNT İNSERT<B$,AS,A)"<CS3DOLİN>" #RUN PROGRAM ADI * S.DUP 00010 POKE 631,34:POKE 5632,34:POKE 633,28 #POKE 198,3:1INPUT "KELİMENİZ "sAS 0030 INPUT "KAC KERE"? 00040 I1F LENCAS)4*AS2IS THEN PRİNT UN 111”3RUN Bğ05€ PRİNT "<CLR>"DUPFCAS,A)"<C3DOLİN>” "COK UZ :RUN PROGRAM ADI : S.AT AOA A$- AğA3A FOR A0040 FOR "CÜMMODÜRE 64":B$z"46 ERODOMMOC" I-6 TÜ SiPRİNT &ATCI,TIAS:NEKT Is1 TO 8SiPRİNT AT<8-1,841)AS$:NE KT BO8S5A FOR I-0 TÜ 8iPRİNT ATC28-1,1)B$:NEX T B0268 FOR I-i TÜ BiPRİNT ATC(2041,84*1)B$:N KT PROGRAM ADI : S.CENTRE gğd05 CSET 1:COLOUR 15,15 Baaı1a ğî- "HBCÜEFGH TJIKLMNOFORSTUVUKYZA1234 BAğdl1A DIM A$SC20):PRIİINT "<ÜLR)" baaoa2a B$-" ağggğîguıaı:mug&gaâmw_my ez | SddcA FOR I-i T0 2â BHVA-LÜORİT;E <Cİe Ad030 FOR J-1 TO RND<8)x3041 00038 ğîâŞT "<CgŞâ;Hî;ğŞğğL>TğğVSUN>"H$ iP | Bğada A$HCIISASCI)*CHRSCEAAI) Baas4a ğCK?ğDo 15 ,RNDC3)*İ6,RNDCB)KİS,RNODC | 990050 NEXT :PRİNT ASCIDENEKT #PRİNT "<CLR > H BaBsA EÜŞHğqugU COO:NEXT #GET A$:1F A$z” | ggpsa FOR I-i TÜ 20:CENTRE ATLO,I)ASCI):P 209060 NRM RINT :NEXT Ni —- Bi e l e H ZK EEESEKDİ a CNNO 0OVE a 43