; ; 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 ; ========================================================