'===========================================================================
' Subject: ADD COMMAS TO LARGE NUMBERS       Date: 07-03-97 (12:01)       
' Author:  Brian Mahocker                    Code: QB, QBasic, PDS        
' Origin:  Kain121182@aol.com              Packet: MISC.ABC
'===========================================================================
DECLARE SUB AddCommas (InputS$, OutPutS$)
'AddComma By Brian Mahocker
'what this does, is add commas to a string of numbers. you can put letter in
'it, but then it will look funny :). use and distribute this freely!!

LET as$ = "123342673568256613512"
AddCommas as$, ou$
PRINT ou$

SUB AddCommas (InputS$, OutPutS$)
WHILE LEN(InputS$) > 3
   LET CurStr$ = RIGHT$(InputS$, 3)
   LET InputS$ = LEFT$(InputS$, LEN(InputS$) - 3)
   LET OutPutS$ = "," + CurStr$ + OutPutS$
WEND
LET OutPutS$ = InputS$ + OutPutS$
END SUB