To display reverse of input string

DECLARE SUB REV(N$)
CLS
INPUT"ENTER  STRING";N$
CALL REV(N$)
END

SUB REV(N$)
FOR I= LEN(N$) TO 1 STEP -1
B$= MID$(N$,I,1)
C$=C$+B$
NEXT I
PRINT:REVERSE OF STRING=";C$
END SUB


Comments

Popular posts from this blog

My experience in jagat mandir school

PERFECT SQR OR NOT

Picnic experience