Setvirtualresolution(640,480) ResetTimer() //Convert Hexadecimal (base 16) to Decimal Char$="FFFF" num=Val(Char$,16) Repeat Print (num) Sync() Until Timer()>20 End