Sayfa 15

SOURCE CODE LIİSTİNG:

1 a ORG 3 CHROUT 4 GETİN EfÜU Edli & SHAPE EfU #26 7 XSAVE Edl $27 & YSAVE 8 BUNSU Edl

10 RPTFLG

13 #EKRANI HAREKETE GECİR

15 KONUG

LDA 16 JSR CHROUT LDA HA 18 STA BUNSU 18 LDA ga STA RPTFLG Bı LOX #S1Z Ba LOY #$18 ea LODA 84 UPSHP STA SHAPE a5 ; 26

#CHAR SHAPE'INİ BAS

Ba es : 20 XSAVE s1 STY YSAVE aa CLC 33 JSR PLOT s4 LDA SHAPE 35 JSR CHROUT 36 LDA 37 JSR CHROUT 38 : 389 ANAHTAR GİRDİSİ'Nİ BEKLE 49 : 41; 42 ICANAHK JSR GETİN 43 LOX XSAVE 44 LOY YSAVE 45 CMP Ha 46 BEG ICANAH 47 #;STOP OLURSA CİK 48 CMP 43 43 BEG CIK SA ;<SPACE> OLURSA BOS BIRAK CMP BEG UPSHP S3 ;<F1> ISE KÜRSOR YUKARI

SİL #KURSOR YANIP SONER

TEKRAR İMKANI VER #KORSORU BASLAT

# X,Y'I TUT

KURSOR KONUMUNU KUR

YAZ ; ARKA MEKAN

YENİDEN KUR

IC ANAHTAR YOK

54 CMP #$a5

55 BEG YUKARI 56 ;<F3> ISE KURSOR SAGA s7 CMP #$86 BEG SAG 59 ;<F5> ISE KURSOR SOLA sa CMP Bı BEG SOL B2 :<F7> OLDUĞUNDA ASAGI 63 CMP &4 BEG ASAGI 65 ;EGER CHAR YAZMAZSA 66 ($SAN-HOF > 67 BOSVER && CMP ba BCC ICANAH 7a CMP 71 BCS ICANAK 78 KALIBINI YENİLE 73 JMP UPSHP 74 4: 76 ; KORSOR HAREKETİ m: 78 YUKARI DEX 7a CPX #SFF sa ENE YUKİ ER! LOX 82 YUKİ JMP CUTSHP 83 : 84 ASABI INX CPX 86 ENE ASAGIL 87 LOX 88 ASAGIL JMP CUTSHP 89 sa sas INY sı CPX #49 se BNE 93 LOY #a 84 SAGI JUMP 85 86 SOL DEY a7 CPY #SFF 88 BNE SOL1 ga LOY #38 SOL! JMP CUTSHP 102 ;BASİCE CİK 103 ; CİK LOA 105 JSR CHROUT 1206 SİL 1az RTS 108

END OF LIST