Atari 8-bit Source code

0 REM   
1 GRAPHICS 0:​POKE 710,​0:​POKE 752,​1:​? "Puzzler for SC NOMAM 2014":​? "Search bitmap shown down left.":​? "<>black <>orange item."
2 ? "Use stick in #0":​? "Sometimes a short hint flashes up.":​? "Press trigger to test if you're right.":​? "Good luck!"
3 PAUSE 350:​GRAPHICS 3:​POKE 752,​1:​POKE 710,​0:​R=DPEEK(88):​FOR L=0 TO 199:​POKE R+L,​RAND(25)&85:​NEXT L:​O=RAND(9):​P=RAND(8)*2
4 FOR L=0 TO 3:​?:​FOR I=6 TO 0 STEP -2:​? CHR$(160*(0<>(PEEK(R+O+(P+L)*10)&2^I)));:​NEXT I:​NEXT L:​X=0:​Y=0:​SOUND 1,​250,​10,​4
5 TIME$= "000000":​POKE 656,​1:​POKE 657,​8:​? "Puzzler 2014 by Sleepy";:​SOUND 2,​249,​10,​4:​DO:​POKE 656,​3:​POKE 657,​8:​? TIME$;
6 S=STICK(0):​X=X+(S=7 AND X<9)-(S=11 AND X>0):​Y=Y+2*(S=13 AND Y<16)-2*(S=14 AND Y>0):​SOUND 0,​RAND(100)+155,​10,​10
7 FOR L=0 TO 3:​A=R+X+(Y+L)*10:​POKE A,​PEEK(A)*2:​NEXT L:​PAUSE 5:​FOR L=0 TO 3:​A=R+X+(Y+L)*10:​POKE A,​PEEK(A)/2:​NEXT L:​IF PEEK(20)>253 THEN EXEC H
8 IF NOT STRIG(0) THEN POKE 77,​0:​V=V+1:​C=(X=O) AND (Y=P):​REPEAT:​UNTIL STRIG(0):​IF C THEN SOUND:​FOR M=0 TO 50:​EXEC H:​NEXT M:​EXIT
9 LOOP:​SOUND:​?:​?:​? "Gr8! You found the aim with the":​? V;". try! You need ";TIME$;" (hhmmss).":​PAUSE 300:​RUN
10 PROC H:​FOR L=0 TO 3:​A=R+O+(P+L)*10:​POKE A,​PEEK(A)*2:​NEXT L:​FOR L=0 TO 3:​A=R+O+(P+L)*10:​POKE A,​PEEK(A)/2:​NEXT L:​ENDPROC