Laserfiche WebLink
<br />'15. * <br />~ GEl CALCOMP ROUTIHES IF REQUIRED <br />IFI.NOT.FILECGCSRJE,LO)) GOTO,20. <br />******GET,CALCOMP/UN=CEK2ZE. <br />IFC.HOT.NUM(DEV)) OET,GCSDEV=GCSC93/UH=CECEL~. <br />:~O ~ * <br />* RETRIEVE OCS lIBRARY ROUTINES <br />IFCOT.HE.TXO) GOTO,25. <br />* ASSIGN lAPES 66 & 77 IF INTERACTIVE <br />ASSIGN,TT,TAPE66. <br />ASSIGN,TT.TAPE77. <br />25,,:+; <br />* POSITION GRAPHICS ROUTINES <br />REW 1 N [', H2GRAPH. <br />IF(FILElPROFPL.lO)) SKIPF,H2GRAPH,2. <br />IFCNUHCI'EV) .OR. .NOT.FILE(6CSLIll,LO)) SKIF'F .H2GRAPH, t. <br />* <br />* LOAD PROPER ROUTIHES <br />.. <br />REWIND,XSECPL,PROFPL,URCMISC,GCSLIB,GCSDEV,6CSCOC.CC1051,UTPLOT. <br />IFlFIlE(PROFPL.lO)) GOTO.50. <br />* <br />* CROSS-SECTION PLOTTING <br />*. <br />IFIHUMCDEVI.OR. .HOT .FILElGCSLIF,LO)) GllTO.36. <br />U(FILEl6CSRJE,lOI) GOTO.33. <br />IFlFILE(GCSC93.LO)) 00TO,32. <br />* TEKTRuNIX PLOTTING <br />LOSE J( USEP=FLf(OA T ,L IF=URCM I BC /GCSLI H/GCSI'EV IGeSCfiC ) <br />I.OAO,H2GRAPH/NR.ISECPL/R. <br />EXECUTE. <br />GOTO,70. <br />32.* <br />* BOEING CALCOMP USING Ees <br />; <br />LDSETIUSEP=FlKDAI,LIB=UPCMrSC/GlSLIR/GCSDEU/GCSCDG.USE=CCI051) <br />LOAO.H20RAPH/NR.XSECPL/R. <br />;::XfCUT[ . <br />GOTO, 70,. <br />33,* <br />* PE~OTE CALCOMP PLOTTING USI~G GCS <br />! [ISE T (usn' =FL KCIA T, lll<= UF:CMI SCI GCSl IF !6CSC93/liC SDEV 16es CliC. USE our PLO T / CC'I 051 ) <br />LOAD. H2GRAF'H/NF:. XSECi'L1R. <br />DECUTE. <br /> <br />, <br /> <br />, <br /> <br />"070,70. <br /> <br />. <br /> <br />,:-;:;-.:t: <br /> <br />s CALCOMP SOFTWARE <br />IFIFILElGCSRJE.lO)) 60TO,37. <br />* <br />* CALCOMP PLOTTING AT ROE!NG <br />LDSETllIF=URCMISC,USE=CCI051) <br />I.OAO,H2GRAPH/NR.X5ECPI/~. <br />EXECUTE . <br />GOTO.70. <br /> <br />22 <br />