You have a SNOBOL compiler for your 3000?
 
Marsh