SUBROUTINE RESET (SC,R,IDMGE,OBUFF,SBUFF,IPRM,WHO) C C RESET COMMAND FOR PLAYER C REAL SC(15),R(9) INTEGER WHO,IDMGE(8) COMMON /REF/ IL,INI(8) LOGICAL*1 INI C C CALL RBUFF(OBUFF) DO 10130 I=1,15 SC(I)=-9999. IF (I.LE.8) INI(I) = ' ' IF (I.LE.9) R(I)=-9999. IF (I.LE.8) IDMGE(I)=-9999. 10130 CONTINUE IL = -9999. CALL REFRSH(SC,R,IDMGE,WHO,SBUFF,IPRM) RETURN END