'===========================================================================
' 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"