1 Şubat 1987 Tarihli Commodore Gazetesi Sayfa 30

PROGRAM ADI © LİĞHTPEN.FPRGİ PROGRAM ADI : LIİGHTPEN.PRGZ 00100 REM Akk$AKAA A KKK KK KA KA KKK A KKK& KK İ LB) Od100 REM ktkk4*H*LKK KKK KKK A KA KKK H KA HK $ AA CİLE) g0118 REM * * <159> Bdl11ğ REMİ & * <159) galğö REMİ * LIGHTPEN * <886) 00120 REM * LIGHTPEN * <8806) 60130 REM * ———0 zzzem * <C175) 08130 REM * --- * <175> 28140 REM * * <189)> 80140 REM * * <189) 20150 REM * DEMÖ * <853> 00150 REM * SOUND * <087> 80168 REM * --- * <177) A816A REM * --- * <008> 00170 REMİ * * <B819) 80170 REM * * <819> 80180 REM * — BY AYHAN KALAYLIOGLU * <aag) 80188 REM * — EBY AYHAN KALAYLIOĞLU * <a209> 80190 REM * * <239) 00190 REM * * <B39) gazoa REM * 86.10,1886 SUNDAY * <188> gazda REM * 26.10.19886 SUNDAY * <138> BöZz10 REM * * <003> göz10 REM * * <003> gaz22a REM * FOR MAĞAZİINE 'COMMODÖRE' * <G18) dözğde REM * FOR MAGAZINE 'COMMODORE' * <O18> 00230 REM * * <OBZ3) 00230 RE * * 083> 0240 REMİ kktk a d a o e a K o o a — CESR) OöOZ2dO REM ktkkKAKAAKK KA KA KA MA MA $A KA KK CESE) aaasa : <1860> ooa25a : <aagz> BOZ6A REM ktkkkekkt İNFORMATION #kkkkkkk <OET) Oö260 REMİ Akk4KA4A DRAHİ SCREEN #44444KH <OS3) OöZ7A PRİNT " <CLRO<CADORNİCİZİLEN NOKTALA 00270 POKE S328i,i : POKE 53280,3 <oz2a> R HER" <ase)> 80280 PRİINT " <CLRİ<CDÜLNNMDCESPACE İLUTFEN S 0280 PRİNT "<ODOLNDOEFASINDA SILINSIN MI ECİMİZ!" <a213> 2<DOMN>” <238) 00290 PRİNT — “<8SPACE)--------------- <DOLİ 80290 PRİINT " <RVSONJE<CRVYSOFFİVET VEYA <R N>" <alıa> VSON>HERYVSOFFİAYIR" <asa> 00308 FOR | # 1 TÜ 3 <145> 80300 GET A$ : İF A 4 "" THEN 388 <239)> 00318 PRINT — “<3SPACEYASE" <ıda> 60310 IF A$# - "H" THEN L - 1 <asa; 090320 PRINT “<a2ASPACE)B &B SES KANALI #“:1 <ösa> «-BOB328 1 <17a)> 00330 PRIİINT — “<2SPACE Y FARCEDORM)" <aad1)> 00330 REM #***t*44 INİITİALIİZİNG *#kkkkKK4 <224) 00348 NEKT | <ı7a> 00348 POKE S53280,0 : POKE Sağasli,i <218) 00350 : <851> 00350 PRİNT "<CLR)" © A & 10824 : B z dü <238) 90360 REM #*#** İNİTİALİZE SİO-CHİP #&*t& <006> 0360 C - 84 : D - 53267 <039) 06370 TI &* 4 : Sİ « Sdü7E <a238> 00370 : <818)> 00380 FOR | # 1 TÜ 18 <B16> aa3se REMİ #k4&4 FİLL COLOR MEMORY *#t4*k&k <096)> 90390 REARD A,B <186)> 80390 FOR | « S5296 Tü 56295 <ıa28)> 00400 POKE Sİ*A,LB <da7) 00400 POKE 1,8 ! NEXT | <azE> 88418 NEXT I <ada> Bp4la * <B1a) O0d20 DATA 24,15, O,207, 1,50, 7,B07 <Bl4> Od420 REM #&kk&k4 READİNG THE VALÜES #4t& <OdE) 80430 DATA 8,100, 14,207, 15,150, E,2dü <138> 00430 REM #tkkk4 AND STABİLİZİNG #k4AkA <048) addada DATA 13,240, 20,24da <173> B04dü FOR | # 1 T0 5 <a3a> o04sa : <ıta)> 009450 X - X * PEEK <0) <a3B) 00460 REM **& ASK LİGHTPEN POSİTİON *&t <186> 80460 Y z Y * PEEK (D*1) <aB2a> 00476 Y * PEEK (53268) <176> 00470 NEKT | <844> ağdsa : <084)> 00480 X — INT <X/5) 3 Y ös İNT <Y/5) <175> 00490 REM OÖ#k*&44 CHECK POSİTİION #*tk44t44 <AF73) odasa : <aga9> 80500 I1F < THEN TE 80500 REM * CONVERTİON TÜ COORDİNATES * <0d1)> - <994)> 00510 KX & İNT (0X-50)/1804(B-1)) <154> 805186 IF Y 118 AND Y< 181 THEN T8 g0520 KY * İNT (0Y-45)/19040) <O57)> - 11 j <4) 00530 : <159)> 090520 IF Y > 1598 AND Y < İ7i THREN T8 090540 REM KK& CÖHECK COÜRDIİNATES #k4k4 <C8239) - 18 <174)> 80550 IF KX < 8 THEN KK z 8 <a1a> 90530 * <893) g0560 IF KY < O THEN KY 5z 8 <a38) 08540 REM ** CHANGE THE SOÜUND CHAMEL *& <8234) 00570 IF KX ) B-L THEN KX & B1 <a74)> 80550 IF Ta « Ti THEN 468 <136) ga5g8 IF KY C THEN KY - <831> 090560 POKE 51*4T1,8 <a7a> sağaa : <B37)> 80570 POKE Sİ*TE2,17 <183) 00600 REM #**tk4 CLERR/SET POİNT #&x444 <150)> 00580 : <a8a5> 00618 IF L © THEN PÖKE A*KAY*YAKB,3E <A78> 00590 REM #**&* NEW VALUES & RETURN #*&$ <037)> ağ62d PÖKE A*KX*KY*B, BO <164)> 00600 TI « T& <119)> 00630 : <a5ı> sasta GOT0 â6ü <150> O06dü REMİ ktkk hEI..I UAL.UES & RETURN *tkx <0SB7) g0620 : <867) 00650 KA * KX 1 - KY a <ı171> 00630 : <848)> 88660 GOTO 482 <136> ağEda : <d87> 006790 : - <255> 00650 REMİ ıııtıtıııxtıııııtıııxttxııı;ış <154)> g80688 : <235> 06560 REM #*t4& CHANGES FOR VİC 28 ** <839> 006390 : <1086) 00670 REM Ok#k*k*k4kH4KKK 4KHK K KKK KKK KKK KK CİT7A) 8O700 REM HükkkkkkA KA LA KKK KK A ai — CEOĞ) 60680 REM <ıga2> 80710 REM &&& CHANGES FOR VIC BO #tkk <033) 00690 REM DELETE 370€-440! <oza> OO720 REM KkKRKKKAK KKK R KA KKK AA KKK& KA KA <CBBd) 88700 REl : <143; 80730 REMİ <155)> 80718 REM NOÖM TYPEt <8189) 00740 REM REPLACE THESE LİNES <BdB)> gö7a2a REİ <049) 00750 REMİ <a56)> 080738 REM a7a POKE 36879,27 <168) 00760 REM 340 POKE 36879,24 <144)> 80740 REM 378 TE 368?4 : POKE 36878,15 <153) 80770 REM 350 PRİNT “<CLR)" ! AsS7ESO (| B 898750 REM 470 Y - PEEK (36871 <085> sBa <185> 0760 REM 508 İFYX sa'mEı—rra 36874:GOTOS4 00780 REM 360 Cs32 : Ds3687 <aı17> <181> 90790 REM 3890 FOR İ - 3346& TO 38905 <199> 80770 REM Si0 İFY<CLOSE B5THKENTE-36875:6 00880 REM Si8 KX — İNT (0X-55)/954(B-1)) <ali)> OTOS54a <ita)> 80810 REM S KY * İNT (0Y-38)/8940) <153) 80780 REM S20 İFYC103THENTE«36876:60TOSA 8828 REMİ <123) a <189> 80838 REM IİF YOU WANT TÜ SAVE <B14> 80798 REM 568 POKE Ti,8 <(158)> gözsdü REM THİS PROGRAM YOU SHOULÜO <181) 80800 REM 578 POKE T&,(T&E-36871)450 <ASa> 80850 REM REFORMAT LİNES 270-2890 <056)> — C OMLNOCOLE —— 30