C C SHARED GLOBAL COMMON BLOCK FOR MULTITREK C INCLUDE 'TRKCOMMON.FTN' REAL LAUNCH INTEGER SCAN,WHOM,CREW,HYPER,TORPS LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE BYTE MESSAG,INITLS C C CALL ATTUNI(I) DO 100 I=1,8 TYPE *,PAUS(I) PAUS(I)=.FALSE. 100 CONTINUE 32000 STOP END