10 CLEAR 200,&HD000  'Зарезервируем область для хранения подпрограммы обработки ловушки
20 POKE &HFDCC,&HC3  'Запишем  команду  перехода  на ловушку с именем
30 POKE &HFDCD,&H00  ' KEYCOD :           
X
W
W
W
W
W
W
W
W
W
W
W
Y
40 POKE &HFDCE,&HD0  '         C3,00,D0   
V  JP D000  
V
50 AD=&HD000                              
Z
W
W
W
W
W
W
W
W
W
W
W
[
60 READ A$:IF A$="Z" THEN END
70 POKE AD,VAL("&H"+A$)
80 AD=AD+1:GOTO 60
100 'П о д п р о г р а м м а  о б р а б о т к и  л о в у ш к и
120 DATA FE,3C     :' CP  3C        ;Сравниваем константу 3Ch с содержимым регистра A 
130 DATA C0        :' RET NZ        ;  "нет" 
W
W▐ выход
140 DATA 3E,FD     :' LD  A,FD      ;  A=FD
150 DATA 32,EB,FB  :' LD  (FBEBh),A ;  A 
W
W▐ FBEB
160 DATA 3E,3C     :' LD  A,3C      ;  A=3C
170 DATA C9        :' RET           ;  Выход
180 DATA "Z"       :'