# # THIS SUBROUTINE SHOULD START UP THE MTREK DRIVER ROUTINE, MTREKD. # IT COULD BE STARTED MANUALLY IF YOU WISH; OTHERWISE, FIGURE # OUT A WAY TO DO IT ON YOUR SYSTEM, MAKING SURE THAT ONLY # ONE VERSION CAN RUN AT A TIME. # # NOTE THAT MTREKD STOPS ITSELF AUTOMATICALLY ABOUT 30 SECONDS AFTER # EVERYONE QUITS PLAYING. # # THIS CODE IS SPECIFIC TO ICR. # DEFINE(ICR,# ICR ONLY) SUBROUTINE RUNMTR ICR INTEGER IOP(4) ICR INTEGER*4 RUNTSK ICR DATA RUNTSK/6R...RUN/ ICR CALL SPWNNL(RUNTSK,IOP,'RUN MTR/TI=TT0',14,IDS) RETURN END