Sayfa 43

ADI : S.BFLASH

20010 BELASH 10,0,1:PAUSE 5 BELASH 40,2,10:PARUSE & 00030 BELASH 5S 20040 BFLASH &

PROGRAM ADI : S.ON ERROR

ON FOR TÜ -i STEP -İ

00030 PRİNT "KOK 00040 NEXT I:END NO ERRÜR 68118 PRINT " HATALI HESAPLAMA, SATIR: "ER RLN

PROGRAM ADI

FCOL 6,15 90026 FOR 151024 Tü 2023:POKE Iİ,1İ:NEXT 229025 FOR Izi TO R,C, 20832 FÜR Izi TO 180:G0SUB 1İ000:FOR TO TO 108:NE XT 00040 END 21000

PROGRAM ADI : S.PAUSE

PRİNT SANİYE B :PAUSE SıPRINT TI$ "<RIİGHT>SIMDIİ D E 8 SANIYE...",SiPRINT TI$

PROGRAM ADI : S.PLACE

POKE 632,34:POKE 633,20 iPOKE "ASF 00020 POKE 632,34:POKE 633,20 198,3:1NPUT "2.KELİMENİZ 20040 PRİNT <3DOLİN>" RUN

PROGRAM ADI :

PRİNT 6,15 FOR Isi TO FOR Izi TO RNDS)415,

PROGRAM ADI S.NRM-BCKGNDS -COLOUR

209005

60030 00040

CSET iİ:COLOUR 15,15 VEB T ır

PRİNT "<RYSON>"ASIP RINT B$:PRIİNT "<RVSON>"B$ >) 4 FOR Isi TO 200:NEKT Aşz" " THEN 48 NRM

20068

—DEN A

PROGRAM ADI : S.INKEY

THEN 18 IF AND İNT<Cİ/2)-1/2 THEN PRİNT "SHİFT 18 IF Iİ<9 THEN PRİNT IF THEN PRİNT HIFT iğ PRINT "Cs F"I:60T0 18

22818

"Cz VE 5S

PROGRAM ADI :

00010 POKE 631,34:POKE 632,34:PÜKE 633,20 :POKE 198,3:1NPUT "iİ.KELİMENİZ 00020 POKE 631,34:PÜKE 632,34:POKE 633,20 iPOKE 198,3:1NPUT "2.KELİMENİZ 088030 INPUT "KACINCI HARF "ASİF ) THEN 38 PRİNT RUN

PROGRAM ADI S.INSERT POKE 631,34:POKE 632,34:POKE 635,20 :POKE "iİ.KELİMENİZ POKE 631,34:POKE 632,34:POKE 633,20 iPOKE 13938,3:1NPUT "2.KELİMENİZ A0030 INPUT "KACINCI HARF THEN 3â PRİNT RUN

PROGRAM ADI : S.DUP

00010 POKE 631İ,34:PÜKE 632,34:POKE 633,28

198,3:1INPUT "KELİMENİZ 00030 INPUT "KAC KERE"; 00040 IF LENCAS)*A>2SS THEN PRİNT "COK UZ

UN 68850 PRİNT RUN

PROGRAM ADI : S.AT

64":B$z"46 ERODOMMOC" FOR TO

FOR Isi TO 8:PRİNT KT

FOR T FOR EKT

TÜ

Isi TÜ âT(2041,841)B$:N

PROGRAM ADI : S.CENTRE

00018 20048

DIM FOR Isi TÜ FOR Js1 TO NEXT

b yu

FOR Isi Tü RINT

"<CLR>"

"<CLR