DVBCLTR2 ;ALB/GTS-557/THM-SET-UP LETTERS ; 9/6/90 6:47 AM
;;2.7;AMIE;;Apr 10, 1995
F Z=1:1 S X=$P($T(ZZ+Z),";;",2) Q:X="" S ^TMP("DVBCLTR",$J,$E(X,1))=$P(X,"=",2)
Q
ZZ ;;
;;0=00099999000909000900900900900900090900099999
;;1=000000000009000090009999999009
;;2=00990009000909000900900900900900900900900099
;;3=00090009000900000900900900900900900900099099
;;4=00009900000009090000009009000999999900009
;;5=000900999009000909009000909009000909000999009
;;6=000999900009009090009009009009009009000990009
;;7=000000009009990009000009009000000909000000099
;;8=00099099000900900900900900900900900900099099
;;9=00900099000900900900900900900090900900009999
;; =
;;!=000000000000000000009099999
;;"=000000000000000011000000000000000011
;;#=000010100001111111000010100001111111000010100
;;$= 2 2 2 2 2 2222222 2 2 2 2 2
;;'=000000000000000000000000999
;;(=000099900000900090009000009
;;)=0000000000000000000090000090009000900000999
;;+=000001000000001000000111110000001000000001
;;,=0000000009000000000999
;;-=000001000000001000000001000000001000000001
;;.=0000000000000000000099
;;/=000100000000010000000001000000000100000000010
;;:=0000000000000000000000909
;;;=0000000009000000000999009
;;==000010100000010100000010100000010100000010100
;;?=00000009000000000900909900900000090900000009
;;A=0099999000000900900000900090000900900099999
;;B=00999999900900900900900900900900900900099099
;;C=00099999000900000900900000900900000900090009
;;D=00999999900900000900900000900900000900099999
;;E=009999999009009009009009009009009009009000009
;;F=009999999000009009000009009000009009000000009
;;G=000999990009000009009000009009090009009990009
;;H=009999999000009000000009000000009000009999999
;;I=000000000009000009009999999009000009
;;J=000900000009000000009000000009000000000999999
;;K=009999999000009000000090900000900090009000009
;;L=009999999009000000009000000009000000009
;;M=009999999000000090000009900000000090009999999
;;N=009999999000000900000009000000090000009999999
;;O=00099999000900000900900000900900000900099999
;;P=00999999900000900900000900900000900900000099
;;Q=00099999000900000900909000900090000900909999
;;R=00999999900000900900009900900090900900900099
;;S=00090099000900900900900900900900900900099009
;;T=000000009000000009009999999000000009000000009
;;U=000999999009000000009000000009000000000999999
;;V=000099999000900000009000000000900000000099999
;;W=009999999000900000000099000000900000009999999
;;X=009900099000090900000009000000090900009900099
;;Y=000000099000000900009999000000000900000000099
;;Z=009900009009090009009009009009000909009000099
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCLTR2 2684 printed Oct 16, 2024@17:45:38 Page 2
DVBCLTR2 ;ALB/GTS-557/THM-SET-UP LETTERS ; 9/6/90 6:47 AM
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 FOR Z=1:1
SET X=$PIECE($TEXT(ZZ+Z),";;",2)
if X=""
QUIT
SET ^TMP("DVBCLTR",$JOB,$EXTRACT(X,1))=$PIECE(X,"=",2)
+3 QUIT
ZZ ;;
+1 ;;0=00099999000909000900900900900900090900099999
+2 ;;1=000000000009000090009999999009
+3 ;;2=00990009000909000900900900900900900900900099
+4 ;;3=00090009000900000900900900900900900900099099
+5 ;;4=00009900000009090000009009000999999900009
+6 ;;5=000900999009000909009000909009000909000999009
+7 ;;6=000999900009009090009009009009009009000990009
+8 ;;7=000000009009990009000009009000000909000000099
+9 ;;8=00099099000900900900900900900900900900099099
+10 ;;9=00900099000900900900900900900090900900009999
+11 ;; =
+12 ;;!=000000000000000000009099999
+13 ;;"=000000000000000011000000000000000011
+14 ;;#=000010100001111111000010100001111111000010100
+15 ;;$= 2 2 2 2 2 2222222 2 2 2 2 2
+16 ;;'=000000000000000000000000999
+17 ;;(=000099900000900090009000009
+18 ;;)=0000000000000000000090000090009000900000999
+19 ;;+=000001000000001000000111110000001000000001
+20 ;;,=0000000009000000000999
+21 ;;-=000001000000001000000001000000001000000001
+22 ;;.=0000000000000000000099
+23 ;;/=000100000000010000000001000000000100000000010
+24 ;;:=0000000000000000000000909
+25 ;;;=0000000009000000000999009
+26 ;;==000010100000010100000010100000010100000010100
+27 ;;?=00000009000000000900909900900000090900000009
+28 ;;A=0099999000000900900000900090000900900099999
+29 ;;B=00999999900900900900900900900900900900099099
+30 ;;C=00099999000900000900900000900900000900090009
+31 ;;D=00999999900900000900900000900900000900099999
+32 ;;E=009999999009009009009009009009009009009000009
+33 ;;F=009999999000009009000009009000009009000000009
+34 ;;G=000999990009000009009000009009090009009990009
+35 ;;H=009999999000009000000009000000009000009999999
+36 ;;I=000000000009000009009999999009000009
+37 ;;J=000900000009000000009000000009000000000999999
+38 ;;K=009999999000009000000090900000900090009000009
+39 ;;L=009999999009000000009000000009000000009
+40 ;;M=009999999000000090000009900000000090009999999
+41 ;;N=009999999000000900000009000000090000009999999
+42 ;;O=00099999000900000900900000900900000900099999
+43 ;;P=00999999900000900900000900900000900900000099
+44 ;;Q=00099999000900000900909000900090000900909999
+45 ;;R=00999999900000900900009900900090900900900099
+46 ;;S=00090099000900900900900900900900900900099009
+47 ;;T=000000009000000009009999999000000009000000009
+48 ;;U=000999999009000000009000000009000000000999999
+49 ;;V=000099999000900000009000000000900000000099999
+50 ;;W=009999999000900000000099000000900000009999999
+51 ;;X=009900099000090900000009000000090900009900099
+52 ;;Y=000000099000000900009999000000000900000000099
+53 ;;Z=009900009009090009009009009009000909009000099
