1 C -+-+-+-+-+
\ e H A E L A B . F T
\ e -+-+-+-+-+
4 SUBROUTINE LABPLT (XC,YC,TLAST)
5 REAL XC,YC @ START OF THE LABEL
6 INTEGER TLAST @ POINT WHEN PLOT ENDS
16 * CALL NUMBER (XC,YC,YZ,SETNUM,0,0) @ PRINT THE NUMBER OF THE DATA SET FROM UNIT 6 OR 7
17 CALL NUMBER (999.,999.,YZ,CHANEL,0,-1) @ AND INSERT THE NUMBER OF THE DATA CHANNEL PLOTTED
18 CALL SYMBOL (999.,999.,YZ,'*',0,1)
19 CALL NUMBER (999.,999.,YZ,BEGIN/60,0,-1)
20 CALL SYMBOL (999.,999.,YZ,':',0,1)
21 CALL SYMBOL (999.,999.,YZ,TOASCI(MOD(BEGIN,60)),0,2)
22 CALL SYMBOL (999.,999.,YZ,'-',0,1)
23 CALL NUMBER (999.,999.,YZ,TLAST/60,0,-1)
24 CALL SYMBOL (999.,999.,YZ,':',0,1)
25 CALL SYMBOL (999.,999.,YZ,TOASCI(MOD(TLAST,60)),0,2)
26 CALL SYMBOL (999.,999.,YZ,' ',0,1)
27 CALL NUMBER (999.,999.,YZ,SPAN,0,-1)
28 CALL SYMBOL (999.,999.,YZ,'-',0,1)
29 CALL NUMBER (999.,999.,YZ,OVRLAP,0,-1)
30 CALL SYMBOL (999.,999.,YZ,'$',0,1)
31 CALL NUMBER (999.,999.,YZ,FILTER,0,-1)