#!/bin/bash

maketext()
{
  local t=$1
  echo "# $1"
  echo -n "$1" | a2flx | od -t u1 -v -w1 | while read -r line
  do
    if [ ${#line} -gt 7 ]
    then
      c=${line:8}
      c=$((c))
      c1=$((c&0xe0))
      c2=$((c&0x0f))
      c=$((c1>>1 | c2))
      echo "WAITINPUT"
      echo TYPE $c
    fi
  done
}
echo "LOADCONFIG configs/big7ga4.gier"
echo "LOADPUNCH loaddisk.flx"
for f in tapes/demo/demon3.asc tapes/demo/demon5.asc tapes/demo/demon7.asc tapes/demo/tyvesnice.asc
do
  name=`basename -s.asc $f`
  if [ $name == tyvesnice ]
  then
    name=tyves
  fi
  echo "TEXT $name"
  echo "WAITINPUT"
  echo "LOADREADER $f"
  maketext "r<"
  maketext "move,work,free<"
  maketext "res,_s0,$name<"
  maketext "setsum,$name<"
done

echo "WAITINPUT"
echo "TEXT plot2"
echo "LOADREADER tapes/ht/plot2/plot2.asc"
maketext "r<"
echo "WAITINPUT"
maketext "clear,readpinf<"
echo "WAITINPUT"
echo "TEXT readlib"
echo "LOADREADER tapes/ht/readlib.asc"
maketext "r<"
maketext "move,work,free<"
maketext "res,readlib<"
echo "TEXT read library.asc"
echo "LOADREADER tapes/ht/library.asc"
echo "WAITINPUT"
#echo "DEBUG 901"
maketext "run,readlib<"
maketext "clear,readlib<"
maketext "list,_afree<"
maketext "compress<"
echo "WAITINPUT"
echo "TEXT clean free"
echo "LOADREADER tapes/mk/clean1.asc"
maketext "r<"
maketext "run<"
echo "WAITINPUT"
echo "TYPE 0"
echo "WAITINPUT"
echo "SAVECONFIG configs/big7ga4lib.gier"
#echo "DEBUG 000"