Atari 8-bit Source code

0 A=20:​M=ADR(" @``gX@@9f<@f))Af< @Acf0uQx=|%H8^_4R")
1 MOVE M,​$8800,​104:​MOVE $E068,​$8868,​408:​DIM X(5),​Y(5),​V(5),​W(5),​P(5),​E(1),​F(1):​E(0)=$4241:​F(0)=$4443:​E(1)=$4645:​F(1)=$4847:​GRAPHICS 18
2 POSITION 7,​4:​? #6;"FLEAS!":​POKE DPEEK(560)+12,​6:​POSITION 5,​7:​? #6;"press ":​WHILE STRIG(0):​WEND:​GRAPHICS 18:​DPOKE 708,​$28CA:​POKE 756,​$88
3 P=DPEEK(88):​DO:​S=0:​FOR L=0 TO 2:​-MOVE P+1,​P,​240:​H=9:​G=5:​M=3+L:​Q=P+H+G*A:​D=0:​DPOKE Q,​E(D):​DPOKE Q+A,​F(D):​I=0:​REPEAT:​W(I)=-1^RAND(2)
4 Y(I)=RAND(12):​V(I)=-1^RAND(2):​X(I)=(I MOD 2)*15+RAND(5):​P(I)=V(I)<0:​I=I+((X(I)+Y(I)) MOD 2<>I MOD 2):​UNTIL I>M:​TIME$= "000000"
5 T=0:​REPEAT:​FOR I=0 TO M:​X=X(I):​Y=Y(I):​IF -X>V(I) OR X+V(I)>19:​SOUND 0,​I*2,​0,​4:​V(I)=-V(I):​P(I)=1-P(I):​ENDIF:​IF -Y>W(I) OR Y+W(I)>11
6 SOUND 1,​I*3+1,​0,​4:​W(I)=-W(I):​ENDIF:​X(I)=X+V(I):​Y(I)=Y+W(I):​POKE P+X+Y*A,​0:​POKE P+X(I)+Y(I)*A,​$CB+P(I):​SOUND:​NEXT I:​V=E(D)+F(D)
7 IF DPEEK(Q)+DPEEK(Q+A)-V:​T=1:​ELSE:​Z=15-STICK(0):​H=H+(Z&8>0)*(H<17)-(Z&4>0)*(H>1):​G=G+(Z&2>0)*(G<9)-(Z&1>0)*(G>1):​IF Z&12
8 D=Z&4>0:​ENDIF:​R=Q:​Q=P+H+G*A:​IF R<>Q:​PAUSE 0:​DPOKE R,​0:​DPOKE R+A,​0:​T=DPEEK(Q)+DPEEK(Q+A):​DPOKE Q,​E(D):​DPOKE Q+A,​F(D):​POKE 77,​0:​ENDIF:​ENDIF
9 UNTIL T:​SOUND 0,​251,​12,​9:​DPOKE Q,​$4941-759*D:​DPOKE Q+A,​F(D):​S=S+TIME:​PAUSE A:​SOUND:​NEXT L:​POSITION 5,​2+7*(G<6):​? #6;"";S:​WHILE STRIG(0):​WEND:​LOOP
10 REM Fleas!
11 REM 2016-03-26
12 REM (C) 2016 by Victor Parada
13 REM <http:​//www.vitoco.cl/atari/>