Compucolor.org – Virtual Media

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

( CONQUEST,  ENLIST )                                                                                                           : ENLIST   BUY_V @ 0=                                                IF RANDOM1 8 / INFO1@ 7 / + DUP TEMP !                            0 MESS ." COST PER LEGION =" 3 .R                               INFO1@ 6 / DUP LEG !                                            1 MESS ." NO. OF LEGIONS AVAILABLE = " 3 .R                     3 MESS ." HOW MANY DO YOU REQUIRE? " INPUT -DUP                 IF LEG @ MIN DUP TEMP @ * CREDIT @ >                              IF 3 MESS ." NOT ENOUGH CREDIT" SHOW_MSGE                       ELSE 5 F @ OVER + 5 F ! TEMP @ * CREDIT @ SWAP -                   CREDIT ! .CREDIT .LSCORE 5 BUY_V !                           ENDIF                                                         ENDIF                                                         ELSE 0 MESS ." NO TROOPS AVAILABLE" SHOW_MSGE                   ENDIF  ;  -->