Listing of file='SCR28.FOR;01' on disk='vmedia/chip_79-sector.ccvf'
( CONQUEST, ATTACK ) : ATTACK INFO2@ RANDOM1 1 - 5 / 7 + * 10 / DUP TEMP ! 5 F @ > IF 1 MESS ." YOUR FORCES RETREAT, YOUR LOSSES ARE " INFO2@ 5 F @ * TEMP @ / 2 / INFO2@ SWAP - INFO2! 5 F @ 2 / DUP 3 .R 5 @ SWAP - 5 F ! .LSCORE SHOW_MSGE ELSE 0 INFO2! 1 MESS ." PLANET CAPTURED, YOUR LOSSES ARE " TEMP @ 3 .R 5 F @ TEMP @ - 5 F ! MY_PL XY@ GALAXY C! PLANETS INR C_PLANETS DCR INFO1@ 8 / MINUS CLASS_TOTALS +! DRAW_DISPLAY SHOW_MSGE FRIENDLY_PLANET ENDIF ; -->