FORTH for TRS Model 100