$crystal = 18432000
$baud = 115200

$sim


dim tmp as  String * 20
dim znak as byte

poczatek:
print "kalkulator SWB" 'komentarz


do
  znak = waitkey()
  if znak = "=" then
     goto petla
  else
     print "wpisales " ; chr(znak)
     tmp = tmp + chr(znak)
   endif
loop

petla:
   print tmp

goto poczatek