N,T,W,Q,A,F,C,D BASE 1: :L: N(),T(),S(),FM(),TT(),TT1() C(),CTT(),CFM(),CDC()TT06B2:B3:B4:I1:I2:I3 :I4H:I5uI6:I7: serial port 1, I6=760:I7=766 serial port 2I9:J9: QW: NT: BASEADDR:FLG BASEADDR,FR:B5: Reference Frequency/$CF(\: Calibration Factor for External coil at 19000Hz[&Vff:: Sample Volume (1.8*1.9*3.406)|*CCICF:U$" SI v":F8J,X$"&##########":X1$"\ \ &###& #######.##&&".X2$"####.# ####.# #######.## ###.# #####.##":L$" ":MU$" * 1E-6"+0X3$" &###& #######.## & #####.##&&"R2TDL|:NR:NK:M:PATH$"C:\"x4 "COM1:9600,N,8,1,RS,CS,DS" AS 16TM:MT: I6,MT: : I6,MTI5: : I6,I1< , : "PROGRAM FOR U-CHANNELS MAGNETIC SUSCEPTIBILITY MEASUREMENTS"C> , : "-----------------------------------------------------------"A  ,: "With this program, the data are saved in a specific directory after each": "U-channel measurement (each u-channel corresponds to one file)."B  ,: "The default path for the directory is ";PATH$"D\H "IF YOU WANT TO USE THIS PATH, PRESS THE SPACE BAR"P "IF YOU WANT USE ANOTHER PATH, PRESS KEY '1'"Q: "HERE ARE SOME EXAMPLES:"R "PATH=drive: e.g. A: "!T "PATH=drive:\directory\ e.g. C:\SIF\ "`V "PATH=drive:\dir\subdir\ e.g. C:\SIF\HF82\ "iXA$Z A$"1" ((): `\ A$" " b^ X` "WHAT IS THE NEW PATH";PATH$: "THE NEW PATH IS ";PATH$;" (PRESS SPACE BAR TO CONTINUE, '1' TO CHANGE)": X2b (PATH$) X[d (PATH$,)"\" PATH$PATH$"\"ofIT(I7): |I(I7) IIT  I6,I2I9: : I6,I1I9: XI(I7) IIT  ,: (() : :N(IL)I# :N(IL)N(IL)B2I> :N(IL)N(IL)B3IY :N(IL)N(IL)B4I J9 FM(IL)FR((TM))B5N(IL) : FM(IL)((TM))B5N(IL): LOCATE 23,50:PRINT USING "\ \######.#####\ \";"F=";FM(IL);" Hz" IF NT=0 THEN BEEP   : Move ram PAS% cm0TT(IL):V I6,I4I9: : I6,I1I9: | I6,I3I9: : I6,I1I9: I(I6):TSDTTS DT  DTTD  : :QW , : "MAGNETIC SUSCEPTIBILITY MEASUREMENTS FOR U-CHANNELS"[ , : "---------------------------------------------------"~ ,: "PRESS KEY TO SELECT:": "1 U-channel Magnetic Susceptibility" "U Units"  "Q Quit"   ,: "INITIAL PARAMETERS:": ,: "------------------"  ,: "VOLUME=";V;"cc": ,: "CALIBRATION FACTOR=";CF: ,: "UNITS=";U$;" ": ,: "COIL FREQUENCY=";F;"Hz"A$ A$"1" D: U-Channel core management system  A$"Q" :: "\":( A$"U" b0 !bNKNK: select ms units3d NK NKXf NK U$" cgs v":CCCF:  j NK U$" SI v":CCICF:   Move ram to home position ((BASEADDR))  BASEADDR,  BASEADDR, JJ1  :  BASEADDR, & FOR JJ1=1 TO 20:NEXT=  OUT BASEADDR,252G* _ Move ram PAS% cms II2  PAS% IF FLG=0 THEN ZZ=31:FLG=1 ELSE ZZ=32:FLG=0ZZ? II1 ZZ BASEADDR, BASEADDR, JJ d:   BASEADDR,#  FOR JJ=1 TO 40: NEXT:  OUT BASEADDR,254@ F L  R l Move 1 step forward~ BASEADDR, JJ1 : BASEADDR,   Move ram and measure A(1) & IJ2(LJ1) b IL: NT: : A()FM(IL)*!g : ,: "MOVING TO FIRST POSITION..."D!l II4 : : J! s! Move core to first sample position! :LJ2(LJ1CL)! II3 LJ2! : NBS=(II3-1)*CL! IL:NT:  : H :  " : LOCATE 10,20:PRINT "S=";N(2);" ";NBS; " " /" Move ram and measure A(2)A" II4 IJ2K" Q" a" II4 k" q" " IL: NT: : A()FM(IL):TT1(LJ1)TT(IL)" :LOCATE 10,20:PRINT "A(2)=";N(3);# : Move ram to home position for next U-channel #G #H Calculations9#R FM(IL)=FR-B5/N(IL)m#\ N()FM(IL) : Stub for additional caculationss#a # Calculate K# CFM(II3)N()# N()A()N()# N()$tCC(N()N())V# C(II3)N():CTT(II3)TT(IL):K!(C(II3))$  , :"************************************************************":  , :"************************************************************"$ NBS(II3)CL:  ,: "Z=";NBS;"cm, ";"K=";K!;(MU$,)U$" "$$ save data to diskette% F$ APPEND AS #t% #,: #, "DEPTH (cm),";"SUSC."(MU$,)U$",";"DRIFT CORRECTED SUSC."(MU$,)U$%$ II3  LJ2%)NBS(II3)CL:K!(C(II3)):K1!(CDC(II3))%. #,NBS,K!,K1!%8%B #%s%t DRIFT CORRECTION & II3 LJ2&N()CFM(II3)Z&DRIFTFM()(CTT(II3)TT())(FM()FM())(TT()TT())o&DRIFTDRIFTN()&N()$tCC(DRIFTDRIFT)V&CDC(II3)N()&&&D U-CHANNEL CMS CORE LOG PROGRAM&FII2&`'b : Move home - load U-channel2'g "PLEASE, LOAD THE U-CHANNEL."K'h ,: (E): ,'j "WHAT IS THE FILE NAME FOR THIS U-CHANNEL (<=8 char, ENTER=CR to quit)=";FM$'l (FM$) 'n (FM$) h'pJ:F$PATH$FM$".CMS"1(q ,(: (): ,: "WHAT IS THE U-CHANNEL TOTAL LENGTH IN CM";LJ1(s "WHAT IS THE INTERVAL BETWEEN MEASUREMENTS IN CM (>= 1.0 cm !)";CL: w(u X(w(yPAS1%(CL)(| NR NR )PAS%:: ,:"TAKING INITIAL BASELINE...":  : Move ram and measure A(1)1)PAS%PAS1%::  : Measure corex)PAS%:: ,:"TAKING FINAL BASELINE...":  : Measure A(2)) t : DRIFT CORRECTION PROCESS): ,:"SAVING DATA TO FILE...":  : Save data to diskette))