AVALANCHE: Use Artistic Style.

1 files changed, 302 insertions, 235 deletions

diff --git a/engines/avalanche/hiz.cpp b/engines/avalanche/hiz.cpp
index f5f106ea0b..2f9e603b9e 100644
--- a/engines/avalanche/hiz.cpp
+++ b/engines/avalanche/hiz.cpp
@@ -11,7 +11,7 @@
 
  * 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
+ * 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
@@ -34,202 +34,273 @@
 
 namespace Avalanche {
 
-    /* program's signature */
+/* program's signature */
 const varying_string<20> tsr_tmark = "FISH FISH FISH!!!";
 
-integer gd,gm;
+integer gd, gm;
 byte a /*absolute $A000:0*/;
-matrix<1,800,0,3,byte> sv;
-byte bit; string nam;
-byte tsr_int; word tsr_ax;
-
-void grab()
-{;
- for( bit=0; bit <= 3; bit ++)
- {;
-  port[0x3c4]=2; port[0x3ce]=4; port[0x3c5]=1 << bit; port[0x3cf]=bit;
-  move(a,sv[1][bit],800);
- }
+matrix<1, 800, 0, 3, byte> sv;
+byte bit;
+string nam;
+byte tsr_int;
+word tsr_ax;
+
+void grab() {
+	;
+	for (bit = 0; bit <= 3; bit ++) {
+		;
+		port[0x3c4] = 2;
+		port[0x3ce] = 4;
+		port[0x3c5] = 1 << bit;
+		port[0x3cf] = bit;
+		move(a, sv[1][bit], 800);
+	}
 }
 
-void drop()
-{;
- for( bit=0; bit <= 3; bit ++)
- {;
-  port[0x3c4]=2; port[0x3ce]=4; port[0x3c5]=1 << bit; port[0x3cf]=bit;
-  move(sv[1][bit],a,800);
- }
+void drop() {
+	;
+	for (bit = 0; bit <= 3; bit ++) {
+		;
+		port[0x3c4] = 2;
+		port[0x3ce] = 4;
+		port[0x3c5] = 1 << bit;
+		port[0x3cf] = bit;
+		move(sv[1][bit], a, 800);
+	}
 }
 
-void say(string x)
-{;
- grab(); output << string('\15')+x;
+void say(string x) {
+	;
+	grab();
+	output << string('\15') + x;
 }
 
-void pak(string x)
-{
-    char r;
-;
- say(x+" (press any key...)"); r=readkey(); drop();
+void pak(string x) {
+	char r;
+	;
+	say(x + " (press any key...)");
+	r = readkey();
+	drop();
 }
 
-string typein()
-{
-    char r; string x;
-string typein_result;
-;
- x="";
- do {
-  r=readkey();
-  switch (r) {
-    case '\10': if (x[0]>'\0')  {; output << string('\10')+'\40'+'\10'; x[0] -= 1; } break;
-   case '\15': {; typein_result=x;  return typein_result; } break;
-   case '\33': {; typein_result=""; return typein_result; } break;
-   default: if (x[0]<'\62')  {; x=x+r; output << r; }
-  }
- } while (!false);
-return typein_result;
+string typein() {
+	char r;
+	string x;
+	string typein_result;
+	;
+	x = "";
+	do {
+		r = readkey();
+		switch (r) {
+		case '\10':
+			if (x[0] > '\0')  {
+				;
+				output << string('\10') + '\40' + '\10';
+				x[0] -= 1;
+			}
+			break;
+		case '\15': {
+			;
+			typein_result = x;
+			return typein_result;
+		}
+		break;
+		case '\33': {
+			;
+			typein_result = "";
+			return typein_result;
+		}
+		break;
+		default:
+			if (x[0] < '\62')  {
+				;
+				x = x + r;
+				output << r;
+			}
+		}
+	} while (!false);
+	return typein_result;
 }
 
-void load()
-{
-    byte a /*absolute $A000:1200*/; untyped_file f;
-;
- say("LOAD: filename?"); nam=typein(); drop();
- if (nam=="")  return;
- assign(f,nam); reset(f,1);
- if (ioresult!=0) 
- {;
-  pak("LOAD: file not found."); return;
- }
- seek(f,177);
- for( bit=0; bit <= 3; bit ++)
- {;
-  port[0x3c4]=2; port[0x3ce]=4; port[0x3c5]=1 << bit; port[0x3cf]=bit;
-  blockread(f,a,12080);
-  if (ioresult!=0) 
-  {;
-   pak("LOAD: error whilst loading."); close(f); return;
-  }
- }
- close(f);
+void load() {
+	byte a /*absolute $A000:1200*/;
+	untyped_file f;
+	;
+	say("LOAD: filename?");
+	nam = typein();
+	drop();
+	if (nam == "")  return;
+	assign(f, nam);
+	reset(f, 1);
+	if (ioresult != 0) {
+		;
+		pak("LOAD: file not found.");
+		return;
+	}
+	seek(f, 177);
+	for (bit = 0; bit <= 3; bit ++) {
+		;
+		port[0x3c4] = 2;
+		port[0x3ce] = 4;
+		port[0x3c5] = 1 << bit;
+		port[0x3cf] = bit;
+		blockread(f, a, 12080);
+		if (ioresult != 0) {
+			;
+			pak("LOAD: error whilst loading.");
+			close(f);
+			return;
+		}
+	}
+	close(f);
 }
 
-void save()
-{
-      const string header = 
- string("This is a file from an Avvy game, and its contents are subject to ")+
- "copyright."+'\15'+'\12'+'\15'+'\12'+"Have fun!"+'\32';
-    untyped_file f; varying_string<30> screenname; searchrec s; char r;
-byte a /*absolute $A000:1200*/;
-;
- say("SAVE: filename?"); nam=typein(); drop();
- if (nam=="")  return;
- findfirst(nam,anyfile,s); if (doserror==0) 
- {;
-  say("SAVE: That exists, are you sure\? (Y/N)");
-  do { r=upcase(readkey()); } while (!(set::of('Y','N', eos).has(r))); drop();
-  if (r=='N')  return;
- }
- screenname="Saved with HIZ.";
- assign(f,nam); rewrite(f,1); blockwrite(f,header[1],146);
- blockwrite(f,screenname,31);
- for( bit=0; bit <= 3; bit ++)
- {;
-  port[0x3c4]=2; port[0x3ce]=4; port[0x3c5]=1 << bit; port[0x3cf]=bit;
-  blockwrite(f,a,12080);
-  if (ioresult!=0) 
-  {;
-   pak("SAVE: error whilst saving."); close(f); return;
-  }
- }
+void save() {
+	const string header =
+	    string("This is a file from an Avvy game, and its contents are subject to ") +
+	    "copyright." + '\15' + '\12' + '\15' + '\12' + "Have fun!" + '\32';
+	untyped_file f;
+	varying_string<30> screenname;
+	searchrec s;
+	char r;
+	byte a /*absolute $A000:1200*/;
+	;
+	say("SAVE: filename?");
+	nam = typein();
+	drop();
+	if (nam == "")  return;
+	findfirst(nam, anyfile, s);
+	if (doserror == 0) {
+		;
+		say("SAVE: That exists, are you sure\? (Y/N)");
+		do {
+			r = upcase(readkey());
+		} while (!(set::of('Y', 'N', eos).has(r)));
+		drop();
+		if (r == 'N')  return;
+	}
+	screenname = "Saved with HIZ.";
+	assign(f, nam);
+	rewrite(f, 1);
+	blockwrite(f, header[1], 146);
+	blockwrite(f, screenname, 31);
+	for (bit = 0; bit <= 3; bit ++) {
+		;
+		port[0x3c4] = 2;
+		port[0x3ce] = 4;
+		port[0x3c5] = 1 << bit;
+		port[0x3cf] = bit;
+		blockwrite(f, a, 12080);
+		if (ioresult != 0) {
+			;
+			pak("SAVE: error whilst saving.");
+			close(f);
+			return;
+		}
+	}
 }
 
-void hedges()
-{;
- for( bit=0; bit <= 3; bit ++)
- {;
-  port[0x3c4]=2; port[0x3ce]=4; port[0x3c5]=1 << bit; port[0x3cf]=bit;
-  fillchar(mem[0xa000*14*80],80,'\377');
-  fillchar(mem[0xa000*166*80],80,'\377');
- }
+void hedges() {
+	;
+	for (bit = 0; bit <= 3; bit ++) {
+		;
+		port[0x3c4] = 2;
+		port[0x3ce] = 4;
+		port[0x3c5] = 1 << bit;
+		port[0x3cf] = bit;
+		fillchar(mem[0xa000 * 14 * 80], 80, '\377');
+		fillchar(mem[0xa000 * 166 * 80], 80, '\377');
+	}
 }
 
-void reset_()
-{
-    registers regs;
-;
- regs.ax=14;
- intr(0x10,regs);
- directvideo=false;
+void reset_() {
+	registers regs;
+	;
+	regs.ax = 14;
+	intr(0x10, regs);
+	directvideo = false;
 }
 
-void do_pop()
-{
-    char r;
-;
- do {
-  say("HIZ: Load Save Hedges Reset eXit?"); r=upcase(readkey()); drop();
-  switch (r) {
-   case 'L': load(); break;
-   case 'S': save(); break;
-   case 'H': hedges(); break;
-   case 'R': reset_(); break;
-   case 'X': return; break;
-  }
- } while (!false);
+void do_pop() {
+	char r;
+	;
+	do {
+		say("HIZ: Load Save Hedges Reset eXit?");
+		r = upcase(readkey());
+		drop();
+		switch (r) {
+		case 'L':
+			load();
+			break;
+		case 'S':
+			save();
+			break;
+		case 'H':
+			hedges();
+			break;
+		case 'R':
+			reset_();
+			break;
+		case 'X':
+			return;
+			break;
+		}
+	} while (!false);
 }
 
 /* Now for the TSR stuff */
 
-void mypoprtn()
-{
-    registers r;
-;
- beginpop;
- do_pop();
- endpop;
+void mypoprtn() {
+	registers r;
+	;
+	beginpop;
+	do_pop();
+	endpop;
 }
 /**********************/
-void stop_tsr()
-{;
- if (tsrexit) 
-  output << "HIZ stopped" << NL;
- else
-  output << "Unable to stop HIZ - other TSR has been installed." << NL;
+void stop_tsr() {
+	;
+	if (tsrexit)
+		output << "HIZ stopped" << NL;
+	else
+		output << "Unable to stop HIZ - other TSR has been installed." << NL;
 }
 /**********************/
 /* This interrupt is called at program start-up. Its purpose is to provide
  a way to communicate with an installed copy of the TSR through cmdline
  params. The installation of the intrpt serves to prevent any attempt to
  install a 2nd copy of the TSR */
-void tsr_intrtn(word flags,word cs,word ip,word ax,word bx,word cx,word dx,word si,word di,word ds,word es,word bp)
+void tsr_intrtn(word flags, word cs, word ip, word ax, word bx, word cx, word dx, word si, word di, word ds, word es, word bp)
 /*interrupt;*/
-{;
- tsr_ax=ax;
- cli;
- beginint;
- sti;
-
- switch (tsr_ax) {
- case 1: {;
-     stop_tsr(); /* Terminate TSR, if poss.*/
-    }
-    break;
- case 2: {;
-     tsroff= true;  /* Suspend TSR */
-     output << "HIZ suspended." << NL;
-    }
-    break;
- case 3: {;
-     tsroff=false;
-     output << "HIZ restarted" << NL;
-    }
-    break;
-  }
- cli;
- endint;
- sti;
+{
+	;
+	tsr_ax = ax;
+	cli;
+	beginint;
+	sti;
+
+	switch (tsr_ax) {
+	case 1: {
+		;
+		stop_tsr(); /* Terminate TSR, if poss.*/
+	}
+	break;
+	case 2: {
+		;
+		tsroff = true; /* Suspend TSR */
+		output << "HIZ suspended." << NL;
+	}
+	break;
+	case 3: {
+		;
+		tsroff = false;
+		output << "HIZ restarted" << NL;
+	}
+	break;
+	}
+	cli;
+	endint;
+	sti;
 }
 /*******************/
 byte i;
@@ -237,78 +308,74 @@ registers r;
 string st;
 boolean b;
 
-int main(int argc, const char* argv[])
-{pio_initialize(argc, argv);
-;
-
- /********************************************/
- /* Check to see if TSR is already installed */
- /********************************************/
-
- tsr_int=dupcheck(tsr_tmark,&tsr_intrtn);
-
- /*****************************************/
- /* If it IS already installed, check for */
- /* parameter.                            */
- /*****************************************/
-
- if (tsr_int > 0) 
- {
-  if (paramcount>0) 
-  {
-   st=paramstr(1);
-   for( i=1; i <= length(st); i ++)
-   st[i]=upcase(st[i]);
-   if (st=="STOP") 
-    r.ax=1;
-   else if (st=="HOLD")  r.ax=2;
-   else if (st=="RSTR")  r.ax=3;
-   else r.ax=4;
-
-   if (r.ax<4) 
-   {;
-    intr(tsr_int,r);
-    return 0;
-   }
-   else
-   {;
-    output << "HIZ: invalid parameter " << paramstr(1) << NL;
-    output << "Syntax: HIZ stop/hold/rstr" << NL;
-    return 0;
-   }
-   }
-  else
-  {;
-   output << "HIZ already installed." << NL;
-   output << "(If you're sure it isn't, try running BLANKINT /I." << NL;
-   output << "It's in the TURBO directory.)" << NL;
-  }
-  return 0;
- }
-
- output << string("Wait...")+'\15'; /* tell 'em to wait...! */
-
- /* Call PopSetUp to point to PopUp routine. Include the
-   scancode and the keymask to activate the program. In
-   this example, the scancode is $23 (H) and the
-   keymask is 08h (Alt.) */
-
- popsetup(&mypoprtn,0x23,0x8);
-
- directvideo=false;
- output << "Û Û ßÛß ßßÛ v1.0, (c) 1992, Thomas Thurman." << NL;
- output << "ÛßÛ  Û  Üß" << NL;
- output << "ß ß ßßß ßßß The AVD saving/loading/hedging program." << NL;
- output << "            Use with Dr. Genius. The Hot Key is Ctrl-Alt-H." << NL;
-
- output << NL;
- output << " Enter \"HIZ stop\" to remove Hiz from memory" << NL;
- output << "       \"HIZ hold\" to temporarily halt Hiz" << NL;
- output << "       \"HIZ rstr\" to restart Hiz" << NL;
- stacksw=-1;
- install_int;
- keep(0);
-return EXIT_SUCCESS;
+int main(int argc, const char *argv[]) {
+	pio_initialize(argc, argv);
+	;
+
+	/********************************************/
+	/* Check to see if TSR is already installed */
+	/********************************************/
+
+	tsr_int = dupcheck(tsr_tmark, &tsr_intrtn);
+
+	/*****************************************/
+	/* If it IS already installed, check for */
+	/* parameter.                            */
+	/*****************************************/
+
+	if (tsr_int > 0) {
+		if (paramcount > 0) {
+			st = paramstr(1);
+			for (i = 1; i <= length(st); i ++)
+				st[i] = upcase(st[i]);
+			if (st == "STOP")
+				r.ax = 1;
+			else if (st == "HOLD")  r.ax = 2;
+			else if (st == "RSTR")  r.ax = 3;
+			else r.ax = 4;
+
+			if (r.ax < 4) {
+				;
+				intr(tsr_int, r);
+				return 0;
+			} else {
+				;
+				output << "HIZ: invalid parameter " << paramstr(1) << NL;
+				output << "Syntax: HIZ stop/hold/rstr" << NL;
+				return 0;
+			}
+		} else {
+			;
+			output << "HIZ already installed." << NL;
+			output << "(If you're sure it isn't, try running BLANKINT /I." << NL;
+			output << "It's in the TURBO directory.)" << NL;
+		}
+		return 0;
+	}
+
+	output << string("Wait...") + '\15'; /* tell 'em to wait...! */
+
+	/* Call PopSetUp to point to PopUp routine. Include the
+	  scancode and the keymask to activate the program. In
+	  this example, the scancode is $23 (H) and the
+	  keymask is 08h (Alt.) */
+
+	popsetup(&mypoprtn, 0x23, 0x8);
+
+	directvideo = false;
+	output << "Û Û ßÛß ßßÛ v1.0, (c) 1992, Thomas Thurman." << NL;
+	output << "ÛßÛ  Û  Üß" << NL;
+	output << "ß ß ßßß ßßß The AVD saving/loading/hedging program." << NL;
+	output << "            Use with Dr. Genius. The Hot Key is Ctrl-Alt-H." << NL;
+
+	output << NL;
+	output << " Enter \"HIZ stop\" to remove Hiz from memory" << NL;
+	output << "       \"HIZ hold\" to temporarily halt Hiz" << NL;
+	output << "       \"HIZ rstr\" to restart Hiz" << NL;
+	stacksw = -1;
+	install_int;
+	keep(0);
+	return EXIT_SUCCESS;
 }
 
 } // End of namespace Avalanche.
\ No newline at end of file