FHINI0N5.m

FHINI0N5	; ; 11-OCT-1995

	;;5.0;Dietetics;;Oct 11, 1995

	I DSEC F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q	Q

	;;^DIC(111,0,"DD")

	;;=#

	;;^DIC(111,0,"DEL")

	;;=#f

	;;^DIC(111,0,"LAYGO")

	;;=#f

	;;^DIC(111,0,"RD")

	;;=#F

	;;^DIC(111,0,"WR")

	;;=#f

	;;^DIC(111.1,0,"AUDIT")

	;;=@

	;;^DIC(111.1,0,"DD")

	;;=@

	;;^DIC(111.1,0,"DEL")

	;;=@

	;;^DIC(111.1,0,"LAYGO")

	;;=@

	;;^DIC(111.1,0,"RD")

	;;=@

	;;^DIC(111.1,0,"WR")

	;;=@

	;;^DIC(112,0,"DD")

	;;=#

	;;^DIC(112,0,"DEL")

	;;=#f

	;;^DIC(112,0,"LAYGO")

	;;=#f

	;;^DIC(112,0,"RD")

	;;=#F

	;;^DIC(112,0,"WR")

	;;=#f

	;;^DIC(112.2,0,"DD")

	;;=#

	;;^DIC(112.2,0,"DEL")

	;;=#f

	;;^DIC(112.2,0,"LAYGO")

	;;=#f

	;;^DIC(112.2,0,"RD")

	;;=#F

	;;^DIC(112.2,0,"WR")

	;;=#f

	;;^DIC(112.6,0,"DD")

	;;=#

	;;^DIC(112.6,0,"DEL")

	;;=#F

	;;^DIC(112.6,0,"LAYGO")

	;;=#F

	;;^DIC(112.6,0,"RD")

	;;=#F

	;;^DIC(112.6,0,"WR")

	;;=#F

	;;^DIC(113,0,"DD")

	;;=#

	;;^DIC(113,0,"DEL")

	;;=#f

	;;^DIC(113,0,"LAYGO")

	;;=#f

	;;^DIC(113,0,"RD")

	;;=#F

	;;^DIC(113,0,"WR")

	;;=#f

	;;^DIC(113.1,0,"DD")

	;;=#

	;;^DIC(113.1,0,"DEL")

	;;=#f

	;;^DIC(113.1,0,"LAYGO")

	;;=#f

	;;^DIC(113.1,0,"RD")

	;;=#F

	;;^DIC(113.1,0,"WR")

	;;=#f

	;;^DIC(113.2,0,"DD")

	;;=#

	;;^DIC(113.2,0,"DEL")

	;;=#f

	;;^DIC(113.2,0,"LAYGO")

	;;=#f

	;;^DIC(113.2,0,"RD")

	;;=#F

	;;^DIC(113.2,0,"WR")

	;;=#f

	;;^DIC(114,0,"DD")

	;;=#

	;;^DIC(114,0,"DEL")

	;;=#f

	;;^DIC(114,0,"LAYGO")

	;;=#f

	;;^DIC(114,0,"RD")

	;;=#F

	;;^DIC(114,0,"WR")

	;;=#f

	;;^DIC(114.1,0,"DD")

	;;=#

	;;^DIC(114.1,0,"DEL")

	;;=#f

	;;^DIC(114.1,0,"LAYGO")

	;;=#f

	;;^DIC(114.1,0,"RD")

	;;=#F

	;;^DIC(114.1,0,"WR")

	;;=#f

	;;^DIC(114.2,0,"DD")

	;;=#

	;;^DIC(114.2,0,"DEL")

	;;=#f

	;;^DIC(114.2,0,"LAYGO")

	;;=#f

	;;^DIC(114.2,0,"RD")

	;;=#F

	;;^DIC(114.2,0,"WR")

	;;=#f

	;;^DIC(114.3,0,"DD")

	;;=#

	;;^DIC(114.3,0,"DEL")

	;;=#f

	;;^DIC(114.3,0,"LAYGO")

	;;=#f

	;;^DIC(114.3,0,"RD")

	;;=#F

	;;^DIC(114.3,0,"WR")

	;;=#f

	;;^DIC(114.4,0,"DD")

	;;=#

	;;^DIC(114.4,0,"DEL")

	;;=#f

	;;^DIC(114.4,0,"LAYGO")

	;;=#f

	;;^DIC(114.4,0,"RD")

	;;=#F

	;;^DIC(114.4,0,"WR")

	;;=#f

	;;^DIC(115,0,"DD")

	;;=#

	;;^DIC(115,0,"DEL")

	;;=#F

	;;^DIC(115,0,"LAYGO")

	;;=#F

	;;^DIC(115,0,"RD")

	;;=#F

	;;^DIC(115,0,"WR")

	;;=#F

	;;^DD(115.011,4,9)

	;;=@

	;;^DIC(115.2,0,"DD")

	;;=#

	;;^DIC(115.2,0,"DEL")

	;;=#f

	;;^DIC(115.2,0,"LAYGO")

	;;=#f

	;;^DIC(115.2,0,"RD")

	;;=#F

	;;^DIC(115.2,0,"WR")

	;;=#f

	;;^DIC(115.3,0,"DD")

	;;=#

	;;^DIC(115.3,0,"DEL")

	;;=#f

	;;^DIC(115.3,0,"LAYGO")

	;;=#f

	;;^DIC(115.3,0,"RD")

	;;=#F

	;;^DIC(115.3,0,"WR")

	;;=#f

	;;^DIC(115.4,0,"DD")

	;;=#

	;;^DIC(115.4,0,"DEL")

	;;=#f

	;;^DIC(115.4,0,"LAYGO")

	;;=#f

	;;^DIC(115.4,0,"RD")

	;;=#F

	;;^DIC(115.4,0,"WR")

	;;=#f

	;;^DIC(115.5,0,"DD")

	;;=#

	;;^DIC(115.5,0,"DEL")

	;;=#f

	;;^DIC(115.5,0,"LAYGO")

	;;=#f

	;;^DIC(115.5,0,"RD")

	;;=#F

	;;^DIC(115.5,0,"WR")

	;;=#f

	;;^DIC(115.6,0,"DD")

	;;=#

	;;^DIC(115.6,0,"DEL")

	;;=#f

	;;^DIC(115.6,0,"LAYGO")

	;;=#f

	;;^DIC(115.6,0,"RD")

	;;=#F

	;;^DIC(115.6,0,"WR")

	;;=#f

	;;^DIC(115.7,0,"DD")

	;;=#

	;;^DIC(115.7,0,"DEL")

	;;=#f

	;;^DIC(115.7,0,"LAYGO")

	;;=#f

	;;^DIC(115.7,0,"RD")

	;;=#F

	;;^DIC(115.7,0,"WR")

	;;=#f

	;;^DIC(116,0,"DD")

	;;=#

	;;^DIC(116,0,"DEL")

	;;=#f

	;;^DIC(116,0,"LAYGO")

	;;=#f

	;;^DIC(116,0,"RD")

	;;=#F

	;;^DIC(116,0,"WR")

	;;=#f

	;;^DIC(116.1,0,"DD")

	;;=#

	;;^DIC(116.1,0,"DEL")

	;;=#f

	;;^DIC(116.1,0,"LAYGO")

	;;=#f

	;;^DIC(116.1,0,"RD")

	;;=#F

	;;^DIC(116.1,0,"WR")

	;;=#f

	;;^DIC(116.2,0,"DD")

	;;=#

	;;^DIC(116.2,0,"DEL")

	;;=#f

	;;^DIC(116.2,0,"LAYGO")

	;;=#f

	;;^DIC(116.2,0,"RD")

	;;=#F

	;;^DIC(116.2,0,"WR")

	;;=#f

	;;^DIC(116.3,0,"DD")

	;;=#

	;;^DIC(116.3,0,"DEL")

	;;=#f

	;;^DIC(116.3,0,"LAYGO")

	;;=#f

	;;^DIC(116.3,0,"RD")

	;;=#F

	;;^DIC(116.3,0,"WR")

	;;=#f

	;;^DIC(117,0,"DD")

	;;=#

	;;^DIC(117,0,"DEL")

	;;=#F

	;;^DIC(117,0,"LAYGO")

	;;=#F

	;;^DIC(117,0,"RD")

	;;=#F

	;;^DIC(117,0,"WR")

	;;=#F

	;;^DIC(117.1,0,"DD")

	;;=#

	;;^DIC(117.1,0,"DEL")

	;;=#F

	;;^DIC(117.1,0,"LAYGO")

	;;=#F

	;;^DIC(117.1,0,"RD")

	;;=#F

	;;^DIC(117.1,0,"WR")

	;;=#F

	;;^DIC(117.2,0,"DD")

	;;=#

	;;^DIC(117.2,0,"DEL")

	;;=#F

	;;^DIC(117.2,0,"LAYGO")

	;;=#F

	;;^DIC(117.2,0,"RD")

	;;=#F

	;;^DIC(117.2,0,"WR")

	;;=#F

	;;^DIC(117.3,0,"DD")

	;;=#

	;;^DIC(117.3,0,"DEL")

	;;=#f

	;;^DIC(117.3,0,"LAYGO")

	;;=#f

	;;^DIC(117.3,0,"RD")

	;;=#F

	;;^DIC(117.3,0,"WR")

	;;=#f

	;;^DIC(117.4,0,"DD")

	;;=#

	;;^DIC(117.4,0,"DEL")

	;;=#f

	;;^DIC(117.4,0,"LAYGO")

	;;=#f

	;;^DIC(117.4,0,"RD")

	;;=#F

	;;^DIC(117.4,0,"WR")

	;;=#f

	;;^DIC(118,0,"DD")

	;;=#

	;;^DIC(118,0,"DEL")

	;;=#f

	;;^DIC(118,0,"LAYGO")

	;;=#f

	;;^DIC(118,0,"RD")

	;;=#F

	;;^DIC(118,0,"WR")

	;;=#f

	;;^DIC(118.1,0,"DD")

	;;=#

	;;^DIC(118.1,0,"DEL")

	;;=#f

	;;^DIC(118.1,0,"LAYGO")

	;;=#f

	;;^DIC(118.1,0,"RD")

	;;=#F

	;;^DIC(118.1,0,"WR")

	;;=#f

	;;^DIC(118.2,0,"DD")

	;;=#

	;;^DIC(118.2,0,"DEL")

	;;=#f

	;;^DIC(118.2,0,"LAYGO")

	;;=#f

	;;^DIC(118.2,0,"RD")

	;;=#F

	;;^DIC(118.2,0,"WR")

	;;=#f

	;;^DIC(118.3,0,"DD")

	;;=#

	;;^DIC(118.3,0,"DEL")

	;;=#f

	;;^DIC(118.3,0,"LAYGO")

	;;=#f

FHINI0N5  ; ; 11-OCT-1995

 +1       ;;5.0;Dietetics;;Oct 11, 1995

 +2        IF DSEC

               FOR I=1:2

                   SET X=$TEXT(Q+I)

                   IF X=""

                       QUIT 

                   SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

                   SET X=$EXTRACT(X,4,999)

                   IF $ASCII(Y)=126

                       SET I=I+1

                       SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

                   IF $ASCII(Y)=61

                       SET Y=$EXTRACT(Y,2,999)

                   XECUTE NO

                  IF '$TEST

                       SET @X=Y

Q          QUIT 

 +1       ;;^DIC(111,0,"DD")

 +2       ;;=#

 +3       ;;^DIC(111,0,"DEL")

 +4       ;;=#f

 +5       ;;^DIC(111,0,"LAYGO")

 +6       ;;=#f

 +7       ;;^DIC(111,0,"RD")

 +8       ;;=#F

 +9       ;;^DIC(111,0,"WR")

 +10      ;;=#f

 +11      ;;^DIC(111.1,0,"AUDIT")

 +12      ;;=@

 +13      ;;^DIC(111.1,0,"DD")

 +14      ;;=@

 +15      ;;^DIC(111.1,0,"DEL")

 +16      ;;=@

 +17      ;;^DIC(111.1,0,"LAYGO")

 +18      ;;=@

 +19      ;;^DIC(111.1,0,"RD")

 +20      ;;=@

 +21      ;;^DIC(111.1,0,"WR")

 +22      ;;=@

 +23      ;;^DIC(112,0,"DD")

 +24      ;;=#

 +25      ;;^DIC(112,0,"DEL")

 +26      ;;=#f

 +27      ;;^DIC(112,0,"LAYGO")

 +28      ;;=#f

 +29      ;;^DIC(112,0,"RD")

 +30      ;;=#F

 +31      ;;^DIC(112,0,"WR")

 +32      ;;=#f

 +33      ;;^DIC(112.2,0,"DD")

 +34      ;;=#

 +35      ;;^DIC(112.2,0,"DEL")

 +36      ;;=#f

 +37      ;;^DIC(112.2,0,"LAYGO")

 +38      ;;=#f

 +39      ;;^DIC(112.2,0,"RD")

 +40      ;;=#F

 +41      ;;^DIC(112.2,0,"WR")

 +42      ;;=#f

 +43      ;;^DIC(112.6,0,"DD")

 +44      ;;=#

 +45      ;;^DIC(112.6,0,"DEL")

 +46      ;;=#F

 +47      ;;^DIC(112.6,0,"LAYGO")

 +48      ;;=#F

 +49      ;;^DIC(112.6,0,"RD")

 +50      ;;=#F

 +51      ;;^DIC(112.6,0,"WR")

 +52      ;;=#F

 +53      ;;^DIC(113,0,"DD")

 +54      ;;=#

 +55      ;;^DIC(113,0,"DEL")

 +56      ;;=#f

 +57      ;;^DIC(113,0,"LAYGO")

 +58      ;;=#f

 +59      ;;^DIC(113,0,"RD")

 +60      ;;=#F

 +61      ;;^DIC(113,0,"WR")

 +62      ;;=#f

 +63      ;;^DIC(113.1,0,"DD")

 +64      ;;=#

 +65      ;;^DIC(113.1,0,"DEL")

 +66      ;;=#f

 +67      ;;^DIC(113.1,0,"LAYGO")

 +68      ;;=#f

 +69      ;;^DIC(113.1,0,"RD")

 +70      ;;=#F

 +71      ;;^DIC(113.1,0,"WR")

 +72      ;;=#f

 +73      ;;^DIC(113.2,0,"DD")

 +74      ;;=#

 +75      ;;^DIC(113.2,0,"DEL")

 +76      ;;=#f

 +77      ;;^DIC(113.2,0,"LAYGO")

 +78      ;;=#f

 +79      ;;^DIC(113.2,0,"RD")

 +80      ;;=#F

 +81      ;;^DIC(113.2,0,"WR")

 +82      ;;=#f

 +83      ;;^DIC(114,0,"DD")

 +84      ;;=#

 +85      ;;^DIC(114,0,"DEL")

 +86      ;;=#f

 +87      ;;^DIC(114,0,"LAYGO")

 +88      ;;=#f

 +89      ;;^DIC(114,0,"RD")

 +90      ;;=#F

 +91      ;;^DIC(114,0,"WR")

 +92      ;;=#f

 +93      ;;^DIC(114.1,0,"DD")

 +94      ;;=#

 +95      ;;^DIC(114.1,0,"DEL")

 +96      ;;=#f

 +97      ;;^DIC(114.1,0,"LAYGO")

 +98      ;;=#f

 +99      ;;^DIC(114.1,0,"RD")

 +100     ;;=#F

 +101     ;;^DIC(114.1,0,"WR")

 +102     ;;=#f

 +103     ;;^DIC(114.2,0,"DD")

 +104     ;;=#

 +105     ;;^DIC(114.2,0,"DEL")

 +106     ;;=#f

 +107     ;;^DIC(114.2,0,"LAYGO")

 +108     ;;=#f

 +109     ;;^DIC(114.2,0,"RD")

 +110     ;;=#F

 +111     ;;^DIC(114.2,0,"WR")

 +112     ;;=#f

 +113     ;;^DIC(114.3,0,"DD")

 +114     ;;=#

 +115     ;;^DIC(114.3,0,"DEL")

 +116     ;;=#f

 +117     ;;^DIC(114.3,0,"LAYGO")

 +118     ;;=#f

 +119     ;;^DIC(114.3,0,"RD")

 +120     ;;=#F

 +121     ;;^DIC(114.3,0,"WR")

 +122     ;;=#f

 +123     ;;^DIC(114.4,0,"DD")

 +124     ;;=#

 +125     ;;^DIC(114.4,0,"DEL")

 +126     ;;=#f

 +127     ;;^DIC(114.4,0,"LAYGO")

 +128     ;;=#f

 +129     ;;^DIC(114.4,0,"RD")

 +130     ;;=#F

 +131     ;;^DIC(114.4,0,"WR")

 +132     ;;=#f

 +133     ;;^DIC(115,0,"DD")

 +134     ;;=#

 +135     ;;^DIC(115,0,"DEL")

 +136     ;;=#F

 +137     ;;^DIC(115,0,"LAYGO")

 +138     ;;=#F

 +139     ;;^DIC(115,0,"RD")

 +140     ;;=#F

 +141     ;;^DIC(115,0,"WR")

 +142     ;;=#F

 +143     ;;^DD(115.011,4,9)

 +144     ;;=@

 +145     ;;^DIC(115.2,0,"DD")

 +146     ;;=#

 +147     ;;^DIC(115.2,0,"DEL")

 +148     ;;=#f

 +149     ;;^DIC(115.2,0,"LAYGO")

 +150     ;;=#f

 +151     ;;^DIC(115.2,0,"RD")

 +152     ;;=#F

 +153     ;;^DIC(115.2,0,"WR")

 +154     ;;=#f

 +155     ;;^DIC(115.3,0,"DD")

 +156     ;;=#

 +157     ;;^DIC(115.3,0,"DEL")

 +158     ;;=#f

 +159     ;;^DIC(115.3,0,"LAYGO")

 +160     ;;=#f

 +161     ;;^DIC(115.3,0,"RD")

 +162     ;;=#F

 +163     ;;^DIC(115.3,0,"WR")

 +164     ;;=#f

 +165     ;;^DIC(115.4,0,"DD")

 +166     ;;=#

 +167     ;;^DIC(115.4,0,"DEL")

 +168     ;;=#f

 +169     ;;^DIC(115.4,0,"LAYGO")

 +170     ;;=#f

 +171     ;;^DIC(115.4,0,"RD")

 +172     ;;=#F

 +173     ;;^DIC(115.4,0,"WR")

 +174     ;;=#f

 +175     ;;^DIC(115.5,0,"DD")

 +176     ;;=#

 +177     ;;^DIC(115.5,0,"DEL")

 +178     ;;=#f

 +179     ;;^DIC(115.5,0,"LAYGO")

 +180     ;;=#f

 +181     ;;^DIC(115.5,0,"RD")

 +182     ;;=#F

 +183     ;;^DIC(115.5,0,"WR")

 +184     ;;=#f

 +185     ;;^DIC(115.6,0,"DD")

 +186     ;;=#

 +187     ;;^DIC(115.6,0,"DEL")

 +188     ;;=#f

 +189     ;;^DIC(115.6,0,"LAYGO")

 +190     ;;=#f

 +191     ;;^DIC(115.6,0,"RD")

 +192     ;;=#F

 +193     ;;^DIC(115.6,0,"WR")

 +194     ;;=#f

 +195     ;;^DIC(115.7,0,"DD")

 +196     ;;=#

 +197     ;;^DIC(115.7,0,"DEL")

 +198     ;;=#f

 +199     ;;^DIC(115.7,0,"LAYGO")

 +200     ;;=#f

 +201     ;;^DIC(115.7,0,"RD")

 +202     ;;=#F

 +203     ;;^DIC(115.7,0,"WR")

 +204     ;;=#f

 +205     ;;^DIC(116,0,"DD")

 +206     ;;=#

 +207     ;;^DIC(116,0,"DEL")

 +208     ;;=#f

 +209     ;;^DIC(116,0,"LAYGO")

 +210     ;;=#f

 +211     ;;^DIC(116,0,"RD")

 +212     ;;=#F

 +213     ;;^DIC(116,0,"WR")

 +214     ;;=#f

 +215     ;;^DIC(116.1,0,"DD")

 +216     ;;=#

 +217     ;;^DIC(116.1,0,"DEL")

 +218     ;;=#f

 +219     ;;^DIC(116.1,0,"LAYGO")

 +220     ;;=#f

 +221     ;;^DIC(116.1,0,"RD")

 +222     ;;=#F

 +223     ;;^DIC(116.1,0,"WR")

 +224     ;;=#f

 +225     ;;^DIC(116.2,0,"DD")

 +226     ;;=#

 +227     ;;^DIC(116.2,0,"DEL")

 +228     ;;=#f

 +229     ;;^DIC(116.2,0,"LAYGO")

 +230     ;;=#f

 +231     ;;^DIC(116.2,0,"RD")

 +232     ;;=#F

 +233     ;;^DIC(116.2,0,"WR")

 +234     ;;=#f

 +235     ;;^DIC(116.3,0,"DD")

 +236     ;;=#

 +237     ;;^DIC(116.3,0,"DEL")

 +238     ;;=#f

 +239     ;;^DIC(116.3,0,"LAYGO")

 +240     ;;=#f

 +241     ;;^DIC(116.3,0,"RD")

 +242     ;;=#F

 +243     ;;^DIC(116.3,0,"WR")

 +244     ;;=#f

 +245     ;;^DIC(117,0,"DD")

 +246     ;;=#

 +247     ;;^DIC(117,0,"DEL")

 +248     ;;=#F

 +249     ;;^DIC(117,0,"LAYGO")

 +250     ;;=#F

 +251     ;;^DIC(117,0,"RD")

 +252     ;;=#F

 +253     ;;^DIC(117,0,"WR")

 +254     ;;=#F

 +255     ;;^DIC(117.1,0,"DD")

 +256     ;;=#

 +257     ;;^DIC(117.1,0,"DEL")

 +258     ;;=#F

 +259     ;;^DIC(117.1,0,"LAYGO")

 +260     ;;=#F

 +261     ;;^DIC(117.1,0,"RD")

 +262     ;;=#F

 +263     ;;^DIC(117.1,0,"WR")

 +264     ;;=#F

 +265     ;;^DIC(117.2,0,"DD")

 +266     ;;=#

 +267     ;;^DIC(117.2,0,"DEL")

 +268     ;;=#F

 +269     ;;^DIC(117.2,0,"LAYGO")

 +270     ;;=#F

 +271     ;;^DIC(117.2,0,"RD")

 +272     ;;=#F

 +273     ;;^DIC(117.2,0,"WR")

 +274     ;;=#F

 +275     ;;^DIC(117.3,0,"DD")

 +276     ;;=#

 +277     ;;^DIC(117.3,0,"DEL")

 +278     ;;=#f

 +279     ;;^DIC(117.3,0,"LAYGO")

 +280     ;;=#f

 +281     ;;^DIC(117.3,0,"RD")

 +282     ;;=#F

 +283     ;;^DIC(117.3,0,"WR")

 +284     ;;=#f

 +285     ;;^DIC(117.4,0,"DD")

 +286     ;;=#

 +287     ;;^DIC(117.4,0,"DEL")

 +288     ;;=#f

 +289     ;;^DIC(117.4,0,"LAYGO")

 +290     ;;=#f

 +291     ;;^DIC(117.4,0,"RD")

 +292     ;;=#F

 +293     ;;^DIC(117.4,0,"WR")

 +294     ;;=#f

 +295     ;;^DIC(118,0,"DD")

 +296     ;;=#

 +297     ;;^DIC(118,0,"DEL")

 +298     ;;=#f

 +299     ;;^DIC(118,0,"LAYGO")

 +300     ;;=#f

 +301     ;;^DIC(118,0,"RD")

 +302     ;;=#F

 +303     ;;^DIC(118,0,"WR")

 +304     ;;=#f

 +305     ;;^DIC(118.1,0,"DD")

 +306     ;;=#

 +307     ;;^DIC(118.1,0,"DEL")

 +308     ;;=#f

 +309     ;;^DIC(118.1,0,"LAYGO")

 +310     ;;=#f

 +311     ;;^DIC(118.1,0,"RD")

 +312     ;;=#F

 +313     ;;^DIC(118.1,0,"WR")

 +314     ;;=#f

 +315     ;;^DIC(118.2,0,"DD")

 +316     ;;=#

 +317     ;;^DIC(118.2,0,"DEL")

 +318     ;;=#f

 +319     ;;^DIC(118.2,0,"LAYGO")

 +320     ;;=#f

 +321     ;;^DIC(118.2,0,"RD")

 +322     ;;=#F

 +323     ;;^DIC(118.2,0,"WR")

 +324     ;;=#f

 +325     ;;^DIC(118.3,0,"DD")

 +326     ;;=#

 +327     ;;^DIC(118.3,0,"DEL")

 +328     ;;=#f

 +329     ;;^DIC(118.3,0,"LAYGO")

 +330     ;;=#f