SUBROUTINE ASETP
C** ADVANCED SETUP
        COMMON /DAMAGS/IRPARS(10,2),IRAND,IRATE,IDMGD,TSTRT,GTIME
        COMMON /RMULN/IRMLN,IRMX,IRMY,IHTMS
C** DEFAULT STANDARD GAME
        IRMLN = 0
        IHTMS = 0
        IRMX = 0
        IRMY = 0
C** CHECK FOR ADVANCED GAME
        TYPE 1001
 1001   FORMAT($,' DO YOU WANT TO PLAY ADVANCED GAME> ')
        ACCEPT 1002,OPTION
 1002   FORMAT(A4)
        IF(OPTION .EQ. 'NO')GO TO 999
C** PLACE ROMULN AT RANDOM
        IRMX = RANDOM(IRAND)*64.0 + 1.0
        IRMY = RANDOM(IRAND)*64.0 + 1.0
        IRMLN = 1
 999    RETURN
        END