Lines Matching +full:38 +full:x
62 variable menuX \ Menu X offset (columns)
187 : kernel[x] ( N -- C-ADDR/U ) s" kernel[x]" 7 +c! ;
188 : menu_init[x] ( N -- C-ADDR/U ) s" menu_init[x]" 10 +c! ;
189 : menu_command[x] ( N -- C-ADDR/U ) s" menu_command[x]" 13 +c! ;
190 : menu_caption[x] ( N -- C-ADDR/U ) s" menu_caption[x]" 13 +c! ;
191 : ansi_caption[x] ( N -- C-ADDR/U ) s" ansi_caption[x]" 13 +c! ;
192 : menu_keycode[x] ( N -- C-ADDR/U ) s" menu_keycode[x]" 13 +c! ;
193 : toggled_text[x] ( N -- C-ADDR/U ) s" toggled_text[x]" 13 +c! ;
194 : toggled_ansi[x] ( N -- C-ADDR/U ) s" toggled_ansi[x]" 13 +c! ;
195 : menu_caption[x][y] ( N M -- C-ADDR/U ) s" menu_caption[x][y]" 16 +c! 13 +c! ;
196 : ansi_caption[x][y] ( N M -- C-ADDR/U ) s" ansi_caption[x][y]" 16 +c! 13 +c! ;
254 s" toggled_ansi[x]"
256 s" toggled_text[x]"
260 s" ansi_caption[x]"
262 s" menu_caption[x]"
289 kernidx ! ( n -- ) \ store provided `x' value
290 [char] 0 kernmenuidx ! \ initialize `y' value for menu_caption[x][y]
324 dup kernel[x] unsetenv
325 2dup menu_caption[x][y] unsetenv
326 2dup ansi_caption[x][y] unsetenv
389 \ Assign first to kernel[x]
390 2dup kernmenuidx @ kernel[x] setenv
392 \ Assign second to menu_caption[x][y]
395 kernidx @ kernmenuidx @ menu_caption[x][y]
398 \ Assign third to ansi_caption[x][y]
408 kernidx @ kernmenuidx @ ansi_caption[x][y]
426 kernidx @ ( -- x ) dup 0= if exit then
427 [char] 0 s" (Y of Z)" ( x -- x y c-addr/u )
432 2over menu_caption[x][y] getenv dup -1 <> if
438 5 pick 5 pick menu_caption[x][y] setenv
444 2over ansi_caption[x][y] getenv dup -1 <> if
450 5 pick 5 pick ansi_caption[x][y] setenv
462 2drop ( x y -- )
470 \ Print the frame caption at (x,y)
563 s" set menu_caption[x]=$menu_caption[x][y]"
569 s" set ansi_caption[x]=$ansi_caption[x][y]"
629 \ replace 'x' with n
632 over menu_command[x] unsetenv
640 dup menu_init[x]
652 ansi_caption[x]
654 menu_caption[x]
801 2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
802 2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
803 2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
804 2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
805 2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces 1+
806 2dup at-xy 38 spaces 1+ 2dup at-xy 38 spaces
827 \ need to test whether menu_caption[x] (ansi_caption[x] when
834 ansi_caption[x]
836 menu_caption[x]
865 \ value of menu_caption[x] (ansi_caption[x] with loader_color enabled).
867 \ toggled_text[x] (toggled_ansi[x] with loader_color enabled) as the
868 \ toggled caption and store the appropriate value into menu_caption[x]
869 \ (again, ansi_caption[x] with loader_color enabled). Last, we'll
878 toggled_ansi[x]
880 toggled_text[x]
886 ansi_caption[x]
888 menu_caption[x]
905 ansi_caption[x]
907 menu_caption[x]
933 3 pick swap ( n addr k k' -- n addr k n k' ) \ (n,k') as (x,y)
935 ansi_caption[x][y]
937 menu_caption[x][y]
942 \ form of $menu_caption[x][y] ($ansi_caption[x][y] with loader_color
951 2 pick [char] 0 ( n addr 0 -- n addr 0 n 48 ) \ (n,48) as (x,y)
953 ansi_caption[x][y]
955 menu_caption[x][y]
971 \ c-addr/u - string value we intend to store to menu_caption[x]
972 \ (or ansi_caption[x] with loader_color enabled)
979 ansi_caption[x]
981 menu_caption[x]
1012 42 13 menuX @ 3 - menuY @ 1- box \ Draw frame (w,h,x,y)
1159 dup menu_command[x]
1194 dup menu_keycode[x]
1201 dup menu_command[x]
1233 dup menu_init[x] unsetenv \ menu initializer
1234 dup menu_command[x] unsetenv \ menu command
1235 dup menu_caption[x] unsetenv \ menu caption
1236 dup ansi_caption[x] unsetenv \ ANSI caption
1237 dup menu_keycode[x] unsetenv \ menu keycode
1238 dup toggled_text[x] unsetenv \ toggle_menuitem caption
1239 dup toggled_ansi[x] unsetenv \ toggle_menuitem ANSI caption
1244 2dup menu_caption[x][y] unsetenv
1245 2dup ansi_caption[x][y] unsetenv