Specifications

528
Testing the written function
while 1 ’Infinite loop
a$ = fnbarkey$ (1, "A", 15, "DL") ’F4 and SFT/F4 as escape characters.
print
if a$<>"D" and a$<>"L" then
print "Data="; a$
else
print "ESC(";a$;") key push"
endif
wend
end