' MicroMite BASIC VT100 Emulator (Simplified Example)
' This code demonstrates the basic parsing logic for common VT100 sequences.
' It assumes a serial connection and direct screen output.
' You will need to adapt serial port settings and screen dimensions.

' --- Configuration ---
CONST SERIAL_PORT = 1      ' Adjust to your MicroMite serial port (e.g., 1 for COM1)
CONST BAUD_RATE = 115200   ' Adjust to match your host's baud rate
CONST SCREEN_WIDTH = 80    ' Standard VT100 width
CONST SCREEN_HEIGHT = 24   ' Standard VT100 height

' --- Global Variables ---
DIM CURSOR_ROW AS INTEGER
DIM CURSOR_COL AS INTEGER
DIM PARSER_STATE AS INTEGER ' 0: Normal, 1: ESC received, 2: CSI received
DIM PARAMETERS(10) AS INTEGER ' Array to store CSI parameters
DIM PARAM_COUNT AS INTEGER
DIM CURRENT_PARAM_VALUE AS INTEGER

' --- Initialize Serial Port ---
OPEN #SERIAL_PORT, BAUD_RATE, "N81" ' N81: No parity, 8 data bits, 1 stop bit
PRINT "MicroMite VT100 Emulator Starting..."
PRINT "Waiting for data on Serial Port " & SERIAL_PORT

' --- Initialize Screen State ---
CURSOR_ROW = 1
CURSOR_COL = 1
LOCATE CURSOR_ROW, CURSOR_COL ' Set initial cursor position

' --- Main Loop ---
DO
   IF SERREAD(SERIAL_PORT) THEN ' Check if a character is available
       DIM CH AS BYTE
       CH = GETC(SERIAL_PORT) ' Read the character

       SELECT CASE PARSER_STATE
           CASE 0 ' Normal Mode
               IF CH = 27 THEN ' ESC character
                   PARSER_STATE = 1
               ELSEIF CH >= 32 AND CH <= 126 THEN ' Printable ASCII characters
                   PRINT CHR$(CH); ' Print the character
                   CURSOR_COL = CURSOR_COL + 1
                   IF CURSOR_COL > SCREEN_WIDTH THEN ' Wrap to next line
                       CURSOR_COL = 1
                       CURSOR_ROW = CURSOR_ROW + 1
                       IF CURSOR_ROW > SCREEN_HEIGHT THEN
                           ' Simple scroll: Clear screen and move to top
                           ' For true scrolling, you'd need a screen buffer
                           CLS
                           CURSOR_ROW = 1
                       END IF
                       LOCATE CURSOR_ROW, CURSOR_COL
                   END IF
               ELSEIF CH = 13 THEN ' Carriage Return (CR)
                   CURSOR_COL = 1
                   LOCATE CURSOR_ROW, CURSOR_COL
               ELSEIF CH = 10 THEN ' Line Feed (LF)
                   CURSOR_ROW = CURSOR_ROW + 1
                   IF CURSOR_ROW > SCREEN_HEIGHT THEN
                       CLS ' Simple scroll
                       CURSOR_ROW = 1
                   END IF
                   LOCATE CURSOR_ROW, CURSOR_COL
               ELSEIF CH = 8 THEN ' Backspace (BS)
                   IF CURSOR_COL > 1 THEN
                       CURSOR_COL = CURSOR_COL - 1
                       LOCATE CURSOR_ROW, CURSOR_COL
                       PRINT CHR$(32); ' Erase character
                       LOCATE CURSOR_ROW, CURSOR_COL
                   END IF
               END IF

           CASE 1 ' ESC received
               IF CH = 91 THEN ' '[' character (CSI - Control Sequence Introducer)
                   PARSER_STATE = 2
                   PARAM_COUNT = 0
                   CURRENT_PARAM_VALUE = 0
                   FOR I = 0 TO 10: PARAMETERS(I) = 0: NEXT I ' Clear parameters
               ELSE
                   ' Handle other ESC sequences here if needed (e.g., ESC E for Next Line)
                   ' For now, just reset to normal state if not CSI
                   PARSER_STATE = 0
               END IF

           CASE 2 ' CSI received (ESC [)
               IF CH >= 48 AND CH <= 57 THEN ' '0' through '9' (digit)
                   CURRENT_PARAM_VALUE = CURRENT_PARAM_VALUE * 10 + (CH - 48)
               ELSEIF CH = 59 THEN ' ';' character (parameter separator)
                   IF PARAM_COUNT < 10 THEN
                       PARAMETERS(PARAM_COUNT) = CURRENT_PARAM_VALUE
                       PARAM_COUNT = PARAM_COUNT + 1
                       CURRENT_PARAM_VALUE = 0
                   END IF
               ELSE ' Final character of CSI sequence
                   IF PARAM_COUNT < 10 THEN ' Store last parameter if any
                       PARAMETERS(PARAM_COUNT) = CURRENT_PARAM_VALUE
                       PARAM_COUNT = PARAM_COUNT + 1
                   END IF

                   ' --- Process CSI Command ---
                   SELECT CASE CH
                       CASE 72, 102 ' 'H' or 'f' (Cursor Position)
                           DIM NEW_ROW AS INTEGER
                           DIM NEW_COL AS INTEGER
                           IF PARAM_COUNT = 0 THEN ' ESC [ H or ESC [ f (Home)
                               NEW_ROW = 1
                               NEW_COL = 1
                           ELSEIF PARAM_COUNT = 1 THEN ' ESC [ <row> H (Col defaults to 1)
                               NEW_ROW = PARAMETERS(0)
                               NEW_COL = 1
                           ELSE ' ESC [ <row>;<col> H
                               NEW_ROW = PARAMETERS(0)
                               NEW_COL = PARAMETERS(1)
                           END IF
                           ' Ensure within bounds (MicroMite LOCATE is 1-based)
                           IF NEW_ROW < 1 THEN NEW_ROW = 1
                           IF NEW_ROW > SCREEN_HEIGHT THEN NEW_ROW = SCREEN_HEIGHT
                           IF NEW_COL < 1 THEN NEW_COL = 1
                           IF NEW_COL > SCREEN_WIDTH THEN NEW_COL = SCREEN_WIDTH
                           CURSOR_ROW = NEW_ROW
                           CURSOR_COL = NEW_COL
                           LOCATE CURSOR_ROW, CURSOR_COL

                       CASE 74 ' 'J' (Erase in Display)
                           IF PARAM_COUNT > 0 AND PARAMETERS(0) = 2 THEN ' ESC [ 2 J (Clear Screen)
                               CLS
                               CURSOR_ROW = 1
                               CURSOR_COL = 1
                               LOCATE CURSOR_ROW, CURSOR_COL
                           END IF
                           ' Add other J parameters (0J, 1J) if needed

                       CASE 75 ' 'K' (Erase in Line)
                           IF PARAM_COUNT > 0 AND PARAMETERS(0) = 2 THEN ' ESC [ 2 K (Clear entire line)
                               ' Move to start of line, print spaces, move back
                               DIM ORIGINAL_COL AS INTEGER = CURSOR_COL
                               LOCATE CURSOR_ROW, 1
                               FOR I = 1 TO SCREEN_WIDTH: PRINT CHR$(32); : NEXT I
                               LOCATE CURSOR_ROW, ORIGINAL_COL
                           ELSE ' ESC [ K (Clear from cursor to end of line)
                               DIM I AS INTEGER
                               FOR I = CURSOR_COL TO SCREEN_WIDTH
                                   PRINT CHR$(32);
                               NEXT I
                               LOCATE CURSOR_ROW, CURSOR_COL ' Move cursor back
                           END IF
                           ' Add other K parameters (0K, 1K) if needed

                       CASE 109 ' 'm' (Select Graphic Rendition - SGR)
                           IF PARAM_COUNT = 0 THEN ' ESC [ m or ESC [ 0 m (Reset attributes)
                               ' MicroMite specific: Reset colors, normal text
                               COLOR 15, 0 ' Assuming white foreground, black background
                           ELSE
                               FOR I = 0 TO PARAM_COUNT - 1
                                   SELECT CASE PARAMETERS(I)
                                       CASE 0 ' Reset all attributes
                                           COLOR 15, 0
                                       CASE 7 ' Inverse video
                                           COLOR 0, 15 ' Black foreground, white background
                                       ' Add more SGR parameters here (colors, bold, underline)
                                       ' Example for colors (adjust MicroMite color codes):
                                       ' CASE 30 TO 37 ' Foreground colors
                                       '     COLOR (PARAMETERS(I) - 30), BACKGROUND_COLOR
                                       ' CASE 40 TO 47 ' Background colors
                                       '     COLOR FOREGROUND_COLOR, (PARAMETERS(I) - 40)
                                   END SELECT
                               NEXT I
                           END IF

                       ' Add more CSI commands here (e.g., A, B, C, D for cursor moves, S, T for scroll)

                       CASE ELSE
                           ' Unknown CSI sequence, ignore or print for debugging
                           ' PRINT "Unknown CSI: "; CHR$(CH)
                   END SELECT

                   PARSER_STATE = 0 ' Reset to normal state
           END SELECT
       END SELECT
   END IF
LOOP

' Terminal Escape codes test for MONO
Option default integer
Option console serial

SetPin gp0,gp1,com1
SetPin gp4,gp5,com2
Open "com1:115200,2048" As 1
Open "com2:115200" As 2

Dim cbuff$(28)

curl = 1
curc = 1
chrofst = 0

'Interrupt routine????

Do
 If Loc(1)>0 Then
   Timer = 0
   s$=Input$(1,1)
'    Print "SER1=",s$,Asc(s$)
   Select Case Asc(S$)
     Case 27:EscSeq
     Case 13:curc=1' carriage return
     Case 10 ' line feed
       Text 0,(curl-1)*12,cbuff$(curl),,1,1
       curl=curl+1
       If curl>26 Then scrollup
     Case 8:curc=curc-1:'Print "BKSPC",curl,curc,
     Case 7 ' dunno where this 7 comes from
     Case Else
       cbuff$(curl)=cbuff$(curl)+Space$(60)
       cbuff$(curl)=Left$(cbuff$(curl),curc-1)
       cbuff$(curl)=cbuff$(curl)+Chr$(Asc(s$)+chrofst)
       curc = curc+1
   End Select
'    Print
 EndIf
'  Print #2,Inkey$;
 snd$=Inkey$:If Asc(snd$)=152 Then snd$=Chr$(8)
 If Asc(snd$)<>0 Then Print "SER2=",Asc(snd$):Print #2,snd$;
 If Timer > 100 Then
   Text 0,(curl-1)*12,cbuff$(curl),,1,1
   Timer = 0
 EndIf
Loop

Sub EscSeq
 escchr$ = GetChr$(1)
 Select Case escchr$
   Case "7","8":scrollup :Exit Sub
   Case "[":EscCSI
 End Select
End Sub

Sub EscCSI
 CSIS$=""
 CSIL=0
 Do
   CSIChr$ = GetChr$(1)
   print CSIchr$;
   Select Case CSIChr$
     Case "m"
       If csis$="4" Then chrofst=&h3f Else chrofst=0
       Exit Do ' Underline Mode 0=off 4=on
     Case "K"
       cbuff$(curl)=Left$(cbuff$(curl),curc)+Space$(60)
       Text 0,(curl-1)*12,cbuff$(curl),,1,1
       Exit Do ' Erase Line
     Case "h","l","t","B": Exit Do ' mouse on / off
     Case "J" ' [0J = erase from line / [2J = erase all
       If csis$="2" Then curl=1:curc=1 ' erase all
       temc = curc
       For a = curl To 26
         cbuff$(curl)=Left$(cbuff$(curl),temc)+Space$(60)
         Text 0,(curl-1)*12,cbuff$(curl),,1,1
         temc=1
       Next
       Exit Do ' erase page CLS
     Case ";":CSIL = Len(csis$)
     Case "H"
       If Len(csis$)=0 Then Exit Sub
'        Print csis$,curl,curc
       Text 0,(curl-1)*12,cbuff$(curl),,1,1
       curl=Val(Left$(csis$,csil))
       curc=Val(Mid$(csis$,csil+1))
       Exit Do
     Case Else
       CSIS$=CSIS$+CSIChr$
   End Select
 Loop
 print
End Sub

Sub Scrollup
 CLS
 For i = 1 To 26:cbuff$(i)=Space$(60):Next
 curl = 1
End Sub

Function GetChr$(prt)
 Do While Loc(prt)=0:Loop
 GetChr$ = Input$(1,prt)
End Function

End