@AWFERFRMTd##DEMO PROG - FORMAT SUBROUTINEn-;@, A -SETUP SUBROUTINEx"(}ϠԠ"('(#(NUMBER TO BE FORMATTED:'(TOTAL FIELD WIDTH:G%(NUMBER OF FRACTIONAL DIGITS:)1(B:,=6-G Ap 6-A:, 6.=:,2B:, @(67B:,%@,. 2 A<6-?:C:,