(Continued from previous message)
  IF Tmp < 1 THEN Tmp = 1
  LOCATE Row, Col
  Row = Row - Tmp
  IF Row < 1 THEN Row = 1
  LOCATE Row, Col
  RETURN
CursorDown:
  Tmp = VAL( MID$( ANSIst$, 2 ))
  IF Tmp < 1 THEN Tmp = 1
  Row = CSRLIN
  Col = POS( 0 )
  Row = Row + Tmp
  IF Row > 23 THEN Row = 23
  LOCATE Row, Col
  RETURN
CursorLeft:
  Tmp = VAL( MID$( ANSIst$, 2 ))
  IF Tmp < 1 THEN Tmp = 1
  Row = CSRLIN
  Col = POS( 0 )
  Col = Col - Tmp
  IF Col < 1 THEN Col = 1
  LOCATE Row, Col
  RETURN
CursorRight:
  Tmp = VAL( MID$( ANSIst$, 2 ))
  IF Tmp < 1 THEN Tmp = 1
  Row = CSRLIN
  Col = POS( 0 )
  Col = Col + Tmp
  IF Col > 80 THEN Col = 80
  LOCATE Row, Col
  RETURN
CursorLocate:
  Row = VAL( MID$( ANSIst$, 2 ))
  Tmp = INSTR( ANSIst$, ";" )
  IF Tmp THEN
    Col = VAL( MID$( ANSIst$, Tmp + 1 ))
  ELSE
    Col = 1
  END IF
  IF Row < 1 THEN
    Row = 1
  ELSEIF Row > 25 THEN
    Row = 25
  END IF
  IF Col < 1 THEN
    Col = 1
  ELSEIF Col > 80 THEN
    Col = 80
  END IF
  LOCATE Row, Col
  RETURN
SaveCursorPosn:
  SaveRow = CSRLIN
  SaveCol = POS( 0 )
  RETURN
RestCursorPosn:
  IF SaveRow > 0 THEN
    LOCATE SaveRow, SaveCol
  END IF
  RETURN
BigErase:
  CLS
  LOCATE 1, 1
  RETURN
SmallErase:
  LOCATE Row, Col
  PRINT SPACE$( 80 - Col );
  LOCATE Row, Col
  RETURN
SetColors:
  ANSIst$ = MID$( ANSIst$, 2 )
  DO WHILE LEN( ANSIst$ )
    Tmp = VAL( ANSIst$ )
    SELECT CASE Tmp
      CASE 0: Fore = 7: Back = 0 'reset colors
      CASE 1: Fore = ( Fore OR 8 ) 'high intensity
      CASE 2: Fore = ( Fore AND &H17 ) 'normal intensity
      CASE 5: Fore = ( Fore OR 16 ) 'blink
      CASE 7: Fore = 0: Back = 7 'reverse video
      CASE 8: Fore = 0: Back = 0 'invisible
      CASE 30: Fore = ( Fore AND &H18 ) 'black foreground
      CASE 31: Fore = ( Fore AND &H18 ) OR 4 'red foreground
      CASE 32: Fore = ( Fore AND &H18 ) OR 2 'green foreground
(Continued to next message)
---
 * QMPro 1.53 * MicroSoft finally got something right, BANKRUPTCY! 
--- InterEcho 1.18
---------------