Compucolor.org – Virtual Media

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