10 SCREEN1,2:SPRITE$(255)=" Никто не обнимет необъятного!  "
20 FOR I=1 TO LEN(SPRITE$(255))-16
30   PRINT RIGHT$("00000000"+BIN$(ASC(MID$(SPRITE$(255),I   ,1))),8)" ";RIGHT$("00000000"+BIN$(ASC(MID$(SPRITE$(255),I+16,1))),8)
40 NEXT