10 ' AM.BAS - LRB - 1/4/2002
12 ' An "AlphaMorph" is a word or phrase which "morphs" into a
13 ' sequence of numbers in [1 ..26]. Their sum is the numerical
14 ' value of the word. For example: LOVE becomes 12 + 15 + 22 + 5 = 54
20 INPUT "Enter string, eg. HARD WORK "; HW$
30 FOR I% = 1 TO LEN(HW$)
40 AM% = AM% + INSTR("ABCDEFGHIJKLMNOPQRSTUVWXYZ", MID$(HW$, I%, 1))
50 NEXT I%
60 PRINT AM%
70 END