BCX Console Demonstration Program S60.bas

 PRINT GetMachineName$()
 
 FUNCTION GetMachineName$()
   DIM A$
   DIM b AS DWORD
   b = 256
   GetComputerName(A$, &b)
   FUNCTION = A$
 END FUNCTION