Sayfa 26

PROGRAMIN SATIR SATIR AÇIKLAMASI

SATIR 100- 170: Programla ilgili açıklamaları içeren REM satırları. SATIR 200: X ve Y yönündeki genişlikleri alma. SATIR 210- 300: Dolu bir labirent hazırlama (XW ve YW genişliklerinde). Sol üst köşeye S (Başlangıç, Start) sağ alt köşeye E (Bitiş, End) yazmak.

Fakat gene de bunların yerleri değiştirilebilir.

SATIR 310- 330: İki satır alta "RUN 1000" yazma (programın çözüm kısmı böyle çağırılıyor) ve programın ilk bölümünü bitirme.

SATIR 500: XW ve YW değerlerinin belirlenmesi. Bu satır değiştirilerek labirentin ebatları değiştirilebilir. (örneğin:

SATIR 1000: İkinci ve asıl kısmın başlangıcı. XW ve YW değerlerinin alınması. SATIR 1010: Boyutlu hafızaların belirlenmesi.

SATIR 1030: DX ve DY değerlerini okuyan ve bu verilerin bulunduğu kısım.

SATIR 1040: Ekrandan okumadan önce A ve hafızalarını sanki bütün labirent doluymuş gibi belirlemek.

SATIR 1050- 1100: A ve C'yi ekrandan okumak! *'lar labirent sınırı, *'lar dolu alan, S başlangıç, E bitiş ve boşluk boş alanı simgeliyor.

SATIR 1110: SP ve MS hafızalarını başlangıç değerlerine (1) oturtmak. SATIR 1120: Başlangıç veya bitiş yoksa "HATA!" mesajını verip

Programı bitirmek.

SATIR 1130: Komputer'in sistem saatini sıfırlamak ve asıl koordinatlar olarak başlangıç noktasının koordinatlarını belirlemek.

SATIR 1140: Rekursif altprogramı çağırıp labirenti çözdürmek. SATIR 1150: U$'e çözüm için gerekli olan zamanı almak. SATIR 1160: Labirentin çözümü yoksa "HATA!" mesajını verip programı bitirmek.

SATIR 1170- 1190: Bulunan çözümü C hafızasına "C" karakterleriyle işlemek. SATIR 1200- 1220: Problemin çözüldüğünü bildirip geçen zamanı yazmak. SATIR 1230- 1270: Hatırlatma amacıyla başlangıç şeklini ekrana vermek. SATIR 1310: Labirentin çözülmüş şeklini ekrana vermek. SATIR 1320: Programı bitirme.

SATIR 2000: C hafızasını ekrana çıkartmak için (1-2, Çözüm)

SATIR 1800: Rekursif altprogramın başlangıcı. "Çevreye bakma" altprogramını çağırma.

SATIR 1810: Çözüm bulunmuşsa "bir" durumuyla geri dönme.

SATIR 18820: 1 Yol tıkanmışsa "sıfır" geri dönme.