200 SCREEN 12
250 LINE (0, 240)-(640, 240), 6
300 LINE (320, 0)-(320, 480), 6
350 FOR d = -16 TO 16 STEP (1 / 1000)
400 LET v = -COS(d)
410 LET f = v * 20
420 LET r = d * 20
430 LET s = r + 320
440 LET e = f + 240
450 PSET (s, e), 4
500 NEXT d
520 cjkfr% = POS(0)
530 cjkfy% = CSRLIN
536 PRINT " "
537 PRINT " MOROZOV DENIS"
538 PRINT " y=cos x"
540 LOCATE (cjkfy% + 13), (cjkfr% + 38), 1
546 PRINT " 1"
550 LOCATE (cjkfy% + 16), (cjkfr% + 38), 1
555 PRINT "-1"
560 LOCATE (cjkfy% + 14), (cjkfr% + 78), 1
565 PRINT "x"
570 LOCATE (cjkfy% + 1), (cjkfr% + 41), 1
575 PRINT "y"
590 BEEP
600 END