===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 03-12-93 (04:33)             Number: 133
From: STEVE SHULTZ                 Refer#: NONE
  To: CASEY PEARSON                 Recvd: NO  
Subj: Basic Routine                  Conf: (35) Quick Basi
---------------------------------------------------------------------------
SS>                EXIT FUNCTION
SS>        CASE IS = 6
SS>                work$ = digits(1) + digits(2) + digits(3)
SS> <Continued next message>
SS>... Maximus 2.01wb
CP>        There was no second message.  I assume there's more...?





                IF VAL(work$) <> 0 THEN
                        GOSUB dohundreds
                        prtamt$ = prtamt$ + " THOUSAND "
                END IF
                work$ = digits(4) + digits(5) + digits(6)
                GOSUB dohundreds
                wordamt$ = prtamt$ + " AND " + cents$ + "/100 DOLLARS"
                EXIT FUNCTION
        CASE ELSE
                wordamt$ = "????????"
                EXIT FUNCTION
END SELECT
dohundreds:
        IF LEFT$(work$, 1) = "0" THEN
                GOTO dotens
        ELSE
                prtamt$ = prtamt$ + units$(VAL(MID$(work$, 1, 1))) + "
HUNDRED "
        END IF
dotens:
        IF VAL(RIGHT$(work$, 2)) > 19 THEN
                prtamt$ = prtamt$ + tens$(VAL(LEFT$(RIGHT$(work$, 2),
1)))
                IF VAL(RIGHT$(work$, 1)) <> 0 THEN
                        prtamt$ = prtamt$ + " "
                END IF
        END IF
        IF VAL(RIGHT$(work$, 2)) > 9 AND VAL(RIGHT$(work$, 2)) <= 19
THEN
                prtamt$ = prtamt$ + units$(VAL(RIGHT$(work$, 2)))
                GOTO myreturn
        END IF
dounits:
        IF VAL(RIGHT$(work$, 1)) <> 0 THEN
                prtamt$ = prtamt$ + units$(VAL(RIGHT$(work$, 1)))
        END IF
myreturn:
RETURN
END FUNCTION

It did make it to the local board. Don't know what might have happened
but here is second message.

Steve

___
 * MR/2 1.38 NR * Old MacDonald had a computer, with EIA I/O...

--- Maximus 2.01wb
 * Origin: Connect America SuperSystem - 512 459-3351 (1:382/10)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20