Bu sayfadaki yazılar
Sayfanın metni
Sayfa 4
Programımız C-64 için BASIC dili ile yazılmıştır.
Yüklenmesi normal yolla LOAD "COMP-1" (disket kullanıcıları için LOAD"COMP-1",8) komutu ile yapılmaktadır.
Yükleme süresi kaset kullanıcıları için yaklaşık 5 dk. olup program Dataset'te 85 sayaç sürmektedir.
Disk-Drive kullanıldığında yükleme süresi 33 sn'ye inmekte ve program disket üzerinde 54 Blok kaplamaktadır.
Bir Turbo programı kullanıldığında Kaset kullanıcıları da programımızı çok kısa sürede SAVE ve LOAD edebileceklerdir.
Programın amacı BASIC programlamaya yeni başlayan kişilerin eğitiminde C64'ü bir slayt makinesi gibi yardımcı ders aracı olarak kullanabilmektedir.
Program RUN edildiğinde karşımıza çıkan 18 seçenekli MENU'den istenen numara seçilerek o sayfa ekrana getirilmekte ve sayfanın incelenmesi tamamlandığında (ya da istendiğinde) SPACE tuşu ile tekrar MENU'ye dönülebilmektedir. Programdan çıkmak için RUN STOP/RESTORE yeterlidir.
Programı hazırlarken her sayfa ayrı ayrı tasarlandığından kısaltma konusunda fazla duyarlı davranmadım. İstenirse BASIC programımız bu kurallara göre çok daha az bellek kullanacak şekilde kısaltılabilir. Ya da daha iyisi makine diline dönüştürülerek kullanılabilir.
Tüm Commodore programcılarına selam ve saygılar.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 5
ARAKTER" PRİNT PRİNT VE RI SOFF> DEGİSKENLER":PRİNT OP ERATORLER<4SPACE ><RIGHT><RVSON>LA<nR VSOFF > A.ATAMA PRİNT AL FAB.FONK<3SPACE VSOFF> “<4RIGHT)<RVSON>L7<RVSOFF)> PR OGRAM MOO'U<3SPACE ><RVSON> 18<RVSOFF > ÖNCELİK" INPUT. IMINIZI GİRİN C<1 OR C>i8 THEN 18 IF THEN Cis€CtON CIGOSUB 30108 *800 .430.640.840.920.1350.1110.1494608 IF THEN 158 .2530.269 ©.2850 18 PRİNT BILGİSAYA R BLOK SEMASI PRİNT 3 >< RVSOFF >“3 PRINT ACE >MANTIK<2SPACE ><RVSOFF PRINT ACE >" 3 ACE ><RVSOFF -B><LISPACE ><RVSOFF >" PRINT “<ERİGHTİ<RYVSON><CTRL-2)> AVYE <RVSOFF>"3“<2RI 1-MONİTOR <RVSO FE>* PRINT ACE ><RVSOFF SON)<CTRL-2><115PACE ><RVSOFF >" PRİNT "<ERİGHT><RVSON><CTRL-2)> 2-GR AFIK <RVSOFF L-8> ARITMETİK<RVSOFF VSON><CTRL-2> ><RVSO FF>* PRINT CE>TABLET <RVSOFF "<3RIGHT><RVSON ><CTRL-8 10SPACE ><RVSOFF >" 3 >" PRINT ACE ><RVSOFF >" 3 ><2SPACEYUNİTESİ <RVSOFF >“3 3-SES<C5SPACE > <RVSOFF >* PRİNT 43-15 IK.K <RVSOFF “<3RIİGHT><RVSON)<CTR VSON)<CTRL-2)<11SPACE >" PRINT ACE ><RVSOFF “<3RIGHT><RVSON)<CTRL <RVSOFF >"; “<anrRIG HT><RVSON)<CTRL-P)> 4-KART<4SPACE ><R VSOFF >" PRINT 4-KO NT.K <RVSOFF >"3 "<3RIGHT)<RVSON><CTR L-8><10SPACE ><RVSOFF >": SON><ÜCTRL -2 YAZ ICI <2SPACE >< <RVSOFF >"3 "<aRIG' HT ><RVSOFF > “<ERİGHT><RVSON><CTRL-2> S-KA RT<3SPACE ><RVSOFF >"; "<3RİGHT><RVSON 10SPACE PRINT -2 ><3SPA
CE >OKUYUCU<RYSOFF "<ZRIGHT)B" PRİNT ACE ><RVSOFF PRİNT "<İSRİGHTİ<RVSON><CTRL-8)< 105 PACE >" PRİNT 1-ANA BELLEK“ PRİNT “<İSRİGHT><RVSON)<CTRL-8)><10S PACE >"3" PRİNT 3-SABIT DISK* PRİNT "<İSRİGKT><RVSON><CTRL-8><10S PACE ><RVSOFF >" GET RETURN PRİNT 53281.5:POKE 5 32880.13:PRINT PRİNT “<HOME MER KEZİ İSLEM PRİNT ><RVS OFF PRİNT GİRİS/CİKİS BELLEĞ 1 <2SPACE ><RVSOFF >" PRİNT CCCCCCCCC<RYSOFF "<RIGHT>6ESa8SA" PRİNT "<3RIİGHTİROM' ACE >CALISTIRMA ><RVSO FF >* PRİNT CCCCCCCCC<RYSOFF >") PRİNT *<3RİGHTİROM "<RVSON><3SP ACE DIİL<3SPACE ><RVSOFF >> PRINT PRİNT “<3RIİGHTİRAM "<RVSON><ESP ACE İCİNCSSPACE >" PRİNT CCCCCCCCC<RVSOFF "<RIGHT)24576“ PRİNT KULLA ><RVSOFF >" PRİNT "<3RIİGHTİRAM C>"3 PROGRAMININ<3SPACE ><RVSOF PRİNT “<SRİGHT><RVSON)<3SPACE ANDIĞI YER<4SPACE ><RVSOFF >“ PRİNT CCCCCCCCC<RVSOFF "<RIGHT>3584" PRİNT “<3RİGHTİRAM C>"3 "<RVSON><4SP SİSTEMİ <3SPACE ><RVSOFF >
PRINT "<SRIİGHT><RYVSON><22SPACE ><RVS BIT“:PRİINT PRINT "<SRİGHT>ROM: YALNIZ
LI BELLEK“ GET * RETURN PRINT 53281.61POKE 5 LAMA DİLLERİ“ PRINT :FOR Xs1 TO 40:PRİNT T “OZ.":PRİNT "<UP)<3RİIGHT)> OBOL."; "PAS CAL" FOR TEszi TO 16 PRINT "<3RIGHT>B"; "<C3nR IGHT)>)B" NEXT TE PRİNT “<HOME)<3DOWN>":FOR TO 40 X PRINT TO 40:PRİNT *C"33NEKT X