Simple OpenGL Program

Totally Frustrated, using Win 10 and Fortran to Opengl calls, output 'crazy': PROGRAM BASIC INCLUDE <clearwin.ins>,nolist INCLUDE <opengl.ins>,nolist DIMENSION X(8),Y(8),Z(8) INTEGER ctrl X=0. Y=0. Z=0. i=winio@('%es%ca[Simple Opengl Sample]&') i=winio@('%sp%ww[no border]%og[static]%1w', * 0, 0, 1000, 1000, ctrl) CALL glBegin(GL_LINES) CALL glRotatef(22.0,1.0,0.0,0.0) CALL glRotatef(22.0,0.0,1.0,0.0) CALL glRotatef(22.0,0.0,0.0,1.0) INDX=0 DO 10 I=1,7 INDX=INDX+1 IF (INDX .EQ. 8) GOTO 20 CALL glVertex3f(X(INDX),Y(INDX),Z(INDX)) CALL glVertex3f(X(INDX+1),Y(INDX+1),Z(INDX+1)) 10 CONTINUE 20 CALL glEnd END No matter what I change the glRotate commands to, get the same thing, a vertical and a horizontal line on the output, no Z axis and had addition curve date yet did not plot the curve. Have this identical program in C++ works great??? How Simple can one get??? Anyone have ideas? Sid Kraft