XProfan

proc URL

    parameters url$                        Den Explorer bitten, den Browser mit mit der gewünschten URL zu starten.
    shell add$(add$(EXPLORER.EXE ,chr$(34)),add$(url$,chr$(34)))

endproc

proc URL_local

    parameters url$                        Ruft Internet-Seiten auf dem Rechner auf.
    case equ$(findfirst$(url$),):return  Verhindert das Starten des Explorers selber, wenn die Datei nicht da ist.
    URL add$(add$(getdir$(@),),url$)

endproc

proc Email

    parameters to$,cc$,bcc$,subject$,body$
    let body$=translate$(body$,
    ,%0A) Email-gültige Zeilenumbrüche setzen
    let to$=mailto:;to$                  Empfänger
    let to$=to$;?cc=;cc$                 Empfänger der Kopie
    let to$=to$;&bcc=;bcc$               Heimliche Empfänger der Kopie
    let to$=to$;&subject=;subject$       Betreff
    let to$=to$;&body=;body$             Nachricht
    URL to$

endproc

declare Zufall%
randomize
let Zufall%=rnd(4)
case equ(Zufall%,0):URL http://www.profan.de/
case equ(Zufall%,1):Email prof.chaos@netcologne.de,,,Nix Betreff,Auch nix Text
case equ(Zufall%,2):URL ftp://ftp.borland.com/
case equ(Zufall%,3):URL_local test.htm