Compucolor.org – Virtual Media

Listing of file='SCR34.FOR;01' on disk='vmedia/chip_79-sector.ccvf'

( CONQUEST,  COMMANDS )                                                                                                         : PROMPT  0 MESS ." COMMAND"  ;                                                                                                 : OBEY_COMMAND   BUY_V @ -DUP IF 1 - BUY_V ! ENDIF                     CASE   106 OF MOVE_LEFT   ENDOF                                        105 OF MOVE_RIGHT  ENDOF                                        108 OF MOVE_UP     ENDOF                                         90 OF MOVE_DOWN   ENDOF                                         47 OF OTHER_FLEET ENDOF                                         44 OF LAND        ENDOF                                         52 OF TAX         ENDOF                                         38 OF FIRE        ENDOF                                        112 OF 0 MESS ." HALTED" KEY DROP ENDOF                         107 OF 0 LEN !     ENDOF                                 ENDCASE SP! ; -->