30000 REM This loop will act on each character in PRINTME$›30010 FOR ME=1 TO LEN(PRINTME$)›30030 VALUE=ASC(PRINTME$(ME,ME))›30040 REM Subtract 128 temporarily if it's a reverse character›30050 VALUE=VALUE-128*(VALUE>127):REM See note below›30060 REM Make the appropriate value adjustments›30070 VALUE=VALUE+64*(VALUE<32)-32*(VALUE>31 AND VALUE<96)›30080 REM Convert back to reverse if necessary›30090 VALUE=VALUE+128*(ASC(PRINTME$(ME,ME))>127)›30100 POKE STARTHERE+ME-1,VALUE:REM Remember, ME starts at 0, not 1›30110 ? VALUE›30120 REM Go to next character›30130 NEXT ME›30140 REM All done, say goodby›30150 RETURN ›31020 REM Find ATASCII value of character›