*c32 %;slink § identification division. environment division. data division. working-storage section. 77 ant pic x. 01 gid pic 99. 01 xlen pic 9(4). 01 ylen pic 9(4). 01 valx pic 9(6). 01 valy pic 9(6). 01 name pic X(30). PROCEDURE DIVISION. * Create grafik pixels in xlen ylen call makegraph using gid 30 10 xlen ylen 0. call cleargraph using gid 120 140 140. display 'Grafik mit Hintergrundfarbe angelegt'. perform show. move -10 TO valx. * von x = -15 bis 10, y von -5 bis +5 call drawcoord using gid -15 10 -5 5. * ist noch falsch! call drawline using gid -15 -5 10 5. perform show. loop. compute valy = valx * valx - 5. call setpoint using gid valx valy. add 1 to valx. if valx < 20 go to loop. call drawgraph using gid 0 0 255 1. perform show. call grtext using gid 1 10 'y=x²-5'. move -10 to valx. lop2. compute valy = valx + 5. call setpoint using gid valx valy. add 1 to valx. if valx < 20 go to lop2. call setgcolor using gid 255 0 0. call grtext using gid 6 8 'y=x+5'. call drawgraph using gid. perform show. stop run. show section. call showgraph using gid 5 10. call getchar.