AMİGA SALATASI
Retro bilgisayar

C) ORTA DOĞU GÖREVLERİ
War Update 1
1) Bravo: Sektör 5A'daki sınırı geçen 3 tankı yok edin. 2) Bogie: Sektör 6F'deki üssünüze yaklaşan iki Mig'i ancak siz durdurabilirsiniz.
3) Alpha: Sektör 4D'deki radar istasyonunu yok edin. Böylece bir hava koridoru açarsınız.
4) Foxstrike: Sektör 3F'deki köprüyü yok ederek düşman yer kuvvetlerinin geçmesini engelleyin.
5) Lizard: Sektör 4C'deki highway'de 6 kamyon ve 4 tanklık bir tümeni haritadan silin.
6) Charlie: Sektör 2H'deki havaalanını yok edin.
War Update 2
1) Moonstruck: Sektör 3B'deki Arap kuvvetlerine cephane üreten fabrikayı yok edin.
2) Rogue: Sektör 2F'deki güç istasyonunu (şehrin doğusundaki) yok edin.
3) Pincer: Bu göreve başlamadan muhakkak haritayı çok iyi inceleyin. Düşman tanklarını (gri noktalar) ancak buradan görebilirsiniz. 6 tank yok edin ve üsse dönün.
4) Torch: Sektör 4A'daki düşman pistini ve istasyonunu yok edin.

5) Crossfire: Düşman petrol rafinerisini esas hedefinizle (petrol tankları) yok edin (Sektör 1F).
War Update 3
1) MayDay: 3 düşman uçağı başkente yaklaşıyor. Hepsini yok edin.
2) Lord: 2 tank savaşı ön çizgiye doğru yaklaşıyor. Hepsini mahvedin.
3) Torture: 3. sektörün B kısmındaki demiryolundaki köprüyü yıkın.
4) Romeo: Hacimli tank tesisatı (Sektör 1F) Rusya'dan ithal edilen T-80'leri topluyor ve birleştiriyor. Amacı da filo kurmak. Yok edin.
3) Worrior: Sektör 1C'deki kimyasal silahlar yaptığı sanılan fabrikayı yok edin.
4) Gold: Tarihin en kanlı tank savaşı oluyor. 8 tank yok edin ve kendi kuvvetlerinizi koruyun.
War Update 5
1) Ajax: Miscon sektör 1B'deki başkenti bombalamak istiyor (etrafındaki fabrika, köprü vs. de cabası). Bu yetmezmiş gibi sektör 2A'daki internasyonel havaalanını da yok edecekmiş. Puah! Ana pisti yok edin de görsün.
2) Dawn: Sektör 1D'deki çelik şebekesini yok edin (kentin güneybatısı) ama sakın Kızıl Haç hastanesine zarar vermeyin.
3) Zeus: Düşman her şeye yeniden başlamış. Yeni kuvvetler ön sınıra kadar gelmiş, eskilere destek veriyorlar. Bunlar hâlâ bizim sınıra giremeyeceklerini anlayamamışlar ama bir daha anlatırsanız anlarlar.
4) Red: Düşman yardımı kesmek için kara ve demiryolunu etkisiz hale getiriyor. Ayrıca Tel-A-Von'dan ön sınıra giden konvoya da saldırıyorlar (Sektör 7G).
War Update 7
1) Abyss: Savaşın zirvesine geldik. Burada size bir sır, özel radar menzilli silahlar var.
War Update 4
1) Head: Sektör 1D'de geniş düşman konvoyu var. 10'dan fazla kamyon içerdiği için tehlikeli olabilir. Tüm konvoyu yok edin.
2) Juna: Düşman tüm üssü toplamış, hava filosuyla başkente doğru geliyor. Hedefiniz kesin değil ama onları üsten uzakta tutun (Sektör 3G). War Update 6
1) Stand Stili: Düşmanın durumu kritik. Bültenin endüstrileri batmış. Düşman da Sektör 1A'daki El Alamein fabrikasıyla idare etmeye çalışıyor. Yok olursa mahvolur.
2) Vice: İki taraf da savaş uzadıkça yoruluyor ama buna rağmen iki taraf da vazgeçmiyor. Fanatik tank tümenleri hâlâ bizi yenebileceklerini düşünüyorlar, herhalde ki kara kuvvetlerimize saldırıyorlar (Haritada işaretli). 4 lider tankı ve destek taşıtlarını yok edin.
3) Thunder: Bilinmeyen bir yerden havalanıp aniden radarlarınıza yakalanan düşman kuvvetleri son ölçülü ataklarını yapıyorlar. Hedef Sektör 4G. Tüm Bogileri yok edin.

D) AVRUPA GÖREVLERİ
War Update 1
1) Mig Cap: Üssünüze iki davetsiz Mig yaklaşıyor. Yok edin.
2) Bomb Cap: Muhafızları olan iki Hellcat üssünüze yaklaşıyor. Bogey Vektörü 30 derece. Bence Amraam alın.
3) Intercept: 2 Su 27 Flanker sınırı zigzag yaparak geçip Huttguard'a yaklaşıyorlar (Sektör 8A). Biraz dişinizi sıkarak mahvedebilirsiniz.
4) Tom Cod: Sektör 4D'de düşmana destek veren 3 yeri uçurun.
5) Aggressor: Sektör 6D'de kızıl tanklar bizimkileri zor durumda bıraktıklarını gören uydumuz hemen size haber veriyor. 6 tank yok ederseniz bu görev de biter.
6) Firehand: (Sektör 8D) 2 düşman grubu tank grubuna destek sağlıyor. Avantajlı olmalarını istemiyorsanız yok edin.
7) Ironhand: (Sektör 3D) Güney sınırında Stein Nehri yakınında radar ve SAM sitelerini yok edin ve hava trafiğini bir check-up'tan geçirin.
8) Backbreaker: (Sektör 5E) Arka düşman kuvvetlerini yok etmek için hedefiniz Sektör 5E'deki anahtar görevini gören Liepen köprüsü.
9) Limelight: (Sektör 8F) Liepen köprüsünü geçen Frunsroure'e yaklaşan kara konvoyunu yok edin.
10) Linebacker III: (Sektör 1G) Tranevra havaalanı ve hangarlarını yok edin. Özellikle ana piste dikkat.
War Update 2
1) Jaw Breaker: (Sektör 6D) Stein ırmağının kuzey kısmındaki köprüyü yok edin.
2) Fourstar: (Sektör 2F) Düşman yedek deposunu yok edin.
3) Big Ear: (Sektör 7E) Radar istasyonu ve SAM'ı yok edin.
4) Deep Throat: (Sektör 3H) Pist ve gördüğünüz her şeyi yok edin.
5) Strike-Out: (Sektör 2C) Düşmanın en zor ve sinsi saldırısı. Önce durdurun sonra vurun.
6) Tin Can Alley: (Haritaya bakın) 6 tankı vurun. Kendi kuvvetlerinizi koruyun.
War Update 3
1) Iron: (Sektör 8C) Köprüyü yok edin ve düşmanın ön kısmına ulaşmasını engelleyin.
2) Titan: (Sektör 8G) Konvoyu yok edin.
3) Snake Eye: 3 MiG'e karşı tank takımınıza desteğe gidin ve vurabildiğiniz kadar vurun.
4) Grind: (Sektör 5H) Endüstri kompleksi düşmana yedek parça üretiyor. Yok ederseniz düşmana ağır darbe vurmuş olursunuz.
5) Lights Out: (Sektör 5H) Nehir kenarındaki istasyonu yok edin.
6) Fly-by: (Sektör 1D) Dost F18'lerden çoğu MiG'ler tarafından düşürülür. 3 avcı uçağı da sektör 1D'deki Alp Dağlarında. War Update 4
1) Operation Wolf: (Sektör 5C) MiG'ler zigzag yaparak Nürnberg sınırına yaklaşıyorlar.
2) Avenger: NATO aciz kalınca sürüsüne bereket Varşova Paktı tankları üzerimize gelir. En az 10 tane vurun.
3) Operation Thunderbolt: (Sektör 7H) Kimya fabrikası ve 2 depo tankını yok edin.
4) Operation Bear: (Sektör 2H) Silah fabrikasına saldırın. Silahlara dikkat.
5) Express: (Sektör 4H) Demiryolu ve trenleri mahvedin. Bu trenler doğrudan düşman başkentine gidiyor.
6) Untouchables: (Sektör 7A) Havaalanına yaklaşan düşman bombardıman uçaklarını yok edin. Bunlar çoğu dost depoyu yok etti. War Update 5
1) Venüs: (Sektör 7B) NATO kara kuvvetlerine bela olan Kızılordu (6 tank tümeni + 3 MiG)'yu yok edin.
2) Venüs 2: (Sektör 4B) Endüstri kompleksine saldıran 3 MiG'i durdurun.
3) Counter: Tank birliklerinize destek sağlayın.
4) Backache: (Sektör 7H) Son ana düşman köprüsünü yıkın.
5) Trax: (Sektör 8H) Tank fabrikasını yok edin (Ana bina).
6) Flame: (Sektör 8H) Hastane ile kilise arasında bile depo Varşova ordusu için benzin depoluyor.

• BASIC editöründe çalışırken yanlışlıkla silme tuşuna basarak ne olduğunu bilmediğiniz bir karakteri silerek incelediğiniz ya da üzerinde çalıştığınız programı bozdunuz. Hemen hiçbir tuşa basmadan WINDOWS menüden "SHOW LIST" kalemini seçerseniz, yaptığınız hata düzelmiş olur.
• Deluxe Paint ya da Photon Paint gibi programlarda nasıl çizim yapıldığını çoğunuz bilir. Mouse'un sol tuşunu basılı tutarak işaretçiyi hareket ettirdiğinizde, ekranda işaretçinin gittiği yerlerde noktalar oluşur. Bunu BASIC dilinde yazdıkları programlarda kullanmak isteyenler aşağıdaki program parçasını yazarak istedikleri programa bir alt-rutin olarak rahatlıkla ekleyebilirler.
f=l
WHILEINKEY$=""
YVHILE MOUSE(0)<0
PSET(MOUSE(l),MOUSE(2)),f
WEND
VVEND
Burada çizim yapılan rengi değiştirmek istediğinizde ilk satırdaki f değişkenine ait değeri değiştirmeniz yeterli olur. Programdan çıkmak için de herhangi bir tuşa basmanız gerekir.
• BASIC dilinde bir program yazdınız ve programı kullananların menü çubuğundaki seçenekleri görmesini istemiyorsunuz. Bunun için de aşağıdaki satırları programınızın başına girin:
MENU 1,0,0,""
MENU 2,0,0," "
MENU 3,0,0,""
MENU 4,0,0,""

Bu sayede hem menüleri kapamış, hem de menü fonksiyonlarına kısa yoldan ulaşmak için kullanılan tuş kombinasyonlarını da kilitlemiş olursunuz. Programınızın sonunda ya da "MENÜ RESET" komutu verildiğinde menü eski haline geri dönecektir.
* Şimdi de LOGO oyununu oynamaya çalışanlar için biraz ipucu verelim. Değişik kademelerden başlayabilmek için oyunda isminizi girmeden önce size bir şifre sorulacaktır. Bu şifre her oyun tipinde farklıdır.
1. oyun / 11. kademe = UHR5 2. oyun / 5. kademe = EYDM 3. oyun / 14. kademe = N3M5
* Bir disketin directory'sini görmek istediğinizde normal olarak CLI'da aşağıdaki satırı yazmanız gerekli:
DIR DF0: (RETURN) Fakat burada tek şart DIR komutunun disketinizin (C) directory'sinde ya da ana directory'sinde olması gerektiği. Peki ya diskette DIR komutu yoksa? Bu durumda iki çözümümüz var. Biri WorkBench disketi yardımıyla DIR komutunu ilk önce RAM:'e, ardından da disketi değiştirip hafızaya kopyaladığımız komutu disketin (C) ya da ana directory'sine kopyalamanızı gerektiren uzun yoldur. İkinci yöntem çok daha kısa ve basit: WorkBench disketimizi yükleyip CLI penceresini açtıktan sonra aşağıdaki satırı yazıp (RETURN) tuşuna basın. DIR DF0: +
Bilgisayar disketten DIR komutunu yükleyecek ve sizin tekrar RETURN tuşuna basmanızı bekleyecektir. Bu tuşa basmadan önce yeşil ışık söner sönmez directory'sini görmek istediğiniz disketi takın ve sürücü ışığının sönmesini bekledikten sonra (RETURN) tuşuna basın.
Komuttan hemen sonraki + sembolü, komutu yükledikten sonra sizin
RETURN tuşuna basmanızı beklemesini belirtir. Burada biraz hile kullanarak basmadan önce disketi hemen değiştirip basarsanız, komut yapacağı işlemi takılan son disket üzerinde gerçekleştirecektir. Bu fonksiyon WorkBench'teki hemen hemen tüm komutlar için geçerlidir.
* Yazıcı kullananlar BASIC dilinde hazırladıkları bir programın listesini basmak için LLIST komutunu kullanırlar. Bu, yazıcı kağıtlarında kolay olur. Fakat listeyi tek sayfalara basmaya kalkıştıklarında satırlardan bazıları sayfaya sığmayacağından yarım basılırlar. Bunu engellemek için aşağıdaki programı yazıp kaydedin ve çalıştırın.
Satıradedi=60
Setle=1
Satıruzunluğu=60
Einzel =0
d$=DATE$ : REM Tarihi bilgisayardan okur
jj$-RIGHT$(d$,2): tt$=MiD$(d$,4,2)
mm$=LEFT$(d$,2)
CLS :lnput "Program ismi: ";dn$
OPEN dn$ FOR INPUT AS #1
LPRINT "Program ismi :";dn$;
LRINT TAB(Satıruzunlugu-25);tt$"."mm$"."jj$;
LPRINT" Sayfa: ";Sayfa
LPRINT STRINGS(Satıruzunluğu,"-")
zz=2
WHILE NOT EOF(1)
LINE INPUT #1,z$
n=INT(LEN(z$)/Satıruzunlugu)+1
IF z$+n>Satıradedi THEN
IF Einzel THEN
PRINT "Yeni kağıt koyup bir tuşa basınız..."
WHILE INKEY$=
MM : WEND
ELSE
LPRINT CHR$(12);
END IF
Sayfa =Sayfa*1
LPRINT SPACE$(Satıruzunlugu-14);"Sayfa: ";Sayfa
LPRINT STRINGS(Satıruzunlugu,"-")
zz=2
ENDIF
FOR l=0 TO n-1
LPRINT MID$(z$,i*Satıruzunlugu+1 ,Satıruzunluğu)
NEXT I
zz=zz+n
WEND
IF zz<>0 THEN LPRINT CHR$(12);
CLOSE1
Bu programı programınızın sonuna ekleyip çalıştırmak istediğinizde aşağıdaki satırı programınızın gereken yerine yazınız: CALL Haftagünü (gün, ay, yıl, wt) Burada parantez içinde belirtilen gün ve ay'ın olduğu yere öğrenmek istediğiniz gün ve ayı ikişer basamaklı sayılar olarak girmeniz gerekir. Yıl ile belirtilen yere de yılı dört basamaklı sayı olarak giriniz.
Ana programa dönüşte wt değişkeninde günü belirten bir kod olacaktır, bu kodu da aşağıdaki listeden bakarak verilen tarihin hangi güne denk geldiğini öğrenebilirsiniz.
SUB Haftagünü(gün,ay,yıl,wt) STATIC
IF ay=2 THEN gün=gün+31
ay=13
yıl=yıl-1
ENDIF
h=INT(yıl/100)
r=yil MOO 100
kh=h MOD 4
kr=r MOD4
IF ay<8 THEN k=3 ELSE k=7
IF (ay MOD 2)=0 THEN k=5
wt=((2000*kh+10*(r-kr)+kr)+1000*ay+100*k+gün) MOD 7
END SUB
Programdaki satır başlarındaki boşluklar döngülerin daha kolay okunabilmesi ve programın incelemesinde böylece kolaylık sağlanması amacıyla konmuştur. Bunları isterseniz koymayabilirsiniz. Ayrıca bilgisayarınızın saati varsa (A-2000 ve saatli ek hafıza kartı olan A-500 sahipleri) bunu daha önceden ayarlamaları gereklidir. Saati olmayan bir bilgisayara sahipseniz 5. satırdaki DATE$ ile belirtilen satır dahil olmak üzere üç satır yerine aşağıdaki satırları yazın: jj$ = "yıl":tt$ = "gün":MM$ = "ay"
* Şimdi de programında bir tarihin hangi güne denk geldiğini bulmak için kafa çatlatanlar için ufak bir alt rutin:
0 = Cumartesi 1 = Pazar 2 = Pazartesi 3 = Salı 4 = Çarşamba 5 = Perşembe 6 = Cuma