10 CLEAR 200,&HF000
20 DATA ED,63,02,F3        :'LD  (F302h),HL
30 DATA 3A,F8,F7           :'LD  A,(F7F8h)
40 DATA 4F                 :'LD  C,A
50 DATA 81                 :'ADD A,C
60 DATA 32,00,C0           :'LD  (C000h),A
70 DATA C9,"RET"           :'RET
80 DEFUSR=&HF000
90 READ Z$:POKE &HF000+T,VAL("&H"+Z$)
100 T=T+1:IF Z$<>"RET" THEN 90
110 A=USR(6)   'Обратите внимание на то, что аргумент имеет целый тип!
120 PRINT" В регистре HL находится число: &h";HEX$(PEEK(&HF303));RIGHT$("00"+HEX$(PEEK(&HF302)),2)
125 PRINT" Это есть адрес аргумента функции USR"
130 PRINT" Проверяем этот факт:... и вправду ";LEFT$(HEX$(PEEK(&HF7F7)),1)
140 PRINT" Результат работы подпрограммы в машинных кодах: ";PEEK(&HC000)