Word

  10 PRINT "GIVE ME A WORD"
  20 INPUT A$
  30 CLS 
  40 LET L=LEN A$
  50 PRINT "DOWN:","UP:"
  60 FOR J=1 TO L
  70 PRINT A$(J),A$(L+1-J)
  80 NEXT J
  90 PRINT 
 100 PRINT "FORWARD:"
 110 PRINT A$
 120 PRINT 
 130 PRINT "BACKWARD:"
 140 FOR J=L TO 1 STEP -1
 150 PRINT A$(J);
 160 NEXT J
 170 IF INKEY$="" THEN GOTO 170
 180 CLS 
 190 GOTO 10
 200 SAVE "1003%7"
 210 RUN