10 DATA 3E,00                  :'LD   A, Указатель слота
20 DATA 21,00,80               :'LD   HL,8000h        ;Начальный адрес
30 DATA CD,24,00               :'CALL ENASLT
40 DATA C9                     :'RET
50 CLEAR 200,&HF300:DEFUSR=&HF300
60 FOR T=0 TO 8:READ Z$:POKE &HF300+T,VAL("&h"+Z$):NEXT
70 INPUT"Номер первичного слота";N1
80 INPUT"Номер вторичного слота";N2
90 POKE &HF301,&H80+N2*4+N1 'Р - Указатель слота
120 A=USR(A)