| 1 | XLFLTR1 ;SLC/DCM- SET-UP LETTERS ;7/11/94 11:19 ;
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | N X,Z S ^XTMP("XLFLTR",0)=$$HTFM^XLFDT($H+7)
|
|---|
| 4 | F Z=1:1 S X=$P($T(ZZ+Z),";;",2) Q:X="" S ^XTMP("XLFLTR",1,$E(X,1))=$P(X,"=",2)
|
|---|
| 5 | Q
|
|---|
| 6 | ZZ ;;
|
|---|
| 7 | ;;0=00099999000909000900900900900900090900099999
|
|---|
| 8 | ;;1=000000000009000090009999999009
|
|---|
| 9 | ;;2=00990009000909000900900900900900900900900099
|
|---|
| 10 | ;;3=00090009000900000900900900900900900900099099
|
|---|
| 11 | ;;4=00009900000009090000009009000999999900009
|
|---|
| 12 | ;;5=000900999009000909009000909009000909000999009
|
|---|
| 13 | ;;6=000999900009009090009009009009009009000990009
|
|---|
| 14 | ;;7=000000009009990009000009009000000909000000099
|
|---|
| 15 | ;;8=00099099000900900900900900900900900900099099
|
|---|
| 16 | ;;9=00900099000900900900900900900090900900009999
|
|---|
| 17 | ;; =
|
|---|
| 18 | ;;!=000000000000000000009099999
|
|---|
| 19 | ;;"=000000000000000011000000000000000011
|
|---|
| 20 | ;;#=000010100001111111000010100001111111000010100
|
|---|
| 21 | ;;$= 2 2 2 2 2 2222222 2 2 2 2 2
|
|---|
| 22 | ;;'=000000000000000000000000999
|
|---|
| 23 | ;;(=000099900000900090009000009
|
|---|
| 24 | ;;)=0000000000000000000090000090009000900000999
|
|---|
| 25 | ;;+=000001000000001000000111110000001000000001
|
|---|
| 26 | ;;,=0000000009000000000999
|
|---|
| 27 | ;;-=000001000000001000000001000000001000000001
|
|---|
| 28 | ;;.=0000000000000000000099
|
|---|
| 29 | ;;/=000100000000010000000001000000000100000000010
|
|---|
| 30 | ;;:=0000000000000000000000909
|
|---|
| 31 | ;;;=0000000009000000000999009
|
|---|
| 32 | ;;=000010100000010100000010100000010100000010100
|
|---|
| 33 | ;;?=00000009000000000900909900900000090900000009
|
|---|
| 34 | ;;A=0099999000000900900000900090000900900099999
|
|---|
| 35 | ;;B=00999999900900900900900900900900900900099099
|
|---|
| 36 | ;;C=00099999000900000900900000900900000900090009
|
|---|
| 37 | ;;D=00999999900900000900900000900900000900099999
|
|---|
| 38 | ;;E=009999999009009009009009009009009009009000009
|
|---|
| 39 | ;;F=009999999000009009000009009000009009000000009
|
|---|
| 40 | ;;G=000999990009000009009000009009090009009990009
|
|---|
| 41 | ;;H=009999999000009000000009000000009000009999999
|
|---|
| 42 | ;;I=000000000009000009009999999009000009
|
|---|
| 43 | ;;J=000900000009000000009000000009000000000999999
|
|---|
| 44 | ;;K=009999999000009000000090900000900090009000009
|
|---|
| 45 | ;;L=009999999009000000009000000009000000009
|
|---|
| 46 | ;;M=009999999000000090000009900000000090009999999
|
|---|
| 47 | ;;N=009999999000000900000009000000090000009999999
|
|---|
| 48 | ;;O=00099999000900000900900000900900000900099999
|
|---|
| 49 | ;;P=00999999900000900900000900900000900900000099
|
|---|
| 50 | ;;Q=00099999000900000900909000900090000900909999
|
|---|
| 51 | ;;R=00999999900000900900009900900090900900900099
|
|---|
| 52 | ;;S=00090099000900900900900900900900900900099009
|
|---|
| 53 | ;;T=000000009000000009009999999000000009000000009
|
|---|
| 54 | ;;U=000999999009000000009000000009000000000999999
|
|---|
| 55 | ;;V=000099999000900000009000000000900000000099999
|
|---|
| 56 | ;;W=009999999000900000000099000000900000009999999
|
|---|
| 57 | ;;X=009900099000090900000009000000090900009900099
|
|---|
| 58 | ;;Y=000000099000000900009999000000000900000000099
|
|---|
| 59 | ;;Z=009900009009090009009009009009000909009000099
|
|---|
