Source code in the rexx programming language

  if a¬==b      then say 'not equal'
  if a ¬== b    then say 'not equal'
  if a ¬ = = b  then say 'not equal'
  if a ¬ ,
         = = b  then say 'not equal'


If a/=b Then Say 'a is not equal to b'


  y = (a+b)/(c-d)
  z = ((y-2)/(y+2)) / ((a**2 * b**2)* abs(j))
  p = 2**(2**3)


  tn = time()
  tc = time('C')
   x = strip(y,,'+')


  a = 'ready, set, go!'


  a = "ready, set, go!"


  nuttin =''
  nothing=""


  yyy = 'John''s pen'


  yyy = "John's pen"


  jjj = "Quote the Raven, ""Nevermore"""


  lf = '000001010'b                                      /* (ASCII)       */
  cr = "1101"B                                           /* (ASCII)       */
  greeting = '100100001100101011011000110110001101111'b  /* (ASCII) Hello */


  lf = '0A'x                  /* (ASCII)       */
  lf = 'a'x                   /*same as above. */  
  lf = "a"X                   /*same as above. */
  cr = '0D'x                  /* (ASCII)       */
  greeting = '48656C6C6F'x    /* (ASCII) Hello */


something=12 -- an assignment, what else


something=--12


x='--12 ++12 -12.000 +12 12 12. 012 0012 0012.00 1.2E1 1.2e+1 --12e-00 120e-1 ++12 ++12. 0--12 00--12 --12'
  do j=1 for words(x)
  interpret 'something=' word(x,j)
  say 'j=' j  '   x=' x   '   something='something
  end


say 'enter an expression:'
parse pull x
interpret 'expression=' x
say 'expression=' expression


  x=5;  y=6;z=y**2;    say x y z


  say 'The sum of the first three numbers in the file "INSTANCE.INPUTS" is',
 a b c ' and the total of all three is' grandTotal


  say 'The sums of the first three numbers in the file "INSTANCE.INPUTS" is',  /*tell sums.*/
 a b c ' and the total of all three is' grandTotal


  secondChar = substr(xxx, 2, 1)
  thirdChar  = substr(xxx,3,1)
  pruned     = strip(zebra, 'Trailing', ".")      /*remove trailing period(s).*/