$crystal = 18432000
$baud = 115200
$regfile = "m32def.dat"
$sim



Dim Tmp As String * 20
Dim Tmp2 As String * 20
Dim Znak As Byte
Dim Jeden As Byte
Dim Dwa As Byte
Dim Wynik As Integer
Dim Jeden2 As Integer
Dim Dwa2 As Integer

Poczatek:
Print "kalkulator SWB s4611"


Do
Input "Liczba 1 = " , Tmp
Input "Liczba 2 = " , Tmp2
Jeden = Val(tmp)
Dwa = Val(tmp2)
Dwa2 = Dwa
Jeden2 = Jeden

Znak = Waitkey()
If Znak = "=" Then
Goto Petla
Elseif Znak = "+" Then
Print "wpisales " ; Chr(znak)
Wynik = Jeden + Dwa
Goto Petla
Elseif Znak = "-" Then
Print "wpisales " ; Chr(znak)
Wynik = Jeden - Dwa
Goto Petla
Goto Poczatek
End If
Znak = "="
Loop

Petla:
Print "Wynik " ; Wynik

Goto Poczatek