Basic Basic paint

'Dont edit this at all!
nomainwin
[Top]
menu #img, "Edit","Close Program",[close]
    menu #img, "Paint Edit", "New Canvas",[New],"Save",[sav],"Open BMP",[bmp]
        menu #img, "Colors", "Background Color",[Back],"New Colors",[Color]
    open "Paint Program Made by: KAIN" for graphics_fs as #img
print #img, "Down"
    print #img, "when leftButtonMove [draw]"
        print #img, "Flush"
'This block is vital to the program!
[draw]
print #img, "set ";MouseX;" ";MouseY;" "
wait
'This block is vital to the program!
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[New]'Working
close #img
goto [Top]
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[bmp]'BROKE!
prompt "What BMP do you want to load?";Load$
prompt "What is your user name on this computer?";Un$
loadbmp ";load$;" ,"C:\Users\";Un$;"\Pictures\BMP\";Load$;".bmp"
    print #img, "drawbmp image 250 100"
goto [draw]
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[Color]'Working
prompt "What is the Pen color?";color$
    print #img, "color ";color$
Prompt "What is the Pen Size?"; size$
        print #img, "size ";size$
print #img, "flush"
goto [draw]
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[sav]'BROKE!
prompt "What is the name of the file?";File$
prompt "What is your user name on this computer?";Uns$
        print #img, "getbmp drawing 1 1 800 600"
          bmpsave "drawing","C:\Users\";uns;"\Pictures\BMP\";File$;".bmp"
goto [draw]
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 [close]'Working
 confirm "Do you want to End?";bye$
 If bye$ ="yes" Then
   close #img
     notice "have a nice day!"
 end
 else
 goto [draw]
 end if
 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 [Back]'Working
 prompt "What will the background color be?";Fill$
    print #img, "fill ";Fill$
goto [draw]
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'Add more here!
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~