|
The code below is looking for the ending (lowest level ")") it runs part way through the byte table and then resets. I don't know why; can anyone help?
version: 02.2.1.1 - because later versions don't work with my rev b development board (another unanswered q)
============================ '====================================================================== ' Balloon with a menu System '======================================================================
'=====Menu Variables menui var word menulevel var word parenlevel var word menuchoice var word btn var byte y var byte ByteFrom var word ByteTo var word one con 1 Menu bytetable "(setup:50(EEPROM(Init#Temp1(Yes:1,No:99),Init#Temp2(Yes:2,No:99),Init#Alt(Yes:3,No:99),Done:99),RTC(SetHour:4,SetMin:5,Done:99)),Test( Servo( Up:6,Down:7,Done:99),Heater( On:8,Off:9,Done:99),Klaxon:10,RTC:11,Temp1:12,Temp2:13,Done:99),Arm(Yes:14,No:99))"
ByteFrom = 0 ByteTo = 0 ParenLevel = 1 repeat byteto = byteto + one debug [menu(byteto)] if menu(ByteTo) = "(" then parenlevel = parenlevel + one elseif menu(ByteTo) = ")" parenlevel = parenlevel - one endif until parenlevel = 0
debug [int bytefrom, int byteto] end ============================
|