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

[compsystems]

Realizar un "traductor" de código seria lo ideal, pero requiere de una gran labor por parte del programador, la idea es automatizar un poco la traducción, por que los símbolos como por ejemplo integral, derivada, sumatoria en el ti-basic o HP-basic *(HP50) son simplemente un reemplazo de set del ASCII extentido, es decir modifican la fuente cambiando de símbolo . Si yo copio un codigo de la HP-Prime por estar codificado en UNICODE al copiarlo y pegarlo en el un editor de programas para la TI68K, observare un código ilegible, mientras que si se convierte a ASCII de 7 bits haría visible esos simbolos, aunque sea como \integral\ \diff\ facilitando enormemente el port

Un juego elemental escrito en HPbasic y TIBasic

HPbasic

Code:

EXPORT Deducir_Numero()
// Juego Matemático super elemental versión 0.0.6"
begin
   local num_ingresado := 0;
   local total_intentos := 8;
   local intentos := total_intentos;
   local num_secreto := IP( random ( 1, 100 ) ); //  ( rand() mod 100 ) + 1;  // OLD FIRMWARE
   print();
   print( "*** Ejecución Iniciada. ***" );
   freeze; wait;
   print( "Juego Matemático versión 0.0.6" );
   wait;
  print( "El programa genera un numero natural entre 1 y 100. Trate de deducirlo en 8 intentos maximo, o en los que usted configure..." );
   wait;
   print( "Ingrese el # de intentos personalizados" );
   freeze; wait( 2 );
   if input( total_intentos,"Total de Intentos","Intentos=","Digite un # como total de intentos maximo" )  
then if total_intentos <= 0 then kill; end; 
   else 
     kill;
   end;
   intentos := total_intentos;
   //print( "Debug: "+num_secreto );

   if NOT( input( num_ingresado,"Deducir_Numero","Num Ingresado=","Cual es el numero?" ) ) then kill; end;
   print( ">"+num_ingresado );

   while( num_secreto <> num_ingresado and intentos > 1 ) do
      if num_secreto > num_ingresado then
         print( "El numero es mayor" );
      else
         print( "El numero es menor" );
      end;
      intentos := intentos - 1;
      print( "Le quedan "+intentos+" intento(s):" );
      freeze;  wait;
      if NOT( input( num_ingresado,"Deducir_Numero","Num Ingresado=","Digite un #" ) ) then kill; end;
      print( ">"+num_ingresado );
   end;

   if num_secreto <> num_ingresado then
      print( "Perdio! El numero era: "+num_secreto );
   else
      print( "Gano! Usted lo dedujo en: "+ ( ( total_intentos + 1 ) - intentos ) +" intento(s.)" );
   end;
   print( "*** Ejecución Finalizada. ***" );

   freeze;
   return "Done";

end;

TI-Basic

redactando ...