home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.lbl.gov / 2014.05.ftp.ee.lbl.gov.tar / ftp.ee.lbl.gov / mtrek.shar.Z / mtrek.shar / bredraw.ftn < prev    next >
Text File  |  1990-04-02  |  2KB  |  99 lines
  1.     SUBROUTINE REDRAW
  2. C
  3. C    Redraw screen and init arrays
  4. C
  5. C    The array screen is used to make the short range scan
  6. C    draw from the middle to the top and bottom.
  7. C
  8.     INCLUDE 'LEDFOR.COM/-LI'
  9.     INCLUDE 'PLAYER.COM/-LI'
  10.     INCLUDE 'BUFFER.COM/-LI'
  11.     INTEGER*2 SCREEN(17)
  12.     DATA SCREEN/09,08,10,07,11,06,12,05,13,04,14,03,15,02,16,01,17/
  13.  
  14.     CALL CLEAR
  15.  
  16.     CALL WRITE(1,6,'Coordinates')
  17.     CALL WRITE(2,4,NEWCOR,15)
  18.  
  19.     CALL WRITE(4,3,'Heading :')
  20.     CALL FILL(NEWREP(1,1),7)
  21.  
  22.     CALL WRITE(5,6,'Warp :')
  23.     CALL FILL(NEWREP(1,2),7)
  24.  
  25.     CALL WRITE(6,4,'Energy :')
  26.     CALL FILL(NEWREP(1,3),7)
  27.  
  28.     CALL WRITE(7,3,'Shields :')
  29.     CALL FILL(NEWREP(1,4),7)
  30.  
  31.     CALL WRITE(8,1,'Hyper Set :  ')
  32.     CALL NUMBER(HYPX)
  33.  
  34.     CALL WRITE(9,1,'Torpedoes :  ')
  35.     CALL NUMBER(TORX)
  36.  
  37.     CALL WRITE(14,1,TIM,15)
  38.     CALL FILL(' ')
  39.     CALL FILL(TIM(16),1)
  40.     CALL FILL('m')
  41.  
  42.     CALL WRITE(5,67,'Ship   Score')
  43.  
  44.     DO 10080 IY=1,8
  45.     CALL WRITE(IY+5,68,IY+"60)
  46.     IF(ALIVE(IY))CALL FILL('*')
  47.     CALL WRITE(IY+5,72,NEWSCR(1,IY),7)
  48. 10080    CONTINUE
  49.  
  50.     DO 10005 IY=1,17
  51.     DO 10004 IX=1,21
  52.     IBUF(2*IX-1)=NEWBUF(IX,SCREEN(IY))
  53.     IBUF(2*IX)=' '
  54. 10004    CONTINUE
  55.     CALL WRITE(SCREEN(IY),24,IBUF,41)
  56. 10005    CONTINUE
  57.  
  58. C
  59. C    Set new to old
  60. C
  61.     CALL BANINT        ! Robot time...
  62.     DO 10021 IX=1,21
  63.     DO 10020 IY=1,17
  64.     OLDBUF(IX,IY)=NEWBUF(IX,IY)
  65. 10020    CONTINUE
  66. 10021    CONTINUE
  67.  
  68.     DO 10031 IX=1,7
  69.     DO 10030 IY=1,6
  70.     OLDREP(IX,IY)=NEWREP(IX,IY)
  71. 10030    CONTINUE
  72. 10031    CONTINUE
  73.  
  74.     DO 10041 IY=1,8
  75.     DO 10040 IX=1,7
  76.     OLDSCR(IX,IY)=NEWSCR(IX,IY)
  77. 10040    CONTINUE
  78.     OLDACT(IY)=ALIVE(IY)
  79. 10041    CONTINUE
  80.  
  81.     DO 10100 I=1,15
  82.     OLDCOR(I)=NEWCOR(I)
  83. 10100    CONTINUE
  84.  
  85.     DO 10097 I=1,16
  86.     OLDTIM(I)=TIM(I)
  87. 10097    CONTINUE
  88.  
  89.     DO 10001 I=1,20
  90.     COUNT(I)=-1
  91. 10001    CONTINUE
  92.  
  93.     LOOP=-1
  94.     HYPX=HYPER(WHO)
  95.     TORX=TORPS(WHO)
  96.     RESET=.FALSE.
  97.     RETURN
  98.     END
  99.