@echo off
text >nul
AM.BTM - HG 1/5/2002, translated from AM.BAS - LRB - 1/4/2002
An "alphamorph" is a word or phrase which "morphs" into a
sequence of numbers in [1 ..26]. Their sum is the numerical
value of the word. For example: LOVE becomes 12 + 15 + 22 + 5 = 54
endtext
*setlocal
*unalias *
iff %# eq 0 then
   input `Enter string, eg. HARD WORK: ` %%hw
else
   set hw=%&
endiff
set am=0
do i = 0 to %@dec[%@len[%hw]]
set am=%@eval[%am+%@index[ABCDEFGHIJKLMNOPQRSTUVWXYZ,%@instr[%i,1,%hw]]+1]
enddo
echo %am