( RANDOM # WITHOUT REPLACEMENT )                                XC? NOT IFTRUE ;S IFEND                                         HEX F= lur                                                      CODE URND <ASSEMBLE H POP, D POP, B PUSH,                       M A MOV, E CMP, 0<>, IF, E M MOV,                               LABEL lur H PUSH, M C MOV, H INX, 0 M MVI, H INX,               C A MOV, RRC, RRC, RRC, 1F ANI, A B MOV, C A MOV, 7 ANI,        0<>, IF, B INR, THEN,                                           BEGIN, 0 M MVI, H INX, LOOP, H POP,                             THEN, H INX, M A MOV, H DCX, M CMP, lur JRNC,                   M E MOV, 0 D MVI, H PUSH,                                       rnd CALL, L C MOV, ( C= CAND ) H POP, ( HL= TBL ) A XRA, EXAF,  -->                                                                                                                                                                                                                                                             ( MORE NIFTY RND WITHOUT REPLACEMENT )                          BEGIN, C A MOV, RRC, RRC, RRC, 1F ANI, 2 ADI, A E MOV, 0 D MVI, C A MOV, 7 ANI, BIT^ CALL, A B MOV, H PUSH, D DAD, M A MOV,     B ANA, 0<>, WHILE, H POP, EXAF, A INR, 0=, IF,                  lur JMPR, THEN, EXAF,                                           C A MOV, A INR, M CMP, 0=, IF,                                  A XRA, THEN, A C MOV, REPEAT,                                   M A MOV, B ORA, A M MOV,                                        H POP, H INX, M INR, C L MOV, 0 H MVI,                          B POP, H PUSH, NEXT ASSEMBLE>                                   DECIMAL -->                                                                                                                                                                                                                                                                                                                                                                                     --> ( NEW INVERTOR )                                            HEX                                                             SUBR INVER INVERT LDA, A ANA, RZ,                               D A MOV, CMA, A D MOV, E A MOV, CMA, A E MOV,                   D INX, H A MOV, CMA, A H MOV, L A MOV, CMA, A L MOV,            H INX, C A MOV, 0C0 XRI, A C MOV, RET,                          DECIMAL -->                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     