/*
**      $Id: OpenFile.ttx,v 30.0 1994/06/10 18:06:17 dice Exp $
**
**      VMake integration.  Script for Oxxi TurboText (tm).
**
*/
OPTIONS RESULTS
'GetScreenInfo'
Parse Var Result . '"' Screen '"'
'GetPort'

clip = getclip('TTX_'||Result)
if clip = "" THEN
   DO
      'SetStatusBar No Project Active for this file'
      exit 0
   END

ADDRESS VALUE Clip
'Jump' Screen