Listing of file='SCR31.FOR;01' on disk='vmedia/chip_79-sector.ccvf'
( CONQUEST, COMPUTER ANOTHER FLEET ) : ANOTHER_FLEET C_FLEETS INR 29 4 DIFF @ * - NEW ! CLASS_TOTALS @ 8 / DUP C_LEGIONS +! DUP TROOPS +! BEGIN RANDOM1 RANDOM2 2DUP GALAXY C@ 0= IF 2DUP E_FL ROT ROT GALAXY C! INFO2 C! 1 ELSE DROP DROP DROP 0 ENDIF UNTIL ; -->