home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / biomrf.zip / SELECT.INC < prev    next >
Text File  |  1988-05-13  |  683b  |  29 lines
  1. ' Subroutine CHOOSE
  2. ' This routine is called once the user has seen the biomorphs. The selection
  3. ' is done by number and this takes care of the reorganisation of the data.
  4.  
  5. SUB CHOOSE(biomorphs%(2),popn%)
  6.  
  7. local reply$,choice%,count1%,count2%
  8.  
  9.     do
  10.         locate 1,1
  11.         print"                                                                 "
  12.         locate 1,1
  13.         input"Please enter the number of the biomorph you want ";choice%
  14.         loop until choice% <= popn%
  15.  
  16. if choice% = 0 then
  17.     biomorphs%(1,1) = 0
  18. else
  19.     for count1% = 1 to 16
  20.         for  count2% = 1 to 8
  21.             biomorphs%(count1%,count2%) = biomorphs%(choice%,count2%)
  22.         next count2%
  23.     next count1%
  24. end if
  25.  
  26. end sub
  27.  
  28.  
  29.