0  HOME : RIBBON= 6
    1  VTAB 10: HTAB 3: PRINT "Фронт"
    2  VTAB 11: HTAB 1: PRINT "Синх-бт"
    3  VTAB 12: HTAB 3: PRINT "Чт/зп"
    4  VTAB 16: HTAB 21: PRINT "Синхро-бит"
    5  VTAB 17: HTAB 21: PRINT "Синхро-сбой"
    6  VTAB 15: HTAB 21: PRINT "Данные"
    7  VTAB 20: HTAB 1: PRINT "Фронт-отрицательный перепад": PRINT 
    8  PRINT "Данные-инвертированы": PRINT 
    9  PRINT "Синхро-бит-по нулю в прошивке": PRINT 
   10  PRINT "Синхро-сбой-также"
   20 S = A: RIBBON= 2
   25  HTAB 16: VTAB 8: PRINT U"     "
   30  FOR T = 8 TO 6 STEP  - 1: HTAB 10: VTAB T + 4
   40  PRINT "А"T"-";:A$ = "0": IF S >  = 2 ^ T THEN A$ = "1":S = S - 2 ^ T
   50  PRINT A$: NEXT 
   60 S = D: RIBBON= 3
   70  FOR T = 7 TO 0 STEP  - 1: HTAB 16: VTAB T + 10
   80  PRINT "D"T"-";:A$ = "0": IF S >  = 2 ^ T THEN A$ = "1":S = S - 2 ^ T
   90  PRINT A$: NEXT 
   92  HTAB 14: VTAB 17:A$ = "0": IF Q > 127 THEN A$ = "1"
   94  PRINT A$"-"
   95  RIBBON= 6
  100  HTAB 8: VTAB K + 10: PRINT "->"
  110  WAIT $C000,$80,0:S =  PEEK ($C000):T =  PEEK ($C010)
  115  HTAB 8: VTAB K + 10: PRINT "  "
  120  IF S = $8D THEN 200
  130  IF S = $99 THEN  IF K <  > 0 THEN K = K - 1
  140  IF S = $9A THEN  IF K <  > 2 THEN K = K + 1
  145  IF S = $C3 THEN U = 0: GOTO 20
  150  IF S <  > $A0 THEN 100
  160 L = 64 * (K + 9) + 24 + $1000:F =  PEEK (L)
  170  IF F = $B1 THEN A = A - (2 ^ (K + 6))
  180  IF F = $B0 THEN A = A + (2 ^ (K + 6))
  190  GOTO 20
  200 U = U + 1:D = Q:S = Q: IF S > 127 THEN S = S - 128
  210  IF S > 63 THEN S = S - 64
  220 T = A: IF T > 255 THEN T = T - 256
  230  IF T > 127 THEN T = T - 128
  240  IF T > 63 THEN T = T - 64
  250 R = A - T + S:Q =  PEEK (R + $6000)
  260  IF  PEEK ($1258) = $B0 THEN A = A + 64
  270  GOTO 20