##### Library Functions (Click Here)

**Convert Decimal to Binary **

CLS

INPUT “ENTER DECIMAL NUMBER” ; D

WHILE D < > 0

R = D MOD 2

S$ = STR$(R) + S$

D = D \ 2

WEND

PRINT “BINARY EQUIVALENT VALUE”; S$

END

##### Convert Binary to Decimal

CLS

INPUT “ENTER BINARY NUMBER”; N$

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

B$ = MID$(N$, I, 1)

S = S + VAL(B$) * 2 ^ P

P = P + 1

NEXT I

PRINT “DECIMAL EQUIVALENT VALUE=”; S

END

**Convert Decimal to Hexadecimal **

CLS

INPUT “ENTER DECIMAL NUMBER”; D

WHILE D <> 0

R = D MOD 16

IF R < 10 THEN

S$ = STR$(R) + S$

ELSE

S$ = CHR$(R + 55) + S$

END IF

D = D \ 16

WEND

PRINT “HEXADECIMAL EQUIVALENT VALUE=”; S$

END

##### Convert Hexadecimal to decimal

CLS

INPUT “ENTER HEXADECIMAL NUMBER”; N$

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

B$ = MID$(N$, I, 1)

IF B$ = “A” THEN B$ = “10”

IF B$ = “B” THEN B$ = “11”

IF B$ = “C” THEN B$ = “12”

IF B$ = “D” THEN B$ = “13”

IF B$ = “E” THEN B$ = “14”

IF B$ = “F” THEN B$ = “15”

S = S + VAL(B$) * 16 ^ P

P = P + 1

NEXT I

PRINT “DECIMAL EQUIVALENT VALUE=”; S

END

##### Input any string and count total no of vowel

CLS

INPUT “ENTER ANY STRING”; S$

VC = 0

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

C$ = UCASE$(B$)

IF C$ = “A” OR C$ = “E” OR C$ = “I” OR C$ = “O” OR C$ = “U” THEN

VC = VC + 1

END IF

NEXT I

PRINT “TOTAL NO. OF VOWELS= “; VC

END

##### Insert String, Remove Vowel and Print

CLS

INPUT “Enter the string”; s$

b$ = UCASE$(s$)

FOR i = 1 TO LEN(b$)

c$ = MID$(b$, i, 1)

IF c$ <> “A” AND c$ <> “E”AND c$ <> “I” AND c$ <> “O” AND c$ <> “U” THEN

n$ = n$ + c$

END IF

NEXT i

PRINT “The word without the vowels is”; n$

END

**Given word is Palindrome or Not**

CLS

INPUT “Enter any Word”; A$

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

B$ = B$ + MID$(A$, i, 1)

NEXT i

IF B$ = A$ THEN

PRINT “It is palindrome”

ELSE

PRINT “it is not palindrome”

END IF

END

**Given Number is perfect Square or Not**

CLS

INPUT “enter any number”; n

A = SQR(n)

IF A = INT(A) THEN

PRINT “perfect square”

ELSE

PRINT “Not perfect square”

END IF

END

##### Digital Clock

CLS

PRINT “***************************************************************************************************”

LOCATE 2, 30: PRINT “Digital Clock”

PRINT “***************************************************************************************************”

FOR i = 1 TO 10

LOCATE 11, i + 32: PRINT “-”

LOCATE 13, i + 32: PRINT “-”

NEXT i

LOCATE 12, 33: PRINT “~”

LOCATE 12, 42: PRINT “~”

a$ = TIME$

DO

LOCATE 12, 34: PRINT a$

a$ = TIME$

LOOP WHILE INKEY$ = “”

PRINT “***************************************************************************************************”

LOCATE 2, 30: PRINT “Digital Clock”

PRINT “***************************************************************************************************”

END

##### Armstrong or Not Armstrong

CLS

INPUT “enter any number”; num

n = num

WHILE num <> 0

r = num MOD 10

num = num \ 10

sum = sum + (r ^ 3)

WEND

IF n = sum THEN

PRINT “armstrong”

ELSE

PRINT “not arm strong”

END IF

END

##### Input numbers and find sum

CLS

INPUT “enter any number”; n

WHILE n <> 0

r = n MOD 10

s = s + r

n = INT(n / 10)

WEND

PRINT “sum of digits”; s

END

##### Alternate characters in capital letters. (eg: PrOgRaMmInG)

CLS

INPUT “enter a string”; s$

FOR i = 1 TO LEN(s$)

c$ = MID$(s$, i, 1)

IF i MOD 2 = 1 THEN

w$ = w$ + UCASE$(c$)

ELSE

w$ = w$ + LCASE$(c$)

END IF

NEXT i

PRINT w$

END

##### Count Repeated Letter

CLS

INPUT “enter a string”; s$

FOR i = 1 TO LEN(s$)

c$ = MID$(s$, i, 1)

IF c$ = “a” THEN c = c + 1

NEXT i

PRINT “repeated (a)””; c

END

**Find “A” and Replace Letter with “@”**

CLS

INPUT “Enter a word: “, s$

FOR i = 1 TO LEN(s$)

b$ = UCASE$(s$)

c$ = MID$(b$, i, 1)

IF c$ = “A” THEN c$ = “@”

n$ = n$ + c$

NEXT i

PRINT “Word after change is:”; n$

END

##### Count Words

CLS

INPUT “ENTER ANY STRING”; S$

WC = 1

FOR I = 1 TO LEN(S$)

B$ = MID$(S$, I, 1)

IF B$ = “” THEN

WC = WC + 1

END IF

NEXT I

PRINT “TOTAL NO. OF WORDS= “; WC

END