DataMuseum.dk

top - metrics - download

    Length: 5190 (0x1446)
    Types: TextFile
    Notes: UNIX file
    Names: »ss_graph«

└─⟦c93a30372⟧ Bits:30004169/disk3.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦c93a30372⟧ UNIX Filesystem
    └─⟦this⟧ »up/new/usr/UAP/ufill/usrc/ss_graph« 

TextFile

V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..
:TITLE
K A L K U L A T I O N - G R A F I K

:SCREEN
  DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF@@
  [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
  B Graf type:     [TYPE__________________]   Betegnelse p▶86◀ r▶91◀kke:   [ROW] B@@
  [                                                                        [
  B                [OPTION________________]   Betegnelse p▶86◀ kolonne: [COL] B@@
  [                                                                        [
  B Graf bredde:   [WID]                      Skalering:             [LIM] B@@
  [                                                                        [
  B      l▶91◀ngde:   [LEN]                      fra [LOW____]  til [HIGH___] B@@
  [                                                                        [
  B Grupper efter: [GROUPBY]                                               B@@
  [                                                                        [
  JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH@@
  [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
:LABELS
TYPE    = type char, default = $(1), reply =
"S▶9d◀JLEGRAF lodret\
!S▶9d◀JLEGRAF vandret\
!AKK. S▶9d◀JLEGRAF lodret\
!AKK. S▶9d◀JLEGRAF vandret\
!LINIEGRAF\
!PUNKT DIAGRAM\
!MIN - MAX GRAF\
!LAGKAGE DIAGRAM",
         prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";

WID     = type dec, default = 60, minimum = 10, maximum = 132, prompt =
        "Angiv bredde i antal tegn (brug evt. <CTRL> c til at slette)",
        default = $(2);

LEN     = type dec, default = 16, minimum =  5, maximum = 132, prompt =
        "Angiv l▶91◀ngde i antal linier (brug evt. <CTRL> c til at slette)",
        default = $(3);

GROUPBY = type char, reply "R▶92◀KKE!KOLONNE", default = $(4);

ROW     = type char, reply = "NEJ!JA", default = $(5),
         prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";

COL     = type char, reply = "NEJ!JA", default = $(6),
         prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";

LIM     = type char, reply = "NEJ!JA", default = $(7),
         prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";

LOW     = type dec, default = 0,  default = $(8),
        prompt = "V▶91◀rdien bruges kun ved visse graftyper";

HIGH    = type dec, default = 1000,  default = $(9),
        prompt = "V▶91◀rdien bruges kun ved visse graftyper";

OPTION  = type char, reply =
"Graftekst ved siden\
!Ingen graftekst\
!Graftekst under",
         prompt = "Tryk <MELLEMRUM> for at v▶91◀lge";

:MAPS
if $(HIGH) <= $(LOW)
   set $(HIGH)
endif

if $(LIM) = "JA"
   set $(LIMITS) "DO"
else
   set $(LIMITS) "DO NOT"
endif

:COMMANDS
TYPE='$(TYPE)'          export TYPE
WID='$(WID)'            export WID
LEN='$(LEN)'            export LEN
GROUPBY='$(GROUPBY)'    export GROUPBY
ROW='$(ROW)'            export ROW
COL='$(COL)'            export COL
LIMITS='$(LIMITS)'      export LIMITS
LOW='$(LOW)'            export LOW
HIGH='$(HIGH)'          export HIGH
OPTION='$(OPTION)'      export OPTION

case "$TYPE" in
   "S▶9d◀JLEGRAF lodret"       ) TYPE=V_BAR;;
   "S▶9d◀JLEGRAF vandret"      ) TYPE=H_BAR;;
   "AKK. S▶9d◀JLEGRAF lodret"  ) TYPE=VS_BAR;;
   "AKK. S▶9d◀JLEGRAF vandret" ) TYPE=HS_BAR;;
   "LINIEGRAF"              ) TYPE=LINE;;
   "PUNKT DIAGRAM"          ) TYPE=SCATTER;;
   "LAGKAGE DIAGRAM"        ) TYPE=PIE;;
                          * ) : "MIN - MAX GRAF"
                              TYPE=MAXMIN;;
esac

case "$GROUPBY" in
   R▶92◀KKE ) GROUPBY=r;;
       * ) : COLUMN
           GROUPBY=k;;
esac

case "$ROW" in
    JA ) ROW=r;;
     * ) ROW=;;
esac

case "$COL" in
    JA ) COL=k;;
     * ) COL=;;
esac

case "$LIMITS" in
 "DO NOT" ) LIMITS=;;
        * ) LIMITS="{}gr lim $LOW $HIGH";;
esac

case "$OPTION" in
 "Ingen graftekst"  ) OPTION="{}gr vlg K";;
 "Graftekst under"  ) OPTION="{}gr vlg U";;
                  * ) OPTION=;;
esac

echo "gr fo $TYPE{}gr bred $WID{}gr lang $LEN{}gr grup $GROUPBY\
{}gr bet $ROW $COL$LIMITS$OPTION{}"
exit 0

..V.....T.......T.......T.......T.......T.......T.......T.......T.......T...H
:HELP
  KALKULATION - GRAFIK

  Udfyldelse af formularen:

..V.....T.............H.V.......T.......T.......T.......T.......T.......T...H
  Graf type             V▶91◀lg den ▶9b◀nskede graftype med <MELLEMRUM>.

  Graf bredde           Angiv graf bredde - standard bredde er 60 tegn.

  L▶91◀ngde                Angiv graf l▶91◀ngde - standard l▶91◀ngde er 16 linier.

  Grupper efter         Tryk <MELLEMRUM> for KOLONNE, hvis data ikke skal
                        grupperes efter r▶91◀kke.

  Betegnelse p▶86◀ r▶91◀kke   Hvis den f▶9b◀rste r▶91◀kke i dataomr▶86◀det skal bruges som
                        r▶91◀kkebetegnelse, tryk <MELLEMRUM> for JA.

  Betegnelse p▶86◀ kolonne Hvis den f▶9b◀rste kolonne i dataomr▶86◀det skal bruges som
                        kolonnebetegnelse, tryk <MELLEMRUM> for JA.

  Skalering             Hvis der ▶9b◀nskes angivelse af grafens skalering,
                        trykkes <MELLEMRUM> for JA, og derefter angives:

  fra                   det laveste punkt i grafen.

  til                   det h▶9b◀jeste punkt i grafen.