DECLARE SUB EnterNum ()

DECLARE SUB ProcPiece (piece$, MajorPower!)

DATA one,two,three,four,five,six,seven,eight,nine

DATA ten,eleven,twelve,thirteen,fourteen,fifteen,sixteen,seventeen

DATA eighteen,nineteen

DATA twenty,thirty,forty,fifty,sixty,seventy,eighty,ninety

DATA thousand,million,billion,trillion,quadrillion,quintillion,sextillion

DIM SHARED unit$(19), ten$(10), major$(7)

FOR i = 1 TO 19

  READ unit$(i)

NEXT

FOR i = 2 TO 9

  READ ten$(i)

NEXT

FOR i = 1 TO 7

  READ major$(i)

NEXT

DIM SHARED name$, num$

CLS

OPEN "highnlow.txt" FOR OUTPUT AS #2

FOR n = 1 TO 10000

    

        num$ = LTRIM$(STR$(n))

        num = n

        IF num$ = "0" THEN

                name$ = "zero"

        ELSE

                name$ = ""

                MajorPower = 0

                DO

                        l = LEN(num$): IF l > 3 THEN l = 3

                        piece$ = RIGHT$(num$, l)

                        num$ = LEFT$(num$, LEN(num$) - l)

                        CALL ProcPiece(piece$, MajorPower)

                        MajorPower = MajorPower + 1

                LOOP WHILE LEN(num$) > 0

        END IF

        name$ = LTRIM$(RTRIM$(name$))

        good = 1: goodneg = 1

        FOR i = 1 TO LEN(name$)

            IF INSTR(name$, MID$(name$, i, 1)) < i THEN

              good = 0: EXIT FOR

            END IF

            IF INSTR("minus", MID$(name$, i, 1)) > 0 THEN goodneg = 0

        NEXT

        IF good THEN

          PRINT name$; : PRINT #2, name$;

          IF goodneg THEN PRINT " **"; : PRINT #2, " **";

          PRINT : PRINT #2,

        END IF

        a$ = INKEY$: IF a$ = CHR$(27) THEN PRINT n

NEXT

SUB ProcPiece (piece$, MajorPower)

  piece = VAL(piece$)

  n$ = ""

  IF piece > 99 THEN

    n$ = unit$(piece \ 100) + " hundred "

    piece = piece MOD 100

  END IF

  IF piece > 19 THEN

    n$ = n$ + ten$(piece \ 10)

    piece = piece MOD 10

    IF piece > 0 THEN n$ = n$ + "-":  ELSE n$ = n$ + " "

  END IF

  IF piece > 0 THEN n$ = n$ + unit$(piece) + " "

  IF n$ > "" THEN name$ = n$ + major$(MajorPower) + " " + name$

END SUB

Finds the following numbers that satisfy the criterion:

one

two **

four

five

six

eight

ten

forty **

forty-six

sixty

sixty-one

sixty-four

eighty

eighty-four

five thousand

Those marked with a double asterisk serve also as negative when preceded by "minus". The smallest and largest are therefore minus forty and five thousand.