1J

  J A

  JAG

  JAGAT

.REM

CLS

S$="JAGAT"

FOR I =1 TO LEN (S$,I)

NEXT I

END

2.T

   AT

   GAT

   AGAT

   JAGAT

.REM

CLS

S$="JAGAT"

FOR I=1 to LEN (S$)

PRINT RIGHT$ (S$,I)

NEXT I

END

3.JAGAT

   JAGA

   JAG

   JA

   J

.REM

CLS

S$="JAGAT"

FOR I=LEN(S$)TO 1 STEP-1

PRINT LEFT$ (S$,1)

NEXT I

END

4.JAGAT

AGAT

GAT

AT

T

.REM

CLS

S$="JAGAT"

FOR I=LEN(S$) TO 1 STEP-1

PRINT RIGHTS (S$,I)

NEXT I

END

5.J

   A

   G

   A

   T

.REM

CLS

S$="JAGAT"

FOR I=1 TO LEN(S$)

PRINT MID$ (S$,I,1)

NEXT I

END

6. T

    A

    G

    A

    J

.REM

CLS

S$="JAGAT"

FOR I =LEN(S$) TO 1 STEP -1

PRINT MIDS (S$,I,1)

NEXT I

END

7.JAGAT

   AGA

   G

.REM

CLS

S$="JAGAT"

a=5

FOR I =1 TO 3

PRINT MID$(S$,I,a)

a=a-2

NEXT I

END

8.G

    AGA

    JAGAT

.REM

CLS

S$="JAGAT"

a=1

FOR I =3 TO 1 STEP-1

PRINT MID$(S$,I,a)

a=a+2

NEXT I

END

9.*

  **

  ***

  ****

  *****

REM

CLS

S$="*****"

FOR I=1 TO 6

PRINT LEFT$ (A$,I)

NEXT I

END

10.*****

    ****

    ***

    **

    *

REM

CLS

S$="*****"

FOR I=6 TO 1 STEP-1

PRINT LEFT$ (A$,I)

NEXT I

END