#!/bin/bash

rm -f poly8cout.asc

for((i=0;i<=0;i+=10))
do
  head -n -2 tapes/mk/poly8c.asc >/tmp/mk1.asc
  for((j=0;j<i;j++))
  do
    echo "   i:=i;" >>/tmp/mk1.asc
  done
  echo "_e_n_d;" >>/tmp/mk1.asc
  echo "t<" >>/tmp/mk1.asc

echo "LOADCONFIG configs/help3demo.gier" > poly8c.demo
echo "HIDE KB2" >>poly8c.demo
echo "LOADREADER /tmp/mk1.asc" >>poly8c.demo
echo "LOADPUNCH 0.flx" >>poly8c.demo
echo "SELECT 3 16" >>poly8c.demo
./maketext.sh "r<" >>poly8c.demo
echo "WAITINPUT" >>poly8c.demo
echo "LOADREADER poly8cin.asc" >>poly8c.demo
./maketext.sh "list,_awork<" >>poly8c.demo
./maketext.sh "print,work,_p_g<" >>poly8c.demo
echo "WAITINPUT" >>poly8c.demo
echo "DEBUG 901" >>poly8c.demo
./maketext.sh "run<" >>poly8c.demo
echo "WAITINPUT" >>poly8c.demo
echo "FINISHPUNCH" >>poly8c.demo
echo "DEBUG 0" >>poly8c.demo
echo "QUIT" >>poly8c.demo

./GIER poly8c.demo
mv gier.debug poly8c_$i.debug
echo i: $i >>poly8cout.asc
flx2a <0.flx >>poly8cout.asc
done