to ks
draw
cd
change 4
tanceqi
rebut
js

end

to js 
make shi first time
make fen last bl time 
make miao last time 
make miao0  shi*3600 + fen*60+miao  ;从0点开始的秒数
end


to kao  ;考生填写子程序段
fd 4
if pin0=76 then lt 8 
if pin1=76 then rt 8

end

to tc
kao
if pin0=0 then repeat 15 [fd 2 wait 3] play s3 toplevel 
js 
make jishi miao0-js0
setbut js1 label jishi
tc
end

to cd ;建场地
setw 10  pu  setpc 12 lt 90 bk 250 pd  
repeat 2[fd 450 repeat 9[fd 2 rt 10] fd 150 repeat 9[fd 2 rt 10]] 
pu home pd setpc 2 
fd 50 bk 100 pu  bk 30 lt 90 fd 20 rt 90  tt 开始 lt 90 bk 20 rt 90  fd 30 pd fd 50  pu rt 90 fd 50 lt 90 pd setpc 0 fd 50 bk 100  pu  bk 30 lt 90 fd 20 rt 90  tt 结束 lt 90 bk 20 rt 90 
 fd 30 pd fd 50 pu lt 90 fd 50 setw 1 setpc 0
to tanceqi  ;构建探测器
ctc 0
tance 5,0,36,-149,31,0,0
ctc 1
tance 5,1,36,-102,32,0,1
end


to rebut   ;新建按钮
setbut js0,计时,-41,242,75,37,0xffff99,0x0,14 , 
setbut js1,0,30,242,75,37,0xffff99,0x0,17 , 
setbut ks0_3,开始,156,-52,78,37,0xffff99,0x0,20 js,make,js0,miao0,play,s2,tc, 
end



