Izmenjevanje sporočil

to pogovor
   netstartup
   show netaccepton 5124 [] [dobil]
   windowcreate "root "okno [Vnesite podatke za povezavo] 0 0 200 77 []
   groupboxcreate "okno "g1 5 2 180 38
   staticcreate "okno "s1 [Vaše ime:] 10 12 50 10
   staticcreate "okno "s2 [Ime drugega računalnika:] 10 26 100 10
   comboboxcreate "okno "c1 95 10 82 12
   comboboxcreate "okno "c2 95 24 82 12
   buttoncreate "okno "b1 [Poveži se z drugim računalnikom] 10 45 120 12 [poveži]
   buttoncreate "okno "b2 [Prekliči] 140 45 40 12 [prekliči]
end

to poveži
   make "ime first comboboxgettext "c1
   show netconnecton comboboxgettext "c2 5124 [] []
   windowdelete "okno
   windowcreate "root "okno [Izmenjevanje sporočil] 0 0 383 188 []
   listboxcreate "okno "l1 5 5 370 150
   comboboxcreate "okno "c1 5 158 280 12
   buttoncreate "okno "b1 [Pošlji] 290 158 40 12 [pošlji]
   buttoncreate "okno "b2 [Končaj] 335 158 40 12 [končaj]
end

to pošlji
   make "msg comboboxgettext "c1
   listboxaddstring "l1 (sentence (word :ime ":) :msg)
   show netconnectsendvalue (list :ime :msg)
   comboboxsettext "c1 []
end

to dobil
   make "msg netacceptreceivevalue
   listboxaddstring "l1 (sentence (word first :msg ":) last :msg)
end

to končaj
   netconnectoff
   windowdelete "okno
   messagebox [Povezava je prekinjena] [Ko bo tudi drug uporabnik dobil to sporočilo, pritisni OK.]
   netacceptoff
   netshutdown
end

to prekliči
   windowdelete "okno
   netacceptoff
   netshutdown
end