grom >e000
          aorg >0022
e022 da   clog  >55, @>6000          
e023 8f                              
e024 dd                              
e025 00                              
e026 55                              
e027 60   bs    >e0c6                
e028 c6                              
e029 bc   st    @>6001, @>8300       
e02a 00                              
e02b 8f                              
e02c dd                              
e02d 01                              
e02e b2   and   >0f, @>8300          
e02f 00                              
e030 0f                              
e031 60   bs    >e097                
e032 97                              
e033 07   all   >20                  
e034 20                              
e035 bf   dst   >0900, @>834a        
e036 4a                              
e037 09                              
e038 00                              
e039 06   call  >0016                
e03a 00                              
e03b 16                              
e03c 86   clr   @>8301               
e03d 01                              
e03e d6   ceq   >00, @>8301          
e03f 01                              
e040 00                              
e041 08   fmt                        
e042 fe   row   >0c                  
e043 0c                              
e044 ff   col   >07                  
e045 07                              
e046 11   htext 'NUMBER OF PLAYERS?' 
e047 4e                              
e048 55                              
e049 4d                              
e04a 42                              
e04b 45                              
e04c 52                              
e04d 20                              
e04e 4f                              
e04f 46                              
e050 20                              
e051 50                              
e052 4c                              
e053 41                              
e054 59                              
e055 45                              
e056 52                              
e057 53                              
e058 3f                              
e059 fb   fend                       
e05a a2   add   >30, @>8300          
e05b 00                              
e05c 30                              
e05d bf   dst   >00ff, @>8302        
e05e 02                              
e05f 00                              
e060 ff                              
e061 93   ddec  @>8302               
e062 02                              
e063 40   br    >e061                
e064 61                              
e065 03   scan                       
e066 40   br    >e05d                
e067 5d                              
e068 bc   st    @key, @>8301         
e069 01                              
e06a 75                              
e06b d6   ceq   >ff, @>8301          
e06c 01                              
e06d ff                              
e06e 60   bs    >e05d                
e06f 5d                              
e070 d0   cge   @>8301, @>8300       
e071 00                              
e072 01                              
e073 60   bs    >e07b                
e074 7b                              
e075 06   call  >0036                
e076 00                              
e077 36                              
e078 05   b     >e05d                
e079 e0                              
e07a 5d                              
e07b d2   cge   >31, @>8301          
e07c 01                              
e07d 31                              
e07e 60   bs    >e083                
e07f 83                              
e080 05   b     >e075                
e081 e0                              
e082 75                              
e083 08   fmt                        
e084 81   col+  >02                  
e085 e1   hmove >02, @>8301          
e086 01                              
e087 fb   fend                       
e088 a6   sub   >30, @>8301          
e089 01                              
e08a 30                              
e08b bc   st    @>8301, @>8312       
e08c 12                              
e08d 01                              
e08e 06   call  >0034                
e08f 00                              
e090 34                              
e091 d6   ceq   >00, @>83ce          
e092 80                              
e093 ce                              
e094 00                              
e095 40   br    >e091                
e096 91                              
e097 31   move  >0012, g@>e0a0, @>8300 
e098 00                              
e099 12                              
e09a 00                              
e09b e0                              
e09c a0                              
e09d 05   b     >e0bc                
e09e e0                              
e09f bc                              
e0a0 83   dneg  @>8302               
e0a1 02                              
e0a2 02   rand  >e0                  
e0a3 e0                              
e0a4 83   dneg  @>8300               
e0a5 00                              
e0a6 c0   ex    @>8360, @>8320       
e0a7 20                              
e0a8 60                              
e0a9 02   rand  >d4                  
e0aa d4                              
e0ab 20   move  @>8612, g@>6002, g@>0420 
e0ac 83                              
e0ad 12                              
e0ae 04                              
e0af 20                              
e0b0 60                              
e0b1 02                              
e0b2 94   inct  @substk              
e0b3 73                              
e0b4 bf   dst   >e0bc, *substk       
e0b5 90                              
e0b6 73                              
e0b7 e0                              
e0b8 bc                              
e0b9 94   inct  @substk              
e0ba 73                              
e0bb 01   rtnc                       
e0bc 0f   xml   >f0                  
e0bd f0                              
e0be 05   b     >e0b2                
e0bf e0                              
e0c0 b2                              
e0c1 06   call  >e0c5                
e0c2 e0                              
e0c3 c5                              
e0c4 00   rtn                        
e0c5 01   rtnc                       
e0c6 0b   exit