Class

e.g.

	#class myapp   // compiler directive the sets the default class
	class xyz {    // xyz is defined in class myapp
		int y
		int x


		display(int my, int mx){
			? my,mx

		}
	}

	class myapp:myclass inherit from myapp:xyz {
		char name(30)
		int _y
		int _x


		test(){
			class {
				char custn(6)
				char name(30)
			} index mindex
			long i


			for i=1 to 10
				? i, display(2,3)
			next

			mindex.custn='123456'
			mindex.name='David Clark'
			mindex.append()

		}

		_display(int my, int mx)
	} object myobject, mine2[5]