Atari 8-bit Source code

1 GRAPHICS 18:​DIM A$(5),​B$(5),​C$(5):​A$=" X ":​C$=" ":​HI=25:​? #6;"GRAVITY X by  ":​PAUSE 250:​CLS #6
2 HI=HI*(SC<HI)+SC*(SC>HI):​POSITION 5,​0:​? #6;" ";HI;:​PAUSE 20:​WHILE STRIG(0):​WEND:​SC=0:​N=3:​V=0
3 CLS #6:​V=V+1:​N=N+(N<3):​H=0:​Y=2:​T=24:​B=11:​POSITION 4,​0:​? #6;" play ":​PAUSE 80:​POSITION 4,​0:​? #6;" ":​POSITION 7,​B:​? #6;A$
4 POKE 712,​(V<8)*V*2*16:​B$=C$:​POSITION X,​Y:​? #6;C$;:​FOR Q=1 TO N:​B$(Q+1,​Q+1)=A$(Q+1,​Q+1):​NEXT Q:​T=T-1:​X=RAND(15):​L=RAND(1):​R= NOT (L)
5 POSITION X,​Y:​? #6;B$;:​IF STRIG(0):​GOTO 10:​ENDIF:​FOR Q=1 TO N:​D=Y
6 D=D+1:​LOCATE X+Q,​D,​W:​IF W<>32 AND D=B-H THEN SC=SC+1:​POSITION 0,​0:​? #6;SC;:​SOUND 0,​99,​10,​11:​PAUSE 7:​SOUND:​GOTO 9
7 IF W<>32 THEN SOUND 0,​8,​8,​10:​PAUSE 14:​SOUND:​N=N-1:​GOTO 9
8 POSITION X+Q,​D:​? #6;B$(Q+1,​Q+1);:​PAUSE 1:​POSITION X+Q,​D-1:​? #6;" ":​IF D=B:​W=99:​GOTO 7:​ENDIF:​IF W=32 THEN 6
9 NEXT Q:​IF N THEN H=H+1:​GOTO 3+(H<8)
10 X=X+R-L:​IF X=0 OR X=16:​R= NOT (R):​L= NOT (L):​ENDIF:​PAUSE T/V:​IF N:​GOTO 5:​ELSE:​GOTO 2
11 REM 10 liner contest 2016 Gravity X v1.2 by Jason Kendall (C) Kendallsoft 2016