Barmby

<body topmargin=0 leftmargin=0 marginheight=0 marginwidth=0> <table cellpadding=0 cellspacing=0 border=0><tr> <td valign="top" rowspan="2" width=210 BGCOLOR="#99CC99" TEXT="#080000" bgproperties="fixed" background="0418dfc3.jpg"> <div> <B><IMG SRC="1aec5610.png" border=0 width="197" height="97" ALIGN="BOTTOM" HSPACE="0" VSPACE="0"></B></div> <DIV ALIGN="LEFT"></DIV> <div> <B>Downloadables</B></div> <div> <B>and</B></div> <div> <B>Reference Material</B></div> <bR> </td> <td valign="top" colspan=2 height=82 BGCOLOR="#CCCC99" TEXT="#080000" bgproperties="fixed" background="0428dfe1esnpes.jpg"> <bR> <bR> <div> </div> </td> </tr><tr> <td valign="top" height=398 colspan=2 BGCOLOR="#CCCC99" TEXT="#080000" bgproperties="fixed" background="0428dfc3.jpg"> <div> <I>Barmby</I></div> <div>  <A NAME="top"><IMG BORDER="0" SRC="1x1.gif" HEIGHT="1" ALIGN="bottom" WIDTH="1" HSPACE="0" VSPACE="0" ></A>Click <A HREF="id39_barmby_bas.htm" TARGET="_top" TITLE="Others"><U>here</U></A> to return to the previous page     --   Please note the date - May88, it was the forefront at the time. I am including such an old program because this is a self contained bit of software - more recent work that I have done has within more complicated packages such as VB, Fix32, VBa etc...  and are thus more difficult to explain to the general viewer of this website.</div> <bR> <div> <B>Here is the program listing :-</B></div> <div>     PRINT "       Filename                 BARMBY.BAS         "</div> <div>     PRINT " **************************************************"</div> <div>     PRINT " *          YORKSHIRE WATER AUTHORITY             *"</div> <div>     PRINT " *                                                *"</div> <div>     PRINT " *    ...... Complete Control Program .....       *"</div> <div>     PRINT " *                                                *"</div> <div>     PRINT " *             AUGHTON PROCESS AUTOMATION         *"</div> <div>     PRINT " *               BIRCHWOOD SCIENCE PARK           *"</div> <div>     PRINT " *              WARRINGTON    0925 830084         *"</div> <div>     PRINT " *                                                *"</div> <div>     PRINT " *   Author:-        Greg McCormack               *"</div> <div>     PRINT " *   PROJECT NUMBER :-  53/3521                   *"</div> <div>     PRINT " *   Version Number :-  0.06           May   '88  *"</div> <div>     PRINT " **************************************************"</div> <div>     PRINT</div> <bR> <div>     BIG=20000:GOSUB 120:CLS</div> <bR> <div>     ON ERROR GOTO 297</div> <bR> <div>     DIM     TAG$(40),SENSE%(40),A%(40),AA%(3),UNIT$(15),ZERO%(15),_</div> <div>         RANGE%(15),S$(3),PASSWORD$(2),ALARM%(40),ALRMTIME$(40),_</div> <div>         REGISTER%(2),MONTH(12),MONTH$(12),ANAL(5),POWER2%(7),_</div> <div>         TYPE%(40),WHOLEMONTH$(12),ARRAY(200,4),ARRAY4hr(200,4),_</div> <div>         COL%(4),INDEX%(2),AAA%(4),ANALOFFSET(4),ANALGAIN(4),_</div> <div>         ARRAY13hr(200,4)</div> <bR> <div>     KEY OFF:CODE=0:PRT=VARPTR(CODE)</div> <div>     POKE PRT,205:POKE PRT+1,5:POKE PRT+2,203</div> <div>     GOSUB 223 : PPP=1</div> <bR> <bR> <div> 25      PPP$=INKEY$ : IF PPP$="" THEN GOTO 34</div> <div>     PPP=VAL(PPP$)</div> <bR> <div>     IF INSTR("Aa",PPP$) THEN PPP=10</div> <div>     IF INSTR("  ",PPP$) THEN PPP=1</div> <div>     IF INSTR("Pp",PPP$) THEN GOSUB 279        ' To print screen</div> <div>     IF INSTR("Oo",PPP$) THEN GOSUB 157        ' OPERATE</div> <div>     ' Temporary Key Detections</div> <div>     IF INSTR("Qq",PPP$) THEN LOCATE 5,1:END</div> <div>     IF INSTR("Bb",PPP$) THEN PPP=11</div> <div>     IF INSTR("Tt",PPP$) THEN A%(26)=1-A%(26):_</div> <div>             LOCATE 2,2:PRINT "A%(26)= ";A%(26)</div> <div>     IF INSTR("Yy",PPP$) THEN GOSUB 240 : GOSUB 247  ' Alarm Check</div> <div>     IF INSTR("Uu",PPP$) THEN GOSUB 265  ' 4Hr Trend UPdate</div> <div>     IF INSTR("Ii",PPP$) THEN GOSUB 235  ' 13 Hr Trend  update and archive</div> <div>     IF INSTR("Gg",PPP$) THEN GOSUB 260  ' Gate Archive</div> <div>     IF INSTR("QqTtYyUuIiGg",PPP$) THEN GOTO 25</div> <bR> <div> 34      IF PPP=0 OR PPP=OOO THEN GOTO 39</div> <div>     OOO=PPP</div> <div>     '             1   2   3   4   5   6   7   8   9   10  11</div> <div>     ON OOO GOSUB  41, 42, 42, 42, 41, 41, 42, 41, 41, 41, 41</div> <div>     ON OOO GOSUB  47, 61, 64, 67, 70, 73, 75, 91, 97,111,117</div> <div>     COLOR 7</div> <div>     LOCATE U,50:PRINT "DATE: "UKDATE$;" TIME: ";TIME$</div> <div>     LOCATE U,U :PRINT "Page ";:PRINT USING "##";OOO</div> <bR> <div> 39      ON OOO GOSUB 130,165,130,130,169,180,130,130,130,185,130</div> <bR> <div>     LOCATE U,72 : COLOR 7:PRINT TIME$</div> <div>  goto 25</div> <div>     IF ABS(TIMER-TIM1)>  5 THEN TIM1=TIMER:_</div> <div>                    GOSUB 240 : GOSUB 247  ' Alarm Checking</div> <div>     IF ABS(TIMER-TIM2)> 30 THEN TIM2=TIMER:GOSUB 265  ' 4Hr Trend Update</div> <div>     IF ABS(TIMER-TIM3)>300 THEN TIM3=TIMER:_</div> <div>                    GOSUB 235 ' 13Hr Trend Update and Archive</div> <div>     GOTO 25</div> <bR> <div> 41      IF SCREEN09=TRUE  THEN SCREEN 0 : SCREEN09=FALSE  : GOSUB 253</div> <div>     RETURN</div> <div> 42      IF SCREEN09=FALSE THEN SCREEN 9 : SCREEN09=TRUE   : GOSUB 253</div> <div>     RETURN</div> <bR> <div>     '  ...................................   Page 1</div> <div> 47      TEXT$="MAIN MENU":GOSUB 136:LOCATE 7,1</div> <div>     PRINT TAB(25)"1)  MENU ":COLOR 2</div> <div>     PRINT TAB(25)"2)  CROSS SECTIONAL MIMIC"</div> <div>     PRINT TAB(25)"3)  TREND for the Previous 13 Hours"</div> <div>     PRINT TAB(25)"4)  TREND for the Previous  4 Hours":COLOR 3</div> <div>     PRINT TAB(25)"5)  GATES in SERVICE SELECTION"</div> <div>     PRINT TAB(25)"6)  FLOW EVALUATION AMENDMENT":COLOR 5</div> <div>     PRINT TAB(25)"7)  TREND for archived material "</div> <div>     PRINT TAB(25)"8)  COPY ARCHIVED MATERIAL TO FLOPPY"</div> <div>     PRINT TAB(25)"9)  EXIT TO DOS"</div> <div>     PRINT TAB(25)"A)  ALARM PAGE":</div> <div>     '     TAB(25)"11) START UP CHOICE" ------ Not Accessable from keyboard</div> <bR> <div>     LOCATE 20,43:COLOR 7:PRINT"Written by ";:COLOR 6</div> <div>     PRINT"AUGHTON PROCESS AUTOMATION"</div> <div>     LOCATE 18,2:PRINT"Use Numeric Keys and   ";:_</div> <div>               COLOR 6:PRINT"A";:COLOR 5:PRINT"larm ";:_</div> <div>               COLOR 6:PRINT"P";:COLOR 5:PRINT"rint  ";:_</div> <div>               COLOR 6:PRINT"O";:COLOR 5:PRINT"perate "</div> <bR> <div>     LOCATE 19,2:PRINT"Temporary keys  ------ ";:_</div> <div>               COLOR 6:PRINT"Y";:COLOR 5:PRINT"-alarm scan ";:_</div> <div>               COLOR 6:PRINT"U";:COLOR 5:PRINT"-4hr Trend ";:_</div> <div>               COLOR 6:PRINT"I";:COLOR 5:PRINT"-13hr T & A ";:_</div> <div>               COLOR 6:PRINT"T";:COLOR 5:PRINT"oggle ";:_</div> <div>               COLOR 6:PRINT"B";:COLOR 5:PRINT"-startup "</div> <div>     LOCATE 20,12:COLOR 6:PRINT"G";:COLOR 5:PRINT" gate position arch"</div> <div>     COLOR 7:RETURN</div> <bR> <div>     '  ...................................   Page 2</div> <div> 61      TEXT$="CROSS SECTIONAL MIMIC":GOSUB 136 : RETURN</div> <div>     '  ...................................   Page 3</div> <div> 64      TEXT$="TREND for the PAST 13 Hrs":GOSUB 136</div> <div>     No=0:GOSUB 133:RETURN</div> <div>     '  ...................................   Page 4</div> <div> 67      TEXT$="TREND for the PAST  4 Hrs":GOSUB 136</div> <div>     No=1:GOSUB 133:RETURN</div> <div>     '  ...................................   Page 5</div> <div> 70      TEXT$="GATES in Service":GOSUB 136 : RETURN</div> <div>     '  ...................................   Page 6</div> <div> 73    TEXT$="Flow Evaluation and Modification":GOSUB 136</div> <div>     Y=8 :X=40:TEXT$="Current Calculated Flow":GOSUB 140</div> <div>     Y=12:X=32:TEXT$="Automatic Calculation to be dormant for":GOSUB 140</div> <div>     GOSUB 155 </div> <div>     RETURN</div> <div>     '  ...................................   Page 7</div> <div> 75      PATH$=NORMPATH$</div> <div> 76      TEXT$="TREND for Archived Material":GOSUB 136:X=34:Y=12</div> <div>     LOCATE 7,12:PRINT "PATH";:COLOR 6:PRINT" is ";:COLOR 7:PRINT PATH$;_</div> <div>         "          Year";:COLOR 6:PRINT" is ";:COLOR 7:_</div> <div>         PRINT RIGHT$(STR$(YR),2);SPACE80$;"   "</div> <div>     LOCATE 19,4:PRINT"Please Press ";:COLOR 6:PRINT"RETURN";</div> <div>         COLOR 7:PRINT " if you wish to use these parameters"</div> <div>     LOCATE 20,14:PRINT"Otherwise press ";:COLOR 6</div> <div>         PRINT"O";:COLOR 7:PRINT"perate"</div> <div> 77      X$=INKEY$:IF X$="" THEN GOTO 77</div> <div>           IF INSTR("Oo",X$)=0 THEN GOTO 79</div> <div>     LOCATE 18,6:COLOR 5:PRINT "Press ";:COLOR 6:PRINT"RETURN";</div> <div>             COLOR 7:PRINT" for Default"</div> <div>     LOCATE 19,1:PRINT SPACE80$:LOCATE 19,4:INPUT"New Path = ";PATH$</div> <div>     IF PATH$="" THEN PATH$=NORMPATH$</div> <div>     LOCATE 19,1:PRINT SPACE80$   :LOCATE 19,4:INPUT"  Year   = ";YR</div> <div>     IF YR=0 THEN YR=YEAR</div> <div>     LOCATE 18,1:PRINT STRING$(3,SPACE80$):GOTO 76</div> <bR> <div> 79      LOCATE 12,15</div> <div>     PRINT "Please Specify which month's Trend you wish to view"</div> <div>     LOCATE 19,1:PRINT SPACE80$;SPACE80$</div> <div>     LOCATE 19,16:PRINT " Please Enter Number (1-13) "</div> <div>     LOCATE 20,12:COLOR 2:PRINT"13 for current month to date":COLOR 7</div> <div>     LOCATE 19,44:PRINT "     ":LOCATE 19,46:INPUT mnth</div> <div>     IF MNTH<1 OR MNTH>13 THEN GOSUB 125:GOTO 75:GOSUB 125:GOTO 76</div> <div>     IF MNTH=13 THEN MNTH=MOTH:HMAX=(DAY-1)*24+HOUR-13:GOTO 80</div> <div>     HMAX=MONTH(MNTH)*24-13</div> <div> 80      TEXT$="TREND for Archived Material":GOSUB 136</div> <div>     LOCATE 12,10:PRINT "Please Enter First Hour"</div> <div>     LOCATE 14,10:PRINT "from the beginning of ";WHOLEMONTH$(MNTH)</div> <div>     LOCATE 19,1:PRINT SPACE80$</div> <div> 85      X=26:Y=19:TEXT$=" Enter Number  ( 1 - "+STR$(HMAX)+" )   "</div> <div>     GOSUB 140</div> <div>     LOCATE 19,44:PRINT "     ":LOCATE 19,46:INPUT H</div> <div>     IF H<1 OR H>HMAX THEN GOSUB 125:GOTO 85</div> <div>     No=2:TEXT$="TREND for Archived Material":GOSUB 136</div> <div>     GOSUB 133:RETURN</div> <div>     '  ...................................   Page 8</div> <div> 91    TEXT$="COPY Archived Material to FLOPPY DISC":GOSUB 136</div> <div>     LOCATE 7,10:SHELL "DIR \BARMBY\*.DAT /W/P"</div> <div>     LOCATE 7,1 :PRINT STRING$(3,SPACE80$)</div> <div>     Y=8 :X=20:TEXT$="         Directory           ":GOSUB 140:GOSUB 155</div> <div>     RETURN</div> <div>     '  ...................................   Page 9</div> <div> 97    TEXT$="Exit to DOS Operating System":GOSUB 136</div> <div>     LOCATE 4,4:PRINT" Reminder ":LOCATE 5,4:PRINT"=========="</div> <div>     LOCATE 9,3:PRINT"   All Alarm Checking is suspended if this";_</div> <div>             " option is chosen"</div> <div>     PRINT</div> <div>     PRINT"     If you wish to move this machine it is advised that "</div> <div>     PRINT"     you type the command PARK, to park the Hard Disk Head"</div> <div>     PRINT"     in a safe position ready for transportation."</div> <div>     PRINT"     Do this once you have obtained the C:BARMBY> prompt."</div> <div>     GOSUB 155</div> <div>     RETURN</div> <div>     '  ...................................   Page A  ie Page 10</div> <div> 111     TEXT$="ALARM PAGE":GOSUB 136:RETURN</div> <div>     '  ...................................   Page 11</div> <div> 117    TEXT$="Start up Choice":GOSUB 136:LOCATE 6,3</div> <div>     PRINT "Select Tide Phase in which you wish the System to start"</div> <div>     LOCATE 9,10 :PRINT " 1,   Tide Lock"</div> <div>     LOCATE 11,10:PRINT " 2,   Tide Free"</div> <div>     LOCATE 13,10:PRINT " 3,   Initial Retention"</div> <div>     LOCATE 15,10:PRINT " 4,   Controlled Retention"</div> <div>     X=16:Y=19:TEXT$="Please Enter Number (1-4)":GOSUB 140</div> <div>     LOCATE 19,40:INPUT V</div> <div>     IF V<1 OR V>4 THEN GOSUB 125:GOTO 117</div> <div>     TEXT$="    Sending to SATT      ":GOSUB 140:GOSUB 270:GOSUB 120</div> <div>     TEXT$="       DONE  !!!         ":GOSUB 140:GOSUB 120:PPP=1</div> <div>     RETURN</div> <bR> <div>     '  ...................................   Wait</div> <div> 120     FOR I=Z TO BIG:NEXT:BIG=9999:RETURN</div> <bR> <div>     '  ...................................   INVALID ENTRY</div> <div> 125     LOCATE 17,1:PRINT STRING$(3,SPACE80$)</div> <div>     X=18:Y=19:TEXT$="     Invalid Entry          ":GOSUB 140</div> <div>     GOSUB 120:RETURN</div> <div>     '  ...................................   No action just Return</div> <div> 130     RETURN</div> <bR> <div>     '  ...................................   TRENDing PACKAGE</div> <div> 133     REM</div> <div>     REM       Filename         what was   TREND.BAS</div> <div>     REM **************************************************</div> <div>     REM *          YORKSHIRE WATER AUTHORITY             *</div> <div>     REM *                                                *</div> <div>     REM *      ..... Trending Section of Program ....... *</div> <div>     REM *                                                *</div> <div>     REM *             AUGHTON PROCESS AUTOMATION         *</div> <div>     REM *               BIRCHWOOD SCIENCE PARK           *</div> <div>     REM *              WARRINGTON    0925 830084         *</div> <div>     REM *                                                *</div> <div>     REM *   Author:-        Greg McCormack               *</div> <div>     REM *   PROJECT NUMBER :-  53/3521                   *</div> <div>     REM *   Version Number :-  0.11           May  '88   *</div> <div>     REM **************************************************</div> <bR> <div>     '..... Description of Important Variables used</div> <bR> <div>     ' No    - Trend Type Number 0,1 or 2</div> <div>     ' V0    - Number of Distinct Points across the screen</div> <div>     ' V3    - Number of Pixels across the screen</div> <div>     ' V4    - First Pixel of Trend</div> <div>     ' V8    - Tab position of Right Hand Side of trend</div> <div>     ' V10   - Time Increments</div> <div>     ' V11   - Tab spacing between Time increments</div> <div>     ' V9    - Tab position of Left Hand Side of trend</div> <bR> <div>     ON No+1 GOSUB 134,135,137</div> <bR> <div>     V8   =(V4+V3)/8</div> <div>     V9   =V4/8-4</div> <bR> <div>     '  ...................................   SETUP TRENDing PAGE</div> <div>     V5=V3+13:X1=V4-1:V12=V3+2</div> <div>     DRAW "C5 BM ="+VARPTR$(X1)+",61 R="+VARPTR$(V12)+" D201 R5 U205"+_</div> <div>          "L="+VARPTR$(V5)+" D205 R5 U201 BE2 P3,5"</div> <bR> <div>     '....... Produce Key</div> <div>     LOCATE 8,65:COLOR 7:PRINT "KEY":LOCATE 9,65:PRINT "====="</div> <div>   DRAW "BM 515,138"</div> <div>   DRAW " C5  R10 U10 L10 D10 BE5 P 4,5 C5 BG5":LOCATE 10,68:PRINT"- Gate 1 "</div> <div>   DRAW "BD14 R10 U10 L10 D10 BE5 P 7,5 C5 BG5":LOCATE 11,68:PRINT"- Gate 2 "</div> <div>   DRAW "BD14 R10 U10 L10 D10 BE5 P10,5 C5 BG5":LOCATE 12,68:PRINT"- Derwent"</div> <div>   DRAW "BD14 R10 U10 L10 D10 BE5 P14,5 C5 BG5":LOCATE 13,68:PRINT"- Ouse   "</div> <div>   DRAW "BD14 R10 U10 L10 D10 BE5 P 3,5 C5 BG5":LOCATE 14,68:PRINT"- Intake "</div> <div>   DRAW " C3  BM 510,128 D24 L1 U24 "</div> <div>   DRAW " C2  BM 510,156 D38 L1 U38 "</div> <bR> <div>     '....... Prints Numbers on Y axis</div> <div>     FOR I=0 TO 8</div> <bR> <div>     K%=262-25*I:KK=V4-7</div> <div>     DRAW "C7 BM ="+VARPTR$(KK)+",="+VARPTR$(K%)+" L7"</div> <bR> <div>     IF I/2=INT(I/2) THEN COLOR 3:LOCATE 19-I*1.736,V9-2:_</div> <div>                  PRINT USING  "#";I            :_</div> <div>                  COLOR 2:LOCATE 19-I*1.736,V9  :_</div> <div>                  PRINT USING "##";I-2          :_</div> <div>                  DRAW  "C7 D1 R7"</div> <div>     NEXT I</div> <bR> <div>     '....... Prints Label for Y axis</div> <div>     COLOR 5</div> <div>     FOR Y=1 TO 13</div> <div>     LOCATE Y+5,V9-5 : PRINT MID$("HEIGHT  mtrs   ",Y,1)</div> <div>     NEXT Y</div> <bR> <div>     '....... Prints x axis</div> <div>     DRAW "C5 BM 50,265 R 500"</div> <div>     FOR I = 0 TO XX</div> <div>     K%=V3/XX*I+V4</div> <div>     DRAW " BM ="+VARPTR$(K%)+",263 D2 L1 U2"</div> <div>     IF I/2=INT(I/2) THEN _</div> <div>         LOCATE 20,(V3+V4)/8-V3/8*I/XX : _</div> <div>         PRINT USING "###";-I*V10    -(H+13)*(No=2)</div> <div>     NEXT I</div> <bR> <div>     LOCATE 20,V8+4:PRINT "TIME ( Hours )"</div> <bR> <div>     COLOR 4:LOCATE 21,1:PRINT STRING$(80,"-")</div> <div>     </div> <bR> <div>     '......... Scroll Sample sideways one Update's worth</div> <div> 131     FOR V1=0 TO V0-1</div> <div>     FOR I=0 TO 4</div> <div>     V2=COL%(I)</div> <div>     X =V4+V1*V3/V0</div> <div>     K = V1</div> <div>         ANLG=262 - 200*(ARRAY(K,I)-ANALOFFSET(I))/8</div> <div>     DRAW  "C0 "</div> <div>     DRAW "BM="+VARPTR$(X)+",="+VARPTR$(ANLG)</div> <div>         X1=X+V3/V0</div> <div>         K=(K+1) MOD V0</div> <div>         ANLG=262 - 200*(ARRAY(K,I)-ANALOFFSET(I))/8</div> <bR> <div>     DRAW  "M="+VARPTR$(X1)+",="+VARPTR$(ANLG)</div> <div>     IF V1=V0-1 THEN GOTO 132</div> <div>     DRAW  "C="+VARPTR$(V2)</div> <div>     DRAW "BM="+VARPTR$( X)+",="+VARPTR$(ANLG)</div> <div>         K=(K+1) MOD V0</div> <div>         ANLG=262 - 200*(ARRAY(K,I)-ANALOFFSET(I))/8</div> <div>     DRAW  "M="+VARPTR$(X1)+",="+VARPTR$(ANLG)</div> <div> 132     NEXT I</div> <div>     NEXT V1</div> <div>     RETURN</div> <bR> <div>     '.......   13 Hour Trend GET</div> <div>     rem copy ARRAY13hr(x,x) into ARRAY(x,x) and setup index</div> <bR> <div> 134     No=0</div> <div>     XX=13</div> <div>     V0=V013hr  ' 12 updates an hour * 13 hours of trend  IE. 156</div> <div>     V3=390     ' 2.5 pixels per update  ( 156*2.5 = 390 )</div> <div>     V4=100     ' offset from Left Hand Side</div> <div>     V10=1      ' Time Increments  1 per hour</div> <div>     FOR PTR=0 TO V0</div> <div>     FOR I = 0 TO 4</div> <div>     ARRAY(PTR,I)=ARRAY13hr(((PTR+PTR13hr) MOD V0),I)</div> <div>     NEXT I</div> <div>     NEXT PTR</div> <div>     RETURN</div> <bR> <div>     '.......   4 Hour Trend GET</div> <div>     rem copy ARRAY4hr(x,x) into ARRAY(x,x) and setup index</div> <bR> <div> 135     No=1</div> <div>     XX=8</div> <div>     V0=V0for4hr       '  1 update every 30 seconds  IE. =120</div> <div>             ' 30 updates per hour * 4 hours of trend</div> <div>     V3=360          '  3 pixels per update</div> <div>     V4=120          '  offset from Left Hand Side</div> <div>     V10=0.5         '  Time Increment  ( every half an hour )</div> <div>     FOR PTR=0 TO V0</div> <div>     FOR I = 0 TO 4</div> <div>     ARRAY(PTR,I)=ARRAY4hr(((PTR+PTR4hr) MOD V0for4hr),I)</div> <div>     NEXT I</div> <div>     NEXT PTR</div> <div>     RETURN</div> <div>     </div> <div>     '.......  GET Archived Data</div> <div>     REM OPEN FILE AT PTR ---- COPY INTO ARRAY(X,X) and setup index</div> <bR> <div> 137     No=2</div> <div>     XX=13</div> <div>     V0=V013hr  ' 12 updates an hour * 13 hours of trend    IE. 156</div> <div>     V3=390     ' 2.5 pixels per update  ( 156*2.5 = 390 )</div> <div>     V4=100     ' offset from Left Hand Side</div> <div>     V10=1      ' Time Increments  1 per hour</div> <div>     FILENAM$=PATH$ + "MNTH" + _</div> <div>         RIGHT$("00"+RIGHT$(STR$(MNTH),LEN(STR$(MNTH))-1),2) + _</div> <div>         RIGHT$("00"+RIGHT$(STR$(YR  ),LEN(STR$(YR  ))-1),2) + ".DAT"</div> <div>     LOCATE 4,5:PRINT FILENAM$</div> <div>     OPEN "r",#12,FILENAM$,44</div> <div>     FIELD #12,6 AS FA$,6 AS FB$, 6 AS FC$,_</div> <div>           6 AS FD$,6 AS FE$,10 AS FF$,2 AS FG$</div> <div>     FOR PTR=H TO (H+13)*12</div> <div>     GET #12,PTR</div> <div>     K=PTR MOD V0</div> <div>     ARRAY(K,0)=VAL(FA$)  ' Values stored in  Meters</div> <div>     ARRAY(K,1)=VAL(FB$)</div> <div>     ARRAY(K,2)=VAL(FC$)</div> <div>     ARRAY(K,3)=VAL(FD$)</div> <div>     ARRAY(K,4)=VAL(FE$)</div> <div>     NEXT PTR</div> <div>     CLOSE #12</div> <div>     RETURN</div> <bR> <div> ' THAT'S ALL FOLKS !!!   ----------------------------  End of Trend</div> <bR> <bR> <div>     '  ...................................   Print Beginning of New Page</div> <div> 136     LOCATE 2,U:FOR I=U TO 19:PRINT SPACE80$:NEXT</div> <div>     COLOR 4:PRINT STRING$(80,"-"):COLOR 7</div> <div>     Y=3:X=35:' Dropping into Next Subroutine</div> <div>     '  ...................................   Produce Border around Text</div> <div> 140     IF SCREEN09 THEN COLOR 7 ELSE COLOR Z,BCOL</div> <div>     I=LEN(TEXT$)   ' X & Y specify centre of box</div> <div>     if y<2 or int(x-i/2-2)<1 then _</div> <div>             locate 5,5:print "y ";y;" x ";x;" i ";i:stop</div> <div>     LOCATE Y-1,INT(X-I/2-2):PRINT STRING$(I+4," ")    </div> <div>     LOCATE Y+1,INT(X-I/2-2):PRINT STRING$(I+4," ")</div> <div>     LOCATE Y  ,INT(X-I/2-2):PRINT " "</div> <div>     LOCATE Y  ,INT(X+I/2+1):PRINT " "</div> <div>     IF SCREEN09 THEN COLOR FCOL ELSE COLOR FCOL,Z</div> <div>     LOCATE Y  ,INT(X-I/2)  :PRINT TEXT$</div> <div>     IF SCREEN09 THEN COLOR 7 ELSE COLOR 7,Z</div> <div>     RETURN</div> <div>     '  ...................................   Type 'O' to Operate</div> <div> 155    X=16:Y=19:TEXT$="Type 'O' to Operate":GOSUB 140:RETURN</div> <div>     '  ...................................   Password Protection</div> <div> 157    IF OOO < 5 THEN RETURN</div> <div>     IF OOO = 9 THEN A=2 ELSE A=1</div> <div> 148    X=16:Y=19:TEXT$=" Password Please  ?":GOSUB 140:P$=""</div> <div> 149    X$=INKEY$:IF X$="" THEN GOTO 149</div> <div>     X=ASC(X$):IF X>90 THEN X=X-32</div> <div>     LOCATE 19,40:PRINT STRING$(LEN(P$)+1,".");"             "</div> <div>     P$=P$+CHR$(X):IF X<>13 THEN GOTO 149</div> <div>     P$=LEFT$(P$+CHR$(10)+STRING$(20,CHR$(0)),20)</div> <div>     IF P$=PASSWORD$(A) THEN GOTO 160</div> <div>     LOCATE 19,40:PRINT "Password INVALID":GOSUB 120</div> <div>     '             1  2  3  4  5  6  7  8  9  10  11</div> <div>     ON OOO GOSUB 47,61,64,67,70,73,75,91,97,111,117</div> <div>     RETURN</div> <div> 160    ON OOO GOSUB 130,130,130,130,187,195,130,199,206,130</div> <div>     RETURN</div> <div>     '  ..................................   Dynamic Information for PAGE 2</div> <div> 165     GOSUB 268 ' Get Analog Data</div> <bR> <div>     REM       Filename         what was    MIMIC.BAS</div> <div>     REM **************************************************</div> <div>     REM *          YORKSHIRE WATER AUTHORITY             *</div> <div>     REM *                                                *</div> <div>     REM *      ..... Gate Mimic Section .......          *</div> <div>     REM *                                                *</div> <div>     REM *             AUGHTON PROCESS AUTOMATION         *</div> <div>     REM *               BIRCHWOOD SCIENCE PARK           *</div> <div>     REM *              WARRINGTON    0925 830084         *</div> <div>     REM *                                                *</div> <div>     REM *   Author:-        Greg McCormack               *</div> <div>     REM *   PROJECT NUMBER :-  53/3521                   *</div> <div>     REM *   Version Number :-  0.05                      *</div> <div>     REM *   Last Update    :-  12/05/88         May '88  *</div> <div>     REM **************************************************</div> <bR> <div>     INDEX%=0</div> <bR> <div>     COLOR 9:LOCATE 7,10:PRINT "Derwent":LOCATE 7,48:PRINT "Derwent"</div> <div>     COLOR 3:LOCATE 7,23:PRINT " Ouse  ":LOCATE 7,61:PRINT " Ouse  "</div> <div>     COLOR 4:LOCATE 5,10:PRINT "----  G A T E   1  ----"</div> <div>     COLOR 5:LOCATE 5,47:PRINT "----  G A T E   2  ----"</div> <div>     COLOR 4:LOCATE 21,1:PRINT STRING$(80,"-")</div> <bR> <div>     ' INPUT PARAMETERS REQUIRED</div> <div>     ' ANALOGUE VALUES OF RIVER LEVELS AND GATE POSITIONS</div> <bR> <div>     V0 = (ANAL(0)-ANALOFFSET(0))/8</div> <div>     V1 = (ANAL(1)-ANALOFFSET(1))/8</div> <div>     V2 = (ANAL(2)-ANALOFFSET(2))/8</div> <div>     V3 = (ANAL(3)-ANALOFFSET(3))/8</div> <div>     V4 = (ANAL(4)-ANALOFFSET(4))/8</div> <bR> <div>     V5 = 200 - V0*50 + 50 : V6 = V5 - 100</div> <div>     V7 = 200 - V1*50 + 50 : V8 = V7 - 100</div> <bR> <div>     V0 = 250 - 150*V0</div> <div>     V1 = 250 - 150*V1</div> <div>     V2 = 250 - 150*V2</div> <div>     V3 = 250 - 150*V3</div> <div>     V4 = 250 - 150*V4</div> <bR> <div>     '...................................   DYNAMIC INFORMATION for Gate 1</div> <div>     DRAW "C0 BM  40,="+VARPTR$(V2)+" R99 M 139,99  L99 "+_</div> <div>          "    M  40,="+VARPTR$(V2)+" BE1 P0,0"</div> <div>     DRAW "C1 BM  40,="+VARPTR$(V2)+" R99 M 139,251 L99 "+_</div> <div>          "    M  40,="+VARPTR$(V2)+" BF1 P1,1"</div> <bR> <bR> <div>     DRAW "C0 BM 140,="+VARPTR$(V6)+" R09 M 149,99  L09 "+_</div> <div>          "    M 140,="+VARPTR$(V6)+" BE1 P0,0"</div> <bR> <div>     DRAW "C4 BM 140,="+VARPTR$(V6)+" R09 " +_</div> <div>          "    M 149,="+VARPTR$(V5)+" L09 " +_</div> <div>          "    M 140,="+VARPTR$(V6)+" BF1 P4,4" +_</div> <div>          "   BM 140,="+VARPTR$(V5)+" BE1 P4,4"</div> <bR> <div>     DRAW "C1 BM 140,="+VARPTR$(V5)+" R09 M 149,251 L09 "+_</div> <div>          "    M 140,="+VARPTR$(V5)+" BF1 P1,1"</div> <bR> <bR> <div>     DRAW "C0 BM 150,="+VARPTR$(V3)+" R99 M 249,99  L99 "+_</div> <div>          "    M 150,="+VARPTR$(V3)+" BE1 P0,0"</div> <div>     DRAW "C3 BM 150,="+VARPTR$(V3)+" R99 M 249,251 L99 "+_</div> <div>          "    M 150,="+VARPTR$(V3)+" BF1 P3,3"</div> <bR> <div>     ' ................................. Dynamic Info for Gate 2</div> <bR> <div>     DRAW "C0 BM 350,="+VARPTR$(V2)+" R99 M 449,99  L99 "+_</div> <div>          "    M 350,="+VARPTR$(V2)+" BE1 P0,0"</div> <div>     DRAW "C1 BM 350,="+VARPTR$(V2)+" R99 M 449,251 L99 "+_</div> <div>          "    M 350,="+VARPTR$(V2)+" BF1 P1,1"</div> <bR> <bR> <div>     DRAW "C0 BM 450,="+VARPTR$(V8)+" R09 M 459,99  L09 "+_</div> <div>          "    M 450,="+VARPTR$(V8)+" BE1 P0,0"</div> <bR> <div>     DRAW "C5 BM 450,="+VARPTR$(V8)+" R09 " +_</div> <div>          "    M 459,="+VARPTR$(V7)+" L09 " +_</div> <div>          "    M 450,="+VARPTR$(V8)+" BF1 P5,5" +_</div> <div>          "   BM 450,="+VARPTR$(V7)+" BE1 P5,5"</div> <bR> <div>     DRAW "C1 BM 450,="+VARPTR$(V7)+" R09 M 459,251 L09 "+_</div> <div>          "    M 450,="+VARPTR$(V7)+" BF1 P1,1"</div> <bR> <bR> <div>     DRAW "C0 BM 460,="+VARPTR$(V3)+" R99 M 559,99  L99 "+_</div> <div>          "    M 460,="+VARPTR$(V3)+" BE1 P0,0"</div> <div>     DRAW "C3 BM 460,="+VARPTR$(V3)+" R99 M 559,251 L99 "+_</div> <div>          "    M 460,="+VARPTR$(V3)+" BF1 P3,3"</div> <bR> <div>     LOCATE 19,13:COLOR 4</div> <div>     PRINT "Gate1 - ";:PRINT USING "##.##";ANAL(0); : PRINT" mtrs"</div> <div>     LOCATE 19,50:COLOR 5</div> <div>     PRINT "Gate2 - ";:PRINT USING "##.##";ANAL(1); : PRINT" mtrs"</div> <bR> <div>     COLOR 10:LOCATE 10,34:PRINT "Ouse";</div> <div>          LOCATE 11,38:PRINT USING "##.##";ANAL(3)</div> <div>     COLOR 14:LOCATE 08,34:PRINT "Derwent";</div> <div>          LOCATE 09,38:PRINT USING "##.##";ANAL(2)</div> <div>     COLOR 3 :LOCATE 12,34:PRINT "Intake";</div> <div>          LOCATE 13,38:PRINT USING "##.##";ANAL(4);</div> <div>          LOCATE 14,37:PRINT" mtrs"</div> <div>     RETURN</div> <bR> <div> ' THAT'S ALL FOLKS !!!     ----------------------  End of Mimic</div> <bR> <bR> <div>     '  ..................................   Dynamic Information for PAGE 5</div> <div> 169     IF GATE1SERV    THEN BCOL=2:TEXT$="  GATE 1 IN SERVICE  " _</div> <div>             ELSE BCOL=1:TEXT$="GATE 1 NOT IN SERVICE"</div> <div>     Y=9:X=24 :GOSUB 140</div> <div>     IF GATE2SERV    THEN BCOL=2:TEXT$="  GATE 2 IN SERVICE  " _</div> <div>             ELSE BCOL=1:TEXT$="GATE 2 NOT IN SERVICE"</div> <div>     Y=9:X=60 :GOSUB 140</div> <div>     BCOL=5:GOSUB 155</div> <div>     RETURN</div> <div>     '  ..................................   Dynamic Information for PAGE 6</div> <div> 180     REG%=50:CNT%=1:BUF%=VARPTR(REGISTER%(Z)):ST%=VARPTR(STAT%)</div> <div>     call GETREG(PLC%,REG%,CNT%,BUF%,ST%)</div> <div>     IF STAT%<>1 THEN ERROR 200</div> <div>     LOCATE  8,55:PRINT"= ";REGISTER%(Z);" Cumecs"</div> <div>     LOCATE 12,55:PRINT"= ";REGISTER%(U);" Hours "</div> <div>     RETURN</div> <div>     '  ...................................  Dynamic Information for Page A</div> <div> 185    B=0:LOCATE 6,U:COLOR 4,Z</div> <div>     FOR I=Z TO 31</div> <div>     IF ALARM%(I)=TRUE AND (TYPE%(I) AND 2)=2 THEN B=B+1:_</div> <div>         PRINT LEFT$(ALRMTIME$(I)+"   "+TAG$(I)+SPACE80$,70)+S$(U)</div> <div>     NEXT I</div> <div>     COLOR 7,Z:FOR I=B TO 14:PRINT SPACE80$:NEXT I</div> <div>     RETURN</div> <bR> <div>     '*****************************************************************</div> <bR> <div>     '  ..................................   Operator Interface for  PAGE 5</div> <div> 187    X=16:Y=19:FCOL=6:TEXT$="Gate 1 in service (Y/N)":GOSUB 140</div> <div> 188    X$=INKEY$:IF X$="" THEN GOTO 188</div> <div>     GATE1SERV=FALSE:IF INSTR("Yy",X$) THEN GATE1SERV=TRUE</div> <div>     X=16:Y=19:TEXT$="Gate 2 in service (Y/N)":GOSUB 140</div> <div> 191    X$=INKEY$:IF X$="" THEN GOTO 191</div> <div>     GATE2SERV=FALSE:IF INSTR("Yy",X$) THEN GATE2SERV=TRUE</div> <div>     GOSUB 70:X=16:Y=19</div> <div>     TEXT$="    Sending to SATT    ":GOSUB 140:GOSUB 120:GOSUB 273</div> <div>     TEXT$="       DONE  !!!       ":GOSUB 140:FCOL=7</div> <div>     RETURN</div> <div>     '  ..................................   Operator Interface for  PAGE 6</div> <div> 195    X=16:Y=19:TEXT$="Enter New Flow Value":GOSUB 140</div> <div>     LOCATE 19,40:PRINT"       ":LOCATE 19,40:INPUT REGISTER%(Z)</div> <div>     X=16:Y=19:TEXT$="Enter New Duration  ":GOSUB 140</div> <div>     LOCATE 19,40:PRINT"       ":LOCATE 19,40:INPUT REGISTER%(U)</div> <div>     LOCATE 19,38:PRINT"       "</div> <div>     TEXT$="    Sending to SATT    ":GOSUB 140:GOSUB 120:GOSUB 276</div> <div>     TEXT$="       DONE  !!!       ":GOSUB 140</div> <div>     RETURN</div> <div>     '  ..................................   Operator Interface for  PAGE 8</div> <div> 199     GOSUB 120:X=19</div> <div>     TEXT$="    Enter Filename      ":GOSUB 140</div> <div>     LOCATE 19,38:PRINT "       ":LOCATE 19,40:INPUT A$</div> <div>     IF A$="" THEN GOTO 204</div> <div>     IF RIGHT$(A$,4)<>".DAT" AND RIGHT$(A$,4)<>".dat" THEN A$=A$+".DAT"</div> <div>     IF LEN(A$)<>12 THEN TEXT$=" BAD NAME --- TRY AGAIN ":GOSUB 140:_</div> <div>                 GOTO 199</div> <div>     TEXT$="Ensure Drive A: is Ready": GOSUB 140</div> <div> 200     X$=INKEY$: IF X$="" THEN GOTO 200</div> <div>     IF INSTR("Yy"+CHR$(13),X$)=0 THEN GOTO 204</div> <div>     TEXT$="Confirm File Copy (Y/N) ": GOSUB 140</div> <div> 201     X$=INKEY$: IF X$="" THEN GOTO 201</div> <div>     IF INSTR("Yy",X$)=0 THEN GOTO 204</div> <div> 202     SHELL "COPY C:\BARMBY\"+A$+" A:"</div> <div>     FCOL=4</div> <div>     TEXT$="    Done   !!!          ":GOSUB 140:FCOL=7</div> <div> 204     GOSUB 120:PPP=1:RETURN</div> <div>     '  ..................................   Operator Interface for  PAGE 9</div> <div> 206    GOSUB 120</div> <div>     FCOL=4:Y=3:X=35:TEXT$="Monitoring Terminated":GOSUB 136:GOSUB 120</div> <div>     COLOR 2:LOCATE 3,4:PRINT" Reminder ":LOCATE 4,4:PRINT"=========="</div> <div>     COLOR 7:LOCATE 5,1</div> <div>     PRINT"  1, To alter  Time or Date   Type: TIME or DATE "</div> <div>     PRINT"     then type in new values, either of these must be followed"</div> <div>     PRINT"     by the command SETCLOCK which loads the battery-backed"</div> <div>     PRINT"     clock with the current system time."</div> <div>     PRINT"  2, To alter passwords type COPY CON: PASSWORD.00* "    </div> <div>     PRINT"     then enter the new password followed by <CNTRL Z>,<RETURN>"</div> <div>     PRINT"     .... where * is equal to 1 for the Operators password"</div> <div>     PRINT"            and * is equal to 2 for the Engineers password."</div> <div>     PRINT"  3, To alter parameters in SATT type TERMIBM to bring up"</div> <div>     PRINT"     SATT communications program."</div> <div>     PRINT"     You must be familiar with SATT programming."</div> <div>     PRINT"  4, If you wish to move this machine it is advised that "</div> <div>     PRINT"     you type the command PARK to park the Hard Disk Head"</div> <div>     PRINT"     in a safe position ready for transportation."</div> <div>     GOSUB 285</div> <div>     FCOL=6         :TEXT$="     Closing Files   ":GOSUB 140:GOSUB 120</div> <div>     LOCATE 19,6:COLOR 2:PRINT"Barmby Control Program Terminated":GOSUB 120</div> <div>     LOCATE 19,50:PRINT"Type EXIT to return to BARMBY":GOSUB 120</div> <div>     PRINT STRING$(6,SPACE80$)</div> <div>     GOSUB 120:LOCATE 20,1:PRINT ;</div> <div>     SHELL</div> <div>     'END</div> <bR> <div>     '  ...................................................</div> <div> 210    DATA 31,28,31,30,31,30,31,31,30,31,30,31</div> <div>     DATA JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC</div> <div>     DATA JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST</div> <div>     DATA SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER</div> <div>     DATA 0 , 0 , -2, -2, -2</div> <div>     DATA 8 , 8 ,  6,  6,  6</div> <div>     DATA 4 , 7 , 10, 14,  3</div> <div>     '  Digitals</div> <div>     DATA GATE 1 IN SERVICE,             0,3</div> <div>     DATA GATE 2 IN SERVICE,             0,3</div> <div>     DATA LIGHT ON IN MOTOR ROOM,        0,1</div> <div>     DATA START UP,                      0,1</div> <div>     DATA MANUAL MODE,                   0,1</div> <div>     DATA SLACK WIRE DETECTED FOR GATE 1,0,3</div> <div>     DATA SLACK WIRE DETECTED FOR GATE 2,0,3</div> <div>     DATA GATE 1 MOTOR TRIPPED,          0,3</div> <div>     DATA GATE 2 MOTOR TRIPPED,          0,3</div> <div>     DATA EMERGENCY STOP,                1,3</div> <div>     DATA GATES HAVE MOVED,              0,4</div> <div>     DATA SATT BATTERY NEEDS CHANGING,   0,2</div> <div>     DATA SYSTEM IN TIDE LOCK,           0,1</div> <div>     DATA SYSTEM IN FREE FLOW,           0,1</div> <div>     DATA SYSTEM IN INITIAL RETENTION,   0,1</div> <div>     DATA SYSTEM IN CONTROLLED RETENTION,0,1</div> <div>     '  Internally Detected Errors</div> <div>     DATA BAD COMMUNICATIONS TO SATT,    0,3</div> <div>     DATA PRINTER NOT AVAILABLE,         0,3</div> <div>     DATA KEY T HAS BEEN PRESSED,        0,3</div> <div>     '  Analogues</div> <div>     DATA POSITION OF GATE 1            ,Mtrs,0,100</div> <div>     DATA POSITION OF GATE 2            ,Mtrs,0,100</div> <div>     DATA LEVEL OF DERWENT              ,Mtrs,0,100</div> <div>     DATA LEVEL OF OUSE                 ,Mtrs,0,100</div> <div>     DATA LEVEL AT INTAKE               ,Mtrs,0,100</div> <div>     DATA ESTIMATED FLOW              ,Cumecs,0,100</div> <bR> <div>     REM    TYPE%(.) AND 1  indicates  'Notify on High Transition'</div> <div>     REM             AND 2  indicates  'Notify on  Low Transition'</div> <div>     REM             AND 4  indicates GATEmmyy.DAT update to be performed</div> <div>     REM                         on High Tranition of Flag</div> <bR> <div>     '  ...................................   SET UP</div> <div> 223     U=1:Z=0:PP=0:TRUE=-1:FALSE=0:BIG=9999:SCREEN09=FALSE</div> <div>     TIM1=0:TIM2=0:TIM3=0</div> <div>     V0for4hr=120 : V013hr=156</div> <div>     POWER2%(Z)=128:FOR I=U TO 7:POWER2%(I)=POWER2%(I-1)/2:NEXT I</div> <div>     PLC%=U:BUF%=Z:ST%=Z:STAT%=Z:FREQ=5:FCOL=7:BCOL=5</div> <div>     SPACE80$=STRING$(80," ") : NORMPATH$="C:\BARMBY\"</div> <bR> <div>     ' Initialises Comli</div> <div>     INIT1=54 : BAUD%=12 : RETRIES%=2 : TIME0UT%=3</div> <div>     call INIT1(BAUD%, RETRIES%, TIMEOUT%)</div> <bR> <div>     ' GETS comli out of terminal mode even if it wasn't in terminal mode</div> <div>     'OPEN "COM1:9600,N,8,1" AS #7</div> <div>     'PRINT #7,CHR$(2)</div> <div>     'CLOSE #7</div> <bR> <div>     LINE23$=SPACE80$ : LINE24$=SPACE80$ : LINE25$=SPACE80$</div> <div>     FOR I= U TO 12:READ       MONTH(I):NEXT I</div> <div>     FOR I= U TO 12:READ      MONTH$(I):NEXT I</div> <div>     FOR I= U TO 12:READ WHOLEMONTH$(I):NEXT I</div> <div>     FOR I= Z TO  4:READ  ANALOFFSET(I):NEXT I</div> <div>     FOR I= Z TO  4:READ    ANALGAIN(I):NEXT I</div> <div>     FOR I= Z TO  4:READ        COL%(I):NEXT I</div> <bR> <div>     GOSUB 230:GOSUB 231:GOSUB 233:GOSUB 238</div> <bR> <div>     FOR I= Z TO 15:READ   TAG$(I),SENSE%(I),TYPE%(I)          :NEXT I</div> <div>     FOR I=24 TO 26:READ   TAG$(I),SENSE%(I),TYPE%(I)          :NEXT I</div> <div>        'FOR I=32 TO 37:READ   TAG$(I), UNIT$(I),ZERO%(I),RANGE%(I):NEXT I</div> <bR> <div>     S$(Z)="CLEAR ":S$(U)="ALARM "</div> <div>     '.....................................   Read  Passwords in</div> <div>     OPEN "R",#11,"C:\BARMBY\PASSWORD.001",20</div> <div>     FIELD #11,20 AS FA$ :GET #11,1 : PASSWORD$(1)=FA$ : CLOSE #11</div> <div>     OPEN "R",#11,"C:\BARMBY\PASSWORD.002",20</div> <div>     FIELD #11,20 AS FA$ :GET #11,1 : PASSWORD$(2)=FA$ : CLOSE #11</div> <div>     '..... SETUP array</div> <div>     FOR K=0 TO 4</div> <div>     FOR I=0 TO 200</div> <div>     ARRAY4hr( I,K)=ANALOFFSET(K)</div> <div>     ARRAY13hr(I,K)=ANALOFFSET(K)</div> <div>     NEXT I</div> <div>     NEXT K</div> <div>     RETURN</div> <bR> <div>     REM    Check date for monthly back up and read alarms</div> <div>     REM     Update 4 hour trend every 30 secs</div> <div>     REM    Update 13 hour trend every 5 minutes</div> <div>     REM      and also store archived data every 5 minutes</div> <div>     REM     Do gate Position archive when change occurs</div> <bR> <div>     '  ...................................   Date Check</div> <div> 230     MINUTE=VAL( MID$( TIME$,4,2))</div> <div>     HOUR  =VAL(LEFT$( TIME$  ,2))</div> <div>     SEC   =VAL(RIGHT$(TIME$  ,2))</div> <div>     IF MINUTES<>0 OR HOUR23<>23 THEN GOTO 232</div> <div> 231     YEAR  =VAL(RIGHT$(DATE$  ,4)) : YR=YEAR</div> <div>     MOTH  =VAL(LEFT$( DATE$  ,2))</div> <div>     DAY   =VAL(MID$(  DATE$,4,2))</div> <div>     MONTH(2)=29-(YEAR/4-INT(YEAR/4))</div> <div>     IF DAY>MONTH(MOTH) THEN DAY =1:MOTH=MOTH+1:GOSUB 233 : OOO=8 :_</div> <div>         IF MOTH>12 THEN MOTH=1:YEAR=YEAR+1:_</div> <div>         IF YEAR>99 THEN YEAR=00</div> <div>       ' DATE$=RIGHT$("00"+MID$(STR$(MOTH),2),2)+"-"+_</div> <div>       '       RIGHT$("00"+MID$(STR$(DAY) ,2),2)+"-"+_</div> <div>       '                   MID$(STR$(YEAR),2)</div> <div>     UKDATE$=MID$(DATE$,4,3)+MONTH$(MOTH)+"-"+RIGHT$(DATE$,2)</div> <div>     COLOR 7 : LOCATE U,50:PRINT "DATE: "UKDATE$</div> <bR> <div> 232     HOUR23=HOUR</div> <div>     RETURN</div> <bR> <div>     '  ..................................   Close Month File start another</div> <div> 233     FILEXT$=RIGHT$("00"+RIGHT$(STR$(MOTH),LEN(STR$(MOTH))-1),2) + _</div> <div>     RIGHT$("00"+RIGHT$(STR$(YEAR),LEN(STR$(YEAR))-1),2) + ".DAT"</div> <div>     GOSUB 238</div> <div>     RETURN</div> <bR> <div>     '  ...................................   Background Tasks  ( 5 mins )</div> <div>     '  ...................................   Normal Archive</div> <div> 235     GOSUB 240 : GOSUB 268</div> <div>     STATUS$=CHR$(48-(A%(12)=1)) +_</div> <div>         CHR$(48-(A%(13)=1)) +_</div> <div>         CHR$(48-(A%(14)=1)) +_</div> <div>         CHR$(48-(A%(15)=1)) +_</div> <div>         CHR$(48-(A%(00)=1)) +_</div> <div>         CHR$(48-(A%(01)=1))</div> <div>     FILENAM$="C:\BARMBY\MNTH" + FILEXT$</div> <div>  LOCATE 5,5:PRINT "Normal Archive ";FILENAM$</div> <div>     OPEN "r",#12,FILENAM$,44</div> <div>     FIELD #12,6 AS FA$,6 AS FB$, 6 AS FC$,_</div> <div>           6 AS FD$,6 AS FE$,10 AS FF$,2 AS FG$</div> <div>     FREQ=5</div> <div>     PTR=INT((((DAY-1)*24+HOUR)*60+MINUTE)/FREQ)</div> <div>  LOCATE 6,20:PRINT " Pointer = ";PTR</div> <div>     RSET FA$=STR$(ANAL(0))       ' Gate 1</div> <div>     RSET FB$=STR$(ANAL(1))       ' Gate 2</div> <div>     RSET FC$=STR$(ANAL(2))       ' Derwent</div> <div>     RSET FD$=STR$(ANAL(3))       ' Ouse</div> <div>     RSET FE$=STR$(ANAL(4))       ' Intake</div> <div>     RSET FF$=STATUS$   ' Status Info</div> <div>     RSET FG$=CHR$(13)+CHR$(10)</div> <div>  LOCATE 7,20 :PRINT FA$;FB$;FC$;FD$;FE;FF$</div> <div>     PUT #12,PTR</div> <div>     CLOSE #12</div> <div>     PTR13hr=(PTR13hr+1) MOD V013hr</div> <div>     FOR I=0 TO 4 : ARRAY13hr(PTR13hr,I)=ANAL(I) : NEXT I :_</div> <div>     IF OOO=3 THEN  GOSUB 134:GOSUB 131</div> <div>     RETURN</div> <bR> <div>     ' .....................  Put title onto current gate file GATEmmyy.DAT</div> <div> 238     FILENAM$="C:\BARMBY\GATE" + FILEXT$</div> <div>     OPEN FILENAM$ FOR APPEND AS #12</div> <div>     PRINT #12," "</div> <div>     PRINT #12, UKDATE$;" ";TIME$;"   "</div> <div>     PRINT #12," "</div> <div>     PRINT #12,"  Date   &  Time       ";_</div> <div>                 "Gate1  Gate2   Derw   Ouse  Intak     Status"</div> <div>     PRINT #12," "</div> <div>     PRINT #12,"         Values in metres A.O.D. "</div> <div>     PRINT #12," "</div> <div>     CLOSE #12</div> <div>     RETURN</div> <bR> <div>     '  ...................................   SATT digital communications</div> <div> 240     GOSUB 230   ' Get Date and Time</div> <div>     IO%=640     ' 1200 in OCTAL</div> <div>     A%(24)=0    ' Reset Bad-comms-to-satt flag</div> <div>     CNT%=2:BUF%=VARPTR(AA%(Z)):ST%=VARPTR(STAT%)</div> <div>     call GETIO(PLC%,IO%,CNT%,BUF%,ST%)</div> <div>     IF STAT%<>1 THEN ERROR 200</div> <div> 242    LPRINT CHR$(Z);</div> <div>     IF PP<>Z THEN GOSUB 290</div> <bR> <div> 244     FOR  J=Z TO 2</div> <div>     FOR  I=Z TO 7  : A%(I+J*8)=(AA%(J) AND POWER2%(I)) / POWER2%(I)</div> <div>     NEXT I</div> <div>     NEXT J</div> <div>     RETURN</div> <bR> <div>     ' .................................. Alarm Detection</div> <div> 247    FOR I = Z TO 31</div> <div>     AB%=ALARM%(I)</div> <div>     ALARM%(I)=(SENSE%(I)<>A%(I))</div> <div>     IF (TYPE%(I) AND 1)=1 AND ALARM%(I)>AB% THEN GOSUB 250</div> <div>     IF (TYPE%(I) AND 2)=2 AND ALARM%(I)<AB% THEN GOSUB 250</div> <div>     IF (TYPE%(I) AND 4)=4 AND ALARM%(I)>AB% THEN GOSUB 260 ' Gates moved</div> <div>     NEXT I</div> <div>     RETURN</div> <bR> <div>     ' ................................ Alarm Handling</div> <div> 250    LINE22$=LINE23$</div> <div>     LINE23$=LINE24$</div> <div>     C%=ALARM%(I) : IF C% THEN K=7:L=4 ELSE K=4:L=Z</div> <div>     LINE24$=LEFT$(MID$(STR$(K),2)+MID$(STR$(L),2)+TIME$+"   "+_</div> <div>         TAG$(I)+SPACE80$,70)+LEFT$(S$(-C%)+SPACE80$,9)</div> <div>     ALRMTIME$(I)=TIME$</div> <div>     GOSUB 252</div> <div>     GOSUB 253</div> <div>     RETURN</div> <bR> <div>     ' ................... TO PRINTER</div> <div> 252    IF PP THEN RETURN</div> <div>     A$=LEFT$(" "+UKDATE$+"  "+TIME$+"   "+TAG$(I)+SPACE80$,70)+_</div> <div>         LEFT$(S$(-ALARM%(I)),9):LPRINT A$</div> <div>     RETURN</div> <bR> <div>     ' .................. TO PRINT LINES 23 & 24 & 25</div> <div> 253    LOCATE 22,U</div> <div>     IF SCREEN09 THEN COLOR 4 ELSE _</div> <div>         COLOR VAL(LEFT$(LINE22$,1)),VAL(MID$(LINE22$,2,1))</div> <div>     PRINT MID$(LINE22$,3)</div> <div>     LOCATE 23,U</div> <div>     IF SCREEN09 THEN COLOR 4 ELSE _</div> <div>         COLOR VAL(LEFT$(LINE23$,1)),VAL(MID$(LINE23$,2,1))</div> <div>     PRINT MID$(LINE23$,3)</div> <div>     LOCATE 24,U</div> <div>     IF SCREEN09 THEN COLOR 4 ELSE _</div> <div>         COLOR VAL(LEFT$(LINE24$,1)),VAL(MID$(LINE24$,2,1))</div> <div>     PRINT MID$(LINE24$,3);</div> <div>     IF SCREEN09 THEN COLOR 4 ELSE COLOR 7,Z</div> <div>     RETURN</div> <bR> <div>     ' ................................   Do Gate Movement Archiving</div> <div> 260    GOSUB 268</div> <div>     STATUS$=CHR$(48-(A%(12)=1)) +_</div> <div>         CHR$(48-(A%(13)=1)) +_</div> <div>         CHR$(48-(A%(14)=1)) +_</div> <div>         CHR$(48-(A%(15)=1)) +_</div> <div>         CHR$(48-(A%(00)=1)) +_</div> <div>         CHR$(48-(A%(01)=1))</div> <div>     FILENAM$="C:\BARMBY\GATE" + FILEXT$</div> <div>     LOCATE 5,5:PRINT "gate archive   ";FILENAM$</div> <div>     OPEN FILENAM$ FOR APPEND AS #12</div> <div>     PRINT #12,UKDATE$;" ";TIME$;"   ";</div> <div>     PRINT #12,USING "  ##.##";ANAL(Z);      ' Gate 1</div> <div>     PRINT #12,USING "  ##.##";ANAL(U);      ' Gate 2</div> <div>     PRINT #12,USING "  ##.##";ANAL(2);      ' Derwent</div> <div>     PRINT #12,USING "  ##.##";ANAL(3);      ' Ouse</div> <div>     PRINT #12,USING "  ##.##";ANAL(4);      ' Intake</div> <div>     PRINT #12,"   ";STATUS$                 ' Status Info</div> <div>     CLOSE #12</div> <div>     RETURN</div> <bR> <div>     ' ................................   Update 4HR trend  (EVERY 30 SECS)</div> <div> 265     GOSUB 268 : PTR4hr=(PTR4hr + 1) MOD V0for4hr</div> <div>     FOR I=0 TO 4 : ARRAY4hr(PTR4hr,I)=ANAL(I) : NEXT I</div> <div>     IF OOO=4 THEN _</div> <div>         GOSUB 135:GOSUB 131</div> <div>     RETURN</div> <bR> <div>     ' ................................   Get Analog Data</div> <div> 268    ADDR%=128 'for octal 200</div> <div>     CNT%=5:BUF%=VARPTR(AAA%(Z)):ST%=VARPTR(STAT%)</div> <div>     call GETANA(PLC%,ADDR%,CNT%,BUF%,ST%)</div> <div>     IF STAT%<>1  THEN ERROR 200</div> <bR> <div>     'for i=z to 4</div> <div>     'AAA%(i)=((val(right$(time$,2))+I)*60 MOD 4096)</div> <div>     'next i</div> <bR> <div>     FOR I=Z TO 4</div> <div>     A=AAA%(I):IF A<0 THEN A=65535+A</div> <div>     ANAL(I)= A / 65536 * ANALGAIN(I) + ANALOFFSET(I)</div> <div>     LOCATE I+6,1:PRINT USING "##.##";ANAL(I)</div> <div>     NEXT I</div> <div>     RETURN</div> <bR> <div>     '  ...............................   Send Start-up Information to SATT</div> <div> 270    REM</div> <div>     RETURN</div> <bR> <div>     '  ...................................   Send Gate Information to SATT</div> <div> 273     REM</div> <div>     RETURN</div> <bR> <div>     '  ...................................   Send Flow Information to SATT</div> <div> 276    REM</div> <div>     RETURN</div> <bR> <div>     '  ...................................   SCREEN DUMP</div> <div> 279    IF P>0 THEN RETURN</div> <div>     REM LPRINT CHR$(12)</div> <div>     REM CALL PRT</div> <div>     REM LPRINT CHR$(12)</div> <div>     RETURN</div> <bR> <div>     '  ...................................   Put Comli into terminal mode</div> <div> 285     'A$=CHR$(02)+CHR$(00)+CHR$(30)+CHR$(30)+CHR$(44)+_</div> <div>     '   STRING$(6,CHR$(30))+CHR$(03)</div> <div>     'OPEN "COM1:9600,N,8,1" AS #7</div> <div>     'PRINT #7,A$</div> <div>     'CLOSE #7</div> <div>     RETURN</div> <bR> <div>     '  .............................   Send Current Alarm list to printer</div> <div> 290    GOSUB 230</div> <div>     LPRINT    CHR$(13);CHR$(13);CHR$(13);CHR$(13);_</div> <div>         " DATE ";UKDATE$;"   ";TIME$;CHR$(13);CHR$(13)</div> <div>     FOR I=Z TO 31</div> <div>     IF ALARM%(I)=TRUE AND (TYPE%(I) AND 2)=2 THEN       _</div> <div>         LPRINT LEFT$("              "+ALRMTIME$(I)+_</div> <div>                  "   "+TAG$(I)+SPACE80$,70)         +  S$(U)</div> <div>     NEXT I</div> <div>     LPRINT CHR$(10);STRING$(80,"-");CHR$(10);CHR$(13)</div> <div>     PP=Z:A%(25)=FALSE</div> <div>     RETURN</div> <bR> <div>     '  ...................................   Error Handling</div> <div> 297     IF ERR=200 THEN A%(24)=TRUE:STAT%=1:RESUME NEXT</div> <div>     IF ERR=24 OR ERR=25 THEN PP=128:A%(25)=1</div> <div>     IF ERL=242 THEN RESUME 244</div> <div>     LOCATE 21,1:COLOR 7:PRINT STRING$(3,SPACE80$)</div> <div>     LOCATE 21,1:PRINT "Please make a note of this error";_</div> <div>         " and contact an engineer from AUGHTON PROCESS AUTOMATION"</div> <div>     PRINT " Error ";ERR;" Last line reference ";ERL</div> <div>     PRINT:PRINT "This program will Restart soon !!!"</div> <div>     BIG=999999:GOSUB 120</div> <div>     RESET</div> <div>     RUN</div> <bR> <bR> <div> 'EOF   -- Click <A HREF="#top" TITLE="Barmby"><U>Here</U></A> to get back to the top of the page</div> <bR> </td> </tr></table></body>