Listing of file='SCR21.FOR;01' on disk='vmedia/chip_79-sector.ccvf'
( CONQUEST, MOVE FLEET ) : NEW_FLEET 0 FLEET! 0 3 F ! 0 5 F ! #FLEETS DCR DRAW_DISPLAY ; : MOVE_FLEET 2DUP 0 FLEET! MY_FL ROT ROT GALAXY C! 2 F C! 1 F C! DRAW_SCAN .XY ; : CHECK_POSITION EDGE_CHECK SWAP EDGE_CHECK SWAP 2DUP GALAXY C@ CASE 0 OF MOVE_FLEET ENDOF B_HOLE OF 0 MESS ." FLEET IN BLACK HOLE" MOVE_FLEET NEW_FLEET SHOW_MSGE ENDOF DROP DROP ENDCASE ; -->