home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / sysutl / sh1_111.arc / EDS.SH < prev    next >
Text File  |  1987-09-10  |  2KB  |  86 lines
  1. local EDSX EDSY EDSF EDSN EDSP XX
  2. shx -wd %{SH1FILES}sh1tmp %0
  3. cls
  4. EDSN=0
  5. EDSX=1
  6. EDSY=1
  7. for EDSF infile %{SH1FILES}sh1tmp
  8.   gotoxy %EDSX %EDSY
  9.   echo %EDSF_
  10.   compute EDSY=%EDSY+1
  11.   if %EDSY == 26
  12.     EDSY=1
  13.     compute EDSX=%EDSX+16
  14.   endif
  15.   compute EDSN=%EDSN+1
  16. endfor
  17. shx -scrs %{SH1FILES}eds.scr
  18. repeat
  19.   EDSX=1
  20.   EDSY=1
  21.   EDSP=1
  22.   gotoxy 1 1
  23.   repeat
  24.     XX=%!
  25.     if '%XX' == ''
  26.       XX=%!
  27.       case %XX
  28.         H*)
  29.           if %EDSY > 1
  30.             compute EDSY=%EDSY-1
  31.             compute EDSP=%EDSP-1
  32.           else if %EDSX > 1
  33.             compute EDSX=%EDSX-16
  34.             compute EDSP=%EDSP-1
  35.             EDSY=25
  36.           endif
  37.           break
  38.         P*)
  39.           if %EDSP < %EDSN
  40.             if %EDSY < 25
  41.               compute EDSY=%EDSY+1
  42.               compute EDSP=%EDSP+1
  43.             else if %EDSP < %EDSN
  44.               compute EDSX=%EDSX+16
  45.               compute EDSP=%EDSP+1
  46.               EDSY=1
  47.             endif
  48.           endif
  49.           break
  50.         K*)
  51.           if %EDSX > 1
  52.             compute EDSX=%EDSX-16
  53.             compute EDSP=%EDSP-25
  54.           endif
  55.           break
  56.         M*)
  57.           if %EDSP <= %EDSN-25
  58.             compute EDSX=%EDSX+16
  59.             compute EDSP=%EDSP+25
  60.           endif
  61.           break
  62.         G*)
  63.           EDSX=1
  64.           EDSY=1
  65.           EDSP=1
  66.           break
  67.         O*)
  68.           compute EDSX=(%EDSN/25)*16+1
  69.           compute EDSY=%EDSN-(%EDSN/25*25)
  70.           EDSP=%EDSN
  71.           break
  72.       endcase
  73.       gotoxy  %EDSX %EDSY
  74.     else if '%XX' == ''
  75.       echo _
  76.       cls
  77.       q `shx -xt %{SH1FILES}sh1tmp %EDSP`
  78.       XX=nn
  79.       shx -scrl %{SH1FILES}eds.scr
  80.     endif
  81.   until '%XX' == '' | '%XX' == 'nn'
  82. until '%XX' == ''
  83. del %{SH1FILES}sh1tmp
  84. del %{SH1FILES}eds.scr
  85. cls
  86.