Sayfa 24

PROGRAM ADI

HDP LİST

PRİNT BİT. ADRESLERİCOND ALIK) R$(CF1O

00):DİM <15â4â> 00020 "<CLR><3DOWN>LUTFEN BEKLE YIMİZ":FOR TO C:PRİNT ETsPEEK(H):KeT <249>

00030 200: 2): 41:NEXT <224> TO GÖSUB ,200:PR

INT 00050 1: FOR Dz1 TO V:PRİNT Uç <247> 00060 PRİNT :FOR TO 100:NEXT . <078> 00070 PRİNT #<2DOWN>PRG LİSTESİ YAZICIYA YOLLANSIN MI? ";K$ <098> 00080 GET K$:1F THEN 80 <239> 00082 1F 100 <085> 00084 TE THEN: 80 <255)> 00090 END <092> OPEN 1,4â:X50:FOR Dz1 TO Gel TO B <166> 00110 :CLOSE 1:6G0TO 70 -<058> 00200 R-4096 <08B> 00210 THEN GOSUB 29 0;GOT0 225 00220 GOSUÜBR 260 <012> 00225 K-K-YAR:R-INTIR/16) <039> 00230 İF R<1 THEN 250 | <15B)> 00240 GOTO 210 <192> RETURN <052> 00260 IF Y<-9 THEN RSCD)- <1B3> 00270 THEN <178> 00280 RETURN <0B4> 00290 IF THEN “00300 1F Y>9 THEN <012>

00310 RETURN

JOY PORT Il e $0034

Ersin KAYGAN

Bence buradaki en yararlı program bu. Program çalışınca ekran kararıyor ve joystick'inizin PORT II'de olması gerektiğini bildiriyor. Artık joystick'inizi kontrol edebilirsiniz.

JOYSTICK Boşta: .... Yukarı: . Aşağı:

SOLE .

Yukarı 4 sol: .......... Yukarı 4 sağ: .......... Aşağı 4 sol: Aşağı sağ: es

JOYSTICK Yukarı 4 ateş: Gree 17 Aşağı 4 ateş: ......... Sol 4 ateş: .. Sağ 4 ateş: .. > Yuk 4 sol 4 ateş: Yuk 4 sağ 4 ateş: Aşağı 4 sol 4 ateş: Aşağı 4 sağ 4 ateş: ... korkmayın canım, sizler bu rakamlarla uğraşmayacaksınız, program bunları “YUKARI 4 ATEŞ” vb. şekilde belirtecektir. İlgilenen arkadaşlarıma bilgi olsun diye yazdım. Nasıl? Hoşunuza gitti değil mi?

SHINE&FALL © $0035

Ersin KAYGAN

Bu programda 60 tane yıldız ekranda adım adım parlayacak (siyah-koyu gri-gri-açık gri-beyaz-sarı) ve sönecektir. A$ değerine programımızın adını yazarak ve bir açılış tarihi vererek kullanabilirsiniz.

N<1 TO 100: NE DATA 12, 15, STEP.