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