DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦c037be4b8⟧ TextFile

    Length: 4322 (0x10e2)
    Types: TextFile
    Notes: UNIX file
    Names: »ss_graph«

Derivation

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

TextFile

#help
  KALKULATION - GRAFIK

  Udfyldelse af formularen:

  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.
))


:II+ COMPILED

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

:SCREEN 
screen lines :	6
2	4	1	▶1b◀[DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAF
2	5	1	▶1b◀[B▶1b◀  Graf type:                                Betegnelse p▶86◀ r▶91◀kke:         ▶1b◀[B
2	6	1	▶1b◀[B▶1b◀                                            Betegnelse p▶86◀ kolonne:       ▶1b◀[B
2	7	1	▶1b◀[B▶1b◀  Graf bredde:                              Skalering:                   ▶1b◀[B
2	8	1	▶1b◀[B▶1b◀       l▶91◀ngde:                              fra            til           ▶1b◀[B
2	9	1	▶1b◀[B▶1b◀  Grupper efter:                                                         ▶1b◀[B
2	10	1	▶1b◀[JAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH

:LABELS
Label lines :	9
i	labx	 laby	 lpage	 llen	 itype	 itbnum	 iprompt	 idefval	 label	 width
CHARS:	charset	 reply	 prompt	 wrap
DEC  :	dec_pl	 min	max
DATES:No output
0	20	5	1	22	C	0	Tryk <MELLEMRUM> for at v▶91◀lge	$(1)	TYPE	0
CHAR	 	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	0	-1
1	70	5	1	3	C	0	Tryk <MELLEMRUM> for at v▶91◀lge	$(5)	ROW	0
CHAR	 	NEJ!JA	0	-1
2	20	6	1	22	C	0	Tryk <MELLEMRUM> for at v▶91◀lge		OPTION	0
CHAR	 	Graftekst ved siden!Ingen graftekst!Graftekst under	0	-1
3	70	6	1	3	C	0	Tryk <MELLEMRUM> for at v▶91◀lge	$(6)	COL	0
CHAR	 	NEJ!JA	0	-1
4	20	7	1	3	N	0	Angiv bredde i antal tegn (brug evt. <CTRL> c til at slette)	$(2)	WID	0
DEC	-1	10	132
5	70	7	1	3	C	0	Tryk <MELLEMRUM> for at v▶91◀lge	$(7)	LIM	0
CHAR	 	NEJ!JA	0	-1
6	20	8	1	3	N	0	Angiv l▶91◀ngde i antal linier (brug evt. <CTRL> c til at slette)	$(3)	LEN	0
DEC	-1	5	132
7	51	8	1	7	N	0	V▶91◀rdien bruges kun ved visse graftyper	$(8)	LOW	0
DEC	-1	0	0
8	66	8	1	7	N	0	V▶91◀rdien bruges kun ved visse graftyper	$(9)	HIGH	0
DEC	-1	0	0
9	20	9	1	7	C	0		$(4)	GROUPBY	0
CHAR	 	R▶92◀KKE!KOLONNE	0	-1

:MAPS
Map lines :	6
i	type	label	compar	data	map to
0	10	$(HIGH)	5	$(LOW)	
1	50	$(HIGH)	0	endif	
2	10	$(LIM)	1	JA	
3	50	$(LIMITS)	0	DO	
4	20		0		
5	50	$(LIMITS)	0	DO NOT	
6	30		0		

:COMMANDS
Hold	pause	clear	reset:
0	0	0	0
Command:	45
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

:END