label ソート if ct1()<=20 ct1():=ct1()+1 if ct2()<=20 ct2():=ct2()+1 if dat(ct1())<dat(ct2()) wk():=dat(ct1()) dat(ct1()):=dat(ct2()) dat(ct2()):=wk() through return return end
label ソート2 if ct1()<=20 ct1():=ct1()+1 if ct2()<=20 ct2():=ct2()+1 subswap return return end
label subswap if dat(ct1())<dat(ct2()) wk():=dat(ct1()) dat(ct1()):=dat(ct2()) dat(ct2()):=wk() through end
label 加減乗除 if true inkey wk(1) inkey wk(2) wk(3):=wk(1)+wk(2) wk(4):=wk(1)-wk(2) wk(5):=wk(1)*wk(2) wk(6):=wk(1)/wk(2) if ct()<=6 ct():=ct+1 outprint wk(ct()) return through