IF xx=12 AND av=1 OR xx=12 AND av=3 OR xx=12 AND av=4 OR xx=12 AND av=5 THEN
    IF ad1=89 OR ad1=121 THEN
    kixl=8
   ELSEIF ad1=71 OR ad1=103 THEN
    kixl=7
   ELSEIF ad1=80 OR ad1=112 THEN
    kixl=9
   ELSE
    kixl=0
   END IF
    FOR i=1 TO 5
        LOCATE 16+i,5 : PRINT "                   "
      LOCATE 16+i,5 : PRINT mn$(1+kixl,i)
    NEXT i
    LOCATE yy,xx
ELSE
    IF xx>=13 AND (av=1 OR av=3 OR av=4 OR av=5) THEN LOCATE yy,xx : GOTO a31
    IF xx=18 OR xx=21 THEN
    xy=15
   ELSEIF xx=20 OR xx=23 THEN
    xy=17
   ELSEIF xx=19 OR xx=22 THEN
    xy=16
   ELSE
    xy=xx
   END IF
    IF xx>23 OR xx>11 AND av=0 THEN GOTO kixr1
    FOR i=1 TO rm(xy-10)-1
    LOCATE 16+i,5 : PRINT mn$(xy-10,i)
   NEXT i
    kixr1:
    LOCATE yy,xx
END IF