BtnList::init: link $2 pToa pRect not bnt code_00a2 pushi $8d ; 141, new push0 class Rect send $4 bnot aTop pRect code_00a2: ldi $1 aTop pInitted lap param[$0] bnt code_00ae lap param[$1] jmp code_00c0 code_00ae: pToa client not bnt code_00be pushi $1d0 ; 464, pScreen push0 lag global[$3] send $4 bnot jmp code_00c0 code_00be: pToa client code_00c0: aTop client pTos client pushi $1d0 ; 464, pScreen push0 lag global[$3] send $4 bnot ne? bnt code_00da pushi $1d1 ; 465, addToDisposeList push1 pushSelf pToa client send $6 bnot code_00da: pToa itemList not bnt code_00ea pushi $8d ; 141, new push0 class Set send $4 bnot aTop itemList code_00ea: pTos start pTos row pToa col mul add aTop end push pushi $5a ; 90, 'Z', size push0 self $4 bnot gt? bnt code_0106 pushi $5a ; 90, 'Z', size push0 self $4 bnot aTop end code_0106: pToa start sat temp[$0] code_010a: lst temp[$0] pToa end lt? bnt code_014d pushi $9f ; 159, add push1 pushi $4b ; 75, 'K', at push1 lst temp[$0] self $6 bnot sat temp[$1] push pToa client send $6 bnot pushi $36 ; 54, '6', client push1 pushi $36 ; 54, '6', client push0 self $4 bnot push push0 push1 push0 push0 pToa client send $4 bnot push lat temp[$1] send $c bnot pushi $9f ; 159, add push1 lst temp[$1] pToa itemList send $6 bnot +at temp[$0] jmp code_010a code_014d: pushi $dc ; 220, posn push2 pTos x pTos y self $8 bnot pushi $5a ; 90, 'Z', size push0 self $4 bnot push pTos row pToa col mul gt? bnt code_016e pushi $23d ; 573, addPaging push0 self $4 bnot code_016e: pushi $94 ; 148, init push0 &rest $2 super Set, $4 bnot ret BtnList::dispose: link $1 pToa keep bnt code_01c5 pushi $5a ; 90, 'Z', size push0 self $4 bnot bnt code_01c5 pToa client bnt code_01c5 ldi $0 sat temp[$0] code_018f: lst temp[$0] pushi $5a ; 90, 'Z', size push0 self $4 bnot lt? bnt code_01be pushi $58 ; 88, 'X', delete push1 pushi $4b ; 75, 'K', at push1 lst temp[$0] self $6 bnot push pToa client send $6 bnot pushi $36 ; 54, '6', client push1 push0 pushi $4b ; 75, 'K', at push1 lst temp[$0] self $6 bnot send $6 bnot +at temp[$0] jmp code_018f code_01be: ldi $0 aTop keep aTop client ret code_01c5: ldi $0 aTop pInitted pToa itemList bnt code_01dc pushi $a6 ; 166, release push0 pushi $95 ; 149, dispose push0 send $8 bnot ldi $0 aTop itemList code_01dc: pTos upButton ldi $0 ne? bnt code_01f7 pTos upButton ldi $ff ; 255, asInteger ne? bnt code_01f7 pushi $95 ; 149, dispose push0 pToa upButton send $4 bnot ldi $0 aTop upButton code_01f7: pTos downButton ldi $0 ne? bnt code_0212 pTos downButton ldi $ff ; 255, asInteger ne? bnt code_0212 pushi $95 ; 149, dispose push0 pToa downButton send $4 bnot ldi $0 aTop downButton code_0212: ldi $0 sat temp[$0] code_0216: lst temp[$0] pushi $5a ; 90, 'Z', size push0 self $4 bnot lt? bnt code_0261 pToa client not bt code_0239 pushi $a3 ; 163, contains push1 pushi $4b ; 75, 'K', at push1 lst temp[$0] self $6 bnot push pToa client send $6 bnot not code_0239: bnt code_025d push1 pushi $4b ; 75, 'K', at push1 lst temp[$0] self $6 bnot push calle export60000_0, $2 bnot bnt code_025d pushi $95 ; 149, dispose push0 pushi $4b ; 75, 'K', at push1 lst temp[$0] self $6 bnot send $4 bnot code_025d: +at temp[$0] jmp code_0216 code_0261: pushi $a6 ; 166, release push0 self $4 bnot pToa pRect bnt code_0277 pushi $95 ; 149, dispose push0 send $4 bnot ldi $0 aTop pRect code_0277: pushi $95 ; 149, dispose push0 super Set, $4 bnot ret BtnList::add: pushi $9f ; 159, add push0 &rest $1 super Set, $4 bnot pToa pInitted bnt code_0295 pushi $1ad ; 429, update push0 self $4 bnot code_0295: ret BtnList::delete: pushi $58 ; 88, 'X', delete push0 &rest $1 super Set, $4 bnot pToa pInitted bnt code_02aa pushi $1ad ; 429, update push0 self $4 bnot code_02aa: ret BtnList::draw: link $5 lap param[$0] bnt code_02b5 lap param[$1] aTop start code_02b5: pTos start pTos row pToa col mul add aTop end pTos end pushi $5a ; 90, 'Z', size push0 self $4 bnot gt? bnt code_02d2 pushi $5a ; 90, 'Z', size push0 self $4 bnot aTop end code_02d2: pushi $a6 ; 166, release push0 pToa itemList send $4 bnot ldi $0 sat temp[$3] sat temp[$2] pTos upButton ldi $0 ne? bnt code_02fa pTos upButton ldi $ff ; 255, asInteger ne? bnt code_02fa pushi $94 ; 148, init push1 pTos client pToa upButton send $6 bnot code_02fa: pTos downButton ldi $0 ne? bnt code_0313 pTos downButton ldi $ff ; 255, asInteger ne? bnt code_0313 pushi $94 ; 148, init push1 pTos client pToa downButton send $6 bnot code_0313: pToa elements sat temp[$4] pToa start sat temp[$0] code_031b: lst temp[$0] pToa end lt? bnt code_0357 pushi $9f ; 159, add push1 pushi $3 ; z pushi $11 ; 17, bitmap lst temp[$4] lst temp[$0] callk kernel_90, $6 bnot sat temp[$1] push pToa client send $6 bnot pushi $94 ; 148, init push1 pTos client pushi $57 ; 87, 'W', draw push0 lat temp[$1] send $a bnot pushi $9f ; 159, add push1 lst temp[$1] pToa itemList send $6 bnot +at temp[$0] jmp code_031b code_0357: ret BtnList::erase: link $3 ldi $0 sat temp[$1] code_035e: lst temp[$1] pushi $5a ; 90, 'Z', size push0 pToa itemList send $4 bnot lt? bnt code_03aa pushi $4b ; 75, 'K', at push1 lst temp[$1] pToa itemList send $6 bnot sat temp[$2] pushi $58 ; 88, 'X', delete push1 push pToa client send $6 bnot pushi $69 ; 105, 'i', hide push0 lat temp[$2] send $4 bnot pushi $58 ; 88, 'X', delete push1 lst temp[$2] pushi $cf ; 207, casts push0 push0 push0 lat temp[$2] send $4 bnot send $4 bnot send $6 bnot push0 push1 push0 lat temp[$2] send $6 bnot +at temp[$1] jmp code_035e code_03aa: pushi $a6 ; 166, release push0 pToa itemList send $4 bnot ret BtnList::update: link $1 pushi $dc ; 220, posn push2 pTos x pTos y self $8 bnot lap param[$0] bnt code_03cb lap param[$1] sat temp[$0] jmp code_03cf code_03cb: pToa start sat temp[$0] code_03cf: pushi $1ba ; 442, erase push0 self $4 bnot lst temp[$0] pTos row pToa col mul add aTop end pTos end lst temp[$0] pushi $5a ; 90, 'Z', size push0 self $4 bnot add gt? bnt code_03f9 lst temp[$0] pushi $5a ; 90, 'Z', size push0 self $4 bnot add aTop end code_03f9: lat temp[$0] aTop start pushi $57 ; 87, 'W', draw push0 self $4 bnot pushi $57 ; 87, 'W', draw push0 pToa client send $4 bnot pTos upButton ldi $0 ne? bnt code_042b pTos upButton ldi $ff ; 255, asInteger ne? bnt code_042b pushi $1b4 ; 436, enable push1 pTos start ldi $0 ne? push pushi $57 ; 87, 'W', draw push0 pToa upButton send $a bnot code_042b: pTos downButton ldi $0 ne? bnt code_044f pTos downButton ldi $ff ; 255, asInteger ne? bnt code_044f pushi $1b4 ; 436, enable push1 pTos end pushi $5a ; 90, 'Z', size push0 self $4 bnot lt? push pushi $57 ; 87, 'W', draw push0 pToa downButton send $a bnot code_044f: pToa client not bnt code_0459 ldi $0 jmp code_04f5 code_0459: pTos upButton ldi $0 ne? bnt code_04a9 pTos upButton ldi $ff ; 255, asInteger ne? bnt code_04a9 pushi $1e1 ; 481, curItem push0 pToa client send $4 bnot push pToa upButton eq? bnt code_04a9 pushi $1cc ; 460, checkState push1 push1 pToa upButton send $6 bnot not bnt code_04a9 pushi $1cc ; 460, checkState push1 push1 pToa downButton send $6 bnot bnt code_049d pushi $1d4 ; 468, selectItem push1 pTos downButton pToa client send $6 bnot jmp code_04f5 code_049d: pushi $20f ; 527, advance push0 pToa client send $4 bnot jmp code_04f5 code_04a9: pTos downButton ldi $0 ne? bnt code_04f5 pTos downButton ldi $ff ; 255, asInteger ne? bnt code_04f5 pushi $1e1 ; 481, curItem push0 pToa client send $4 bnot push pToa downButton eq? bnt code_04f5 pushi $1cc ; 460, checkState push1 push1 pToa downButton send $6 bnot not bnt code_04f5 pushi $1cc ; 460, checkState push1 push1 pToa upButton send $6 bnot bnt code_04ec pushi $1d4 ; 468, selectItem push1 pTos upButton pToa client send $6 bnot jmp code_04f5 code_04ec: pushi $20f ; 527, advance push0 pToa client send $4 bnot code_04f5: ret BtnList::addPaging: link $9 pTos downButton pToa upButton eq? bnt code_06b7 pprev ldi $0 eq? bnt code_06b7 pushi $3 ; z push1 lofsa string_00b4 ; " Next " push lsg global[$3b] callk kernel_70, $6 bnot push ldi $14 ; 20, nsRight add sat temp[$4] pushi $94 ; 148, init push1 pushSelf lofsa upBtnHandler sat temp[$0] send $6 bnot pushi $4b ; 75, 'K', at push1 push0 self $6 bnot sat temp[$7] bnt code_0547 pushi $25 ; 37, '%', fore push0 send $4 bnot sat temp[$6] pushi $1c1 ; 449, borderSize push0 lat temp[$7] send $4 bnot sat temp[$5] jmp code_055c code_0547: pushi $25 ; 37, '%', fore push0 class send $4 bnot sat temp[$6] pushi $1c1 ; 449, borderSize push0 class send $4 bnot sat temp[$5] code_055c: pushi $23 ; 35, '#', text push1 pushi $d0 ; 208, with push1 lofsa string_00bb ; "Prev" push class Str send $6 bnot push pushi $51 ; 81, 'Q', value push1 push0 pushi $2a ; 42, '*', font push1 lsg global[$3b] pushi $1c1 ; 449, borderSize push1 lst temp[$5] pushi $1e3 ; 483, wide push1 lst temp[$4] pushi $25 ; 37, '%', fore push1 pushi $25 ; 37, '%', fore push0 lag global[$9] send $4 bnot push pushi $1be ; 446, setSize push0 pushi $4e ; 78, 'N', width push1 lst temp[$4] pushi $29 ; 41, ')', state push1 push1 pushi $1c7 ; 455, handler push1 lst temp[$0] push0 push1 push0 push0 pToa client send $4 bnot push pushi $8d ; 141, new push0 lag global[$9] send $4 bnot aTop upButton send $40 bnot pushi $94 ; 148, init push1 pushSelf lofsa downBtnHandler sat temp[$0] send $6 bnot pushi $23 ; 35, '#', text push1 pushi $d0 ; 208, with push1 lofsa string_00c0 ; "Next" push class Str send $6 bnot push pushi $51 ; 81, 'Q', value push1 push0 pushi $2a ; 42, '*', font push1 lsg global[$3b] pushi $1c1 ; 449, borderSize push1 lst temp[$5] pushi $1e3 ; 483, wide push1 lst temp[$4] pushi $25 ; 37, '%', fore push1 pushi $25 ; 37, '%', fore push0 lag global[$9] send $4 bnot push pushi $1be ; 446, setSize push0 pushi $4e ; 78, 'N', width push1 lst temp[$4] pushi $29 ; 41, ')', state push1 push1 pushi $1c7 ; 455, handler push1 lst temp[$0] push0 push1 push0 push0 pToa client send $4 bnot push pushi $8d ; 141, new push0 lag global[$9] send $4 bnot aTop downButton send $40 bnot pushi $b5 ; 181, set pushi $4 ; scaleX pTos x pTos y pTos x pTos buttonW pToa col mul add push pTos y pTos buttonH pTos margin ldi $2 div add push pToa row mul add push pushi $8d ; 141, new push0 class Rect send $4 bnot sat temp[$1] send $c bnot pushi $4e ; 78, 'N', width push0 lat temp[$1] send $4 bnot push pTos margin pushi $4e ; 78, 'N', width push0 pToa downButton send $4 bnot add push pushi $4e ; 78, 'N', width push0 pToa upButton send $4 bnot add sub push ldi $2 div sat temp[$8] pushi $db ; 219, moveTo push2 push pushi $8a ; 138, bottom push0 lat temp[$1] send $4 bnot push pToa downButton send $8 bnot pushi $db ; 219, moveTo push2 pushi $88 ; 136, right push0 pToa downButton send $4 bnot push pToa margin add push pushi $89 ; 137, top push0 pToa downButton send $4 bnot push pToa upButton send $8 bnot pushi $95 ; 149, dispose push0 lat temp[$1] send $4 bnot code_06b7: pushi $9f ; 159, add push2 pTos downButton pTos upButton pToa client send $8 bnot pushi $1b4 ; 436, enable push2 push0 push1 pToa upButton send $8 bnot pushi $5a ; 90, 'Z', size push0 self $4 bnot push pTos row pToa col mul le? bnt code_06e9 pushi $1b4 ; 436, enable push2 push0 push1 pToa downButton send $8 bnot code_06e9: ret BtnList::addList: link $3 ldi $0 sat temp[$2] pushi $5a ; 90, 'Z', size push0 lap param[$1] send $4 bnot not bt code_0707 pushi $4b ; 75, 'K', at push1 push0 lap param[$1] send $6 bnot sat temp[$1] not code_0707: bnt code_070d ldi $0 jmp code_074c code_070d: pushi $97 ; 151, isKindOf push1 class Str push lat temp[$1] send $6 bnot bnt code_0721 ldi $1 sat temp[$2] jmp code_074c code_0721: pushi $97 ; 151, isKindOf push1 class push lat temp[$1] send $6 bnot bnt code_0735 ldi $2 sat temp[$2] jmp code_074c code_0735: pushi $99 ; 153, respondsTo push1 pushi $23 ; 35, '#', text lat temp[$1] send $6 bnot bnt code_0748 ldi $3 ; z sat temp[$2] jmp code_074c code_0748: ldi $4 ; scaleX sat temp[$2] code_074c: lat temp[$2] bnt code_0820 ldi $0 sat temp[$0] code_0755: lst temp[$0] pushi $5a ; 90, 'Z', size push0 lap param[$1] send $4 bnot lt? bnt code_0809 pushi $4b ; 75, 'K', at push1 lst temp[$0] lap param[$1] send $6 bnot sat temp[$1] lst temp[$2] ldi $2 eq? bnt code_0782 pushi $9f ; 159, add push1 lst temp[$1] self $6 bnot jmp code_07cb code_0782: pushi $9f ; 159, add push1 pushi $23 ; 35, '#', text push1 lst temp[$2] dup ldi $1 eq? bnt code_0795 lat temp[$1] jmp code_07b3 code_0795: dup ldi $3 ; z eq? bnt code_07a5 pushi $23 ; 35, '#', text push0 lat temp[$1] send $4 bnot jmp code_07b3 code_07a5: dup ldi $4 ; scaleX eq? bnt code_07b3 pushi $20 ; 32, ' ', name push0 lat temp[$1] send $4 bnot code_07b3: toss push pushi $9a ; 154, yourself push0 pushi $8d ; 141, new push0 lag global[$9] send $4 bnot sat temp[$1] send $a bnot push self $6 bnot code_07cb: pushi $2a ; 42, '*', font push0 lat temp[$1] send $4 bnot not bnt code_07eb pToa client bnt code_07eb pushi $2a ; 42, '*', font push1 pushi $2a ; 42, '*', font push0 pToa client send $4 bnot push lat temp[$1] send $6 bnot code_07eb: pushi $51 ; 81, 'Q', value push0 lat temp[$1] send $4 bnot not bnt code_0804 pushi $51 ; 81, 'Q', value push1 pTos startVal lat temp[$0] add push lat temp[$1] send $6 bnot code_0804: +at temp[$0] jmp code_0755 code_0809: pushi $a1 ; 161, firstEqual push2 pushi $88 ; 136, right push0 self $8 bnot bnt code_0820 pushi $9d ; 157, eachElementDo push1 pushi $1be ; 446, setSize self $6 bnot code_0820: ret BtnList::posn: link $b pToa pRect not bnt code_0833 pushi $8d ; 141, new push0 class Rect send $4 bnot aTop pRect code_0833: lap param[$0] bnt code_083b lap param[$1] jmp code_083d code_083b: ldi $0 code_083d: aTop x lap param[$0] bnt code_0847 lap param[$2] jmp code_0849 code_0847: pToa margin code_0849: aTop y pToa client bnt code_087c pushi $db ; 219, moveTo push2 pushi $87 ; 135, left push0 push0 push0 send $4 bnot send $4 bnot push pToa x add push pushi $89 ; 137, top push0 push0 push0 pToa client send $4 bnot send $4 bnot push pToa y add push pToa pRect send $8 bnot code_087c: pushi $5a ; 90, 'Z', size push0 self $4 bnot push pTos row pToa col mul gt? bnt code_0892 pTos row pToa col mul jmp code_0898 code_0892: pushi $5a ; 90, 'Z', size push0 self $4 bnot code_0898: sat temp[$4] pToa buttonW not bnt code_08d3 ldi $0 sat temp[$5] sat temp[$0] code_08a6: lst temp[$0] pushi $5a ; 90, 'Z', size push0 self $4 bnot lt? bnt code_08cf pushi $4e ; 78, 'N', width push0 pushi $4b ; 75, 'K', at push1 lst temp[$0] self $6 bnot send $4 bnot sat temp[$6] push lat temp[$5] gt? bnt code_08cb lat temp[$6] sat temp[$5] code_08cb: +at temp[$0] jmp code_08a6 code_08cf: lat temp[$5] aTop buttonW code_08d3: pushi $9d ; 157, eachElementDo push2 pushi $4e ; 78, 'N', width pTos buttonW self $8 bnot pToa buttonH not bnt code_0918 ldi $0 sat temp[$5] sat temp[$0] code_08ea: lst temp[$0] pushi $5a ; 90, 'Z', size push0 self $4 bnot lt? bnt code_0914 pushi $e1 ; 225, height push0 pushi $4b ; 75, 'K', at push1 lst temp[$0] self $6 bnot send $4 bnot sat temp[$6] push lat temp[$5] gt? bnt code_0910 lat temp[$6] sat temp[$5] code_0910: +at temp[$0] jmp code_08ea code_0914: lat temp[$5] aTop buttonH code_0918: pushi $9d ; 157, eachElementDo push2 pushi $e1 ; 225, height pTos buttonH self $8 bnot pushi $4e ; 78, 'N', width push1 pTos buttonW pToa col mul push pushi $e1 ; 225, height push1 pTos buttonH pToa row mul push pToa pRect send $c bnot pToa client bnt code_094e pushi $af ; 175, union push1 pTos pRect push0 push0 send $4 bnot send $6 bnot code_094e: ldi $0 sat temp[$8] sat temp[$7] pTos margin pToa buttonW add sat temp[$a] pTos margin ldi $2 div push pToa buttonH add sat temp[$9] ldi $0 sat temp[$0] pToa x sat temp[$3] pToa y sat temp[$2] code_0972: lst temp[$0] pushi $5a ; 90, 'Z', size push0 self $4 bnot lt? bnt code_0a14 pushi $db ; 219, moveTo push2 lst temp[$3] lst temp[$2] pushi $4b ; 75, 'K', at push1 lst temp[$0] self $6 bnot sat temp[$1] send $8 bnot pToa row not bt code_099d pTos row ldi $1 eq? code_099d: bnt code_09ba lst temp[$3] lat temp[$a] add sat temp[$3] +at temp[$8] push pToa col ge? bnt code_0a0f ldi $0 sat temp[$8] pToa x sat temp[$3] jmp code_0a0f code_09ba: pToa col not bt code_09c4 pTos col ldi $1 eq? code_09c4: bnt code_09e1 lst temp[$2] lat temp[$9] add sat temp[$2] +at temp[$7] push pToa row ge? bnt code_0a0f ldi $0 sat temp[$7] pToa y sat temp[$2] jmp code_0a0f code_09e1: lst temp[$3] lat temp[$a] add sat temp[$3] +at temp[$8] push pToa col ge? bnt code_0a0f ldi $0 sat temp[$8] pToa x sat temp[$3] lst temp[$2] lat temp[$9] add sat temp[$2] +at temp[$7] push pToa row ge? bnt code_0a0f ldi $0 sat temp[$7] pToa y sat temp[$2] code_0a0f: +at temp[$0] jmp code_0972 code_0a14: ret upBtnHandler::init: lap param[$1] aTop client ret upBtnHandler::dispose: pToa client bnt code_0a25 pushi $95 ; 149, dispose push0 send $4 bnot code_0a25: pushi $95 ; 149, dispose push0 super Script, $4 bnot ret upBtnHandler::doit: link $1 pToa client bnt code_0a69 pushi $bb ; 187, start push0 send $4 bnot push pushi $231 ; 561, row push0 pToa client send $4 bnot push pushi $232 ; 562, col push0 pToa client send $4 bnot mul sub sat temp[$0] push ldi $0 lt? bnt code_0a5e ldi $0 sat temp[$0] code_0a5e: pushi $1ad ; 429, update push1 lst temp[$0] pToa client send $6 bnot code_0a69: ldi $0 ret downBtnHandler::init: lap param[$1] aTop client ret downBtnHandler::dispose: pToa client bnt code_0a7c pushi $95 ; 149, dispose push0 send $4 bnot code_0a7c: pushi $95 ; 149, dispose push0 super Script, $4 bnot ret downBtnHandler::doit: link $1 pToa client bnt code_0ae5 pushi $bb ; 187, start push0 send $4 bnot push pushi $231 ; 561, row push0 pToa client send $4 bnot push pushi $232 ; 562, col push0 pToa client send $4 bnot mul add sat temp[$0] push pushi $b4 ; 180, end push0 pToa client send $4 bnot gt? bnt code_0ada pushi $b4 ; 180, end push0 pToa client send $4 bnot push pushi $231 ; 561, row push0 pToa client send $4 bnot push pushi $232 ; 562, col push0 pToa client send $4 bnot mul sub sat temp[$0] code_0ada: pushi $1ad ; 429, update push1 lst temp[$0] pToa client send $6 bnot code_0ae5: ldi $0 ret