🚀 go-pugleaf

gotoxy(x:integer,y:integer);
is just like a moveto(x,y) but you just put where you want it moved to
its a crt unit and i think its for text mode not graphics

John H. Chauvin <jchauvin@netcom.com> wrote in article
<jchauvinEnGL1M.JHp@netcom.com>...
> I recently obtained a old (early 1980s) Pascal program which was
> originally written to work on a PC (most likely DOS). I am having
> difficulty compiling the two functions listed below.
> Specifically, the compiler does not understand the INTR and
> GOTOXY keywords. Any idea what these do? If so, how can I
> duplicate their function using CodeWarrior Pro 2 for Windows?
> 
> Thanks,
> 
> John Chauvin 
> 
> 
> -------------------------------------------------------------
> FUNCTION GETCHAR : CHAR;
> 
> TYPE    REGPACK = RECORD
>                   AX,BX,CX,DX,BP,SI,DI,DS,ES,FLAGS : INTEGER;
>                   END;
> 
> VAR     REGISTERS : REGPACK;
>         C : CHAR;
> 
> BEGIN
> C := CHR(0);
> WHILE C = CHR(0) DO
>       BEGIN
>       REGISTERS.AX := 8*256;
>       INTR(33,REGISTERS);              <=== What is INTR?
>       C := CHR(REGISTERS.AX AND 255);
>       END;
> GETCHAR := C;
> END; 
> -------------------------------------------------------------
> 
> -------------------------------------------------------------
> PROCEDURE CLEAR; 
> VAR I : INTEGER;
> 
> BEGIN
> FOR I := 1 TO 25 DO WRITELN;
> GOTOXY(0,0);                         <==== What is GOTOXY?
> END;      
> -------------------------------------------------------------
> 
> 
> 
> -- 
> John H. Chauvin jchauvin@netcom.COM
> Netcom - Online Communication Services San Jose, CA
>