Sayfanın metni
Sayfa 23
Program ilk olarak bir müzikle başlıyor. Ardından bilgisayar size adınızı soruyor. Daha sonra ekrana bir menü geliyor. Menüde birinci seçenek soru yazmak için. Eğer biri seçerseniz bilgisayar RECORD&PLAY tuşlarına basmanızı istiyor. Otuz saniye bekledikten sonra bilgisayar size sorunun ne olduğunu soruyor. Yalnız soru en fazla beşyüz karakter olabilir. Fakat bunu DIM komutunun bulunduğu satırlardaki sayıları değiştirerek ayarlayabilirsiniz. Ardından, bilgisayar şıkları yazmanızı istiyor. Şıkları girdikten sonra yanıtın ne olduğunu soruyor. Yalnız burada önemli bir konu var. Cevabı yazarken ilk önce hiçbir işaret koymadan hangi şıkkın doğru olduğunu ufak harfle yazmanız gerekir. Daha sonra istediğiniz şekilde sorunun cevabı hakkında açıklama yapabilirsiniz. Bütün bu işlemlerden sonra bilgisayar 30-35 saniye kayıt yapıyor. Kayıt bittikten sonra bilgisayar ana menüye dönüyor.
Menüdeki ikinci seçenek yaptığınız soru kayıtlarını geri çağırmak için. İkinci seçeneği seçtiğinizde bilgisayar sizden PLAY tuşuna basmanızı istiyor. 30-35 saniye yükledikten sonra soruyu ekrana yazıyor ve sizden yanıt istiyor. Eğer bilirseniz sizi tebrik ediyor ve yeni soru yükleyip yüklemeyeceğinizi soruyor. Eğer yeni yükleme yapmak istemezseniz ana menüye dönüyor.
Programda soruların yüklenmesi biraz uzun sürüyor. Ama kaset için hazırlanmış OPEN komutunun bulunduğu satırları disket için değiştirirseniz programın çalışması oldukça hızlanıyor. Programa eklenen birkaç satırla da soruları printere aktarmak mümkün.
Bu programın amacı önemli soruları saklamak olduğu için programa saat ve değerlendirme koyulmamıştır.
NOT: Programım COMMODORE-128 için 128 modunda hazırlanmıştır.
NOT: Örnek olarak programdan sonra 5 soru koydum.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 22
TO 23680 PRİNT 3690 PRİNT "<RVSON) NEXT 1 RETURN REM DİSPLAY 4
2770 PRİNT 810 ir 3818 IF EL<Cİ THEN PRİNT PRİNT IF OR THEN PRİNT 3850 PRİNT 1F DECAGOTO 3878 IF THEN PRİNT PRİNT 3818 IF THEN PRİNT :GOTO 3810 IF THEN PRİNT PRİNT NEXT FOR TO SIPRİNT Cz 3970 1F ELECİ THEN PRİNT "<RYSONDFTCRVSO 3878 IF 1 THEN PRİNT F>"1160T0 3978 IF THEN PRİNT
>*316G0TO 3870 PRİNT * IF EzCO THEN PRİNT PRİNT IF THEN PRİNT "ö":G0TO 4848 IF THEN PRİNT 0 IF THEN PRİNT >8*:GOTO 4040 IF THEN PRİNT "<RYSONDF 4040 PRİNT NEXT FOR İZCİ TO EYE)
IF THEN 4080 IF EL<CO THEN PRİNT TO 4130 PRİNT "<RVSON> "LEFTSCSP$,C2-1)"N"LE THEN 4130 GOTO 4140 IF THEN PRİNT PRİNT "<RVSOND&" IF THEN PRİNT " 4140 1F THEN PRİNT ti OTO 4150 PRİNT "<RVSON)CASPACE
Gaza PRİNT "<RVSON>' ELİF 1 PRİNT NEXT I RETURN REM DİSPLAY DEPTK 5S
PRİNT "<HOME ><ZDONN> PRİNT Z&::1F CscaGoTO 4280 PRİNT 4300 PRİNT IF THEN PRİNT 1GOTO PRİNT
IF 4240 PRİNT PRİNT FOR 4378 PRİNT *F PRİNT 1F EzCO THEN PRİNT 4489 PRİNT * IF THEN PRİNT PRİNT NEXT PRİNT 4456 PRİNT 1GOTO 4460 PRİNT İF THEN PRİNT *3160TO 4488 PRİNT 1F 4500 PRİNT "<RVSON>M":GOTO 4510 PRİNT *<RVSONDE" RETURN PRİNT ARDIN, IF a PRİNT 17sa 1140 INPUT "BİR DEFA DAHA OYNAMAK İF THEN RUN EnD FOR TO TO 18 PRİNT JEPRİNT 1 PRİNT FOR JeV-1 TO © STEP -İ:FOR Isi TO H PRİNT TEPRİNT j
*ÇOLROLABİRENTTEN CİKMAYI BAS TEBRİKLER!