cat > script <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
!TEST echo keys on
!TEST echo comments on
!F10
!F2
abc1000
abc2000
abc3000
abc4000
abc5100
abc5200
abc5300
abc6100
abc6200
abc6300
abc6400
abc6500
!TEST field value
!TAB
!TEST : next_field()
!F3
!TEST : current_field_name ()
!TEST field value
!F4
!TEST : current_field_number ()
!TEST field value
!F6
!TEST : current_field_value ()
!TEST field value
!F9
!TEST : largest_field_number ()
!TEST field value
!ENTER
!ENTER
!ENTER
!ENTER
!TEST : prev_field () four times
!F3
!TEST : current_field_name ()
!TEST field value
!F4
!TEST : current_field_number ()
!TEST field value
!F6
!TEST : current_field_value ()
!TEST field value
!F9
!TEST : largest_field_number ()
!TEST field value
!F1
!TEST : clear_field ()
!TEST field value
!F2
!TEST : current_field ()
field5!TAB
2
!TEST field value
!F5
!TEST : current_field_update ()
!TEST field value
!F7
!TEST : current_field_video ()    reverse video
!TAB
!TEST : next_field ()
!F7
!TEST : current_field_video ()    reverse video
!TAB
!TEST : next_field ()
!TAB
!TEST : next_field ()
!F7
!TEST : current_field_video ()    reverse video
!TEST field video
!ENTER
!TEST : prev_field ()
!ENTER
!TEST : prev_field ()
!F8
!TEST : current_field_video ()    normal video
!TEST field video
!DELETE
!DELETE
y
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
!TEST TEST
!F10
 KP 0
!F2
 KP 8
!TEST TEST
'misc_test_win'@'field1'[1]:
value: abc1000
'misc_test_win'@'field2'[1]:
value: abc2000
'misc_test_win'@'field3'[1]:
value: abc3000
'misc_test_win'@'field4'[1]:
value: abc4000
'misc_test_win'@'field6'[5]:
value: abc6500
'misc_test_win'@'field6'[4]:
value: abc6400
'misc_test_win'@'field6'[3]:
value: abc6300
'misc_test_win'@'field6'[2]:
value: abc6200
'misc_test_win'@'field6'[1]:
value: abc6100
'misc_test_win'@'result'[1]: <Current Field>
value: 
'misc_test_win'@'field5'[3]:
value: abc5300
'misc_test_win'@'field5'[2]:
value: abc5200
'misc_test_win'@'field5'[1]:
value: abc5100
!TAB
 NEXT_FLD
!TEST TEST
: next_field()
!F3
 KP 9
!TEST TEST
: current_field_name ()
!TEST TEST
'misc_test_win'@'field1'[1]: <Current Field>
value: abc1000
'misc_test_win'@'field2'[1]:
value: abc2000
'misc_test_win'@'field3'[1]:
value: abc3000
'misc_test_win'@'field4'[1]:
value: abc4000
'misc_test_win'@'field6'[5]:
value: abc6500
'misc_test_win'@'field6'[4]:
value: abc6400
'misc_test_win'@'field6'[3]:
value: abc6300
'misc_test_win'@'field6'[2]:
value: abc6200
'misc_test_win'@'field6'[1]:
value: abc6100
'misc_test_win'@'result'[1]:
value: field1
'misc_test_win'@'field5'[3]:
value: abc5300
'misc_test_win'@'field5'[2]:
value: abc5200
'misc_test_win'@'field5'[1]:
value: abc5100
!F4
 KP 4
!TEST TEST
: current_field_number ()
!TEST TEST
'misc_test_win'@'field1'[1]: <Current Field>
value: abc1000
'misc_test_win'@'field2'[1]:
value: abc2000
'misc_test_win'@'field3'[1]:
value: abc3000
'misc_test_win'@'field4'[1]:
value: abc4000
'misc_test_win'@'field6'[5]:
value: abc6500
'misc_test_win'@'field6'[4]:
value: abc6400
'misc_test_win'@'field6'[3]:
value: abc6300
'misc_test_win'@'field6'[2]:
value: abc6200
'misc_test_win'@'field6'[1]:
value: abc6100
'misc_test_win'@'result'[1]:
value: 1
'misc_test_win'@'field5'[3]:
value: abc5300
'misc_test_win'@'field5'[2]:
value: abc5200
'misc_test_win'@'field5'[1]:
value: abc5100
!F6
 KP 6
!TEST TEST
: current_field_value ()
!TEST TEST
'misc_test_win'@'field1'[1]: <Current Field>
value: abc1000
'misc_test_win'@'field2'[1]:
value: abc2000
'misc_test_win'@'field3'[1]:
value: abc3000
'misc_test_win'@'field4'[1]:
value: abc4000
'misc_test_win'@'field6'[5]:
value: abc6500
'misc_test_win'@'field6'[4]:
value: abc6400
'misc_test_win'@'field6'[3]:
value: abc6300
'misc_test_win'@'field6'[2]:
value: abc6200
'misc_test_win'@'field6'[1]:
value: abc6100
'misc_test_win'@'result'[1]:
value: abc1000
'misc_test_win'@'field5'[3]:
value: abc5300
'misc_test_win'@'field5'[2]:
value: abc5200
'misc_test_win'@'field5'[1]:
value: abc5100
!F9
 KP 3
!TEST TEST
: largest_field_number ()
!TEST TEST
'misc_test_win'@'field1'[1]: <Current Field>
value: abc1000
'misc_test_win'@'field2'[1]:
value: abc2000
'misc_test_win'@'field3'[1]:
value: abc3000
'misc_test_win'@'field4'[1]:
value: abc4000
'misc_test_win'@'field6'[5]:
value: abc6500
'misc_test_win'@'field6'[4]:
value: abc6400
'misc_test_win'@'field6'[3]:
value: abc6300
'misc_test_win'@'field6'[2]:
value: abc6200
'misc_test_win'@'field6'[1]:
value: abc6100
'misc_test_win'@'result'[1]:
value: 1
'misc_test_win'@'field5'[3]:
value: abc5300
'misc_test_win'@'field5'[2]:
value: abc5200
'misc_test_win'@'field5'[1]:
value: abc5100
!ENTER
 KP ENTER
!ENTER
 KP ENTER
!ENTER
 KP ENTER
!ENTER
 KP ENTER
!TEST TEST
: prev_field () four times
!F3
 KP 9
!TEST TEST
: current_field_name ()
!TEST TEST
'misc_test_win'@'field1'[1]:
value: abc1000
'misc_test_win'@'field2'[1]:
value: abc2000
'misc_test_win'@'field3'[1]:
value: abc3000
'misc_test_win'@'field4'[1]:
value: abc4000
'misc_test_win'@'field6'[5]:
value: abc6500
'misc_test_win'@'field6'[4]:
value: abc6400
'misc_test_win'@'field6'[3]: <Current Field>
value: abc6300
'misc_test_win'@'field6'[2]:
value: abc6200
'misc_test_win'@'field6'[1]:
value: abc6100
'misc_test_win'@'result'[1]:
value: field6
'misc_test_win'@'field5'[3]:
value: abc5300
'misc_test_win'@'field5'[2]:
value: abc5200
'misc_test_win'@'field5'[1]:
value: abc5100
!F4
 KP 4
!TEST TEST
: current_field_number ()
!TEST TEST
'misc_test_win'@'field1'[1]:
value: abc1000
'misc_test_win'@'field2'[1]:
value: abc2000
'misc_test_win'@'field3'[1]:
value: abc3000
'misc_test_win'@'field4'[1]:
value: abc4000
'misc_test_win'@'field6'[5]:
value: abc6500
'misc_test_win'@'field6'[4]:
value: abc6400
'misc_test_win'@'field6'[3]: <Current Field>
value: abc6300
'misc_test_win'@'field6'[2]:
value: abc6200
'misc_test_win'@'field6'[1]:
value: abc6100
'misc_test_win'@'result'[1]:
value: 3
'misc_test_win'@'field5'[3]:
value: abc5300
'misc_test_win'@'field5'[2]:
value: abc5200
'misc_test_win'@'field5'[1]:
value: abc5100
!F6
 KP 6
!TEST TEST
: current_field_value ()
!TEST TEST
'misc_test_win'@'field1'[1]:
value: abc1000
'misc_test_win'@'field2'[1]:
value: abc2000
'misc_test_win'@'field3'[1]:
value: abc3000
'misc_test_win'@'field4'[1]:
value: abc4000
'misc_test_win'@'field6'[5]:
value: abc6500
'misc_test_win'@'field6'[4]:
value: abc6400
'misc_test_win'@'field6'[3]: <Current Field>
value: abc6300
'misc_test_win'@'field6'[2]:
value: abc6200
'misc_test_win'@'field6'[1]:
value: abc6100
'misc_test_win'@'result'[1]:
value: abc6300
'misc_test_win'@'field5'[3]:
value: abc5300
'misc_test_win'@'field5'[2]:
value: abc5200
'misc_test_win'@'field5'[1]:
value: abc5100
!F9
 KP 3
!TEST TEST
: largest_field_number ()
!TEST TEST
'misc_test_win'@'field1'[1]:
value: abc1000
'misc_test_win'@'field2'[1]:
value: abc2000
'misc_test_win'@'field3'[1]:
value: abc3000
'misc_test_win'@'field4'[1]:
value: abc4000
'misc_test_win'@'field6'[5]:
value: abc6500
'misc_test_win'@'field6'[4]:
value: abc6400
'misc_test_win'@'field6'[3]: <Current Field>
value: abc6300
'misc_test_win'@'field6'[2]:
value: abc6200
'misc_test_win'@'field6'[1]:
value: abc6100
'misc_test_win'@'result'[1]:
value: 5
'misc_test_win'@'field5'[3]:
value: abc5300
'misc_test_win'@'field5'[2]:
value: abc5200
'misc_test_win'@'field5'[1]:
value: abc5100
!F1
 KP 7
!TEST TEST
: clear_field ()
!TEST TEST
'misc_test_win'@'field1'[1]:
value: 
'misc_test_win'@'field2'[1]:
value: 
'misc_test_win'@'field3'[1]:
value: 
'misc_test_win'@'field4'[1]:
value: 
'misc_test_win'@'field6'[5]:
value: 
'misc_test_win'@'field6'[4]:
value: 
'misc_test_win'@'field6'[3]: <Current Field>
value: 
'misc_test_win'@'field6'[2]:
value: 
'misc_test_win'@'field6'[1]:
value: 
'misc_test_win'@'result'[1]:
value: 
'misc_test_win'@'field5'[3]:
value: 
'misc_test_win'@'field5'[2]:
value: 
'misc_test_win'@'field5'[1]:
value: 
!F2
 KP 8
!TEST TEST
: current_field ()
!TAB
 NEXT_FLD
!TEST TEST
'misc_test_win'@'field1'[1]:
value: 
'misc_test_win'@'field2'[1]:
value: 
'misc_test_win'@'field3'[1]:
value: 
'misc_test_win'@'field4'[1]:
value: 
'misc_test_win'@'field6'[5]:
value: 
'misc_test_win'@'field6'[4]:
value: 
'misc_test_win'@'field6'[3]:
value: 
'misc_test_win'@'field6'[2]:
value: 
'misc_test_win'@'field6'[1]:
value: 
'misc_test_win'@'result'[1]:
value: 
'misc_test_win'@'field5'[3]:
value: 
'misc_test_win'@'field5'[2]: <Current Field>
value: 
'misc_test_win'@'field5'[1]:
value: 
!F5
 KP 5
!TEST TEST
: current_field_update ()
!TEST TEST
'misc_test_win'@'field1'[1]:
value: 
'misc_test_win'@'field2'[1]:
value: 
'misc_test_win'@'field3'[1]:
value: 
'misc_test_win'@'field4'[1]:
value: 
'misc_test_win'@'field6'[5]:
value: 
'misc_test_win'@'field6'[4]:
value: 
'misc_test_win'@'field6'[3]:
value: 
'misc_test_win'@'field6'[2]:
value: 
'misc_test_win'@'field6'[1]:
value: 
'misc_test_win'@'result'[1]:
value: 
'misc_test_win'@'field5'[3]:
value: 
'misc_test_win'@'field5'[2]: <Current Field>
value: current_field_update
'misc_test_win'@'field5'[1]:
value: 
!F7
 KP 1
!TEST TEST
: current_field_video () reverse video
!TAB
 NEXT_FLD
!TEST TEST
: next_field ()
!F7
 KP 1
!TEST TEST
: current_field_video () reverse video
!TAB
 NEXT_FLD
!TEST TEST
: next_field ()
!TAB
 NEXT_FLD
!TEST TEST
: next_field ()
!F7
 KP 1
!TEST TEST
: current_field_video () reverse video
!TEST TEST
'misc_test_win'@'field1'[1]:
video: normal
'misc_test_win'@'field2'[1]:
video: normal
'misc_test_win'@'field3'[1]:
video: normal
'misc_test_win'@'field4'[1]:
video: normal
'misc_test_win'@'field6'[5]:
video: normal
'misc_test_win'@'field6'[4]:
video: normal
'misc_test_win'@'field6'[3]:
video: normal
'misc_test_win'@'field6'[2]: <Current Field>
video: normal
'misc_test_win'@'field6'[1]:
video: normal
'misc_test_win'@'result'[1]:
video: normal
'misc_test_win'@'field5'[3]:
video: normal
'misc_test_win'@'field5'[2]:
video: normal
'misc_test_win'@'field5'[1]:
video: normal
!ENTER
 KP ENTER
!TEST TEST
: prev_field ()
!ENTER
 KP ENTER
!TEST TEST
: prev_field ()
!F8
 KP 2
!TEST TEST
: current_field_video () normal video
!TEST TEST
'misc_test_win'@'field1'[1]:
video: normal
'misc_test_win'@'field2'[1]:
video: normal
'misc_test_win'@'field3'[1]:
video: normal
'misc_test_win'@'field4'[1]:
video: normal
'misc_test_win'@'field6'[5]:
video: normal
'misc_test_win'@'field6'[4]:
video: normal
'misc_test_win'@'field6'[3]:
video: normal
'misc_test_win'@'field6'[2]:
video: normal
'misc_test_win'@'field6'[1]:
video: normal
'misc_test_win'@'result'[1]:
video: normal
'misc_test_win'@'field5'[3]: <Current Field>
video: normal
'misc_test_win'@'field5'[2]:
video: normal
'misc_test_win'@'field5'[1]:
video: normal
!DELETE
 QUIT
!DELETE
 QUIT
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
This test is used to misc commands of current field features.
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
