zhl=Rechnen("322-2")
Print zhl
WaitKey
End

Function Rechnen(r$)
Local I
Local ergebnis
Local lrch ;(=letztes Rechenzeichen)

If Instr(r$,"+")=0 And Instr(r$,"-")=0 And Instr(r$,"/")=0 And Instr(r$,"*")=0 Then Return r$


For I=1 To Len(r$)
If Mid(r$,I,1)="+" Then ergebnis=ergebnis+Int(Mid(r$,lrch+1,I-(lrch+1))):lrch=I
If Mid(r$,I,1)="-" Then ergebnis=ergebnis-Int(Mid(r$,lrch+1,I-(lrch+1))):lrch=I
If Mid(r$,I,1)="*" Then ergebnis=ergebnis*Int(Mid(r$,lrch+1,I-(lrch+1))):lrch=I
If Mid(r$,I,1)="/" Then ergebnis=ergebnis/Int(Mid(r$,lrch+1,I-(lrch+1))):lrch=I
Next

Return ergebnis
End Function

   AppTitle "Calculator V.1.3", "Are you sure?"

   Graphics 800,600,16,2

logo = LoadImage("c:\Graphics\calclogo.bmp")

HidePointer
ClsColor 14,36,114
Cls

DrawImage logo,500,400
Locate 760,430

Locate 755,430
Print"1.3"


Locate 280,0
Print "Welcome to Calculator V.1.3"
Locate 280,15
Print "___________________________"
Locate 280,35
Print "       Built by Oz       "


Print ""
Print ""
Print ""
Print ""
Print ""
Print " Type 1 for + "
Print " Type 2 for - "
Print " Type 3 for * "
Print " Type 4 for / "
Print " Type End to End"
Print ""



.aba

Wahl$ = Input ("Type Number and Press Enter to Start   => ")
 Select Wahl

  Case "1"         Goto plus                                        
   Case "2"         Goto minus
    Case "3"        Goto times                                  
     Case "4"       Goto divide   
      Case "End"      End
       Case "end"      End         
   
   Default
   
   Print "" Print " Invalide Input, please Type 1-4  "  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




Repeat Until KeyHit(1)

End