10 CLEAR 200,&HD000:DEFUSR=&HD000:A=&HD000
20 A=A+1:READ R$:IF R$="z" THEN 40
30 POKE A,VAL("&h"+R$):GOTO 20
40 M=USR(0)
50  DATA CD,B4,00 :'CALL 00B4h     ;Ввод строки с клавиатуры
60  DATA 23       :'INC  HL
70  DATA 7E       :'LD   A,(HL)
80  DATA CD,99,32 :'CALL 3299h     ;Преобразование из строки в число
90  DATA 3E,08    :'LD   A,08h
100 DATA 32,63,F6 :'LD   (F663h),A ;VALTYP:=8
110 DATA CD,93,29 :'CALL 2993h     ;Нахождение функции COS()
120 DATA CD,25,34 :'CALL 3425h     ;Преобразование числа в строку
130 DATA 06,11    :'LD   B,11h
140 DATA 7E       :'LD   A,(HL)                          ░
W
W
W
Y
150 DATA 23       :'INC  HL                                  
V
160 DATA CD,A2,00 :'CALL 00A2h     ;Вывод символа на монитор 
V
170 DATA 10,F9    :'DJNZ $-5       ;Конец цикла           
W
W
W
[
180 DATA C9       :'RET
190 DATA "z"