nomainwin

 UpperLeftX   =  32
 UpperLeftY   =  32
 WindowWidth  = 390
 WindowHeight = 250

 textbox #jhf.t,  70, 50, 250, 120
 open "JHFWindow" for graphics as #jhf
 print #jhf.t, "!font courier 80"
 print #jhf,   "trapclose [quit]"

 open "com2:9600,n,8,1" for random as #interface

 print #jhf.t, dataRead$

 for outer =0 to 1000
  for index =0 to 255
    print #interface, chr$( 48);
    print #interface, chr$( index);
    l$ =right$( "0000" +str$( index), 4)
    print #jhf.t, l$
    i$ =input$( #interface, lof( #interface))
    op$ =" . . . returned " +str$( val( i$))
    for jhf =0 to 500
        '
    next jhf
    scan
  next index
 next outer

 [quit]
 print #interface, chr$( 08)
 close #interface
 close #jhf
 end