ANIMALSLLL by Larry Liedtke is our first place winner in the TS2068 category. The original submission contained 327 different animals with 15 questions being asked about each. This amounted to over 11,000 possible answers.
We’ve shortened the animal list somewhat to only one per category to save space (the original 2040 listing was almost 20 feet long!). But you can easily see how the data is entered for each critter you would like to include.
To clear up any confusion that might result when the listing is printed, below is the text that appears in inverse graphics.
146 NO I DON'T HAVE VISION 148 YES I DO HAVE VISION!! 156 NO I DON'T HAVE HEARING 158 YES I DO HAVE HEARING!! 166 NO I DON'T HAVE A NOSE 168 YES I DO HAVE A NOSE!! 176 NO I DON'T HAVE HANDS 178 YES I DO HAVE HANDS!! 186 NO I DON'T HAVE FEET 188 YES I DO HAVE FEET!! 196 NO I DON'T HAVE A LOT OF HAIR 198 YES I DO HAVE A LOT OF HAIR!! 206 NO I DON'T HAVE FEATHERS 208 YES I DO HAVE FEATHERS!! 216 NO I DON'T HAVE FINS 218 YES I DO HAVE FINS!! 226 NO I DON'T HAVE WINGS 228 YES I DO HAVE WINGS!! 236 NO I DON'T HAVE SCALES 238 YES I DO HAVE SCALES!! 246 NO I DON'T HAVE BIG CLAWS 248 YES I DO HAVE BIG CLAWS!! 256 NO I DON'T HAVE BIG TEETH 258 YES I DO HAVE BIG TEETH!! 266 NO I DON'T HAVE A TAIL 268 YES I DO HAVE A TAIL!! 276 NO I DON'T HAVE A SHELL 278 YES I DO HAVE A SHELL!! 495 BYE SEE YOU LATER 9590 HAVE FUN !! 9600 ENTER 9620 CLUES 9630 NOSES 9640 CLAWS 9670 ENTER
Enter the data for the different animals in program statements randomly from 1005 to 4270. As you can see from the lines in that area in our listing, there isn’t much to it.
1. Randomly select a line number from 1005 to 4270 that is not in use.
2. As the first statement in the line… LET A$=”animal_name”:
3. As the next statement, set up B$ to provide the correct answers to the 15 questions. Each of the questions, Do I have vision, Do I have hearing, etc., are answered by a corresponding Y for yes or N for no in B$.
4. As the next statement in the selected line number, set C$ equal to the letter of the category of the animal, ie., M for mammal, B for bird, etc.
5. Finally place a RETURN statement at the end of the line.
The program selects an animal by randomly generating a number from 1005 to 4270, executing a GOSUB to that number, and setting A$, B$, and C$ accordingly. If the generated line number does not exist, Sinclair BASIC just goes to the next available one that does occur in the listing (something IBM BASIC won’t do!!!).
This is a very loooong listing. The original program was something like 37K long. Tom Woods feels that Larry should get an award just for his diligence and patience typing the thing into his computer. Because of its length, Larry has offered to supply anyone who asks a complete program (all 327 animals included) for only $5 and a blank cassette or disk (AERCO format only). Send to Larry Liedtke, 450 S. Guam St., Ridgecrest, CA 93555.
Program ANIMALSLLL Listing 1
A sampling of animals to put into the data statements. The animal’s NAME goes into A$, the ANSWERS go into B$, and the CLASS code goes into C$ (see lines 500-510 for the proper codes):
AARDVARK ANS=YYYNYNNNNNYNYN ANTEATER ANS=YYYNYYNNNNYNYN BABOON ANS=YYYYYYNNNNYYYN BADGER ANS=YYYNYYNNNNYYYN BANDICOOT ANS=YYYNYYNNNNYYYN BEAVER ANS=YYYNYYNNNNYYYN BIGHORN ANS=YYYNYYNNNNNYYN BISON ANS=YYYNYYNNNNNYYN BEAR ANS=YYYNYYNNNNYYYN CAMEL ANS=YYYNYNNNNNNYYN CAPUCHIN ANS=YYYYYYNNNNNYYN CAPYBARA ANS=YYYNYYNNNNNYYN CARIBOU ANS=YYYNYYNNNNNYYN CAT ANS=YYYNYYNNNNYYYN CHAMOIS ANS=YYYNYYNNNNNYYN CHEETAH ANS=YYYNYYNNNNYYYN CHIMPANZEE ANS=YYYYYYNNNNNYYN
BARNACLE ANS=NNNNNNNNNNNNNY CRAYFISH ANS=YNNNYNNNNNYNYY FAIRY SHRIMP ANS=YNNNNNNNNNNNYY HERMIT CRAB ANS=YNNNYNNNNNYNNN LOBSTER ANS=YNNNYNNNNNYNYY PRAWN ANS=YNNNYNNNNNYNYY ROBBER CRAB ANS=YNNNYNNNNNYNYY SACCULINA ANS=NNNNNNNNNNNNNN SHORE CRAB ANS=YYNNYNNNNNYNNY SHRIMP ANS=YNNNYNNNNNYNYY SLATER ANS=YYNNYNNNNNNNYY SPIDER CRAB ANS=YYNNYNNNNNYNNY SQUAT LOBSTER ANS=YYNNYNNNNNYNYY WOODLOUSE ANS=YYNNYNNNNNNNNY
ABALONE ANS=YNNNNNNNNNNNNY
CLAM ANS=NNNNNNNNNNNNNY
CONCH ANS=YNYNNNNNNNNNNY
CUTTLEFISH ANS=YNNNNNNYNNNNNN
GARDEN SNAIL ANS=YNNNNNNNNNNNYY
LIMPET ANS=YNNNNNNNNNNNNY
MUSSEL ANS=NNNNNNNNNNNNNY
NAUTILUS ANS=YNNNNNNNNNNNNY
NEOPILINA ANS=NNNNNNNNNNNNNY
OCTOPUS ANS=YNNNNNNNNNNNNN
OYSTER ANS=NNNNNNNNNNNNNY
PERIWINKLE ANS=YNNNNNNNNNNNNY
POND SNAIL ANS=YNNNNNNNNNNNNY
PURPLE SEA SNAIL
ANS=YNNNNNNNNNNNNY
RAZOR SHELL ANS=NNNNNNNNNNNNNY
SCALLOP ANS=YNNNNNNNNNNNNY
SEA HARE ANS=YNNNNNNNNNNNYN
SEA SLUG ANS=YNNNNNNNNNNNYN
SHIPWORM ANS=NNNNNNNNNNNNYN
SLUG ANS=YNNNNNNNNNNNYN
SQUID ANS=YNNNNNNNNNNNNN
TOPSHELL ANS=YNNNNNNNNNNNNY
WHELK ANS=YNNNNNNNNNNNNY
