home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug044.ark / CURSOR.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-02-10  |  2.0 KB  |  25 lines
  1. %NOLIST
  2.  
  3.     REMARK        CURSOR CONTROL COMMANDS FOR HAZELTINE 1400/1500 SERIES  TERMINALS
  4.  
  5.     CLEAR.SCREEN$=CHR$(126)+CHR$(28)
  6.     CURSOR.HOME$=CHR$(126)+CHR$(18)
  7.     X9$=CHR$(16)
  8.     FOR I%=1 TO 6:X9$=X9$+X9$:NEXT I%
  9.     UP.CURSOR$=CHR$(126)+CHR$(12)
  10.     DOWN.CURSOR$=CHR$(126)+CHR$(11)
  11.     BACKSPACE%=8
  12.     ADDR.CURSOR$=CHR$(126)+CHR$(17)
  13.     LEAD.IN%=126
  14.     ADDR.CURS%=17
  15.  
  16. %LIST
  17. (5),H2(6),H2(7),H2(8),H2(9)
  18.  
  19.     RETURN
  20. %NOLIST
  21.  
  22.     REMARK        CURSOR CONTROL COMMANDS FOR HAZELTINE 1400/1500 SERIES  TERMINALS
  23.  
  24.     CLEAR.SCREEN$=CHR$(126)+CHR$(28)
  25.     CUR