10 CLEAR 200,&HC000:DEFUSR=&HC000
20 DATA &H1E,64                  :'В регистре E - код символа
30 DATA &H0E,&H02                :'LD C,02h       ;Номер подпрограммы
40 DATA &HCD,&H7D,&HF3           :'               ;Обращение к BDOS
50 DATA &HC9                     :'RET
60 FOR T=0 TO 7:READ J:POKE &HC000+T,J:NEXT
70 A=USR(A)                      :' На экране появляется символ!