Agilent Technologies 8719ES, Programmer'S Manual

Page: 479 / 541

7-116 Chapter 7
Programming Examples
Report Generation Examples
1730 Flnm_idx=1 ! Initialize the Flnm$ array index
1740 Prfx_lngth=LEN(Prfx$) ! Find the length of the Prfx$ string
1750 !
1760 ! Process each of the files in the Flnm$ array
1770 WHILE Flnm_idx<=Nbr_files
1780 ! Define Root$ = file name prefix string plus the two sequence digits
1790 Root$=Flnm$(Flnm_idx)[1;Prf2]
1800 ! Find length of the Root$
1810 Root_lngth=LEN(Root$)
1820 ! If the two output specifier characters are “FP” (full page) then
1830 ! include them as part of the Root$
1840 IF Flnm$(Flnm_idx)[Roo1;2]=”FP” THEN
1850 Root$=Root$&”FP”
1860 Root_lngth=Roo2
1870 END IF
1880 !
1890 Root_mtch=True ! initialize file matches Root$ flag
1900 ! If the ouput device is a printer send HP-GL initiliazation string
1910 IF Outputdvc=Prntr THEN
1920 OUTPUT @Prntpltdvc USING “#,K”;Hpglinit$
1930 END IF
1940 !
1950 ! *** Plot files on the same page ***
1960 !
1970 ! While the root portion of the file names match Root$, output the
1980 ! plot files to the same page.
1990 WHILE Root_mtch=True
2000 ! Print the name of the plot file
2010 PRINT Flnm$(Flnm_idx),
2020 ! Output the plot file to the hardcopy device
2030 GOSUB Otpt_fl
2040 ! Increment Flnm$ array index
2050 Flnm_idx=F1
2060 ! If all plot files have been output or the plot file name does not
2070 ! match Root$ then set Root_Mtch=False to end plotting of the same
2080 ! page.
2090 IF Flnm_idx>Nbr_files THEN
2100 Root_mtch=False
2110 ELSE
2120 IF Root$<>Flnm$(Flnm_idx)[1;Root_lngth] THEN Root_mtch=False
2130 END IF
2140 END WHILE ! Loop to plot to the same page
2150 !
2160 PRINT
2170 ! Output form feed to output device to eject page
2180 GOSUB Frm_fd
2190 END WHILE ! Loop to plot next page
2200 !
2210 STOP
2220 !
2230 !***************************Subroutines ******************************
2240 !
2250 Otpt_fl:! Read the file into an array(s) and then output the array(s)
2260 ! to the hardcopy device.
2270 !
2280 ! Open and read the plot file size
2290 ASSIGN @Ldisc TO Flnm$(Flnm_idx)&Msi$
2300 !