C HELP PAGE SUBROUTINE -- ENGLISH ENGLISH VERSION C COPYRIGHT (C) 1983 GLENN EVERHART C PERMISSION IS GIVEN TO ANYONE TO USE, DISTRIBUTE, OR COPY THIS C PROGRAM FREELY BUT NOT TO SELL IT COMMERCIALLY. C PCHELP.FTN INCLUDE FILE (INCLUDED IN ROUTINE HELP) C FOR LEVEL 1, RETURN AND DISPLAY OLD HELP SCREEN. C FOR OTHER LEVELS (IN LVL VARIABLE) DO HELP DISPLAY. AT ENTRY C CURSOR IS POSITIONED AT 1,1. ON PASSING TO 9000, CURSOR IS C POSITIONED AT 24,1 C C Modifications Record: C --------------------- C CJD1 23-Jul-87 C Use terminal type, and AVO bit of terminal characteristics flags C to select which keypad file to display. C CJD2 Oct-90, SMG modifications -- all WRITEs redone C Make this file complete in itself, no longer an INCLUDE from C SPREDSHT, and supply language-dependent versions. C SUBROUTINE HELP(LVL) C PRINT HELP INFO ON SCREEN USING FIRST 22 LINES. ASSUME XQTCMD INVALIDATES C THE DISPLAY. PARAMETER CUP = 1, CUU = 2, CUD = 3, CUF = 4, CUB = 5, DECDWL = 6 $, DECDHL = 7, DECRC = 8, DECSC = 9, DECSWL = 10, ED = 11, EL = 12 $, SGR = 13, NEL = 14, SCS = 15, SM = 16, RM = 17, ANSI = 18 PARAMETER TMREFN = 1 LOGICAL*1 FORM(120) INCLUDE '($TTDEF)' !CJD1 INCLUDE '($TT2DEF)' !CJD1 INTEGER*4 PASTE,DISPLY,KEYBD,KEYTBL,RENDIT,TTYPE,DEVDP2 !CJD3 COMMON /SMG/PASTE,DISPLY,KEYBD,KEYTBL,RENDIT,TTYPE,DEVDP2 !CJD3 CALL UVT100(ANSI) CALL UVT100(ED,2) C CALL UVT100(RM,8) C CALL UVT100(RM,5) C LEVEL 0 (LEVELS NOT YET IMPLEMENTED) CALL UVT100(CUP,1,1) C CALL UVT100(CUP,7,1) IF(LVL.LT.0.OR.LVL.GT.9)GOTO 1100 CALL UVT100(ED,2) !CJD2 LVLL=LVL+1 GOTO (1000,1100,1200,1300,1400,1500,1600,1700,1800, 1 1900)LVLL 1000 CONTINUE C HELP 0 CALL UVT100(CUP,1,1) CALL LWRITE(6, 1 69HTo get HELP use the command Hn where n is 0 to 9 for HELP 0 t 2o HELP 9,69) CALL UVT100(CUP,2,1) CALL LWRITE(6,20HHELP 0 - This screen,20) CALL UVT100(CUP,3,1) CALL LWRITE(6, 1 53HHELP 1 - Summary of many AnalytiCalc commands (terse),53) CALL UVT100(CUP,4,1) CALL LWRITE(6,29HHELP 2 - Data Entry / Editing,29) CALL UVT100(CUP,5,1) CALL LWRITE(6,28HHELP 3 - Calculation Control,28) CALL UVT100(CUP,6,1) CALL LWRITE(6,38HHELP 4 - Cursor Motion and Positioning,38) CALL UVT100(CUP,7,1) CALL LWRITE(6,18HHELP 5 - Cell Copy,18) CALL UVT100(CUP,8,1) CALL LWRITE(6,40HHELP 6 - Add/Subtract Absolute Rows/Cols,40) CALL UVT100(CUP,9,1) CALL LWRITE(6, 1 46HHELP 7 - Add/Subtract Relocating, Rows or Cols,46) CALL UVT100(CUP,10,1) CALL LWRITE(6, 1 49HHELP 8 - Change Display Size, Col Size, Load Data,49) CALL UVT100(CUP,11,1) CALL LWRITE(6,23HHELP 9 - Keypad Diagram,23) GOTO 9500 1200 CONTINUE C HELP 2 CALL UVT100(CUP,1,1) CALL UVT100(SGR,4) CALL LWRITE(6,29HHELP 2 - Data Entry / Editing,29) CALL UVT100(SGR,0) CALL UVT100(CUP,2,1) CALL LWRITE(6, 1 48HE expression Enter expression into cell,48) CALL UVT100(CUP,3,1) CALL LWRITE(6, 1 48HFormulae available (+ SQRT,SIN,COS,LOG,EXP,ATAN),48) CALL UVT100(CUP,4,1) CALL LWRITE(6,42HSUM[variables] Sum of all arguments,42) CALL UVT100(CUP,5,1) CALL LWRITE(6,38HMAX[variables] Max of arguments,38) CALL UVT100(CUP,6,1) CALL LWRITE(6,38HMIN[variables] Min of arguments,38) CALL UVT100(CUP,7,1) CALL LWRITE(6,42HAVG[variables] Average of arguments,42) CALL UVT100(CUP,8,1) CALL LWRITE(6, 1 48HSTD[variables] Standard deviation squared,48) CALL UVT100(CUP,9,1) CALL LWRITE(6,41HIF [V1.rel.V2] statement | else-statement,41) CALL UVT100(CUP,10,1) CALL LWRITE(6, 1 63HIn the first 5 cases, arguments are variable names separated 2by,63) CALL UVT100(CUP,11,1) CALL LWRITE(6, 1 61Hcommas, or variable ranges, or mixtures separated by columns. 2 ,61) CALL UVT100(CUP,12,1) CALL LWRITE(6,30H".rel." is any of the 6 forms:,30) CALL UVT100(CUP,13,6) CALL LWRITE(6,13H.EQ. Equal,13) CALL UVT100(CUP,14,6) CALL LWRITE(6,17H.NE. Not Equal,17) CALL UVT100(CUP,15,6) CALL LWRITE(6,41H.GT. Greater than (V1 greater than V2),41) CALL UVT100(CUP,16,6) CALL LWRITE(6,35H.LT. Less than (V1 less than V2),35) CALL UVT100(CUP,17,6) CALL LWRITE(6,43H.GE. Greater than or Equal to (V1 >= V2),43) CALL UVT100(CUP,18,6) CALL LWRITE(6,40H.LE. Less than or Equal to (V1 =< V2),40) CALL UVT100(CUP,19,1) CALL LWRITE(6, 1 55H*XV filename V1 Extract value at cell V1 in saved,55) CALL UVT100(CUP,20,23) CALL LWRITE(6,24Hsheet stored in filename,24) CALL UVT100(CUP,21,1) CALL LWRITE(6, 1 50HED 'string1'string2' Replace string1 with string2,50) CALL UVT100(CUP,22,23) CALL LWRITE(6,31Hin current cell formula. Either,31) CALL UVT100(CUP,23,23) CALL LWRITE(6,30Hstring may be null if desired.,30) GOTO 9500 1300 CONTINUE C HELP 3 CALL UVT100(CUP,1,1) CALL UVT100(SGR,4) CALL LWRITE(6,28HHELP 3 - Calculation Control,28) CALL UVT100(SGR,0) CALL UVT100(CUP,2,1) CALL LWRITE(6,44HR Recalculate all of the sheet, 1 44) CALL UVT100(CUP,3,1) CALL LWRITE(6, 1 63HRM Recalculate manually only until R command giv 1en,63) CALL UVT100(CUP,4,1) CALL LWRITE(6, 1 65HRAF Recalculate sheet, without constant recalcula 2tion,65) CALL UVT100(CUP,5,1) CALL LWRITE(6, 1 68HK Drop into Calc program straight. *E returns t 2o sheet,68) CALL UVT100(CUP,6,1) CALL LWRITE(6,40HX Exit to operating system,40) CALL UVT100(CUP,7,1) CALL LWRITE(6, 1 49HV Redraw screen with normal formats,49) CALL UVT100(CUP,8,1) CALL LWRITE(6, 1 50HVF Redraw screen showing all formulae,50) CALL UVT100(CUP,9,1) CALL LWRITE(6, 1 60HVM Don't redraw screen until a V or VF is given, 2 60) CALL UVT100(CUP,10,1) CALL LWRITE(6,32HZA Zero whole sheet,32) CALL UVT100(CUP,11,1) CALL LWRITE(6, 1 63HZE V1:V2 Zero variables in a row or column in range fr 2om,63) CALL UVT100(CUP,12,17) CALL LWRITE(6,43Hcell V1 to cell V2 (V1,V2 = names of cells),43) CALL UVT100(CUP,13,1) CALL LWRITE(6, 1 69H@filespec Read filespec and execute commands as though 2typed in,69) CALL UVT100(CUP,14,1) CALL LWRITE(6, 1 56HPD Put out current Display sheet (Formulae),56) CALL UVT100(CUP,14,1) CALL LWRITE(6, 1 57HPP Put out current Physical sheet (Formulae),57) CALL UVT100(CUP,15,1) CALL LWRITE(6, 1 55HPDN Put out current Display sheet (Numbers),55) CALL UVT100(CUP,16,1) CALL LWRITE(6, 1 56HPPN Put out current Physical sheet (Numbers),56) CALL UVT100(CUP,17,1) CALL LWRITE(6, 1 45HW Write screen to hardcopy file,45) GOTO 9500 1400 CONTINUE C HELP 4 CALL UVT100(CUP,1,1) CALL UVT100(SGR,4) CALL LWRITE(6,38HHELP 4 - Cursor Motion and Positioning,38) CALL UVT100(SGR,0) CALL UVT100(CUP,2,1) CALL LWRITE(6, 1 50HL variable-name Position cursor at variable-name,50) CALL UVT100(CUP,3,1) CALL LWRITE(6,39HM1 (Move up after Enter),39) CALL UVT100(CUP,4,1) CALL LWRITE(6,41HM2 (Move down after Enter),41) CALL UVT100(CUP,5,1) CALL LWRITE(6,41HM3 (Move left after Enter),41) CALL UVT100(CUP,6,1) CALL LWRITE(6,42HM4 (Move right after Enter),42) CALL UVT100(CUP,7,1) CALL LWRITE(6,27H1 (Move up),27) CALL UVT100(CUP,8,1) CALL LWRITE(6,29H2 (Move down),29) CALL UVT100(CUP,9,1) CALL LWRITE(6,29H3 (Move left),29) CALL UVT100(CUP,10,1) CALL LWRITE(6,30H4 (Move right),30) CALL UVT100(CUP,11,1) CALL LWRITE(6, 1 53HOA variable Reset origin of display to variable,53) CALL UVT100(CUP,12,1) CALL LWRITE(6, 1 69HOR variable Reset display down and right to start with 2variable,69) CALL UVT100(CUP,13,19) CALL LWRITE(6,45Hchanging only region down and right of cursor, 1 45) CALL UVT100(CUP,14,1) CALL LWRITE(6, 1 62HDL V1:V2 Rn:m point at display coordinates (n,m) (col,row 2),62) CALL UVT100(CUP,15,19) CALL LWRITE(6,45Hand, going left to right along a Row, copy in, 1 45) CALL UVT100(CUP,16,19) CALL LWRITE(6,41Hvariables V1 to V2 (actually, point those,41) CALL UVT100(CUP,17,19) CALL LWRITE(6,42Hdisplay sheet cells at variables V1 to V2),42) CALL UVT100(CUP,18,1) CALL LWRITE(6, 1 62HDL V1:V2 Cn:m point at display coordinates (n,m) (col,row 2),62) CALL UVT100(CUP,19,19) CALL LWRITE(6, 1 48Hand, going top to bottom along a Column, copy in,48) CALL UVT100(CUP,20,19) CALL LWRITE(6,41Hvariables V1 to V2 (actually, point those,41) CALL UVT100(CUP,21,19) CALL LWRITE(6,43Hdisplay sheet cells at variables V1 to V2).,43) CALL UVT100(CUP,22,1) CALL LWRITE(6, 1 61HDF V1:V2 [format] Set display format of range V1:V2 to format 2 ,61) CALL UVT100(CUP,23,19) CALL LWRITE(6,32H(format A means display formula),32) GOTO 9500 1500 CONTINUE C HELP 5 CALL UVT100(CUP,1,1) CALL UVT100(SGR,4) CALL LWRITE(6,18HHELP 5 - Cell Copy,18) CALL UVT100(SGR,0) CALL UVT100(CUP,2,1) CALL LWRITE(6, 1 68HCA V1:V2 V3:V4 Copy all cell attributes from V1:V2 t 2o V3:V4,68) CALL UVT100(CUP,3,1) CALL LWRITE(6, 1 48HCV V1:V2 V3:V4 Copy numeric values only,48) CALL UVT100(CUP,4,1) CALL LWRITE(6, 1 49HCD V1:V2 V3:V4 Copy Display formats only,49) CALL UVT100(CUP,5,1) CALL LWRITE(6, 1 58HCF V1:V2 V3:V4 Copy Formulae only (no relocation), 2 58) CALL UVT100(CUP,6,1) CALL LWRITE(6, 1 61HCR V1:V2 V3:V4 Copy all cell attributes as in CA but 2,61) CALL UVT100(CUP,7,25) CALL LWRITE(6,35Hrelocate cell names to new location,35) CALL UVT100(CUP,8,25) CALL LWRITE(6,39Hfrom old one. Only relocate names right,39) CALL UVT100(CUP,9,25) CALL LWRITE(6,41Hof or below the cursor or on same row/col,41) CALL UVT100(CUP,10,25) CALL LWRITE(6,42Hwith cursor (cells above or left of cursor,42) CALL UVT100(CUP,11,25) CALL LWRITE(6,19Hare NOT relocated).,19) CALL UVT100(CUP,12,4) CALL LWRITE(6, 1 49HIf V2 is missing, V1 is replicated to V3:V4 range,49) GOTO 9500 1600 CONTINUE C HELP 6 CALL UVT100(CUP,1,1) CALL UVT100(SGR,4) CALL LWRITE(6,40HHELP 6 - Add/Subtract Absolute Rows/Cols,40) CALL UVT100(SGR,0) CALL UVT100(CUP,2,1) CALL LWRITE(6, 1 54HAA number R Add "number" rows ahead of the current,54) CALL UVT100(CUP,3,17) CALL LWRITE(6,41Hphysical position, moving all cells below,41) CALL UVT100(CUP,4,17) CALL LWRITE(6,42Hthe current cell down by "number" rows and,42) CALL UVT100(CUP,5,17) CALL LWRITE(6,43Hlosing the physical sheet's bottom "number",43) CALL UVT100(CUP,6,17) CALL LWRITE(6, 1 49Hrows' contents, NOT adjusting variable references,49) CALL UVT100(CUP,7,17) CALL LWRITE(6,42Hwhere the variables are in the moved range,42) CALL UVT100(CUP,8,17) CALL LWRITE(6, 1 49Hand are not the position independent (P## or D##),49) CALL UVT100(CUP,9,17) CALL LWRITE(6,12Hforms) type.,12) CALL UVT100(CUP,10,1) CALL LWRITE(6, 1 57HAA number C Add "number" columns ahead of the current,57) CALL UVT100(CUP,11,17) CALL LWRITE(6,44Hphysical position, moving all cells right of,44) CALL UVT100(CUP,12,17) CALL LWRITE(6, 1 46Hthe current cell right by "number" columns and,46) CALL UVT100(CUP,13,17) CALL LWRITE(6,43Hlosing the physical sheet's bottom "number",43) CALL UVT100(CUP,14,17) CALL LWRITE(6, 1 52Hcolumns' contents, NOT adjusting variable references,52) CALL UVT100(CUP,15,17) CALL LWRITE(6,42Hwhere the variables are in the moved range,42) CALL UVT100(CUP,16,17) CALL LWRITE(6, 1 49Hand are not the position independent (P## or D##),49) CALL UVT100(CUP,17,17) CALL LWRITE(6,12Hforms) type.,12) GOTO 9500 1700 CONTINUE C HELP 7 CALL UVT100(CUP,1,1) CALL UVT100(SGR,4) CALL LWRITE(6, 1 47HHELP 7 - Add/Subtract Relocating, Rows or Cols.,47) CALL UVT100(SGR,0) CALL UVT100(CUP,2,1) CALL LWRITE(6, 1 54HAR number R Add "number" rows ahead of the current,54) CALL UVT100(CUP,3,17) CALL LWRITE(6,41Hphysical position, moving all cells below,41) CALL UVT100(CUP,4,17) CALL LWRITE(6,42Hthe current cell down by "number" rows and,42) CALL UVT100(CUP,5,17) CALL LWRITE(6,43Hlosing the physical sheet's bottom "number",43) CALL UVT100(CUP,6,17) CALL LWRITE(6, 1 45Hrows' contents, adjusting variable references,45) CALL UVT100(CUP,7,17) CALL LWRITE(6,42Hwhere the variables are in the moved range,42) CALL UVT100(CUP,8,17) CALL LWRITE(6, 1 48Hand are not the position independent (P## or D##,48) CALL UVT100(CUP,9,17) CALL LWRITE(6,12Hforms) type.,12) CALL UVT100(CUP,10,1) CALL LWRITE(6, 1 57HAR number C Add "number" columns ahead of the current,57) CALL UVT100(CUP,11,17) CALL LWRITE(6, 1 44Hphysical position, moving all cells right of,44) CALL UVT100(CUP,12,17) CALL LWRITE(6, 1 46Hthe current cell right by "number" columns and,46) CALL UVT100(CUP,13,17) CALL LWRITE(6, 1 43Hlosing the physical sheet's bottom "number",43) CALL UVT100(CUP,14,17) CALL LWRITE(6, 1 48Hcolumns' contents, adjusting variable references,48) CALL UVT100(CUP,15,17) CALL LWRITE(6, 1 42Hwhere the variables are in the moved range,42) CALL UVT100(CUP,16,17) CALL LWRITE(6, 1 48Hand are not the position independent (P## or D##,48) CALL UVT100(CUP,17,17) CALL LWRITE(6,12Hforms) type.,12) GOTO 9500 1800 CONTINUE C HELP 8 CALL UVT100(CUP,1,1) CALL UVT100(SGR,4) CALL LWRITE(6, 1 49HHELP 8 - Change Display Size, Col Size, Load Data,49) CALL UVT100(SGR,0) CALL UVT100(CUP,2,1) CALL LWRITE(6, 1 63HDW N,M Set column N on display to be M characters wi 2de,63) CALL UVT100(CUP,3,1) CALL LWRITE(6, 1 57HDB n,m Set number of columns displayed on screen,57) CALL UVT100(CUP,4,17) CALL LWRITE(6,35Hto n, number of rows displayed to m,35) CALL UVT100(CUP,5,1) CALL LWRITE(6, 1 59HGD Reload sheet down/right onto display coords, 2 50) CALL UVT100(CUP,6,1) CALL LWRITE(6, 1 60HGP Reload sheet down/right onto physical coords 2 ,60) CALL UVT100(CUP,7,1) CALL LWRITE(6, 1 57H< Rewind the current AnalytiCalc input file,57) CALL UVT100(CUP,8,1) CALL LWRITE(6, 1 43H* any text Comment (for command files),43) CALL UVT100(CUP,9,1) CALL LWRITE(6, 1 68HHn Display a screen of help. n may be 0 to 9, de 2fault 0,68) CALL UVT100(CUP,10,1) CALL LWRITE(6, 1 50HF filename/nnnn Read filename, skipping nnnn lines,50) CALL UVT100(CUP,11,17) CALL LWRITE(6,33Hif the "/nnnn" is there, and load,33) CALL UVT100(CUP,12,17) CALL LWRITE(6,37Hcontents onto the currently displayed,37) CALL UVT100(CUP,13,17) CALL LWRITE(6,34Hscreen, broken into columns as the,34) CALL UVT100(CUP,14,17) CALL LWRITE(6,24Hcurrent screen is set up,24) GOTO 9500 1900 CONTINUE C HELP 9 C USE UNIT 9 FOR KEYPAD PICTURE ON VAX TO AVOID C CONFLICT WITH W COMMAND. CLOSE(UNIT=9) C COMMENT OUT THE FDBSET CALL IF IT DOESN'T DO ANY GOOD OR IS ILLEGAL CALL FDBSET(9,'READONLY','SHARE') IF(TTYPE.NE.TT$_VT52) GOTO 2000 !CJD2 C USE VT52 PICTURE !CJD2 CALL ASSIGN(9,'DK:KEYPAD52.PIC') !CJD1 GOTO 2002 !CJD1 C NO PICTURE AVAILABLE IF NEITHER VT52 NOR ANSI !CJD2 2000 IF((DEVDP2.AND.TT2$M_ANSICRT).EQ.0) GOTO 9500 !CJD2 C USE AVO VERSION IF THERE IS AN AVO !CJD2 IF((DEVDP2.AND.TT2$M_AVO).EQ.0) GOTO 2001 !CJD2 CALL ASSIGN(9,'DK:KEYPADAVO.PIC') !CJD1 GOTO 2002 !CJD1 2001 CONTINUE !CJD1 CALL ASSIGN(9,'DK:KEYPAD.PIC') 2002 CONTINUE !CJD1 DO 1903 JJ=1,23 READ(9,1901,END=1902,ERR=1902)LTH,FORM !CJD2 1901 FORMAT(Q,40A1,80A1) !CJD2 CALL UVT100(CUP,JJ,1) CALL LWRITE(6,FORM,LTH) !CJD2 1903 CONTINUE 1902 CONTINUE CLOSE(UNIT=9) C (NO HELP 9 YET... JUST RETURN C SKIP OUT PAST DISPLAY OF SCREEN 1 9500 GOTO 9000 C 1100 CONTINUE !CJD3 CALL LWRITE(6, !CJD3 1 53HEN expression - insert expression at current position,53) !CJD3 CALL UVT100(CUP,2,1) CALL LWRITE(6, !CJD3 1 53HM1,M2,M3, or M4 - Motion up, down, left, right (auto),53) !CJD3 CALL UVT100(CUP,3,1) CALL LWRITE(6, !CJD3 1 61HDL var1:var2 Rn:m (or Cn:m) - Display Loc phys to row/col n-m!CJD3 2 ,61) !CJD3 CALL UVT100(CUP,4,1) CALL LWRITE(6, !CJD3 1 74HDF var1:var2 [format] - set Display Format; A or L shows text 2, else number,74) !CJD3 CALL UVT100(CUP,5,1) CALL LWRITE(6, !CJD3 1 68HDT var1:var2 F or I - set Display number Type to Floating or 2Integer,68) !CJD3 CALL UVT100(CUP,6,1) CALL LWRITE(6, !CJD3 1 65HDW n,m - set Display Width of column n of display to m charac 2ters,65) !CJD3 CALL UVT100(CUP,7,1) CALL LWRITE(6, !CJD3 1 45HDB c,r - set Display Bounds at c cols, r rows,45) !CJD3 CALL UVT100(CUP,8,1) CALL LWRITE(6, !CJD3 1 61HV - redraw screen. VF - display Formulae. VM - no auto-redraw!CJD3 2 ,61) !CJD3 CALL UVT100(CUP,9,1) CALL LWRITE(6, !CJD3 1 51HK - drop into interactive CALC; *E returns to sheet,51) !CJD3 CALL UVT100(CUP,10,1) CALL LWRITE(6, !CJD3 1 79HL var - move cursor to var named (phys). OA var or OR var - m 2ove display origin,79) !CJD3 CALL UVT100(CUP,11,1) CALL LWRITE(6, !CJD3 1 47HZA - Zero All. ZE var1:var2 - ZEro var1 to var2,47) !CJD3 CALL UVT100(CUP,12,1) CALL LWRITE(6, !CJD3 1 53HX - eXit program. W - Write screen to file or printer,53) !CJD3 CALL UVT100(CUP,13,1) CALL LWRITE(6, !CJD3 1 79HCV v1:v2 v3:v4-Copy Value from v1:v2 to v3:v4 range. CR-Copy 2and Relocate vars.,79) !CJD3 CALL UVT100(CUP,14,1) CALL LWRITE(6, !CJD3 1 70HCD v1:v2 v3:v4 - Copy Display format. CF - Copy Formula. CA - 2 Copy All,70) !CJD3 CALL UVT100(CUP,15,1) CALL LWRITE(6, !CJD3 1 66HP Put screen to file. G - Get screen from file at current loc 2ation,66) !CJD3 CALL UVT100(CUP,16,1) CALL LWRITE(6, !CJD3 1 60HR - Recompute sheet. RM - Recompute Manually only (R resets),!CJD3 2 ,60) !CJD3 CALL UVT100(CUP,17,1) CALL LWRITE(6, !CJD3 1 80H1,2,3,4 - move cursor Up,Down,Left,Right. A[A/R]n[R/C] - Add 2abs/reloc n Row/Col,80) !CJD3 CALL UVT100(CUP,18,1) CALL LWRITE(6, !CJD3 1 58HVariable ranges are var1[:var2]. Variable names P#+n#+m or, !CJD3 2 58) !CJD3 CALL UVT100(CUP,19,1) CALL LWRITE(6, !CJD3 1 64HD#+n#+m are current Physical or Display locations + or - offs 2ets,64) !CJD3 CALL UVT100(CUP,20,1) CALL LWRITE(6, !CJD3 1 58HExpressions may use multiple statements, use \ separators., !CJD3 2 58) !CJD3 CALL UVT100(CUP,21,1) CALL LWRITE(6, !CJD3 1 64HUse standard FORTRAN function names + MIN, MAX, AVG, STD or S 2UM.,64) !CJD3 CALL UVT100(CUP,22,1) CALL LWRITE(6, !CJD3 1 68HIF statement format is IF [v1.REL.v2]yes-expression|else expr 2ession.,68) !CJD3 CALL UVT100(CUP,23,1) CALL LWRITE(6,38HRELs are .LT.,.GT.,.EQ.,.NE.,.GE.,.LE.,38) !CJD3 9000 CONTINUE CALL UVT100(CUP,24,1) RETURN END