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