Listing of file='SCR32.FOR;01' on disk='vmedia/chip_79-sector.ccvf'
( CONQUEST, COMPUTER TURN ) : COMPUTER_TURN NEW DCR NEW @ 0= IF ANOTHER_FLEET ENDIF DIFF @ 0 DO RANDOM1 RANDOM2 2DUP GALAXY C@ CASE U_PL OF 2DUP 2DUP E_PL ROT ROT GALAXY C! C_LEGIONS @ 2 / DUP C_LEGIONS ! ROT ROT INFO2 C! C_PLANETS INR INFO1 C@ 8 / CLASS_TOTALS +! ENDOF MY_PL OF 2DUP X ! Y ! INFO2 C@ C_LEGIONS @ 2 / < IF C_LEGIONS @ 3 / C_LEGIONS ! E_PL XY@ GALAXY C! INFO1@ 8 / CLASS_TOTALS +! C_PLANETS INR PLANETS DCR ENDIF ENDOF DROP DROP ENDCASE LOOP DRAW_FIGURES ; -->