10 DATA 10,20,12,14,18,20
20 READ A, B
30 PRINT A+B
35 GOTO 20
40 END
30 26 38 OUT OF DATA IN LINE 20
REM Program 5
10 DATA 10,20,12,14,18,20
20 READ A, B
22 LET C=A+B
30 PRINT C
35 GOTO 20
40 END
30 26 38 OUT OF DATA IN LINE 20
REM Program 6
PRINT "INPUT TWO NUMBERS"
INPUT A, B
PRINT "THE NUMBERS ARE:"; A; B
PRINT "THEIR SUM IS:"; A+B
PRINT "THEIR PRODUCT IS"; A*B
END
INPUT TWO NUMBERS:? 3, 4 THE NUMBERS ARE:3 4 THEIR SUM IS: 7 THEIR PRODUCT IS:
12 DONE
REM Program 7
PRINT "INPUT TWO NUMBERS"
INPUT A, B
PRINT "THE NUMBERS ARE:"; A; B
PRINT "THEIR SUM IS:"; A+B
PRINT "THEIR PRODUCT IS"; A*B
END
INPUT TWO NUMBERS:? 3, 4 THE NUMBERS ARE:3 4 THEIR SUM IS: 7 THEIR PRODUCT IS:
12 DONE
REM Program 8 (IF THEN)
10 LET X=1
20 PRINT X;
30 IF X=6 THEN 99
40 LET X=X+1
50 GOTO 20
99 END
1 2 3 4 5 6
REM Program 9 (FOR NEXT)
10 FOR X=1 TO 6 STEP 1
30 PRINT X
50 NEXT
99 END
1 2 3 4 5 6
REM Program 10 (LIST PROCESSING)
FOR I=1 TO 4
READ X[I];
NEXT
LET X[2]=10
PRINT X[2]
END
10
REM Program 11 (FUNCTION)
DEF FUN1(X) = X**2
DEF FUN2(Y) = Y + 2
PRINT "ENTER TWO NUMBERS:-"
INPUT X, Y
PRINT FUN1(X), FUN2(Y)
ENTER TWO NUMBERS:? 3, 4 9 6
REM Program 12 (DIM Keyword)
DIM X[100]
(Array X[100] allocated)
REM Program 13 (ARRAY)
LET A=1
FOR R=1 TO 3
FOR C=1 TO 2
LET T[R,C] = A
LET A = A+1
NEXT C
NEXT R
PRINT T[2,1]
END
3
REM Program 14 (MAT for Matrix)
DIM A[3, 5]
DATA 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
MAT READ A
MAT PRINT A;
END
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
REM Program 15 (String)
PRINT "ENTER TWO STRINGS:-"
INPUT A$, B$
PRINT A$;B$
END
ENTER TWO STRINGS:? HELLO, WORLD HELLOWORLD
REM Program 16 (String Compare)
100 PRINT "ENTER TWO STRINGS:-"
200 INPUT A$, B$
300 IF A$>B$ THEN 500
400 IF A$=B$ THEN 600
500 PRINT A$;" IS GREATER THAN ";B$
600 PRINT A$;" IS SAME AS ";B$
700 END
(Depends on input — compares strings and prints result)
REM Program 17 (String Length, Substring)
LET A$="BASIC"
LET L = LEN(A$)
PRINT L
PRINT A$(1, 2)
PRINT A$(4, 5)
END