| CODE |
| // Flashbang MinimumBuild 1231 :Loop SetFunc Input IQPeekMsgID If %Input% != "" Then Quit EndIf Gosub Flash DelayMS 50 Goto Loop :Flash For I = 0 To 3 SetFunc Data%I% CvtToBase 16 0 %($rand%255)% Next Set Color 0x%Data0%%Data1%%Data2%%Data3% BeginDraw Box 0 0 640 480 %Color% %Color% EndDraw Return |