to index

make "prav 0
make "nap 0

windowcreate "main "legenda "Ulomki 0 0 500 400 []
buttoncreate "legenda "n "NAVODILA  20 330 40 15 [navodila]
buttoncreate "legenda "z "KONČAJ  70 330 40 15 [windowdelete "legenda]

staticcreate "legenda "do "|POVEZAVA ULOMKOV Z DECIMALNIMI ŠTEVILI| 150 30 300 10

staticcreate "legenda "do2 "| (Namesto decimalne vejice piši decimalno piko!)| 145 50 200 30

staticcreate "legenda "do3 "| (Tam kjer je potrebno, rezultat zaokroži na dve decimalki!)| 140 70 200 40


staticcreate "legenda "enak "|Lažje naloge - ulomki z enakimi imenovalci| 15 120 150 10
buttoncreate "legenda "sest1 "SEŠTinMNOŽ  25 135 50 15 [ses_mn]
buttoncreate "legenda "odst1 "ODŠTinMNOŽ  25 150 50 15 [ods_mn]
buttoncreate "legenda "sest2 "SEŠTinDELJ  25 165 50 15 [ses_del]
buttoncreate "legenda "odst2 "ODŠTinDELJ  25 180 50 15 [ods_del]

staticcreate "legenda "razl "|Težje naloge - ulomki z različnimi imenovalci| 280 120 150 10 
buttoncreate "legenda "sest3 "SEšTinMNOŽ  290 135 50 15 [ses1_mn]
buttoncreate "legenda "odst3 "ODŠTinMNOŽ  290 150 50 15 [ods1_mn]
buttoncreate "legenda "sest4 "SEŠTinDELJ  290 165 50 15 [ses1_del]
buttoncreate "legenda "odst4 "ODŠTinDELJ  290 180 50 15 [ods1_del]


staticcreate "legenda "odgovor "|ČE  ŽELIŠ  ZAČETI  Z  RAČUNANJEM  SI  IZBERI  USTREZNI  GUMB  NA  LEVI!                                                                                                                VESELO  RAČUNANJE!| 140 220 200 50
staticcreate "legenda "pp "NEPRAVILNI 260 270 40 40
staticcreate "legenda "nn "PRAVILNI 200 270 50 50
buttoncreate "legenda "pr :prav 200 290 30 30 []
buttoncreate "legenda "nepr :nap 260 290 30 30 []

openwrite "vaja.txt
setwrite "vaja.txt
print "*****Vaja*****
print "|***************|
setwrite []
close "vaja.txt

end

to index1
cs
ct
index
end

to navodila

windowcreate "main "nav "Navodila 100 100 150 200 []
staticcreate "nav "navodila1 [Pozdravljeni! Veseli me, da boste preverili svoje znanje ulomkov in pretvarjanje le-teh v decimalna števila.] 5 5 100 100
staticcreate "nav "navodila2 [Z miško klikni na izbrani gumb na levi. Program bo generiral ustrezen izraz.] 5 40 100 60 
staticcreate "nav "navodila3 [V okno, ki se odpre, vpiši rezultat pretvorjen iz ulomka v decimalno število in klikni OK. ] 5 70 100 60
staticcreate "nav "navodila4 [Izrazi in odgovori se zapisujejo na datoteko vaja.txt, tako da lahko preveriš svoje napake. ] 5 100 100 60
staticcreate "nav "navodila5 [Avtorica: Marija Pintar ] 40 140 120 60
staticcreate "nav "navodila6 [Zadnja sprememba:21.10.2004 ] 10 170 120 60

buttoncreate "nav "zap "Zapri 10 150 20 15 [windowdelete "nav]

end

to ods1_del

staticdelete "odgovor
make "a ((random 9) + 1)
make "b ((random 9) + 1)
make "c ((random 9) + 1)
make "d ((random 9) + 1)
make "e ((random 9) + 1)
make "f ((random 9) + 1)


buttoncreate "legenda "op3 "\( 135 200 20 40 []
buttoncreate "legenda "s1 :a 160 200 20 20 []
buttoncreate "legenda "s2 :b 160 220 20 20 []
buttoncreate "legenda "op1 "- 185 210 20 20 []
buttoncreate "legenda "s3 :c 210 200 20 20 []
buttoncreate "legenda "s4 :d 210 220 20 20 []
buttoncreate "legenda "op4 "\) 235 200 20 40 []
buttoncreate "legenda "op2 ": 260 210 20 20 []
buttoncreate "legenda "s5 :e 285 200 20 20 []
buttoncreate "legenda "s6 :f 285 220 20 20 []
buttoncreate "legenda "rz "= 310 210 20 20 []


make "odg1 round 100* (((:a * :d * :f) - (:b * :c * :f)) / (:b * :d * :e))
make "odg2 ((:a * :d * :f) - (:b * :c * :f)) / (:b * :d * :e)


make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Kar pogumno! Vnesi vrednost v okence!| 150 200 150 50)
   make "np 1  
   ]

if :np=0 [
test :odg1/100 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Čestitam! Tvoj odgovor je pravilen.| 150 200 150 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "- :c "/ :d ": :e "/ :f "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 200 290 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Žal tvoj odgovor ni pravilen! Poskusi znova.| 120 200 170 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "- :c "/ :d ": :e "/ :f "= :rez)

      show :izraz
	print "|Napačno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr
	buttoncreate "legenda "nepr :nap 260 290 30 30 []
	]
]
buttondelete "op3
buttondelete "s1
buttondelete "s2
buttondelete "op1
buttondelete "s3
buttondelete "s4
buttondelete "op4
buttondelete "op2
buttondelete "s5
buttondelete "s6
buttondelete "rz

end

to ods1_mn

staticdelete "odgovor
make "a ((random 9) + 1)
make "b ((random 9) + 1)
make "c ((random 9) + 1)
make "d ((random 9) + 1)
make "e ((random 9) + 1)
make "f ((random 9) + 1)


buttoncreate "legenda "op3 "\( 135 200 20 40 []
buttoncreate "legenda "s1 :a 160 200 20 20 []
buttoncreate "legenda "s2 :b 160 220 20 20 []
buttoncreate "legenda "op1 "- 185 210 20 20 []
buttoncreate "legenda "s3 :c 210 200 20 20 []
buttoncreate "legenda "s4 :d 210 220 20 20 []
buttoncreate "legenda "op4 "\) 235 200 20 40 []
buttoncreate "legenda "op2 "* 260 210 20 20 []
buttoncreate "legenda "s5 :e 285 200 20 20 []
buttoncreate "legenda "s6 :f 285 220 20 20 []
buttoncreate "legenda "rz "= 310 210 20 20 []


make "odg1 round 100* (((:a * :d * :e) - (:b * :c * :e)) / (:b * :d * :f))
make "odg2 ((:a * :d * :e) - (:b * :c * :e)) / (:b * :d * :f)


make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Kar pogumno! Vnesi vrednost v okence!| 150 200 150 50)
   make "np 1  
   ]

if :np=0 [
test :odg1/100 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Čestitam! Tvoj odgovor je pravilen.| 150 200 150 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "- :c "/ :d "* :e "/ :f "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 200 290 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Žal tvoj odgovor ni pravilen! Poskusi znova.| 120 200 170 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "- :c "/ :d "* :e "/ :f "= :rez)

      show :izraz
	print "|Napačno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr
	buttoncreate "legenda "nepr :nap 260 290 30 30 []
	]
]
buttondelete "op3
buttondelete "s1
buttondelete "s2
buttondelete "op1
buttondelete "s3
buttondelete "s4
buttondelete "op4
buttondelete "op2
buttondelete "s5
buttondelete "s6
buttondelete "rz

end

to ods_del

staticdelete "odgovor
make "a ((random 9) + 1)
make "b ((random 9) + 1)
make "c ((random 9) + 1)
make "d ((random 9) + 1)
make "e ((random 9) + 1)
make "f ((random 9) + 1)


buttoncreate "legenda "op3 "\( 135 200 20 40 []
buttoncreate "legenda "s1 :a 160 200 20 20 []
buttoncreate "legenda "s2 :b 160 220 20 20 []
buttoncreate "legenda "op1 "- 185 210 20 20 []
buttoncreate "legenda "s3 :c 210 200 20 20 []
buttoncreate "legenda "s4 :b 210 220 20 20 []
buttoncreate "legenda "op4 "\) 235 200 20 40 []
buttoncreate "legenda "op2 ": 260 210 20 20 []
buttoncreate "legenda "s5 :d 285 200 20 20 []
buttoncreate "legenda "s6 :e 285 220 20 20 []
buttoncreate "legenda "rz "= 310 210 20 20 []


make "odg1 round 100* (((:a * :e) - (:c * :e)) / (:b * :d))
make "odg2 ((:a * :e) - (:c * :e)) / (:b * :d)


make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Kar pogumno! Vnesi vrednost v okence!| 150 200 150 50)
   make "np 1  
   ]

if :np=0 [
test :odg1/100 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Čestitam! Tvoj odgovor je pravilen.| 150 200 150 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "- :c "/ :b ": :d "/ :e "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 200 290 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Žal tvoj odgovor ni pravilen! Poskusi znova.| 120 200 170 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "- :c "/ :b ": :d "/ :e "= :rez)

      show :izraz
	print "|Napačno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr
	buttoncreate "legenda "nepr :nap 260 290 30 30 []
	]
]
buttondelete "op3
buttondelete "s1
buttondelete "s2
buttondelete "op1
buttondelete "s3
buttondelete "s4
buttondelete "op4
buttondelete "op2
buttondelete "s5
buttondelete "s6
buttondelete "rz

end

to ods_mn

staticdelete "odgovor
make "a ((random 9) + 1)
make "b ((random 9) + 1)
make "c ((random 9) + 1)
make "d ((random 9) + 1)
make "e ((random 9) + 1)
make "f ((random 9) + 1)


buttoncreate "legenda "op3 "\( 135 200 20 40 []
buttoncreate "legenda "s1 :a 160 200 20 20 []
buttoncreate "legenda "s2 :b 160 220 20 20 []
buttoncreate "legenda "op1 "- 185 210 20 20 []
buttoncreate "legenda "s3 :c 210 200 20 20 []
buttoncreate "legenda "s4 :b 210 220 20 20 []
buttoncreate "legenda "op4 "\) 235 200 20 40 []
buttoncreate "legenda "op2 "* 260 210 20 20 []
buttoncreate "legenda "s5 :d 285 200 20 20 []
buttoncreate "legenda "s6 :e 285 220 20 20 []
buttoncreate "legenda "rz "= 310 210 20 20 []


make "odg1 round 100* (((:a * :d) - (:c * :d)) / (:b * :e))
make "odg2 ((:a * :d) - (:c * :d)) / (:b * :e)


make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Kar pogumno! Vnesi vrednost v okence!| 150 200 150 50)
   make "np 1  
   ]

if :np=0 [
test :odg1/100 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Čestitam! Tvoj odgovor je pravilen.| 150 200 150 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "- :c "/ :b "* :d "/ :e "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 200 290 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Žal tvoj odgovor ni pravilen! Poskusi znova.| 120 200 170 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "- :c "/ :b "* :d "/ :e "= :rez)

      show :izraz
	print "|Napačno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr
	buttoncreate "legenda "nepr :nap 260 290 30 30 []
	]
]
buttondelete "op3
buttondelete "s1
buttondelete "s2
buttondelete "op1
buttondelete "s3
buttondelete "s4
buttondelete "op4
buttondelete "op2
buttondelete "s5
buttondelete "s6
buttondelete "rz

end

to preveri

make "rez rw
make "rez1 Form :rez 6 0
op :rez

end

to ses1_del

staticdelete "odgovor
make "a ((random 9) + 1)
make "b ((random 9) + 1)
make "c ((random 9) + 1)
make "d ((random 9) + 1)
make "e ((random 9) + 1)
make "f ((random 9) + 1)


buttoncreate "legenda "op3 "\( 135 200 20 40 []
buttoncreate "legenda "s1 :a 160 200 20 20 []
buttoncreate "legenda "s2 :b 160 220 20 20 []
buttoncreate "legenda "op1 "+ 185 210 20 20 []
buttoncreate "legenda "s3 :c 210 200 20 20 []
buttoncreate "legenda "s4 :d 210 220 20 20 []
buttoncreate "legenda "op4 "\) 235 200 20 40 []
buttoncreate "legenda "op2 ": 260 210 20 20 []
buttoncreate "legenda "s5 :e 285 200 20 20 []
buttoncreate "legenda "s6 :f 285 220 20 20 []
buttoncreate "legenda "rz "= 310 210 20 20 []


make "odg1 round 100* (((:a * :d * :f) + (:b * :c * :f)) / (:b * :d * :e))
make "odg2 ((:a * :d * :f) + (:b * :c * :f)) / (:b * :d * :e)


make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Kar pogumno! Vnesi vrednost v okence!| 150 200 150 50)
   make "np 1  
   ]

if :np=0 [
test :odg1/100 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Čestitam! Tvoj odgovor je pravilen.| 150 200 150 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "+ :c "/ :d ": :e "/ :f "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 200 290 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Žal tvoj odgovor ni pravilen! Poskusi znova.| 120 200 170 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "+ :c "/ :d ": :e "/ :f "= :rez)

      show :izraz
	print "|Napačno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr
	buttoncreate "legenda "nepr :nap 260 290 30 30 []
	]
]
buttondelete "op3
buttondelete "s1
buttondelete "s2
buttondelete "op1
buttondelete "s3
buttondelete "s4
buttondelete "op4
buttondelete "op2
buttondelete "s5
buttondelete "s6
buttondelete "rz

end

to ses1_mn

staticdelete "odgovor
make "a ((random 9) + 1)
make "b ((random 9) + 1)
make "c ((random 9) + 1)
make "d ((random 9) + 1)
make "e ((random 9) + 1)
make "f ((random 9) + 1)


buttoncreate "legenda "op3 "\( 135 200 20 40 []
buttoncreate "legenda "s1 :a 160 200 20 20 []
buttoncreate "legenda "s2 :b 160 220 20 20 []
buttoncreate "legenda "op1 "+ 185 210 20 20 []
buttoncreate "legenda "s3 :c 210 200 20 20 []
buttoncreate "legenda "s4 :d 210 220 20 20 []
buttoncreate "legenda "op4 "\) 235 200 20 40 []
buttoncreate "legenda "op2 "* 260 210 20 20 []
buttoncreate "legenda "s5 :e 285 200 20 20 []
buttoncreate "legenda "s6 :f 285 220 20 20 []
buttoncreate "legenda "rz "= 310 210 20 20 []


make "odg1 round 100* (((:a * :d * :e) + (:b * :c * :e)) / (:b * :d * :f))
make "odg2 ((:a * :d * :e) + (:b * :c * :e)) / (:b * :d * :f)


make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Kar pogumno! Vnesi vrednost v okence!| 150 200 150 50)
   make "np 1  
   ]

if :np=0 [
test :odg1/100 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Čestitam! Tvoj odgovor je pravilen.| 150 200 150 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "+ :c "/ :d "* :e "/ :f "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 200 290 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Žal tvoj odgovor ni pravilen! Poskusi znova.| 120 200 170 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "+ :c "/ :d "* :e "/ :f "= :rez)

      show :izraz
	print "|Napačno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr
	buttoncreate "legenda "nepr :nap 260 290 30 30 []
	]
]
buttondelete "op3
buttondelete "s1
buttondelete "s2
buttondelete "op1
buttondelete "s3
buttondelete "s4
buttondelete "op4
buttondelete "op2
buttondelete "s5
buttondelete "s6
buttondelete "rz

end

to ses_del

staticdelete "odgovor
make "a ((random 9) + 1)
make "b ((random 9) + 1)
make "c ((random 9) + 1)
make "d ((random 9) + 1)
make "e ((random 9) + 1)
make "f ((random 9) + 1)


buttoncreate "legenda "op3 "\( 135 200 20 40 []
buttoncreate "legenda "s1 :a 160 200 20 20 []
buttoncreate "legenda "s2 :b 160 220 20 20 []
buttoncreate "legenda "op1 "+ 185 210 20 20 []
buttoncreate "legenda "s3 :c 210 200 20 20 []
buttoncreate "legenda "s4 :b 210 220 20 20 []
buttoncreate "legenda "op4 "\) 235 200 20 40 []
buttoncreate "legenda "op2 ": 260 210 20 20 []
buttoncreate "legenda "s5 :d 285 200 20 20 []
buttoncreate "legenda "s6 :e 285 220 20 20 []
buttoncreate "legenda "rz "= 310 210 20 20 []


make "odg1 round 100* (((:a * :e) + (:c * :e)) / (:b * :d))
make "odg2 ((:a * :e) + (:c * :e)) / (:b * :d)


make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Kar pogumno! Vnesi vrednost v okence!| 150 200 150 50)
   make "np 1  
   ]

if :np=0 [
test :odg1/100 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Čestitam! Tvoj odgovor je pravilen.| 150 200 150 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "+ :c "/ :b ": :d "/ :e "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 200 290 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Žal tvoj odgovor ni pravilen! Poskusi znova.| 120 200 170 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "+ :c "/ :b ": :d "/ :e "= :rez)

      show :izraz
	print "|Napačno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr
	buttoncreate "legenda "nepr :nap 260 290 30 30 []
	]
]
buttondelete "op3
buttondelete "s1
buttondelete "s2
buttondelete "op1
buttondelete "s3
buttondelete "s4
buttondelete "op4
buttondelete "op2
buttondelete "s5
buttondelete "s6
buttondelete "rz

end

to ses_mn

staticdelete "odgovor
make "a ((random 9) + 1)
make "b ((random 9) + 1)
make "c ((random 9) + 1)
make "d ((random 9) + 1)
make "e ((random 9) + 1)
make "f ((random 9) + 1)


buttoncreate "legenda "op3 "\( 135 200 20 40 []
buttoncreate "legenda "s1 :a 160 200 20 20 []
buttoncreate "legenda "s2 :b 160 220 20 20 []
buttoncreate "legenda "op1 "+ 185 210 20 20 []
buttoncreate "legenda "s3 :c 210 200 20 20 []
buttoncreate "legenda "s4 :b 210 220 20 20 []
buttoncreate "legenda "op4 "\) 235 200 20 40 []
buttoncreate "legenda "op2 "* 260 210 20 20 []
buttoncreate "legenda "s5 :d 285 200 20 20 []
buttoncreate "legenda "s6 :e 285 220 20 20 []
buttoncreate "legenda "rz "= 310 210 20 20 []


make "odg1 round 100* (((:a * :d) + (:c * :d)) / (:b * :e))
make "odg2 ((:a * :d) + (:c * :d)) / (:b * :e)


make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Kar pogumno! Vnesi vrednost v okence!| 150 200 150 50)
   make "np 1  
   ]

if :np=0 [
test :odg1/100 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Čestitam! Tvoj odgovor je pravilen.| 150 200 150 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "+ :c "/ :b "* :d "/ :e "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 200 290 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Žal tvoj odgovor ni pravilen! Poskusi znova.| 120 200 170 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a "/ :b "+ :c "/ :b "* :d "/ :e "= :rez)

      show :izraz
	print "|Napačno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr
	buttoncreate "legenda "nepr :nap 260 290 30 30 []
	]
]
buttondelete "op3
buttondelete "s1
buttondelete "s2
buttondelete "op1
buttondelete "s3
buttondelete "s4
buttondelete "op4
buttondelete "op2
buttondelete "s5
buttondelete "s6
buttondelete "rz

end

to zacetek
 pr [Pozdravljeni! Vstopili ste v program s katerim lahko preveriš svoje ]
 pr [znanje v računanju z ulomki in pretvarjanje le-teh v decimalna števila.]
 pr []
 pr [Želim ti veliko uspeha!]
 pr []
 
 INDEX
end

to zelen
 staticupdate "stl22 sentence [Zelena] scrollbarget "s22
end

Make "a 2
Make "b 6
Make "c 7
Make "d 9
Make "e 4
Make "f 1
Make "izraz [2 / 6 - 7 / 9 : 4 / 1 = 5]
Make "nap 2
Make "napaka []
Make "np 0
Make "odg1 -11
Make "odg2 -0.111111111111111
Make "prav 0
Make "rez 5
Make "rez1 "
Make "startup [zacetek]