Sayfa 66

PROGRAM ADİ © DİSKET ÜZERİNDEKİ YE

DİSKET. ÜZERİNDEKİ (829>

68020 NUS-CHRSCO) R

<182> <002> X476 TO 14

YENİ İLK DOSYA

Bir diskette bir dizi dosyanız olduktan sonra, en çok kullandığınız dosyayı directory'de ilk sıraya yerleştirmek isteyebilirsiniz. O pozisyona geldiğinde, bilgisayarınızı açtıktan sonra, LOAD"*”,8- girerek dosya adını — ASAL SAYILAR ki İka Baya ile Bu kısa ve oldukça hızlı program bir sayının yerlerini değiştirebilmenizi sağlayacaktır. Bu progra- asal olup olmadığını saptar. 10.000'e kadar mı önce yedek bir kopyada deneyin. Yoksa bir hata olan sayılar bir iki saniye içinde belirlenebilmek- © disketteki her şeyi kaybetmenize neden olabilir. le birlikte, 9999973 gibi büyük sayıların tespiti C- 64'te 40 saniye kadar alabilmektedir. Bu prog-

Tamın her tür Commodore bilgisayarında çalış-

ması gerekir. PROORAM ADI © ILK DOSYA ©0010 REM ILK DOSYA 00020 INPUT "SİMDİKİ ILK PROGRAMIN * PROORAM ADI ASAL SAYILAR 60020 INPUT “İLK YAPILACAK PROGRAMIN ADI" ©8010 REM ASALSAYILAR 60040 PRİNT PRİNT “ver case> 00030 İNPUT *COOKND Ka 000350 PRİNT "DOSYA © THEN END <ese> 00040 IF THEN PRİNT ©0060 PRİNT 30 <020> ©0058 FOR TO Z STEP 00070 PRİNT 8-0-1 cier> IF S>0 THEN NEXT 00080 PRİNT 00070 IF 8-0 THEN PRİNT E*160TO 20 00080 CLOSE İSİPRİNT TAMAMI 00000 PRİNT *CDOKNDASAL *100TO 30 .

C-64 INSTR FONKSİYONU

C-128'de bir dizginin (string) diğeri içindeki yerini bulabilmek için pratik bir INSTR fonksiyonu vardır. Aşağıdaki altyordam aynı sonucu 64'te de almanızı sağlayacaktır: A$ ve B$ değişkenleri, sırayla uzun dizgi ve bulmak istediğiniz kısa dizgidirler. İlk harf uygunluğunun pozisyonu XX değişkeninde verilmektedir. 0 değeri çıkarsa hiç uygunluk bulunamadığı anlamına gelir. Altyordamdaki değişkenleri -XA, XB, XE, XX ve SP- programınızın başka kısımlarında kullanmamaya dikkat edin. Tuhaf sonuçlarla karşılaşabilirsiniz.

PROGRAM ADI: INSTR

00010 REM 64 INSTR 000 UYGUN POZİSYONU BAŞLATMA FOR TO MİOSCAS. THEN #1028 NEXT <187>