Tweet
DEF SEG ' Reset before init
WIDTH LPRINT 132 ' Set lprint max
DEF SEG ' Reset after init
G2$ = "$#########.##" ' Screen format
DATA ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN,ELEVEN,TWELVE
DATA THIRTEEN,FOURTEEN,FIFTEEN,SIXTEEN,SEVENTEEN,EIGHTEEN,NINETEEN
DATA TWENTY,THIRTY,FORTY,FIFTY,SIXTY,SEVENTY,EIGHTY,NINETY
12585 ' 'QB# ' is ck amt. O7% = 1 toggles printer ' Checkwriter routine
IF O7% = 1 THEN ' Written check
LPRINT TAB(6); "***";
END IF
IF QB# <= 0 THEN ' No amount or neg - no check
GOTO 13525
END IF
QG# = QB#
QN1# = INT(QG#)
IF QN1# > 999999! THEN
GOTO 13525
END IF
IF QN1# = 0 THEN
GOTO 12885
END IF
IF QN1# <= 99999! THEN
QN1# = INT(QG# / 1000)
GOTO 12800
END IF
C8% = INT(QN1# / 100000!)
RESTORE
FOR X% = 1 TO C8%
READ X0$
NEXT X%
IF O7% = 0 THEN
PRINT X0$; " HDRD ";
ELSE
LPRINT X0$; " HUNDRED ";
END IF
QM0% = QG# - C8% * 100000!
IF QM0% = 0 THEN
IF O7% = 0 THEN
PRINT "THND DOL*";
ELSE
LPRINT "THOUSAND DOLLARS*** ";
END IF
GOTO 13235
END IF
QG# = QM0%
QN1# = INT(QG# / 1000)
12800 IF QN1# = 0 AND ABS(QA#) > 1000 THEN
IF O7% = 0 THEN
PRINT "THND ";
ELSE
LPRINT "THND ";
END IF
END IF
IF QN1# <> 0 THEN
GOSUB 13295
IF O7% = 0 THEN
PRINT "THND ";
ELSE
LPRINT "THOUSAND ";
END IF
BH% = 1000
BI% = 1000
END IF
12885 QG# = QG# - QN1# * 1000
QN1# = INT(QG# / 100)
IF QN1# <> 0 THEN
GOSUB 13295
IF O7% = 0 THEN
PRINT "HDRD ";
ELSE
LPRINT "HUNDRED ";
END IF
BH% = 1000
BI% = 1000
END IF
QG# = QG# - QN1# * 100
QN1# = INT(QG#)
IF QN1# = 0 THEN
IF QB# >= 1 THEN
GOTO 12990
END IF
GOTO 13055
END IF
GOSUB 13295
12990 IF X0$ = "ONE" AND BH% = 0 THEN
IF O7% = 0 THEN
PRINT "DLR";
ELSE
LPRINT "DOLLAR";
END IF
ELSE
IF O7% = 0 THEN
PRINT "DLRS";
ELSE
LPRINT "DOLLARS";
END IF
END IF
13055 QG# = QG# - QN1#
IF QG# * 100 < .95 THEN
IF O7% = 1 THEN
LPRINT "***";
END IF
GOTO 13205
END IF
13090 IF QB# >= 1 THEN
IF O7% = 0 THEN
PRINT " AND";
ELSE
LPRINT " AND";
END IF
END IF
QG# = QG# * 100
IF BI% = 1000 THEN
QG# = INT(QG# + .5)
IF O7% = 0 THEN
PRINT QG#; "CTS";
ELSE
LPRINT QG#; "CENTS***";
END IF
GOTO 13205
END IF
QG# = INT(QG# * 10 + .5) / 10
IF O7% = 0 THEN
PRINT QG#; "CTS";
ELSE
LPRINT QG#; "CENTS***";
END IF
13205 BH% = 0
IF O7% = 1 THEN
GOSUB 13260
LPRINT TAB(60); DX$; TAB(76); USING G2$; QB#
END IF
RETURN
13235 IF O7% = 1 THEN
GOSUB 13260
LPRINT TAB(60); DX$; TAB(76); USING G2$; QB#
END IF
RETURN
13260 IF O7% = 1 THEN
FOR X% = 1 TO 4
LPRINT
NEXT X%
LPRINT TAB(16); NY$;
END IF
RETURN
13295 IF QN1# < 21 THEN
GOTO 13475
END IF
RESTORE
FOR X% = 1 TO INT((QN1# - 20) / 10) + 20
READ X0$
NEXT X%
IF O7% = 0 THEN
PRINT X0$;
ELSE
LPRINT X0$;
END IF
C7% = QN1# - INT(QN1# / 10) * 10
IF C7% = 0 THEN
IF O7% = 0 THEN
PRINT " ";
ELSE
LPRINT " ";
END IF
RETURN
END IF
IF O7% = 0 THEN
PRINT "-";
ELSE
LPRINT "-";
END IF
RESTORE
FOR X% = 1 TO C7%
READ X0$
NEXT X%
IF O7% = 0 THEN
PRINT X0$; " ";
ELSE
LPRINT X0$; " ";
END IF
RETURN
13475 RESTORE
FOR X% = 1 TO QN1#
READ X0$
NEXT X%
IF O7% = 0 THEN
PRINT X0$; " ";
ELSE
LPRINT X0$; " ";
END IF
RETURN
13525 IF O7% = 0 THEN
PRINT "******* V O I D **********";
ELSE
LPRINT "******* V O I D **********"
END IF
GOTO 13205
cls
' Input Number as String with or without dollar symbols
amount$ = "15,301,211.21"
CALL ConvertNumberToWords(amount$,dollars$,cents$, total$)
PRINT "Numeric: " + amount$
PRINT "String Dollars: " + dollars$
PRINT " String Cents: " + cents$
PRINT "String Total:"
PRINT total$
'*****
SUB ConvertNumberToWords(inAmount$, dollars$, cents$, total$)
' Initialize Return values
dollars$ = ""
cents$ = ""
total$ = ""
' Create arrays to hold conversion Info (Denom$ = Denomination)
DIM Denom$(1:3), Tens$(1:9), Ones$(1:19)
' Fill Arrays with Equivalent Values
Denom$(1) = "Hundred"
Denom$(2) = "Thousand"
Denom$(3) = "Million"
Ones$(1) = "One" : Ones$(2) = "Two" : Ones$(3) = "Three"
Ones$(4) = "Four" : Ones$(5) = "Five" : Ones$(6) = "Six"
Ones$(7) = "Seven" : Ones$(8) = "Eight" : Ones$(9) = "Nine"
Ones$(10) = "Ten" : Ones$(11) = "Eleven" : Ones$(12) = "Twelve"
Ones$(13) = "Thirteen" : Ones$(14) = "Fourteen" : Ones$(15) = "Fifteen"
Ones$(16) = "Sixteen" : Ones$(17) = "Seventeen" : Ones$(18) = "Eighteen"
Ones$(19) = "Nineteen"
Tens$(1) = "Ten" : Tens$(2) = "Twenty" : Tens$(3) = "Thirty"
Tens$(4) = "Forty" : Tens$(5) = "Fifty" : Tens$(6) = "Sixty"
Tens$(7) = "Seventy" : Tens$(8) = "Eighty" : Tens$(9) = "Ninety"
'Remove "$" or "," symbols
tAmount$ = REMOVE$(inAmount$, ANY "$,")
'Remove any initial leading blanks or 0's with
tAmount$ = LTRIM$(tAmount$, ANY " 0")
'Find the decimal
dPntr% = INSTR(tAmount$,".")
' Check for a number > 999,999,999.
IF dPntr% > 10 THEN
PRINT "Number too large"
EXIT SUB
END IF
' Deal with the cents first
IF dPntr% = 0 OR dPntr% = LEN(tAmount$) THEN
'You might convert this to "No Cents"
Cents$ = "0 Cents"
ELSE
IF VAL(MID$(tAmount$,dPntr%+1,2)) < 20 THEN
Cents$ = Ones$(VAL(MID$(tAmount$,dPntr%+1,2)))
ELSE
temp$ = MID$(tAmount$,dPntr%+1,1)
IF temp$ = "0" THEN
Cents$ = ""
ELSE
Cents$ = Tens$(VAL(temp$)) + " "
END IF
temp$ = MID$(tAmount$,dPntr%+2,1)
IF temp$ <> "0" THEN
Cents$ = Cents$ + Ones$(VAL(temp$))
END IF
END IF
Cents$ = Cents$ + " Cents"
END IF
' Get rid of the decimal to avoid confusion
IF dPntr% = 1 THEN
' No Dollar Amounts to work with!
Dollars$ = "No Dollars"
Total$ = Dollars$ + " and " + Cents$
ELSE
tAmount$ = LEFT$(tAmount$,dPntr%-1)
END IF
' Get String Length
sLen% = LEN(tAmount$)
'Now Pad tAmount$ to the largest value of its denomination
DO WHILE (sLen%\3) * 3 <> sLen%
tAmount$ = "0" +tAmount$
INCR sLen%, 1
LOOP
' Break tAmount$ into Denomination Groupings: million/thousand/hundred
FOR denomination% = 3 TO 1 STEP -1
IF sLen% < 3*(denomination%-1)+1 THEN ITERATE FOR
hFlag% = 0 ' flag for AND to be added after "Hundreds"
' pad words with spaces as required
IF LEN(dollars$) AND RIGHT$(dollars$,1)<> " " THEN _
dollars$ = dollars$ + " "
group$ = MID$(tAmount$,sLen%-denomination%*3+1,3)
' digit 1
digit$ = LEFT$(group$,1)
IF digit$ <> "0" THEN
dollars$ = dollars$ + Ones$(VAL(digit$)) + " Hundred"
hFlag% = 1
END IF
' digit 2
' check for digits 1&2 < 20
IF VAL(MID$(group$,2))<20 THEN
IF hFlag% = 1 THEN dollars$ = dollars$ + " and " : hFlag% = -1
dollars$ = dollars$ + Ones$(VAL(MID$(group$,2)))
ELSE
digit$ = MID$(group$,2,1)
IF digit$ <> "0" THEN
IF hFlag% = 1 THEN dollars$ = dollars$ + " and " : hFlag% = -1
dollars$ = dollars$ + Tens$(VAL(digit$))
END IF
' digit 3
digit$ = RIGHT$(group$,1)
IF digit$ <> "0" THEN
IF RIGHT$(dollars$,1) = " " THEN dollars$ = RTRIM$(dollars$)
IF hFlag% = 1 THEN dollars$ = dollars$ + " and " : hFlag% = -1
dollars$ = dollars$ + " " + Ones$(VAL(digit$))
END IF
END IF
dollars$ = Dollars$ + " "
IF denomination% <> 1 OR (denomination% = 1 AND hFlag% = 0) THEN _
dollars$ = dollars$ + Denom$(denomination%)
NEXT denomination%
total$ = ""
IF dollars$ <> "" THEN
dollars$ = RTRIM$(dollars$) + " Dollars"
total$ = dollars$ + " and "
END IF
total$ = total$ + Cents$
END SUB
'*****
FOR denomination% = 3 TO 1 STEP -1
IF sLen% < 3*(denomination%-1)+1 THEN ITERATE FOR
hFlag% = 0 ' flag for AND to be added after "Hundreds"
' pad words with spaces as required
IF LEN(dollars$) AND RIGHT$(dollars$,1)<> " " THEN _
dollars$ = dollars$ + " "
group$ = MID$(tAmount$,sLen%-denomination%*3+1,3)
' *** Check for Zero Values
IF VAL(group$)<1 THEN ITERATE FOR
' *** Insert the line above for proper operation!
' digit 1
Comment