Setvirtualresolution(640,480) ResetTimer() text$="www.appgamekit.com" id=EncodeQRCode( text$, 0 ) CreateSprite(1,id) Repeat Sync() Until Timer()>20 End