Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FV121S.ZIP / FAT5.DOC < prev next >

Wrap

Text File | 1988-06-08 | 26.8 KB | 934 lines

APR 1988 FAT-VIDEO 1.21 WOPEN Page W-1 WOPEN(WID,BATTR,TATTR,ULR,ULC,NR,NC,TITLE,WB,WC,WT) - Open a window. Usage: call wopen(wid,battr,tattr,ulr,ulc,nr,nc,title,wb,wc,wt) integer*2 wid,battr,tattr,ulr,ulc,nr,nc,wb,wt,wc character*80 title inputs: battr,tattr,ulr,ulc,nr,nc,title,wb,wt,wc returns: wid MS-Fortran Large Model Description: This routine sets up the window structures, initializes them, and opens a window. Windows do not have to be overlapped, nor must they always be deleted in order. If they are overlapped, they must be deleted in reverse order. If some are overlapped and some are not, the overlapped windows must be deleted in reverse of how they were layered. wid = returned by wopen, window id battr = input, border attribute, output from setab tattr = input, text attribute, output from setab ulr = input, upper left row of window ulc = input, upp left col f window nr = input, no. of usable rows in window nc = input, no. of usable cols in window title = input, null terminated string. example... 'My Window'//char(0) example... 'My Window'C example... 'My Window`' wb = input, no. of border lines 0,1, or 2 wc = input, title justification: center = 1 left = 0 wt = input, title pointer: none = 0 vert line = 1 arrows = 2 APR 1988 FAT-VIDEO 1.21 WCLOSE Page W-2 WCLOSE(WID) - Close the window. Usage: call wclose(wid) integer*2 wid inputs: wid returns: none MS-Fortran Large Model Description: This function closes the window specified by wid and deletes it from memory, and then frees the memory allocated for this window. APR 1988 FAT-VIDEO 1.21 WPRNAS Page W-3 WPRNAS(WID,ATTR,STRING)- Print string in window with attributes Usage: call wprnas(wid,attr,string) integer*2 wid,attr character*80 string inputs: wid,string,attr returns: none MS-Fortran Large Model Description: This function will print a string in the window specified by wid. The string starts printing at the current cursor location and does not wrap at the window boundary. You should call wcrlf() to advance to the start of the next line. The string must be null terminated, i.e. string=' My Text'//char(0) , or 'My Text`'. The attribute variable attr does not have to be the same as that used to initially define the window. That's the purpose of it in this function. The string may be defined prior to the call or in-line. i.e. string=' text '//char(0) call wprnas(wid,attr,string) or call wprnas(wid,attr,' text `') All functions requiring a string as input allow this form of call. See also wprint(), wcrlf(), setnul(). APR 1988 FAT-Video-1.21 WPRINT Page W-4 WPRINT(WID,STRING) - Print string in window Usage: call wprint(wid,string) integer*2 wid character*80 string inputs: wid, string returns: none MS-Fortran Large Model Description: This function writes the input string to the specified window starting at the current cursor location. This function does handle word wrapping at the window boundary, or you should call wcrlf() to go to the start of the next line. The string may be defined prior to this call or the string may be defined in the call. The input string must be formed as a null terminated string. See wprnas() or setnul() for more on null terminated strings. See also wprnas(), wcrlf(). APR 1988 FAT-Video-1.21 WCLS Page W-5 WCLS(wid) - Clear the window Usage: call wcls(wid) integer*2 wid inputs: wid returns: none MS-Fortran Large Model Description: This function performs a clear screen in the window specified by wid and then sets the cursor to the home position in the window at (1,1). APR 1988 FAT-Video-1.21 WCRX Page W-6 WCRX(WID) - Perform a carriage return in a window. Usage: call wcrx(wid) integer*2 wid inputs: wid returns: none MS-Fortran Large Model Description: This function performs a carriage return in the window specified by wid, effectively moving the cursor to column 1 in its current row without advancing to the next line. APR 1988 FAT-Video-1.21 WLFX Page W-7 WLFX(WID) - Perform a line feed in the window. Usage: call wlfx(wid) integer*2 wid inputs: wid returns: none MS-Fortran Large Model Description: This function performs a line feed in the window specified by wid, effectively moving the cursor to the next row, but in the same column. APR 1988 FAT-Video-1.21 WCRLF Page W-8 WCRLF(WID)- Perform carriage return, and line feed, in a window. Usage: call wcrlf(wid) integer*2 wid inputs: wid returns: none MS-Fortran Large Model Description: This function performs a carriage return and a line feed in the window specified by wid, effectively moving the cursor to start of the next row in column 1. This is similar to the enter key. APR 1988 FAT-Video-1.21 WCLEOL Page W-9 WCLEOL(WID)- Clear to end of line, in the window. Usage: call wcleol(wid) integer*2 wid inputs: wid returns: none MS-Fortran Large Model Description: This function clears the current line to the window border in the window specified by wid. APR 1988 FAT-VIDEO 1.21 WGETCP Page W-10 WGETCP(WID,ROW,COL) - Get cursor row,col in window. Usage: call wgetcp(wid,row,col) integer*2 wid,row,col inputs: wid returns: row,col MS-Fortran Large Model Description: This function returns the cursor coordinates for the window specified by wid, in window coordinates. Window rows start at row 1,2,3.. columns run col 1,2,3... . APR 1988 FAT-VIDEO 1.21 WSETCP Page W-11 WSETCP(WID,ROW,COL) - Set cursor to row,col in window. Usage: call wsetcp(wid,row,col) integer*2 wid,row,col inputs: wid,row,col returns: none MS-Fortran Large Model Description: This function sets the cursor at row,col for the window specified by wid, in window coordinates. Window rows start at row 1,2,3.., columns run col 1,2,3... . APR 1988 FAT-VIDEO 1.21 WGETSN Page W-12 WGETSN(WID,STRING,LEN) - Get, no echo, string input, in a window Usage: call wgetsn(wid,string,len) integer*2 wid,len character*80 string inputs: wid,len returns: string MS-Fortran Large Model Description: This function will accept character input from the keyboard and will not echo any keystrokes until a carriage return is hit, or len number of characters are received. The function then appends a null character ( char(0) ) to the string and returns the actual number of characters read in len. Len does not include the null character. This string is suitable to immediately be printed with wprint(), or wprnas(). wid = window id string = character string to store characters len = on input, number of characters to accept = on return, number of characters read See also wgetse(),wgetce(),wprint(),wprnas(). APR 1988 FAT-VIDEO 1.21 WGETSE Page W-13 WGETSE(WID,ATTR,STRING,LEN) -Get, with echo, string input. Usage: call wgetse(wid,attr,string,len) integer*2 wid,attr,len character*80 string inputs: wid,attr,len returns: string MS-Fortran Large Model Description: This function will accept character input from the keyboard and will echo any keystrokes until a carriage return is hit or len number of characters are received. The function then appends a null character ( char(0) ) to the string and returns the actual number of characters read in len. Len does not include the null character. This string is suitable to be immediately printed by wprint(), or wprnas(). The echo of the keystrokes is printed using the attr variable specified. wid = window id attr = attribute to use for the echo, may be different from the window's own attribute. = -1 means to use windows default text attribute. string = character string to store characters len = on input, number of characters to accept = on return, number of characters read See also wgetsn(), wgetce(),wprint(),wprnas(). APR 1988 FAT-VIDEO 1.21 WGETCE Page W-14 WGETCE(WID,ATTR,IKAR) - Get, with echo, character input. Usage: call wgetce(wid,attr,ikar) integer*2 wid,attr,ikar inputs: wid,attr returns: ikar MS-Fortran Large Model Description: This function will accept a character input from the keyboard and will echo the keystroke using the attribute specified. wid = window id attr = attribute to use for the echo, may be different from the window's own attribute. = -1 means to use windows default text attribute. ikar = character ascii code See also wgetsn(), wgetse(),wprint(),wprnas(). APR 1988 FAT-VIDEO 1.21 MENBAR Page W-15 MENBAR(WID,PRNAME,NATTR,SATTR,ISEL,IOPT)- Put up sliding menu bar in the window. Usage: call menbar(wid,PrNam,nattr,sattr,isel,iopt) integer*2 wid,nattr,sattr,isel,iopt character*20 PrNam(20) inputs: wid,prnam,nattr,sattr,iopt returns: isel MS-Fortran Large Model Description: This routine generates a main horizontal menu bar in the window specified by wid. The bar starts in column 2 and leaves 2 spaces between project names. Isel is set to 1,2,3...according to which project name is selected. Once this routine is called, the prnam() null ended character strings are displayed in the normal attribute. The first string is highlighted with the select attribute. The items may be selected by using the left and right cursor keys. When a carriage return or the enter key is pressed the numbers 1,2,3,etc. of the selection is returned in isel. To return without making any selection, simply press the escape key, then isel is set to zero. The menu bar does not disappear on return from this function. This allows the main project item selected to still be seen and calls wmenu() to display a menu of items from which to select. If you wish to erase the menu bar, simply set the cursor to 1,1 in the window and call wcleol(). This routine and wmenu(), were designed to work together, but simple alterations in the source code, can make many variations of these menu functions. After the last PrNam is entered, the next PrNam string should be defined as PrNam() = char(0) = '`' wid = window id PrNam = project title strings, null terminated. size must be declared as character*20 PrNam(20) nattr = normal attribute sattr = selected attribute isel = no. of selected item 1,2,3,4... or 0 for no selection iopt = selected item on entry See also Wmenu() & Demo.for. APR 1988 FAT-VIDEO 1.21 WMENU Page W-16 WMENU(ITNAM,NATTR,SATTR,ULR,ULC,TITLE,ISEL)- Pop up a Menu. Usage: call wmenu(ItNam,nattr,sattr,ulr,ulc,title,isel) integer*2 nattr,sattr,ulr,ulc,isel character*50 ItNam(20),title inputs: itnam,nattr,sattr,ulr,ulc,title returns: isel MS-Fortran Large Model Description: This function opens a window and displays a list of menu items. The cursor keys (up and down) may be used to select the item of interest. The selected item number is returned in isel. If no selection is desired, the escape key will end the menu selection and return zero in isel. To select an item, highlight it and press enter. The window and menu disappear when the escape or enter key is pressed. Once this function returns isel you can do what was requested. The title may be the PrNam() selected from the menbar() function or any null terminated character string. The ItNam() character array must be character*50 in size, unless you change the source code. Each ItNam() must be null terminated and after the last ItNam() is defined the next ItNam() must be defined with the null character as: ItNam(last+1)=char(0). This indicates ther menu item names to follow. ItNam = menu item names, each is null terminated, ith+1 is =char(0) nattr = normal attribute sattr = selected attribute ulr = upper left row of menu display (0 - 24) ulc = upper left col of menu display (0-79) title = menu title, title=char(0)='`' for no title display isel = number of selected item, 1,2,3,4.. or zero for no selection See also Menbar() & Demo.for. APR 1988 FAT-VIDEO 1.21 WBOX Page W-18 WBOX(BATTR,TATTR,ULR,ULC,LRR,LRC,TITLE,WT,WC,WB) - Display a window(box) with the given attributes. Usage: call wbox(battr,tattr,ulr,ulc,lrr,lrc,title,wt,wc,wb) integer*2 battr,tattr,ulr,ulc,lrr,lrc,wt,wc character*20 title inputs: battr,tattr,ulr,ulc,lrr,lrc,title,wt,wc returns: none MS-Fortran Large Model Description: This function displays a box on the screen with border lines. On return, a box with the input parameters is displayed. This is called by wopen(), and wxopen(). battr = border attribute tattr = text & background attribute of box ulr = upper left row of box ulc = upper left col of box lrr = lower right row of box lrc = lower right col of box title= title used, null terminated wt = title border, 0- no border 1- vertical line 2- double arrows wc = title centering 0-left justify 1-center justify wb = no. of border lines 0,1, or 2. APR 1988 FAT-VIDEO 1.21 WMOVR Page W-18 WMOVR(WID,INR,INC) - Move window, relative to current position. Usage: call wmovr(wid,inr,inc) integer*2 wid,inr,inc inputs: wid,inr,inc returns: none MS-Fortran Large Model Description: This function moves the window specified by wid, a relative amount specified by inr, inc. If this relative row/col motion moves a portion of the window off the screen, the window is moved just to the screen's border. inr = no. of rows (+ or -) to move window inc = no. of cols (+ or -) to move window See also wmova(). APR 1988 FAT-VIDEO 1.21 WMOVA Page W-19 WMOVA(WID,ROW,COL) - Move window to row,col. Usage: call wmova(wid,row,col) integer*2 wid,row,col inputs: wid,row,col returns: none MS-Fortran Large Model Description: This function moves the window specified by wid to the row and column specified. If this row and column movement would move a portion of the window off the screen, the window is moved just to the screen's border. row = new row location of windows upper left row col = new col location of windows upper left col See also wmovr(). APR 1988 FAT-VIDEO 1.21 WXOPEN Page W-20 WXOPEN(WID,BATTR,TATTR,ULR,ULC,NR,NC,TITLE,WB,WC,WT) - Open an expanding window. Usage: call wxopen(wid,battr,tattr,ulr,ulc,nr,nc,title,wb,wc,wt) integer*2 wid,battr,tattr,ulr,ulc,nr,nc,wb,wt,wc character*80 title inputs: battr,tattr,ulr,ulc,lrr,lrc,title,wb,wt,wc returns: wid MS-Fortran Large Model Description: This function is identical in function to wopen() except when the window opens, it explodes from the upper left row and column. The wopen() function just puts the window up instantly, it does not explode open. This routine sets up the window structures, initializes them, and opens a window. Windows do not have to be overlapped, nor must they be deleted in order. If they are overlapped, they must be deleted in reverse order. If some are overlapped and some are not, the overlapped windows must be deleted in reverse of how they were layered. wid = returned by wopen, window id battr = input, border attribute, output from setab. tattr = input, text attribute,output from setab ulr = input, upper left row of window ulc = input, upp left col f window nr = input, no. of usable rows in window nc = input, no. of usable cols in window title = input, null terminated string. example... 'My Window'//char(0) or 'My Window`' wb = input, no. of border lines 0,1, or 2 wc = input, title justification: center = 1 left = 0 wt = input, title pointer: none = 0 vert line = 1 arrows = 2 See also wopen(),wbox(). APR 1988 FAT-VIDEO 1.21 GETADP Page W-21 GETADP(ADAP) - Get Video adapter in use. Usage: call getadp(adap) character*3 adap Description: This function returns a 3-character string, indicating the name of the video adapter in use. ADAP = 'EGA' - EGA adapter 'CGA' - CGA adapter 'MDA' - Monochrome display adapter 'COM' - Compaq adapter 'HER' - Hercules adapter See also BVEF(), EGAF() APR 1988 FAT-VIDEO 1.21 WAIT Page W-22 WAIT(SECONDS) - wait a specified time, in seconds. Usage: call wait(seconds) integer*2 seconds Description: This function waits a specified time period, 0-100 seconds, and then returns control to the program. APR 1988 FAT-VIDEO 1.21 MENU1 Page W-23 MENU1(wid0,prnam,itnam,nattr,sattr,isel)- Pull Down Menu Usage: call menu1(wid0,prnam,itnam,nattr,sattr,isel) integer*2 wid0,nattr,sattr,isel character*20 prnam(10) character*50 itnam(20) inputs: wid0,prnam,itrnam,nattr,sattr returns: isel MS-Fortran Large Model Description: This routine opens a pull down menu and attaches it to the prnam(isel) main menu. You must pass the correct itnam() sub-menu. Isel indicates which prnam was selected by the menbar() routine. If isel=0 menu1() returns. Isel returns the itnam no. selected, or zero for none. defined keys for menu1() up-arrow - highlights menu selection up one down-arrow - highlights menu selection down one escape - returns with no item selected return - selects hilighted item all other keys are ignored. integer*2 wid0,nattr,sattr,isel character*50 itnam(20) character*20 prnam(10) nattr - normal attribute. sattr - selected attribute. isel - selection # 1,2,.. or 0 for escape. itnam - menu item names, null terminated. prnam - main menu names, null terminated. wid0 - wid of window used by main menu. See also WMENU(), WOPEN(), MENBAR(). APR 1988 FAT-VIDEO 1.21 WGETI2 Page W-24 I = WGETI2(wid,Ier) Get(Read) an integer*2 value from the keyboard and echo it to the screen. Usage: integer*2 I,wid,Ier,wgeti2 I=WGETI2(wid,Ier) inputs: wid returns: I,Ier Description: This routine accepts an integer*2 value from the keyboard, and echo's it to the screen. Only the keys 0-9 are allowed. If the WID is invalid the routine writes and error maessage to the screen and returns. Valid Input: 0-9, negatives not allowed. Esc - aborts the read, returns Wgeti2=0, and Ier=+1. Any other error returns Wgeti2=0, and Ier=-1. I = WGETI4(WID,IER) GET(Read) an integer*4 value from the keyboard and echo it to the screen. Usage: integer*4 wgeti4,I integer*2 wid,Ier I=WGETI4(wid,Ier) inputs: wid returns: I,Ier Description: This routine accepts an integer*4 value from the keyboard, and echo's it to the screen. Only the keys 0-9 are allowed. If the WID is invalid the routine writes and error maessage to the screen and returns. Valid Inget: 0-9, negatives not allowed. Esc - aborts the read, returns Wgeti4=0, and Ier=+1. Any other error returns Wgeti4=0, and Ier=-1. APR 1988 FAT-VIDEO 1.21 WPUTI2 Page W-25 I = WPUTI2(wid,Num) Put(write) an integer*2 value from the keyboard and echo it to the screen. Usage: integer*2 wid,Num call wputi2(wid,Num) inputs: wid,Num returns: none Description: This routine write an integer*2 value to the window specified, and at the windows current cursor position. If the WID is invalid the routine writes and error message to the screen and returns. I = WPUTI4(wid,Num) Put(write) an integer*4 value from the keyboard and echo it to the screen. Usage: integer*2 wid integer*4 Num call wputi4(wid,Num) inputs: wid,Num returns: none Description: This routine write an integer*4 value to the window specified, and at the windows current cursor position. If the WID is invalid the routine writes and error message to the screen and returns. APR 1988 FAT-VIDEO 1.21 WGETR4 Page W-24 X = WGETR4(wid,Ier) Get(Read) a real*4 value from the keyboard and echo it to the screen. Usage: integer*2 wid,Ier real*4 X,WGETR4 X=WGETR4(wid,Ier) inputs: wid returns: X,Ier Description: This routine accepts a real*4 value from the keyboard, and echo's it to the screen. If the WID is invalid the routine writes and error message to the screen and returns. Valid Input: 0-9,e,E,d,E,+,- Esc - aborts the read, returns 0, and Ier=+1. Any other error returns 0, and Ier=-1. Maximum input length = 25 characters. X = WGETR8(wid,Ier) Get(Read) a real*8 value from the keyboard and echo it to the screen. Usage: integer*2 wid,Ier real*8 X,WGETR8 X=WGETR8(wid,Ier) inputs: wid returns: X,Ier Description: This routine accepts a real*8 value from the keyboard, and echo's it to the screen. If the WID is invalid the routine writes ans error message to the screen and returns. Valid Input: 0-9,e,E,d,E,+,-,. Esc - aborts the read, returns 0, and Ier=+1. Any other error returns 0, and Ier=-1. Maximum input length = 25 characters.