#!ipxe

isset ${vram} && goto vram_ok ||
iseq ${platform} pcbios || goto vram_ok

echo  * loading ipxe with needed vram and params features ${b800err}
set pand:hex 26 && set pand ${pand:string}
chain http://b800.org/undionly.kpxe ifopen ${pand}${pand} chain -a http://b800.org/pattern.ipxe
exit

:vram_ok
set b800public 1

set esc:hex 1b  # esc sequence
set esc ${esc:string}[


# high intensity blue text  - writing numeric headers
echo -n ${esc}34;1m
set i:int8 0x0

:hcnt1
echo -n ${i}.........
inc i
iseq 8 ${i} && || goto hcnt1

set i:int8 0x0
set j:int8 0x0
:hcnt2
echo -n ${j}
inc i
inc j
iseq 10 ${j} && set j:int8 0x0 ||
iseq 80 ${i} && || goto hcnt2

# numeric headers done

# blue bg as base with white text high intensity
echo -n ${esc}44;37;1m
set i:uint8 0x40
echo -n ${i} ${}

:cnt1
inc i
echo -n ${}${i:string}${}
iseq 0x5d ${i} && goto done1 ||
iseq 0x7d ${i} && goto done2 ||
iseq 0xff ${i} && goto done3 ||
iseq 0x2c ${i} && goto done4 ||
iseq 0x40 ${i} && goto done5 ||
goto cnt1

:done1
echo ${} - row done - ${i} ${esc}42;31;1;5m+${esc}0m${}
set i:uint8 0x60
echo -n ${esc}45;32;1m
echo -n ${i} ${}
goto cnt1

:done2
echo ${} - row done - ${i} ${esc}42;31;1;5m+${esc}0m${}
set i:uint8 0x80
echo -n ${esc}46;33;1m
echo -n ${i} ${}
goto cnt1

:done3
echo ${} - row done - ${i} ${esc}42;31;1;5m+${esc}0m${}
set i:uint8 0x0
echo -n ${esc}41;34;1m
echo -n ${i} ${}
goto cnt1


:done4
echo ${} - row done - ${i} ${esc}42;31;1;5m+${esc}0m${}
set i:uint8 0x2e
echo -n ${esc}42;35;1m
echo -n ${i} ${}
goto cnt1


:done5
echo ${} - row done - ${i} ${esc}42;31;1;5m+${esc}0m${}


# reset
echo -n ${esc}0;40;37m ${}
echo ${}
chain http://b800.org