SEE Computer Science: Triton Model Set II – QBASIC Sub Procedure Program Explained

 

QBASIC programs collection- Triton model sets-II 

Sub procedure program

DECLARE SUB SERIES ( )

Cls

Call series

End

Sub series

    A$ = "NEPAL"

    B = 1

    For I = Len(A$) To 1 Step -2

        If B <> 3 Then

            Print Mid$(A$, B, I)

        Else

            Print Mid$(A$, 1, I)

        End If

        B = B + 1

    Next I

End Sub