void pascal frame_delay(int frames)
{
vsync_reset1();
while(vsync_Count1 < frames) {}
}
#pragma codestring "\x00"