TUTOR eE(C"gE7Programa "TUTOR", 14 K  VICTOR VARELA -30/10/83- "TUTOR" VERSION 1/11/83.-17 K !:1,22:NI=72H 0,12 ;"PROGRAMA";2,13 ;"TUTOR";1;2,13 ;"_____";0;4,10 ;"CREACION DE":A=111o:B=20:9925& 11 ,7;"BOALOX" (!12 ,6;"INFORMATICA" 2/13 ,7;"C/ Gral.Franco,98-ORENSE-" < 9900& F`R=1500:R:20,0;"PARA SEGUIR, APRIETA CUALQUIER TECLA" P=""80P Z""100d d+236099\,502:23658j\,8 i""110n nW5000::0,13 ;"TUTOR";1;0,13 ;"_____";0;7,0;" EL OBJETO DE ESTE PROGRAMA ES MOSTRAR EL SIGNIFICADO DE A- QUELLAS PALABRAS INGLESAS DE DONDE PROVIENEN LOS COMANDOS DEL SPECTRUM.":R=1200:R:20,0;"APRIETA CUALQUIER TECLA PARA CONTINUAR" p=""112p q:5:5:0:1,22:1;0,12 ;" MENU ";0;3,0;"A.-LISTA DE PALABRAS INGLESAS";5,0;"B.-IDEM CON SU SIGNIFICADO";7,0;"C.-TEST";9 ,0;"D.-DICCIONARIO INGLES-ESPAOL";11 ,0;"E.-DICCIONARIO ESPAOL-INGLES";17,3;"ELIGE PULSANDO A,B,C O D";19,0;"Y Q PARA ABANDONAR EL PROGRAMA" r0"A"Ʀ"B"Ʀ"C"Ʀ"D"Ʀ"E"Ʀ"Q"114r s="A"470 u="B"700 w="C"138 y="D"850R z="E"950 {="Q"460 =""138 MAC=0:CONT=AC:E=AC:A(NI):H=1NI:A(H)=0:H:5000 !N=1NI:CONT=CONT+1 :A,A$,B$,C$,D$,E$ ""170 21,30;N:0,0;"LA PALABRA INGLESA <<";A$;">>";1,10 ;"SIGNIFICA:";3,2;"A.-";B$;5,2;"B.-";C$;7,2;"C.-";D$;20,0;"APRIETA A,B O C PARA CONTESTAR Y Q SI QUIERES DEJARLO" $"A"Ʀ"B"Ʀ"C"Ʀ"Q"190 ="Q"3106 ҕ="A"A11;12 ,6;" RESPUESTA ERRONEA ":A(N)=1:1,-5:R=1200:R:0;20,0;" ";0;15,6;"INTENTALO DE NUEVO":E=E+1:R=1100d:R:12 ,5;" ";15,3;" "::180 ܕ="B"A21;12 ,6;" RESPUESTA ERRONEA ":A(N)=1:1,-5:R=1200:R:0;20,0;" ";0;15,6;"INTENTALO DE NUEVO":E=E+1:R=1100d:R:12 ,5;" ";15,3;" "::180 ="C"A31;12 ,6;" RESPUESTA ERRONEA ":A(N)=1:1,-5:R=1200:R:0;20,0;" ";0;15,6;"INTENTALO DE NUEVO":E=E+1:R=1100d:R:12 ,5;" ";15,3;" "::180 [="A"A=110 ,10 ;" EXACTO ":.5,25:12 ,0;A$;" QUIERE DECIR ";B$:R=1100d:R:15,5;"TECLAS EN QUE SE USA:";16,0;E$:20,0;"Q PARA DEJARLO; PARA SEGUIR, APRIETA CUALQUIER OTRA TECLA":R=1100d:R:AC=AC+1:=""240:270 Z="B"A=210 ,10 ;" EXACTO ":.5,25:12 ,0;A$;" QUIERE DECIR ";C$:R=1100d:R:15,5;"TECLAS EN QUE SE USA:";16,0;E$:20,0;"Q PARA DEJARLO; PARA SEGUIR, APRIETA CUALQUIER OTRA TECLA":R=1100d:R:AC=AC+1:=""240:270 Z="C"A=310 ,10 ;" EXACTO ":.5,25:12 ,0;A$;" QUIERE DECIR ";D$:R=1100d:R:15,5;"TECLAS EN QUE SE USA:";16,0;E$:20,0;"Q PARA DEJARLO; PARA SEGUIR, APRIETA CUALQUIER OTRA TECLA":R=1100d:R:AC=AC+1:=""240:270 )UL=23556\:UL=81Q3106 =""280 ="Q"3106 "5000+N ,N 6 RESULTADOS @ ""320@ J:RES=E/4:0,9 ;" RESULTADOS ";1;0,9 ;"__________";0;3,3;"PREGUNTAS, ";N;5,3;"ERRORES, ";E TcCONT=NIE=09 ,0;"HAS ACERTADO TODAS LAS PREGUNTAS AL PRIMER INTENTO":1;12 ,12 ;"EXCELENTE!";0;14,0;"MERECES UN POCO DE MUSICA PELO- TILLERA ":R=1150:R:9980&:19,0;"PULSA M PARA VOLVER AL MENU Y CUALQUIER OTRA TECLA PARA DEJARLO":370r Yh((E*100d)/CONT)5E>0CONT209 ,0;"HAS ACERTADO CASI TODAS LAS PRE- GUNTAS AL PRIMER INTENTO":12 ,0;"TE HAS HECHO MERECEDOR DE UNA MUSIQUILLA DE ALABANZA":R=1150:R:9980&:19,0;"PULSA M PARA VOLVER AL MENU Y CUALQUIER OTRA TECLA PARA DEJARLO":370r [e((E*100d)/CONT)5E=0CONT209 ,0;"HAS ACERTADO TODAS LAS PREGUN- TAS AL PRIMER INTENTO":12 ,0;"TE HAS HECHO MERECEDOR DE UNA MUSIQUILLA DE ALABANZA":R=1150:R:9980&:19,0;"PULSA M PARA VOLVER AL MENU Y CUALQUIER OTRA TECLA PARA DEJARLO":370r ^M9 ,0;"PORCENTAJE DE ERRORES:";((E*100d)/N);"%":360h cR=1200:R hE>016,0;"SI QUIERES VER LA LISTA DE LAS PALABRAS QUE NO ACERTASTE A LA PRIMERA, PULSA L; Q PARA DE- JARLO, Y M PARA VOLVER AL MENU" mTE=019,0;"PULSA Q PARA DEJARLO, Y M PARA VOLVER AL MENU" r=""370r |="M"113q ="L"5000:16,0;" ":400 :L=1CONT 8A(L)=15000+(L-1):A,A$,B$,C$,D$,E$ 2A(L)=1A=1A$;"=";B$;"; TECLAS:";E$ 1A(L)=1A=2A$;"=";C$;";TECLAS:";E$ 1A(L)=1A=3A$;"=";D$;";TECLAS:";E$ @L::::;"Q PARA DEJARLO, M PARA VOLVER AL MENU" "M"Ʀ"Q"443 ="M"113q ="Q"460 ):10 ,5;"PUES HASTA OTRA": ֱ:1;0,0;"PALABRAS INGLESAS DEL SPECTRUM":0:F=NI1-1:5000+(F-1):A,A$:10 ;A$:F::;"APRIETA M PARA VOLVER AL MENU" =""473 "M"474 ="M"113q O:1;0,0;" INGLES ";0,11 ;" ESPAOL ":0 G=NI1-1 '5000+(G-1):A,A$,B$,C$,D$ %A=10;A$;11 ;B$ %A=20;A$;11 ;C$ %A=30;A$;11 ;D$ +G:2;"PULSA M PARA VOLVER AL MENU" =""770 "M"775 ="M"113q R:1;0,3;" DICCIONARIO INGLES-ESPAOL ":0;3,0;"PARA VOLVER AL MENU, APRIETA M Y ENTER":"ESCRIBE LA PALABRA INGLESA A TRADUCIR ";Z$:PE=0:Z$="M"113q \:1;10 ,9 ;" PACIENCIA ";0;12 ,2;" EL SPECTRUM ESTA BUSCANDO ";14,9 ;"LA PALABRA ": B=1NI f'5000+(B-1):A,A$,B$,C$,D$ pFZ$=A$A=1:10 ,2;A$;" SIGNIFICA ";B$:PE=1 zFZ$=A$A=2:10 ,2;A$;" SIGNIFICA ";C$:PE=1 FZ$=A$A=3:10 ,2;A$;" SIGNIFICA ";D$:PE=1 ^B:PE=0:10 ,0;"LO SIENTO, ESA PALABRA NO ESTA EN ESTE PROGRAMA" R=1200:R:19,2;"PULSA M PARA VOLVER AL MENU,";20,2;"Y CUALQUIER OTRA TECLA PARA";21,10 ;"REPETIR" =""916 "M"850R ="M"113q :1;0,3;" DICCIONARIO ESPAOL-INGLES ":0;3,0;"PARA VOLVER AL MENU, APRIETA M Y ENTER":"ESCRIBE LA PALABRA ESPAOLA A TRADUCIR ";Z$:PE=0:Z$="M"113q :1;10 ,9 ;" PACIENCIA ";0;12 ,2;" EL SPECTRUM ESTA BUSCANDO ";14,9 ;"LA PALABRA ": B=1NI '5000+(B-1):A,A$,B$,C$,D$ pZ$=B$A=1:8,8;B$;10 ,5;"SE DICE EN INGLES ";12 ,8;A$:PE=1 pZ$=C$A=2:8,8;C$;10 ,5;"SE DICE EN INGLES ";12 ,8;A$:PE=1 p pZ$=D$A=3:8,8;D$;10 ,5;"SE DICE EN INGLES ";12 ,8;A$:PE=1 ^B:PE=0:10 ,0;"LO SIENTO, ESA PALABRA NO ESTA EN ESTE PROGRAMA" R=1200:R:19,2;"PULSA M PARA VOLVER AL MENU,";20,2;"Y CUALQUIER OTRA TECLA PARA";21,10 ;"REPETIR" =""1016 "M"950 ="M"113q 53,"LOAD","GRABAR","TOMAR","CARGAR","LOAD (J)" ;1,"STEP","PASO","ETAPA","SALTO","STEP (D CAMBIADA)" :1,"RUN","CORRER","INTRODUCIR","TERMINAR","RUN (R)" 93,"CLEAR","CERRADO","CLASE","LIMPIAR","CLEAR (X)" 81,"IN","DENTRO","UNO","ENTRE","IN (I EXTENDIDA)" D2,"MERGE","METER","FUNDIR","ADELANTAR","MERGE (T EXTENDIDA)" <3,"OUT","ANTES","DEBAJO","FUERA","OUT (O EXTENDIDA)" .1,"LET","SEA","MAYOR","LADO","LET (L)" C3,"ERASE","CONOCER","SALTAR","BORRAR","ERASE (7 EXTENDIDA)" B3,"THEN","CALCULAR","TENER","ENTONCES","THEN (G CAMBIADA)" B1,"PAPER","PAPEL","PROGRAMA","TEXTO","PAPER (C EXTENDIDA)" 51,"SAVE","GUARDAR","SABER","SOBRE","SAVE (S)" C2,"SUBROUTINE","REPETIR","SUBRUTINA","SOBRANTE","GOSUB (M)" 03,"FOR","DONDE","ANTES","PARA","FOR (F)" 71,"BORDER","BORDE","ANTES","ORDEN","BORDER (B)" D2,"STRING","EXTRAO","CADENA","INTRODUCIR"," (Y EXTENDIDA)" *2,"IF","QUEDAR","SI","ES","IF (U)" =1,"PRINT","IMPRIMIR","SUPRIMIR","PRIMERO","PRINT (P)" F3,"SQUARE","PREGUNTAR","ORIGEN","CUADRADO","SQR (H EXTENDIDA)" 41,"LIST","LISTA","VOLVER","HACER","LIST (K)" >1,"OVER","ENCIMA","ANTES","AHORA","OVER (N EXTENDIDA)" E2,"BRIGHT","ABRIR","BRILLANTE","BREVE","BRIGHT (B EXTENDIDA)" B2,"SCREEN","CREAR","PANTALLA","TERMINAR"," (K EXTENDIDA)" D3,"STOP","CRUCE","SITUACION","DETENCION","STOP (A CAMBIADA)" A3,"INPUT","IMPOSICION","DEFINICION","ENTRADA","INPUT (I)" ;3,"TO","DESDE","AHORA","A, HASTA","TO (F CAMBIADA)" >3,"RETURN","RETARDO","RETRASAR","RETORNO","RETURN (Y)" 73,"RANDOM","RAUDO","VOLVER","AZAR","RANDOM (T)" :2,"COPY","EMPEZAR","COPIAR","ACOMPAAR","COPY (Z)" F2,"INTEGER","INTEGRAR","ENTERO","COMENZAR","INT (R EXRENDIDA)" C2,"BLUE","MOVIMIENTO","AZUL","DEFINIR","BLUE (1 EXTENDIDA)" A3,"TRUE","TRES","TORCER","VERDADERO","TRUE (3 EXTENDIDA)" A2,"LINE","LIMITE","LINEA","COMENZAR","LINE (3 EXTENDIDA)" C1,"OPEN","ABIERTO","OPERACION","PLUMA","OPEN (4 EXTENDIDA)" C2,"EDIT","ABANDONAR","EDITAR","EDUCAR","EDIT (1 EXTENDIDA)" ?2,"DATA","ENTREGA","DATOS","FECHA","DATA (D EXTENDIDA)" @1,"MOVE","MOVIMIENTO","NUEVO","MAS","MOVE (6 EXTENDIDA)" H2,"GREEN","GRABAR","VERDE","NUMERO ENTERO","GREEN (4 EXTENDIDA)" F3,"CYAN","CARGAR","SALTAR","AZUL-VERDOSO","CYAN (5 EXTENDIDA)" B2,"CLOSE","PUERTA","CERRADO","CIFRA","CLOSE (5 EXTENDIDA)" Z3,"CAPITALS","CIFRAS","PRINCIPALES","MAYUSCULAS","CAPS LOCK (2 EXT.) Y CAPS SHIFT" 61,"SPACE","ESPACIO","ANTERIOR","VACIO","SPACE" @3,"INK","DENTRO","PREGUNTAR","TINTA","INK (X EXTENDIDA)" L1,"FORMAT","FORMATO","ADELANTAR","INTRODUCIR","FORMAT (0 EXTENDIDA)" B2,"CODE","ENTREGAR","CODIGO","TORNAR","CODE (I EXTENDIDA)" @1,"BLACK","NEGRO","BLANCO","DEJAR","BLACK (0 EXTENDIDA)" 11,"OR","O","YA","AHORA","OR (U CAMBIADA)" K1,"INVERSE","INVERTIR","VOLVER","INCOMPLETO","INVERSE (M CAMBIADA)" P3,"CONTINUE","INTERMEDIO","CONTIGUO","CONTINUAR","CONTINUE (C CAMBIADA)" C2,"BREAK","EMPEZAR","INTERRUPCION","EJECUTAR","BREAK-SPACE" 22,"NEW","PASO","NUEVO","NOTICIA","NEW (A)" 73,"DRAW","DAR","EJECUTADO","DIBUJAR","DRAW (W)" 61,"PLOT","MARCAR","ANTERIOR","POCO","PLOT (Q)" G1,"SHIFT","CAMBIADO","TECLA","TIRO","CAPS SHIFT Y SYMBOL SHIFT" ;2,"POKE","EMPAQUETAR","HURGAR","CONOCER","POKE (O)" 72,"ENTER","ENTERARSE","ENTRAR","ENTERO","ENTER" @2,"POINT","PUENTE","PUNTO","PODER","POINT (8 EXTENDIDA)" C3,"FLASH","LUZ","BRILLAR","DESTELLAR","FLASH (V EXTENDIDA)" J2,"DELETE","DELEITAR","DESTRUIR","COMENZAR","DELETE (0 EXTENDIDA)" H2,"YELLOW","PUNTUACION","AMARILLO","PEOR","YELLOW (6 EXTENDIDA)" :1,"READ","LEER","ROJO","REAL","READ (A EXTENDIDA)" A2,"WHITE","EXACTO","BLANCO","NEGRO","WHITE (7 EXTENDIDA)" K3,"VERIFY","VERDADERO","VISIBLE","COMPROBAR","VERIFY (R EXTENDIDA)" 71,"RED","ROJO","LEER","RED","RED (2 EXTENDIDA)" C1,"LOCK","LLAVE","LUGAR","CARGAR","CAPS LOCK (2 EXTENDIDA)" 12,"AT","ATAR","EN","IR","AT (I CAMBIADA)" L3,"RESTORE","CAMBIAR","TERMINAR","RESTITUIR","RESTORE (S EXTENDIDA)" >2,"REMARK","REMACHAR","COMENTAR","REINICIAR","REM (E)" ;1,"PEEK","MIRAR","PICAR","POCO","PEEK (O CAMBIADA)" 93,"NEXT","NIDO","COMENZAR","SIGUIENTE","NEXT (N)" @1,"VALUE","VALOR","VALVULA","VOLVER","VAL (J EXTENDIDA)" 72,"GO","NUMERO","IR","LLEGAR","GOTO (G), GOSUB" &"N",00001110 &"N"+1,01000000@ &"N"+2,01100010b &"N"+3,01010010R &"N"+4,01001010J &"N"+5,01000110F &"N"+6,01000010B &"N"+7,00000000 &"C",00000000 &"C"+1,00010000 &"C"+2,00000000 &"C"+3,00010000 &"C"+4,00100000 &"C"+5,01000010B &"C"+6,00111100< &"C"+7,00000000 &"U",00000000 &"U"+1,00010000 &"U"+2,00000000 &"U"+3,00010000 &"U"+4,00010000 &"U"+5,00010000 &"U"+6,00010000 &"U"+7,00000000 & &)b+8,a-11 :0,-16 &)b+9 ,a-11 :0,-16 &*b+12 ,a-11 :0,-19 &*b+13 ,a-11 :0,-19 &*b+16,a-11 :0,-16 &*b+17,a-11 :0,-16 &*b+1,a-20:11 ,-11 &*b+2,a-20:11 ,-11 &*b+1,a-25:11 ,-11 &*b+2,a-25:11 ,-11 &*b+1,a-30:11 ,-11 &*b+2,a-30:11 ,-11 &,b+23,a-20:-10 ,-10 &,b+23,a-21:-10 ,-10 &,b+23,a-25:-10 ,-10 &,b+23,a-26:-10 ,-10 &,b+23,a-30:-10 ,-10 &,b+23,a-31:-10 ,-10 & derecha &)b+24,a-31:0,16 &)b+25,a-31:0,17 &)b+28,a-31:0,20 &)b+29,a-31:0,20 &)b+32 ,a-31:0,17 &)b+33!,a-31:0,16 &*b+18,a-21:10 ,10 &*b+18,a-20:10 ,10 &*b+18,a-16:10 ,10 &*b+18,a-15:10 ,10 &*b+18,a-11 :10 ,10 &*b+18,a-10 :10 ,10 &"b+29,a:11 ,-11 &*b+29,a-1:11 ,-11 &*b+29,a-5:11 ,-11 &*b+29,a-6:11 ,-11 &+b+29,a-10 :11 ,-11 &+b+29,a-11 :11 ,-11 &a=0:b=0 & &TU=.2~L:O=.5:U,2:O,11 :U,11 :U,11 :U,9 :U,11 :U+O,12 :O,11 :15:U,11 :O,9 :U,9 :U,9 :U,7:U,9 :O,11 :U,7:15:A=12:B=030:.0125zL,B:B:C=3020-1:.0125zL,C:C:A: '64000 'p HaIH\onekHIHHELOAD (J)ZHELPALOADBGRABARCTOMARDCARGAR