cat > script <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
let pagelength = 20;
let value = 224;

let mypic = "$**@,**9V.99";
print mypic, newline;
print column 10 , "Value is '", value, "'", column 40, " Picture is '",
	value picture mypic, "'", newline;
let value = 1224;
print column 10, "Value is '", value, "'", column 40, " Picture is '",
	value picture mypic, "'", newline;
let value = 11224.7;
print column 10, "Value is '", value, "'", column 40, " Picture is '",
	value picture mypic, "'", newline;
let value = ".7";
print column 10, "Value is '", mypic, "'", column 40, " Picture is '",
	value picture "$**@,**9V.99", "'", newline;
let value = "22";
let mypic = "G$FF99V.99";
print mypic, newline;
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let value = "0004.8";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let value = "123.45";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let value = "1234.56";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let mypic = "SZZZ";
print mypic, newline;
let value = "-123";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let value = "123";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let value = "-012";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let value = "012";
print column 10, "Value is '", value, "'", column 40,  " Picture is '",
     value picture mypic, "'", newline;
let mypic = "-ZZZ";
print mypic, newline;
let value = "-123";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, newline;
let value = "123";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let value = "-012";
newline;
column 23;
newline;
column 54;
newline;
column 65;
newline;
print column 10, "Value is '", value, "'", column 40, " Picture is '", 
      value picture mypic, "'", newline;
column 22;
newline;
let value = "012";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let mypic = "G$N999";
print mypic, newline;
let value = "-123";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let value = "123";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let value = "225";
let mypic = "G$FFF\G";
print mypic, newline;
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let value = "22";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let value = "4";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
let mypic = "-ZZV99";
print mypic, newline;
let value = "20.6";
print column 10, "Value is '", value, "'", column 40, " Picture is  '",
       value picture mypic, "'", newline;
let value = "18.23";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let value = "4.02";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let mypic = "NFF";
print mypic, newline;
let value = "-23";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let value = "30";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value  picture mypic, "'", newline;
let value = "0.59";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let value = "6.28";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let value = "14.20";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let mypic = "S99VZZ";
print mypic, newline;
let value = "-33.56";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let value = "12.23";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let value = "-05.03";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let mypic = "Z9FV**";
print mypic, newline;
let value = "123.0";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let value = "56.20";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let value = "-32.7";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let mypic = "SFF99";
print mypic, newline;
let value = "462";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let value = "-3042";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let value = "3202";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
       value picture mypic, "'", newline;
let mypic = "G$FFF\G";
print mypic, newline;
let value = "099";
print column 10, "Value is '", value, "'", column 40, " Picture is '",
      value picture mypic, "'", newline;
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 755 script
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
$**@,**9V.99
         Value is '224'                 Picture is '$***224.00'
         Value is '1224'                Picture is '$*1,224.00'
         Value is '11224.7'             Picture is '$11,224.70'
         Value is '$**@,**9V.99'        Picture is '$*****0.70'
G$FF99V.99
         Value is '22'                  Picture is '  $22.00'
         Value is '0004.8'              Picture is '  $04.80'
         Value is '123.45'              Picture is ' $123.45'
         Value is '1234.56'             Picture is '$1234.56'
SZZZ
         Value is '-123'                Picture is '-123'
         Value is '123'                 Picture is '+123'
         Value is '-012'                Picture is '- 12'
         Value is '012'                 Picture is '+ 12'
-ZZZ
         Value is '-123'                Picture is '-123
         Value is '123'                 Picture is ' 123'




         Value is '-012'                Picture is '- 12'

         Value is '012'                 Picture is '  12'
G$N999
         Value is '-123'                Picture is '$-123'
         Value is '123'                 Picture is ' $123'
G$FFF\G
         Value is '225'                 Picture is '$225G'
         Value is '22'                  Picture is ' $22G'
         Value is '4'                   Picture is '  $4G'
-ZZV99
         Value is '20.6'                Picture is  ' 2060'
         Value is '18.23'               Picture is ' 1823'
         Value is '4.02'                Picture is '  402'
NFF
         Value is '-23'                 Picture is '-23'
         Value is '30'                  Picture is '30'
         Value is '0.59'                Picture is '1'
         Value is '6.28'                Picture is '6'
         Value is '14.20'               Picture is '14'
S99VZZ
         Value is '-33.56'              Picture is '-3356'
         Value is '12.23'               Picture is '+1223'
         Value is '-05.03'              Picture is '-0503'
Z9FV**
         Value is '123.0'               Picture is '12300'
         Value is '56.20'               Picture is ' 5620'
         Value is '-32.7'               Picture is ' 3270'
SFF99
         Value is '462'                 Picture is '+462'
         Value is '-3042'               Picture is '-3042'
         Value is '3202'                Picture is '+3202'
G$FFF\G
         Value is '099'                 Picture is ' $99G'




+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
test a variety of pictures and values
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
