local EDSX EDSY EDSF EDSN EDSP XX
shx -wd %{SH1FILES}sh1tmp %0
cls
EDSN=0
EDSX=1
EDSY=1
for EDSF infile %{SH1FILES}sh1tmp
  gotoxy %EDSX %EDSY
  echo %EDSF_
  compute EDSY=%EDSY+1
  if %EDSY == 26
    EDSY=1
    compute EDSX=%EDSX+16
  endif
  compute EDSN=%EDSN+1
endfor
shx -scrs %{SH1FILES}eds.scr
repeat
  EDSX=1
  EDSY=1
  EDSP=1
  gotoxy 1 1
  repeat
    XX=%!
    if '%XX' == ''
      XX=%!
      case %XX
        H*)
          if %EDSY > 1
            compute EDSY=%EDSY-1
            compute EDSP=%EDSP-1
          else if %EDSX > 1
            compute EDSX=%EDSX-16
            compute EDSP=%EDSP-1
            EDSY=25
          endif
          break
        P*)
          if %EDSP < %EDSN
            if %EDSY < 25
              compute EDSY=%EDSY+1
              compute EDSP=%EDSP+1
            else if %EDSP < %EDSN
              compute EDSX=%EDSX+16
              compute EDSP=%EDSP+1
              EDSY=1
            endif
          endif
          break
        K*)
          if %EDSX > 1
            compute EDSX=%EDSX-16
            compute EDSP=%EDSP-25
          endif
          break
        M*)
          if %EDSP <= %EDSN-25
            compute EDSX=%EDSX+16
            compute EDSP=%EDSP+25
          endif
          break
        G*)
          EDSX=1
          EDSY=1
          EDSP=1
          break
        O*)
          compute EDSX=(%EDSN/25)*16+1
          compute EDSY=%EDSN-(%EDSN/25*25)
          EDSP=%EDSN
          break
      endcase
      gotoxy  %EDSX %EDSY
    else if '%XX' == '
'
      echo _
      cls
      q `shx -xt %{SH1FILES}sh1tmp %EDSP`
      XX=nn
      shx -scrl %{SH1FILES}eds.scr
    endif
  until '%XX' == '' | '%XX' == 'nn'
until '%XX' == ''
del %{SH1FILES}sh1tmp
del %{SH1FILES}eds.scr
cls
