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:Mini Break
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2015 (NOMAM 2015)
-
Year:2015
Listing 1
0 REM S."D:MINIBREK.TBS":RUN 10 GRAPHICS 19:FOR Y=3 TO 10:COLOR Y-2:PLOT 0,Y:DRAWTO 39,Y:NEXT Y:SC=0:AD=0:DL=DPEEK(560):POKE DL+28,6:B=3:BP=0:PS=DPEEK(88)+220 20 COLOR 0:PLOT OX,OY:X=19:Y=12:YM=0.25:XM=(RND(0)*1)-0.5:OX=X:OY=Y 30 IF BP:X=X+XM:Y=Y+YM:ENDIF:IF X<0:XM=-XM:X=0:ENDIF:IF X>39:XM=-XM:X=39:ENDIF:IF Y<0:YM=0.5:Y=0:ENDIF 40 IF Y>22:Y=22:B=B-1:BP=0:ENDIF:COLOR 0:XX=INT(X):YY=INT(Y):POKE 87,1:POSITION 10,11:? #6;B;" ";SC:POKE 87,3 50 IF XX<>OX OR YY<>OY:LOCATE XX,YY,C:IF C:YM=-YM:XX=INT(XX/2)*2:PLOT XX,YY:PLOT XX+1,YY:AD=AD+4-C:ENDIF:ENDIF:PLOT OX,OY 60 COLOR 1:OX=XX:OY=YY:PLOT OX,OY:IF V:V=V-5:SOUND 0,P,10,V:ELSE:IF AD:V=15:P=RND(0)*220:SC=SC+1:AD=AD-1:ENDIF:ENDIF 70 DPOKE PS+PX,0:S=STICK(0):IF S=11 AND PX>0:PX=PX-1:ENDIF:IF S=7 AND PX<8:PX=PX+1:ENDIF:DPOKE PS+PX,65535 80 IF YY=21 AND XX>=PX*4 AND XX<=PX*4+7 THEN XM=((XX-(PX*4))-3)/4:Y=21:YM=-YM 90 IF STRIG(0)=0 AND BP=0 AND B:BP=1:GOTO 20:ENDIF:IF PEEK(53279)=6:RUN:ENDIF:GOTO 30
References
Listing downloads
Downloads
Copyright holder