10 CLEAR 200,&HF000:DEFUSR=&HF000
20 DATA CD,1F,52       :'CALL 521F ;
30 DATA CD,96,00       :'CALL 0096 ; Чтение числа из PSG
40 DATA 26,00          :'LD   H,0  ;
50 DATA 6F             :'LD   L,A  ;
60 DATA C3,99,2F,"RET" :'JP   2F99 ;
70 READ Z$
80 IF Z$="RET" THEN 100
90 POKE &HF000+T,VAL("&h"+Z$):T=T+1:GOTO 70
100 PLAY "O4 C#"
110 PRINT USR(0);USR(1) 'Читаем содержимое 0-го и 1-го регистров