プロシージャ

Variable/G gCount= CountValuesThatExceed(wave0,100)

Function CountTwoThings(w, thing1, thing2)
    Wave 1
    Variable &thing1, &thing2
    
    thing1=0; thing2=0
    if( ... )
        thing1 += 1
    endif
    if( ... )
        thing2 += 1
    endif
End

Variable loc1, loc2 // two local variable in the calling routine
CountTwoThings(aWave, loc1, loc2)

    do
        thesum += wave[i];
        i += 1;
    while( i < n )

    for( j=0; j < n*2; j += 2 )
        thesum += wave[j];
    endfor

    if ( i < j )
        val = j - i;
    elseif( i > j )
        val = i - j;
    else
        val = 0
    endif

    strswitch(ctrlNameString)
        case "revert":  // literal string or string constant
            val= 2
            break   // without this execution "falls through" to val=1
        case "okay":
            val= 1
            break
        default:
            val= 0
            break
    endswitch

    switch(num-1)
        case 0:         // literal number
        case kMyConstant:   // Constant kMyConstant =<some value>
            val= 1
            break
        default:
            val= 2
            break
    endswitch

    try
        // test denominator
        if( denominator==0 )
            AbortOnRTE      // this is like C++´s "throw"
        endif
        // use denominator
        val= numerator / denominator
        ...
    catch
        // denominator must have been 0
        val=NaN
    endtry

// A window proc that creates a user-defined panel
// with two buttons named b0 and b1.
Window DemoStructuresPanel() : Panel
    PauseUpdate; Silent 1       // building window...
    NewPanel /W=(343,91,561,138)
    Button b0,pos={26,12},size={50,20},proc=ButtonProc,title="Click"
    Button b1,pos={130,12},size={50,20},proc=ButtonProc,title="Click"
EndMacro
 
// Defines a custom structure
Structure mystruct
    Int32 nclicks
    double lastTime
EndStructure
 
// The function which runs when Button b0 or b1 are clicked.
Function ButtonProc(bStruct) : ButtonControl
    STRUCT WMButtonAction &bStruct  // Igor-defined structure, passed by reference.
    
    if( bStruct.eventCode != 1 )
        return 0        // we only handle mouse down (code=1)
    endif
 
    STRUCT mystruct s1          // local user-defined structure
    if( strlen(bStruct.userdata) == 0 ) // button hasn't had userdata initialized
        print "first click on " + bStruct.ctrlName
    else
        // button has a structure packed into its userdata.
        StructGet/S s1,bStruct.userdata // unpack structure from userdata string.
        Variable lastTime= s1.lastTime  // get a value from the structure.
        String ctime= Secs2Date(lastTime, 1 )+" "+Secs2Time(lastTime,1)
        printf "button %s clicked %d time(s), last click = %s\r",bStruct.ctrlName,s1.nclicks,ctime
    endif
    s1.nclicks += 1         // update the structure members
    s1.lastTime= datetime       // seconds since Jan 1, 1904.
    StructPut/S s1,bStruct.userdata // pack structure s1 into string inside struct bStruct.
    return 0
End

Make/O/N=1000 data  // a vector ("wave") to hold 1000 values.
data = sin(2*pi*p/1000) // assigns to each element of data. p iterates from 0 to 999.
Display data

data[0,499] = data[p]*data[p]   // replace first 500 values with sqrt(value).

#include  <Multipeak Fitting>

#include "MyProcedureFile"

Sleep/T 7200    // an unexplained "magic" number
Sleep/T 60*60*2 // perhaps a little clearer

Constant kTicksPerSecond=60
Constant kSecondsPerMinute=60
Constant kMinutesToWait=2
 
Sleep/T kTicksPerSecond*kSecondsPerMinute*kMinutesToWait

Static StrConstant ksPrefsFileName="MyPrefs.txt"