PROJECT "A"

1)NEPAL

   NEPA

   NEP

   NE

   N

CLS

A$="NEPAL"

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

PRINT LEFT$(A$,I)

NEXT I

END

2) L

AL

PAL

EPAL

NEPAL

CLS

A$="NEPAL"

FOR I = 1 TO LEN(A$)

PRINT RIGHT$(A$,I)

NEXT I

END

3)E

ME

OME

COME

LCOME

ELCOME

WELCOME

CLS

A$="WELCOME"

FOR I = 1 TO LEN(A$)

PRINT RIGHT$(A$,I)

NEXT I

END

4) WELCOME

ELCOME

LCOME

COME

OME

ME

E

CLS

A$="WELCOME"

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

PRINT RIGHT$(A$,I)

NEXT I

END

5)P

EPA

NEPAL

CLS

B$="NEPAL"

A = 3

FOR I = 1 TO LEN(B$) STEP 2

PRINT MID$(B$, A, I)

A = A - 1

NEXT I

END 

6)C

CO

COM

COMP

COMPU

COMPUT

COMPUTE

COMPUTER

CLS

A$="COMPUTER"

FOR I = 1 TO LEN(A$) 

PRINT LEFT$(A$,I)

NEXT I

END

7)KATHMANDU

KATHMAND

KATHMAN

KATHMA

KATHM

KATH

KAT

KA

K

CLS

A$="KATHMANDU"

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

PRINT LEFT$(A$,I)

NEXT I

END

8)M 

HMA

THMAN

ATHMAND

KATHMANDU

CLS

A$="KATHMANDU"

B=5

FOR I=1 TO LEN(A$) STEP 2

PRINT MID$(A$,B,I)

B=B-1

NEXT I

END 

9)*

**

***

****

*****

CLS

A$ = "*****"

FOR I = 1 TO LEN(A$)

PRINT LEFT$(A$, I)

NEXT I

END 

  10)       *

             ***

           *****

          *******

         *********

    

    -CLS

    A$="*********"

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

    PRINT "*";RIGHT$ (A$,I):"*"

    NEXT I

    END 

11)*

***

*****

*******

*********

CLS

A$="*********"

FOR I = 1 TO LEN(A$) STEP 2

PRINT LEFT$(A$,I)

NEXT I

END

12)*NEPAL*

*NEPA*

*NEP*

*NE*

*N*

CLS

A$="NEPAL"

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

PRINT "*";LEFT$(A$,I);"*"

NEXT I

END

13)*N*

*NE*

*NEP*

*NEPA*

*NEPAL*

CLS
A$="NEPAL"

FOR I= 1 TO LEN (A$)

PRINT"*";LEFT$(A$,I);"*"

NEXT I

END

14)*NEPAL*

**NEPAL**

***NEPAL***

****NEPAL****

*****NEPAL******

CLS

A$="*****"

B$="NEPAL"

FOR I= 1 TO LEN(A$)

PRINT LEFT$(A$,I);B$;RIGHT$(A$,I)

NEXT I

END