Compucolor.org – Virtual Media

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