Listing of file='SCR12.FOR;01' on disk='vmedia/chip_79-sector.ccvf'
( CONQUEST, UTILITIES ) : DELAY 8000 0 DO LOOP ; : XY@ Y @ X @ ; : CLEAR_GALAXY 1 1 GALAXY SIZE SIZE * 0 FILL ; : CLEAR_INFO 1 1 INFO1 SIZE SIZE * 0 FILL 1 1 INFO2 SIZE SIZE * 0 FILL ; : RANDOM1 RAND1 @ 37 * 651 + DUP RAND1 ! ABS SIZE MOD 1+ ; : RANDOM2 RAND2 @ 53 * 773 + DUP RAND2 ! ABS SIZE MOD 1+ ; : ROLL< DUP SIZE > IF SIZE - ENDIF ; : ROLL> DUP 1 < IF SIZE + ENDIF ; : EDGE_CHECK ROLL> ROLL< ; : VHTAB 3 EMIT EMIT EMIT ; : MESS 26 + 16 2DUP VHTAB 11 EMIT VHTAB ; : F FLEET_FLAG @ SWAP FLEETS ; -->