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