AMOS Pro101v$R@--------------------------------------------------------------- R AMOS Professional Menu Editor RR By Franois Lionet R R( (c) 1990-1992 Europress Software Ltd. $R@--------------------------------------------------------------- >( ver&1.30R------------------- R USER SET UP ZONE R------------------- R Maximum number of menu items mxmn>R NTSC users set display to 200! / display>Tyhi>(Tylowyhi display>?R. This is the size of the TREE and EDIT screen treesy>R$ Change for later versions of AMOS! $version>f R Menu bank number *numbank>q@0@dtryt>|\6Bdtryt>|\<Bjmpt>@|\B@zitt>@|\H@itzt>@|\N@zbaset>@|\T@part>|\ZBpart>|\`@spart>|\f@tunet> |.@lBmntmxmn|\rBdrt>|\xBobt>|\~Bobloct>|@part|\Bpart|\$version?mxmn\Bmnt|\x_df\y_df\d_df\s_df\i_df\b_df\a_df\z_dfmtreesy\yhi\ytree\ntotal\nfirst\nlast\mn_empty\mchg\ncur\ndr\cur\lcur\Bdrt|\Bobt|\Bobloct|\obmx\my\tmx\tmyR If an accessory, grab the banks B%<&GRAB(*%#>%#> >\>\>@\>\ T 4TF >\\ylow\\ 6\6w\6\6* >\>@\treesy\>\ TFT  >\6  >\\yhi\\ Fmxmn> n>\yhi>>@\>( displayzD<n>>TZBpartn|(ttn|\>|& ttn|\>\>|TFWx_df>Ty_df> Td_df>Ts_df>Ti_df>Tb_df>Tz_df>Ta_dfz_df>#R> 1234567890123456789012345678901234567890123456789 Rmn_empty&+A 12110- ----------------&"(LO0,0:IN1,2:IN2,0:SF2:SS0)>Empty<Rt>|Rt>|Rt>|Rt>|&<Hn>mxmnTlBmntn|Rt>|TF[T@part>|>TT@part>|>TT@part>|>TT@part>|>TT@part> |>TT@part> |>Ecbob>Tcico>T cink1>T&cink2>TT@part>|>T,txtlen>P mn_in R---> Title page  mn_saveitlTl mn_in 2r_screen&8page>Tmk_menu R ---> Hello!  mn_title > >)>a& Let R0=tt display|>> |&;>a>a& Let R1=4;>a>a& Move 0,0-R0,1;>a>a& L: Move 0,0-R0,R1; Move 0,R0,R1;)>a>a&6 Let R0=R0/2; Let R1=R1-1; If R1>0 Jump M; Let R1=1;>a>a& M: Move 0,R0,R1; Move 0,0-R0,R1;>a>a& If R0>0 Jump L  >\>aT66alert&Versionver\&Par Franois Lionet\& (c) 1992 Europress Software Ltd.T >\\ylow\\`RR---> Save menu script  mn_save(Dsccol>TNT`T4Jfxt&*.Menu\&\&Entrez le nom du menu\&"Le nom doit se terminer par .MENU!||t6tJf\>||&.MENU+ n>T>\>\>\>P\>TFTvT&Sauve Jf d_error >\Jf n> j>\Dsccol j>\Pscres n><rn>mxmnj>\tlBmntn||j>\lBmntn|dF VmnameJf``RR---> Load a menu script  mn_load4Jfxt&*.Menu\&\&Entrez le nom du menu\&"Le nom doit se terminer par .MENU!||t6tJf\>||&.MENU4DsccolT >TDsccol>T, n>T>\>\>\>P\>TFTvT&Charge Jf d_error >\Jf>\Dsccol\Pscres<jn>mxmn">\\lTlBmntn|t>\\l|F sc_openmchg>Tset_cur>Ttree VmnameJf 2 mn_editit`RR---> Save menu bank  mn_bank(Dsccol>TNT`T@Jfxt&*.Abk\&\&$Saisissez le nom d'une banque (.ABK)\& Banque numrot*numbank|&!| |t6tJf\>||&.ABK+ n>T>\>\>\>P\>TFTvT&Sauve Jfhset_mn!^*numbankT*numbank d_errorDJf\*numbank !^*numbank V n>T`RR---> Quit & grab menu bank  mn_gbnk <Dsccol>Lbbgrb>TNT`Thset_mn!^*numbankT*numbank %**numbank%*>%*> dmn_abortR. d_errorTalert&\&>>> ERREUR DISQUE <<<\&T0d_err d_errT!^>T`RR---> End  mn_abort'J"t>|>T<*n>>T!^nTFT TpR R---> Create a menu  mn_new_itlTl)8page>TT@part>|>TT@part>|> mk_menuR Go on nw_go!T@part>|>XT@part>|6&6alert&\&(Hires screens are limited to 16 colours!\& R mn_new_ithPscresT@part>|DsccolT@part>| sc_open&<Hn>mxmnTlBmntn|Rt>|TFmchg>Tset_cur>Ttree 2 mn_edititR R ---> Editing  mn_editit(Dsccol>TNT`TlTl2r_screen& Choose_Item8page>Tmk_menuRR---> Choose an item!  choose_item  n>T >treeholdzi>Tnreflag>~nP 22> try_menu n>tziTzk2 tzifholdzi9 nholdzi>Xholdzi>fncurTact_itemholdzi>\>T holdzi>; rtzi>XtzizmxmnTact_itemtzi>\>TholdzitziTt\$|f>Xholdzi>\>\zkf>Xtzif> d>tzizmxmnact_itemncur\>set_curtzi>act_itemncur\>e>Tdr_menu n>Ttzi>!>tzimxmn>TdtreesyT"@tzimxmn>Td>>T!>tzimxmn>Td>>T <tzimxmn>TdtreesyTd d># \>\d\>@\treesy\>\>% >\>\treesy>d>@\treesy' \>\>\>@\treesyd\>\d >\>\>>@\dXytree\dmchg>Ttreeact_itemncur\>`RR---> Change item flagsR it_lnk it_act it_imv mk_emptymn_flagsncur`R it_lne it_mve Rncur> >a(tlcur\tlcur|>|&A it_search>a\> h> mn_flags0>a(t>a\t>a|>|Rtt6t>a\>||>| it_search>a\>t mk_empty`RR Erase branch coord  er_pos  zero_coordTinfo&All offsets erased!T`R R--------------- R Create branch cr_bra ~ncur>^tlcur|> it_searchlcur&A\> > it_empty 5 (tcur\>|lcur&ATlBmnt|curtmn_empty\>| set_cur mchg>TtreeTnreflag>  zero_coord ` R------------- R Insert item it_ins Tncur><rnmxmn>ncurV>lBmntn>|lBmntn|F"lBmntncur|curtmn_empty\>|mn_renumTset_curncurmchg>TtreeTnreflag>  zero_coord` R ---------- R Add item  it_add ncur>3>a(tlcur\tlcur|>|Rtt6tlcur\>||>| it_search>a\> > it_empty0 (tcur\>|>aTlBmnt|curtmn_empty\>| set_cur mchg>TtreeTnreflag>  zero_coord` R------------- R Delete item it_del `ncur> it_searchlcur\>h>Xnmxmn>lBmnt|Rt>| it_searchlcur\>tXlBmnt>|Tmn_renumset_curncurmchg>TtreeTnreflag>  zero_coord`R R---> Draw menu  mn_drawit ,ncur>N`2r_screen&Ob_Editx lTl n>T >T >Dxtree>Tytree> Tsxtree X>xtreeTsytreetreesy>ytreexob X>>Tyob> ndrparF>A#<Bc> ^>Tv dr_colourcTF'Fcl_treeTx>\>T>T>Tv& Objet actuel:set_ink cink1\&cink2)8cl_obTx X>\>T>T>Tv&Elment actuel: fcur_set(<Ly>yhiV>T >\\y\\T TF pa_df<n>>XqtlBmntncur|\Rt>|\p|TrBdrtn|tlBmntncur|\p\qp|Tpq>F&lBmntncur|(tlBmntncur|\a_df>| <<n>>TxBobtn|&TFp>Tn>PtrBdrtndr|\p\>|&(HqtrBdrtndr|\&(\p>|TJqzpTqtrBdrtndr||>T*xBobtn|trBdrtndr|\p\qp|.XtxBobtn|\>\>|&LOeTxBobtn|&TpqTDnDq\qtrBdrtndr|| cob> dr_treedr_obcob  back_draw%T@part>|cobT8page>Tmk_menuR R Back to edit  bto_edit make_mn n>'<Jyyhi tV>T >\\y\\T TF > 2 mn_edititRR In the edit screen  ob_edit  n>T >5fT@part>|fcobTcobT@part>|Tdr_obcobT~ t\$|f>z `z>A.dr_routf&T>go_drawT z>zk2Ty 8t$|zf>Xzk> zz ^ Ztreesyy> set_inkz>\&cink2 > set_ink cink1\z>  fcur_seth 2Tt`RR---> General drawing routine  go_draw~~ Vset_par x1>dxob>Xsxob> Pz `f>A\>% dxob t|xtreeTdyob 8t$|ytree \2>flag>Tdr_rout Ztxtobf& sxobttxtob| syob syfont Vsxob> P~ wt_move>  f>A\>/ x t|dxobxtreeTy 8t$|dyobytree xmnxXymnysxobxTsyobysxobtsxob\sxtree|syobtsyob\sytree| 0drw_it  \2>. Xsxob>TdxobdxobsxobTsxobsxobT. Xsyob>TdyobdyobsyobTsyobsyobTP6 hdxob t|xtreeXdyob 8t$|ytreeTwt_move>T f>A\> t2> dxob>Tsxob> "x1>Tr>T  > # x t|xtreeTy 8t$|ytree! xsxob>Xysyob> dxobxTdyobyT0drw_it \2>%ncur>XsxobmnxXsyobmny ob&( st_rout x xBobtcob|obTdr_obcob dr_tree h 2Tt4 sxob>Tdxob>,x1>Tr>T>T` drw_it,x1>Tr>T>TEx1xtreedxobT"y1ytreedyobT(x2x1sxobT.y2"y1syob0x1(x2Tx1\(x2T0"y1.y2T"y1\.y2Tx1x1X6(x2t(x2>|X62.y2> tT.y2 t>T2(x2> XT(x2 X>T3F>\x1\"y1\(x2x1>\t.y2"y1>\>|0xtree\ytreextreesxtree>\ytreesytreeflag>Tdr_routT>x`R  st_fontlTl8page>Tmk_menuTn back_drawR; st_patpDT@part>|TT@part>|tT@part>|\>"|Tfcur_setT`RP st_patmNT@part>|T4mt>\Lt>||TT@part>|tT@part>|\4m|Tfcur_setT`R t_setfcur_setT`R! g_drob n>Tdr_obT@part>|T`R ob_ins cob>8<ln>T@part>|V>TxBobtn>|xBobtn|TFxBobtT@part>||& n>Tdr_obT@part>|`R ob_delT@part>|>3<bnT@part>|>TxBobtn|xBobtn>|TFxBobt>|&! n>Tdr_obT@part>|Tdr_tree`R3 ob_pus:ob_blocxBobtT@part>||Tinfo& Objet stock!T`R ob_pasF:ob_bloc&info&>>> Pas de bloc! <<<xBobtT@part>||:ob_bloc! n>Tdr_obT@part>|Tdr_tree`R mk_bor fndrf>&info&5>>> You must be editing the NORMAL item to do so! <<<p n> dr_tree make_mnptrBdrt>|\&LOe|pdxob>Tdyob>OXp\>TqtrBdrt>|\&,\p|TsxobttrBdrt>|\p\qp||>Spq>TqtrBdrt>|\&)\p|TsyobttrBdrt>|\p\qp||> cink1\&cink2!ob&(Ts_boxTrBdrt>|ob cink1\&cink2`R mk_inv fndrf>&info&5>>> You must be editing the NORMAL item to do so! <<<@ n> dr_tree make_mn>atrBdrt>|\>| p>~pt>a\&IN1,\p>| P p>qt>a\&IN2,\p>|qf>Xqp> 5 @a1t>a\p>\>|TFa2t>a\q>\>|- t>a\p>|Fa2Tt>a\q>|@a1rBdrt>|t>a\>|`R tr_pus*<Pn>>T~Bobloctn|xBobtn|TFinfo& Arbre stock!`R tr_pas%<Fn>>T&~Bobloctn|f&TF Jn>info&>>> Pas d'arbre stock! <<<*<Pn>>TxBobtn|~Bobloctn|TF! n>Tdr_obT@part>|Tdr_tree`R  ld_bank Jflt&*.ABK\&\&Choisissez une banque| Jff&  n>TNJfLt>|TT(Lt>|T >>T! n>Tdr_obT@part>|Tdr_treeB6alert&\&\&>>> Non effectu <<<`R8 dr_linedr_rout&D_LINETst_rout&S_LINETmnx>Tmny>& e_drtxtob&Tdxob>Tsxob>T`T d_lineflagTtxtreedxob\ytreedyobxtreedxobsxob\ytreedyobsyobTT`! s_lines_locTs_ink>\ cink1Cobob&LIttdxobsxob|\>|&,ttdyobsyob|\>|&)`R* dr_boxdr_rout&D_BOXTst_rout&S_BOXTHe_drT d_boxflagTxtreedxob\ytreedyobxtreedxobsxob\ytreedyobsyobTT` s_boxs_ink>\ cink1fobob&LOttdxob|\>|&,ttdyob|\>|&:LIttdxobsxob|\>|&,ttdyob|\>|&:robob&LOttdxobsxob|\>|&,ttdyob|\>|&:LIttdxobsxob|\>|&,ttsyobdyob|\>|&:robob&LOttdxobsxob|\>|&,ttdyobsyob|\>|&:LIttdxob|\>|&,ttsyobdyob|\>|&:fobob&LOttdxob|\>|&,ttdyobsyob|\>|&:LIttdxob|\>|&,ttdyob|\>|&)`R> dr_bardr_rout&D_BARTst_rout&S_BARTmnx>Tmny>THe_dr d_bar flagsxob>Xsyob>6T@part>|>TP>?\>TBxtreedxob\ytreedyobxtreedxobsxob\ytreedyobsyob` s_bars_loc(obob&OUttT@part> ||\>|&:'obob&PAttT@part>||& |&:rT@part>|>'s_ink>\ cink1Ts_ink>\&cink2L!s_ink>\>?Ts_ink>\>s_ink>\ cink1Cobob&BAttdxobsxob|\>|&,ttdyobsyob|\>|&)`R> dr_elldr_rout&D_EllTst_rout&S_ELLTmnx>Tmny>THe_dr d_ell flagsxob>f>Xsyob>f>6T@part>|>TP>?\>TDxtreedxobsxob>\ytreedyobsyob>\sxob>\syob>` s_ells_ink>\ cink1Kobob&LOttdxobsxob>|\>|&,ttdyobsyob>|\>|&:?obob&ELttsxob>|\>|&,ttsyob>|\>|&)`R  st_tlen>\>\>\>P\>)TTTt,txtlen|T& Saisissez la longueur maximale: d\lD\l>X\l>P ,txtlen\lN`  dr_text>\>\>\>P\>.&Please enter text: dtxtobTtxtob(ttxtob\txtlen| Rtxtob&6alert&\&\&>>> Non effectu <<<l1dr_rout&D_TEXTTst_rout&S_TEXTTdxob>Tsxob>` d_text \flag%Jdxobxtree\dyobytree:\txtobFsxobttxtob|Tsyob syfont` s_text.s_locTs_ink>\ cink1Ts_ink>\&cink2(obob&SFttT@part>||\>|&:#obob&SSttLsfont|& |&)obobtxtob`R dr_bob vLt>|1dr_rout&D_BOBTst_rout&S_BOBTdxob>Tsxob>N` d_bob Rkf&5fXsc6OTbcbob\>\>Lt>|Tflag>TT& T4dXsc6NTbcbob\>\>Lt>|Tflag>TT& TcbobzLt>| flagz>^artcbob|V^aTsxobt!t^a|>|>Tsyob!t^a>|Tdhx!t^a>|Tjhy!t^a>|T tflag>,xtreedxobdhx\ytreedyobjhy\cbob` s_bobs_loc#obob&BOttcbob|\>|&)`R dr_ico vLt>|1dr_rout&D_ICOTst_rout&S_ICOTdxob>Tsxob>N` d_ico Rkf&5fXsc6OTbcico\>\>Lt>|Tflag>TT& T4dXsc6NTbcico\>\>Lt>|Tflag>TT& T,cicozLt>| flagz>^atcico|4d^aTsxobt!t^a|>|>Tsyob!t^a>|T `flag>"xtreedxob\ytreedyob\cico` s_icos_loc#obob&ICttcico|\>|&)`RR2 Once again, the graphic menu handling routines. R Grab them for your programs! R Handle menu  mk_menu e>!<>n>>?T<Bjmptn|&TF  rmk_menu dr_menu!pnoz>Tvoldz>Tnreflag>~P r2> ,8page> try_menu . make_mnTv try_menu2 ht\$|f>Xvoldz> 22r_screenf& 2r_screen  <nreflag e>Trmk_menu >T n>TzTzk2X>@zfvoldz@ |voldz>T|act>TitB@zittvoldz|Tvoldz>Tdr_itemTQ z>TvoldzzT|actzTitB@zittz|TzneN@zbasetit|Tdr_itemT\zf>Xzkf>&gsbf&TgsbT!><Bjmptz|f&T<Bjmptz|T- n>T|actzTzneN@zbasetit|Tdr_item&jmpf&TjmpT,zk>TPT\2>TR  mn_back no_sc1  no_sc2 >T lT` no_sc10no_sc2 R Draw menu page  dr_menu> n>T>T>Tb pnoz>x >eF>@TN pnoz>+it>Tzne>T|act>Toldpar>P^#DitTN@zbasetit|zneTdr_item \flagH>x ` R Draw a menu item  dr_item,lab&Ltt8page|& |&_ttit|& | no_itlabTit4m>Txx>Tjmp&Pnendtit\&|\4m>|Denc>Tlbl&Ttune>Tradio>Tfl>Tzz>Tnb>Pn4m>D4mtit\&,\n|Tm2tit\&:\n|T,4mm2T4m>T8l4m>Ltnendf>Xm1nend|T4mm2Tfl>T >a|ttit\n\>||TDn,>a&ETenc>T'J>a&LTJgt_strTlbl>aTDzzT,>a&CTcnt>T#B>a&XTJgt_strTxxt>a|T#B>a&YTJgt_strTyyt>a|T$D>a&>TJgt_strTvmnt>a|T$D>a&<TJgt_strTvmxt>a|T$D>a&+TJgt_strTvplt>a|T7j>a&RTgsb&RADIOTDzzTJgt_strTradiot>a|T>a&TTgsb&TUNETDzz 8 gt_strdotTtunet>a| 8 gt_strdotT ntunet>a| <htu> ntune 8 gt_strdot f@tunettu|t>a| F$D>a&VTJgt_strTpart>a|T!>>a&STJgt_strTpar>aT$>a&ZTDzzT'J>a&JTDzzTJgt_strTjmp>aT\fl ^nend&>atit\4m>\nend4m>|8>atit\4m>| dr_word 4mnend \nend> flag>`R  dr_word#Bxx>Txx>(t>a|>T xxx\yyR fst>"(t>a\>|&&Dfst*Jf|tt>a\>\>||T$bt>a\>| R Tune button Jf&T >a&<ttu> ntune Hf@tunettu|T@parttune| *ptu1> <`0tuu>tu*ptu1t$b\&/\*ptu1>| F 6ptu2t$b\&/\*ptu1>|( >at$b\*ptu1>\6ptu2*ptu1>|  F R String param <Jf&ST>aZBpartpar|T R Decimal value Jf&V\lt$b|>atT@partpar||& 4dt>a|\l>T>a>a^t\l>t>a||TR Palette Jf&P Xgt_val$bt<v\>|T>a&1<^n>>T>a>at$b\n\>|& TF R Plus / Moins +RJf&-T>a& - TDzzTlbl&ST_MINUST+RJf&+T>a& + TDzzTlbl&ST_PLUSTR n>af&Jx1txx|>T"y1tyy|>T(x2txxt>a||>T.y2"y1> R bzzf>Lpnoz>Lfstf>b(Lzzf>X|actzneTtTBaparparT Pradio 6T@partradio|par t v>ad3bencf>Xpnoz>TD>Tx1\"y1(x2\.y2T zzf> pnoz> hzne\x1\"y1(x2\.y2% B@zittzne|itTH@itztit|zne Blblf& <Bjmptzne|lbl Dznexxxxt(x2x1|>>` no_it0no_it2 no_it2flagH`A st_plusXT@partpar|\vplTT@partpar|tT@partpar|\vmx|T`B st_minusXT@partpar|\vplTT@partpar|tT@partpar|\vmn|T`8 gt_valHvtype(t>a\>|TNadvTadatatt>a\>||T`% gt_str>atit\n\4mn|T`  gt_strdotZpdtit\&/\n|"@Zpd>LZpd4mTZpd4mT>atit\n\Zpdn| 8Zpd4mnZpd> Zpd4m` radioT@partradio|BaparT` tune<btu> ntune:T@parttune|f@tunettu|Fbtu\>\> ntuneT@parttune|f@tunettu|`  ch_fontT@part>|par n>Tfcur_setT n>`vx sc_openPscres\DsccolPscres> >\>@\treesy\sccol\ > >\>\treesy\sccol\ FT 4  >\\ t\\,cink1>Tcink2>T( ^>Tcink1>TLt>|TTLt>|TTv make_mntmx\tmyBdrt!ndr|&<jn>>$Bdrt!ndr|Bdrt!ndr|Bobtn|F Z!ndr> Bdrt!ndr|Bdrt!ndr|&(LOe0,0)FBdrt!ndr|Bdrt!ndr|&(LOetttmx|\>|&,tttmy|\>|&)m(tBmnt'ncur|\Wa_df>|tm\{x_df\>|^t>|VBmnt'ncur|mBdrt>|Rt>|Bdrt>|Rt>|Bdrt>|Rt>|Bdrt>|Rt>|v s_inkn\v5obob&INttn|\>|&,6ttv|\>|&: vs_locdxob\dyob7obob&LOttdxob|\>|&,tt dyob|\>|&:vwt_moveky Rk\XscxT y$~zkTscb R kf& : 2Xky$ fxL$f yvinfoa n>T>T>>\>\>\>P\>TF aT>v|dr_treextree\ytree\sxtree\sytree mx>Tmy> Fcl_tree,mxtree\Kytreemxtreegsxtree\Kytreeasytree4<dn>>T(ob_drawBobtn|\mxtree\KytreeTFtmx mxTtmymyxvdr_obnxob\yob8cl_ob[xob\Uyob X>\treesy> !(ob_drawBobtn|\[xob\Uyobxvset_inki1\i2 cink1\&cink2<v dr_colourcink1>Tv dr_colourcink1Tv dr_colourcink1><v dr_colourcink2>Tv dr_colourcink2Tv dr_colourcink2>cink1i1Tcink2i2  lc X ^ Z>T>Ri>T(i1>Ti>TTPi\i1TJ lci1 lc>>\treesy> \&1Ri>T(i2>Ti>TTPi\i2TJ lci2 lc>>\treesy>\&2vR  dr_colourc,c>Xc ^ j>T"> lc X ^7DcTclc\treesy>clclc>\treesy6hc>\clc\treesy>clclc\treesyvcur_set n>Z>\>\>T">Tj>$ X>>\treesy> X\treesy> Vset_par>\treesy> X\treesy>.f>TJ X>>\treesy>\Bpart@part>||f>Tx$D@part>|>TZ>?\>\cink2T, X>>\treesy> X>>\treesy>vset_par cink1\&cink2\ syfont\Lsfont n>Zcink1\cink2\cink10@part>|Tsyfontt6tBpart@part>||\>||>sfont>T<bn>>T>@part> n|T" n\sfontTTF Zsfont"@part>|Tj@part> |vHcl_treextree\ytree\sxtree\sytree ">Tj>Bdrt>|&L!ndr>Z>\>\>-mxtree>\Kytree> X>>\treesy>Z>\>\>-mxtree>\Kytree> X>>\treesy>"(ob_drawBdrt>|\mxtree\Kytree8h>A\mxtree\Kytreemxtreegsxtree>\Kytreeasytree> vcl_obxob\yobZ>\>\>T">Tj>'[xob>\Uyob> X>\treesy> v Txob_drawdr\xg\ yg @@it>| drf& p>P atdr\p\>| (a&( PPpDpatdr\p\>|\ta&A|Xtaz&Z|!atdr\p\>|TXp\> &R_a \tdr\p\>|&) Dp p5 $qtdr\&(\p|T:$q>T$qtdr|>T/ Jxg*xx\ yg0yy:\tdr\p\$qp|D  mxt*xxttdr\p\$qp||\ mx|Tmyt0yy6fy\my| p$q \ptdr|<R r_lo+(r_valT*xx<vTDpT(r_valT0yy<v% mxt*xx\ mx|Tmyt0yy\my|` r_in!(r_valTBi<vTDpT(r_val &Bi>D<vP&Bi>TP\<v Z\\<v`R r_liJ(r_valTHx<vTDpT(r_valTtxg*xx\ yg0yyxgHx\ yg<v~e_mxR r_el@(r_valTHx<vTDpT(r_valTxg*xx\ yg0yy\Hx\<vHx*xxHxT<v0yy<v~e_mxR r_baJ(r_valTHx<vTDpT(r_valTxg*xx\ yg0yyxgHx\ yg<v@ e_mx*xxHxT0yy<vT mxt*xx\ mx|Tmyt0yy\my|T`R r_bo (r_valx<vzLt>|Nart<v|8NaG Tsxt!tNa||>TZsy!tNa>|T`hx!tNa>|Tfhy!tNa>|% xg*xx`hx\ yg0yyfhy\<v Hx*xxTsxT<v0yyZsy ~e_mx`R r_ic (r_val <vzLt>|Nat<v|Na% Tsxt!tNa||>TZsy!tNa>| xg*xx\ yg0yy\<v Hx*xxTsxT<v0yyZsy ~e_mx`R- r_sf(r_valT<vT6fyttt<v|\>||T` r_ss(r_valTZ<vT` r_pa(r_valT"<vT` r_ou(r_valTj<vT` r_val-Natdr\&,\p|T*Na>TNa>T-lbtdr\&:\p|T*lb>Tlb>T-rctdr\&)\p|T*rc>Trc>TD$qtNa\tlb\rc||T<vttdr\p\$qp||Tp$q`v  zero_coord 'ncur> a(tlcur\tlcur|>|&A it_searcha\> h> mtBmnt|\>| tm\{x_df|^t>| Bmnt|m# 6ta\>|Rtt6ta\>||>|  it_searcha\>tv8mn_flagsn n>atBmntn|\>|ta|> < p>>/ ta\od_df p\>|t@part p>||&  F Bmntn|av mk_emptyat3mn_empty\>|<p>>/ta\od_dfp\>|t@partp>||& F3mn_emptyavit_empty aRt>|<ln>mxmn#BBmntn|aT fnTTF  fv it_searcha\s  fl>lta|<~nsmxmn+Ra(tBmntn|\l|T flnTTF  flvzmn_renum @@dt>|<Jn>mxmn$tBmntn||><h d>># FtBmntn|\ d>\>|&AFN d4 dzolddTD@dt d|T: dolddT@dt d|>T<lp> d$ !tBmntn||p\>@@dtp|F | d> <^p d>> !tBmntn||p\>  F oldd dFv0act_itemn\i6n?nfirstXnz9nlast) x1t&$tBmntn|\Qz_df\>||>)y1t&$tBmntn|\Qz_df>\>||1x2t&$tBmntn|\Qz_df>\>||>>)y2t&$tBmntn|\Qz_df>\>||"$atBmntn|\Qz_df>\>|zi+ Z>\>\>T x1>\y1>x2\y2 P>\>t+ Z>\>\>T x1>\y1>x2\y2 P>\>J x1\y1>\$a#D>T x1>\y1>x2\y2<*p>>1@part>*p|ttBmntn|\od_df*p\>||F v Pftree @@dt>| n> N-mchg> >\>\>>@\treesy  -mchg XBmnt>|FBmnt>|Rt>|TBmnt>|t3mn_empty\>|Tcur(tBmnt>|\>|T> @@yt>|  y1Kytree#oldd>T?nfirstmxmnT9nlast> P>\>Nx <Fn>mxmn  Bmntn|Rt>| $a& <*d>>( 0ddttBmntn|\*d>\>||>@ P0dd> $a$at0dd|& &. F 6x1>>>H*d& <H<e*d>>T@yt<e|>TF *doldd @dt*d|># D>TtBx2\ y1>6x1\ y1>  *doldd X y1\>>  @yt*d|-D>Tt6x1>\@yt*d|6x1>\ y1>h*d>X y1treesy   L*doldd X y1\> TD@dt*d|  Hd^t>| Nlt$a|>( LNl>T$a6t$a\>|TNl>T tHd\>Nl>\Nl|$a% Bx26x1>>>TTy2 y1>' oldd*dT@yt*d|Ty2TZox2Bx2 p y1>XTy2ztreesy hn>\6x1\ y1Bx2\Ty2   y1> X y1treesy>  curf(tBmntn|\>| P>\>6x1>\ y1>Bx2\Ty2 set_curn+Z>\>\>T6x1>\ y1>Bx2\Ty2 P>\>  J6x1\ y1>\Hd $aBmntn|Q t$a\Qz_df\>|tt6x1>\>|t y1\>|tBx2>\>|tTy2\>||&$ t$a\Qz_df>\>|Hd Bmntn|$a ?nfirsttn\?nfirst| 9nlasttn\9nlast| Fh:Bmntn|fRt>| Dnt Entotaln P>\>((arrow>\>\>\>\>\mxmn>((arrow>\> \>\>\>\mxmn>">\>\>\>\>\>\>\> ~9nlast5 >\>0>\treesy>1\Entotal\?nfirst\9nlast?nfirstT% >\>0>\treesy>1\> \>\> .(arrow>\treesy>1\>\>\>\mxmn>2(arrow>\treesy>1>\>\> \>\mxmn>> -mchg> `flagv set_curncur&Tlcur&F(tBmntn|\>|fRt>|$'ncurnTcur(tBmntn|\>|<p>> tcur|p rtcur\p\>|&Alcurlcurtcur\p\>|  Fvtry_menu Dsccol sccol> n>T >T > >\\yhi\\hset_mn>h 2Tt Xunset_mn V  >\\ t\\vv try_menu2> n>hset_mn>h 2Tt Xunset_mn V v8 set_mnx  n> : ^>P>\>T>T>2P>\>T>T><n>mxmnp(tBmntn|\>|Rt>|D set_mn_itemBmntn|\>Fv*$unset_mn @@dt>|<nn>mxmnBmntnn|Rt>| m(tBmntnn|\>|<nd>> t m\nd>\>|&A( @dtnd|tt m\nd>\>||>@F2`nd>Tx2t@dt>||Ty@t@dt>||TFnd>Tx2t@dt>|\@dt>||Ty@t@dt>|\@dt>||TZnd>Tx2t@dt>|\@dt>|\@dt>||Ty@t@dt>|\@dt>|\@dt>||Tnnd>Tx2t@dt>|\@dt>|\@dt>|\@dt>||Ty@t@dt>|\@dt>|\@dt>|\@dt>||T4x>Txx>T4y>Tyy>TIt m\{x_df\>|ttx|& |& Tt m\uy_df\>|tty|& |& #Bmntnn| mtBmntnn|\>|FvT` set_mn_itemm\flg@ @dt>|\Bdt>|<nd>>tm\nd>\>|&A( @dtnd|ttm\nd>\>||>@Fndgo&Rtnd|& $pWa_df<*n>>J 0qtm\Rt>|\$p|TBdt*n|tm\$p\0q$p|T$p0q>F 6x> flg tm\{x_df\>|&  6xttm\{x_df\>|| <yttm\uy_df\>|| Bac&Atm\od_df\>| Hll&Ltm\od_df>\>| Nmv&Mtm\od_df>\>| Tim&Itm\od_df>\>| Zsp&Stm\od_df>\>|go goBac goHll goNmv goTim goZsp j6xf> 4version>eT6x\<yT go&XY<R< r1 dt @dt>||Bdt>|\Bdt>|\Bdt>|\Bdt>|T`F r2 dt @dt>|\ @dt>||Bdt>|\Bdt>|\Bdt>|\Bdt>|T`P r3 dt @dt>|\ @dt>|\ @dt>||Bdt>|\Bdt>|\Bdt>|\Bdt>|T`Z r4 dt @dt>|\ @dt>|\ @dt>|\ @dt>||Bdt>|\Bdt>|\Bdt>|\Bdt>|T` r1xyt @dt>||6x\<yT`) r2xyt @dt>|\ @dt>||6x\<yT`3 r3xyt @dt>|\ @dt>|\ @dt>||6x\<yT`= r4xyt @dt>|\ @dt>|\ @dt>|\ @dt>||6x\<yT` r1a0t @dt>||T` r2a0t @dt>|\ @dt>||T`) r3a0t @dt>|\ @dt>|\ @dt>||T`3 r4a0t @dt>|\ @dt>|\ @dt>|\ @dt>||T` r1a1t @dt>||T` r2a1t @dt>|\ @dt>||T`) r3a1t @dt>|\ @dt>|\ @dt>||T`3 r4a1t @dt>|\ @dt>|\ @dt>|\ @dt>||T` r1l0t @dt>||T` r2l0t @dt>|\ @dt>||T`) r3l0t @dt>|\ @dt>|\ @dt>||T`3 r4l0t @dt>|\ @dt>|\ @dt>|\ @dt>||T` r1l1rt @dt>||T` r2l1rt @dt>|\ @dt>||T`) r3l1rt @dt>|\ @dt>|\ @dt>||T`3 r4l1rt @dt>|\ @dt>|\ @dt>|\ @dt>||T` r1l2bt @dt>||T` r2l2bt @dt>|\ @dt>||T`) r3l2bt @dt>|\ @dt>|\ @dt>||T`3 r4l2bt @dt>|\ @dt>|\ @dt>|\ @dt>||T` r1m0t @dt>||T` r2m0t @dt>|\ @dt>||T`) r3m0t @dt>|\ @dt>|\ @dt>||T`3 r4m0t @dt>|\ @dt>|\ @dt>|\ @dt>||T` r1m1t @dt>||T` r2m1t @dt>|\ @dt>||T`) r3m1t @dt>|\ @dt>|\ @dt>||T`3 r4m1t @dt>|\ @dt>|\ @dt>|\ @dt>||T` r1i0t @dt>||T` r2i0t @dt>|\ @dt>||T`) r3i0t @dt>|\ @dt>|\ @dt>||T`3 r4i0t @dt>|\ @dt>|\ @dt>|\ @dt>||T` r1i1t @dt>||T` r2i1t @dt>|\ @dt>||T`) r3i1t @dt>|\ @dt>|\ @dt>||T`3 r4i1t @dt>|\ @dt>|\ @dt>|\ @dt>||T` r1s0 $t @dt>||T` r2s0 $t @dt>|\ @dt>||T`) r3s0 $t @dt>|\ @dt>|\ @dt>||T`3 r4s0 $t @dt>|\ @dt>|\ @dt>|\ @dt>||T` r1s1 t @dt>||T` r2s1 t @dt>|\ @dt>||T`) r3s1 t @dt>|\ @dt>|\ @dt>||T`3 r4s1 t @dt>|\ @dt>|\ @dt>|\ @dt>||T`valerta\b\ c n>&>T>T>\>\>\>N\>\>TFaTvTbTvT cTvvTvT&>>> Press mousekey to go on <<<h 2TtP T\2-v0arrowx\y\ sx\sy\s\zon$dtsy|Tsytsy|%x sx\yx sx\ysy<d*n>s $d>D x sx>\y>x\ysy*n>x sx>\yI x sx>\ysy>x\y*n>x sx\ysy>F+hzon\x sx\yx sx\ysy,v~*casex\y\ sx\sy\s\zonj> D>Tj><$n>s>>x sx$n\ysy$nx sx$n\ysy$nF0hzon\x sx\ysyx sx\ysyR$ The graphic menu page definitions! R R---> Title page 9 l1_1&\C,Y1,E,LMn_Title: Editeur de menus AMOS  l1_2&X72,Y6,E,LMn_Abort: Fin  l1_3&(X02,Y4,E,LMn_New_It: Crer nouveau menu  l1_4&&X02,Y6,E,LMn_Load: Charger un menu  l1_5&(X24,Y4,E,LMn_EditIt: Editer menu actuel  l1_6&&X24,Y6,E,LMn_Save: Sauver menu actuel  l1_7&'X46,Y4,E,LMn_Bank: Sauver banque menu  l1_8&'X46,Y6,E,LMn_GBnk: Fin&capturer banque RR---> Screen creation page  l2_1&)C,Y0: NEW MENU - Default screen creation  l2_2& X66,Y6,E,LMn_SaveIt: Prev. menu  l2_3&X66,Y4,E,LNw_Go: Edit it!  l2_4&X0,Y2:- Number of colours:5 l2_5&TX30,Y2,E,R1,V2: 2 |E,R1,V4: 4 |E,R1,V8: 8 |E,R1,V16: 16 |E,R1,V32: 32 |E,R1,V64: 64  l2_6&X0,Y4:- Resolution mode:! l2_7&+X30,Y4,E,R2,V0: Lowres |E,R2,V$8000: Hires R R---> Edit page' l3_1&8X2,Y0:Item status:|X24,Y0:Tree editor:|X52,Y0:Draw menu:" l3_2&.X2,Y2,E,LIt_Act,T5/2/0/1:&T/ Inact. / Active /# l3_3&/X11,Y4,E,LIt_Lnk,T9/2/0/1:&T/ Linked / Separ. /( l3_4&9X2,Y4,E,LIt_Lne,T6/3/0/1/2:&T/ T.line / Line / Bar /" l3_5&.X2,Y6,E,LIt_Mve,T7/2/0/1:&T/ Br.sta / Br.mov /# l3_6&/X11,Y6,E,LIt_Imv,T8/2/0/1:&T/ It.sta / It.mov /$ l3_7&2X24,Y2,E,LIt_Add: Add item |E,LIt_Ins: Ins item $ l3_8&2X24,Y4,E,LCr_Bra: Branch |E,LIt_Del: Delete  l3_9&(X24,Y6,E,LEr_Pos: Reset menu position  l3_10&#X52,Y2,E,V0,LMn_DrawIt: Normal  l3_11&#X65,Y2,E,V1,LMn_DrawIt: Highlight  l3_12&#X52,Y4,E,V2,LMn_DrawIt: Inactive  l3_13&#X65,Y4,E,V3,LMn_DrawIt: Background  l3_14&#X65,Y6,E,V4,LMn_SaveIt: Prev. menu R R---> Draw page( l4_1&9X2,Y0:Draw functions:|X32:Settings:|X43:Object:|X58:Misc:1 l4_2&KX2,Y2,E,LDr_Line: Line |E,LDr_Box: Box |E,LDr_Bar: Bar |E,LDr_Ell: Ellipse 1 l4_3&LX2,Y4,E,LDr_Ico: Icon |E,LDr_Bob: Bob |E,LDr_Text: Text |E,LSt_TLen: T. len & l4_4&6X2,Y6,E,LMk_Inv: Make inverse |E,LMk_Bor: Make border  l4_5&!X32,Y2,E,JT_Set,T10/2/0/1:&T/N/U/ l4_6&!X34,Y2,E,JT_Set,T11/2/0/1:&T/N/B/ l4_7&!X36,Y2,E,JT_Set,T12/2/0/1:&T/N/I/ l4_8&X38,Y2,E,LSt_Patm:- l4_9&X40,Y2,E,LSt_Patp:+% l4_10&1X32,Y4,E,JT_Set,T13/2/0/1:&T/ Not out / Outline / l4_11&X32,Y6,E,LSt_Font: S. Font " l4_12&+X43,Y2,E,JG_Drob,V20,>0,<20,+1:&-|:&V3|E:&+  l4_13&(X43,Y4,E,LOb_Ins: Ins |E,LOb_Del: Del  l4_14&(X43,Y6,E,LOb_Pus: Push |E,LOb_Pas: Past  l4_15&&X58,Y4,E,LLd_Bank: Load a memory bank $ l4_16&/X58,Y2,E,LTr_Pus:Push item|E,LTr_Pas:Paste item  l4_17&'X58,Y6,E,LBTo_Edit: Previous menu R R---> Font menu' l5_1&7C,Y1:Please choose a font:|X66,Y1,LMn_Back: Prev. Menu  l5_2&X2,Y2,V1,LCh_Font:&S l5_3&X21,Y2,V2,LCh_Font:&S l5_4&X40,Y2,V3,LCh_Font:&S l5_5&X59,Y2,V4,LCh_Font:&S l5_6&X2,Y3,V5,LCh_Font:&S l5_7&X21,Y3,V6,LCh_Font:&S l5_8&X40,Y3,V7,LCh_Font:&S l5_9&X59,Y3,V8,LCh_Font:&S l5_10&X2,Y4,V9,LCh_Font:&S l5_11&X21,Y4,V10,LCh_Font:&S l5_12&X40,Y4,V11,LCh_Font:&S l5_13&X59,Y4,V12,LCh_Font:&S l5_14&X2,Y5,V13,LCh_Font:&S l5_15&X21,Y5,V14,LCh_Font:&S l5_16&X40,Y5,V15,LCh_Font:&S l5_17&X59,Y5,V16,LCh_Font:&S l5_18&X2,Y6,V17,LCh_Font:&S l5_19&X21,Y6,V18,LCh_Font:&S l5_20&X40,Y6,V19,LCh_Font:&S l5_21&X59,Y6,V20,LCh_Font:&SAmBs