QBASIC PRORAMMING

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
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