functions.bas

10 REM Test each function: SIN, COS, TAN, COT, ATN, EXP, LOG, ABS, SQR,

100 REM SIN
110 LET A = SIN((0*3.1415926)/2)
120 LET B = SIN((1*3.1415926)/2)
130 LET C = SIN((2*3.1415926)/2)
140 LET D = SIN((3*3.1415926)/2)
190 GOSUB 1000

200 REM COS
210 LET A = COS((0*3.1415926)/2)
220 LET B = COS((1*3.1415926)/2)
230 LET C = COS((2*3.1415926)/2)
240 LET D = COS((3*3.1415926)/2)
290 GOSUB 1000

300 REM TAN
310 LET A = TAN(3)
320 LET B = TAN(-3)
330 LET C = TAN(1.0)
340 LET D = TAN(-1.0)
390 GOSUB 1000

400 REM COT
410 LET A = COT(0.01)
420 LET B = COT(-0.01)
430 LET C = COT(1)
440 LET D = COT(-1)
490 GOSUB 1000

500 REM ATN
510 LET A = ATN(123)
520 LET B = ATN(-123)
530 LET C = ATN(1.0)
540 LET D = ATN(-1.0)
590 GOSUB 1000

600 REM EXP
610 LET A = EXP(2.0)
620 LET B = EXP(0)
630 LET C = EXP(-1)
640 LET D = EXP(1)
690 GOSUB 1000

700 REM LOG
710 LET A = LOG(1)
720 LET B = LOG(2)
730 LET C = LOG(3.0)
740 LET D = LOG(4)
790 GOSUB 1000

800 REM ABS
810 LET A = ABS(4)
820 LET B = ABS(-2)
830 LET C = ABS(4.0)
840 LET D = ABS(-2.0)
890 GOSUB 1000

900 REM SQR
910 LET A = SQR(4)
920 LET B = SQR(2)
930 LET C = SQR(4.0)
940 LET D = SQR(2.0)
990 GOSUB 1000

999 GOTO 9999

1000 REM PRINT A,B,C,D
1001 PRINT A,",",B,",",C,",",D
1002 RETURN

9999 END