Atari 8-bit Source code

0 DIM S$(76):​S$="g<|<8<><xp`x ||888JIII''''''''''A":​Q=ADR(S$):​R=PEEK(106)
1 POKE 106,​R-8:​GRAPHICS 1:​POKE 106,​R:​CLS:​POKE 54279,​R-4:​POKE 559,​46:​DPOKE 53256,​257:​DPOKE 53258,​257:​POKE 53277,​3:​DPOKE 708,​$12C4:​P=(R-4)*256
2 W=53248:​DPOKE W,​$6868:​DPOKE W+2,​$7888:​DPOKE 704,​$850A:​DPOKE 706,​$1D85:​MOVE Q+64,​DPEEK(560)+7,​12:​MOVE 57344,​(R-8)*256,​1024:​POKE 756,​R-8
3 MOVE Q+56,​(R-8)*256+264,​8:​? #6;"NUTS!",​"HI:​";J:​? #6;"SCORE:​":​FOR X=0 TO 10:​? #6;" aaaaaa aaaaaa":​NEXT X:​F=1:​S=16:​H=104:​B=1:​E=0
4 D=12:​G=16:​K=0:​Z=1:​DO:​POKE 53278,​1:​A=2*STRIG(0):​IF F=0:​F=PTRIG(0)-PTRIG(1):​ENDIF:​IF A=0:​-MOVE P+664,​P+666,​78:​-MOVE P+792,​P+794,​78
5 SOUND 1,​0,​Z,​2:​Z=Z=0:​K=K+1:​S=S-4:​IF S<0:​S=15:​ENDIF:​IF B:​D=D-2:​MOVE Q+22-B*6+D,​P+728-64*B,​2:​B=B*(D>0):​ELSE:​B=(RND>(1-L))-(RND<L)
6 D=12:​L=K/5000:​ENDIF:​ENDIF:​IF E:​G=G-4+A:​MOVE Q+40+G,​P+920,​4-A:​E=G>0:​ELSE:​G=16:​E=(2-A)*(RND>0.9):​ENDIF:​-MOVE P+920,​P+924-A,​78:​IF F=-1
7 IF H=104:​F=0:​ELSE:​H=H-8:​MOVE Q,​P+589,​8:​ENDIF:​ENDIF:​IF F=1:​IF H=136:​F=0:​ELSE:​H=H+8:​MOVE Q+8,​P+589,​8:​ENDIF:​ENDIF:​POKE W,​H:​SOUND 0,​0,​0,​0
8 X=PEEK(53260):​SOUND 1,​0,​0,​0:​IF X&8:​SOUND 0,​50,​10,​15:​K=K+K DIV 5:​-MOVE P,​P+964,​28:​ELSE:​IF X&6:​EXIT:​ENDIF:​ENDIF:​POSITION 6,​1:​? #6;K;
9 SOUND 2,​H,​10+(F=0),​6:​PAUSE 0:​POKE 54277,​S:​LOOP:​IF K>J:​J=K:​ENDIF:​SOUND 2,​0,​0,​0:​GOTO 1
900 REM NUTS!
901 REM BY JEFF.PIEPMEIER@GMAIL.COM
902 REM WRITTEN FEBRUARY 27 2016
903 REM FOR THE 2016 NOMAM 10-LINE
904 REM PROGRAMMING CONTEST (PURE)
905 REM PROGRAM NOTES AT
906 REM JEFFPIEPMEIER.BLOGSPOT.COM
907 REM GITHUB.COM/JEFFPIEP