{$CLASS TestClass} /* some code here */ {$PROC TestProc} gl_FragColor = vec4(1.0); {$END} {$MAIN} {$CALL TestProc}; {$END} {$END}