Sayfa 85

Bu ayki BASIC programımız bir fare labirenti oluşturan basit bir oyun. Programı yazıp kaydettikten sonra çalıştırın. Oyunun başında size labirentin yatay ve düşey boyutları soruluyor. Bunları yanıtladıktan sonra oyunu oynamaya başlayabilirsiniz. Amacınız en kısa yoldan labirentin çıkışını bulmak. Eğer kaybolursanız 'BAKIŞ' seçeneğiyle labirentin tamamını üstten görebilirsiniz. Başarılar.

SCREEN 1,840,200.3,2 WINDOW 2,,,0,1 WINDOW 3,"LABİRENT!",(0,0)-(410,186),0, 1 PALETTE 4..2,.2,.2

COLOR 1,4 CLS

WIND0W OUTPUT 2 Yc1 = 10

yc2 - 15 x = 515: y = 94 ‘Sol yon okunun baslangici

COLOR 3 LINE (x,y)-STEP(-30,0) ‘sol yon okunun çizimi LINE -STEP(0,-3) LINE -STEP(-10,5) LINE -STEP(lO,5)

LINE -STEP(0,-3) LINE -STEP(30,0)

LINE -STEP(0,-4) PAINT STEP(-2,2),3 LINE (x+15,y)-STEP(30,0) LINE -STEP(0,-3) LINE -STEP(10,5) LINE -STEP(-10,5)

LINE -STEP(0,-3) LINE -STEP(-30,Û) LINE -STEP(0,-4) PAINT STEP(2,2),3 LOCATE yc1 PRINT PTAB(x-8)"HAREKET";

LOCATE yc2 PRINT PTAB(x-8)"BAKIS" ;

WINDOW OUTPUT 3