PROBLE.BAS x  23658j\,8  2 +0,0;" Por Alvaro Alea 1988" (71,0;"________________________________"'' 2"Escribe el texto del programa, luego el numero de operaciones, si es suma,resta,etc la operaci-on,y los numeros de la operacion(0 el segundo si es RAIZ CUADRA-DA).Escribe ""R.ANTE."" si quieresque la 1' cifra sea el resultado de la operacion anterior" <'"TEXTO (Maximo 20 lineas): ";a$ F'"PROBLEMA:"'a$ P"NUMERO DE OPERACIONES:";b ZHb$(b,14):r$(b+1,20):u$(b,10 ):d$(b,10 ) d c=1b n_"OPERACION (CON MALLUSCULAS)(SUMA,RESTA,MULTIPLICACION,DIVISION,ELEVAR,RAIZ CUADRADA):";b$(c) x/"Primera cifra:";u$(c)'"Segunda cifra:";d$(c) c '''"PRESS ANY KEY":0  +0,0;" Por Alvaro Alea 1988" $"________________________________" 5 ''a$ e=1b *b$(e,14 )="SUMA"290" *b$(e,15)="RESTA"360h 4b$(e,114)="MULTIPLICACION"430 -b$(e,18)="DIVISION"500 +b$(e,16)="ELEVAR"600X 3b$(e,113 )="RAIZ CUADRADA"670 e ?"El resultado es:"; r$(b+1)''"PRESS ANY KEY":0: #6u$(e,17)="R.ANTE."u$(e)=r$(e-1) ,>(5);u$(e)'(3);"+ ";d$(e)'(2);"--------" 6f=u$(e)+d$(e) @ r$(e)=f J5;r$(e)'' Te=br$(b+1)=r$(e) ^ i7u$(e,17)="R.ANTE." u$(e)=r$(e-1) r>(5);u$(e)'(3);"- ";d$(e)'(2);"--------" |f=u$(e)-d$(e)  r$(e)=f 5;r$(e)'' e=br$(b+1)=r$(e)  6u$(e,17)="R.ANTE."u$(e)=r$(e-1) >(5);u$(e)'(3);"x ";d$(e)'(2);"--------" f=u$(e)*d$(e)  r$(e)=f 5;r$(e)'' e=br$(b+1)=r$(e)  6f=07:f7"a"+f,10000000 "f=7"a"+f,1111111 f /u$(e,7)="R.ANTE."u$(e)=r$(e-1) '(5);u$(e);"";d$(e)'15; &f=u$(e)/d$(e) 0 r$(e)=f : r$(e)'' De=br$(b+1)=r$(e) N Y/u$(e,7)="R.ANTE."u$(e)=r$(e-1) b'(5);u$(e);"^";d$(e)'15; lf=u$(e)^d$(e) v r$(e)=f  r$(e)'' e=br$(b+1)=r$(e)  6f=07:f1"a"+f,00000000 "f=1"a"+f,1111111 f /u$(e,7)="R.ANTE."u$(e)=r$(e-1) #(5);;"V";u$(e)'15;  f=u$(e)  r$(e)=f  r$(e)'' e=br$(b+1)=r$(e)  ':"PROBLE.BAS"0 C