CLS
PRINT "Please input string, ending with '!'"
LOCATE , , 1   'show the cursor

a$ = ""
DO
  k$ = INKEY$
  a$ = a$ + k$
  PRINT k$;
LOOP WHILE k$ <> "!"
PRINT
'show the string in reverse order
FOR i = LEN(a$) TO 1 STEP -1
  PRINT MID$(a$, i, 1);
NEXT i
END

not也可做函数：
print 1+not(1)-2
显示：
-3

那个括号不是函数的意思吧

not ( 1 and 2 )

这是函数么

如果要求每次只输入一个字符
而且不检查扩展按键的话
这样会比较方便

do
  k$=input$(1)
  a$=k$+a$
loop until k$="!"
print a$