* filename: foura.sno
                TRADE = 'PROGRAMMER'
                TRADE 'GRAM'                    :F(END)
                OUTPUT = 'GRAM WAS FOUND IN TRADE' 
                TRADE 'SMOKE'                   :S(END)
                OUTPUT = 'SMOKE WAS NOT FOUND IN TRADE'
END

     ###############################


 * filename:  five.sno
    ROW = 'K'
    NO. = 2
    'K24' ROW NO. + 4           :S(PRINT1)F(PRINT2)
PRINT2 OUTPUT = 'PATTERN NOT MATCHED' :(TRYAGAIN)
PRINT1 OUTPUT = 'PATTERN MATCHED'   :(END)
TRYAGAIN NO. = 20
    'K24' ROW NO. + 4           :S(PRINT1)F(PRINT2)
END


     ###############################

* Filename: sixA.sno
     TENS = 2
     UNITS = 5
     (TENS UNITS) 25  :S(PRINT1)F(END)
PRINT1 OUTPUT = 'YIPPEE'        
      TENS UNITS 25  : S(PRINT1)F(PRINT2)
PRINT2 OUTPUT = 'UH OH'        (END)
END


     ###############################

* Filename: SevenA.sno
   WORD = 'GIRD'
   OUTPUT = ' ORIGINAL WORD IS ' WORD
   WORD 'I' = 'OU'
   OUTPUT = ' WORD AFTER PATTERN MATCHING AND REPLACEMENT IS ' WORD
   WORD 'AB' = 'TO'                             :F(END)
   OUTPUT = ' PATTERN AB NOT FOUND IN ' WORD
END

     ###############################

* filename:  oct17.sno
        sentence = " turn at the green, black, orange  house "
        Colors = 'orange' | 'Black' | 'green'
again	sentence Colors . Result        :f(end)
	Output = result         
        sentence Colors = 
        output = sentence  :(again)
end  
         
     ###############################

* filename:  eight.sno
     HAND = 'AC4DAHKDKS'
     OUTPUT = ' ORIGINAL HAND IS ' HAND
     RANK = 4
     SUIT = 'D'
     HAND RANK SUIT = 'AS'
     OUTPUT = ' HAND AFTER FIRST REPLACEMENT IS ' HAND
     RANK = 'A'   
     SUIT = 'S'
     HAND RANK SUIT =
     OUTPUT = ' HAND AFTER REPLACEMENT WITH NULL IS ' HAND
END

     ###############################
* my first program:  one.sno
     name = 'star trek'    
     output = name      :S(temp)f(end)
temp output = 'test succeeded'
end

     ###############################