CLS

GOSUB KARECIZ

PRINT : PRINT

GOSUB KARECIZ

END



KARECIZ:

  FOR ADET = 0 TO 79
    PRINT CHR$(179);
  NEXT

RETURN

CLS

x = 1: y = 1
Hareket = 1

DO

  SELECT CASE INKEY$

        CASE CHR$(0) + CHR$(75)
           GOSUB SOLOK
        CASE CHR$(0) + CHR$(77)
           GOSUB SAGOK
        CASE CHR$(0) + CHR$(72)
           GOSUB YUKARIOK
        CASE CHR$(0) + CHR$(80)
           GOSUB ASAGIOK
        CASE CHR$(27)
           EXIT DO

  END SELECT


LOOP


END



SOLOK:

  FOR ADET = 0 TO Hareket
    x = x - 1
    GOSUB CIZ
  NEXT

RETURN



SAGOK:

  FOR ADET = 0 TO Hareket
    x = x + 1
    GOSUB CIZ
  NEXT

RETURN


YUKARIOK:

  FOR ADET = 0 TO Hareket
    y = y - 1
    GOSUB CIZ
  NEXT

RETURN


ASAGIOK:

  FOR ADET = 0 TO Hareket
    y = y + 1
    GOSUB CIZ
  NEXT

RETURN


CIZ:
    LOCATE y, x
    PRINT CHR$(219);
RETURN