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:Air Threat
-
Category:Games
-
Publisher/Developer:BASIC 10-liner Contest 2015 (NOMAM 2015)
-
Year:2015
Listing 1
1 DSOUND:CLS:POKE 752,1:? "":PAUSE (40):X=10:Y=17:X2=34:Y2=3:D=0:X3=X:Y3=Y-1:S=0:SC=0:SCE=0:H=0:DX=0:DY=0 10 POSITION 26,21:? "SCORE ";SC:POSITION 26,22:? SCE:POSITION X-1,Y:? " ":POSITION X-1,Y+1:? " ":POSITION X-1,Y+2:? " ";CHR$(252);" " 12 X2=X2-1:POSITION X2,Y2:? " ":POSITION X2,Y2+1:? " < ":R=RAND(35)+2:IF X2=R THEN D=1:DX=X2:DY=Y2+1 15 IF D=1:POSITION DX,DY:? " ":DY=DY+1:POSITION DX,DY:IF DY>Y+1:D=0:? " ":ELSE:? CHR$(224):SOUND 1,DY+50,8,6:ENDIF:ENDIF 20 J=STICK(0):IF S=1 AND X3>X2 AND X3<X2+4 AND Y3>=Y2 AND Y3<Y2+2:SC=SC+1:S=0:H=1:Y3=Y:DSOUND:IF SC=30:END:ENDIF:ENDIF 30 IF DX>=X-1 AND DX<=X+1 AND DY>=Y AND DY<=Y+1:CLS:? "YOU LOST!":PAUSE (70):Y=0:GOTO 1:ENDIF 35 IF X<3 OR X>35 THEN X=3*(X<3)+35*(X>35) 38 IF X2<2:SCE=SCE+(H=0):X2=34:Y2=RAND(10)+3:H=0:IF SCE=3:POSITION 12,10:? "YOU LOST!":PAUSE (70):GOTO 1:ENDIF:ENDIF 50 T=STRIG(0):X=X-(J=11):X=X+(J=7):IF T=0 AND S=0 THEN S=1:X3=X 70 IF S=1:POSITION X3,Y3:? " ":Y3=Y3-1:SOUND 0,100+Y3,10,8:IF Y3=1:S=0:Y3=Y-1:DSOUND:ELSE:IF S=1 THEN POSITION X3,Y3:? "":ENDIF:ENDIF:GOTO 10
References
Downloads
Downloads
Copyright holder