Compucolor.org – Virtual Media

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