Type your ugBASIC program here (remember: keywords like PRINT must be UPPERCASE!).
Click on Build menu to select the target: you will download the compiled binary file!

BITMAP ENABLE(16) PROCEDURE example ON C64REU strip0 := LOAD IMAGES( "flare-0.png" ) FRAME SIZE (128,128) BANKED strip1 := LOAD IMAGES( "flare-1.png" ) FRAME SIZE (128,128) BANKED strip2 := LOAD IMAGES( "flare-2.png" ) FRAME SIZE (128,128) BANKED strip3 := LOAD IMAGES( "flare-3.png" ) FRAME SIZE (128,128) BANKED strip4 := LOAD IMAGES( "flare-4.png" ) FRAME SIZE (128,128) BANKED strip5 := LOAD IMAGES( "flare-5.png" ) FRAME SIZE (128,128) BANKED strip6 := LOAD IMAGES( "flare-6.png" ) FRAME SIZE (128,128) BANKED strip7 := LOAD IMAGES( "flare-7.png" ) FRAME SIZE (128,128) BANKED COLOR BORDER BLACK CLS BLACK DIM strip AS BYTE, frame AS BYTE LOCATE 0,ROWS / 2 INK WHITE strip = 0 DO SELECT CASE strip CASE 0 PUT IMAGE strip0 FRAME frame AT 16, 36 CASE 1 PUT IMAGE strip1 FRAME frame AT 16, 36 CASE 2 PUT IMAGE strip2 FRAME frame AT 16, 36 CASE 3 PUT IMAGE strip3 FRAME frame AT 16, 36 CASE 4 PUT IMAGE strip4 FRAME frame AT 16, 36 CASE 5 PUT IMAGE strip5 FRAME frame AT 16, 36 CASE 6 PUT IMAGE strip6 FRAME frame AT 16, 36 ENDSELECT INC frame IF frame = FRAMES(strip0) THEN frame = 0 INC strip IF strip = 7 THEN strip = 4 ENDIF ENDIF LOOP END PROCEDURE example[] ON C64REU

Welcome to the ugBASIC sandbox!

This tool was designed to quickly test whether the code you are writing compiles correctly and determines the desired results. Since the source is compiled thanks to dedicated servers, separate from the browser you are using, some commands are not available: for example, you cannot load external files or resources by using the LOAD command. If you need to develop a program with a complete tool, we recommend installing the executables or the UGBASIC-IDE.

Unless required by applicable law or agreed to in writing, this website is given on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License.