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:Catch the X
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2013 (NOMAM 2013)
-
Year:2013
Listing 1
0 GRAPHICS 0:POKE 752,1:? "Paddle @ #0":? "Catch the X":? "Turn: / ":? "Turn & Fire: / ":FOR L=0 TO 3000:NEXT L 1 ? "":POKE 712,2:POKE 710,0:POKE 709,12:POKE 752,1:X=INT(RND(0)*38)+1:Y=INT(RND(0)*21)+1:POSITION X,Y:? "X":Z=0 2 XAA=XA:IF PTRIG(0) THEN XA=INT(PADDLE(0)/5)+1:IF XA>38 THEN XA=38:REM . 3 Z=Z+1:XBA=XB:IF PTRIG(1) THEN XB=INT(PADDLE(1)/5)+1:IF XB>38 THEN XB=38:REM . 4 YAA=YA:T0=PTRIG(0):YA=INT(PADDLE(0)/10)* NOT (T0)+YAA*T0:YBA=YB:T1=PTRIG(1):YB=INT(PADDLE(1)/10)* NOT (T1)+YB*T1 5 POSITION XAA,YAA:? " ";:POSITION XBA,YBA:? " ";:POSITION XA,YA:? "";:POSITION XB,YB:? "O";:IF Z>30 THEN FOR L=15 TO 0 STEP -1:SOUND 0,250,10,L:NEXT L:GOTO 1 6 IF X=XA AND Y=YA THEN HA=HA+1:FOR L=15 TO 0 STEP -0.1:SOUND 0,100,10,L:NEXT L:GOTO 1 7 IF X=XB AND Y=YB THEN HB=HB+1:FOR L=15 TO 0 STEP -0.1:SOUND 0,200,10,L:NEXT L:GOTO 1 8 POSITION 4,23:? "Spieler : ";HA;:POSITION 23,23:? "Spieler O : ";HB;:IF HA<10 AND HB<10 THEN GOTO 2 9 FOR L=1 TO 23:?:NEXT L:? "Spieler ";CHR$(20*(HA=10)+79*(HB=10));" hat gewonnen!":POKE 752,0
References
Listing downloads
Copyright holder