go:-	consult(program7),
	continue.

continue:-	write('---------------------'),nl,
		write('---------------------'),nl,
		write('--                 --'),nl,
		write('--                 --'),nl,
		write('--      The        --'),nl,
		write('--    Program      --'),nl,
		write('--                 --'),nl,
		write('--                 --'),nl,
		write('---------------------'),nl,
		write('---------------------'),nl,nl,
		write('1. Student marks'),nl,
		write('2. Students in course'),nl,
		write('3. To EXIT'),nl,nl,
		write('Select an option'),
		read(Option),
		option(Option).

option(1):-	write('Enter Student name: '),
		read(Student),
		student(_,Student,_,_),
		student_marks(Student),
		continue.

option(1):-	write('NO OUTPUT'),
		continue.

option(2):-	write('Enter Course name: '),
		read(Course),
		course(_,Course,_,_),
		students_in_course(Course),
		continue.

option(2):-	write('NO OUTPUT'),
		continue.

option(3):-	
	       write('Program terminating - thanks you.'),nl.

option(_):- 	write('*****************'),nl,
		write('* WRONG INPUT *'),nl,
		write('*****************'),nl,
		continue.