10 !					refresh.bas
   !								      
    sub refresh_screen

    %include "digitcom.bas"

    esc$ = chr$(27%)
    reverse$ = chr$(27%) + "[7m"
    normal$ = chr$(27%) + "[0m"
    blink$ = chr$(27%) + "[5m"
    double_wide$ = esc$ + "#6"
    normal_wide$ = esc$ + "#5"

    call vtpos(1%,1%,1%,0%) ! 1,1 and clear screen
    call vtpos(7%,2%,0%,0%)
    print double_wide$; "Talos Digitizer Interface" 
    call vtpos(4%,4%,0%,0%)
    print "Function:"
    call mode_print(function_mode%)
    call vtpos(21%,4%,0%,0%)
    print "Recording to:"
    call vtpos(35%,4%,2%,7%)
    print trm$(output_file$)
    call vtpos(35%,5%,2%,7%)
    print trm$(var_out$);
    call vtpos(4%,6%,0%,0%)
    print "Talos Device:"
    call vtpos(18%,6%,2%,7%)
    print talos_dev$
    call vtpos(5%,8%,0%,0%)
    print "X-Scale:"
    call vtpos(14%,8%,0%,7%)
    print using "####.####",x_scale
    call vtpos(25%,8%,0%,0%)
    print "Y-Scale:"
    call vtpos(34%,8%,0%,7%)
    print using "####.####",y_scale
    call vtpos(4%,10%,0%,0%)
    print "X-Origin:"
    call vtpos(14%,10%,0%,7%)
    print using "#####",map_x_origin%
    call vtpos(24%,10%,0%,0%)
    print "Y-Origin:"
    call vtpos(34%,10%,0%,7%)
    print using "#####",map_y_origin%
    call vtpos(46%,10%,0%,0%)
    print "X-Axis Rotate:"
    call vtpos(62%,10%,0%,7%)
    print using "###.####",x_rotate_deg
    call vtpos(5%,12%,0%,0%)
    print "X-Coord:"
    call vtpos(14%,12%,0%,7%)
    print using "#######",x_coord%
    call vtpos(25%,12%,0%,0%)
    print "Y-Coord:"
    call vtpos(34%,12%,0%,7%)
    print using "#######",y_coord%
    call vtpos(46%,12%,0%,0%)
    if function_mode% <> 2% then 
       print "Area:" 
       call vtpos(52%,12%,0%,7%) 
       print using "###,###,###,###"; area 
    else 
       print "Length:" 
       call vtpos(54%,12%,0%,7%) 
       print using "###,###,###"; total_length 

20  subend