DECLARE FUNCTION Revers$ (txt$)
ON ERROR GOTO 120

DIM PUZL$(1 TO 25)
CLS
DO
az = az + 1
INPUT "Next line>", PUZL$(az)
PUZL$(az) = UCASE$(PUZL$(az))
LOOP UNTIL PUZL$(az) = ""
az = az - 1
CLS
FOR q = 1 TO az
PRINT LTRIM$(RTRIM$(STR$(q))); ">"; PUZL$(q)
NEXT q
DO
LOCATE az + 2: INPUT "Enter word>"; wrd$: wrd$ = UCASE$(LTRIM$(RTRIM$(wrd$)))
FOR q1 = 1 TO az
FOR q2 = 1 TO LEN(PUZL$(q1))
IF MID$(PUZL$(q1), q2, 1) = MID$(wrd$, 1, 1) THEN
        IF q2 - LEN(wrd$) + 2 < 0 THEN bck = -1: PRINT q2; q2 - LEN(wrd$) + 2 ELSE PRINT "Back has level 1"
        IF q2 + LEN(wrd$) - 2 > LEN(PUZL$(q1)) THEN fwd = -1: PRINT q2; q2 + LEN(wrd$) - 2 ELSE PRINT "Foward has level 1"
        IF q1 + LEN(wrd$) > az THEN dwn = -1 ELSE PRINT "Down has level 1"
        IF q1 - LEN(wrd$) < 0 THEN ups = -1 ELSE PRINT "Up has level 1"; q1; q1 - LEN(wrd$)
END IF
IF bck = 0 OR fwd = 0 OR dwn = 0 OR ups = 0 THEN
        IF bck = 0 THEN IF MID$(wrd$, 2, 1) = MID$(PUZL$(q1), q2 - 1, 1) THEN bck = 1: PRINT "Back has level 2"
        IF fwd = 0 THEN IF MID$(wrd$, 2, 1) = MID$(PUZL$(q1), q2 + 1, 1) THEN fwd = 1: PRINT "Foward has level 2"
        IF ups = 0 THEN IF MID$(wrd$, 2, 1) = MID$(PUZL$(q1 - 1), q2, 1) THEN ups = 1: PRINT "Up has level 2"
        IF dwn = 0 THEN IF MID$(wrd$, 2, 1) = MID$(PUZL$(q1 + 1), q2, 1) THEN dwn = 1: PRINT "Down has level 2"
END IF
IF bck = 1 THEN  ELSE GOTO BACKFALE
IF Revers$(MID$(PUZL$(q1), q2 - LEN(wrd$) + 1, LEN(wrd$))) = wrd$ THEN bck = 2
PRINT "Back has level 3!"
BACKFALE:
IF fwd = 1 THEN  ELSE GOTO FWDFALE
IF MID$(PUZL$(q1), q2, LEN(wrd$)) = wrd$ THEN fwd = 2
'PRINT "Foward has level 3!"
FWDFALE:
IF ups = 1 THEN  ELSE GOTO UPFALE
FOR zza = q1 TO LEN(wrd$) + q1
up$ = up$ + MID$(PUZL$(zza), q2, 1)
NEXT zza
PRINT up$: SLEEP
IF up$ = wrd$ THEN up = 2
PRINT "Up has level 3!"
UPFALE:






NEXT q2
NEXT q1
















LOOP UNTIL wrd$ = ""
END
120 RESUME NEXT

FUNCTION Revers$ (txt$)
FOR q = 1 TO LEN(txt$)
mm$ = MID$(txt$, q, 1) + mm$
NEXT q
Revers$ = mm$
END FUNCTION