Compucolor.org – Virtual Media

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

( CONQUEST,  EMBARK )                                                                                                           : .CLASS    CLEAR_MSGE                                                 0 MESS ." PLANET CLASS " INFO1@ 8 / 2 .R                        ." ,  GARRISON = " INFO2@ 3 .R ."  LEGIONS" ;                                                                            : EMBARK   .CLASS                                                     2 MESS ." HOW MANY DO YOU WISH TO LEAVE? "                      INPUT 5 F @ MIN TEMP ! 5 F @ TEMP @ - 5 F !                     INFO2@ TEMP @ + 255 MIN INFO2! .LSCORE ;                                                                                  -->