| [613] | 1 | XLFLTR ;SLC/RWF- PRINT BIG LETTERS ;7/11/94 11:18
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | EN(STR,CNT) ;string to print, repeat count
|
|---|
| 4 | I '$D(^XTMP("XLFLTR",1,"A")) D ^XLFLTR1
|
|---|
| 5 | N %B,%C,%CNT,%I,%R,%S,%X,%Y
|
|---|
| 6 | B1 S STR=$E(STR,1,6),CNT=$G(CNT,1),%B=$E(" ",1,IOM\36),%S=$E("XXXXX",1,IOM\36)
|
|---|
| 7 | S STR=$$UP^XLFSTR(STR)
|
|---|
| 8 | I STR'?1.6UNP S STR=$TR(STR,$C(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31))
|
|---|
| 9 | F %CNT=1:1:CNT D
|
|---|
| 10 | . W !
|
|---|
| 11 | . F %R=9:-1:1 W ! F %I=1:1:$L(STR) S %X=$G(^XTMP("XLFLTR",1,$E(STR,%I))) W " " F %C=1:1:5 W $S($E(%X,(%C-1*9+%R)):%S,1:%B)
|
|---|
| 12 | . Q
|
|---|
| 13 | Q
|
|---|
