# reverse.eas -- write out a reversed version of input # SCCSID("@(#)/export/home/staff/mike/src/language/eta/easpit/SCCS/s.reverse.eas 1.1") # Accumulate input file on stack N0 N1 S # Push -1 end-marker on stack >READ: Input # Read next character N0 H N0 N1 S S NWRITE: N0 H N0 N1 S S A N0 N1 S S T # Skip if top isn't -1 N0 N1 H T N1 N0 T # Reached the end: discard -1 and exit Output N1 N