🚀 go-pugleaf

Intr calls an interrupt.  In this case, it calls interrupt 21h,
subfunction 8, which reads a key from standard input into register AL.
GotoXY positions the cursor on the screen, in this case at the top
left corner.

I would replace the function and procedure as a whole.  That is,
function GETCHAR returns the next keypressed, so find a function
in the CodeWarrior documentation to do that.  Similarly, find a
procedure to clear the window, as procedure CLEAR clears the
screen.

Jared Showalter

John H. Chauvin wrote:
> 
> 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