#!/usr/bin/perl
#############################################
#                                           #
#           COMMENT SECTION                 #
#           -=-=-=-=-=-=-=-                 #
#          DATE:           04-04-2001       #
#                                           #
#############################################


#-- Things still to do:
#	1. Make column #1 a info column and make it bold
#	2. make a compond if statement within question #3
#	3. Update the comments box!
#								



#--  Question #01                                         
#--  Show the number "5" being multiplied in a table          
#--                                   


     print "The number 05 Multiplication Table: \n ";

     for ($num = 1; $num <= 10; $num++) {
	  $resultQ1  = $num * 5;
	  print " $resultQ1  \n ";
	}


#--  Question #02                                         
#--  Show a multiplication table 10 X 10                 
#--                                                       

     print "A True 10 X 10 Multiplication Table: \n ";

     for ($cols = 1; $cols <= 10; $cols++) {
	 print " $cols :  ";
	 for ($rows = 1; $rows <= 10; $rows++) {
	      $resultQ2 = $cols * $rows;
	      print " $resultQ2 ";
             }
	 print " \n ";
         }


#<!--  Question #03                                         -->
#<!--  Show a multiplication table based on user inputs     -->
#<!--                                                       -->
#<FONT SIZE="4"><BOLD><U>
#Question #03:
#</FONT></BOLD></U>
#
#		ip = prompt("Please enter a number:", "");
#
#
#
#		for 	(x = 1; x <= ip; x++) {
#
#			document.write("<TR>" + "<TD><BOLD>" + x + ":" + "</BOLD></TR>");
#			for (y = 1; y <= ip; y++) {
#				op2 = x * y;
#				document.write("<TD>" + op2 + "</TD>");
#			}
#			document.write("</TR>");
#		}