Listing of file='SCR33.FOR;01' on disk='vmedia/chip_79-sector.ccvf'
( CONQUEST, FIRE ) : FIRE 0 X ! 1 F C@ 2 + DUP 3 - DO 2 F C@ 2 + DUP 3 - DO J EDGE_CHECK I EDGE_CHECK GALAXY C@ E_FL = IF I EDGE_CHECK X ! J EDGE_CHECK Y ! ENDIF LOOP LOOP X @ 0= IF 0 MESS ." NO ENEMY IN RANGE" ELSE 3 F @ INFO2@ OVER 4 * 10 / OVER 4 * 10 / DUP 0 MESS ." FLEET HIT BY " 5 .R ." UNITS" ROT ROT - 0 MAX DUP 0= IF DROP INFO2@ MINUS TROOPS +! 0 XY@ GALAXY C! C_FLEETS DCR ELSE INFO2@ OVER - TROOPS @ SWAP - TROOPS ! INFO2! ENDIF - 0 MAX DUP 0= IF DROP NEW_FLEET ELSE 3 F ! ENDIF ENDIF DRAW_DISPLAY SHOW_MSGE ; -->