Compucolor.org – Virtual Media

Listing of file='SCR16.FOR;01' on disk='vmedia/chip_79-sector.ccvf'

( CONQUEST,  SET UP 2 )                                                                                                         : INITIALISE  INITIALISE1 CLRS ." INITIALISING"                      CLEAR_GALAXY CLEAR_INFO SET_UP_GALAXY                         1 FLEET_FLAG !  250 CREDIT !  0 PLANETS !  0 C_PLANETS !        2 #FLEETS ! 20 1 3 FLEETS !  20 2 3 FLEETS !                    50 1 5 FLEETS !  50 2 5 FLEETS !  2 #FLEETS !                  DIFF @ 4 * 0 DO                                                    RANDOM1 RANDOM2 2DUP E_FL ROT ROT GALAXY C!                     15 ROT ROT INFO2 C! LOOP MY_FL 22 18 GALAXY C!                MY_FL 18 22 GALAXY C! 22 1 1 FLEETS C! 18 1 2 FLEETS C!         18 2 1 FLEETS C!    22 2 2 FLEETS C!                            29 3 DIFF @ * - NEW !  15 DIFF @ 4 * * TROOPS !                 20 DIFF @ * C_LEGIONS !  4 DIFF @ * C_FLEETS !                  SPEED DUP COMPUTER ! COMP_START ! 1 BUY_V ! ;                -->