I created a webpage here that converts 8xp files to unicode. The output was designed to be able to be copy-and-pasted directly into code tags in a post. It currently supports both TIBasic and Axe tokens.

ooh nice now I don't have to type a lot anymore!
EDIT: I +1ed

Yeah, the server can be slow at times, but it is also free.

Another one of those times when firefox ignores my mistakes, causing me to miss them.
Anyway, it's fixed.

Yeah it's down right now. Ypu might want to try another host like x10 hosting or freehostia because Heliohost is absolute crap. it took 2 minutes for me to load your page and just because of that I doubt anyone will use the tool.

Otherwise this seems nice if this would works. Hopefully most forums support unicode in posts.

PROGRAM:XXR
:1:real(0:If not(Ans:Then:ClrHome:Output(1,1,"ERROR: PLEASE GOTO APPS MENU,   OPEN XLIB, PRESS1 TO INSTALL IT THEN 3 TO QUIT  THEN RUN THE    GAME AGAIN.
:Stop:End
:real(11
:Ans➔C
:If C=0 and (fPart(L₁(1))=.1 or .3=fPart(L₁(1:Then:ClrHome:Output(1,1,"ERROR: THIS     LEVEL IS NOT    COMPATIBLE WITH THE REGULAR 83+!
:Stop:End
:7➔dim(L₂
:24➔L₂(1:34➔L₂(2:25➔L₂(3:26➔L₂(4:1➔L₂(5:If L₂(6)≠5 and L₂(6)≠6:6➔L₂(6:If L₂(7)≠1 and 0≠L₂(7:0➔L₂(7
:int(L₁(1➔S
:AxesOff:Full:Float:Normal:ClrDraw:DispGraph
:While 1
:L₂(6➔D
:L₂(7➔E
:0➔H
:100➔P
:9➔θ
:0➔V
:real(7,0
:2➔T
:0getKey:Repeat W=54
:Repeat W=54 or T=4 or T=8
:real(3,3,3,1
:real(3,3,3,0
:real(8:Ans➔W
:real(4,0,1+(C=0),0
:T+1+(C=0➔T
:End
:If T=4:randInt(0,3➔Z:If T=8:Then:0➔T
:real(1,16randInt(0,5),48,2,16,1,2Z,0,3,0,0:End
:End
:For(Z,1,6,.25+.25(C=0
:int(Z➔T
:real(4,0,T+T(C=0),0
:real(3,3,3,1
:real(3,3,3,0
:End
:real(3,3,0,0
:For(Z,1,3+.1(C≠0),.1+.1(C=0
:int(Z➔T
:real(4,1,T+T(C=0),1
:End
:For(W,.2,.4,.2
:For(Z,3,1,⁻W−W(C=0:int(Z➔T:real(4,0,T+T(C=0),1
:End
:For(Z,1,3,W+W(C=0:int(Z➔T:real(4,1,T+T(C=0),1
:End
:End
:If not(C:real(4,1,4,1
:real(1,0,63,12,1,3,0,32,3,0,0
:For(Z,1+(C=0),24,1+1(C=0
:real(1,0,0,12,Z,1,0,56−Z,0,0,1
:End
:0➔T
:real(1,0,12,12,7,1,0,16,3,0,0
:Text(12,70,sub("BEFOREAFTER ",6D−29,6
:real(1,0,12,12,7,1,0,16,3,0,0
:real(1,0,6,12,7,1,0,16,3,0,0
:Text(6,50,sub("EASYHARD",4E+1,4
:real(1,0,6,12,7,1,0,16,3,0,0
:Repeat Z=54 or Z=55
:real(8:Ans➔Z
:real(1,0,T,12,7,1,0,16,3,0,1
:If Ans=54:Then:If T=12:Then
:D+1➔D:If D=7:5➔D
:If D=5:Text(12,70,"BEFORE
:If D=6:Text(12,70,"AFTER   
:0➔Z:End
:If T=6:Then:E=0➔E:If E=1:Text(6,50,"HARD
:If E=0:Text(6,50,"EASY
:0➔Z:End
:End
:real(1,0,T,12,7,1,0,16,3,0,0
:If Z=4:Then:If T<6:Then:18➔T:Else:If C≠0:Then:real(1,0,T−3,12,7,1,0,16,3,0,1
:real(1,0,T−3,12,7,1,0,16,3,0,0
:End:T−6➔T:End:End
:If Z=1:Then:If T>12:Then:0➔T:Else:If C≠0:Then:real(1,0,T+3,12,7,1,0,16,3,0,1
:real(1,0,T+3,12,7,1,0,16,3,0,0
:End:T+6➔T:End:End
:End
:For(W,0,88,8+8(C=0
:real(1,W,0,1+(C=0),63,4,0,0,1,0,0
:real(1,88−8(C=0)−W,0,1+(C=0),63,4,2,0,1,0,1
:End
:D➔L₂(6:E➔L₂(7
:If Z=55 or T=18:Then:Output(1,1,"
:Return:End
:5➔F
:0➔U
:length(Str1➔X:If X>16:16➔X
:For(T,0,6,1+(C=0
:For(Z,1,X
:Text(⁻1,27,T(Z−1),sub(Str1,Z,1
:End
:End
:Text(⁻1,27,0,Str1
:For(Z,30,⁻34,⁻2
:For(T,0,Z,1+(C=0:End
:real(4,0,1+(C=0),1
:End
:For(Z,1+(C=0),24,1+1(C=0
:real(1,0,0,12,Z,2,0,24−Z,0,0,1
:End
:For(Z,0,100+100(C≠0:End
:If fPart(L₁(1))=.1 or not(fPart(L₁(1:Then:.2+L₁(1➔L₁(1
:For(R,5,8
:real(3,R,0,0
:real(1,0,0,12,24,2+7(R=6 or R=8),0,0,2,0,0
:real(1,0,0,12,24,2+7(R=6 or R=8),0,24,1,0,1
:If R=5:StorePic 5:If R=6:StorePic 6:If R=7:StorePic 7:If R=8:StorePic 8
:End:End
:real(0
:Text(⁻1,27,30,"READY
:For(R,5,8
:real(3,R,3,1
:For(T,0,100+100(C≠0:End
:real(3,R,3,0
:End
:Text(⁻1,27,15,"HERE WE GO!
:For(R,5,8
:real(3,R,3,1
:For(T,0,100+100(C≠0:End
:real(3,R,3,0
:End
:0➔Z
:(dim(L₁)<200)+2(dim(L₁)<100➔K
:If C=0 or fPart(L₁(1))=.3:Then
:Repeat Z=22 or P<1 or U>K
:Text(⁻1,0,66,P
:Text(7,67,V
:getKey➔Z:real(1,16L₁(θ),48,2,16,1,2L₁(θ),0,3,0,0
:real(3,F,3,1
:For(T,0,S:End
:L₂(1+L₁(θ−D
:If Z=Ans:Then
:V+1➔V
:If V>H:V➔H
:P+8+2V➔P
:Else
:If Ans≠1 or (E=1 and (Z=34 or (Z≥24 and Z≤26:Then:0➔V:real(1,70,32,3,8,1,0,24,3,0,0:P−4−θ➔P:End
:End
:real(3,F,3,0
:F+1➔F:If F=9:5➔F
:real(4,0,8,0
:θ+1➔θ
:If θ=dim(L₁:Then:U+1➔U:9➔θ:End
:For(T,0,S:End
:End
:Else
:Repeat Z=22 or P<1 or U>K
:If not(fPart(θ:Then
:Text(⁻1,0,66,P
:Text(7,67,V
:getKey➔Z:real(1,16L₁(θ),48,2,16,1,2L₁(θ),0,3,0,0
:real(3,F,3,1
:End
:For(T,0,S:End
:If not(fPart(θ:Then
:L₂(1+L₁(θ−D
:If Z=Ans:Then
:V+1➔V
:If V>H:V➔H
:P+8+2V➔P
:Else
:If Ans≠1 or (E=1 and (Z=34 or (Z≥24 and Z≤26:Then:0➔V:real(1,70,32,3,8,1,0,24,3,0,0:P−4−θ➔P:End
:End
:real(3,F,3,0
:F+1➔F:If F=9:5➔F
:real(4,0,8,0:End
:θ+.5➔θ
:If θ=dim(L₁:Then:U+1➔U:9➔θ:End
:For(T,0,20+1.8S:End
:End
:End
:If Z=22:Then:real(3,F,3,0:For(T,0,88,8+8(C=0
:real(1,T,0,1+(C=0),63,4,0,0,1,0,0
:real(1,88−8(C=0)−T,0,1+(C=0),63,4,2,0,1,0,1
:End
:Else:If P>0:Then:Text(⁻1,19,0,"CLEARED!"
:Text(26,0,"SCORE:",P,"!
:Text(32,0,"MAX COMBO:",H
:Else
:Text(⁻1,24,25,"FAILED!
:End
:Repeat Z=54:real(3,F,3,1:real(3,F,3,0:F+1➔F:If F>8:5➔F
:For(T,0,15+15(C≠0:real(8:If Ans=54 or Ans=55:54➔Z:End
:End
:real(3,F,3,0
:For(T,0,88,8+8(C=0
:real(1,T,0,1+(C=0),63,4,0,0,1,0,0
:real(1,88−8(C=0)−T,0,1+(C=0),63,4,2,0,1,0,1
:End
:End
:End
EDIT (off-topic)

THE    GAME

Yeah, I still remember HelioHost. It promised so much, but downtime was absolutely ridiculous. For free hosts, x10 is nice but slow (sometimes slower than HelioHost), FreeHostia has some limitations, and I personally think 000webhost is the best choice.

By the way, that's a nice tool. It's like SourceCoder with better characters.

I thought x10 hosting was Freehostia?

And I see why now. Also is the site hosted in USA? If it's in Europe, then this might be why.

It might be best to get it hosted by someone else like Juju or even Omni's server, providing the script is very secure.


(Btw the code above is from xLIB xLIB Revolution)

I rewrote this tool in php, so anyone who wants to host it can now.  I also added Deep Thought's suggestion while I was at it.