Setvirtualresolution(640,480) Device$=GetDeviceName() Repeat Print ("The device name is: "+Device$) Sync() Until Timer()>8 End