Listing of file='SCR18.FOR;01' on disk='vmedia/chip_79-sector.ccvf'
( CONQUEST, INPUT DIRECTION ) : FIND_DIRECTION CLEAR_MSGE 1 MESS ." WHICH DIRECTION? " KEY CASE 28 OF 1 0 ENDOF 10 OF -1 0 ENDOF 25 OF 0 1 ENDOF 26 OF 0 -1 ENDOF 0 0 ENDCASE CLEAR_MSGE 2 F C@ + EDGE_CHECK SWAP 1 F C@ + EDGE_CHECK SWAP ; : FLEET! 1 F C@ 2 F C@ GALAXY C! ; -->