10 CLEAR 200,&HD000:DEFUSR=&HD000
20 READ A$:IF A$="RET" THEN 50
30 POKE &HD000+T,VAL("&h"+A$)
40 T=T+1:GOTO 20
50 FOR I=0 TO 1000:NEXT' З а д е р ж к а
60 A=USR(0)
61 PRINT CHR$(PEEK(&H9000)) :'Вывод  п е р в о г о  нажатого символа
70 DATA   CD,9F,0           :'Ожидание нажатия клавиши
80 DATA   32,00,90          :'Код нажатой клавиши 
W
W▐ по адресу 9000
90 DATA   CD,56,1           :'CALL KILBUF   
O BIOS 0156
100 DATA  C9                :'RET           
O Вход: Нет  Выход: Нет
110 DATA "RET"              :'              
O Изменения: регистр HL