Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sun-barr!lll-winken!ames!dftsrv!nssdca.gsfc.nasa.gov!lanmaint
From: lanmaint@nssdca.gsfc.nasa.gov (Dave Yoest)
Newsgroups: comp.lang.pascal
Subject: Re: Porting Turbo Pascal programs to VMS
Message-ID: <3239@dftsrv.gsfc.nasa.gov>
Date: 27 Aug 90 13:58:07 GMT
References: <9090@ur-cc.UUCP>
Sender: news@dftsrv.gsfc.nasa.gov
Reply-To: lanmaint@nssdca.gsfc.nasa.gov
Organization: NASA - Goddard Space Flight Center
Lines: 40
News-Software: VAX/VMS VNEWS 1.3-4

In article <9090@ur-cc.UUCP>, elmo@uhura.cc.rochester.edu (Eric Cabot) writes...
>Hi Folks,
>  Does anyone out there have any experience porting Turbo Pascal Programs
>to VMS Pascal.  Although I swore that I'd never program in VMS, I decided
>to give it a whirl anyway, because I need the tools that I'm used to
>having on my PC.  
>  For example, is there a VMS-Pascal equivalent to gotoxy?  I'm willing
>to rewrite my programs to *SOME* extent but there's no way that I'm going
>to redraw the entire screen just to put a single character, or move the
>cursor, into the middle of the display. 
> 
Eric,

 I ran (run) into the same problem. My solution was to write a VAX 
 Pascal procedure/function that works like the Turbo 
 procedure/function. Then add the procedures/functions to a library
 file and link against them (or include them in your program source)

 You requested gotoxy(x,y) for VMS, so I included it here since it's
 small. This should work on any ansi terminal, because it uses the 
 ansi escape sequence for cursor position (CUP)





procedure gotoxy(xpos,ypos : integer);

  begin
   write(chr(27)+'['+(udec(ypos,2))+';'+(udec(xpos,2))+'H');
  end;


Hope this helps!


Dave Yoest
DYOEST@128.183.4.5  internet

(301)-286-7033      phone