The differences between APPEND mode and OUTPUT mode are as follows:

The differences between PRINT# and WRITE# is as follows:

The modular programming is a programming technique in which a program is divided into many small logical, manageable and functional parts.
Any four advantages of modular programming are as follows:

• The debugging of the program becomes easier and faster.
• It improves readability of the program.
• The procedure can be tested and debugged separately.
• Individual procedure can be written independently so it is suitable for team work.

The sub module of a program is known as procedures. The types of procedures are as follows:

• SUB procedure
• FUNCTION procedure

The constants or variables enclosed in the parentheses of calling statement are known as arguments.
The variables enclosed in the parentheses of the procedure which accept constants or variables passed to them from the calling module are known as parameters.

Passing argument by reference method is the default method of passing arguments to the procedure. The addresses of the variables are passed to the procedure in this method. That means parameters use the same memory addresses of the arguments.

DECLARE SUB sum (A, B, C)
CLS
Input"enter the first number"; A
Input"enter the second number"; B
Input"enter the third number"; C
CALL sum
END
SUB sum (A, B, C)
S= A+B+C
Print"The sum of three number is"; S
END SUB

DECLARE SUB Temperature (F)
CLS
Input"Enter the temperature in Fahrenheit"; F
CALL Temperature (F)
END
SUB Temperature (F)
Temperature in Celsius= (5(f-32)/9)
Print"The temperature in Celsius"; Temperature in Celsius
END SUB

DECLARE SUB Interest (P, T, R)
CLS
Input"Enter the principle"; P
Input"Enter the time"; T
Input"Enter the rate"; R
CALL Interest (P, T, R)
END
SUB Interest (P, T, R)
I= (P*T*R)/100
Print"The simple interest is"; I
END SUB

DECLARE SUB Area (L, B)
CLS
Input"Enter the length"; L
Input"Enter the breadth"; B
CALL Area (L, B)
END
SUB Area (L, B)
A = (2*(L+B))
Print"The area of rectangle is"; A
END SUB

DECLARE SUB Area (R)
CLS
Input"Enter the radius"; R
CALL Area (R)
END
SUB Area (R)
A= (4*3.14*R^2)
Print"The area of sphere is"; A
END SUB

DECLARE SUB GREATEST (NUM ())
CLS
DIM NUM (p)
Print"The greatest number is:"
For p= 1 to 3
Input NUM (p)
Next p
Call GREATEST (NUM ())
END

DECLARE FUNCTION Longest$ (name$ ())
CLS
DIM name$ (3)
For p= 1 to 3
Input"Enter the name"; name$ (p)
Next p
Print"The longest name is"; Longest$ (name$ ())
END
FUNCTION Longest$ (name$ ())
Let m$= name $ (1)
For p = 2 to 3
IF LEN (name$ (p))> LEN (m$) THEN
m $ = name$ (p)
END IF
Next p
Longest$= m$
END FUNCTION

DECLARE SUB Rev(A$)
CLS
INPUT"Enter any string";A$
CALL Rev(A$)
END
SUB Rev(A$)
END
SUB Rev(A$)
FOR I = LEN(A$) to 1 Step-1
B$=B$ + MID$(A$,I,1)
NEXT I
PRINT"Reverse string is";B$
END SUB

DECLARE SUB Pal (A$)
CLS
Input"Enter any string"; A$
CALL Pal (A$)
END
SUB Pal (A$)
For I= LEN (A$) TO 1 step-1
B$= B$+MID$ (A$, I, 1)
Next I
IF A$= B$ THEN
Print"It is palindrome"
ELSE
Print"IT is not palindrome"
END IF
END SUB

DECLARE FUNCTION Vowel$(A$)
CLS
INPUT"Enter any string";A$
PRINT Vowel(A$)
END
FUNCTION Vowel$(A$)
FOR I = 1 to LEN(A$)
B$ = U case$(MID$(A$,I,1)
IF B$<>"A" AND B$ <>"E" AND B$ <> "I" AND B$ <> "O" AND B$ <> "U" THEN C$=C$+B$
NEXT I
Vowel$= C$
ENDIF
END FUNCTION

DECLARE SUB KINS (A$)
CLS
A$="KATHMANDU"
CALL KINS (A$)
END
SUB KINS (A$)
T=9
P=1
FOR I= 5 TO 1 STEP -1
PRINT TAB (T); MID$ (A$, I, P)
T= T-1
P=P+2
NEXT I
END SUB

DECLARE SUB KINS (A$)
CLS
A$="KATHMANDU"
CALL KINS (A$)
END
SUB KINS (A$)
T=1
P=9
FOR I= 1 TO 5
PRINT TAB (T); MID$ (A$, T, P)
T=T+1
P=P-2
NEXT I
END SUB

DECLARE SUB KINS (A$)
CLS
A$="WELCOME"
CALL KINS (A$)
END
SUB KINS (A$)
FOR I= 1 to LEN (A$)
PRINT Right$ (A$, 1)
NEXT I
END SUB

DECLARE SUB KINS (A$)
CLS
A$="WELCOME"
CALL KINS (A$)
END
SUB KINS (A$)
FOR I= 1 to LEN (A$)
PRINT left$ (A$, 1)
NEXT I
END SUB

DECLARE FUNCTION AREA (L, B)
CLS
Input"Enter the length"; L
Input"Enter the breadth"; B
Print"The area is"; AREA (L, B)
END

FUNCTION AREA (L, B)
AREA= L*B
END FUNCTION

DECLARE FUNCTION AOC (R)
CLS
Input"Enter the radius"; R
Print"The area is"; AOC (R)
END
FUNCTION AOC (R)
CONST PI= 22/7
AOC= PI*R^2
END FUNCTION

DECLARE FUNCTION TEST$ (n)
CLS
Input"Enter a number"; n
Result$=TEST $ (n)
Print n;"is a"; result $
END
FUNCTION TEST$ (n)
IF n>0 THEN
R$="positive"
ELSEIF n<0 THEN
R$="zero"
END IF
TEST$= R$
END FUNCTION

DECLARE SUB Area ( l )
CLS
INPUT"Enter the length";l
CALL Area ( l )
END
SUB Area ( l )
A = l^ 2
PRINT" Area of square"; A
END SUB

SOLVED IT

REM fibonacci series 0,1,1,2,3,5,....,10th terms DECLARE SUB fibo(m,n) CLS a = 0 b = 1 PRINT a; b; CALL fibo(a, b) END SUB fibo (a, b) FOR i = 1 TO 8 c = a + b PRINT c; SWAP a, b SWAP b, c NEXT i END SUB