******** magneto6.bas : "a:" NOORD(): FORCE(): GEMIDNOORD(A ): GEMIDFORCE(A ) GEMIDNOORDT(A ): GEMIDFORCET(A )d:N:X1:TOTX:XT:NOORDMINx:NOORDMAXx:FORCEMINx:FORCEMAXxn#  -TOTNOORD:TOTFORCE: SEC$(,)2 GOSUB 1000:GOTO 700< SEC$ "00" SEC$ "30"  :  - 5 *************************************************************y * max en min bepaling en laatste meting weergave * *************************************************************  W X1  X1X XfYX2X1:XTTXT:YNOORD1GEMIDNOORDT(N):YNOORD2GEMIDNOORDT(N):YFORCE1GEMIDFORCET(N):YFORCE2GEMIDFORCET(N)x_ N @` GEMIDNOORD(N)NOORDMAX NOORDMAXGEMIDNOORD(N)a GEMIDNOORD(N)NOORDMIN NOORDMINGEMIDNOORD(N)b GEMIDFORCE(N)FORCEMAX FORCEMAXGEMIDFORCE(N)Pc GEMIDFORCE(N)FORCEMIN FORCEMINGEMIDFORCE(N)}d (X1,(XYNOORD1))(X2,(XYNOORD2)),e (X1,(XYFORCE1))(X2,(XYFORCE2)), f : ,D: "To go : ";TOTXN: NTOTX g : i.g (XT,( GEMIDNOORDT(TOTX)))(XTT,( GEMIDNOORDT(TOTX))),h (XT,( GEMIDFORCET(TOTX)))(XTT,( GEMIDFORCET(TOTX))), :TOTXTOTX:XTXT: ,L: TOTXNi : ,B: "####";NOORDMAX;: " Max";: "####";FORCEMAXj  ,B: "####";NOORDMIN;: " Min";: "####";FORCEMINmk :  ,B: "####";GEMIDNOORD(N);: " Pre";: "####";GEMIDFORCE(N)m :  ,C: "Data nr. "; "####";N~MAX N:NN:X1X1SEC2$(,): SEC2$SEC$ " *************************************************************f * tijd, via s of S tussen tijds saven + meetbalken actueel * *************************************************************  : ,B: "Time: ";   (# K$ * K$ "s" K$ "S" 2 : 42D: p$3D: S4 (, )(,(XGEMIDNOORDT(N))),,BFH (,)(,(XGEMIDNOORDT(N))),,BFM (, )(,(XYNOORD1 )),,BFR (,)(,(XYNOORD1 )),,BF\ (, )(,(XGEMIDFORCET(N))),,BF=f (,)(,(XGEMIDFORCET(N))), ,BFlp (, )(,(XYFORCE1 )),,BFz (,)(,(XYFORCE1 )),,BF :  ,B: "####";GEMIDNOORD(N);: " Act";: "####";GEMIDFORCE(N)3 *************************************************************w * BASIS TEKST OP SCHERM WEERGEVEN * ************************************************************* : (,) (,),,BF: (,)(,^),,BF  SCHA    - (,SCHA)(,SCHA),8 SCHAR SCHB\   t (,SCHB)(,SCHB), SCHB (,X) (,X), : (, )(, ),: (,)(,]), : ,E: "Station": ,E: "O.P.S.S." : ,C: "Magnetometers"D : ,C: "North":  : ,K: "Force"c ,B: "s or S = saven"m  TODAY$ DAG$"-"MAAND$"-"JAAR$ ,B: "date :";TODAY$ SCHAAL   x (SCHAAL,)(SCHAAL,), SCHAAL SCHAALSUB   D& (SCHAALSUB,)(SCHAALSUB,),T0 SCHAALSUBZ  ************************************************************* * Bepaling filenaam en jaar ,maand en dag *&  *************************************************************] JAAR$ (,):MAAND$ (,):DAG$(,,) FILENOORD$DAG$MAAND$JAAR$"NO":FILEFORCE$DAG$MAAND$JAAR$"FO":DATUM1$   *************************************************************>! * Bepalen of nieuwe grafiek gemaakt moet worden *! *************************************************************! "11:59:30" p : ! !!p *************************************************************A"r * Maken van nieuwe files en wegschrijven op station a en d *"t *************************************************************"u "o",#,FILENOORD$: #,FILENOORD$"w #,NOORDMAX: #,NOORDMIN: #,START$"y N  MAX#z #, "###,";GEMIDNOORD(N)# N!# #I# "o",#,FILEFORCE$: #,FILEFORCE$u# #,FORCEMAX: #,FORCEMIN: #,START$# N  MAX# #, "###,";GEMIDFORCE(N)# N# ## D # "d:": "CD\MAGNETO" : D# u$ "a:" : D$8X$X *************************************************************$Z * uitvegen van metingen bij herhaling elke 4 uur op scherm *$\ *************************************************************%bX3X1: X3  X3%l (X1,)(X3,),,BF3%q (,X)(,X),9%}%@ *************************************************************%B * start gegevens van 1e meting (tijdstip) *&D *************************************************************3&JYNOORD2YNOORD1:YFORCE2YFORCE1:START$N&L N M : Om&M  : ,B: "start:";&OGEMIDNOORDT(TOTX)YNOORD1:GEMIDFORCET(TOTX)YFORCE1&T&(# *************************************************************7'*# * meten,berekening gemiddelde,bereik en 0 punt instelling *{',# *************************************************************'2# AANTAL  '<# NOORD(AANTAL) ():FORCE(AANTAL) () (P# TOTNOORDTOTNOORDNOORD(AANTAL): TOTFORCETOTFORCEFORCE(AANTAL)(d# AANTALD(f#ADJUSTZERONOORD}:ADJUSTZEROFORCE}z(x#GEMIDNOORD(N)((TOTNOORD())ADJUSTZERONOORD)(}#GEMIDNOORDT(N)GEMIDNOORD(N)(# GEMIDNOORDT(N) P GEMIDNOORDT(N) P(# GEMIDNOORDT(N)P GEMIDNOORDT(N)P-)#GEMIDFORCE(N)((TOTFORCE())ADJUSTZEROFORCE)N)#GEMIDFORCET(N)GEMIDFORCE(N)|)# GEMIDFORCET(N) P GEMIDFORCET(N) P)# GEMIDFORCET(N)P GEMIDFORCET(N)P)#