SUBROUTINE SYSPAR (IU) C C DISPLAY THE GAME PARAMETERS FOR MTREK (TRDEMO) C INCLUDE 'TRKCOMMON.FTN' REAL LAUNCH INTEGER SCAN,WHOM,CREW,HYPER,TORPS BYTE DISLIN(50) LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE,FIRST BYTE MESSAG,INITLS,CHAR,VT100(5),BACK(2) DATA VT100/"33,'[','?','2','l'/, BACK/"33,'<'/ CHARACTER TOPLIN*25,LINE2*56,LINE3*66 CHARACTER LINE4*25,LINE5*19,LINE6*25,LINE7*25 C BYTE REV(8),REG(3),TOP(10),BOT(11) DATA TOP/"33,'[','0',';','0','H',"33,'[','0','J'/ DATA REV/"33,'[','7','m',"33,'[','1','m'/, REG/"33,'[','m'/ DATA BOT/"33,'[','2','3',';','1','H',"33,'[','0','J'/ C DATA TOPLIN(1:25)/' MTREK PARAMETER DISPLAY '/ DATA LINE2(1:25)/' STARBASES '/ DATA LINE2(26:56)/' WEAPONS'/ DATA LINE3(1:25)/'-------------------------'/ DATA LINE3(26:66)/' ----------------------------'/ DATA LINE4(1:25)/'-------------------------'/ DATA LINE5(1:19)/' BLACK HOLES'/ DATA LINE6(1:25)/'HOLE SPEED LOCATION'/ DATA LINE7(1:25)/'---- ----- --------'/ C C CALL GETCHR FIRST = .TRUE. WRITE (5,10000) TOP,REV,TOPLIN,REG,VT100 10000 FORMAT (' ',10A1,22X,8A1,A25,8A1) WRITE (5,10001) LINE2,LINE3,LINE4,LINE5,LINE6,LINE7 10001 FORMAT (//,' ',A56,/,' ',A66,/////,' ',A25,//,A19,2(/,' ',A25)) C ENCODE (23,10002,DISLIN) RCNTRL(1) 10002 FORMAT ('INITIAL ENERGY : ',F6.0) CALL CURWRT(7,1,DISLIN,23,5) C ENCODE (19,10003,DISLIN) ICNTRL(1) 10003 FORMAT ('INITIAL NUMBER : ',I2) CALL CURWRT(8,1,DISLIN,19,5) C 10100 DO 10004 J=1,IHOLE(IU) ENCODE (24,10005,DISLIN) J,HWARP(IU,J),INT(HX(IU,J)),INT(HY(IU,J)) 10005 FORMAT (X,I1,5X,F4.2,6X,I3,',',I3) CALL POSITN(J+13,1) WRITE (5,20701) (DISLIN(K),K=1,24) 20701 FORMAT (' ',24A1) 10004 CONTINUE IF (.NOT.FIRST) GOTO 10013 C ENCODE (23,10006,DISLIN) ICNTRL(4) 10006 FORMAT ('HOMER ALLOCATION : ',I2) CALL CURWRT(6,41,DISLIN,23,5) C ENCODE (23,10007,DISLIN) ICNTRL(5) 10007 FORMAT ('TORPEDO ALLOCATION : ',I2) CALL CURWRT(7,41,DISLIN,23,5) C ENCODE (23,10008,DISLIN) ICNTRL(6) 10008 FORMAT ('ANTI-MATTER PODS : ',I2) CALL CURWRT(8,41,DISLIN,23,5) C ENCODE (23,10009,DISLIN) ICNTRL(3) 10009 FORMAT ('MAX ACTIVE HOMERS : ',I2) CALL CURWRT(9,41,DISLIN,23,5) C ENCODE (23,10010,DISLIN) ICNTRL(7) 10010 FORMAT ('REPAIR FREQUENCY : ',I2) CALL CURWRT(11,41,DISLIN,23,5) C ENCODE (23,10011,DISLIN) INT(RCNTRL(8)) 10011 FORMAT ('CLOAKING DRAIN : ',I3) CALL CURWRT(12,41,DISLIN,23,5) C ENCODE (23,10012,DISLIN) INT(RCNTRL(7)) 10012 FORMAT ('HOMING DRAIN : ',I3) CALL CURWRT(13,41,DISLIN,23,5) C ENCODE (23,20000,DISLIN) ICNTRL(2) 20000 FORMAT ('TRACT DRAIN : ',I3) CALL CURWRT(14,41,DISLIN,23,5) C ENCODE (23,20001,DISLIN) IMAXX 20001 FORMAT ('MAXIMUM X : ',I3) CALL CURWRT(15,41,DISLIN,23,5) C ENCODE (23,20002,DISLIN) IMAXY 20002 FORMAT ('MAXIMUM Y : ',I3) CALL CURWRT(16,41,DISLIN,23,5) C 10013 FIRST = .FALSE. CALL WAIT (2,2,M) CALL INCHR(ICHAR) IF (ICHAR.EQ.0) GOTO 10100 WRITE (5,10014) BACK 10014 FORMAT (' ',2A1) CALL WTQIO ("2000,5,1) RETURN END