Compucolor.org – Virtual Media

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

( CONQUEST,  SET UP )                                                                                                           : SET_UP_GALAXY                                                      #STARS 0 DO STAR RANDOM1 RANDOM2 GALAXY C! LOOP                 #PLANETS 0 DO RANDOM1 RANDOM2 2DUP U_PL ROT ROT                     GALAXY C! RANDOM1 4 * 8 + ROT ROT INFO1 C! LOOP             #B_HOLES 0 DO B_HOLE RANDOM1 RANDOM2 GALAXY C! LOOP ;                                                                      : INITIALISE1    CR CR                                                ." WHAT LEVEL OF DIFFICULTY (1-4)? " KEY 48 -                   5 MIN 0 MAX DIFF ! CR CR                                      ." DO YOU WANT :  1. SHORT  2. MEDIUM  3. LONG GAME? "         KEY CASE  49 OF 350 LEN ! ENDOF 50 OF 700 LEN ! ENDOF                 1500 LEN ! ENDCASE ;                                   -->