to calc windowcreate "main "calc [Preprost kalkulator] 0 0 82 130 [] comboboxcreate "calc "c1 6 6 67 12 buttoncreate "calc "bd ". 6 64 13 13 [števka ".] buttoncreate "calc "b0 "0 20 64 13 13 [števka 0] buttoncreate "calc "bn "- 34 64 13 13 [negiraj] buttoncreate "calc "b1 "1 6 50 13 13 [števka 1] buttoncreate "calc "b2 "2 20 50 13 13 [števka 2] buttoncreate "calc "b3 "3 34 50 13 13 [števka 3] buttoncreate "calc "b4 "4 6 36 13 13 [števka 4] buttoncreate "calc "b5 "5 20 36 13 13 [števka 5] buttoncreate "calc "b6 "6 34 36 13 13 [števka 6] buttoncreate "calc "b7 "7 6 22 13 13 [števka 7] buttoncreate "calc "b8 "8 20 22 13 13 [števka 8] buttoncreate "calc "b9 "9 34 22 13 13 [števka 9] buttoncreate "calc "bm "* 60 22 13 13 [operator 1] buttoncreate "calc "bq "/ 60 36 13 13 [operator 2] buttoncreate "calc "ba "+ 60 50 13 13 [operator 3] buttoncreate "calc "bs "- 60 64 13 13 [operator 4] buttoncreate "calc "be "= 60 80 13 13 [operator 0] buttoncreate "calc "bc "Pobriši 6 80 41 13 [pobriši] buttoncreate "calc "bend "Zapri 6 100 41 13 [windowdelete "calc] pobriši end to pobriši make "op 0 make "vnos [] make "rezultat 0 comboboxsettext "c1 [] end to negiraj make "vnos :vnos * (-1) comboboxsettext "c1 :vnos end to števka :arg ifelse emptyp :vnos [make "vnos :arg] [make "vnos word :vnos :arg] comboboxsettext "c1 :vnos end to operator :arg if :op = 0 [make "rezultat :vnos] if :op = 1 [make "rezultat :rezultat * :vnos] if :op = 2 [make "rezultat :rezultat / :vnos] if :op = 3 [make "rezultat :rezultat + :vnos] if :op = 4 [make "rezultat :rezultat - :vnos] comboboxsettext "c1 :rezultat make "op :arg make "vnos [] end Make "startup [calc]