22 lines
486 B
Plaintext
22 lines
486 B
Plaintext
LET A = 5
|
|
LET B = 3
|
|
PRINT "A = ", A, ", B = ", B
|
|
PRINT ""
|
|
PRINT A," + ",B," = ", A+B
|
|
PRINT A," - ",B," = ", A-B
|
|
PRINT A," * ",B," = ", A*B
|
|
PRINT A," / ",B," = ", A/B
|
|
PRINT A," % ",B," = ", A-(A/B)*B
|
|
REM Exponent calculation
|
|
LET X = 1
|
|
LET E = 0
|
|
10 IF X >= B THEN GOTO 30
|
|
LET T = E
|
|
IF E < A THEN LET E = A*A
|
|
IF T < A THEN GOTO 20
|
|
IF E >= A THEN LET E = E*A
|
|
20 LET X = X+1
|
|
GOTO 10
|
|
30 PRINT A," ^ ",B," = ", E
|
|
END
|