Listing of file='SCR35.FOR;01' on disk='vmedia/chip_79-sector.ccvf'
( CONQUEST, PROGRAM ) : RESTART CLRS DRAW_BORDERS DRAW_DISPLAY BEGIN 33252 C@ -DUP IF OBEY_COMMAND LEN DCR .LEN COMPUTER_TURN PROMPT ENDIF COMPUTER DCR COMPUTER @ 0= IF COMPUTER_TURN COMP_START @ COMPUTER ! ENDIF LEN @ 1 < #FLEETS @ 0= OR C_FLEETS @ 0= OR UNTIL 1 MESS ." GAME OVER" CR CR ; : CONQUEST 33209 C@ RAND1 ! 33210 C@ RAND2 ! CLRS CR CR ." WELCOME TO COSMIC CONQUEST" INITIALISE RESTART ; ;S