NSSE3  GUESS  GUESSMOD  GES.RULS ANIMAL ( COUNTRY A DISEASE _ TREKITEM} GUESSREM GSMODREM          A$30), B$31), C$30)  I1 6\ \ I > 19),"THE GUESSING GAME."\ 19),"BY LARRY G. KAVERT" ( I1 9\ \ I 2 "CARE FOR THE RULES? ",A$ < A$"YES" x F #1,"GES.RULS" P 1)1) x,Z,x Z #1,A$,C$ d A$,C$ n P x \ #1  "CATEGORY: ",F7$ # "ARE YOU THINKING OF A ",F7$ C$  C$"YES" X #0,F7$  #0,L1\ P11  WP11)425 ( A$" "  #0%W,A$1,30),B1,B2  B10 "IS IT ",  A$\ G$  G$"YES"   G$"NO" ,  G$"EXIT" N   B20 N " P1B2\ , B10 @ 6 P1B1\ (@ C$" " *J "THE ",F7$," YOU WERE THINKING OF", T " WAS"\ C$1,30) ^ C$1,4)"EXIT" N "h "PLEASE TYPE IN A QUESTION" #r "THAT WOULD DISTINGUISH ",C$ | "FROM ",A$  B$  B$"EXIT" N  B$)31  * "QUESTION TOO LONG. PLEASE RETYPE."    "THE ANSWER FOR ",C$ + B$B$" "  "WOULD BE"\ G$  G$"YES"   G$"NO"   G$"EXIT" N   B1L1\ B2L11\   B2L1\ B1L11  #0%W,B$1,30),B1,B2,  #0%W,B$1,30),B1,B2, & WL11)425 0 #0%W,A$1,30),0,0, : #0%W42,C$1,30),0,0 D L1L12\ #0%0,L1, N #0\ X A WALRUS Z NOSRAM. HAVE FUN!!  A$31), S50), X1)  WP9)P91)425)  W2P9)P91)4237) ( I1 10 \\ I 62 20),"MODIFIES, OR INITIALIZES ANY GUESS FILE" < I1 8\ \ I %F "FILE TO BE OPERATED ON: ",F7$ >P "OPTIONS ARE MODIFY(1), MOVE(2), DELETE(3), SEED(4) ",A1 Z A14 A11  d #0,F7$ n A14 ;x \"PLEASE ENTER ONE ANSWER FOR YOUR CATEGORY OF ",F7$ . "(EG. FOR 'ANIMAL' I ENTERED 'A TIGER')"  "ANSWER IS: ",A$  A$)31 . "STRING TOO LONG (30 CHAR. MAX)"\ + A$A$" "  #0%0,2,A$1,30),0,0,  #0%0,L1  A11 4 #0 P # THIS SUBRINE DEES BRANCHES % "STARTING NODE OF BRANCH: ",D1  D1L1 D10 "  "INCORRECT NODE NUMBER"  9" "SIDE TO BE ",\ A13 "DELETED ", "MOVED ", ), "(FALSE/LEFT=0,TRUE/RIGHT=1): ",I1 6 I11 I10 " @ I11 J10 J11 J N1D1 T  ^ P10 h #0%W2D1),X1),X0) r B1D1 B1XI1) | B2D1 B2XI1)  #0%W2P1),B1,B2,  A13     & S0)0\#0%W2D1),XI11)),0,  #0%W2D1),X0),X1)  X1)0   S0)S0)1\ SS0))D1  D1X1)\   X0)0   S0)S0)1\ SS0))D1  #0%W2D1),0,0,  D1X0)\   D1L11 D  #0%WL11),A$,X0),X1)  #0%WD1),A$,X0),X1), & N1L11\  0 B1N1 B1D1 B2D1 : #0%W2P1),B1,B2, D L1L11 N S0)0 l 'X D1SS0))\ #0%W2D1),X0),X1) b S0)S0)1\  l #0%0,L1, v % THIS SUB. FINDS P1 POING N1  P11  #0%W2P1),B1,B2  B1N1 B2N1  P1L11)   P1P11\   P10\ 6 "NODE ",D1," TO BE PLACED BEFORE NODE: ",\ N1  N1L1   "INCORRECT NODE"\     P10   B1N1 B1D1  B2N1 B2D1   #0%W2P1),B1,B2,  XI1)N1   #0%W2D1),X1),X0), * "4 "NODE TO BE INSPECTED: ",D1 > D11 H D1L1 \ %R "NODE BOUNDRY EXCEEDED"\ 4 \ #0%WD1),A$,B1,B2 f D1,": ",A$,B1,B2 p "CHANGE? ",A$ z A$"YES"   A$"" 4  ( A$" "  "STRING: ",A$  A$)31  / "STRING TOO LONG (30 CHAR. MAX):GOTO 890 + A$A$" " ! "NUM1: ",B1\ "NUM2: ",B2 ! #0%WD1),A$1,30),B1,B2,  4  Ov\RBR]THE COLOR YELLOW  THE GUESSING GAME  WRITTEN BY LARRY G. KAVERT    IN THIS GAME YOU PICK A CATAGORY (ANIMAL, COUNTRY, ETC.) AND THINK OF AN ITEM IN THAT CATAGORY. THE COMPUTER ASKS YOU QUESTIONS AND TRYS TO GUESS THE ITEM.  IF IT GUESSES WRONG, IT ASKS YOU FOR THE CORRECT ANSWER AND FOR A QUESTION TO DISTINGUISH ITS ANSWER FROM YOURS (TRY TO MAKE IT A GENERAL QUESTION). IT RECORDS THIS INFO- RMATION, THUS GROWING SMARTER WITH EACH MISTAKE.  IF YOU ARE UNSURE OF AN ANSWER, OR HAVE MADE A MISTAKE, TYPING "EXIT" WILL RESET THE PROGRAM. HAVE FUN!! T A CANINE BBIS IT A NATIVE OF N. AMERICA BBA BAT IS IT DOMESTICATED `CpCDOES IT HAVE TUSKS yBBIS IT THE LARGEST MAMMAL `CpCIS IT D#`CIS IT A MAMMAL A!BIS IT A BIRD #B"BA CENTIPEDE DOES IT LIVE IN A COLONY CCDOES IT MAKE A PEARL `AAA CLAM A TOAD AN OYSTER A FROG DOES IT POLLUTE C CAN EEL DOES IT LAY ITS EGGS IN WATER PBIBDOES IT SING !`C!pCDOES IS SPAWN ON THE BEACH @CPCA SHARK DOES IT HAVE A TAPERED TAIL BUBA SEA HORSE A CATERPILLAR DOES IT HAVE A SHELL C CA SEAGULL DOES IT RARELY EAT PLANTS uBtBIS IT A BIRD OF PREY $B%BIS IT A REPTILE 'B&BIS IT A SCAVENGER 8BBBIS IT USED FOR HUNTING cBbBDOES IT HAVE LEGS (B)BIS IT A BUG SB2BA SNAKE DOES IT HAVE A HARD SHELL 0B1BDOES IT LIVE IN WATER BsBDOES IT LIVE IN DRY AREAS aB`BDOES IT HAVE EXACTLY SIX LEGS 4B5BIS IT AN AMPHIBIAN pBRBHAS IT EXACTLY EIGHT LEGS YBXBDOES IT HOP EBDBIS IT A PARASITE CCA LOBSTER CAN IT FLY LONG DISTANCES CBABIS IT A SEABIRD  C0CDOES IT HAVE A FAN TAIL #C#CDOES IT HAVE WEBBED FEET GBQBDOES IT LIVE BY THE SEA B BIS IT OVER 3 FEET TALL @BWBA GRASSHOPPER DOES IT USUALLY FLY @ABAN OWL SUCKS NECTAR FROM FLOWERS CCA SWAN A DRAGONFLY DOES IT STING 0C CHAS IT A LONG NECK TBHBDOES IT HAVE A LONG TAIL eBdBIS IT A FISH fBgBA DUCK HAS IT A ROUND, FLAT BODY BVBA STINGRAY AN OSTRICH IS IT BIG AND HAIRY ! C!0CDOES IT SPIN A COCOON 0ABA TORTOISE A TURTLE A FALCON IS IT NOCTURNAL 9BFBA SALAMANDER OR NEWT HAS IT A SMOOTH SKIN pAAIS IT A MOLLUSK 3BqBIS IT A FRESH WATER FISH iBhBDOES IT HAVE SCALES BrBDOES IT HAVE SCALES BBIS IT HARD-SHELLED 6B7BIS IT A BIVALVE BPAA GOLDFISH A CROCODILE IS IT ADAPTED FOR SWIMMING vBwBIS IT A RUMINANT BBHAS IT RETRACTIBLE CLAWS xBBCAN IT MOVE ABOUT ON LAND BBIS IT IN THE BEAR FAMILY BBDOES IT HAVE EXTERNAL EARS `CpCIS IT A CANINE BBIS IT A NATIVE OF N. AMERICA BBDOES IT KILL SNAKES  C0CIS IT DOMESTICATED `CpCDOES IT HAVE TUSKS yBBIS IT THE LARGEST MAMMAL `CpCIS IT DOMESTICATED CCA WALRUS CAN A NON-VIRGIN TOUCH IT PC@CA MULE A POLAR BEAR A BROWN BEAR IS IT A RODENT BBIS IT A NATIVE OF AMERICA BCDOES IT LIVE IN THE DESERT CCIS IT A FARM ANIMAL BBIS IT USED FOR PHYSICAL LABOR `CpCA DEER IS IT A PRIMATE @CPCHAS IT A BUSHY TAIL CCHAS IT SHARP BRISTLES 0C CDOES IT HAVE A SHORT TAIL CCA CANADIAN PORCUPINE IS IT IN THE SQUIRREL FAMILY PC@CIS IT AN EQUINE `CpCIS IT HUMAN @CPCIS IT AN UNGULATE CCDOES IT HAVE STRIPES  C0CA MEMBER OF THE WEASEL FAMILY CCDOES IT HAVE HORNS  C0CIS IT A MARSUPIAL !@C!PCA SKUNK IS IT A HYBRID BBA ZEBRA A CHIPMUNK DOES IT LIVE AT HIGH ALTITUDES"C"CHAS IT AN ELONGATED SNOUT CCA WHALE IS IT A NATIVE OF AMERICA CCDOES IT HAVE A PEDIGREE `C pCHAS IT A LONG TAIL @CPCDOES IT HAVE SPOTS 0C CTHE SWIFTEST ANIMAL ON FOOT  C0CDOES IT HAVE STRIPES PC@CA TIGER A LION A SEAL INHABITS FRESH WATER STREAMS CCA SEA-LION AN OTTER A DOLPHIN IS IT A TYPE OF WHALE #@C#PCA LEOPARD A CHEETAH A BOBCAT DOES IT HAVE SPOTS `CpCA MOUNTAIN LION (PUMA) A JAGUAR DOES IT BUILD DAMS CCA GUINEA PIG FRONT LEGS SHORTER THAN BACK @CPCA BEAVER AN EAGLE A STRECHABLE POUCH IN ITS BILLCCA SALMON A GRUNION A FOX SHORT CURLY HAIR  C0CA CAMEL DOES IT HAVE ANTLERS CBHAS IT SHARP CURVED HORNS `CpCA LLAMA A BEE DOES IT BUZZ AS IT FLYS #0C# CIS IT NOCTURNAL? @C PCIS USUALLY CATHOLIC CCDOES IT HAVE A LONG NECK "0C" CA GNU AN ALBATROSS A PELICAN A DOVE A HUMMING BIRD STAYS MOSTLY IN RIVERS @CPCA RHINOCEROSES AN ELEPHANT A HIPPOPOTAMUS A COW A WATER BUFFALO DOES IT USUALLY KEEP KOSHER  C0CITS RACE KNOWN FOR THE MAFIA CCAN ITALIAN FIGHTS AT THE DROP OF A HAT CCIS IT QUITE PROPER pC`CIS HE RELIGIOUS `CpCA MOUSE A KANGAROO RAT AN ENGLISHMAN IS IT FROM AFRICA CPCAN ANT A PRAYING MANTIS AN IRISHMAN IS THE AUTHOR OF THIS PROGRAM `CpCDOES IT FLY !C!CA MONGOSE IS THE ROMIE OF LARRY & GLENN CA PYGMY A SPAINARD LARRY KAVERT IS IT AN AMERICAN CGLENN STEINER IS THE OWNER OF THIS COMPUTER @CCMIKE LAMPEL IS IT USED AS A GUARD DOG "C"CA POODLE A HORSE UNICORN AN ISRAILI A CONSERVATIVE RABBI DOES IT EAT DIRT C 0CA TAPEWORM A LIZARD A DRAGON IS IT A COELENTERATE "@C"PCAN EARTHWORM A GORILLA A LEMUR AN ALLEY CAT A SIAMESE CAT A SNAIL DOES IT HAVE TENTACLES !C!CA SLUG AN OCTOPUS A SPIDER A TARANTULA A DUC-BILLED PLATYPUS A KANGAROO A VULTURE A MOCKINGBIRD A BAT AN ANTEATER IS IT A NATIVE OF THE ORIENT "`C"pCA GERMAN SHEPARD A GIRAFFE AN OKAPI A STARFISH A JELLYFISH A DACHSHUND AN AKITA A RABBIT A MARMOT A CHICKEN A TURKEY A FLY A MOTH A PORPOISE A KILLER WHALE ENTS:"  C1C11\ C2C21  C215  C20\ " ",A1$  0)1) ,, #0,A$  C1,": ",A$\ #0,N1  C1,": ",N1\  #0\ ,30)  "THE ANSWER FOR A ",C$  "WOULD BE"\ G$ " G$"YES" @ , G$"NO" J 6 d @ B1L1\ B2L11\ T@CIS IT AN OCCIDENTAL CULTURE 0A AIS IT EUROPEAN BBIS IT AN ORIENTAL CULTURE @APAIS IT A SUB-SAHARAN COUNTRY `ApAON THE PACIFIC RING OF FIRE BBONCE PART OF ISLAMIC EMPIRE AAON AFRICA'S WEST COAST DBEBIS THE CAPITOL PAPEETE YBXBMEDITERRANIAN COASTLINE BBDOES IT BORDER JORDAN RBSBRICHEST COUNTRY PER CAPITA 6B7BINCLUDES HIMALAYAN MTNS cBbBIS IT A PENINSULA FBGBIS A GERMANIC LANGUAGE SPOKEN !B BIS THIS COUNTRY LATIN AMERICANBBPART OF BRITISH EMPIRE BBTHE AMAZON RIVER RUNS IN IT QBPBON THE ARCTIC OCEAN HBIBPART OF ROMAN EMPIRE TBUBONE OF THE LOW COUNTRIES )B(BIS A ROMANCE LANGUAGE SPOKEN "B#BIS IT OF SLAVIC PERSUASION $B%BON THE MEDITERRANEAN SEA 5B4BIS IT IN EASTERN EUROPE &B'BIS IT ON THE BLACK SEA fBgBIRELAND GREECE FAMOUS FOR WINDMILLS @BABLAND WITH MIDNIGHT SUN 0B1BHOME OF HANS C. ANDERSON 8B9BFAMOUS FOR BLONDS 3B2BSWEDEN FINLAND HOME OF JOAN OF ARC BBCBHOME OF THE MATTERHORN pBqBORIGIN OF ISRAELI DANCE STEP CCKUWAIT DOES IT MAKE VOLKSWAGENS rBsBDENMARK BELGIUM HOLLAND HAS AN AMERICAN BORN QUEEN BBFRANCE IS IT AN ISLAND xByBSETTLED BY FORMER SLAVES BBDOES IT HAVE A COASTLINE BBINDIA RAVAGED BY CORTEZ VBWBCANADA BRAZIL IS IT IN THE CARIBBEAN `BaBIS IT A MEMBER OF OPEC ? tBuBISRAEL OFF THE COAST OF S. AMERICA BBENGLAND UNITED STATES MEXICO TAHITI SAMOA IS IT ON THE WEST COAST BBHOME OF FAMOUS CIGARS eBdBCHINA VIET NAM CUBA JAMAICA IS IT ON THE ADRIATIC SEA hBiBRUSSIA POLAND YUGOSLAVIA SURROUNDED BY ITALY BBSWITZERLAND A BRITISH COLONY BBGERMANY WOULD YOU HATE TO BE THERE wBvBLIBYA EGYPT TURKEY KENYA MADAGASCAR IS IT AN ARABIC CULTURE BBSIKKIM ARGENTINA CHILE SPAIN MONACO PAKISTAN ISRAEL IS IT A CONTINENT BBFALKLAND ISLAND IS IT AN ISLAND BBGIBRALTAR AUSTRIA GREAT BRITAIN IS IT IN THE PYRENEES  C0CVATICAN CITY NIGERIA LIBERIA NEW ZEALAND AUSTRALIA SAUDI ARABIA YEMEN PORTUGAL ANDORRA HAS IT TEN TENTACLES pC`CSNAIL DOES IT LIVE IN TREES CCDOES IT BURROW CCBEAVER MOUSE CHICKEN HAS IT WEBBED FEET CCDUCK-BILLED PLATYPUS IS IT AN EQUINE pC`CCATERPILLAR CENTIPEDE LLAMA IS IT ON A NICKEL @CPCHAIRY-NOSED PORCUPINE CANADIAN PORCUPINE FLYING SQUIRREL HAVE STRIPES ON ITS BACK 0C CCHIPMUNK PRAIRIE DOG GUINEA PIG DOES IT HAVE HORNS CCSQUID OCTOPUS BEE DRAGONFLY SWAN DOVE OWL EAGLE SKUNK BEAR ZEBRA DOES IT HAVE LARGE EARS CCGOAT PIG HIPPOPOTAMUS ELEPHANT FROG TOAD GIRAFFE BUFFALO  BEE MANATEE HIPPOPOTAMUS LONG STRINGGGGGGGGG440E444FIS IT A LARGE SMELLY FISHIS IT A LARGE SMELLY FISHIS IT A LARGE SMELLY FISH A$30), X30)  WP9)P91)425)  W2P9)P91)4237) %( "FILE TO BE OPERATED ON: ",F7$ 62 "OPTIONS ARE MODIFY(1), MOVE(2), DELETE(3) ",A1 < A13 A11 2 F #0,F7$ P #0%0,L1 Z A11 v d A12 A13 n #0 x  # THIS SUBRINE DEES BRANCHES % "STARTING NODE OF BRANCH: ",D1  D1L1 D10  "INCORRECT NODE NUMBER"  & A12 "SIDE TO BE DELETED ", $ A11 "SIDE TO BE MOVED ",  "(LEFT=0,RIGHT=1): ",I1  I11 I10  I11 J10 J11 N1D1   P10  #0%W2D1),X1),X0)  B1D1 B1XI1)  B2D1 B2XI1) " #0%W2P1),B1,B2, , A12 J 6  @ J S10\ X0)XJ1) T #0%WL11),A$,B1,B2 ^ #0%WD1),A$,B1,B2, h L1L11 r XS1)0  | D1XS1)\ S1S11  #0%W2D1),XS11),XS1)  T  S1S11  S11 r  #0%0,L1,  % THIS SUB. FINDS P1 POING N1  P11  #0%W2P1),B1,B2  B1N1 B2N1  P1L11)   P1P11\   P10\ ! "NODE TO BE MOVED TO: ",N1  N1L1 &  "INCORRECT NODE"\  &  0 P10  : B1N1 B1D1 D B2N1 B2D1 N #0%W2P1),B1,B2, X X6BIS IT A VIRUS 0A AHAVE SPOTS OR PIMPLES PA@AIS IT A BACTERIAL DISEASE AADO SPOTS OR PIMPLES ITCH BBSWELLING OF LYMPH GLANDS `ApAHAVE RUNNY NOSE OR SORE THROAT&B'BINFECTIOUS MONONUCLEOSIS IS IT A SKIN DISEASE BBIS IT A FUNGUS BBRING-SHAPED PATCHES ON SKIN BBIS IT A PARASITIC DISEASE B!BDISEASE OF THE LUNGS BBACNE CHICKEN POX MEASLES STREP THROAT PNEUMONIA ATHLETE'S FOOT RINGWORM IS IT A MENTAL DISEASE "B#BTAPEWORM CAUSED BY CHEMICAL IMBALENCE $B%BPARANOIA CAUSED BY BODY MALFUNCTION (B)BIS IT A BLOOD DISORDER 1B0BMUMPS A COLD A BROKEN BONE A HEART ATACK BLOOD CLOTS CAUSED BY A VITAMIN DEFICIENCY2B3BIS IT REMEDIED BY INSULIN 5B4BSCURVY DIABETES HYPOGLYCEMIA  @ , G$"NO" J 6 d @ B1L1\ B2L11\ T J B2L1\ B1L11 T #0%W,B$1,30),B1,B2, ^ #0%W,B$1,30),B1,B2, h WL11)425 r #0%W,A$1,30),0,0, | #0%W42,C$1,30),0,0  L1L12\ #0%0,L1,  #0\   /WTWyWWXXXXTI "STRING: ",A$1,30) ! "NUM1: ",B1\ "NUM2: ",B2  #0%WD1),A$1,30),B1,B2  l  SBqSZNOES IT PLAY KAZOO /LLL-L>2R"R>+6=L"R"RLUL.:LLCL7!R5L%ANCDP,ͷA>ABZN]P5HA!IQ~@N6~O#BNAN>õO5>|##wN#]P>O|ON]P>O}O*R"RzON~O+ÍNC͈P+>%AڸNCDP,ͷA8?NO*Ow#NAҽNN*ROO*OOWO_*R͹B͌A*Rz-OOw+O>#ͷAC͈P+~XO!wA6# ?,ͷA! "R!R7>> !R> +2R?### ??~* ? ?:Rw#ͷAC͈P2P6"P* S~ w#? ~GMw͵Op* S2P#4OO"P* S#? ~GM~~O#??###~M>" +* S~@~@wP~@~G~p P* SqP>M~2P+ ?* S B** SqPB>M?z…Px+z*{* KD S~" S͈P6P! +" h?_##B+PAsAaA_.DRSQRQ 0*_W51W/H +QQ7SW_0BBYE US HAVE A SHORT TAIL OF AN ANIMAL?",C$ R 0 IMAL 280 "ANML.2" GOTO 280 ML.2" L?",C$ BĄBYE US HAVE A SHORT TAIL OF AN ANIMAL?",C$  @܆‚dž ML.2 $4$Â__Xy^^##qTBMQIQR S\2v]2^2X8S_ + A$150),C$30),D$30),E$30),B50,1)  B15\ L130 * "ARE YOU THINKING OF AN ANIMAL?",C$ ( C$"YES"  !2 #0,"ANML.1"\ #1,"ANML.2" !< B2B1\ X0\ F10\ F21\ P1 F 0)1 Z P F20\ F11 Z #F2,L\ #F2 d F21 x n #F2,"ANML.1"\  x #F2,"ANML.2"   K0  I0 H  SK1\ KKL1  #F2,A$S,K)  #F2,BI,0),BI,1)  I  X1  % P100000 #F2,C$,0,0,D$,0,0  #F2\ #F1  F10   #3,"ANML.1"   #3,"ANML.2"  #3,L\ #3\   K0\ H1 " I0 B11 , SK1\ KKL1 6 MS K\ A$M)" "\ M @ #F1,A$S,K) J #F1,BI,0),BI,1) T HH1 ^ F1)0 r h X1\ | r I | B2B2B1  PB2B1  YPB21)L1 $ BPB21,1)0 "IS IT A ",  A$Y1,YL1)\ G$\ P2P ! G$"YES" PBPB21,1)  G$"NO" PBPB21,0)  P0   G$"NO"   P100000\ * "THE ANIMAL YOU WERE THINKING OF",  " WAS A"\ C$ " "PLEASE TYPE IN A QUESTION" % "THAT WOULD DISTINGUISH A ",C$  "FROM A ",A$Y1,YL1)  D$\ E$A$Y1,YL1)  A$Y1,YL1)D$\ D$E$ & "THE ANSWER FOR A ",C$ 0 PRAIRIE DOG GUINEA PIG DOES IT HAVE HORNS CCSQUID OCTOPUS BEE DRAGONFLY SWAN DOVE OWL EAGLE SKUNK BEAR ZEBRA DOES IT HAVE LARGE EARS CCGOAT PIG HIPPOPOTAMUS ELEPHANT FROG TOAD GIRAFFE BUFFALO  BEE MANATEE HIPPOPOTAMUS LONG STRINGGGGGGGGG440E444FIS IT A LARGE SMELLY FISHIS IT A LARGE SMELLY FISHIS IT A LARGE SMELLY FISH A$30), X30)  WP9)P91)425)  W2P9)P91)4237) %( "FILE TO BE OPERATED ON: ",F7$ 62 "OPTIONS ARE MODIFY(1), MOVE(2), DELETE(3) ",A1 < A13 A11 2 F #0,F7$ P #0%0,L1 Z A11 v d A12 A13 n #0 x  # THIS SUBRINE DEES BRANCHES % "STARTING NODE OF BRANCH: ",D1  D1L1 D10  "INCORRECT NODE NUMBER"  & A12 "SIDE TO BE DELETED ", $ A11 "SIDE TO BE MOVED ",  "(LEFT=0,RIGHT=1): ",I1  I11 I10  I11 J10 J11 N1D1   P10  #0%W2D1),X1),X0)  B1D1 B1XI1)  B2D1 B2XI1) " #0%W2P1),B1,B2, , A12 J 6  @ J S10\ X0)XJ1) T #0%WL11),A$,B1,B2 ^ #0%WD1),A$,B1,B2, h L1L11 r XS1)0  | D1XS1)\ S1S11  #0%W2D1),XS11),XS1)  T  S1S11  S11 r  #0%0,L1,  % THIS SUB. FINDS P1 POING N1  P11  #0%W2P1),B1,B2  B1N1 B2N1  P1L11)   P1P11\   P10\ ! "NODE TO BE MOVED TO: ",N1  N1L1 &  "INCORRECT NODE"\  &  0 P10  : B1N1 B1D1 D B2N1 B2D1 N #0%W2P1),B1,B2, X X4BIS IT ALIVE 0A AA MEMBER OF THE ENTERPRISE PA@ASTANDARD ENTERPRISE EQUIPMENT BBIS IT A MALE MEMBER pA`AIS IT A HOMINOID AAIS HE THE CAPTAIN BBLT. UHURA HAS IT A PHYSICAL BODY !B BIS IT A HUMANOID BBIS IT AN EPISODE BBIS IT A WEAPON (DEFENSE) BBIS IT ARTIFICIAL &B'BTHE WAY TO EDEN A SCIENTIFIC MEASURING DEVICE 2B3BDEFLECTOR SCREENS DOES HE DRINK VODKA $B%BCAPTAIN JAMES T. KIRK IS IT HUMAN "B#BA MUGATO IS IT FURRY 0B1BTHE THRALLS T'PRING RICHARD DAYSTROM DOES HE HAVE POINTED EARS (B)BLT. CHEKHOV RIGEL IV STARBASE IV LT. SULU IS IT SPOCK A HORTA A TRIBBLE A COMMUNICATOR A TRICORDER   THE WUMPUS IS A SHY, TIMID, PERSON-EATING ANIMAL WHICH LIVES IN ONE OF 20 CONNECTING ROOMS. THE OBJECT IS FOR YOU TO FIND AND SHOOT THE WUMPUS WITH YOUR BOW AND ARROWS.  ALSO LIVING IN THE ROOMS ARE SUPER BATS. IF YOU WALK INTO A ROOM CONTAINING SUPER BATS, THEY PICK YOU UP AND DROP YOU IN A ROOM AT RANDOM.  YOU SHOULD ALSO BE AWARE THAT SOME ROOMS CONTAIN BOT- TEMLESS PITS. FALLING INTO ONE CAN BE UNPLEASENT.  TO HELP YOU IN YOUR QUEST ARE THE FOLLOWING AIDS: 1) WHEN THE WUMPUS IS IN ONE OF THE ADJOINING ROOMS  'I SMELL A WUMPUS' IS PRINTED OUT 2) WHEN THE BATS ARE IN ONE OF THE ADJOINING ROOMS  PROGRAM GUESS  AUTH LARRY G. KAVERT  8( PURPOSE THIS PROGRAM IS A GUESG GAME BETWEEN THE 92 COMPUTER THE OPERAR, WHERE THE COMPUTER :< IS THE GUESS THE OPERAR IS THE GUESSEE. 5F USE THE PROGRAM ASK THE INSTRUCTIS. 4P ES THE PROGRAM USES DFET FILES THE D 1Z FET CATAGIES. A NEW CATAGY, 5d A FILE WITH AN APPROIATE TITLE, USE 7n THE 'SEED' OPTI IN THE GUESSMOD PROGRAM. 8x ALSO, ANY CHANGES THE FILE STRUCTURE = USE THE VARIOUS OPTIS IN THE GUESSMOD PROGRAM. 7 THIS PROGRAM REQUIRES SHT BASIC10K) A  16K SYSTEM. LP.DIR - EACH E PROGRAM GUESSMOD  AUTH LARRY G. KAVERT  6( PURPOSE MODY FILES CATAGIES) USED BY GUESS 42 PROGRAM INITIALIZE A NEW CATAGY. ;P USE THE PROGRAM HAS 4 OPTIS MODY, MOVE, ETE, 4Z SEED. MODY ALLOWS YOU INSPECT 9d CHANGE ANY E NODE. MOVE ALLOWS YOU MOVE 2n ANY NODE E OF ITS' BRANCHES ANY 4x OTHER PLACE THE TREE. ETE WILL OVE 9 ANY NODE E OF ITS BRANCHES. SEED IS USED & INITIALIZE A NEW FILE. 8 ES FILE STRUCTURE IS A BINARY TREE, A 'QUESTI' 3 NODE WITH TWO POERS. ZERO ) POERS : INDICATE AN ANSWER) NODE. IN INSPECT MODE 9 A CR "NO" CHANGE?). NODE 1 IS THE LEFT 4 H FALSE BRANCH, NODE 2 IS RIGHTH 4 TRUE BRANCH. IT IS RECOMMED USE THE 8 MODY OPTI WITH NO CHANGE) OF THIS PRO 5 GRAM THE FILEPRNT PROGRAM STUDY THE 5 FILE STRUCTURE BEE ATTEMPTING ANY MAJ  CHANGES, %W2D1),X0),X1)  X1)0   S0)S0)1\ SS0))D1  D1X1)\   X0)0   S0)S0)1\ SS0))D1  #0%W2D1),0,0,  D1X0)\   D1L1 64  A1 55\"*",\ A\ @ "* RULES FOR A DAY AT THE ZOO *" ( A1 55\"*",\ A\ 2 :< "THIS GAME SIMULATES A TRIP TO THE ZOO TO FEED THE" F "ANIMALS."\ 9P "THE FEEDERS CHOOSE THE NUMBER OF ANIMALS TO FEED" $Z "AT THE START OF THE GAME."\ "THE LAST ROLL MUST BE 'RIGHT ON' OR ELSE YOU ARE TOLD" ; "NOT TO FEED THE ANIMALS, THIS CONTINUES UNTIL YOU "  "MAKE YOUR POINT."\ + "HOPE YOU HAVE FUN AT THE ZOO !!!"\ $" "ARE YOU READY TO PLAY ? ",Z$ ' "ZOO" , VB T THE ZOO !!!"\ $ "ARE YOU READY TO PLAY ? ",Z$  N AT THE ZOO !!!"\ $ "ARE YOU READY TO PLAY ? ",Z$  [ 64 / WRITTEN BY JANE McGREW, OCT. 4, 1977 ( Z160321)1000)\ ROM SEED ( %#3I 2 X1 60\":",\ X G< \ "* A DAY AT THE ZOO *" F X1 60\":",\ X P (Z " *****"\ &d "HOW MANY ANIMALS TO FEED ? ",L n \ (x "FEEDER #1, PLEASE SIGN IN ! ",A$  3 "YOU TOO, #2 (YOU HAVE TO TRY HARDER) ! ",B$  & "**** ",A$, ", ROLL THE DICE ",  A  A999   / "**** HI, ",B$," TOSS THOSE IVORIES ! ",  A  A999  r   \P1P1N 8 P1L ">>>>>>>>>>> DO NOT FEED THE ANIMALS !"  P1L P1P1N 9" P1L1 7),"''''PENALTY - 4 ANIMALS GOT SICK" , P1L1 P1L5 6 P1L  @ N12 P10 J N12 ^ T N2 D^ 10), "GO HOME AND CHANGE YOUR JEANS, YOU SPILLED YOUR COKE!" h r  | \P2P2N 8 P2L ">>>>>>>>>>> DO NOT FEED THE ANIMALS !"  P2L P2P2N 9 P2L1 7),"''''PENALTY - 4 ANIMALS GOT SICK"  P2L1 P2L5  P2L   N12 P20  N12   N2 B 10),"GO HOME, YOU FED TOO MANY PEANUTS TO THE ELEPHANTS!"   P1P2 :  P2P1  . 7),">>>>> THE NEW ZOO KEEPER IS, ",A$   N 0 \ 7),">>>>> THE NEW ZOO KEEPER IS, ",B$ & 0 N 7: 7),">>>> CONGRATULATIONS !!! ",A$," AND ",B$\ :D 7)," >>>>>>>>>>>>>>>>>>>>> IT'S A TIE !!!!"\ (N "*=========== SCORE ===========*" X /b A$,8)," = ",\ P1,\ " ",\ S1 P1 l "*",\ v . B$,8)," = ",\ P2,\ " ",\ S1 P2  "0",\ S  \  X1 60\":",\ X   \ z ) C60)1)\ ROLL DICE C & D  D60)1)  NCD 0 ":::::::YOU ROLLED: ",%,C," + ",D," = ", : N ,, ,, ,*,4,>,R,\,f,p   ( "SNAKES EYES! JUMP THE SNAKE PIT" . 29)," FEED 2 SNAKES AND ROLL AGAIN"\ -  "NOT 1, NOT 2, BUT 3 LITTLE DEERS!!"\ % "ONE JUMP FOR EACH MONKEY !"\ .  "FEED 1 GIRAFFE FOR EACH STAR ***** "\ -* "ONE LEOPARD FOR EVERY SPOT, ......"\ *4 "FEED 7 RABBITS (28 LUCKY FEET) "\ (> "YOU '8' IT ALL ? DON'T KID ME, " &H 40),"YOU FED 8 PIGEONS !!!"\ *R "4 LIONS & 5 TIGERS, FEED ALL 9 "\ \ "TEN PIGS IN THE PEN ?"\ *f "ELEVEN BABY CHICKENS NEED FOOD."\ "p "BOXCARS ! START OVER ! "\ z "ANOTHER GAME ? ",Y$  \  Y$1,1)"Y" d  2 PROGRAM FROM PERSAL COMPUTING JANFEB 1977 - MODIED BY JAMES L. TATE NSTAR BASIC  VERSI 6 RELEASE 3. 4( "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA" 22 "SUCCESSFULLY FOR A 10-YR TERM OF OFFICE."\ "< "HIT RETURN TO CONTINUE",Z$ F D10\ P10 *P Z0\P95\ S2800\ H3000\ EHS Z Y3\ AHY\ I5\ Q1 d D0 6n \ "HAMURABI: I BEG TO REPORT TO YOU,"\ ZZ1 Ax "IN YEAR",Z,",",D," PEOPLE STARVED,",I," CAME TO THE CITY." PPI  Q0  PP2) 8 "A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED."  "POPULATION IS NOW",P,\ % "THE CITY NOW OWNS",A," ACRES." , "YOU HARVESTED",Y," BUSHELS PER ACRE."  "RATS ATE",E," BUSHELS." - "YOU NOW HAVE",S," BUSHELS IN STORE."\  Z11   C100))\ YC17 1 "LAND IS TRADING AT",Y," BUSHELS PER ACRE." * "HOW MANY ACRES DO YOU WISH TO BUY",  Q\ Q0   YQS ,  z " , Q0 J 6 AAQ\ SSYQ\ C0 @  +J "HOW MANY ACRES DO YOU WISH TO SELL", T Q\ Q0  ^ QA | h  r J | AAQ\ SSYQ\ C0  9 "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE",  Q  Q0  5 TRYING USE ME GRAIN THAN IN THE SILOS ?  QS   z    SSQ\ C1\ 6 "HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED",  D\ D0   D0  2 TRYING PLANT ME ACRES THAN YOU OWN ?  DA 0     & ENOUGH GRAIN SEED ? 0 D2)S X : z D  )N ENOUGH PEOPLE T THE CROPS ? X D10P  9b "BUT YOU HAVE ONLY",P," PEOPLE TO TEND THE FIELDS." l "NOW THEN," v   SSD2)   ! A BOUNTYFULL HARVEST  YC\ HDY\ E0    C2)C2  $ THE RATS ARE NING WILD  ESC)  SSEH    'S HAVE SOME BABIES  IC20AS)P1001) , HOW MANY PEOPLE HAD FULL TUMMIES?  CQ20) (  HRS, A 15% CHANCE OF PLAGUE  Q1020).3))   PC d (* STARVE ENOUGH IMPEACHMENT ? 4 DPC\ D.45P R > P1Z1)P1D100P)Z H PC\ D1D1D\ n /R \"YOU STARVED",D,"PEOPLE IN ONE YEAR!!!" ;\ "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY"