10 DATA 3E,00         :'F300  LD   A, Указатель слота
20 DATA 21,00,00      :'F302  LD   HL,Адрес ячейки
30 DATA 1E,00         :'F305  LD   E, Число
40 DATA CD,14,00      :'F307  CALL WRSLT
50 DATA C9            :'F30A  RET
60 CLEAR 200,&HF300:DEFUSR=&HF300
70 FOR T=0 TO 10:READ Z$:POKE &HF300+T,VAL("&h"+Z$):NEXT
80 INPUT"Номер первичного слота";N1
90 INPUT"Номер вторичного слота";N2
100 POKE &HF301,&H80+N2*4+N1 '░
W
W Указатель слота
110 INPUT"Адрес ячейки";AD%
120 POKE &HF303,PEEK(VARPTR(AD%)):POKE &HF304,PEEK(VARPTR(AD%)+1)
130 INPUT"Какое число запишете";Q%:POKE &HF306,Q%:A=USR(A)