// Vedit Macro Language stores numerical values in numeric registers,
// referred as #0 to #255.

// Check all positive integer values until the required value found
for (#1 = 1; #1 < MAXNUM; #1++) {

    #2 = #1 * #1		// #2 = square of the value

  // The operator % is the modulo operator (the remainder of division).
  // Modulo 1000000 gives the last 6 digits of a value.
    #3 = #2 % 1000000

    if (#3 == 269696) {
        break			// We found it, lets stop here
    }
}

if (#1 < MAXNUM) {
    Message("The smallest number whose square ends in 269696 is ", NOCR)
    Num_Type(#1)
    Message("The square is ", NOCR)
    Num_Type(#2)
} else {
    Message("Condition not satisfied before MAXNUM reached.)
}