10 CLEAR 200,&HF000
20 DATA 32,00,F3            :'LD  (F300h),A
30 DATA 3A,63,F6            :'LD  A,(F663h)
40 DATA 32,01,F3            :'LD  (F301h),A
50 DATA ED,53,02,F3         :'LD  (F302h),DE
60 DATA C9,"RET"            :'RET
70 DEFUSR=&HF000
80 READ Z$:POKE &HF000+T,VAL("&h"+Z$)
90 T=T+1:IF Z$<>"RET" GOTO 80
100 A$="MSX":A$=USR(A$) 'Обратите внимание на то, что тип аргумента - строковый !
110 PRINT"В регистре А:";PEEK(&HF300)
120 PRINT"В ячейке F663h:";PEEK(&HF301)
130 PRINT"Адрес переменной:";HEX$(PEEK(&HF303));RIGHT$("00"+HEX$(PEEK(&HF302)),2)