XProfan

// ©2008-2009 XProfan.com
// Version:0.0.1
 {$cleq}
#include strings.inc
#include file.inc
#include onlinecompiler.inc
windowStyle 8 | 2 | 16
windowTitle XProfan.Coms Online Compiler V0.1
window 500,180
useicon a
print
Program:
;
string fileIn
case parCount : fileIn=par$(1)
case fileIn== : fileIn=loadFile$(View source-File,View source-File|*.PRF;*.XPRF)
case fileIn== : end 3
print fileIn,(;
string 	srcFle=fileIn,
binFle=notLastSubstr(srcFle,.)+.exe,
source=trim$(fgc(srcFle))//read input from file or generate
print len(source,
),Lines)
case source== : end
locate 5,2
print Zieldatei:
;binFle
locate 8,2
print Server kontaktieren...
huh.upload.CallerProcAddr=procAddr(statusProc,2)
string binary=onlineCompiler(source)
locate 8,2
print File write...
case fileExists(binFle) : fDelete(binFle)
fpc(binFle,binary)
locate 8,2
print ready.
waitInput 100
end

long statusProc(long h,state){

    locate 8,2

    select state

        caseof 1:print preparing...

        caseof 2:print Server kontaktieren...

        caseof 3:print Waiting on Rückantwort...

        caseof 4:print successful.

        otherwise
        print Waiting on Rückantwort... ;mid$(-\|/,((state*0.009) mod 4)+1,1)

    endSelect

}