Setvirtualresolution(640,480) Language$=GetDeviceLanguage() Repeat Print ("The device language code is: "+Language$) Sync() Until Timer()>8 End