Atari 8-bit Source code

1 DIM P(4),​Q(16),​S(16):​L=2:​H=53248:​DATA 39,​EBEBIBNDOHMPMDMDEDACACADADADABIBIBIBIBIBIBIBIDMDMHOHOHOPMPMPMPIPININININININEC
2 GRAPHICS 8:​GRAPHICS 3:​DATA 15,​IBODLGMBODOHONDPPPPPPPPPOHMDEC,​15,​BIOHPPPPHPOHIBMDOHOPOPOPOPGGCE,​14,​BIPPOHNLPPGGIBMDMLOPOHOHOHGG,​1,​AA
3 POKE 54018,​48:​W=0:​A=PEEK(106)-20:​POKE 54279,​A:​M=256*A:​POKE 559,​46:​POKE 53277,​3:​POKE 623,​8:​I=M+426:​DIM G$(80):​P=53768:​U=128
4 E=0:​I=I+134:​READ Z,​G$:​FOR J=1 TO Z:​POKE I+J,​ASC(G$(J+J-1,​J+J-1))-65+(ASC(G$(J+J,​J+J))-65)*16:​NEXT J:​W=0:​IF I<M+1024 THEN 4
5 POKE 54016,​240:​POKE 54018,​52:​?:​COLOR 1:​FOR I=5 TO 19:​PLOT 10,​I:​DRAWTO 29,​I:​NEXT I:​DPOKE 704,​6744:​DPOKE 706,​58490:​SOUND 0,​120,​10,​9:​POKE 82,​0
6 E=E+1:​N=RAND(5):​R=RAND(4):​P(R)=P(R)+32*(E<192 AND N=0 AND ((P(R)&127)=0))
7 FOR I=0 TO 3:​P(I)=P(I)+((P(I)&127)>0)*L:​P(I)=P(I)*(P(I)<224):​POKE H+I,​P(I):​NEXT I:​SOUND 1,​121,​10,​10:​POKE P,​E&63:​IF E<255 THEN 6
8 E=(P(0)=U)+(P(1)=U)+(P(2)=U)+(P(3)=U):​FOR J=0 TO 999:​NEXT J:​FOR I=0 TO 15:​POKE $D300,​I*16:​S=PEEK($D300)&15:​T=PEEK($D010)
9 POKE $D300,​255:​Q(I)=(S=14)+(S=13)*3+(S=11)*4+(S=7)*2:​NEXT I:​? E;" ANIMALS":​COLOR 0:​FOR I=5 TO 19:​PLOT 10,​24-I:​DRAWTO 29,​24-I:​NEXT I
10 FOR I=0 TO 15:​S(I)=S(I)+(E=Q(I)):​? I;"=";S(I);" ";:​W=W+(S(I)>4):​NEXT I:​FOR J=0 TO 5000:​NEXT J:​L=L+2*(L<4):​IF W=0 THEN 5	

• Download link 1

• Download link 1
• Download link 2