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