This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
Entry name:
Gemini Arkanoid
|
Publisher/Developer:
Atarionline.pl forum (Software library) 
|
|
-
Entry name:Gemini Arkanoid
-
Category:Games
-
Publisher/Developer:Atarionline.pl forum
-
Year:2026
Listing 1
10 GRAPHICS 0:POKE 752,1:? "}":SC=0:REM Inicjalizacja i ukrycie kursora [3, 4] 20 PX=18:REM Pozycja paletki 30 BX=20:BY=15:DX=1:DY=-1:REM Startowa pozycja i kierunek pilki [5] 40 FOR I=5 TO 35:POSITION I,2:? "#":POSITION I,3:? "#":NEXT I:REM Rysowanie cegiel 50 POSITION PX,22:? "===":REM Rysowanie paletki [5] 100 REM --- GLOWNA PETLA GRY --- 110 POSITION BX,BY:? " ":REM Wymazanie poprzedniej pozycji pilki 120 BX=BX+DX:BY=BY+DY:REM Aktualizacja pozycji pilki [5, 6] 130 IF BX<=0 OR BX>=39 THEN DX=-DX:BX=BX+DX:REM Odbicie od scian bocznych [7] 140 IF BY<=0 THEN DY=-DY:BY=BY+DY:REM Odbicie od sufitu 150 IF BY>=23 THEN POSITION 15,12:? "GAME OVER":END:REM Skucha - dno ekranu 160 LOCATE BX,BY,V:IF V<>32 THEN GOTO 300:REM Sprawdzenie kolizji [8, 9] 170 POSITION BX,BY:? "*":REM Rysowanie pilki 200 REM --- OBSLUGA JOYSTICKA --- 210 S=STICK(0) 220 POSITION PX,22:? " ":REM Wymazanie starej paletki 230 IF S=11 AND PX>0 THEN PX=PX-2:REM JOYSTICK LEWO 240 IF S=7 AND PX<37 THEN PX=PX+2:REM JOYSTICK PRAWO 250 POSITION PX,22:? "===":REM Rysowanie nowej paletki 265 FOR W=1 TO 20:NEXT W:GOTO 100:REM Opoznienie i powrot do petli 300 REM --- LOGIKA KOLIZJI --- 310 IF BY=22 THEN DY=-DY:GOTO 170:REM Odbicie od paletki 320 POSITION BX,BY:? " ":DY=-DY:SC=SC+10:GOTO 100:REM Zniszczenie cegly i odbicie
Listing downloads
Copyright holder