Sayfa 27

Bu program makine dilinde yazılmıştır ve ekranı mavi yapıp daha sonra ortasında sarı bir bandı genişletir. Bant belli bir kalınlığa gelince de sizin F1 tuşuna basmanızı bekler. Çerçeve rengini değiştirmek için POKE49173, renk; bant rengini değiştirmek için de POKE49191, renk yazmanız gerekir.

ADI EKRAN AÇMA

PEAN ATIF A

1 THEN 40 gez

E 10 243) iF Te>14288 THEN PRİNT "DATA SATIR ARI HATALI. 232 PRİNT *SYSASIS2 İLE (ıso DATA İSE DATA 120 172 8.006 (106) OnTA DATA 208.141 129 .248,206,28 192,169 01050 DATA 7.141,32,200,141,33.208,173 — <izi> DATA “148) 01070 DATA 208.201.0,208,249,1€9.6.141 — “106 DATA 38,208 “138> 01030 DATA — 21100 DATA DATA DE

SYS828 yazdığınız zaman bu program diskin directory'sini okur ve A$(C) dizisine atar. Mesela directory'deki altıncı programın ismini PRINT A$(6) yazarak öğrenebilirsiniz.

PROGRAM ADI 1 DİRECTORY DİZİSİ

PEN DİZİSİ Az328 10 BiPOKE A 90020 IF THEN PRİNT “DATA SATIRL APT HATALI... "SEND

00040 DATA 168.14,162,3.160,0,32,186.255, 882) 0900509 DATA 255,162,14.32.198,255,160,0,14 0.57.3,1932,250,1490.56,3,165,48,133 DATA 254,24,165,47,105,7,144,2.230, 254,133, 253, 169,09,133 192,1 33 (Yrat DATA 44,2 DATA 00090 DATA 141,57,3,16,31.174,57,3,208,30 ,192,32,208,22.160.0,165,250,145,25 4

NATA 132,250,24,165,053,105,3,144,2 1 DATA 3.140,59,3,160,0.145,251,165,2 4 001820 DATA 165,252,145,252,228,56,3,220,2 — 50.172,59,3,230,251,208,2,230,252,7 £

00130 DATA 166,3,36,48,58,42 9090140 PEM UYGULAMA ÖRLEGİ 20150 FEN FEN <a15>

sizi bekliyor

BASIC'le yazılmış bu program kısa makine dili veya BASIC programları kasetten veya disketten, kasete veya diskete kopyalayabilir. Ancak işlem BASIC'ten yapıldığından kopyalama işlemi hem yavaş olur hem de korumalı programlarda işlemez.

erle

PEOĞRAM ADI 3 MD. KOPYA PEN O KASETİ TAKIR * RETURM'E BAS ite * 00030 GET AS THEN 20 “aza 00035 PEİNT 00040 İNPUT MO DOSYA ANI THEN 40 00050 ORTAMI NE THEN İNPUT ORTAMI THEN ©0970 PRİNT YÜKLENİYOR... ÜYE 147.0:5YS 6263 90060 1F 10z1 THEN 30):60TO 100:PEM KASET 00050 ÖPEN HZ, AS, za 00100 PRİNT * 174) 42561 PEEK (175) 00118 PRİNT *CASPACE KOPYACASPACE DİSKETİNİ KKASEDİNİ TAKİP S RETURN'E BASIN * (238) GET ASOCHRSC13) THEN 30 119) 00130 PRİNT *08* KOPYALANIYOR... 192.SL:POKE (242)

BİLGİSAYAR

194,SH:8Y8 €2957. 090140 PRİNT * * 00150 PRİNT * TEKRAR KAYDETMEK İSTER MİSİ NİZ THEN 118