Print one frame from within another frame
This JavaScript code fragment allows you to print print one frame from a button ect within another frame on the same page.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
In your frame page, make FrameA and FrameB the frame names. HTML for framer page below:
<frameset rows="20%,*">
<frame SRC="framea.htm" name="FrameA" noresize>
<frame SRC="frameb.htm" name="FrameB" noresize>
<noframes>
<body>
</body>
</noframes>
</frameset>
</html>
HTML for FrameA.htm page below:
<html>
<head>
<script>
function PrintOtherFrame(){
parent.FrameB.focus();
window.print();
}
</script>
</head>
<body>
<form name="formA"><input type="button" value="Print the other frame" onclick="PrintOtherFrame()">
</body>
</html>
HTML for FrameB.htm page below:
<html>
<head>
</head>
<body>
....
.... whatever you like
....
</body>
</html>
<p><font face="Arial" size="1"><b>There is a first part to this tutorial you
need to view before you read this part. To view it click <A HREF="http://www.pscode.com/xq/ASP/txtCodeId.2063/lngWId.3/qx/vb/scripts/ShowCode.htm">here</A>.</b></font></p>
<p><font face="Arial" size="1"><b>Now we will parallel a MasterStream program to
its Pascal and C equivalent. My goal in this is to help you relate
MasterStream syntax with another language you may know. If there is enough
request I will put a Java version up here.</b></font></p>
<p><font face="Arial" size="1"><b>First...the MasterStream calculator code... </b></font></p>
<font SIZE="2">
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New">#include
"masterstream.h"<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"> <o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New">void
printmenu();<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"> <o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"> <o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New">int
mastermain(char* argument)<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New">{<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console << " Welcome to the
example calculator program " << endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console << " written
specificly for planetsourcecode.com " << endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">char yourname[100];<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console << " please enter your
name: ";<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console >> yourname;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console << "\n Hello "
<< yourname << "!" << endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-spacerun: yes"><font face="Courier New"> </font></span><font face="Courier New"><o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"><span style="mso-tab-count:1">
</span>bool go = true;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">while( go == true )<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">{<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">printmenu();<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">int menu_item;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console >> menu_item;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"> <o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"><span style="mso-tab-count:1">
</span>switch(menu_item)<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">{<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">case 0:<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console << "\nerror: please enter a valid menu item"
<< endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>break;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">case 1:<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>{<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"> <o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"><span style="mso-tab-count:2"> </span><span style="mso-tab-count:1">
</span>int num1;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>int num2;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>int val;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console << "\nplease enter the first digit: ";<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console >> num1;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console << "\nplease enter the second digit: ";<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console >> num2;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>val = num1 + num2;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console << "\n the results... " << endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console << num1 << " + " << num2 <<
" = " << val << endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>}<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>break;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">case 2:<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>{<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>int num1;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>int num2;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>int val;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console << "\nplease enter the first digit: ";<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console >> num1;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console << "\nplease enter the second digit: ";<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console >> num2;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>val = num1 - num2;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console << "\n the results... " << endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console << num1 << " - " << num2 <<
" = " << val << endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>}<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>break;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">case 3:<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>console.clear();<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>break;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">case 4:<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>go = false;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:2"><font face="Courier New"> </font></span><font face="Courier New"><span style="mso-tab-count:1">
</span>break;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">}<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"> <o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"><span style="mso-tab-count:1">
</span>console << "\n";<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"> <o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"><span style="mso-tab-count:1">
</span>}<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"> <o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"> <o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"><span style="mso-tab-count:1">
</span>console.pause();<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"> <o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"><span style="mso-tab-count:1">
</span>return (0);<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New">}<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"> <o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New"> <o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New">void
printmenu()<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New">{<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console << "ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ"
<< endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console << "<span style="mso-spacerun: yes">
</span>MENU<span style="mso-spacerun:
yes">
</span>" << endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console << " (1) - Add "
<< endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console << " (2) - Sub "
<< endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console << " (3) - Flush
" << endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console << " (4) - Exit<span style="mso-spacerun: yes">
</span>" << endl;<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><span style="mso-tab-count:1"><font face="Courier New">
</font></span><font face="Courier New">console << "please enter item
index: ";<o:p>
</o:p>
</font></span></p>
<p class="MsoPlainText"><span style="mso-fareast-font-family:"MS Mincho""><font face="Courier New">}</font><o:p>
</o:p>
</span></p>
</font>
<p><img border="0" src="http://www.lostsidedead.com/jeremy/calculator.gif" width="640" height="480"></p>
<p><font face="Arial" size="1"><b>Now for the Pascal version. Notice the
difference and similarities...</b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#008000">program example;</font></p>
<p><font face="Courier New" color="#008000">var</font></p>
<p><font face="Courier New" color="#008000">yourname : string;</font></p>
<p><font face="Courier New" color="#008000">go : boolean;</font></p>
<p><font face="Courier New" color="#008000">menuitem : integer;</font></p>
<p><font face="Courier New" color="#008000">num1, num2 : integer;</font></p>
<p><font face="Courier New" color="#008000">x, val : integer;</font></p>
<p> </p>
<p><font face="Courier New" color="#008000">procedure printmenu();</font></p>
<p><font face="Courier New" color="#008000">begin</font></p>
<p><font face="Courier New" color="#008000">writeln('ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' MENU ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' (1) - Add ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' (2) - Sub ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' (3) - Flush ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' (4) - Exit ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' please enter item index:
');</font></p>
<p><font face="Courier New" color="#008000">end;</font></p>
<p> </p>
<p><font face="Courier New" color="#008000">begin</font></p>
<p><font face="Courier New" color="#008000">writeln(' Welcome to the example
calculator program ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' written specificly for
planetsourcecode.com " );</font></p>
<p><font face="Courier New" color="#008000">writeln(' please enter your name:
";</font></p>
<p><font face="Courier New" color="#008000">read(yourname);</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('Hello ', yourname,
"!";</font></p>
<p> </p>
<p><font face="Courier New" color="#008000">go := true;</font></p>
<p><font face="Courier New" color="#008000">while go = true do</font></p>
<p><font face="Courier New" color="#008000">begin</font></p>
<p><font face="Courier New" color="#008000">printmenu;</font></p>
<p><font face="Courier New" color="#008000">readln(menuitem);</font></p>
<p><font face="Courier New" color="#008000">case menuitem of</font></p>
<p><font face="Courier New" color="#008000">1: begin</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('please enter the first
digit: ');</font></p>
<p><font face="Courier New" color="#008000">read(num1);</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('please enter the second
digit: ');</font></p>
<p><font face="Courier New" color="#008000">read(num2);</font></p>
<p><font face="Courier New" color="#008000">val := num1 + num2;</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('the results... ');</font></p>
<p><font face="Courier New" color="#008000">writeln(num1:1, ' + ':3, num2:1,' =
':3, val:1);</font></p>
<p><font face="Courier New" color="#008000">end;</font></p>
<p><font face="Courier New" color="#008000">2: begin</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('please enter the first
digit ');</font></p>
<p><font face="Courier New" color="#008000">read(num1);</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('please enter the second
digit: ');</font></p>
<p><font face="Courier New" color="#008000">read(num2);</font></p>
<p><font face="Courier New" color="#008000">val := num1 - num2;</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('the results... ');</font></p>
<p><font face="Courier New" color="#008000">writeln(num1:1, ' - ':3, num2:1, ' =
':3, val:1);</font></p>
<p><font face="Courier New" color="#008000">end;</font></p>
<p><font face="Courier New" color="#008000">3: begin</font></p>
<p><font face="Courier New" color="#008000">for x:=x to 50 do</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">end;</font></p>
<p><font face="Courier New" color="#008000">4: go := false;</font></p>
<p><font face="Courier New" color="#008000">Otherwise begin</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('error: please enter a valid
menu item');</font></p>
<p><font face="Courier New" color="#008000">end;</font></p>
<p> </p>
<p><font face="Courier New" color="#008000">end;</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">end;</font></p>
<p><font face="Courier New" color="#008000">end.</font></p>
<p><img border="0" src="http://www.lostsidedead.com/jeremy/pacalc.jpg" width="549" height="297"></p>
<p> </p>
</font>
<p><font face="Arial" size="1"><b>...and finally C. The one closest to
MasterStream. Basically, because all MasterStream is using modified C/C++
commands and functions. Notice the extreme similarities...</b></font></p>
<font SIZE="2">
<p><font color="#000080"><font face="Courier New">#include <stdio.h><br>
#include <stdlib.h><br>
<br>
void printmenu();<br>
<br>
<br>
<br>
<br>
<br>
void main()<br>
<br>
{<br>
<br>
char yourname[100];<br>
int go = 1;<br>
<br>
printf("Welcome to the example calculator program ");<br>
<br>
printf("written specificly for planetsourcecode.com ");<br>
<br>
<br>
<br>
printf("please enter your name: ");<br>
<br>
scanf("%s", yourname);<br>
<br>
printf("\n Hello %s!\n", yourname);<br>
<br>
<br>
<br>
<br>
<br>
while( go == 1 )<br>
<br>
{<br>
char smenu_item[100];<br>
int menu_item = 0;<br>
<br>
printmenu();<br>
<br>
<br>
scanf("%s", smenu_item);<br>
menu_item = atoi(smenu_item);<br>
<br>
switch(menu_item)<br>
<br>
{<br>
<br>
case 0:<br>
<br>
printf("\nerror: please enter a valid menu item");<br>
<br>
break;<br>
<br>
case 1:<br>
<br>
{<br>
<br>
int num1;<br>
<br>
int num2;<br>
<br>
int val;<br>
<br>
char inputdata[100];<br>
<br>
printf("\nplease enter the first digit: ");<br>
<br>
scanf("%s", inputdata);<br>
num1 = atoi(inputdata);<br>
<br>
printf("\nplease enter the second digit: ");<br>
<br>
scanf("%s", inputdata);<br>
num2 = atoi(inputdata);<br>
<br>
val = num1 + num2;<br>
<br>
printf("\n the results... ");<br>
<br>
printf(" %i + %i = %i", num1, num2, val);<br>
<br>
}<br>
<br>
break;<br>
<br>
case 2:<br>
<br>
{<br>
int num1;<br>
<br>
int num2;<br>
<br>
int val;<br>
<br>
char inputdata[100];<br>
<br>
printf("\nplease enter the first digit: ");<br>
<br>
scanf("%s", inputdata);<br>
num1 = atoi(inputdata);<br>
<br>
printf("\nplease enter the second digit: ");<br>
<br>
scanf("%s", inputdata);<br>
num2 = atoi(inputdata);<br>
<br>
val = num1 - num2;<br>
<br>
printf("\n the results... ");<br>
<br>
printf(" %i - %i = %i", num1, num2, val);<br>
<br>
<br>
}<br>
<br>
break;<br>
<br>
case 3:<br>
<br>
system("cls");<br>
<br>
break;<br>
<br>
case 4:<br>
<br>
go = 0;<br>
<br>
break;<br>
<br>
}<br>
<br>
printf("\n");<br>
<br>
}<br>
<br>
<br>
<br>
}<br>
<br>
<br>
<br>
void printmenu()<br>
<br>
{<br>
<br>
printf("\nZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ\n");<br>
<br>
printf(" MENU \n" );<br>
<br>
printf(" (1) - Add \n" );<br>
<br>
printf(" (2) - Sub \n" );<br>
<br>
printf(" (3) - Flush \n" );<br>
<br>
printf(" (4) - Exit \n" );<br>
<br>
printf("please enter item index: ");<br>
<br>
}</font><br>
</font></p>
</font>
<p><font face="Courier New" size="2" color="#000080"><img border="0" src="http://www.lostsidedead.com/jeremy/ccalc.jpg" width="559" height="300"><br>
<br>
</font></p>
<p><font face="Arial" size="1"><b>Now we'll take these apart, comparing all
three to each other.</b></font></p>
<font SIZE="2">
<p><font face="Courier New">#include "masterstream.h"</font></p>
<p><font face="Courier New">void printmenu();</font></p>
<p> </p>
<p><font face="Courier New">int mastermain(char* argument)</font></p>
<p><font face="Courier New">{</font></p>
</font>
<p><font face="Arial" size="1"><b>This is the typical MasterStream code to
include the header and initialize the main program. </b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#008000">program example;</font></p>
<p><font face="Courier New" color="#008000">var</font></p>
<p><font face="Courier New" color="#008000">yourname : string;</font></p>
<p><font face="Courier New" color="#008000">go : boolean;</font></p>
<p><font face="Courier New" color="#008000">menuitem : integer;</font></p>
<p><font face="Courier New" color="#008000">num1, num2 : integer;</font></p>
<p><font face="Courier New" color="#008000">x, val : integer;</font></p>
</font>
<p><font face="Arial" size="1"><b>In the case of Pascal, you define all of your
variables.</b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#000080"> #include <stdio.h><br>
#include <stdlib.h><br>
<br>
void printmenu();<br>
<br>
<br>
<br>
<br>
<br>
void main()<br>
<br>
{</font></p>
</font>
<p><font face="Arial" size="1"><b>In the case of C, you include the correct
headers, setup your functions and
main program, and then, initialize the main program.</b></font></p>
<p><font SIZE="2"><font face="Courier New">console << " Welcome to
the example calculator program " << endl;</font></p>
<p><font face="Courier New">console << " written specificly for
planetsourcecode.com " << endl;</font></p>
<p><font face="Courier New">char yourname[100];</font></p>
<p><font face="Courier New">console << " please enter your name:
";</font></p>
<p><font face="Courier New">console >> yourname;</font></p>
<p><font face="Courier New">console << "\n Hello " <<
yourname << "!" << endl;</font></p>
<p></font><font face="Arial" size="1"><b>This portion displays a welcome
message. Then it creates a character/string type variable named yourname
with a fieldwidth of 100. Then it prompts you for your name and creates a
use input for you to do so. </b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#008000">writeln(' Welcome to the example
calculator program ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' written specificly for
planetsourcecode.com ' );</font></p>
<p><font face="Courier New" color="#008000">writeln(' please enter your name: ');</font></p>
<p><font face="Courier New" color="#008000">read(yourname);</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('Hello ', yourname:1, '!');</font></p>
<p><b><font face="Arial" size="1">This</font></b>
</font>
<b><font face="Arial" size="1"> also does the same thing, only in Pascal the
string "yourname" was declared in the variable declaration section at
the beginning of the code.</font></b></p>
<font SIZE="2">
<p><font face="Courier New" color="#000080">char yourname[100];<br>
int go = 1;<br>
<br>
printf("Welcome to the example calculator program ");<br>
<br>
printf("written specificly for planetsourcecode.com ");<br>
<br>
<br>
<br>
printf("please enter your name: ");<br>
<br>
scanf("%s", yourname);<br>
<br>
printf("\n Hello %s!", yourname);<br>
</font></p>
<p><b><font face="Arial" size="1">Th</font></b></font><b><font face="Arial" size="1">e
C version works very similarly to the MasterStream version. The reason for
this is that MasterStream is a batch executor for C/C++ programs within
MasterConsole. So, in turn they will use some of the same techniques.</font></b></p>
<font SIZE="2">
<p> </p>
<p><font face="Courier New">bool go = true;</font></p>
<p><font face="Courier New">while( go == true )</font></p>
<p><font face="Courier New">{</font></p>
</font>
<p><font face="Arial" size="1"><b>Creates a boolean variable "go" and
sets its default value to true. Begins a while loop with the conditional
being while go is true.</b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#008000">go := true;</font></p>
<p><font face="Courier New" color="#008000">while go = true do</font></p>
<p><font face="Courier New" color="#008000">begin</font></p>
</font>
<p><font face="Arial" size="1"><b>Sets the boolean value of go to true and
begins a While...Do loop.</b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#000080">while( go == 1 )<br>
<br>
{</font></p>
</font>
<p><font face="Arial" size="1"><b>Creates a while loop with the conditional
while go is equal to one.</b></font></p>
<p> </p>
<font SIZE="2">
<p><font face="Courier New">printmenu();</font></p>
<p><font face="Courier New">int menu_item;</font></p>
<p><font face="Courier New">console >> menu_item;</font></p>
<p><font face="Courier New">switch(menu_item)</font></p>
<p><font face="Courier New">{</font></p>
</font>
<p><font face="Arial" size="1"><b>This calls the function to print the
menu. Then, creates a variable of integer type named "menu_item".
Then it creates a user input to get a value for menu_item. Then it begins
a case select for menu_item.</b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#008000">printmenu;</font></p>
<p><font face="Courier New" color="#008000">readln(menuitem);</font></p>
<p><font face="Courier New" color="#008000">case menuitem of</font></p>
</font>
<p><font face="Arial" size="1"><b>This calls the procedure to print the
menu. Then it reads in a value for the earlier declared menuitem (_ is not
allowed in Pascal variables by most versions of Pascal). Then it begins a
case statement to select a case of menuitem.</b></font></p>
<font SIZE="2">
<p><font face="Courier New">
char smenu_item[100];<br>
int menu_item = 0;<br>
<br>
printmenu();<br>
<br>
<br>
scanf("%s", smenu_item);<br>
menu_item = atoi(smenu_item);<br>
<br>
switch(menu_item)<br>
<br>
{</font></p>
</font>
<p><font face="Arial" size="1"><b>First a character/string type variable named
smenu_item is created. Then an integer type variable named menu_item is
created. After that, the program calls the function to print the
menu. Then it creates a user input to get a value for smenu_item.
Then it sets menu_item equal to the ascii-to-integer value of smenu_item.
This sets up for the error checking. Then it egins
a case select for menu_item. Here you can see one of the syntactical differences between MasterStream and
C. Although, with the updated version of MasterStream you could just
as easily create streams like this using the Console.printf and Console.scanf
commands.</b></font></p>
<font SIZE="2">
<p> </p>
<p><font face="Courier New">case 0:</font></p>
<p><font face="Courier New">console << "\nerror: please enter a valid
menu item" << endl;</font></p>
<p><font face="Courier New">break;</font></p>
</font>
<p><font face="Arial" size="1"><b>If it is an invalid menu choice, then display
an error message.</b></font></p>
<p><font face="Arial" size="1"><b>In Pascal, the value 0 is not returned.
This is contained in the Otherwise/Else statement shown later in this
explanation.</b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#000080">case 0:<br>
<br>
printf("\nerror: please enter a valid menu item");<br>
<br>
break;</font></p>
</font>
<p><font face="Arial" size="1"><b>If an invalid choice is made, display an error
message.</b></font></p>
<font SIZE="2">
<p><font face="Courier New">case 1:</font></p>
<p><font face="Courier New">{</font></p>
<p><font face="Courier New">int num1;</font></p>
<p><font face="Courier New">int num2;</font></p>
<p><font face="Courier New">int val;</font></p>
<p><font face="Courier New">console << "\nplease enter the first
digit: ";</font></p>
<p><font face="Courier New">console >> num1;</font></p>
<p><font face="Courier New">console << "\nplease enter the second
digit: ";</font></p>
<p><font face="Courier New">console >> num2;</font></p>
<p><font face="Courier New">val = num1 + num2;</font></p>
<p><font face="Courier New">console << "\n the results... "
<< endl;</font></p>
<p><font face="Courier New">console << num1 << " + "
<< num2 << " = " << val << endl;</font></p>
<p><font face="Courier New">}</font></p>
<p><font face="Arial" size="1"><b>If you choose menu option "1",
then the addition portion is intitated. At the beginning of the case code,
three variables of integer type are created, num1, num2, and val
respectively. Then a prompt for the first number is displayed. The
next line creates a user input for the first number to add. This value is
stored in num1. This process of prompt/input is duplicated for the second
number, only the value is not stored in num1, but num2. Then val is set
equal to num1 + num2. The next two lines display the expression and the
solution, like "2 + 3 = 5". </b></font></p>
<p><font face="Courier New" color="#008000">1: begin</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('please enter the first
digit: ');</font></p>
<p><font face="Courier New" color="#008000">read(num1);</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('please enter the second
digit: ');</font></p>
<p><font face="Courier New" color="#008000">read(num2);</font></p>
<p><font face="Courier New" color="#008000">val := num1 + num2;</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('the results... ');</font></p>
<p><font face="Courier New" color="#008000">writeln(num1:1, ' + ':3, num2:1,' =
':3, val:1);</font></p>
<p><font face="Courier New" color="#008000">end;</font></p>
<p><b><font face="Arial" size="1">If you choose menu option "1",
then the addition</font></font><font face="Arial" size="1"> function is
initiated. At the beginning of the case code, a prompt for the first number is displayed. The
next line creates a user input for the first number to add. This value is
stored in num1. This process of prompt/input is duplicated for the second
number, only the value is not stored in num1, but num2. Then val is set
equal to num1 + num2. The next two lines display the expression and the
solution, like "2 + 3 = 5". </font></b><b><font face="Arial" size="1"> function is
initiated. At the beginning of the case code, a prompt for the first number is displayed. The
next line creates a user input for the first number to add. This value is
stored in num1. This process of prompt/input is duplicated for the second
number, only the value is not stored in num1, but num2. Then val is set
equal to num1 + num2. The next two lines display the expression and the
solution, like "2 + 3 = 5". </font></b></p>
<font SIZE="2">
<p><font face="Courier New">
case 1:<br>
<br>
{<br>
<br>
int num1;<br>
<br>
int num2;<br>
<br>
int val;<br>
<br>
char inputdata[100];<br>
<br>
printf("\nplease enter the first digit: ");<br>
<br>
scanf("%s", inputdata);<br>
num1 = atoi(inputdata);<br>
<br>
printf("\nplease enter the second digit: ");<br>
<br>
scanf("%s", inputdata);<br>
num2 = atoi(inputdata);<br>
<br>
val = num1 + num2;<br>
<br>
printf("\n the results... ");<br>
<br>
printf(" %i + %i = %i", num1, num2, val);<br>
<br>
}<br>
<br>
break;</font></p>
</font>
<p><b><font face="Arial" size="1">If you choose menu option "1",
then the addition portion is intitated. At the beginning of the case code,
three variables of integer type and one of character/string type are created, num1, num2, and val
respectively. Then a prompt for the first number is displayed. The
next line creates a user input for the first number to add. The next line
sets num1 equal to the ascii-to-integer value of the value of inputdata. This process of prompt/input is duplicated for the second
number, only the value is not stored in num1, but num2. Then val is set
equal to num1 + num2. The next two lines display the expression and the
solution, like "2 + 3 = 5". </font></b></p>
<font SIZE="2">
<p> </p>
<p><font face="Courier New">case 2:</font></p>
<p><font face="Courier New">{</font></p>
<p><font face="Courier New">int num1;</font></p>
<p><font face="Courier New">int num2;</font></p>
<p><font face="Courier New">int val;</font></p>
<p><font face="Courier New">console << "\nplease enter the first
digit: ";</font></p>
<p><font face="Courier New">console >> num1;</font></p>
<p><font face="Courier New">console << "\nplease enter the second
digit: ";</font></p>
<p><font face="Courier New">console >> num2;</font></p>
<p><font face="Courier New">val = num1 - num2;</font></p>
<p><font face="Courier New">console << "\n the results... "
<< endl;</font></p>
<p><font face="Courier New">console << num1 << " - "
<< num2 << " = " << val << endl;</font></p>
<p><font face="Courier New">}</font></p>
</font>
<p><b><font face="Arial" size="1">If you choose menu option "2",
then the subtraction portion is intitated. At the beginning of the case code,
three variables of integer type are created, num1, num2, and val
respectively. Then a prompt for the first number is displayed. The
next line creates a user input for the first number to add. This value is
stored in num1. This process of prompt/input is duplicated for the second
number, only the value is not stored in num1, but num2. Then val is set
equal to num1 - num2. The next two lines display the expression and the
solution, like "2 - 3 = 5". </font></b></p>
<p><font SIZE="2"><font face="Courier New" color="#008000">2: begin</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('please enter the first
digit" ');</font></p>
<p><font face="Courier New" color="#008000">read(num1);</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('please enter the second
digit: ');</font></p>
<p><font face="Courier New" color="#008000">read(num2);</font></p>
<p><font face="Courier New" color="#008000">val := num1 - num2;</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('the results... ');</font></p>
<p><font face="Courier New" color="#008000">writeln(num1:1, ' - ':3, num2:1, ' =
':3, val:1);</font></p>
<p><font face="Courier New" color="#008000">end;</font></p>
<p><b><font face="Arial" size="1">If you chose menu option "2", then
the subtraction portion is initiated. Again, like in addition, in the
beginning three variables of integer type </font></b>
</font>
<b><font face="Arial" size="1">and one of string/character type are created called num1, num2, val,
and inputdata
respectively. Then a prompt is created for the first number. A user
input is created for the first number. Then num1 is set equal to the
ascii-to-integer value of inputdata.
The prompt/input is again duplicated for the second number, but instead of num1,
it is stored in num2. Then val is set equal to num1 - num2. Then the
next two lines display the expression and the results, like "5 - 2 =
3".</font></b></p>
<font SIZE="2">
<p><font face="Courier New">
case 2:<br>
<br>
{<br>
int num1;<br>
<br>
int num2;<br>
<br>
int val;<br>
<br>
char inputdata[100];<br>
<br>
printf("\nplease enter the first digit: ");<br>
<br>
scanf("%s", inputdata);<br>
num1 = atoi(inputdata);<br>
<br>
printf("\nplease enter the second digit: ");<br>
<br>
scanf("%s", inputdata);<br>
num2 = atoi(inputdata);<br>
<br>
val = num1 - num2;<br>
<br>
printf("\n the results... ");<br>
<br>
printf(" %i - %i = %i", num1, num2, val);<br>
<br>
<br>
}<br>
</font></p>
<p><font face="Courier New" color="#000080">break;</font></p>
<p><font face="Arial" size="1"><b>If you chose menu option "2", then
the subtraction portion is initiated. Again, like in addition, in the
beginning three variables of integer type are created called num1, num2, and val
respectively. Then a prompt is created for the first number. A user
input is created for the first number. This value is stored in num1.
The prompt/input is again duplicated for the second number, but instead of num1,
it is stored in num2. Then val is set equal to num1 - num2. Then the
next two lines display the expression and the results, like "5 - 2 =
3".</b></font></p>
<p> </p>
<p><font face="Courier New">case 3:</font></p>
<p><font face="Courier New">console.clear();</font></p>
<p><font face="Courier New">break;</font></p>
</font>
<p><font face="Arial" size="1"><b>If menu option "3" is chosen then
clear the console. </b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#008000">3: begin</font></p>
<p><font face="Courier New" color="#008000">for x:=x to 50 do</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">end;</font></p>
</font>
<p><font face="Arial" size="1"><b>If menu option "3" is chosen, then
clear the console screen. Some versions of Pascal don't support CLS
(namely ThinkPascal and Turbo Pascal), so I had to do the best I could. If
you have a better method, then please e-mail it to me!</b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#000080">case 3:<br>
<br>
system("cls");<br>
<br>
break;</font></p>
</font>
<p><font face="Arial" size="1"><b>The C version is uses a system command to
clear the screen.</b></font></p>
<font SIZE="2">
<p><font face="Courier New">case 4:</font></p>
<p><font face="Courier New">go = false;</font></p>
<p><font face="Courier New">break;</font></p>
<p><font face="Courier New">}</font></p>
</font>
<p><font face="Arial" size="1"><b>If menu option "4" is chosen then
exit.</b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#008000">4: go := false;</font></p>
<p><font face="Courier New" color="#008000">Otherwise begin</font></p>
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">writeln('error: please enter a valid
menu item');</font></p>
<p><font face="Courier New" color="#008000">end;</font></p>
<p><b><font face="Arial" size="1">If menu option "4" is chosen then
exit.</font></b></font><b><font face="Arial" size="1"> This shows the
otherwise option, used if an invalid menu choice (as in picking an item
other than the ones declared) is made. It will display an error
message. This is similar to the Case (0) in C/C++.</font></b></p>
<font SIZE="2">
<p><font face="Courier New" color="#000080">case 4:<br>
<br>
go = 0;<br>
<br>
break;<br>
<br>
}</font></p>
<p> </p>
<p><b><font face="Arial" size="1">If menu option "4" is chosen then
exit</font></b></font><b><font face="Arial" size="1">.</font></b></p>
<font SIZE="2">
<p><font face="Courier New">console << "\n";</font></p>
<p><font face="Courier New">}</font></p>
<p> </p>
<p><font face="Courier New">console.pause();</font></p>
<p><font face="Courier New">return (0);</font></p>
<p><font face="Courier New">}</font></p>
</font>
<p><b><font face="Arial" size="1">This will print a blank line then pause the
console for you to look at the program. Then it will end the program and
return nothing.</font></b></p>
<font SIZE="2">
<p><font face="Courier New" color="#008000">writeln;</font></p>
<p><font face="Courier New" color="#008000">end;</font></p>
<p><font face="Courier New" color="#008000">end.</font></p>
</font>
<p><b><font face="Arial" size="1">Print a blank line and exit.</font></b></p>
<font SIZE="2">
<p><font face="Courier New" color="#000080">printf("\n");<br>
<br>
}<br>
<br>
<br>
<br>
return (0);<br>
<br>
}<br>
</font></p>
</font>
<p><b><font face="Arial" size="1">Print a blank line, and return nothing and end
the program.</font></b></p>
<p> </p>
<font SIZE="2">
<p><font face="Courier New">void printmenu()</font></p>
<p><font face="Courier New">{</font></p>
<p><font face="Courier New">console << "ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ"
<< endl;</font></p>
<p><font face="Courier New">console << " MENU " << endl;</font></p>
<p><font face="Courier New">console << " (1) - Add " <<
endl;</font></p>
<p><font face="Courier New">console << " (2) - Sub " <<
endl;</font></p>
<p><font face="Courier New">console << " (3) - Flush " <<
endl;</font></p>
<p><font face="Courier New">console << " (4) - Exit " <<
endl;</font></p>
<p><font face="Courier New">console << "please enter item index:
";</font></p>
<p><font face="Courier New">}</font></p>
</font>
<p><font size="1"><b><font face="Arial">This is the printmenu function. It
prints the menu for choices into the MasterConsole window. It merely prints the
text to MasterConsole. Structuring the progam this way makes it easier to read and the
function recallable from any portion of the program. </font></b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#008000">procedure printmenu();</font></p>
<p><font face="Courier New" color="#008000">begin</font></p>
<p><font face="Courier New" color="#008000">writeln('ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' MENU ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' (1) - Add ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' (2) - Sub ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' (3) - Flush ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' (4) - Exit ');</font></p>
<p><font face="Courier New" color="#008000">writeln(' please enter item index:
');</font></p>
<p><font face="Courier New" color="#008000">end;</font></p>
</font>
<p><font size="1"><b><font face="Arial">This is the printmenu procedure. It
prints the menu for choices into the system console. It merely prints the
text. Structuring the progam this way makes it easier to read and the
procedure recallable from any portion of the program. </font>
</b>
<b>
<font face="Arial" size="1">procedure. It
prints the menu for choices into the
system console. It merely prints the
text. Structuring the progam this way makes it easier to read and the
procedure recallable from any portion of the program.
</font></b></font></p>
<font SIZE="2">
<p><font face="Courier New" color="#000080">void printmenu()</font></p>
<p><font face="Courier New" color="#000080">void printmenu()<br>
<br>
{<br>
<br>
printf("ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ" << );<br>
<br>
printf(" MENU " << );<br>
<br>
printf(" (1) - Add " << );<br>
<br>
printf(" (2) - Sub " << );<br>
<br>
printf(" (3) - Flush " << );<br>
<br>
printf(" (4) - Exit " << );<br>
<br>
printf("please enter item index: ";<br>
<br>
}</font></p>
<p><b><font face="Arial" size="1">This is the printmenu function. It
prints the menu for choices into the </font>
</b>
</font>
<b>
<font face="Arial" size="1">system console. Structuring the progam this way makes it easier to read and the
function recallable from any portion of the program. It merely prints the
text to the system console. </font></b></p>
<p><b><font face="Arial" size="1">Well, this is the end of the tutorial to
date. I will be updating and hopefully come out with a tutorial that will
explain the source to MasterStream and MasterConsole. </font></b></p>
Original Comments (3)
Recovered from Wayback Machine