Compucolor.org – Virtual Media

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

( CONQUEST,  ATTACK )                                                                                                           : ATTACK   INFO2@ RANDOM1 1 - 5 / 7 + * 10 / DUP                   TEMP ! 5 F @ >                                                  IF 1 MESS ." YOUR FORCES RETREAT, YOUR LOSSES ARE "                INFO2@ 5 F @ * TEMP @ / 2 / INFO2@ SWAP                         - INFO2! 5 F @ 2 / DUP 3 .R 5 @ SWAP - 5 F !                    .LSCORE SHOW_MSGE                                            ELSE 0 INFO2!  1 MESS                                             ." PLANET CAPTURED, YOUR LOSSES ARE " TEMP @ 3 .R               5 F @ TEMP @ - 5 F ! MY_PL XY@ GALAXY C! PLANETS INR            C_PLANETS DCR INFO1@ 8 / MINUS CLASS_TOTALS +!                  DRAW_DISPLAY SHOW_MSGE FRIENDLY_PLANET                        ENDIF  ;  -->