Compucolor.org – Virtual Media

Listing of file='SCR11.FOR;01' on disk='vmedia/chip_79-sector.ccvf'

( CONQUEST,  DEFINITIONS )                                                                                                      : ARRAY   <BUILDS DUP C, * ALLOT DOES>                                    ROT 1 - OVER C@ * + + ;                                                                                               SIZE SIZE ARRAY GALAXY  2 6 ARRAY FLEETS                        SIZE SIZE ARRAY INFO1   SIZE SIZE ARRAY INFO2                                                                                   : CASE   ?COMP CSP @ !CSP 4 ; IMMEDIATE                         : OF     4 ?PAIRS COMPILE OVER COMPILE = COMPILE 0BRANCH                 HERE 0 , COMPILE DROP 5 ; IMMEDIATE                    : ENDOF     5 ?PAIRS COMPILE BRANCH HERE 0 , SWAP 2                         [COMPILE] ENDIF 4 ; IMMEDIATE                       : ENDCASE   4 ?PAIRS COMPILE DROP BEGIN SP@ CSP @ = 0=                  WHILE 2 [COMPILE] ENDIF REPEAT CSP ! ; IMMEDIATE        -->