#modify to your port
ser = serial.Serial(
port='/dev/tty.usbmodem14101',
baudrate = 230400,
parity=serial.PARITY_NONE,
stopbits=serial.STOPBITS_ONE,
bytesize=serial.EIGHTBITS,
timeout=1
)

#modify to your path to server root
BASEDIR = "/Users/jirsoft/Documents/Maximite/NCserver/"

SUB NCunMAR(filePath AS STRING)
 CONST maxChunkSize = 128
 LOCAL INTEGER fiLen, curLen = 0, chunkLen, fiPos = 0, totLen = 0
 LOCAL STRING li, cmd, par, k, p = NON_PATH.NC
 LOCAL STRING dialog

 EXT_ERR.NC = 0
 IF TUIquestion("EXTRACT MAR", "Extract '" + filePath + "' to '" + p + "' ?") THEN
   dialog = TUIwaitingON("EXTRACT MAR '" + NCgetName(filePath) + "'")
   totLen = MM.INFO(FILESIZE filePath)
   OPEN filePath FOR INPUT AS #3
   DO WHILE NOT EOF(#3)
     LINE INPUT #3, li
     fiPos = fiPos + LEN(li) + 2
     cmd = FIELD$(li,1,":")
     par = FIELD$(li,2,":")
     SELECT CASE cmd
       CASE "DIR"
         DO WHILE LEFT$(par,1)="." OR LEFT$(par,1)="/"
           par = MID$(par,2)      
         LOOP
         p = p + par + "/"
         ON ERROR SKIP
         MKDIR p
         IF MM.ERRNO > 0 THEN
           CLOSE #3
           EXT_ERR.NC=1
           NCerror("DIR '" + p + "' ERROR")
           EXIT SUB
         ENDIF
   
       CASE "FILE"
         curLen = 0
         LINE INPUT #3, li
         fiPos = fiPos + LEN(li) + 2
         fiLen = VAL(li)
         OPEN p+par FOR OUTPUT AS #4
         DO WHILE curLen < fiLen        
           chunkLen = MIN(fiLen - curLen,maxChunkSize)
           curLen = curLen + chunkLen
           li = INPUT$(chunkLen, #3)
           PRINT #4,li;
         LOOP
         CLOSE #4
         fiPos = fiPos + fiLen
       CASE "ENDDIR"
         p = NCparent(p)

               
       CASE "ENDARCHIVE"
             
     END SELECT

     TUIwaitingProgress(dialog, 100 * fiPos \ totLen)
   LOOP

   CLOSE #3
   TUIwaitingOFF(dialog)

 ENDIF
 NCchangeDir(1 - ACTIVE.NC, NON_PATH.NC)
 NCcursor(ACTIVE.NC,1)
END SUB

SUB NCmakeMAR
 'create MAR achive

 CONST maxLen = 128
 LOCAL INTEGER ind = 0, td=0, size, filePos
 LOCAL STRING item, path, partData
 LOCAL STRING pth(MAX_ITEMS.NC)
 LOCAL STRING toDo(MAX_ITEMS.NC)
 LOCAL STRING dest = NON_PATH.NC + SEL_NAME.NC + ".MAR"
 
 LOCAL STRING ccc = TUIwaitingON("MAKE MAR ARCHIVE")
 TUIwaitingProgress(ccc, 0)

 pth(ind) = ACT_PATH.NC + SEL_NAME.NC
 toDo(td) = pth(ind)
 DO WHILE ind >= 0
   NCchdir pth(ind)
   path = pth(ind)
   ind = ind - 1
   item = DIR$("", ALL)
   DO WHILE item <> ""
     IF LEFT$(item, 1) <> "." OR HIDDEN.NC THEN
       size = MM.INFO(FILESIZE item)
       IF size<0 THEN
         'directory
         ind = ind + 1
         pth(ind) = path + "/" + item                
         td = td + 1
         toDo(td) = path + "/" + item + "/"

       ELSE
         'file
         td = td + 1
         toDo(td) = path + "/" + item
       ENDIF
     ENDIF
     item = DIR$()
   LOOP
 LOOP

 TUIwaitingProgress(ccc, 10)

 SORT toDo(),,2,0,td+1
 toDo(0) = toDo(0) + "/"
 path = toDo(0)
 OPEN dest FOR OUTPUT AS #2
 FOR ind = 0 TO td
   TUIwaitingProgress(ccc, 10 + ind/td*90)
   item = toDo(ind)
   IF RIGHT$(item, 1) = "/" THEN
     DO WHILE INSTR(item, path) = 0
       ?#2,"ENDDIR: " + NCgetName(LEFT$(path, LEN(path)-1))
       path = NCparent(path)  
     LOOP
     ?#2,"DIR: " + NCgetName(LEFT$(item, LEN(item)-1)) '" ("item")"
     path = item
   ELSE
     DO WHILE INSTR(item, path) = 0
       ?#2,"ENDDIR: " + NCgetName(LEFT$(path, LEN(path)-1))
       path = NCparent(path)  
     LOOP
     ?#2,"FILE: " + NCgetName(item) '" ("item")"
     filePos = 0
     OPEN item FOR INPUT AS #3
     ?#2,LOF(#3)
     DO WHILE NOT EOF(#3)
       size = MIN(LOF(#3) - filePos, maxLen)
       filePos = filePos + size
       partData = INPUT$(size, #3)
       ?#2, partData;
     LOOP
     CLOSE #3
   ENDIF
 NEXT ind
 ?#2,"ENDDIR: " + NCgetName(LEFT$(toDo(0), LEN(toDo(0))-1))
 ?#2,"ENDARCHIVE:"
 CLOSE #2
 TUIwaitingOFF(ccc)
END SUB

SUB NCunARC(source AS STRING)
 'decompress CMM2 archive file (ARC)

 LOCAL INTEGER arcLen = MM.INFO(FILESIZE source), srcLen = 0, rle, fiPos = 0, i
 LOCAL STRING header, prev
 LOCAL STRING dest = NON_PATH.NC + NCgetNoExtension(NCgetName(source))

 IF TUIquestion("UNCOMPRESS ARC","Uncompress '" + NCgetName(source) + "' to '" + NON_PATH.NC + "' ?") THEN

   OPEN source FOR INPUT AS #3
   LINE INPUT #3, header
   srcLen = VAL(FIELD$(header, 3, ","))
   INC fiPos, 2 + LEN(header)
   CAT dest, "." + FIELD$(header, 2, ",")    
   SELECT CASE LEFT$(header, 3)
     CASE "RLE"
       'RLE, first archiver
       LOCAL STRING dialog = TUIwaitingON("UNCOMPRESS ARC")
       TUIwaitingProgress(dialog, 0)
       OPEN dest FOR OUTPUT AS #4
       DO WHILE NOT EOF(#3)
         rle = ASC(INPUT$(1, #3))
         INC fiPos
         IF rle < 128 THEN
           'raw data
           INC fiPos, rle + 1
           INC srcLen, rle + 1
           
           FOR i = 1 TO rle + 1
             ?#4,INPUT$(1, #3);
           NEXT i

         ELSE
           'compressed data
           prev = INPUT$(1, #3)
           INC srcLen, rle - 127
           INC fiPos
           FOR i = 1 TO rle - 127
             ?#4,prev;
           NEXT i
         ENDIF

         TUIwaitingProgress(dialog, 100 * fiPos / arcLen)
       LOOP
       CLOSE #4
       TUIwaitingOFF(dialog)
   
     CASE "HUF"
       'HUFFMAN, slow :-(
       LOCAL STRING dialog = TUIwaitingON("UNCOMPRESS ARC")
       LOCAL INTEGER tLen = ASC(INPUT$(1, #3))
       LOCAL STRING bit(tLen - 1), bb = ""
       LOCAL INTEGER ind(tLen - 1), bits

       TUIwaitingProgress(dialog, 0)

       ind(0) = ASC(INPUT$(1, #3))
       bits = ASC(INPUT$(1, #3))
       bit(0) = STRING$(bits, "0")
       '?ind(0), bit(0)
       FOR rle = 1 TO tLen - 1
         ind(rle) = ASC(INPUT$(1, #3))
         bits = ASC(INPUT$(1, #3))
         bit(rle) = BIN$((VAL("&b" + bit(rle - 1)) + 1) << (bits - LEN(bit(rle - 1))), bits)
         '?ind(rle), bit(rle)
       NEXT rle
       INC fiPos, 1 + 2 * tLen

       TUIwaitingProgress(dialog, 100 * fiPos / arcLen)

       OPEN dest FOR OUTPUT AS #4
       DO WHILE NOT EOF(#3)
         FOR rle = 0 TO tLen - 1
           IF LEN(bb) < LEN(bit(rle)) THEN
             CAT bb, BIN$(ASC(INPUT$(1, #3)), 8)
             INC fiPos
           ENDIF
           IF LEFT$(bb, LEN(bit(rle))) = bit(rle) THEN
             ?#4, CHR$(ind(rle));
             INC srcLen, -1
             bb = MID$(bb, LEN(bit(rle)) + 1)
             EXIT FOR
           ENDIF
         NEXT rle
         TUIwaitingProgress(dialog, 100 * fiPos / arcLen)
       LOOP
       DO WHILE srcLen > 0
         FOR rle = 0 TO tLen - 1
           IF LEFT$(bb, LEN(bit(rle))) = bit(rle) THEN
             ?#4, CHR$(ind(rle));
             bb = MID$(bb, LEN(bit(rle)) + 1)
             INC srcLen, -1
             EXIT FOR
           ENDIF
         NEXT rle
       LOOP
       CLOSE #4        
       TUIwaitingOFF(dialog)

     CASE ELSE
       TUIwarning("UNCOMPRESS ARC", "Decompression of '" + LEFT$(header,3) + "' not implemented yet")
       CLOSE #3
       EXIT SUB

   END SELECT
   CLOSE #3  
   NCchangeDir(0,PATH.NC(0))
   NCchangeDir(1,PATH.NC(1))
   NCcursor(ACTIVE.NC,1)
 ENDIF
END SUB