#!/bin/bash

rm -f poly8dout.asc

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

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

./GIER poly8d.demo
echo i: $i >>poly8dout.asc
flx2a <poly8dout.flx >>poly8dout.asc
done