autosave

autosave "myprog"

dim ss$(5) 'omit the length

Sub main()
Local i. old_dir$, state, s$
ss$(0)=mm.info(default path)+"zmim"

for PortNumber = 1 to 64
       test$=" COM"; PortNumber;" "
       if instr(" "+excludeCOM$+" ",test$)=0 then
           lpFileName$ = "\\.\COM"; PortNumber
           dwCreationDistribution = _OPEN_EXISTING
           hTemplateFile = _NULL
           calldll #kernel32, "CreateFileA", _
               lpFileName$            as ptr, _
               dwDesiredAccess        as ulong, _
               dwShareMode            as ulong, _
               lpSecurityAttributes   as ulong, _
               dwCreationDistribution as ulong, _
               dwFlagsAndAttributes   as ulong, _
               hTemplateFile          as ulong, _
               hFileHandle            as ulong

           if hFileHandle <> _INVALID_HANDLE_VALUE then
               pf=pf+1
               portlist$(pf)=mid$(lpFileName$,5)
               calldll #kernel32, "CloseHandle", _
                   hFileHandle as ulong, _
                   result      as long
           end if
           'print lpFileName$,hFileHandle
       end if
   next PortNumber

   count = Registry::CountSubValues(#HKEY_LOCAL_MACHINE, "HARDWARE\DEVICEMAP\SERIALCOMM")
   For n = 0 To count - 1
     pName = Registry::ListSubValue(#HKEY_LOCAL_MACHINE, "HARDWARE\DEVICEMAP\SERIALCOMM", n)
     Port =Registry::ReadValue(#HKEY_LOCAL_MACHINE, "HARDWARE\DEVICEMAP\SERIALCOMM", pName)
     ;Debug pName+" ,  "+Port
     AddElement(myPorts())
     myPorts() = Port
     found = found + 1
   Next n

int main(int argc, char* argv[]) {
demo = new MMBasic;
DWORD TimerID;
HANDLE myTHandle = CreateThread(0, 0, mClock, NULL, 0, &TimerID);
while (mSecTimer < 200) {}
DWORD BasicID;
HANDLE myHandle = CreateThread(0, 0, Basic, argv[1], 0, &BasicID);
while (mSecTimer < 400) {}
DWORD ScreenID;
HANDLE mySHandle = CreateThread(0, 0, Screen, NULL, 0, &ScreenID);