#!/bin/bash

rm -f poly8cout.asc

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

echo "LOADCONFIG configs/help3demo.gier" > poly8c.demo
echo "HIDE KB2" >>poly8c.demo
echo "LOADREADER /tmp/poly8c.asc" >>poly8c.demo
echo "LOADPUNCH poly8cout.flx" >>poly8c.demo
echo "SELECT 3 16" >>poly8c.demo
./maketext.sh "r<" >>poly8c.demo
echo "WAITINPUT" >>poly8c.demo
echo "LOADREADER poly8cin80.asc" >>poly8c.demo
./maketext.sh "run<" >>poly8c.demo
echo "WAITINPUT" >>poly8c.demo
echo "FINISHPUNCH" >>poly8c.demo
echo "QUIT" >>poly8c.demo

./GIER poly8c.demo
echo i: $i >>poly8cout.asc
flx2a <poly8cout.flx >>poly8cout.asc
done