Category : Science and Education
Archive   : BIOMRF.ZIP
Filename : SELECT.INC

Output of file : SELECT.INC contained in archive : BIOMRF.ZIP
' Subroutine CHOOSE
' This routine is called once the user has seen the biomorphs. The selection
' is done by number and this takes care of the reorganisation of the data.

SUB CHOOSE(biomorphs%(2),popn%)

local reply$,choice%,count1%,count2%

locate 1,1
print" "
locate 1,1
input"Please enter the number of the biomorph you want ";choice%
loop until choice% <= popn%

if choice% = 0 then
biomorphs%(1,1) = 0
for count1% = 1 to 16
for count2% = 1 to 8
biomorphs%(count1%,count2%) = biomorphs%(choice%,count2%)
next count2%
next count1%
end if

end sub

  3 Responses to “Category : Science and Education
Archive   : BIOMRF.ZIP
Filename : SELECT.INC

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: