Graphics 600,300,16,2
SetBuffer BackBuffer()
AppTitle "Multitool","Are you sure"

While Not KeyHit (1)


If KeyHit (200)
c = c+1
End If

If c >3 Then c = 0
If b=0 Then Color  255,255,255
If c=1 Then Color  255,0,0
If c=2 Then  Color 0,255,0
If c=3 Then  Color 0,0,255

If KeyHit (208)
b = b+1
End If

If b>3 Then b = 0
If b=0 Then ClsColor  0,0,0
If b=1 Then ClsColor  255,0,0
If b=2 Then  ClsColor 0,255,0
If b=3 Then  ClsColor 0,0,255


If KeyDown (15)
FlushKeys
Cls
Locate 0,40
name$=Input$("Enter Notice : ")
Locate 30,0
Print name
End If

Cls
Locate 0,0

Print CurrentTime$()

Print CurrentDate$()

Print ""

Print "To Do: "+name
Locate 0,270
Print "Use Up-Arrow to change Colors"
Print "Press Tab to enter Notice, Press Backspace to open the Calculator"

If KeyHit (14) calc


Flip
Wend
End



Function calc ()

Cls
Locate 0,0
FlushKeys

.aba

Wahl$ = Input ("Please Enter +,-,*,/  => ")
Print " Type End to get back "
 Select Wahl

  Case "+"         Goto plus                                        
   Case "-"         Goto minus
    Case "*"        Goto times                                  
     Case "/"       Goto divide   
      Case "End"     Return
       Case "end"    Return         
   
   Default
   
   Print "" Print " Invalide Input, please Type +,-,*,/   "  Print "" Goto aba

End Select



.plus


    Print ""
   Print ""
   Print " Please type first number"
   Print " Please type second number"
   Print "--------------------------"
z1#=Input ("First Number  ")

If z1= End Then End
Print "   +"
z2#=Input ("Second Nubmer  ")
If z2= End Then End
Print""
ergebniss1# = z1+z2
Print ergebniss1  Print"" Goto aba



.minus

    Print ""
   Print ""
   Print " Please type first number"
   Print " Please type second number"
   Print "--------------------------"
z1#=Input ("First Number  ")
If z1= End Then End
Print "     -"
z2#=Input ("Second Number  ")
If z2= End Then End
Print""
ergebniss1# = z1-z2
Print ergebniss1 Print"" Goto aba





.times

   Print ""
   Print ""
   Print " Please type first number"
   Print " Please type second number"
   Print "--------------------------"
z1#=Input ("First Number  ")

If z1= End Then End
Print "     *"
z2#=Input ("Second Number  ")

If z2= End Then End
Print""
ergebniss1# = z1*z2
Print ergebniss1 Print"" Goto aba



.divide

    Print ""
   Print ""
   Print " Please type first number"
   Print " Please type second number"
   Print "--------------------------"
z1#=Input ("First Number  ")

If z1= End Then End
Print "     /"
z2#=Input ("Second Number  ")

If z2= End Then End
Print""
ergebniss1# = z1/z2
Print ergebniss1 Print"" Goto aba

End Function