ÿWPC8ûÿ(8 üMake box: WordPerfect Editor macro (c) Edwin Peck (1991) ~ üüp1~25~ üp2~5~ üw~20~ üh~7~ üclearvar~ üdouble~ ü €€€€ =Movebox x5 €Alt€= MoveBox x1 €PgUp€= Height+ €PgDn€= Height- €F10€=Save € €Ctrl€ PgUp= Width+ PgDn= Width- €CtrlF3€= Border €CtrlF5€= MenuText €€~ übottomprompt~ üprompt~ ütop~ üücancel~~ üentry~~ ü4üentry~~ €~left~ €~right~ €~up~ €~down~ ~right1~ ~left1~ ~up1~ ~down1~ Y€~pageup~ Z€~pagedown~ ,ü~wright~ €~wleft~ F€~charactor~ )€~end~ €~text~ €~cancel~ &€~cancel~ H€~text~ €~numberon~ =ü~bell~~ ütop~ übell~ ü"ü üprompt~ ütemp~~ ütopline~ üp11~4üp1~+1~ ü€ 7ü4üp1~~7ü4üp2~~4ütop~~ ümiddle~ üp3~4üp2~~ ütemp~1~4üh~~1~ üp3~4ütemp~+4üp2~~ ü€7ü4üp1~~7ü4üp3~~ 4ü4üleft~~4ümiddle~~ /ü4ütemp~text~ ü€ 7ü4üp11~~7ü4üp3~~4ü4ütemp~text~~ ü ü üp5~4üp3~+1~ ü€7ü4üp1~~7ü4üp5~~4übottom~~ "ü ümiddle~ ümiddle~~ /üonoff~ üleft~temp~ ü üleft~vline~ ü ütmp~3~4üw~~1~ ümiddle~4ümiddle~ ~ ü ümiddle~4ümiddle~4üvline~~ -üütmp~~ "ü ütopline~ ütmp~3~4üw~~1~ ütemp~4ütemp~4ühline~~ ü ütop~4ültop~4ütemp~4ürtop~~ übottom~4ülbottom~4ütemp~4ürbottom~~ ütemp~~ütmp~~ "ü ü============selection of charactor=================~ ücharactor~ ücharactor~1=  2=  3=  4=  5=  6= "# 7=  ->1€~ ü4ücharactor~~ €~double~ 1~double~ 2~single~ 3~light~ 4~dark~ 5~darkest~ 6~doublesingle~ 7~singledouble~ ~ üücharactor~ üdouble~ ültop~~ ürtop~~ ülbottom~~ ürbottom~~ ühline~~ üvline~~ "ü üsingle~ ültop~ ~ ürtop~ ~ ülbottom~ ~ ürbottom~ ~ ühline~~ üvline~ ~ "ü ülight~ ültop~~ ürtop~~ ülbottom~~ ürbottom~~ ühline~~ üvline~~ "ü üdark~ ültop~~ ürtop~~ ülbottom~~ ürbottom~~ ühline~~ üvline~~ "ü üdarkest~ ültop~~ ürtop~~ ülbottom~~ ürbottom~~ ühline~~ üvline~~ "ü üdoublesingle~ ültop~"~ ürtop~#~ ülbottom~%~ ürbottom~$~ ühline~~ üvline~~ "ü üsingledouble~ ültop~~ ürtop~~ ülbottom~!~ ürbottom~ ~ ühline~~ üvline~ ~ "ü ü===========Keboard input ====================~ üup~ üp2~4üp2~-5~ üprompt~"ü üup1~ üp2~4üp2~-1~ üprompt~"ü üdown~ üp2~4üp2~+5~ üprompt~"ü üdown1~ üp2~4üp2~+1~ üprompt~"ü üleft~ üp1~4üp1~-5~ üprompt~"ü üleft1~ üp1~4üp1~-1~ üprompt~"ü üright~ üp1~4üp1~+5~ üprompt~"ü üright1~ üp1~4üp1~+1~ üprompt~"ü üpageup~ üh~4üh~+1~ üprompt~"ü üpagedown~ üh~4üh~-1~ üprompt~"ü üwleft~ üw~4üw~-2~ ünum~4üw~-2~ ü9~1~4üh~~1~ /ü ÿtext~ üsize2~ ü ü üprompt~"ü üwright~ üw~4üw~+2~ ünum~4üw~-2~ ü9~1~4üh~~1~ /ü ÿtext~ üsize2~ ü ü üprompt~"ü ünumberon~ /üonoff~ üonoff~~ ü üonoff~on~ ü üprompt~ "ü ü====================================~ üend~ üempty~~ ütemp~1~4üh~~1~ /ü4ütemp~text~ üüempty~4üempty~4ütemp~,~ ü ü ütemp~~ üempty~ /üempty~ ütemp~Menu items 4üempty~ have no data. Continue? Y €~ ü4ütemp~~ n~text~N~text~~ ü üend3~ üü € €€€Please wait writing macro code~ üüend1~~ ücount~0~ üplace~5üline~~ €€€ ümenuloop~ üplacecode~~ !€€üboxmenu!€ ücount~4ücount~+1~ ü ümenuloop~ üend1~ €€€ ünum~4üw~-2~ ü9~1~4üh~~1~ /ü ÿtext~ üsize~ ü ü üp3~4üp2~~ üp3~7ü4üp3~~~ üp3~€4üp3~~ üp11~4üp1~+1~ üp11~7ü4üp11~~~ üp11~€4üp11~~ üp1~7ü4üp1~~~ üp1~€4üp1~~ € €€üboxmenu4ücount~~ € ,ü€€€ € Menu Maker (c) Edwin Peck 1991:ü € €ü €€€4üp1~4üp3~ € €4ütop~ € üp3~4üp2~~ ütemp~1~4üh~~1~ üp3~4ütemp~+4üp2~~ üp3~7ü4üp3~~~ üp3~€4üp3~~ €€4üp1~4üp3~ € € 4ü4üleft~~4ümiddle~ € /ü4ütemp~text~ €€ €€4üp11~4üp3~4ü4ütemp~text~ € X€X€ ü ü üp3~4üp2~+4üh~+1~ üp3~7ü4üp3~~~ üp3~€4üp3~~ €€4üp1~4üp3~ € €4übottom~ € €€~ €"ü € ü F€F€ üclearvar~ ü üclearvar~ ütemp~1~4üh~~1~ /ü4ütemp~text~ ü4ütemp~text~~ ü ü ütemp~onoff~num2~num~exit~tmp~top~rtop~ltop~rbottom~lbottom~vline~hline~~ ü4ütemp~~~ ütemp~~ ü "ü ütext~ üücancel2~~ ü4üh~>9~ (ü9~ Edit text; What line number, 1 - 4üh~? ~ ü ü9~ Edit text; What line number, 1 - 4üh~? ~ ü ü" ÿ"=""|" ÿ"=" €"|" ÿ"="€"|" ÿ"="&€"~ ücancel2~ ü ü ÿ>0& ÿ<4üh~+1~ ü üütext~ ü (ü ÿtext~Enter text for line # ÿ -> ~ ü" ÿ"=""|" ÿ"="€"|" ÿ"="&€"~ ücancel2~ ü ünum~4üw~-2~ üsize~ ünum~~ üp3~4üp2~+4ü9~~ ü€ 7ü4üp11~~7ü4üp3~~4ü ÿtext~~ ütext~ üsize~ +ü9ü ÿtext~<4ünum~~ ü ÿtext~ 4ü ÿtext~ ~ ü ü ÿtext~ 6ü ÿtext~0~4ünum~~~ "ü üsize2~ +ü9ü ÿtext~<4ünum~~ ü ÿtext~ 4ü ÿtext~ ~ ü +ü9ü ÿtext~>4ünum~~ ünum2~9ü ÿtext~-1~ ü ÿtext~6ü ÿtext~0~4ünum2~~~ ü ÿtext~6ü ÿtext~1~4ünum~~~ ü "ü übottomprompt~ ü € {HOME}= Toggle numbers on menu F7= Quit F10= Write macro code €~ "ü ücancel2~ üücancel~~ üübottomprompt~ ü€7ü4üp1~~7ü4üp5~~4übottom~~ "ü ücancel~ F€F€ ü