@echo off

rem
rem    This is makettfp.btm, a batch file for 4DOS/4OS2 written by
rem    Werner Lemberg <a7621gac@awiuni11.bitnet>.
rem
rem    It is equivalent to the script file MakeTTFPK.
rem

set sb1=%@eval[(%3 - 1) * 256 \ 157 + 161]
set sb2=%@eval[(%3 - 1) * 256 %% 157]

iff %sb2 lt 63 then
  set sb2=%@eval[%sb2 + 64]
else
  set sb2=%@eval[%sb2 + 98]
endiff

set bb=%@eval[%sb1 * 256 + %sb2]
set yoff=%@eval[%5 * 5 \ 42]

ttf2pk %2 %1 %5 %bb 10000000 -s 10 -H 0.75 -D 0.25 -y %yoff %ttfdir\%4.ttf

iff %? == 0 then
  quit 0
else
  quit 1
endiff