1 C -+-+-+-+-+
\ e H A E P T V . F T
\ e -+-+-+-+-+
3 C DISPLAYS THE SAMPLE BUFFER ONTO CRT
5 C UP 10-DEC-84 MORE SUPPORT OF THE FPP FACILITIES
6 C UP 8-SEP-87 HA REMOVING A PROGRAMMING ERROR
15 EXTERNAL COND,NCOND,XYSAM
17 \f INTEGER SAMBUF (2000),SAMBFL, @ DISPLAY BUFFER SPACE, BUFFER LENGTH (CHANGE DATA STATEMENT TOO!)
18 * NUMCN, @ NUMBER OF CHANNELS TO SCAN
19 * CO,CORD,CA, @ CHANNEL OF THE ORDINATE, ABZISSE
20 * STEP @ INCREMENT FOR SAMBUF SCAN & PLOT
21 LOGICAL TIMABZ,TIMORD @ ABZ., ORD. IS THE TIME BASE (COUNTS TO SAMCNT)
22 REAL ORD,ABZ, @ ORDINATE, ABZISSE
23 * DOWN,UP,LEFT,RIGHT @ SCREEN SCALING LIMITS
24 DATA SAMBFL /2000/, STEP /3/
27 IF (SAMCNT.EQ.0) RETURN @ NO SAMPLE, RETURN
28 IF (OPTION.NE.12) CALL ASKHIM (2) @ TV* SKIPS SOME QUESTIONS
29 NUMCN=2 @ DEFAULT NUMBER OF CHANNELS TO SCAN
32 WRITE (TTO,1) CA,CO,STEP @ READ THE CHANNEL NUMBER OF THE DATA TO BE DISPLAYED
33 READ (TTI,2) CA,CO,STEP
34 STEP=NCOND(STEP,STEP,3) @ INCREMENT DEFAULTS TO 3
35 CO=NCOND(CO,CO,CA.GT.7,CO,CA+1)
36 TIMABZ=CA.GT.7 @ ABZISSE IS A TIME SCALE
37 C IF THE ABZISSE IS THE TIME AXIS THEN WE MAY PLOT MORE THAN ONE CHANNEL
38 IF (.NOT.TIMABZ) GOTO 30
39 WRITE (TTO,5) NUMCN @ READ THE NUMBER OF CHANNELS TO SCAN
41 30 NUMCN=MIN0(CHNLS-CO,NCOND(.NOT.TIMABZ,1,I,I,NUMCN))
42 TIMORD=CO.GT.7 @ ORDINATE IS THE TIME SCALE
43 C COMPUTE THE SCREEN SCALING LIMITS
44 C COMPUTE THE MARGIN OF PLOT EITHER -511,511 FOR AD VALUES OR TE1 FOR TIME SCALE
45 UP =COND(TIMORD,ENDS*SAMRAT,511.)
46 DOWN =COND(TIMORD,FLOAT(BEGIN*SAMRAT),-511.)
47 LEFT =COND(TIMABZ,FLOAT(BEGIN*SAMRAT),-511.)
48 RIGHT=COND(TIMABZ,ENDS*SAMRAT,511.)
50 CALL CLRPLT(SAMBFL,SAMBUF) @ OPEN THE PLOT
51 CALL SCALE (LEFT,DOWN,RIGHT,UP) @ SCALE THE SCREEN
53 DO 10 I=BEGIN*SAMRAT,ENDS*SAMRAT-1,STEP
54 IF BREAK(11) GOTO 20 @ USER ABORTS DISPLAY PLOT
55 ABZ=COND(TIMABZ,FLOAT(I),XYSAM(I,CA))
56 DO 10 CORD=CO,CO+NUMCN-1 @ LOOP FOR EACH CHANNEL
57 ORD=COND(TIMORD,FLOAT(I),XYSAM(I,CORD))
58 CALL PLOT (1,ABZ,ORD) @ INSERT THE POINT INTO THE DISPLAY
60 WRITE (TTO,3) @ WAIT TO CONTINUE
62 20 CALL CLRPLT (0,SAMBUF) @ SWITCH OFF THE DISPLAY
64 1 FORMAT (' KANAL DER ABZISSE/ORDINATE (ZEIT=8),'
65 * ' SCHRITTWEITE (3I1) (',
68 3 FORMAT (' BILD LANGE GENUG ANGESEHEN? ',$)
70 5 FORMAT (' ANZAHL DER DARZUSTELLENDEN KANAELE (I1) (',I1,