Editor/converter/program manager for the Prime Calculator (PrimeComm)

[compsystems]

Hola Erwin, el siguiente es el código de prueba para lo de conversión ASCII 7 bits, hay dos caracteres que no se visualizan bien ( ^-1, i ) ver id1:=X^-1, id5:=i #i

Code:

EXPORT test()
BEGIN
LOCAL id0, id1, id2, id3, id4, id5, id6;X;
LOCAL id7, id8, id9, id10, id11, id12, id13;
LOCAL id14, id15, id16;
id0:=X²;
id1:=X;
9▶id2;
id3:=5E-13;
id4:=exp(5);
id5:=;
id6:=5≠9;
id7:=4≤5;
id8:=9≥8;
id9:=√(4);
id10:=∫(X,X,1,2);
id11:=∂(X,X);
id12:=5∡53;
id13:=π;
id14:=∑(X,X,1,2);
id15:=limit(X,X,X,∞);
id16:=limit(X,X,X,±∞);
END;

El código anterior codificado en ASCII 7 bits, util para realizar conversiones a otros BASICs

Code:

//ASCII 7 bits
EXPORT test()

BEGIN

LOCAL id0, id1, id2, id3, id4, id5, id6;X;
LOCAL id7, id8, id9, id10, id11, id12, id13;
LOCAL id14, id15, id16;


id0:=X\^2\;

id1:=X\^-1\;

9\store\id2;

id3:=5\ee\-13;

id4:=\e\(5);

id5:=\i\;

id6:=5\!=\9;

id7:=4\<=\5;

id8:=9\>=\8;

id9:=\root\(4);

id10:=\integral\(X,X,1,2);

id11:=\diff\(X,X);

id12:=5\/_\53;

id13:=\pi\;

id14:=\Sigma\(X,X,1,2);

id15:=limit(X,X,X,\infinity\);

id16:=limit(X,X,X,\+-\\infinity\);

END;

Guia de caracteres de conversión del código anterior

Code:

\^2\ // superindice2, ver ID0
\^-1\ // superindice-1, ver ID1
\store\ // almacenar, ver ID2
\ee\   // EE , ver ID3
\e\    // #e, ver ID4
\i\    // #i, ver ID5
\!=\    // diferente, ver ID6
\<=\    // menor o igual, ver ID7
\>=\    // mayor o igual, ver ID8
\root\  // raiz, ver ID9
\integral\ // ver ID10
\diff\ // ver ID11 
\/_\ // Angulo ver id12
\pi\ // #pi ver id13
\Sigma\  // sumatoria ver id14
\->\ 
\infinity\ // ver id15
\+-\ // ver id16