Sorry your browser is not supported!

'---------------------------------
'Beginner's Guide To DarkBASIC Game Programming
'Copyright (C)2002 Jonathan S. Harbour and Joshua R. Smith
'Chapter 10 - SaveBitmap program
'---------------------------------

'initialize screen
HIDE MOUSE
SYNC ON
PRINT "Press 'c' to draw circles, 's' to save bitmap and quit."

'perform a loop
DO
    'check for keyboard input
    key$ = INKEY$()
    IF key$ = "c" OR key$ = "s"
        SELECT key$
            'draw random circles
            CASE "c"
                INK RGB(RND(255), RND(255), RND(255)), 0
                CIRCLE RND(640), RND(480), RND(100)
            ENDCASE
            'end the program
            CASE "s"
                EXIT
            ENDCASE
        ENDSELECT
    ENDIF
    SYNC
LOOP

'save the screen to a file and then quit
SAVE BITMAP "output.bmp", 0
END