blob: c837dd3cf5eddb745b1876bfaa8abf21a34e3427 [file] [log] [blame]
alias panel-button? false \ We don't want to abort
: panel-msg: create 2drop does> drop ;
alias bogus-char drop
alias ignore-char drop
alias panel-d. drop
" Abort" panel-msg: abrt-msg \ Abrt
" Cancel" panel-msg: can-msg \ CAn
: crc-msg ; \ " Xmodem-CRC" panel-msg: crc-msg \ crc
: done-msg ; \ " Done" panel-msg: done-msg \ donE
" Timeout" panel-msg: timeout-msg \ tout
" r0" panel-msg: r0-msg \ r0
" r1" panel-msg: r1-msg \ r1
" r2" panel-msg: r2-msg \ r2
" r3" panel-msg: r3-msg \ r3
" r4" panel-msg: r4-msg \ r4
" r5" panel-msg: r5-msg \ r5
" r6" panel-msg: r6-msg \ r6
" r7" panel-msg: r7-msg \ r7
0 [if]
" t0" panel-msg: t0-msg \ t0
" t1" panel-msg: t1-msg \ t1
" t2" panel-msg: t2-msg \ t2
" t3" panel-msg: t3-msg \ t3
" t4" panel-msg: t4-msg \ t4
" t5" panel-msg: t5-msg \ t5
" t6" panel-msg: t6-msg \ t6
" t7" panel-msg: t7-msg \ t7
[then]
" Error" panel-msg: giveup-msg \ Err
" Loading diags " panel-msg: upld-msg \ UPLd
" OF" panel-msg: of-msg \ OF
variable timer-init
: timed-in ( -- true | char false ) \ get a character unless timeout
get-ticks timer-init @ + ( time-limit )
begin
m-avail? if
nip
false exit
then
dup get-ticks - 0< until
drop true
;
\needs purpose: alias purpose: \
\needs copyright: alias copyright: \
\needs 3dup : 3dup ( -- ) 2 pick 2 pick 2 pick ;