' COM GUID — Generate GUID-like strings manually
#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN() AS LONG
    LOCAL sGuid  AS STRING
    LOCAL sClsid  AS STRING
    LOCAL sProgid  AS STRING
    sGuid  = "{3F2504E0-4F89-41D3-9A0C-0305E82C3301}"
    PRINT "New GUID: " + sGuid
    sClsid = "{0002DF01-0000-0000-C000-000000000046}"
    PRINT "CLSID for IE: " + sClsid
    sProgid = "LONG.Application"
    PRINT "PROGID for LONG: " + sProgid
    FUNCTION = 0
END FUNCTION
