Compucolor.org – Virtual Media

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