load music "battle.mid" ,1 loop music 1 cls rgb(100,255,255) hide mouse rem set up instruction screen ink rgb(0,0,0),0 set text size 70 center text 320, 50, " Digi Sketch" set text size 25 center text 320, 150 , " written in DarkBasic by Brayden " set text size 20 center text 320 ,190, "up down left right keys contol drawing" center text 320,210, "space bar clears screen" center text 320,230, "press any key to start" center text 320,250, "press esc to end game" wait key rem end instruction screen x1=320 y1=240 cls rgb(0,0,0) load music "battle.mid" ,1 loop music 1 do rem x1 = mousex() rem y1 = mousey() ink rgb(0,0,255),0 speed = 3 thickness = 1 if rightkey() = 1 then x1 = x1 + speed if leftkey() = 1 then x1 = x1 - speed if upkey() = 1 then y1 = y1 - speed if downkey() = 1 then y1 = y1 + speed circle x1,y1,thickness if spacekey() = 1 cls x1=320 y1=240 circle x1,y1,thickness endif loop