! INCLUDE file for DROIDS.FOR ! byte BELL , DROID , PLAYER , DEBRIS , DEATH , GONE parameter ( BELL = 7 ) ! The BELL character parameter ( NLINES = 24 ) ! Number of lines on the screen parameter ( NCOLS = 40 ) ! Number of columns on the board parameter ( NDMAX = 100 ) ! Maximum number of droids parameter ( NHEAP = NDMAX/2 ) ! Maximum number of debris heaps parameter ( DROID = 'A' ) ! Displayed characters parameter ( PLAYER = 'X' ) parameter ( DEBRIS = '*' ) parameter ( DEATH = '+' ) parameter ( GONE = ' ' ) integer*2 NDROIDS ! Number of droids left integer*2 XA(NDMAX) , YA(NDMAX) ! Droid positions byte STATE(NDMAX) ! Current status of droids integer*2 NDEBRIS ! Number of debris piles integer*2 XD(NHEAP) , YD(NHEAP) ! Debris positions integer*2 XP , YP ! Position of player common / DROIDS / NDROIDS , XA , YA , STATE , 1 NDEBRIS , XD , YD , XP , YP