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 '░WW Указатель слота 120 A=USR(A)