Compucolor.org – Virtual Media

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 ;  -->