manyak kaynak // canavarlar

Ilker's Commodore 64/128 Projects

http://cbm.ficicilar.name.tr/

PROGRAM ADI: LIGHTPEN. PRG1

100 REM  ******************************
110 REM  *                            *
120 REM  *         LIGHTPEN           *
130 REM  *         --------           *
140 REM  *                            *
150 REM  *           DEMO             *
160 REM  *           ----             *
170 REM  *                            *
180 REM  *     AYHAN  KALAYLIOGLU     *
190 REM  *                            *
200 REM  *    26. 10. 1986   PAZAR    *
210 REM  *                            *
220 REM  *   COMMODORE DERGISI ICIN   *
230 REM  *                            *
240 REM  ******************************
250 :
260 REM  *********** BILGI ** *********
270 PRINT  "<CLR><4DOWN>CIZILEN NOKTALAR HER"
280 PRINT  "<DOWN>DEFASINDA SILINSIN MI?<DOWN>"
290 PRINT  "<RVSON>E<RVSOFF>VET ";
295 PRINT  "VEYA <RVSON>H<RVSOFF>AYIR"
300 GET A$: IF A$ = "" THEN 300
310 IF  A$ = "H" THEN  L = 1
320 :
330 REM  ********** HAZIRLIK **********
340 POKE  53280, 0: POKE  53281, 1
350 PRINT  "<CLR>": A = 1024: B = 40
360 C = 24: D = 53267
370 :
380 REM  ***** RENK BELLEGINI BOYA ****
390 FOR I = 55296  TO  56295
400 POKE I, 0: NEXT I
410 :
420 REM  ***** DEGERLERI OKUMA ********
430 REM  ******* VE SABITLEME *********
440 FOR I = 1 TO 5
450 X = X + PEEK (D)
460 Y = Y + PEEK (D+1)
470 NEXT I
480 X = INT (X/5): Y = INT (Y/5)
490 :
500 REM  *** KOORDINATLARA CEVIRME ***
510 KX = INT ((X-50)/180*(B-1))
520 KY = INT ((Y-45)/190*C)
530 :
540 REM  **** KOORDINATLARI DUZELT ****
550 IF  KX < 0  THEN  KX = 0
560 IF  KY < 0  THEN  KY = 0
570 IF  KX > B-1  THEN  KX = B-1
580 IF  KY > C  THEN  KY =C
590 :
600 REM  ******** NOKTA KOY/SIL ********
610 IF  L = 0  THEN  POKE  A+XA+YA*B, 32
620 POKE  A+KX+KY*B, 160
630 :
640 REM  **** YENI DEGER & DEVAM ****
650 XA = KX: YA = KY: X = 0: Y = 0
660 GOTO  420

....