Допустим хотим мы, при нажатии
последовательно клавиш 0,5,9,4 перейти на
следующий уровень. Вот эта подпрограмма
нам поможет.
Все параметры задаются в строке 1015, а
именно:
eesleep% - задержка в мс, за которую нужно
успеть нажать следующую клавишу
eenumkey% - кол-во кодов клавиш,
используемых в читах.
В строке 1090 указываем коды клавиш.
Ну и в строке 1055 редактируем код после
THEN

                        
1000 REM -= Easter Egg by aNNiMON =-

1005 REM -= INIT =-

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%

1050 REM -= PROC =-

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