home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol064 / move.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  306 b   |  16 lines
  1. PROGRAM MOVE;{$I+,M-,C-,F-}
  2. TYPE 
  3. BYTE=0..255;
  4. VAR
  5. X,Y:BYTE;
  6.  
  7.  
  8. {procedure to move the cursor to any given x,y coordinates on the
  9. terminal screen...command is for a soroc or televideo terminal}
  10.  
  11.  
  12. PROCEDURE MOVE_CURSOR (X,Y:BYTE);
  13. BEGIN
  14.     WRITE(CHR(27),'=',CHR(Y+31),CHR(X+31));
  15. END;
  16. BEGIN END.