¿Existe algún proyecto de preservación de listados en BASIC?

[antoniovillena]

Estoy trabajando en una ROM de BASIC para el Jupiter Ace y me gustaría portar la máxima cantidad de juegos de spectrum. Lo que estoy buscando son listados en formato texto para poder modificarlos levemente y generar nuevos TAPs con la herramienta BAS2TAP. Las modificaciones consisten básicamente en transformar todos los PLOT, DRAW y CIRCLES que aparezcan en el listado por UDGs que sean equivalentes, si esto es posible.

He encontrado proyectos cercanos a lo que busco http://proyectobasiczx.wordpress.com y http://kyenter.speccy.org pero ninguno de ellos preserva los archivos .BAS.

[na_th_an]

He encontrado proyectos cercanos a lo que busco http://proyectobasiczx.wordpress.com y http://kyenter.speccy.org pero ninguno de ellos preserva los archivos .BAS.

Mira mejor. Todos los fuentes están en archivos .TXT dentro de las descargas.

[antoniovillena]

Mira mejor. Todos los fuentes están en archivos .TXT dentro de las descargas.

Acabo de mirar mejor. En proyectobasiczx no he encontrado ningún listado, tan sólo archivos TAP y TZX. En kyenter son archivos .zip. En algunos casos sólo contienen un TAP, en otros además hay 2 archivos TXT como dices, pero son listados CM no compilables por BAS2TAP (para escribir a mano). Supongo que habrá también listados en BASIC puro en MH, pero los 3 ó 4 que he mirado dan la casualidad que son CM. Tampoco me valen si hay rutinas en código máquina que manipulen la pantalla porque en el Jupiter Ace el hardware de video es diferente.

Lo que necesito son listados .BAS (ó .TXT, la extensión da igual) de los que pueda generar un archivo TAP con la herramienta BAS2TAP. Y tiene que ser BASIC puro y no hacer manipulación directa de la pantalla con POKEs.

[na_th_an]

A ver, me he metido en http://proyectobasiczx.wordpress.com/
Me meto en la primera noticia que hay, con un enlace a un número de microhobby: http://proyectobasiczx.wordpress.com/re ... 80/mh-169/
Ahí hay varios programas, algunos en CM y otros en BASIC.
Me voy a uno al azar, "Electro Hobby". Me descargo el ZIP http://microhobby.speccy.cz/zxsf/listad ... oHobby.zip
Abro el ZIP y encuentro, entre otros archivos, listado.txt:

Código: Seleccionar todo

1 POKE 23658,0
2 GO TO 9990
5 BORDER 4: INK 5: PAPER 0: CLS
6 LET a=950: GO TO 1000
10 INK 6: LET l$="Este programa te ayudara tanto si eres un tecnico en electroni-ca como si eres un aficionado o simplemente te gusta esta rama de la fisica tan interesante.                        Ademas te ayudara en tus estudi-os pues te ofrece la posibilidadde poder ver la formula que ha utilizado en cada caso.                     Espero que le encuentres una aplicacion util para tus necesi-dades                        PULSA UNA TECLA Y SIGUE LAS INSTRUCCIONES EN LA PANTALLA"
20 FOR n=1 TO LEN l$: PRINT l$(n);: BORDER INT (RND*7): BEEP .01,(CODE INKEY$-3): NEXT n: PAUSE 0: CLS
30 CLS : LET a$="          MENU ELECTRONICO                              1= INTENSIDAD                  2= TENSION           3= RESISTENCIA          4= POTENCIA
5= RESISTENCIAS EN PARALELO 6= RESISTENCIAS EN SERIE 7= CONDENSADORES EN PARALELO 8= CONDENSADORES EN SERIE 9= MENU PRINCIPAL        ELIGE EL DATO QUE DESEES CONOCER"
40 FOR n=1 TO LEN a$: PRINT a$(n);: BEEP .025,(CODE INKEY$-30): NEXT n
42 LET d=(CODE INKEY$-48): IF INKEY$="" THEN GO TO 42
43 IF d<1 OR d>9 THEN GO TO 42
44 CLS
45 IF d=9 THEN LET a=950: GO TO 1000
50 GO TO d*100
55 LET z$=" I=V/R I=INTENSIDAD V=TENSION R=RESISTENCIA": RETURN
56 LET z$=" I=SQR (W/R) I=INTENSIDAD W=POTENCIA R=RESISTENCIA": RETURN
57 LET z$=" I=W/V I=INTENSIDAD W=POTENCIA V=TENSION": RETURN
58 LET z$=" V=R*I V=TENSION R=RESISTENCIA I=INTENSIDAD": RETURN
59 LET z$=" V=SQR (W*R) V=TENSION  W=POTENCIA R=RESISTENCIA": RETURN
60 LET z$=" V=W/I V=TENSION W=POTENCIA I=INTENSIDAD": RETURN
61 LET z$=" R=V/I R=RESISTENCIA V=TENSION I=INTENSIDAD": RETURN
62 LET z$=" R=V/(I^2) R=RESISTENCIA W=POTENCIA IIINTENSIDAD": RETURN
63 LET z$=" R=(V^2)/W R=RESISTENCIA V=TENSION W=POTENCIA": RETURN
64 LET z$=" W=V*I W=POTENCIA V=TENSION I=INTENSIDAD": RETURN
65 LET z$=" W=(V^2)/R W=POTENCIA V=TENSION R=RESISTENCIA": RETURN
66 LET z$=" W=(I^2)*R W=POTENCIA I=INTENSIDAD R=RESISTENCIA": RETURN
70 LET z$=" RT=1/((1/R1)+(1/R2)....+(1/RX)) RT=RESISTENCIA TOTAL  RX=ULTIMA RESISTENCIA": RETURN
75 LET z$=" RT=R1+R2+R3+R4..........+RX     RT=RESISTENCIA TOTAL  RX=ULTIMA RESISTENCIA": RETURN
80 LET z$=" CT=1/((1/C1)+(1/C2)....+(1/CX)) CT=CAPACIDAD TOTAL    CX=ULTIMO CONDENSADOR": RETURN
85 LET z$=" CT=C1+C2+C3+C4..........+CX     CT=CAPACIDAD TOTAL    CX=ULTIMO CONDENSADOR": RETURN
90 LET z$="  INTENSIDAD Pulsa el numero de la opcion que conozcas los datos 1=(V,R) 2=(W,R) 3=(W,V)" : RETURN
91 LET z$="VALOR DE V = ": RETURN
92 LET Z$="VALOR DE I = ": RETURN
93 LET z$="VALOR OE W = ": RETURN
94 LET z$="VALOR DE R = ": RETURN
95 GO SUB x: FOR n=1 TO LEN z$: PRINT z$(n);: BEEP .005,7: NEXT n: RETURN
97 INPUT "QUIERES VER LA FORMULA (S/N)";a$: IF a$="n" THEN GO TO 30
98 IF a$="S" THEN RETURN
100 LET x=90: GO SUB 95
105 PRINT ''''
106 LET d=(CODE INKEY$-48): IF INKEY$="" THEN GO TO 106
107 IF d<1 OR d>3 THEN GO TO 106
110 GO TO 110+d
111 GO TO 120
112 GO TO 130
113 GO TO 140
120 INPUT "V= ";v;"R";r
122 LET i=v/r
125 LET x=91: GO SUB 95: PRINT V: LET x=94: GO SUB 95: PRINT r: LET x=92: GO SUB 95: PRINT i
127 GO SUB 97: CLS : LET X=55: GO SUB 95
128 PAUSE 0: CLS : GO TO 30
130 INPUT "W= ";w;"R= ";r
132 LET i=SQR (w/r)
135 LET x=93: GO SUB 95: PRINT w: LET x=94: GO SUB 95: PRINT r: LET x=92: GO SUB 95: PRINT i
137 GO SUB 97: CLS : LET x=56: GO SUB 95: PAUSE 0: CLS : GO TO 30
140 INPUT "W= ";w;" V= ";v
142 LET i=w/V
145 LET x=93: GO SUB 95: PRINT w: LET x=91: GO SUB 95: PRINT v: LET x=92: GO SUB 95: PRINT i
147 GO SUB 97: CLS : LET X=57: GO SUB 95: PAUSE 0: GO TO 30
150 LET z$="               TENSION            Pulsa el numero de la opcion en la que conozcas los datos 1=(R,I)   2=(V,R)   3=(W,I)": RETURN
160 LET i=(CODE INKEY$-48) : IF INKEY$="" THEN GO TO 160
165 RETURN
170 IF i<1 OR i>3 THEN GO TO 160
200 LET x=150: GO SUB 95: GO SUB 160: LET a=200+i: GO TO a
201 PRINT : GO TO 210
202 PRINT : GO TO 230
203 PRINT : GO TO 250
210 INPUT "R = ";r;"I = ";i
212 LET v=r*i
215 LET X=94: GO SUB 95: PRINT r: LET x=92: GO SUB 95: PRINT i: LET X =91: GO SUB 94: PRINT V
220 GO SUB 97: CLS : LET X=58: GO SUB 95: PAUSE 0: GO TO 30
230 INPUT "W = ";w;"R = ";r
233 LET v=S0R (w*r)
235 LET x=93: GO SUB 95: PRINT W: LET x=94: GO SUB 95: PRINT r: LET x=91: GO SUB 95: PRINT V
240 GO SUB 97: CLS : LET x=59: GO SUB 95: PAUSE 0: GO TO 30
250 INPUT "W = ";w;"I = ";i
255 LET v=w/i
260 LET x=93: GO SUB 95: PRINT w: LET x=92: GO SUB 95: PRINT i: LET x=91: GO SUB 95: PRINT v
265 GO SUB 97: CLS : LET x=60: GO SUB 95: PAUSE 0: GO TO 30
280 LET z$="           RESISTENCIA  Elige los datos que conozcas 1=(V/I) 2=(W/I) 3=(V/W)": RETURN
290 LET Z=(CODE INKEY$-48) : IF INKEY$="" THEN GO TO 290
295 IF Z<0 OR z>3 THEN GO TO 290
297 RETURN
300 LET x=280: GO SUB 95: PRINT : GO SUB 290: GO TO 300+Z
301 GO TO 330
302 GO TO 360
303 GO TO 390
330 INPUT "V = ";v;"I = ";i
335 LET r=v/i
340 LET x=91: GO SUB 95: PRINT V: LET x=92: GO SUB 95: PRINT i: LET x=94: GO SUB 95: PRINT r
345 GO SUB 97: CLS : LET x=61: GO SUB 95: PAUSE 0: GO TO 30
360 INPUT "W = ";w;"I = ";i
365 LET r=w/(i^2)
370 LET x=93: GO SUB 95: PRINT w: LET x=92: GO SUB 95: PRINT i: LET x=94: GO SUB 95: PRINT r
375 GO SUB 97: CLS : LET x=62: GO SUB 95: PAUSE 0: GO TO 30
390 INPUT "V = ";v;"W = ";w
392 LET r=(v^2)/w
395 LET x=91: GO SUB 95: PRINT V: LET x=93: GO SUB 95: PRINT w: LET x=94: GO SUB 95: PRINT r
397 GO SUB 97: CLS : LET x=63: GO SUB 95: PAUSE 0: GO TO 30
398 LET z$=" POTENCIA Introduce los datos conocidos 1=(V-I)  2=(V-R) 3=(I-R)": RETURN
400 LET x=398: GO SUB 95: GO SUB 290: GO TO 400+(z*30)
420 PRINT
430 INPUT "V = ";v;"I = ";I
435 LET w=V*i
440 LET x=91: GO SUB 95: PRINT v: LET x=92: GO SUB 95: PRINT i: LET x=93: GO SUB 95: PRINT W
445 GO SUB 97: CLS : LET x=64: GO SUB 95: PAUSE 0: GO TO 30
460 INPUT "V = ";v;"R = ";r
465 LET w=(v^2)/r
470 LET x=91: GO SUB 95: PRINT v: LET x=94: GO SUB 95: PRINT r: LET x=93: GO SUB 95: PRINT w 
475 GO SUB 97: CLS : LET x=65: GO SUB 95: PAUSE 0: GO TO 30
490 INPUT "I = ";i;"R = ";r
493 LET w=(i^2)*r
495 LET x=92: GO SUB 95: PRINT I: LET x=94: GO SUB 95: PRINT r: LET x=93: GO SUB 95: PRINT w
496 LET z$=" RESISTENCIA = ": RETURN
497 GO SUB 97: CLS : LET x=66: GO SUB 95: PAUSE 0: GO TO 30
498 LET z$="   RESISTENCIAS EN PARALELO Dame el numero de resistencias y luego te pedire los valores de cada una de ellas": RETURN
499 LET z$=" RESISTENCIA TOTAL = ": RETURN
500 LET x=498: GO SUB 95: PRINT : INPUT ;j: FOR p=1 TO j: PRINT p;: LET x=496: GO SUB 95: INPUT ;V: PRINT v
510 IF p=1 THEN LET r=1/v
520 IF p=1 THEN GO TO 540
530 LET r=r+(1/v)
540 NEXT p
550 LET r=1/r
560 LET x=499: GO SUB 95: PRINT r
570 GO SUB 97: CLS : LET x=70: GO SUB 95: PAUSE 0: GO TO 30
580 LET z$="... RESISTENCIAS EN SERIE Dame el numero de resistencias y luego te pedire el valor de cada una de ellas" : RETURN
600 LET x=500: GO SUB 95: PRINT : INPUT b: FOR f=1 TO b: PRINT f;: LET x=496: GO SUB 95: INPUT ;r: PRINT r
610 IF f=1 THEN LET rt=r
620 IF f=1 THEN GO TO 640
630 LET rt=rt+f
640 NEXT f
650 LET x=499: GO SUB 95: PRINT rt
660 GO SUB 97: CLS : LET x=75: GO SUB 95: PAUSE 0: GO TO 30
670 LET z$=" CONDENSADOR = ": RETURN
680 LET z$="****CONDENSADORES EN PARALELO*** Dame el numero de los condensa-dores y luego te pedire el valor de cada uno de ellos": RETURN
690 LET z$=" CAPACIDAD TOTAL = ": RETURN
700 LET x=680: GO SUB 95: PRINT : INPUT n: FOR f=1 TO n: PRINT f;: LET x=670: GO SUB 95: INPUT c;: PRINT c
710 IF f=1 THEN LET ct=c
720 IF f=1 THEN GO TO 740
730 LET ct=ct+c
740 NEXT i
750 LET x=690: GO SUB 95: PRINT ct
760 GO SUB 97: CLS : LET x=85: GO SUB 95: PAUSE 0: GO TO 30
770 LET z$="*****CONDENSADORES EN SERIE***** Dame el numero de condensadores y luego te pedire el valor de cada uno de ellos" : RETURN
800 LET x=770: GO SUB 95: PRINT : INPUT n: FOR f=1 TO n: PRINT r;: LET x=670: GO SUB 95: INPUT c: PRINT c:
810 IF f=1 THEN LET ct=1/C
820 IF f=1 THEN GO TO 840
830 LET ct=ct*(1/C)
840 NEXT f
850 LET ct=1/ct
860 LET x=690: GO SUB 95: PRINT ct
870 GO SUB 97: CLS : LET x=80: GO SUB 95: PAUSE 0: GO TO 30
900 LET a$=" PULSA UNA TECLA": RETURN
950 LET a$=" ---- SERAFIN RODRIGUEZ ---- PRESENTA **********ELECTROHOBBY********** El programa te presenta 2 opcio-nes: 1= CALCULO Y FORMULAS 2= HISTORIA ELECTRONICA Elige la opcion que desees": RETURN
955 INK 6: LET a$=" MENU HISTORICO A= AMPERE B= BELL C= COULOMB D= CROOKES E = EDISON  F= FARADAY G= GALVANI  H= HENRY  I= HERTZ  J= JOULE K= KIRCHHOFF L = MARCONI   M= MAXWELL N= OERSTED    O= OHM  P= VOLTA  OTRA TECLA=MENU PRINCIPAL   OTRA TECLA": RETURN
960 INK 4: LET a$="******HISTORIA ELECTRONICA****** Este programa te ofrece la oca-sion de poder conocer a los grandes de la ciencia (sobre to-do fisica) que jugaron un gran papel en la historia de la elec-trotecnia y aportaron grandes descubrimientos   A estos hombres vas a poder conocerlos u n poco a traves de tu ordenador preferido !! YO !! TU ZX SPECTRUM + Pulsa una tecla para menu": RETURN
1000 GO SUB 2000: GO SUB 290: CLS
1005 IF z=1 THEN GO TO 10
1006 IF z=2 THEN GO TO 2010
1007 GO SUB 290: CLS : GO TO 1005
2000 CLS : GO SUB a: FOR n=1 TO LEN a$: PRINT a$(n);: BEEP .005,5: NEXT n: RETURN
2010 LET a=960: GO SUB 2000: PAUSE 0
2015 LET a=955: GO SUB 2000
2017 IF INKEY$="" THEN GO TO 2017
2020 LET a=(CODE INKEY$-64)*100
2022 LET a=a-1200
2030 IF a<2100 OR a>7600 THEN GO TO 2017
2040 GO SUB 2000: PAUSE 0: GO TO 2015
2100 LET a$=" Andre-Marie AMPERE (1775-1836) ******************************** Fisico y matematico frances. Fue profesor en Bourges, en Lionen la Ecole Polytechnique y en la Universidad de Paris. En 1814se convirtio en miembro de la Academia de Ciencias. sus estu- dios y sus investigaciones sobreeleetrodinamica y electro magne-tismo son de fundamental impor- tancia. La unidad practica para la me- dida de la intensidad de la co- rriente electrica se llama Ampe-re en su honor. (a. absoluto=   1/10 unidades S.G.S; a.interna- cional= corriente que en un vol-timetro de sales de Plata depo- sita el catodo 1118 mg de AG  metalico al sec.).Simbolo A": RETURN
2200 LET a$="Alexander Graham BELL(1847-1922)**************************************************************** Fisiologo e inventor ingles na-cido en Edimburgo. En 1870 emigro a Canada y de alli paso a los Estados unidos, convirtiendose luego en ciudada-no americano. Enseno en Boston y se dedico a la formacion de maestros para alumnos sordomudos. En 1876 hizo la primera demos- tracion publica de trasmision de la palabra con el telefono de su invencion. Bell debio de- fender duramente durante muchos anos sus títulos de prioridad": RETURN
2300 LET a$=" Charles Augustin COULOMB (1736-1806) **************************************************************** Fisico frances. Se ocupo de es-tudios sobre electricidad y en su honor se llama Coulomb a la unidad practica de cantidad de electricidad (cantidad de elec- tricidad trasmitida por minuto segun un circuito recorrido por un amperio)que se indica con el simbolo C. Formulo una ley que lleva su nombre : Dos cargas electricas (o magne-ticas) se atraen o se rechazan en razon directa del producto delas cargas e inversa al cuadradode las distancias": RETURN
2400 LET a$=" Sir William CROOKES (1832-1919) *******************i******************************************** Fisico y quimico ingles. A el se le debe la invencion de un tubo especial de vacio (tubo de Crookes)con gas rarificado que lleva en los extremos los polos positivo y negativo;en es-te tubo se forman los RAYOS CA-TODICOS (o sea una corriente de electrones del catodo al anodo) y los RAYOS CANALES (o sea una corriente de iones positivos delanodo al catodo). Estos estudios fueron utilizados para la cons-truccion de un tipo de oscilo- grafos y de televisores.   (1913-1916) presidente de la Royal Society": RETURN
2500 LET a$=" Thomas Alba EDISON (1847-1931)************************************ Inventor estadounidense;tuvo una infancia dificil y no pudo seguir cursos regulares de estu-dios.
Pese a esto realizo mas de mil patentes;entre ellas la lampara electrica,el microfono de carbony el gramofono.    Descubrio el efecto termoionicoque en su honor se llamo efecto Edison: una conquista fundamen- tal para la electronica de la que salieron otras de gran im- portancia.": RETURN
2600 LET a$="  Michael FARADAY (1791-1867) ********************************************************* Quimico,fisico,filosofo ingles. Es considerado el fundador de la ciencia del electromagnetismo Era de origen humilde.En 1813 se convirtio en asistente de Davy ante la Royal Institution y asi pudo estudiar y convertir-se en profesor de quimica. Sus estudios conciernen sobre todo a la relacion existente entre las fuerzas de la luz,del calor,de la electricidad y del magnetismo. Sus descubrimientos forman la base de la moderna in-dustria electronica. El fue el que instituyo el Christmas Lec- tures para los jovenes.": RETURN
2700 LET a$="   LUigi GALVANI (1737-1798)  ********************************************************** Fisico y filosofo italiano. Sus experimentos sobre ranas,  realizados en la Universidad de Bolonia, demostraron el princi- pio de la electricidad animal.   Sus teorias, retomadas y reba- tidas por Alessandro Volta ,   llevaron a este ultimo a la in- vencion de la pila electrica": RETURN
2800 LET a$="  Joseph HENRY (1797-1878)           *************************************************************************** Fisico estadounidense.              Profesor de matematicas y fisi-ca en la Universidad de Albany   Se dedico a los estudios sobre induccion electromagnetica.     Su nombre esta unido a la uni- dad practica de auto-induccion (induccion de un circuito en el que para la variacion de un am- perio por segundo se manifiesta la fuerza electromotriz de un   voltio) cuyo simbolo es H=Henrio": RETURN
2900 LET a$="  Heinrich Rudolf HERTZ            ************(1857-1894)*******************************************                                  Fisico aleman, tuvo la suerte de tener como maestro en la Uni-versidad de Berlin a Hermann vonHelmholtz, un estudioso que gano fama mundial por haber formulado con claridad matematica el prin-cipio de la conservacion de la  energia.  En 1888 Hertz construyo su pri-mer oscilador con el que demos-  tro que las ondas electromagne- ticas se propagan en el espacio sin necesidad de conductores.   Descubrio pues las ondas Hert- zianas que permitieron a Marconi la invencion de la radio.": RETURN
3000 LET a$="       James Prescott JOULE      *************(1818-1889)****************************************************                         Fisico ingles . Realizo impor- tantes estudios sobre electrici-dad e invento un motor electrico en 1838.              En 1841 enuncio la  Ley que lle-va su nombre: (la cantidad  de  calor que pasa por un hilo es proporcional a la resistencia del hilo y al cuadrado de la in-tensidad de la corriente.) Para el cobre la formula seria:            Q=0.24*I^2*R*T  T=Tiempo    Dirigio importantes investiga-  ciones sobre la transformacion del calor en trabajo. ":RETURN
3100 LET a$="   Gustav Robert KIRCHHOFF                (1824-1887)               **********************************                                  Fisico y matematico aleman.     Fue profesor en Breslavia,Hei- delberg y Berlin. Realizo nume- rosas e importantisimas investi-gaciones en casi todos los cam- pos de la fisica-matematica, la electricidad y la termodinamica. Explico el origen de las rayas de Fraunhofer en el espectro so-lar. Con Bunsen es considerado  el iniciador del analisis espec- tral.          A el se le deben tambien las leyes fundamentales de los cir- cuitos electricos.": RETURN
3200 LET a$="  Guillermo MARCONI (1874-1937) ***************************************                              Inventor italiano al que se le deben importantisimas realizacio-nes:   Aprovechando las ondas electro-magneticas descubiertas por    Hertz logro enviar a distancia senales electricas sin necesidadde conductores metalicos y de  esta manera dio origen a la tele-grafia sin hilos. En 1904   aplico las valvulas termoionicas a las radiocomunicaciones; en 1916 efectuo la primera transmi- sion de onda corta y en 1933 de microondas. En 1909 obtuvo el Premio Nobel de fisica. Fue se- nador, presidente del Consejo   Nacional de Investigaciones.": RETURN
3300 LET a$="  James Clerk MAXWELL                    (1831-1879)                   *************************************************************                                     Fisico escoces. Escribio su   primera obra cientifica cuando  tenia 15 anos . Luego fue profe-sor de filosofia natural en   Aberdeen en 1856 y cuatro anos  despues paso al King's College  de Londres. En 1871 fue el pri- mer profesor de fisica experi-  mental en Cambridge, en el Insti-tuto de Cavendish.                 Retomo los estudios de Faraday y formulo importantes leyes de  electricidad y magnetismo.        A el se deben las famosas ecua-ciones que permitieron la des- cripcion de los fenomenos de los campos electricos (ecuaciones de Maxwell).": RETURN
3400 LET a$="  Hans Christian OERSTED                (1777-1851)              ***************************************                                  Fisico danes. Es considerado elpadre del electromagnetismo por-que a el se debe el haber descu-bierto que una aguja magnetica se desvia en la proximidad de unconductor electrico.              Fue director del Politecnico deCopenhague y miembro de la Aca- demia de Ciencias de Paris.   Fue el inventor del piezometro  (aparato para determinar la    comprensibilidad de los liquidos). Se dedico tambien a estudios e investigaciones de quimica y logro aislar el aluminio del es-tado impuro y a preparar el clo-ruro de aluminio.": RETURN
3500 LET a$="  Georg Simon OHM (1787-1854)   ***************************************************************************                               Fisico aleman. Sus estudios se refieren en particular a la    electricidad.                          En su honor se llama Ohm a la unidad practica de resistencia electrica (resistencia a 0 gra-dos de una columna de mercurio de 106.3 cm de largo y de la ma-sa de 14.4521 gramos y la seccion de 1 mmc).       Formulo tambien la famosa LEY  DE OHM, segun la cual en un cir-cuito de corriente continua ,  entre la fuerza electromotriz    (V), la intensidad (I) y la re- sistencia (R), subsiste la igual-dad V=I*R."
3550 RETURN
3600 LET a$="  Alessandro VOLTA (1745-1827)  ***************************************************************************                               Fisico italiano. Enseno en la  Universidad de Pavia.            Retomando los estudios de Gal- vani, descubrio que lo esencial para producir corriente electri-ca era el contacto de metales  diferentes.                  En 1800 invento la pila electri-ca, el primer instrumento para producir corriente electrica.     Invento tambien el electroforo y el electrometrocondensador.   Puede ser considerado como el  fundador de la electroquimica.":RETURN
9000 LET a=950: GO TO 1000
9990 CLEAR 64568: FOR f=65338 TO 65365: READ a: POKE f,a: NEXT f: RANDOMIZE USR 65338
9995 DATA 33,0,61,17,57,252,1,0,3,126,203,47,182,18,19,35,11,121,176,32,244,33,57,251,34,54,92,201
9997 GO TO 5
9999 REM * © SERAFIN RODRIGUEZ © 

Debo de tener mucha suerte, es el primero que pruebo

Al lado de cada item se especifica si está en BASIC o CM, o BASIC+CM. Busca los que estén en BASIC.

[antoniovillena]

Debo de tener mucha suerte, es el primero que pruebo

Al lado de cada item se especifica si está en BASIC o CM, o BASIC+CM. Busca los que estén en BASIC.

Que va el problema era mío, que sólo había mirado en Libros y en Desconocidos. Gracias por la ayuda. Es exactamente lo que busco y como además se especifica si es BASIC, CM, o BASIC+CM no pierdo el tiempo probando. En principio voy a usar unos pocos para desarrollo y pruebas, pero más adelante me gustaría hacer una recopilación para el proyecto Bascolace. ¿Te importa si enlazo a tus archivos?

[na_th_an]

Eso se lo tendrás que preguntar a Neil Parsons, que es el dueño de ese sitio Yo no tengo nada que ver con la web. Cuando lo tengas andando si quieres puedo testearlo, soy muy de BASIC.

[antoniovillena]

Eso se lo tendrás que preguntar a Neil Parsons, que es el dueño de ese sitio Yo no tengo nada que ver con la web. Cuando lo tengas andando si quieres puedo testearlo, soy muy de BASIC.

Pues acabo de lanzar la primera BETA. La ROM a pelo es esta:

http://jupiler.retrolandia.net/ace

Una demo para verla funcionar está aquí:

http://jupiler.retrolandia.net/ace?bustout.tap

Y toda la info del proyecto aquí:

http://retrolandia.net/foro/showthread.php?tid=36

[NeilParsons]

Buenas, antoniovillena, no hay problema alguno con que enlaces los archivos.

Por lo general, no suelo incluir archivos .TXT con el / los listados de un determinado programa pero, si es posible y el programa puede ser luego interpretado por el BASin de Paul Dunn, lo incluyo con el TAP o TZX del mismo. Más que nada porque algunos caracteres especiales o símbolos como el «©» (Modo E + SymbShft + "P") no son captados correctamente por el BASin y los tengo que añadir o sustituir después con un emulador con el programa ya funcionando.

Como veo que puede haber algún interés en los ficheros .BAS, intentaré añadirlos con los próximos archivos, pues aun me queda mucha tela que cortar.

[na_th_an]

algunos caracteres especiales o símbolos como el «©» (Modo E + SymbShft + "P") no son captados correctamente por el BASin y los tengo que añadir o sustituir después con un emulador con el programa ya funcionando.

No es necesario. Todos estos caracteres tienen su código específico para que BASin los interprete directamente. Lo suyo sería NO guardar estos caracteres en los listados directamente, porque no son caracteres ASCII estandar. Creo que lo ideal para la preservación en formato de texto es empleando los códigos específicos, que además son compatibles con otras aplicaciones y con el compilador de Boriel.

Por ejemplo:

- Los caracteres gráficos de bloques se representan con \ mas dos carácteres que pueden ser ESPACIO . ' o : dependiendo de los "píxeles" que estén activados. Por ejemplo, el bloque sólido (GRAPH, SHIFT+8) se representaría \:: ... El bloque con los dos "píxeles" inferiores encendidos (GRAPH, SHIFT + 3) se representaría \.. y así con todos.
- ` o \` representan el símbolo de libra.
- \* es el copyright.
- \#nnn, con nnn de 000 a 255, es el caracter cuyo código ASCII está representado por dicho número
- \A, \B... \U son los UDG correspondientes.

No digo que te pongas a convertir todo, pero estaría bien que lo tuvieses en cuenta para los listados futuros. De este modo, no necesitas estar cambiando de entorno para introducir algunos caracteres. Lo puedes hacer todo desde tu editor de textos, y luego ya importar directamente. Además, como digo, los listados serían directamente utilizables en otros entornos.

[NeilParsons]

- Los caracteres gráficos de bloques se representan con \ mas dos carácteres que pueden ser ESPACIO . ' o : dependiendo de los "píxeles" que estén activados. Por ejemplo, el bloque sólido (GRAPH, SHIFT+8) se representaría \:: ... El bloque con los dos "píxeles" inferiores encendidos (GRAPH, SHIFT + 3) se representaría \.. y así con todos.
- ` o \` representan el símbolo de libra.
- \* es el copyright.
- \#nnn, con nnn de 000 a 255, es el caracter cuyo código ASCII está representado por dicho número
- \A, \B... \U son los UDG correspondientes.

No digo que te pongas a convertir todo, pero estaría bien que lo tuvieses en cuenta para los listados futuros. De este modo, no necesitas estar cambiando de entorno para introducir algunos caracteres. Lo puedes hacer todo desde tu editor de textos, y luego ya importar directamente. Además, como digo, los listados serían directamente utilizables en otros entornos.

Oido cocina... gracias Nath.

[antoniovillena]

Pues BAS2TAP utiliza otro formato distinto. Por ejemplo los UDGs serían {A} en lugar de \A. El código fuente del Bas2Tap está disponible y no creo que sea muy difícil cambiarlo para que también acepte el formato \A.

Gracias NeilParsons por permitirme enlazar tus archivos. Y lo de generar los .BAS con que lo hagas sólo para nuevos listados es suficiente. Creo que hay una herramienta que extrae los listados de un archivo SNA, tendré que probar a ver que tal y si eso te informo.

[na_th_an]

En cualquier caso, cualquier editor de textos buenos permite find and replace con expresiones regulares, y cambiar de un formato a otro es trivial