"**********"
"    ** ***"
"* ***  ***"
"* ****   *"
"*    * * *"
"** *** * *"
"*  **  * *"
"**     *  "
"** *** ***"
"**********"

"**********"
"*  *** ***"
"*      ***"
"* ****   *"
"*    * * *"
"** *** * *"
"*  **  * *"
"   **  *  "
"**  ** ***"
"**********"

CLS
SCREEN 7

GOSUB inputmap
CLS
GOSUB printmap
GOSUB movemouse
GOSUB mazemouse
END

'Sub Pause
'=========
pause:
FOR pause = 1 TO 70000
NEXT pause
'54000
RETURN

'Input Information
'=================

inputmap:
INPUT "Which map would you like"; map$
map$ = map$ + ".dat"
OPEN map$ FOR INPUT AS #1
RETURN

'Define Array and Print
'======================

printmap:
DIM maze$(1 TO 10, 1 TO 10)
FOR row = 1 TO 10
   INPUT #1, in$
   FOR col = 1 TO 10
      maze$(row, col) = MID$(in$, col, 1)
   NEXT col
NEXT row
FOR x = 1 TO 10
   FOR y = 1 TO 10
      LOCATE x, y + 1: PRINT maze$(x, y)
   NEXT y
NEXT x
RETURN

'Print Mouse
'===========

movemouse:
x = 1
y = 11
DO WHILE INKEY$ <> " "
   DO WHILE x < 11
      IF x = t THEN
         LOCATE x, 1: PRINT CHR$(2)
         GOSUB pause
         LOCATE x, 1: PRINT " "
         LOCATE x, 2: PRINT CHR$(2)
         GOSUB pause
         LOCATE x, 2: PRINT " "
         LOCATE x, 3: PRINT CHR$(2)
         'END
         RETURN
      END IF
      LOCATE x, 1: COLOR 12: PRINT CHR$(2)
      IF maze$(x, 1) = " " THEN
         t = x
      END IF
      GOSUB pause
      x = x + 1
      IF x <> 1 THEN
         LOCATE x - 1, 1: PRINT " "
      END IF
   LOOP
   DO WHILE x > 2
      LOCATE x - 2, 1: COLOR 12: PRINT CHR$(2)
      IF maze$(x - 2, 1) = " " THEN
         t = x - 2
      END IF
      GOSUB pause
      x = x - 1
      IF x <> 1 THEN LOCATE x - 1, 1: PRINT " "
   LOOP
   LOCATE 20, 20: PRINT t
LOOP
COLOR 7
RETURN

CLOSE #1

CLS
SCREEN 7
GOSUB inputmap
$endflag = "yes"
do while endflag$ = "yes"
GOSUB printmap
gosub calculate      '* here should be were the mouse looks around and decides were to move next
GOSUB movemouse
'GOSUB mazemouse
loop