screen 1:?"Generation Grey Code"
'vvod:
 'input "Введите число (0-255) <1111>-to quit";i
 'if i=1111 then stop
 'if i<0 or i>255 then cls:goto vvod
for c=0 to 255
 i=c
 b0$="00000000"
 b$=bin$(i)
 l=len(b$)
 b0$=mid$(b0$,1,8-l)
 b$=b0$+b$
 '?i;"--"b$
 b1$=mid$(b$,8,1)
 b2$=mid$(b$,7,1)
 b3$=mid$(b$,6,1)
 b4$=mid$(b$,5,1)
 b5$=mid$(b$,4,1)
 b6$=mid$(b$,3,1)
 b7$=mid$(b$,2,1)
 b8$=mid$(b$,1,1)
 'bg$=b8$+b7$+b6$+b5$+b4$+b3$+b2$+b1$
 '?b$
 g9=0
 b8=val(b8$):g8=b8 xor g9
 b7=val(b7$):g7=b7 xor (g8 xor g9)
 b6=val(b6$):g6=b6 xor (g7 xor (g8 xor g9))
 b5=val(b5$):g5=b5 xor (g6 xor (g7 xor (g8 xor g9)))
 b4=val(b4$):g4=b4 xor (g5 xor (g6 xor (g7 xor (g8 xor g9))))
 b3=val(b3$):g3=b3 xor (g4 xor (g5 xor (g6 xor (g7 xor (g8 xor g9)))))
 b2=val(b2$):g2=b2 xor (g3 xor (g4 xor (g5 xor (g6 xor (g7 xor (g8 xor g9))))))
 b1=val(b1$):g1=b1 xor (g2 xor (g3 xor (g4 xor (g5 xor (g6 xor (g7 xor (g8 xor (g9))))))))
 '?i" - Binary -";b$;"- Grey -";g8;g7;g6;g5;g4;g3;g2;g1
 '?g8;g7;g6;g5;g4;g3;g2;g1
  h=100
  sc=0
  pset(c,h+00),g8+sc
  pset(c,h+02),g7+sc
  pset(c,h+04),g6+sc
  pset(c,h+06),g5+sc
  pset(c,h+08),g4+sc
  pset(c,h+10),g3+sc
  pset(c,h+12),g2+sc
  pset(c,h+14),g1+sc
next c
?
?"<Esc>-to quit"
vvod:
 if inkey$=chr$(27) then stop else vvod
 stop
 'goto vvod