Listing of file='SCR29.FOR;01' on disk='vmedia/chip_79-sector.ccvf'
( CONQUEST, ENEMY PLANET, LAND ) : ENEMY_PLANET INFO1@ 8 / 0 MESS ." CLASS " 2 .R ." PLANET" 2 MESS ." ENEMY GARRISON OF STRENGTH " INFO2@ 3 .R 4 MESS ." DO YOU WISH TO ATTACK? " KEY 89 = IF CLEAR_MSGE ATTACK ENDIF CLEAR_MSGE ; : LAND FIND_DIRECTION 2DUP X ! Y ! GALAXY C@ CASE U_PL OF EMPTY_PLANET ENDOF E_PL OF ENEMY_PLANET ENDOF MY_PL OF FRIENDLY_PLANET ENDOF 0 MESS ." NO PLANET THERE" SHOW_MSGE ENDCASE ; : .TAX 0 MESS ." TAX COLLECTED = " VTAX @ 5 .R ; -->