/* ScummVM - Graphic Adventure Engine
 *
 * ScummVM is the legal property of its developers, whose names
 * are too numerous to list here. Please refer to the COPYRIGHT
 * file distributed with this source distribution.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.

 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	 See the
 * GNU General Public License for more details.

 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 */

/*
 * This code is based on the original source code of Lord Avalot d'Argent version 1.3.
 * Copyright (c) 1994-1995 Mike, Mark and Thomas Thurman.
 */

/*#include "Crt.h"*/

namespace Avalanche {

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

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

byte x,xx,y;
string title,fn;
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,"TEXT1.SCR");
 rewrite(f); f << a; close(f);
}

void centre(byte y, string z)
{;
 gotoxy(40-length(z) / 2,y); output << z;
}

int main(int argc, const char* argv[])
{pio_initialize(argc, argv);
;
/* write('Title?'); readln(title);
 write('Font?'); readln(fn); */
 textattr=0; clrscr;
 title="Bug Alert!"; fn="";
 for( xx=1; xx <= 77; xx ++)
 {;
  gotoxy(Random(80)+1,Random(24)+1);
  switch (Random(2)) {
   case 0: textattr=red; break;
   case 1: textattr=lightred; break;
  }
  switch (Random(4)) {
   case 0: output << '*'; break;
   case 1: output << '\17'; break;
   case 2: output << 'ù'; break;
   case 3: output << 'ú'; break;
  }
 }
 textattr=12;
 assign(f,"c:\\thomas\\ttsmall.fnt");
 reset(f); f >> font; close(f);
 for( y=0; y <= 3; y ++)
 {;
  for( x=1; x <= length(title); x ++)
  {;
   for( xx=7; xx >= 0; xx --)
   {;
    code=(byte)(((1 << xx) & font[title[x]][y*2])>0)+
     (byte)(((1 << xx) & font[title[x]][y*2+1])>0)*2;
    gotoxy(1+x*8-xx,y+1);
    if (code>0)  output << codes[code+1-1];
   }
  }
  /*if wherex<>1 then writeln;*/
 }
 textattr=red;
 centre(7,"An internal error has just occurred within the program.");

 textattr=white; gotoxy(26, 9); output << "Error number: ";
  textattr=lightred; output << "   ";
 textattr=white; gotoxy(27,10); output << "at location: ";
  textattr=lightred; output << "           ";
 centre(12,"This screen should never come up...");
 centre(13,"but it just has!");
 textattr=15;
 centre(15,"So, please tell Thorsoft about this as soon as");
 centre(16,"possible, so that we can fix it.");
 textattr=red;
 centre(20,"Thanks...");
 save();
return EXIT_SUCCESS;
}

} // End of namespace Avalanche.