|
Hola foro !!
Alguien tiene la idea de como utilizar el codigo de operación TESTB en Free RPG?
Hay una función incorporada para estos menesteres, pero no me sale, lo que hace el programa es lo siguiente:
*-- PARTE ALTA > - = C TESTB '7' ENC(N) 01 C TESTB '6' ENC(N) 02 C TESTB '5' ENC(N) 03 C TESTB '4' ENC(N) 04 *-- PARTE BAJA C TESTB '3' ENC(N) 05 C TESTB '2' ENC(N) 06 C TESTB '1' ENC(N) 07 C TESTB '0' ENC(N) 08 |
Este segmento como podrán apreciar, testea los bits del campo ENC(N) en este caso es un arreglo y se encienden los indicadores respectivos si el test resulta positivo.
Ahora lo que quiero hacer es esto mismo pero en formato FREE RPG !!
Saludos !!
MSN Amor Busca tu ½ naranja __________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
