; @label:$8FEA=RUNDY
C $8FEA loop calling RANDY until A holds a value between 2 and 40 inclusive
C $8FFA copy value of A into CURSP
C $8FFD call GETHIS
C $9000 point HL at HISPEL
C $9003 move HL along two bytes
C $9005 load B with $13 as loop counter