Qbasic (Input name of 10 names and sort in ascending order)

DECLARE FUNCTION SOR$(N$())
CLS
DIM N$(10)
PRINT "ENTER NAME OF TEN STUDENTS"
FOR I = 1 TO 10
INPUT N$(I)
NEXT
X$=SOR$(N$())
END

FUNCTION SOR$(N$())
FOR I = 1 TO 10
FOR J = 1 TO 10
IF N$(I) < N$(J) THEN SWAP N$(I) , N$(J)
NEXT
NEXT
FOR I = 1 TO 10
PRINT N$(I)
NEXT
END FUNCTION

Qbasic (Input 10 different marks and find greatest)

Declare Sub res(n())
CLS
DIM N(10)
PRINT "ENTER MARKS OF TEN STUDENTS"
FOR I = 1 TO 10
INPUT N(I)
NEXT
CALL RES(N())
END

SUB RES(N())
LET G = N(1)
FOR I = 2 TO 10
IF G<N(I) THEN G = N(I)
NEXT
PRINT "GREATEST MARKS IS"; G
END SUB

Qbasic (Enter 10 different nos. and find total and average)

DECLARE FUNCTION ARR(A())
CLS
DIM A (10)
PRINT "ENTER 10 NOS"
FOR I = 1 TO 10
INPUT A (I)
NEXT
LET SM = ARR(A())
LET AVG = SM/10
PRINT "SUM IS"; SM
PRINT "AVERAGE IS"; AVG
END

FUNCTION ARR(A())
FOR I = 1 TO 10
LET S= S+A(I)
NEXT
ARR = S
END FUNCTION

Qbasic (Loading)

CLS
LOCATE 14,36: PRINT "LOADING"
FOR I = 31 TO 51
COLOR 4
LOCATE 7, I + 1 : PRINT (CHR$92,9))
COLOR 7
LOCATE 8,40: PRINT X*5; "%"
X = X +1
FOR J = 1 TO 500000 : NEXT
END

Qbasic (To Convert Hexadecimal to Decimal)

Declare Sub Hex (H$)
CLS
INPUT "Hexadecimal No"; H$
Call Hex(H$)
END

Sub Hex (H$)
L = Len (H$)
While l>0
Z$= UCASE$(MID$(H$,l,1))
SELECT CASE Z$
CASE "A"
N = 10
CASE "B"
N = 11
CASE "C"
N = 12
CASE "D"
N = 13
CASE "E"
N = 14
CASE "F"
N = 15
CASE ELSE
N = VAL (Z$)
END SELECT
DECI = DECI + N*16^P
P = P+1
L = L -1
WEND
PRINT H$ ; = "DECI"
END SUB

Qbasic (To Convert Decimal no. to Hexadecimal)

Rem Deci into Hexa
Declare Sub Subas(H)
Cls
Input "Enter Decimal"; H
Call Subas(H)
End

SUB Subas(H)
K= H
While K>0
R = K MOD 16
Case Select R
Case 10
B$="A"
Case 11
B$ = "B"
Case 12
B$ = "C"
Case 13
B$ = "D"
Case 14
B$= "E"
Case 15
B$ = "F"
CASE ELSE
B$ = STR$(R)
END SELECCT
Z$ = B$ + Z$
K = K\16
WEND
PRINT "H"; "="; "Z$"
END SUB

Qbasic (Store Data)

OPEN "info.dat" FOR OUTPUT AS #1
CLS
TOP :
INPUT "Enter your Id"; ID
INPUT "Enter your Name "; Name$
INPUT "Enter your Address"; Ad$
INPUT "Enter your Post"; Po$
INPUT "Enter your Salary"; Sa
WRITE #1, ID, Name$,Ad$,Po$, Sa
INPUT "Do you want to enter next record (Y/N)"; y$
IF UCASE$(Y$)="Y" THEN GOTO TOP
CLOSE #1
END

Qbasic (Find Area of Four Walls)

DECLARE FUNCTION AR(N, A, M)
INput "Enter the height"; h
Input "Enter the length"; l
Input "Enter the breadth"; b
Area = Ar(N, A, M)
Print "Area of fout walls"; Area
End

Function Ar(N,A, M)
Ar = 2*h*(l+b)
End Function

Qbasic (Find the Volume of a Circle)

Declare Function Vol(N,A)
CLS
INPUT "Enter a radius"; R
Input "Enter the height"; h
Volume = Vol (N,A)
Print "The Volume is"; Volume
END

Function VOL(N,A)
Const PI = 3.1416
Vol = Pi * R^2 *h
END FUNCTION

Qbasic (Find the Current Month)

Declare Function curmth$(n$())
CLS
DIM n$(12)
For J = 1 to 12
READ N$(J)
NEXT
M$ = Curmth$(N$())
Print "Current system month is "; M$
Data Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sept, Oct, Nov, Dec
End

Function Curmth$(N$())
D$ = Date$
N = Val (Left$(D$,2)
For M = 1 to 12
If N=K then
Z$ = N$(K)
ENDIF
NEXT
CURMTH$ = Z$
END FUNCTION