200 SCREEN 12
220 PAINT (0, 0), 15
250 LINE (0, 240)-(640, 240), 6
300 LINE (320, 0)-(320, 480), 6
350 FOR d = -16 TO 16 STEP (1 / 5000)
370 IF d <= -1 THEN 500
400 LET v = ((d ^ 2) - 1) * SQR(d + 1)
410 LET f = -v * 20
420 LET r = d * 20
430 LET s = r + 320
440 LET e = f + 240
445 IF e >= 500 THEN 500
447 IF e <= -500 THEN 500
450 PSET (s, e), 9
500 NEXT d
520 cjkfr% = POS(0)
530 cjkfy% = CSRLIN
536 PRINT " "
537 PRINT " MOROZOV DENIS"
538 PRINT " y=..........."
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 SLEEP 30
700 STOP