Sayfa 44

PROGRAM ADI DATA OYNAMIYOR,YUKARI,YUKARI SAĞGA,S SAĞA,ASAĞI,ASAĞI SOLA,SÖL

A 20020 DATA YUKARI SOLA 20030 DIM TO SiREAD

EXT INPUT JOYS TICK J<>1 AND J<282 THEN 48 20050

A$LI)

I-JOY:1F THEN 65 22066 IF 1>8 THEN PRİNT "ATES &

8 6080 A$C1):G60T0 65

PROGRAM ADI : S.RESET DATA "SATIR 18" DATA "SATIR 11" DATA "SATIR 00013 DATA "SATIR 13" 20014 DATA "SATIR 14" DATA "SATIR 15" DATA "SATIR 16" 80100 INPUT "SATIR NO 10-16) SNK

18 ÖR SN>1İ6 THEN idüğü RESET SN:READ A$:PRINT "<RVSON>"AS:

188 PROGRAM ADI 5.USE INPUT "MİKTARI THEN END INPUT "PARA BİRİMİ ";TL$ INPUT "VIİRGÜLDEN ÖNCE KAC BASAMAK " VO INPUT "YİRGÜLDEN SONRA KAC "3 VS 00045 A$-""

00050 FOR Izi TÜ

FOR Izi TÜ NEXT A$zA$4" A

PRİNT #USE

PROGRAM ADI : S.FILL&SCROLL

FCOL FOR I-1024 TO 2023:POKE Iİ,1:NEXT 20938 FOR Izi TO 300:GOSUR R,C, *16:NEXT 200486 PRİNT "<CLR>":FCOL FOR Izi TO 300:6G0SUB R,C, k256:NEKT 20060 PRİNT "<CLR>" FOR Izi TO *16:NEKT Tü 425 Tada, TO gğasa IF THEN FOR TÜ DOLNU R,C,W,D:NEXT :GOTO 340 80100 IF J-2 THEN FOR TÜ RNDC8)415:0D OLİNB 320 IF THEN FOR TÜ UPLU R,C,bİ,D:NEKT :GÖTÜ 300 IF J-4 THEN FOR Tü PB :GOTO 300 Ağ130 IF J-5 THEN FOR TÜ R,C,W,D:NEXT :GOTO 308 IF J-6 THEN FOR TO EFTB :GOTO 380 001506 IF J-7 THEN FOR TO RND<8)x100: RIGHTU :GOTO 300 IF J-0 THEN FOR Iİlzi TO RNDC8)x15:R R,C,W,D:NEXT :GOTO 20300 NEXT

003393 PRİNT "<CLR>":END R-RNDCB)

PROGRAM ADI : S.FETCH

PRİNT A-Z ARASI TUSLARA BASINIZ: "? FETCH :PRIİNT * GOSUB 28040 PRİNT A-Z T gAd5A FETCH iü Vala) PRİNT "<DOLİN>ARTIK TUM TUSLARI KULL ANABILIRSINIZ" FETCH :P RINT :GOSUB PRİNT TUSLARINI KULLANAIN: FETCH :PRI NT :GOSUB iğdü PRİNT VE İ-2-3 RAKA MLARINI GİRİN: FETCH :GOSU B 201406 PRINT "<DOLİN>SADECE SAYILAR,NOKTA V E

FETCH "12345678390 :GOSUB 20939 END 21000 PRİNT "<RVSÜN>VYVERDİĞİNİZ YAZI: <RYSÜ