Atari 8-bit Source code

0 ? "HELP SQUIRREL TO COLLECT ALL THE NUTS!BEWARE,​ONCE ITS RUNNING,​ IT ONLY STOPSFOR NUTS OR THE GARDEN BORDER!":​PAUSE 250
1 POKE 106,​PEEK(106)-4:​GRAPHICS 18:​MOVE 57344,​PEEK(106)*256,​512:​FOR X=24 TO 39:​READ D:​POKE PEEK(106)*256+X,​D:​NEXT X
2 X=10:​Y=5:​A=0:​GRAPHICS 18:​POKE 712,​196:​POKE 708,​228:​POKE 710,​194:​POKE 19,​0:​DATA 6,​47,​111,​30,​62,​28,​28,​120,​32,​16,​60,​126,​60,​60,​60,​24
3 POKE 756,​PEEK(106):​FOR D=0 TO 29:​POSITION RAND(20),​RAND(12):​? #6;"";:​NEXT D:​POSITION X,​Y:​? #6;"#"
4 REPEAT:​N=STICK(0):​DY=(N=13 AND Y<11)-(N=14 AND Y>0):​DX=(N=7 AND X<19)-(N=11 AND X>0):​IF DX<>0 OR DY<>0:​REPEAT:​POSITION X,​Y:​? #6;" ";
5 SOUND 0,​125,​10,​10:​SOUND 1,​200,​12,​4
6 IF DX<>0:​X=X+DX:​LOCATE X,​Y,​N:​IF N<>32:​A=A+1:​ENDIF:​IF N<>32 OR X=0 OR X=19:​DX=0:​ENDIF:​ENDIF
7 IF DY<>0:​Y=Y+DY:​LOCATE X,​Y,​N:​IF N<>32:​A=A+1:​ENDIF:​IF N<>32 OR Y=0 OR Y=11:​DY=0:​ENDIF:​ENDIF
8 POSITION X,​Y:​? #6;"#";:​PAUSE 2:​SOUND:​UNTIL DX=0 AND DY=0:​ENDIF
9 UNTIL (PEEK(19)*256+PEEK(20))>750:​POSITION 1,​3:​? #6;A;" NUTS COLLECTED":​PAUSE 100:​GOTO 2