#include "ptoc.h"


/*#include "Crt.h"*/


const varying_string<4> codes = " ßÜÛ";

typedef matrix<'\0','\377',0,15,byte> fonttype;

byte x,xx,y;
string qq;
file<fonttype> f;
fonttype font;
byte code;


typedef array<1,3840,byte> atype;

void save()
{
 file<atype> f;
 word fv;
 atype a /*absolute $B800:0*/;
;
 assign(f,"TEXT2.SCR");
 rewrite(f); f << a; close(f);
}

void centre(byte y, string z)
{
    byte fv;
;
 for( fv=1; fv <= length(z); fv ++)
 {;
  gotoxy(39-length(z) / 2+fv,y);
  if (odd(fv+y))  textattr=2; else textattr=cyan;
  if (z[fv]!='\40')  output << z[fv];
 }
}

void line(byte yy, string title)
{
      const integer offset = 5;
;
 for( y=1; y <= 6; y ++)
 {;
  qq="";
  for( x=1; x <= length(title); x ++)
  {;
   for( xx=7; xx >= 0; xx --)
   {;
    code=(byte)(((1 << xx) & font[title[x]][y*2-offset])>0)+
     (byte)(((1 << xx) & font[title[x]][y*2+1-offset])>0)*2;
    qq=qq+codes[code+1-1];
   }
  }
  centre(y+yy,qq);
 }
}

void chips()
{
    byte fv,x,y;
;
 for( fv=0; fv <= 1; fv ++)
 {;
  textattr=120;
  for( y=2; y <= 6; y ++)
   {;
    gotoxy(fv*67+3,y); output << "     "; if (fv==1)  output << ' ';
   }
  gotoxy(fv*67+4,4);
  if (fv==0)  output << "RAM"; else output << "CRAM";
  textattr=7;
  for( x=0; x <= 1; x ++)
   for( y=2; y <= 6; y ++)
    {; gotoxy(fv*67+2+x*(6+fv),y); output << 'ð'; }
 }
}

int main(int argc, const char* argv[])
{pio_initialize(argc, argv);
;
 textattr=0; clrscr;
 chips();
 assign(f,"c:\\thomas\\ttsmall.fnt");
 reset(f); f >> font; close(f);
 line(0,"Out of");
 line(4,"memory!");
 centre(11,"Yes, RAM cram strikes again- Avvy has just run out of RAM (not the");
 centre(12,"hydraulic, woolly or village kinds.) Fortunately, there are a few things");
 centre(13,"you can do about this:");
 textattr=3;
 for( xx=15; xx <= 17; xx ++)
 {;
  gotoxy(23,xx); output << '\20';
 }
 textattr=2;
 gotoxy(25,15); output << "Don't run Avvy in a DOS shell.";
 gotoxy(25,16); output << "If that fails, try un-installing your TSRs.";
 gotoxy(25,17); output << "If you've got DOS 5ù0 or above, try using";
 gotoxy(28,18); textattr=3; output << "dos=high";
 textattr=2; output << ',';
 textattr=3; output << " loadhigh";
 textattr=2; output << " and";
 textattr=3; output << " devicehigh";
 textattr=2; output << '.';
 gotoxy(28,19); output << "See your DOS manual for details...";
 centre(23,"Sorry for any inconvenience...");
 save();
return EXIT_SUCCESS;
}