nomainwin

 UpperLeftX   =  32
 UpperLeftY   =  32
 WindowWidth  = 360
 WindowHeight = 120

 textbox #jhf.t1,   20,  20, 300,  40

 open "JHFWindow" for graphics as #jhf

 print #jhf.t1, "!font Courier_New 16"
 print #jhf,   "trapclose [quit]"

 open "com2:2400,n,8,1,CS0,DS0" for random as #interface

 for tests =1 to 10
  for index =0 to 255 step 5
    print #interface, chr$( 255); chr$(   0); chr$( index);
    print #interface, chr$( 255); chr$(   1); chr$( index);
    print #jhf.t1, "Reading #" +right$( "   " +str$( index), 3) + " . . ."
    for delay =0 to 2000
        scan
    next delay
  next index

  for index =255 to 0 step -5
    print #interface, chr$( 255); chr$(   0); chr$( index);
    print #interface, chr$( 255); chr$(   1); chr$( index);
    print #jhf.t1, "Reading #" +right$( "   " +str$( index), 3) + " . . ."
    for delay =0 to 2000
        scan
    next delay
  next index
 next tests

 [quit]
 close #interface
 close #jhf
 end