/*** Copyright 1998 Lawrence Goetz ***/

var goetzprinter;
var goetz_display_content="";


// FUNCTIONS FOR GETTING INPUT.

function get(statement) {
	if(statement==null)
		statement=" "
	return prompt(statement,"")
}

function getnumber(statement) {
	if(statement==null)
		statement=" "
	i=parseInt(prompt(statement,""))
	return (isNaN(i)) ? 0 : i;
}

function getdecimal(statement) {
	if(statement==null)
		statement=" "
	d= parseFloat(prompt(statement,""))
	return (isNaN(d)) ? 0 : d;
}

function letter(string,at) {
	if(string!=null)
		return string.charAt(at-1);
}

// FUNCTIONS FOR DOING OUPUT.


function display(statement) {
	if(statement!=null) {
		goetz_display_content+=statement
		document.program.Output.value=goetz_display_content;
	}
}

function display_newline(statement) {
	if(statement!=null) {
		goetz_display_content+=statement+"\n"
		document.program.Output.value=goetz_display_content;
	}
}

function display_clear() {
	goetz_display_content=""
	document.program.Output.value=goetz_display_content;
}

// A PAUSE FUNCTION.
function pause() {
	alert("Program paused. Press OK to continue");
}	

// FUNCTIONS FOR PRINTING OUTPUT.


function printer(statement) {

	 goetzprinter = window.open('', 'Printer', 	'toolbar=no,scrollbars=yes,width=600,height=400,resizable=yes');

	 if (goetzprinter != null) {
	  	if (goetzprinter.opener == null)
	   		goetzprinter.opener = self;
 	}

	if (goetzprinter == null)
		alert("Problem creating printer's window, restart Netscape.");


	if(statement!=null){
		goetzprinter.focus();
		goetzprinter.document.write(statement);
		focus();
	}

}


function printer_newline(statement) {

	 goetzprinter = window.open('', 'Printer', 	'toolbar=no,scrollbars=yes,width=600,height=400,resizable=yes');

	 if (goetzprinter != null) {
	  	if (goetzprinter.opener == null)
	   		goetzprinter.opener = self;
 	}
	
	if (goetzprinter == null)
		alert("Problem creating printer's window, restart Netscape.");
	
	if(statement!=null){
		goetzprinter.focus();
		goetzprinter.document.write(statement+"<DT>");
		focus();
	}
		
}

function printer_skipline() {

	 goetzprinter = window.open('', 'Printer', 	'toolbar=no,scrollbars=yes,width=600,height=400,resizable=yes');

	 if (goetzprinter != null) {
	  	if (goetzprinter.opener == null)
	   		goetzprinter.opener = self;
 	}
	
	if (goetzprinter == null)
		alert("Problem creating printer's window, restart Netscape.");
	
	goetzprinter.focus();
	goetzprinter.document.write("<BR>");
	focus();
			
}


function printer_done() {	
	goetzprinter.focus();
	goetzprinter.document.close();
	
}

function lowercase(string) {
	if(string!=null)
		return string.toLowerCase()
}