cat > script <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
unset MSPAGER;
insert into loans;
.d
.?
.n
.p


355.55
d
.^
.>name
.~
.^
."
.z
$Hoolihan

.^
.v
.d
.v



e
."
.r
."

."

."

p
.x
.d
q
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 755 script
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
* * 
name: 
name: 
date: 
amount: 

name: ----------  Interactive Insert  ----------

The following commands may be used with the Interactive Insert.

.?          print this help file
.! CMD      escape to the shell to execute the command CMD
.^          go to previous attribute and reprompt for its value
.> ATTR     go to the attribute ATTR and reprompt for its value
.~          set the attribute value to null
."          set the attribute value to the value entered for the  same  attri-
            bute in the previous record
.d          display all entered values for this record
.e          enter the record into the table and begin prompting for  the  next
            record
.n      *   go on to the next record without entering the current one
.p      +   return to the previous record and reprompt  for  attribute  values
            (values already entered are not lost).  It is not possible to back
            up more than one record using .p
.q          quit the Interactive Interface and return control back to EMPRESS
.r          reset the current attribute values to null
.u          undo the preceding .x command.  Only valid during the  record  im-
            mediately after a .x command.
.v          change the prompting from terse to verbose or vice versa
.x      *   delete the current record
.z          invoke the line editor
.zz         invoke the system file editor

__________________________________________________
        *   valid only in .p mode
        +   not valid in .p mode
name: 
*** invalid Command
name: 
*** invalid Command
name: date: amount: 
Ready .
name: 
date: 
amount: $355.55 


Ready .amount: $355.55 name: date: name: *** invalid Command
name: 
$Hoolihan
date: name: $Hoolihan name[character(25,1)]: $Hoolihan 
name[character(25,1)]: $Hoolihan 
date[date(1)]: 
amount[dollar(6,1)]: $355.55 

name[character(25,1)]: $Hoolihan name: $Hoolihan date: amount: $355.55 
Ready .
name: name: $Hoolihan 
name: name: $Hoolihan date: date: amount: amount: $355.55 
Ready .
name: $Hoolihan 

Ready .
name: $Hoolihan 
date: 
amount: $355.55 


Ready .
Number of records entered = 0
* 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > stdout.jp_euc <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
* * 
name: 
name: 
date: 
amount: 

name:                      ----------  Interactive Insert  ----------

   ʲ˼ޥɤ Interactive Insert ǻȤȤǤޤ

 .?             إץեɽ롣
 .! CMD         ˥פޥ CMD ¹Ԥ롣
 .^             °˹ԤͤϤƤ¥
 .> ATTR        ° Attr ˰ưͤϤƤ¥
 .~             °ͤ null ˤ롣
 ."             °ͤΥ쥳ɤƱ°Ϥͤˤ롣
 .d             쥳ɤϤ줿Ƥͤɽ롣
 .e             쥳ɤơ֥ϤΥ쥳ɤϤ¥
 .n          *  ߤΥ쥳ɤϤ˼Υ쥳ɤ˰ܤ롣
 .p          +  Υ쥳ɤꡢ°ͤϤ¥ʤǤϤ줿ͤ
                ʤˡ.p ǤϰĤΥ쥳ɤޤǤʤ
 .q             å⡼ɤȴ EMPRESS ᤷϤ줿
                ơ֥롣
 .r             ߤ°ͤ null ᤹
 .u             ľ .x ޥɤ᤹(undo) .x ޥɤԤäľΥ
                ɤΤͭ
 .v             ץץȤĹûߤڤؤ롣
 .x          *  ߤΥ쥳ɤ롣
 .z             饤󥨥ǥƤӽФ
 .zz            ƥե륨ǥƤӽФ
____________________________________________________________________________

             * .p ⡼ɤǤΤͭ
             + .p ⡼ɤǤ̵
name: 
*** ޥɤŬڤǤ
name: 
*** ޥɤŬڤǤ
name: date: amount: 
Ǥ .
name: 
date: 
amount: $355.55 


Ǥ .amount: $355.55 name: date: name: *** ޥɤŬڤǤ
name: 
$Hoolihan
date: name: $Hoolihan name[character(25,1)]: $Hoolihan 
name[character(25,1)]: $Hoolihan 
date[date(1)]: 
amount[dollar(6,1)]: $355.55 

name[character(25,1)]: $Hoolihan name: $Hoolihan date: amount: $355.55 
Ǥ .
name: name: $Hoolihan 
name: name: $Hoolihan date: date: amount: amount: $355.55 
Ǥ .
name: $Hoolihan 

Ǥ .
name: $Hoolihan 
date: 
amount: $355.55 


Ǥ .
ϥ쥳ɿ = 0
* 
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout.jp_euc
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Exercise the interactive interface insert using all possible commands.
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
