QBASIC programs collection
Sub procedure program [Triton model question-2081 set V q5]
DECLARE SUB SENDUP (S$)
E$ = "NPABSON"
Call SENDUP(E$)
End
Sub SENDUP (S$)
For i = 1 To Len(S$) Step 1
If i Mod 2 <> 0 Then
EE$ = EE$ + LCase$(Mid$(S$, i, 1))
Else
EE$ = EE$ + UCase$(Mid$(S$, i, 1))
End If
Next i
Print EE$
End Sub
