Listing of file='SCR24.FOR;01' on disk='vmedia/chip_79-sector.ccvf'
( CONQUEST, BUY ) : BUY BUY_V @ 0= IF RANDOM1 5 / INFO1@ 10 / + 1+ DUP TEMP ! 0 MESS ." COST PER SHIP = " 2 .R 2 MESS ." HOW MANY DO YOU WANT? " INPUT -DUP IF CREDIT @ TEMP @ / MIN DUP 3 F @ + 3 F ! TEMP @ * CREDIT @ SWAP - CREDIT ! .CREDIT MY_FL FLEET! .SCORE .SHIPS 5 BUY_V ! ENDIF ELSE 0 MESS ." NO SHIPS AVAILABLE" SHOW_MSGE ENDIF ; : GATHER 0 MESS ." HOW MANY DO YOU WISH TO TAKE? " INPUT INFO2@ MIN TEMP ! 5 F @ TEMP @ + 5 F ! INFO2@ TEMP @ - INFO2! .LSCORE ; -->