************************************************************************ * Program : R3MSNTX * Funcrion : Simple Routine to Facilitate TESTING of Natural Syntex. * * Created : 1979-DEC-06 - During Beta Testing Pre-release Nat 1.0.0 * Updated : 2007-JAN-31 * Author : Richard J. Mills ( UK - Australia - USA ) * eMail : R3M2000@cs.com ************************************************************************ DEFINE DATA LOCAL 01 #TEXT (A79) INIT <'QWERTYUIOPASDFGHJKLZXCVBNM0123456789' > 01 #X (A08/1:5) INIT <'ERT','ASD','BNM','345'> 01 #F ( L /1:5) (EM=' ---- '/' Hit ') END-DEFINE * ====================================================================== SET KEY PF3 = PGM NAMED 'Exit' * ====================================================================== REPEAT UNTIL *PF-KEY = 'PF3' * ---------------------------------------------------------------------- INPUT (AD=MT SG=OFF ZP=ON IP=OFF) 4/10 #TEXT //10T #X(1) #X(2) #X(3) 'WER ' '-' #X(5) /10T *OUT #F(1) *OUT #F(2) *OUT #F(3) *OUT #F(4) *OUT #F(5) 23/35 ':Exit' * ---------------------------------------------------------------------- IF *PF-KEY = 'PF3' ESCAPE BOTTOM END-IF * ---------------------------------------------------------------------- * Enter Syntax to be tested below. * ================================ - - - - - - - - - - - - - - - - - - - RESET #F(*) IF #TEXT = SCAN #X(1) #F(1) := TRUE END-IF IF #TEXT = SCAN #X(2) #F(2) := TRUE END-IF IF #TEXT = SCAN #X(3) #F(3) := TRUE END-IF IF #TEXT = SCAN 'WER' #F(4) := TRUE END-IF IF #TEXT = SCAN #X(5) #F(5) := TRUE END-IF * ---------------------------------------------------------------------- END-REPEAT * ====================================================================== END