C C C ************************************************* C * * C * SUBROUTINE TO START CAPTAIN'S SHIP'S LOG * C * * C ************************************************* C SUBROUTINE LOG(NS) COMMON QUAD(8,8),SECT(10,10),NGAL(8,8),K(7,5),STATUS(13),R1,C1,R,C &,H1,POW,SHLD(5),NTORP,A,B,H(7),N1,N2,N3,N4,N5,N6,II,JJ,RANK,ITR(4) COMMON/MISC1/ICAPV(5),M1,M2,STDATE,IDLN,BEARNG,NCAS(2),CMD,IG2, &NPRS,IBELL COMMON/MISC2/NPROB,L5,L8,GASP,ITASK,SDATE,AFILE(4),CFILE(4),DTLSTH COMMON/SBASE/NBAS,RBAS,CBAS,STBS(5,5),NBASRM,NKDESB,KLATK(5) COMMON/WRDS/COND,KL,RM,GRN,RED,DCKD,DEST(2),DISAB(2),SHIP(16) COMMON/NEWDAT/REGION,RONUM COMMON/PERS/NAME1(16),NPL,NG,AVGTOT,PSWRD,IRNK,NSHP,IUIC(4) DIMENSION NUMS(30) INTEGER SECT,QUAD,R1,C1,R,C,SHLD,H1,A,B,POW,RBAS,CBAS,H,STBS,CMD REAL*8 COND,KL,RM,GRN,RED,DCKD,DEST,DISAB,PSWRD LOGICAL*1 SHIP,REGION(8),IMAGE(72),EE,ENDS,ENDB,NAME1,PRANK(13) DATA NUMS/1728,1700,1701,1705,1706,1729,1707,1730,1703,1711,1731, &1704,1723,1712,1717,1719,1722,1716,1727,1718,1714,1720,1715,1713, &1724,1725,1721,1736,1737,1745/ DATA ENDS,ENDB/1HS,1H / C OPEN(UNIT=1,NAME=CFILE,TYPE='UNKNOWN') REWIND 1 10 ENCODE(72,11,IMAGE,ERR=900) 11 FORMAT(12X,'****** UNITED FEDERATION OF PLANETS ******') CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE 1111 FORMAT(1X,72A1) CALL BLANKS(IMAGE) 20 ENCODE(72,21,IMAGE,ERR=900) 21 FORMAT(20X,'CAPTAIN''S NOTES - SHIP''S LOG') CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 30 ENCODE(72,31,IMAGE,ERR=900) 31 FORMAT(72(1H )) WRITE(1,1111)IMAGE 40 ENCODE(72,41,IMAGE,ERR=900)SHIP 41 FORMAT('STARSHIP',T14,':',2X,16A1) CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) IF(NS.GT.13)GOTO 60 50 ENCODE(72,51,IMAGE,ERR=900) 51 FORMAT('CLASS',T14,':',2X,'MK-IX Constitution Class Heavy Cruiser' &) CALL CROP(IMAGE,72) GOTO 100 60 ENCODE(72,61,IMAGE,ERR=900) 61 FORMAT('CLASS',T14,':',2X,'MK-IXA Bonhomme Richard Class Heavy Cru &iser') CALL CROP(IMAGE,72) 100 WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 70 IF(NS.NE.0)ENCODE(72,71,IMAGE,ERR=900)NUMS(NS) IF(NS.EQ.0)ENCODE(72,71,IMAGE,ERR=900)1371 71 FORMAT('REG. NO.',T14,':',2X,'NCC-',I4) CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) CALL SETRNK(IRNK,PRANK,0) 270 ENCODE(72,271,IMAGE,ERR=900)PRANK,NAME1 271 FORMAT('IN COMMAND',T14,':',2X,13A1,1X,16A1) CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 80 ENCODE(72,81,IMAGE,ERR=900)RANK 81 FORMAT('MISSION RANK',T14,':',F6.0) CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 90 ENCODE(72,91,IMAGE,ERR=900)STDATE 91 FORMAT('STARDATE',T14,':',F8.1) CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 110 ENCODE(72,111,IMAGE,ERR=900)REGION,RONUM,N5 111 FORMAT('MISSION',T14,':',2X,'Assigned to ',8A1,1X,A4,' Region.', &I4,' enemy vessels of') CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 120 ENCODE(72,121,IMAGE,ERR=900) 121 FORMAT(16X'the invading fleet of Klingons and Romulans are to be') CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 130 ENCODE(72,131,IMAGE,ERR=900)IDLN-INT(STDATE),NBAS 131 FORMAT(16X,'destroyed or captured in',I4,' stardates.',I4,' starba &ses') CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 140 ENCODE(72,141,IMAGE,ERR=900) 141 FORMAT(16X,'for resupply and support are located in this region.') CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 150 ENCODE(72,31,IMAGE,ERR=900) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 160 ENCODE(72,161,IMAGE,ERR=900) 161 FORMAT('STARDATE',23X,'REMARKS') CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 170 ENCODE(72,171,IMAGE,ERR=900) 171 FORMAT(8(1H-),2X,62(1H-)) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 180 ENCODE(72,181,IMAGE,ERR=900)STDATE 181 FORMAT(F7.1,T11,'DEPARTED STAR FLEET HEADQUARTERS USING THEIR HYPE &RSPACE') CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 190 ENCODE(72,191,IMAGE,ERR=900)R1,C1 191 FORMAT(10X,'PROJECTOR. ARRIVED IN QUADRANT',I2,',',I2,' WITHOUT IN &CIDENT.') CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) IF(COND.EQ.RED)GOTO 2 200 ENCODE(72,201,IMAGE,ERR=900) 201 FORMAT(10X,'CONDITION: GREEN.') CALL CROP(IMAGE,72) GOTO 240 2 EE=ENDS IF(N2.EQ.1)EE=ENDB 210 ENCODE(72,211,IMAGE,ERR=900)N2,EE 211 FORMAT(10X,'CONDITION: RED.',I3,' KLINGON VESSEL',A1,' PRESENT IN &QUADRANT.') CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 220 ENCODE(72,221,IMAGE,ERR=900) 221 FORMAT(10X'RED ALERT. DEFLECTOR SHIELDS AUTOMATICALLY RAISED') CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 230 ENCODE(72,231,IMAGE,ERR=900) 231 FORMAT(10X,'BY SHIP''S COMPUTER.') CALL CROP(IMAGE,72) 240 WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 250 ENCODE(72,31,IMAGE,ERR=900) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) 260 ENCODE(72,261,IMAGE,ERR=900) 261 FORMAT('.') CALL CROP(IMAGE,72) WRITE(1,1111)IMAGE CALL BLANKS(IMAGE) GOTO 1 900 TYPE 901 901 FORMAT(/1X,'**** ERROR ENCOUNTERED IN LOG ****') 1 CALL CLOSE(1) RETURN END