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:Ringtoss
-
Category:Other
-
Publisher/Developer:BASIC 10-liner Contest 2015 (NOMAM 2015)
-
Year:2015
Listing 1
10 GRAPHICS 1:POKE 712,10:POSITION 0,18:? #6;" ":? #6;" ":POSITION 14,10:? #6;"I":DIM OX(4),OY(4),XM(4),YM(4) 20 POSITION 10,11:? #6;"I I":POSITION 10,12:? #6;"I O":POSITION 10,13:? #6;"O":DIM X(4),Y(4),A(4),O$(4):O$="Oo":FOR I=0 TO 3:REPEAT 30 X=INT(RND(0)*14):Y=INT(RND(0)*18):LOCATE X,Y,C:UNTIL C=32:X(I)=X:Y(I)=Y:XM(I)=(RND(0)*3)-1:A(I)=1:NEXT I:REPEAT:V=0 40 FOR I=0 TO 3:IF A(I):OX=X(I):OY=Y(I):POSITION OX,OY:? #6;" ":X(I)=OX+XM(I):Y(I)=OY+YM(I):Z=(X(I)<0)+(X(I)>19)+(Y(I)<0)+(Y(I)>19) 50 IF Z=0:LOCATE X(I),Y(I),C:IF C=73:A(I)=0:ELSE:IF C<>32:Z=1:ENDIF:ENDIF:ENDIF:IF Z:XM(I)=-XM(I)/2:X(I)=OX:Y(I)=OY:ENDIF 60 IF YM(I)<1:YM(I)=YM(I)+0.1:ENDIF:POSITION X(I),Y(I):J=(I MOD 4)+1:? #6;O$(J,J):IF S=0:DST=ABS(X(I)-4):YM(I)=YM(I)-(PWR/DST) 70 XM(I)=XM(I)+(PWR/(DST/2)):IF ABS(YM(I))>1:YM(I)=SGN(YM(I)):ENDIF:IF ABS(XM(I))>1:XM(I)=SGN(XM(I)):ENDIF 80 ENDIF:V=V+1:ENDIF:NEXT I:S=PEEK(53279)=7:IF S:IF PWR<30:PWR=PWR+3:ENDIF:ELSE:PWR=PWR/2:IF PWR<1:PWR=0:ENDIF:ENDIF:A=A+1 90 UNTIL V=0:? "ANTI-SCORE: ";A
Downloads
Copyright holder