Compucolor.org – Virtual Media

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

( CONQUEST,  COLONISE )                                                                                                         : COLONISE   CLEAR_MSGE INFO1@ 8 / RANDOM1 1 - 5 / 7 + *            10 / DUP TEMP ! 5 F @ >                                        IF 1 MESS ." YOUR FORCES RETREAT, YOUR LOSSES ARE "              5 F @ 2 / DUP 3 .R 5 F @ SWAP - 5 F ! .LSCORE SHOW_MSGE        ELSE 1 MESS ." PLANET CAPTURED, YOUR LOSSES ARE "                 TEMP @ 3 .R 5 F @ TEMP @ - 5 F ! PLANETS INR                    MY_PL XY@ GALAXY C! DRAW_DISPLAY FRIENDLY_PLANET              ENDIF ;                                                                                                                      : EMPTY_PLANET   0 MESS ." UNCOLONISED CLASS "                      INFO1@ 8 / 2 .R ."  PLANET"                                     2 MESS ." DO YOU WISH TO ATTACK? " KEY 89 =                     IF COLONISE ENDIF CLEAR_MSGE ;   -->