1 Kasım 1989 Tarihli Commodore Gazetesi Sayfa 66
PROGRAM ADI © ODİSKET ÜZERİNDEKİ YE .-00010. REM DİSKET. ÜZERİNDEKİ YER. HARLTASI (839) Booza 'Wİ(.J <öaa) "TO"LOPEN 0.0.0."H"PR INT Wi1İS5. Uhl. 6.10,0" 00040 PRINT "15."B-Pt0.76"1FORK-ATOTLU7WA *NU87 tNEKXT <103> <003)> 00050 PRINT #W#15."B-P10.76"tFOR Ke7G TO (4 NEKT SIPRİNT W#E.NUS) 1 <a29) YENİ İLK DOSYA Bir diskette bir dizi dosyanız olduktan sonra, en çok kullandığınız dosyayı directory'de ilk sıraya yerleştir- mek İsteyebilirsiniz. O pozisyona geldiğinde, bilgisa- yarınızı açtıktan sonra, LOAD"*”,8- girerek dosya adını yazmanız onu yükleyebilirsiniz. Aşağıda- ki program, disketteki ilk dosya ile diğer dosyaların yerlerini değiştirebilmenizi sağlayacaktır. Bu progra- mı önce yedek bir kopyada deneyin. Yoksa bir hata o disketteki her şeyi kaybetmenize neden olabilir. PROGRAM ADI © İLK DOSYA BO01O REM İLK DOSYA M 000820 INPUT "SİMDİKİ (LK PROGRAMIN ADI"IF 000308 :INPUT "ILK YAPILACAK PROGRAMIN ADI " 060040 l:’::ll'l' "DISK KONTRÜOLÜ"CLÜPEN 15.0.15. 60058 P::H'I' "DOSYA DEGİSTİRME"İFİĞeFdA", " * 80870 PRINT |IS 'BII'OPI.O'-.I'OPIIPRİNT 415,"601 060888 FPRINT ııa 'III “epge'edı "APLSEPRİINT WLB."ROL"AFGA"e0E "Fid 600890 CLÖSE 1İSIPRİNT “<EDOLNDHEPSİ TAMAMI - <105)> c4ı) (127) ASAL SAYILAR Bu kısa ve oldukça hızlı program bir sayının asal olup olmadığını saptar. 10.000'e kadar olan sayılar bir İki saniye içinde belirlenebilmek- le birlikte, 9999973 gibi büyük sayıların tespiti C- 64'te 40 saniye kadar alabilmektedir. Bu prog- ramın her tür Commodore bilgisayarında çalış- ması gerekir. FPROGRAM ADI © ASAL SAYILAR Oddl€ REM ASALSAYILAR <(067) aaazö PRİNT "<CCLR)” 80038 IİNPUT "CDOLND"YNEZESGRCMİEYELETF Ku © THEN E <151)> 00040 IF MZBSİNT(MNZE) THEN PRİNT "<DOKN) COMPOSİTE"1COÖTO 30 <1891) 00850 FOR Y-3 TÜ Z STEP BiDek/YLİSİNTCD)I 8«D-I <(187) 00060 İF 8)0 TKEN MEMT <079)> 90070 IF 8e0 THEN PRİNT " CDOKM)COMPOSİT E":60OTO 38 <Ba3a) 000868 PRIİNT "<(DOKNDASAL "1GOTO 38 dıa)> C-64 INSTR FONKSİYONU C-128'de bir dizginin (string) diğeri içindeki yerini bu- labilmek için pratik bir İNSTR fonksiyonu vardır. Aşa- ğıdaki altrutin aynı sonucu ö4'de de almanızı sağla- yacaktır: AS ve B$ değişkenleri, sırayla uzun dizgi ve bulmak istediğiniz kıscı dizgidirler. İlk harf uygunluğunun po- zisyonu XX değişkeninde verilmektedir. Ü değeri çı- karsa hiç uygunluk bulunamadığı anlamına gelir. Ali- rutindeki değişkenleri -XA, XB, XE, XX ve SP- progra- minizin başka kısımlarında kullanmamaya dikkat edin. Tuhaf sonuçlarla karşılaşabilirsiniz. PROORAM ADI « TNSTR 00018 SİN 64 INSTR <153) 010800 XA REh POZTSYONU BASLATMA <241)> 010618 İ(I MESSP TÜ MA-KGSLLIR MİDSCAS, XO9 THEN MNEMKCIMC AA (154) ı0260 ıın'r #RETURN <(187)
