'===========================================================================
' Subject: ROUND NUMBERS                     Date: 09-03-97 (20:59)       
' Author:  Kinslayer Indst. (Cody Bunch)     Code: QB, QBasic, PDS        
' Origin:  jbunch@bellsouth.net            Packet: ALGOR.ABC
'===========================================================================
CLS
COLOR 5
PRINT " THIS PROGRAM WILL ROUND NUMBERS TO SPECIFIED DECIMAL PLACES "
PRINT " FEEL FREE TO USE THIS PROGRAM AT YOUR OWN FREE WILL AND PUT"
PRINT " IT ON YOUR OWN PAGE AT MY CONSENT THE E-MAIL ADRESS WILL BE"
PRINT " DISPLAYED AT THE END OF THE PROGRAM. IF YOU HAVE ANY INTERESTS IN"
PRINT " ANY OTHER MATH PROGRAMS LET ME KNOW AND I'LL SEE WHAT I CAN DO"
PRINT " NOTE: CAPS LOCK MUST BE ON TO ROUND MORE THAN 1 NUMBER"
MORE$ = "Y"
   WHILE MORE$ = "Y"
   INPUT "NUMBER TO BE ROUNDED"; A
   INPUT "NUMBER OF PLACES"; B
   X = INT(A * 10 ^ B + .5) / 10 ^ B
   PRINT A; "ROUNDED TO"; B; "PLACES_"; X
   PRINT
   INPUT "DO ANOTHER (Y/N)"; MORE$
WEND
COLOR 3
PRINT "THIS PROGRAM WAS MADE BY KINSLAYER INDST."
PRINT "PLEASE E-MAIL ANY COMMENTS TO JBUNCH@BELLSOUTH.NET"
PRINT "THANK YOU"