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 / player.com < prev    next >
Text File  |  1990-04-02  |  339b  |  8 lines
  1.     COMMON/PLAYER/WHO,COUNT,LOOP,HYPX,TORX,RANGE,OLDACT,OLDTIM,RESET,
  2.      $    OK,TMP,OLDBUF,NEWBUF,OLDREP,NEWREP,OLDSCR,NEWSCR,OLDCOR,NEWCOR
  3.  
  4.     BYTE OLDSCR(7,8),NEWSCR(7,8),OLDTIM(16),OLDCOR(15),NEWCOR(15)
  5.     BYTE OLDBUF(21,17),NEWBUF(21,17),OLDREP(7,4),NEWREP(7,4),TMP
  6.     INTEGER*2 WHO,LOOP,HYPX,TORX,COUNT(20)
  7.     LOGICAL*1 OK,RANGE,RESET,OLDACT(8)
  8.