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