;
;	BAUE EINE LIBRARY FUER DIE PLOTTERROUTINEN,
;	DIE RAUMLICHE DARSTELLUNGEN UNTERSTUETZEN.
;
;	THD, DEN 10.3.1978  KLAUS BERNWARD GRAEBER
;
.ENABLE SUBSTITUTION
.ASKS SDS AUF WELCHEM LAUFWERK HABEN SIE DIE SOURCES (N)
.ASKS LDS AUF WELCHE PLATTE SOLL DIE LIBRARY GEBRACHT WERDEN (N)
.ASKS LUI UNTER WELCHEM UIC SOLL DIE LIBRARY GESPEICHERT WERDEN (XX,YY)
;
;	DER F4PTRAN IV PLUS COMPILER ENTHAELT IM GEGENSATZ ZUM
;	F4PTRAN IV COMPILER DIE HYPERBOLISCHEN FUNKTIONEN "SINH"
;	UND "COSH" IN DER LIBRARY DES SYSTEMS BEREIT. WENN SIE ALSO
;	DEN STANDARD-F4PTRAN IV COMPILER VERWENDEN, MUESSEN SIE
;	DIESE FUNKTIONEN IN DIE PLOTTERLIBRARY EINFUEGEN (=Y) .
;
.ASK CFU SOLLEN DIE HYPERBOLISCHEN FUNKTIONEN IN DIE LIBRARY
;
;	UEBERSETZE DIE LIBRARY MODULE
;
.IFF CFU .GOTO 10
F4P SY'SDS':SINH=SY'SDS':SINH
F4P SY'SDS':COSH=SY'SDS':COSH
.10:
F4P SY'SDS':CARG=SY'SDS':CARG
F4P SY'SDS':D13SP=SY'SDS':D13SP
F4P SY'SDS':KONIT=SY'SDS':KONIT
F4P SY'SDS':KONNC=SY'SDS':KONNC
F4P SY'SDS':KONRE=SY'SDS':KONRE
F4P SY'SDS':KONSA=SY'SDS':KONSA
F4P SY'SDS':KONSC=SY'SDS':KONSC
F4P SY'SDS':KONSK=SY'SDS':KONSK
F4P SY'SDS':KONXV=SY'SDS':KONXV
F4P SY'SDS':PLT00=SY'SDS':PLT00
F4P SY'SDS':PLTAX=SY'SDS':PLTAX
F4P SY'SDS':PLTBH=SY'SDS':PLTBH
F4P SY'SDS':PLTBO=SY'SDS':PLTBO
F4P SY'SDS':PLTBV=SY'SDS':PLTBV
F4P SY'SDS':PLTCA=SY'SDS':PLTCA
F4P SY'SDS':PLTCI=SY'SDS':PLTCI
F4P SY'SDS':PLTEJ=SY'SDS':PLTEJ
F4P SY'SDS':PLTEL=SY'SDS':PLTEL
F4P SY'SDS':PLTEV=SY'SDS':PLTEV
F4P SY'SDS':PLTFI=SY'SDS':PLTFI
F4P SY'SDS':PLTFM=SY'SDS':PLTFM
F4P SY'SDS':PLTFR=SY'SDS':PLTFR
F4P SY'SDS':PLTHP=SY'SDS':PLTHP
F4P SY'SDS':PLTIL=SY'SDS':PLTIL
F4P SY'SDS':PLTIR=SY'SDS':PLTIR
F4P SY'SDS':PLTKB=SY'SDS':PLTKB
F4P SY'SDS':PLTKC=SY'SDS':PLTKC
F4P SY'SDS':PLTKO=SY'SDS':PLTKO
F4P SY'SDS':PLTKP=SY'SDS':PLTKP
F4P SY'SDS':PLTKX=SY'SDS':PLTKX
F4P SY'SDS':PLTKY=SY'SDS':PLTKY
F4P SY'SDS':PLTLH=SY'SDS':PLTLH
F4P SY'SDS':PLTMA=SY'SDS':PLTMA
F4P SY'SDS':PLTMC=SY'SDS':PLTMC
F4P SY'SDS':PLTME=SY'SDS':PLTME
F4P SY'SDS':PLTMS=SY'SDS':PLTMS
F4P SY'SDS':PLTMT=SY'SDS':PLTMT
F4P SY'SDS':PLTOR=SY'SDS':PLTOR
F4P SY'SDS':PLTOV=SY'SDS':PLTOV
F4P SY'SDS':PLTPO=SY'SDS':PLTPO
F4P SY'SDS':PLTPV=SY'SDS':PLTPV
F4P SY'SDS':PLTQ1=SY'SDS':PLTQ1
F4P SY'SDS':PLTQ2=SY'SDS':PLTQ2
F4P SY'SDS':PLTQ3=SY'SDS':PLTQ3
F4P SY'SDS':PLTQ4=SY'SDS':PLTQ4
F4P SY'SDS':PLTRG=SY'SDS':PLTRG
F4P SY'SDS':PLTRH=SY'SDS':PLTRH
F4P SY'SDS':PLTRI=SY'SDS':PLTRI
F4P SY'SDS':PLTRV=SY'SDS':PLTRV
F4P SY'SDS':PLTSE=SY'SDS':PLTSE
F4P SY'SDS':PLTSP=SY'SDS':PLTSP
F4P SY'SDS':PLTSS=SY'SDS':PLTSS
F4P SY'SDS':PLTSV=SY'SDS':PLTSV
F4P SY'SDS':PLTSW=SY'SDS':PLTSW
F4P SY'SDS':PLTTG=SY'SDS':PLTTG
F4P SY'SDS':PLTTH=SY'SDS':PLTTH
F4P SY'SDS':PLTTP=SY'SDS':PLTTP
F4P SY'SDS':PLTTV=SY'SDS':PLTTV
F4P SY'SDS':PLTUR=SY'SDS':PLTUR
F4P SY'SDS':PLTWV=SY'SDS':PLTWV
F4P SY'SDS':VISBO=SY'SDS':VISBO
F4P SY'SDS':VISDC=SY'SDS':VISDC
F4P SY'SDS':VISDO=SY'SDS':VISDO
F4P SY'SDS':VISDS=SY'SDS':VISDS
F4P SY'SDS':VISES=SY'SDS':VISES
F4P SY'SDS':VISHH=SY'SDS':VISHH
F4P SY'SDS':VISHO=SY'SDS':VISHO
F4P SY'SDS':VISLI=SY'SDS':VISLI
F4P SY'SDS':VISNH=SY'SDS':VISNH
F4P SY'SDS':VISNP=SY'SDS':VISNP
F4P SY'SDS':VISPS=SY'SDS':VISPS
F4P SY'SDS':VISRB=SY'SDS':VISRB
F4P SY'SDS':VISRS=SY'SDS':VISRS
F4P SY'SDS':VISSL=SY'SDS':VISSL
F4P SY'SDS':VISSP=SY'SDS':VISSP
F4P SY'SDS':VISSS=SY'SDS':VISSS
F4P SY'SDS':VISTR=SY'SDS':VISTR
F4P SY'SDS':VISTS=SY'SDS':VISTS
F4P SY'SDS':VISWS=SY'SDS':VISWS
;
;	BRING DIE MODULE IN DIE LIBRARY
;
PIP SY'LDS':['LUI']P3DLIB.OLB;*/DE
LBR SY'LDS':['LUI']P3DLIB.OLB/CR
LBR SY'LDS':['LUI']P3DLIB=SY'SDS':CARG,KONIT,KONNC,KONRE,KONSA,KONSC,KONSK
LBR SY'LDS':['LUI']P3DLIB=SY'SDS':KONXV,PLT00,PLTAX,PLTBH,PLTBO,PLTBV,PLTCA
LBR SY'LDS':['LUI']P3DLIB=SY'SDS':PLTCI,PLTEL,PLTEJ,PLTEV,PLTFI,PLTFM,PLTFR
LBR SY'LDS':['LUI']P3DLIB=SY'SDS':PLTHP,PLTIL,PLTIR,PLTKB,PLTKC,PLTKO,PLTKP
LBR SY'LDS':['LUI']P3DLIB=SY'SDS':PLTKX,PLTKY,PLTLH,PLTMA,PLTMC,PLTME,PLTMS
LBR SY'LDS':['LUI']P3DLIB=SY'SDS':PLTMT,PLTOR,PLTPO,PLTPV,PLTQ1,PLTQ2,PLTQ3
LBR SY'LDS':['LUI']P3DLIB=SY'SDS':PLTQ4,PLTRG,PLTRH,PLTRI,PLTRV,PLTSE,PLTSP
LBR SY'LDS':['LUI']P3DLIB=SY'SDS':PLTSS,PLTSV,PLTSW,PLTTG,PLTTH,PLTTP,PLTTV
LBR SY'LDS':['LUI']P3DLIB=SY'SDS':PLTUR,VISBO,VISDC,VISDO,VISDS,VISES
LBR SY'LDS':['LUI']P3DLIB=SY'SDS':VISHH,VISHO,VISLI,VISNH,VISNP,VISPS,VISRB
LBR SY'LDS':['LUI']P3DLIB=SY'SDS':VISRS,VISSL,VISSP,VISSS,VISTR,VISTS,VISWS
LBR SY'LDS':['LUI']P3DLIB=SY'SDS':D13SP,PLTOV,PLTWV
;
.IFT CFU LBR SY'LDS':['LUI']P3DLIB=SY'SDS':SINH,COSH
PIP SY'SDS':*.OBJ;*/DE
;
;	DIE LIBRARY "P3DLIB" IST UNTER ['LUI'] AUF SY'LDS': FERTIG
;	========================================================
