10 SCREEN2:OPEN"GRP:"AS#1:LINE(20,40)-(70,90),1
25 PRINT#1,"Дядя Миша";:A$=INPUT$(1):SCREEN0
40 PRINT PEEK(&HFCB7);PEEK(&HFCB9)
50 PRINT PEEK(&HFCB3);PEEK(&HFCB5)