命令をサブルーチン化
dim one_code,256 x=0 // ボタンによって選択される選択肢のID selected_btnext="a" my_pc=1 *sw_begin await 1 switch my_pc case 1:my_pc++: gosub *c_cls0:goto *sw_begin case 2:my_pc++: cp1=120:cp2=24:gosub *c_objsize:goto *sw_begin case 3:my_pc++: cp1="X足す1":bt_pc_1=8:gosub *c_button_A:goto *sw_begin case 4:my_pc++: cp1="X引く1":bt_pc_2=9:gosub *c_button_B:goto *sw_begin case 5:my_pc++: cp1=150:cp2=0:gosub *c_pos:goto *sw_begin case 6:my_pc++: cp1="ボタンを押してください":gosub *c_mes:goto *sw_begin case 7:my_pc++: goto *c_stop:goto *sw_begin case 8: x+=1:my_pc=10:goto *sw_begin case 9: x-=1:my_pc=10:goto *sw_begin //ax case 10:my_pc++: gosub *c_cls0:goto *sw_begin case 11:my_pc++: cp1=120:cp2=24:gosub *c_objsize:goto *sw_begin case 12:my_pc++: cp1="NEXT":bt_pc_1=1:gosub *c_button_A:goto *sw_begin case 13:my_pc++: cp1=150:cp2=0:gosub *c_pos:goto *sw_begin case 14:my_pc++: cp1="Xの値は"+x+"です":gosub *c_mes:goto *sw_begin case 15:my_pc++: goto *c_stop:goto *sw_begin swend *bt_hoge_1 my_pc=bt_pc_1 goto *sw_begin *bt_hoge_2 my_pc=bt_pc_2 goto *sw_begin *sw_end stop *c_button_A button cp1,*bt_hoge_1 return *c_button_B button cp1,*bt_hoge_2 return *c_cls0 cls 0 return *c_objsize objsize cp1,cp2 return *c_pos pos cp1,cp2 return *c_mes mes ""+cp1 return *c_stop stop