Sayfa 30

00100 REM <CİTE> 00100 REM REM * * REM * REM * * <e26> REM * LİGHTPEN * 00130 REM * - - * 00130 REM * > - * 00148 REM * * 00140 REM * * 00150 REM * DEMO * ©0150 REM * SOUND * 00160 REM * * 00160 REM * - * <e08> 00170 REM * * 00170 REM * * 00186 REM * BY AYHAN — <209> ©0180 REM * BY AYHAN — 00180 REM * * <a38> ©0180 REM * * REM * — 26.10.1886 SUNDAY * <138> REM * 26.10.1886 SUNDAY * <i38> 60210 REM * * REM * REM * FOR MAGAZİNE 'COMMODORE' * REM * FOR MAGAZİNE 'COMMODORE' « REM * * ©0230 REM * * <e23> 00240 REM 00240 REM : <100> : <ese> 00260 REM İNFORMATİON 00260 REM ORAL SCREEN 00270 PRİNT NOKTALA ©0270 POKE 53281,1 : POKE 53280,3 R HER" 00280 PRİNT S 00282 PRİNT SILINSIN MI ECİNİZ <a18> cese> ©0280 PRİNT #0280 PRİNT VEYA <R <ara> <esa> FOR | s1 TO 3 <145> 60300 GET AS 1 İF AS 4 ** THEN 300 <238)> 00310 00310 IF TKEN L 00320 PRİNT “<2SPACE)B B SES KANALI <086> 00330 PRİNT 00330 REM İNİTİRLİZİNG 60348 NEXT | <17e> 60340 POKE 53280,0 : POKE S3281,1 60350 <esı> 00356 PRİNT "<CLR>" 1 A 1824 1 40 <238) 00360 REM İNİTİALİZE 00360 C 1 D * 53267 00370 TI * 4 1 Sİ « Sda72 <a38> 00370 <018> 60380 FOR | 1 TO 16 <816> 00380 REM FİLL COLOR MEMORY 00390 READ ALE ©0380 FOR | « TO 56285 00400 POKE SİYA B <ea7> 80400 POKE 1,6 1 NEXT 1 <o26> NEXT 00410 DATA 24,15, 0,207, 1,50, 7.207 <ara> 00420 REM READİNG THE VALUES 00430 DATA 8,100, 14,207, 15,150, 6,240 <138> 00430 REM ANO STABILİZİNG ©0440 DATA 13,240, 20,240 <173> 00440 FOR | 1 TO 5S 00450 00450 X * X * PEEK 00460 REM *** ASK LİGHTPEN POSİTİON <186> 60460 Y Y * PEEK ©0470 Y « PEEK (53268) 00470 NEXT | <asa> X İNT 1 YS İNT 00490 REM CHECK POSİTİON IF Y > 78 AND Y< Si THEN Ta 00500 REM * CONVERTİON TO COORDİNATES « <osa> 00510 KX * INT <ısa> 00516 IF Y > 118 AND Y< 131 THEN TE KY * INT (<Y-45)/189040) bu 00530 : IF Y > 188 AND Y< İZİ THEN Ta 00540 REM CHECK COORDİNATES 18 <ıza> 80550 IF KK < O THEN KX © <a18> IF O THEN KY s8 <ase> 00540 REM ** CHANGE THE SOUND CHANEL 00578 IF KX > THEN KX <e7a> 00550 IF Ta Tİ THEN 468 <136> 08588 IF KY THEN KY <e31> 00560 POKE : <a37> 00570 POKE Sİ*TE İZ 00600 REM CLEAR/SET POİNT 00580 <aes> 08610 IF L © THEN POKE <078> 00580 REM VALUES & RETURN <037> POKE 160 <ısa> TI « Ta 00630 : <ası> GOTO 460 <1se> 00640 REM NED VALUES & RETURN <087> KA * KK 1 YA X YS O GOTO 428 <ise> 00640 60670 <ass> 00650 REM 60680 <ass> ©0660 REM CHANGES FOR VİC 80 <238)> * <108> 00670 REM 00700 REM REM 00710 REM CHANGES FOR VIC 80 <033)> 60680 REM DELETE 370-440! 00720 REM 88708 REM İn 80730 REM <155> REM NOW TYPEt ©0740 REM REPLACE THESE LİNES REM 00750 REM 00730 REM 270 POKE 36878,27 <ısa> 00760 REM 340 POKE 36879,24 ©0740 REM 370 T2 * 36874 : POKE 36878,15 <153> 00770 REM 358 PRİNT B 00750 REM 478 Y « PEEK 36871) <185> 00760 REM 508 IİFY< 00780 REM 360 : <a17> © 00798 REM 390 FOR | TO 38905 60770 REM IİFY<CLOSE 60800 REM KX İNT B0810 REM 526 KY * INT <ısa> 00780 REM 520 REM 8 00830 REM IF YOU WANT TO SAVE <814> 00780 REM 568 POKE Ti ,© <ise> REM THİS PROGRAM YOU SHOULD ©0800 REM 570 POKE <ese>

00850 REM REFORMAT LİNES 270-290