CMM2:

> Print Mm.Info(FileSize "dir-that-exists")
-2
> Print Mm.Info(FileSize "dir-that-exists/")
Invalid file specification
> Print Mm.Info(FileSize "dir-that-exists\")
Invalid file specification
> Print Mm.Info(FileSize "file-that-exists.txt")
6378
> Print Mm.Info(FileSize "file-that-does-not-exist.txt")
-1

MMB4W:

> Print Mm.Info(FileSize "dir-that-exists")
0
> Print Mm.Info(FileSize "dir-that-exists/")
-1
> Print Mm.Info(FileSize "dir-that-exists\")
-1
> Print Mm.Info(FileSize "file-that-exists.txt")
6378
> Print Mm.Info(FileSize "file-that-does-not-exist.txt")
-1

Open "foo.txt" For Output As #1
Print #1, "Hello World"
Print #1, "Goodbye World"
Close #1

Open "foo.txt" For Input As #1
Print Eof(#1)
s$ = Input$(255, #1)
Print Eof(#1)
Close #1

0
1

0
-1

Option explicit
Option default none
Dim a$,b$,c$
Dim integer i,j,rlen
Dim m%(4000)
Dim PLACEID$="2638878"
Dim APIKEY$="myAPIkey"
'
' get the IP address of openweathermap and open a client connection to it
'
a$="api.openweathermap.org"
TCP client a$,80
'
' construct the request for a weather report and send it
'
b$= "GET /data/2.5/weather?id="+PLACEID$+"&APPID="+APIKEY$
b$=b$+" HTTP/1.0"+Chr$(13)+Chr$(10)+Chr$(13)+Chr$(10)
TCP send b$
'
'set up a longstring variable and read the return message into it
'
LongString clear m%()
Do
TCP receive c$
If c$<>"" Then LongString append m%(),c$
Loop While c$<>""
'
' trim off the HTTP header
'
LongString trim m%(),LInStr(m%(),"{")-1
rlen=LLen(m%())
'
' process the message, in this case just print it out
'
i=1
Do While rlen>0
If rlen>240 Then
j=240
Else
j=rlen
EndIf
rlen=rlen-j
Print LGetStr$(m%(),i,j);
i=i+j
Loop
Print ""
TCP close
Print "Weather for "+json$(m%(),"name")
Print "Temperature is ",val(json$(m%(),"main.temp"))-273
Print "Pressure is ",json$(m%(),"main.pressure")
Print json$(m%(),"weather[0].description")

do
cls
td=0
tp=0
input "Delay wanted:";d
for i=1 to 10
print
timer=0
do
loop while timer<d
t=timer
inc td,t
print "Do/Loop: ";d,t
timer=0
pause d
t=timer
inc tp,t
print "Pause:   ";d,t
next
print "Do/Loop average: ";td/10
print "Pause average:   ";tp/10
print:print "Press [SPACE]"
do
loop while inkey$<>" "
loop

option milliseconds on
settick 1000,myint
timer=0
do
 pause 5000
 print time$
loop
sub myint
 static int lasttime=timer
 print timer-lasttime
 lasttime=timer
end sub

C:\WINDOWS\system32>copy \dl\micromite\_mmb4w\mmbasic.exe \bin
Access is denied.
       0 file(s) copied.

C:\WINDOWS\system32>