     -:


1010 IF eeidx%<>0 THEN GOTO 1050
1015 eesleep% = 800: eenumkey% = 4
1020 eeidx%=1: eeslp%=0: eeidkey%=0
1025 DIM eekeys%(eenumkey%)
1030 FOR eei%=0 TO eenumkey%
1035 READ eekeys%(eei%)
1040 NEXT eei%
1055 IF eeidkey%=eenumkey% THEN level%=level%+1: RETURN
1060 IF INKEY(0)=eekeys%(eeidkey%) THEN eeidkey%=eeidkey%+1: eeslp%=0
1070 eeslp%=eeslp%+1
1075 IF eeslp%>eesleep% THEN eeidkey%=0
1080 SLEEP 1
1085 RETURN
1090 DATA 48, 53, 57, 52: REM 0+5+9+4


:   ,     0,5,9,4    .     .      1015,  : eesleep% -   ,        eenumkey% - -  ,   .   1090   .     1055    THEN


: aNNiMON
  : annimon.com