ANIMALS

00000000: 01 04 22 04 64 00 8F 20  32 30 20 51 55 45 53 54  |..".d.. 20 QUEST|
00000010: 49 4F 4E 53 28 32 2E 30  29 42 59 20 43 2E 4C 2E  |IONS(2.0)BY C.L.|
00000020: 4D 2E 00 28 04 6E 00 9C  00 3F 04 78 00 86 41 24  |M..(.n...?.x..A$|
00000030: 28 32 35 35 29 3A 97 35  39 34 36 38 2C 31 32 00  |(255):.59468,12.|
00000040: 73 04 82 00 8D 32 31 30  3A 99 22 11 11 11 11 11  |s....210:.".....|
00000050: 11 49 53 20 54 48 45 52  45 20 41 20 44 41 54 41  |.IS THERE A DATA|
00000060: 20 46 49 4C 45 20 4F 4E  20 54 48 49 53 20 54 41  | FILE ON THIS TA|
00000070: 50 45 3F 00 89 04 8C 00  99 22 28 59 20 4F 52 20  |PE?......"(Y OR |
00000080: 4E 29 22 3B 3A 8D 36 30  30 00 A1 04 96 00 8B 20  |N)";:.600...... |
00000090: 52 25 B3 B1 31 A7 52 31  25 B2 31 3A 89 31 30 34  |R%..1.R1%.1:.104|
000000A0: 30 00 AD 04 A0 00 9F 20  31 2C 31 2C 30 00 BC 04  |0...... 1,1,0...|
000000B0: AA 00 84 31 2C 4B 3A 84  31 2C 43 24 00 CA 04 B4  |...1,K:.1,C$....|
000000C0: 00 81 20 4A 20 B2 30 A4  20 4B 00 DA 04 BE 00 84  |.. J .0. K......|
000000D0: 31 2C 41 24 28 4A 29 3A  82 4A 00 E6 04 C8 00 A0  |1,A$(J):.J......|
000000E0: 31 3A 89 32 32 30 00 12  05 D2 00 99 22 93 11 11  |1:.220......"...|
000000F0: 11 11 11 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 12 54 57  |..............TW|
00000100: 45 4E 54 59 20 51 55 45  53 54 49 4F 4E 53 92 22  |ENTY QUESTIONS."|
00000110: 3A 8E 00 4C 05 DC 00 8D  32 31 30 3A 99 22 11 11  |:..L....210:."..|
00000120: 11 11 11 11 52 45 57 49  4E 44 20 54 41 50 45 20  |....REWIND TAPE |
00000130: 23 31 20 4E 4F 57 2C 54  48 45 4E 20 50 52 45 53  |#1 NOW,THEN PRES|
00000140: 53 20 12 52 45 54 55 52  4E 92 2E 22 00 5F 05 E6  |S .RETURN.."._..|
00000150: 00 A1 52 24 3A 8B 52 24  B2 22 22 89 32 33 30 00  |..R$:.R$."".230.|
00000160: 77 05 F0 00 99 22 11 11  44 4F 20 59 4F 55 20 57  |w...."..DO YOU W|
00000170: 49 53 48 20 54 4F 3A 00  85 05 FA 00 99 22 11 41  |ISH TO:......".A|
00000180: 2D 50 4C 41 59 00 A3 05  04 01 99 22 42 2D 52 45  |-PLAY......"B-RE|
00000190: 41 44 20 54 48 45 20 49  4E 53 54 52 55 43 54 49  |AD THE INSTRUCTI|
000001A0: 4F 4E 53 00 C2 05 0E 01  99 22 43 2D 53 54 41 52  |ONS......"C-STAR|
000001B0: 54 20 41 4E 4F 54 48 45  52 20 43 41 54 41 47 4F  |T ANOTHER CATAGO|
000001C0: 52 59 00 FE 05 18 01 99  22 44 2D 53 45 45 20 41  |RY......"D-SEE A|
000001D0: 20 4C 49 53 54 49 4E 47  20 4F 46 20 4D 59 20 4B  | LISTING OF MY K|
000001E0: 4E 4F 57 4C 45 47 45 20  4F 4E 20 54 48 49 53 20  |NOWLEGE ON THIS |
000001F0: 20 53 55 42 4A 45 43 54  22 3A 89 35 34 30 00 1C  | SUBJECT":.540..|
00000200: 06 22 01 99 22 93 11 11  11 11 11 54 48 49 4E 4B  |.".."......THINK|
00000210: 20 4F 46 20 22 43 24 22  2E 22 3A 99 00 36 06 2C  | OF "C$".":..6.,|
00000220: 01 81 4A B2 30 A4 32 38  30 30 3A 82 4A 3A 49 B2  |..J.0.2800:.J:I.|
00000230: 30 3A 89 33 33 30 00 50  06 36 01 8D 36 30 30 3A  |0:.330.P.6..600:|
00000240: 8B 52 25 B2 31 A7 20 49  B2 59 31 3A 89 33 33 30  |.R%.1. I.Y1:.330|
00000250: 00 59 06 40 01 49 B2 4E  31 00 90 06 4A 01 8B 20  |.Y.@.I.N1...J.. |
00000260: C8 28 41 24 28 49 29 2C  31 29 B2 22 2A 22 A7 20  |.(A$(I),1)."*". |
00000270: 99 20 CA 28 41 24 28 49  29 2C 31 30 2C C3 28 41  |. .(A$(I),10,.(A|
00000280: 24 28 49 29 29 29 3A 8D  36 33 30 3A 89 33 31 30  |$(I))):.630:.310|
00000290: 00 B5 06 54 01 99 22 49  53 20 49 54 20 22 41 24  |...T.."IS IT "A$|
000002A0: 28 49 29 22 3F 22 3A 8D  36 30 30 3A 8B 52 25 B2  |(I)"?":.600:.R%.|
000002B0: 31 89 37 32 30 00 F1 06  5E 01 4B B2 4B AA 32 3A  |1.720...^.K.K.2:|
000002C0: 8B 20 4B B1 33 35 35 A7  99 22 49 20 47 49 56 45  |. K.355.."I GIVE|
000002D0: 2C 59 4F 55 20 57 49 4E  21 2E 2E 50 4C 41 59 20  |,YOU WIN!..PLAY |
000002E0: 41 47 41 49 4E 3F 22 3A  8D 36 30 30 3A 89 34 33  |AGAIN?":.600:.43|
000002F0: 30 00 03 07 68 01 41 24  28 4B AB 31 29 B2 41 24  |0...h.A$(K.1).A$|
00000300: 28 49 29 00 24 07 72 01  99 22 11 49 27 4D 20 53  |(I).$.r..".I'M S|
00000310: 54 55 4D 50 45 44 2C 57  48 41 54 20 49 53 20 49  |TUMPED,WHAT IS I|
00000320: 54 3F 11 22 00 32 07 7C  01 85 20 41 24 28 4B 29  |T?.".2.|.. A$(K)|
00000330: 3A 99 00 60 07 86 01 99  22 57 48 41 54 20 49 53  |:..`...."WHAT IS|
00000340: 20 41 20 47 4F 4F 44 20  51 55 45 53 54 49 4F 4E  | A GOOD QUESTION|
00000350: 20 54 4F 20 41 53 4B 20  54 4F 20 54 45 4C 4C 22  | TO ASK TO TELL"|
00000360: 00 7E 07 90 01 99 20 41  24 28 4B 29 22 20 46 52  |.~.... A$(K)" FR|
00000370: 4F 4D 20 22 41 24 28 4B  AB 31 29 22 3F 22 00 91  |OM "A$(K.1)"?"..|
00000380: 07 9A 01 99 3A 85 41 24  28 49 29 3A 8D 20 36 37  |....:.A$(I):. 67|
00000390: 30 00 D2 07 A4 01 99 3A  99 22 93 11 11 11 11 11  |0......:."......|
000003A0: 11 11 11 11 11 11 54 48  41 4E 4B 53 2C 49 27 4C  |......THANKS,I'L|
000003B0: 4C 20 52 45 4D 45 4D 42  45 52 20 54 48 41 54 21  |L REMEMBER THAT!|
000003C0: 2E 2E 54 52 59 20 41 47  41 49 4E 3F 22 3A 8D 36  |..TRY AGAIN?":.6|
000003D0: 30 30 00 0A 08 AE 01 99  3A 8B 52 25 B2 31 A7 99  |00......:.R%.1..|
000003E0: 22 93 11 11 11 11 11 11  54 48 49 4E 4B 20 4F 46  |".......THINK OF|
000003F0: 20 41 4E 4F 54 48 45 52  22 CA 28 43 24 2C 33 2C  | ANOTHER".(C$,3,|
00000400: 37 39 29 3A 99 3A 89 33  30 30 00 54 08 B8 01 99  |79):.:.300.T....|
00000410: 22 12 44 4F 20 4E 4F 54  20 41 42 4F 52 54 20 50  |".DO NOT ABORT P|
00000420: 52 4F 47 52 41 4D 20 57  49 54 48 4F 55 54 20 53  |ROGRAM WITHOUT S|
00000430: 54 4F 52 49 4E 47 20 20  20 20 4D 59 20 4D 45 4D  |TORING    MY MEM|
00000440: 4F 52 59 20 4F 4E 20 54  48 45 20 54 41 50 45 21  |ORY ON THE TAPE!|
00000450: 92 22 3A 99 00 64 08 C2  01 95 3A 97 35 39 34 31  |.":..d....:.5941|
00000460: 31 2C 35 33 00 82 08 CC  01 81 20 4A B2 30 20 A4  |1,53...... J.0 .|
00000470: 20 32 30 30 3A 82 20 4A  3A 97 35 39 34 31 31 2C  | 200:. J:.59411,|
00000480: 36 31 00 AD 08 D6 01 99  22 50 52 45 53 53 20 53  |61......"PRESS S|
00000490: 54 4F 50 20 4F 4E 20 54  41 50 45 2C 54 48 45 4E  |TOP ON TAPE,THEN|
000004A0: 20 48 49 54 20 52 45 54  55 52 4E 2E 22 00 C0 08  | HIT RETURN."...|
000004B0: E0 01 A1 52 24 3A 8B 52  24 B2 22 22 89 34 38 30  |...R$:.R$."".480|
000004C0: 00 CC 08 EA 01 9F 20 31  2C 31 2C 31 00 DB 08 F4  |...... 1,1,1....|
000004D0: 01 98 31 2C 4B 3A 98 31  2C 43 24 00 E6 08 FE 01  |..1,K:.1,C$.....|
000004E0: 81 4A B2 30 A4 4B 00 F6  08 08 02 98 31 2C 41 24  |.J.0.K......1,A$|
000004F0: 28 4A 29 3A 82 4A 00 09  09 12 02 A0 31 3A 99 22  |(J):.J......1:."|
00000500: 54 48 41 4E 4B 53 22 3A  80 00 1C 09 1C 02 A1 52  |THANKS":.......R|
00000510: 24 3A 8B 52 24 B2 22 22  89 35 34 30 00 2D 09 26  |$:.R$."".540.-.&|
00000520: 02 8B 20 52 24 B2 22 41  22 89 32 39 30 00 3F 09  |.. R$."A".290.?.|
00000530: 30 02 8B 20 52 24 B2 22  42 22 89 31 30 34 30 00  |0.. R$."B".1040.|
00000540: 50 09 3A 02 8B 20 52 24  B2 22 43 22 89 37 35 30  |P.:.. R$."C".750|
00000550: 00 60 09 44 02 8B 52 24  B2 22 44 22 89 39 38 30  |.`.D..R$."D".980|
00000560: 00 72 09 4E 02 99 22 57  48 41 54 3F 22 3A 89 35  |.r.N.."WHAT?":.5|
00000570: 34 30 00 85 09 58 02 A1  52 24 3A 8B 52 24 B2 22  |40...X..R$:.R$."|
00000580: 22 89 36 30 30 00 A2 09  62 02 8B 52 24 B3 B1 22  |".600...b..R$.."|
00000590: 4E 22 A7 99 22 12 59 45  53 92 22 3A 52 25 B2 31  |N"..".YES.":R%.1|
000005A0: 3A 8E 00 B6 09 6C 02 52  25 B2 30 3A 99 22 12 4E  |:....l.R%.0:.".N|
000005B0: 4F 20 92 22 3A 8E 00 D3  09 76 02 8F 20 45 58 54  |O .":....v.. EXT|
000005C0: 52 41 43 54 20 41 4E 53  57 45 52 20 56 45 43 54  |RACT ANSWER VECT|
000005D0: 4F 52 53 00 EE 09 80 02  59 31 B2 C5 28 CA 28 41  |ORS.....Y1..(.(A|
000005E0: 24 28 49 29 2C 32 2C 35  29 29 AB 31 30 30 00 09  |$(I),2,5)).100..|
000005F0: 0A 8A 02 4E 31 B2 C5 28  CA 28 41 24 28 49 29 2C  |...N1..(.(A$(I),|
00000600: 36 2C 39 29 29 AB 31 30  30 00 0F 0A 94 02 8E 00  |6,9)).100.......|
00000610: 28 0A 9E 02 8F 20 41 44  44 20 41 4E 53 57 45 52  |(.... ADD ANSWER|
00000620: 20 56 45 43 54 4F 52 53  00 65 0A A8 02 99 22 11  | VECTORS.e....".|
00000630: 49 53 20 54 48 49 53 20  51 55 45 53 54 49 4F 4E  |IS THIS QUESTION|
00000640: 20 54 52 55 45 20 46 4F  52 3A 22 3A 99 22 11 22  | TRUE FOR:":."."|
00000650: 41 24 28 4B 29 22 3F 22  2C 22 41 4E 53 57 45 52  |A$(K)"?","ANSWER|
00000660: 20 59 45 53 22 00 81 0A  B2 02 99 41 24 28 4B AB  | YES"......A$(K.|
00000670: 31 29 22 3F 22 2C 22 41  4E 53 57 45 52 20 4E 4F  |1)"?","ANSWER NO|
00000680: 22 00 B6 0A BC 02 8D 36  30 30 3A 8B 20 52 25 B2  |"......600:. R%.|
00000690: 31 20 A7 20 41 24 28 49  29 B2 22 2A 22 AA C4 28  |1 . A$(I)."*"..(|
000006A0: 4B AA 31 30 30 29 AA C4  28 4B AA 39 39 29 AA 41  |K.100)..(K.99).A|
000006B0: 24 28 49 29 3A 8E 00 DD  0A C6 02 41 24 28 49 29  |$(I):......A$(I)|
000006C0: B2 22 2A 22 AA C4 28 4B  AA 39 39 29 AA C4 28 4B  |."*"..(K.99)..(K|
000006D0: AA 31 30 30 29 AA 41 24  28 49 29 3A 8E 00 01 0B  |.100).A$(I):....|
000006E0: D0 02 99 22 93 11 11 11  11 11 11 49 20 57 49 4E  |...".......I WIN|
000006F0: 2E 2E 2E 49 20 57 49 4E  2E 2E 2E 49 20 57 49 4E  |...I WIN...I WIN|
00000700: 22 00 2A 0B DA 02 99 22  11 11 11 49 54 27 53 20  |".*...."...IT'S |
00000710: 22 41 24 28 49 29 22 21  2E 2E 2E 2E 49 54 27 53  |"A$(I)"!....IT'S|
00000720: 20 22 41 24 28 49 29 22  21 22 00 5D 0B E4 02 99  | "A$(I)"!".]....|
00000730: 22 11 11 11 50 52 45 54  54 59 20 53 4D 41 52 54  |"...PRETTY SMART|
00000740: 2C 41 59 3F 2E 2E 2E 54  52 59 20 41 47 41 49 4E  |,AY?...TRY AGAIN|
00000750: 3F 22 3B 3A 8D 36 30 30  3A 89 34 33 30 00 63 0B  |?";:.600:.430.c.|
00000760: EE 02 8F 00 8F 0B F8 02  99 22 93 11 11 11 11 1D  |........."......|
00000770: 1D 1D 1D 1D 1D 1D 1D 1D  12 49 4E 49 54 49 41 4C  |.........INITIAL|
00000780: 49 5A 45 20 44 41 54 41  20 46 49 4C 45 92 22 00  |IZE DATA FILE.".|
00000790: BF 0B 02 03 99 22 11 54  48 45 20 49 4E 46 4F 52  |.....".THE INFOR|
000007A0: 4D 41 54 49 4F 4E 20 47  49 56 45 4E 20 42 45 43  |MATION GIVEN BEC|
000007B0: 4F 4D 45 53 20 54 48 45  20 53 54 41 52 54 22 00  |OMES THE START".|
000007C0: EE 0B 0C 03 99 22 4F 46  20 41 20 4E 45 57 20 44  |....."OF A NEW D|
000007D0: 41 54 41 20 46 49 4C 45  2E 20 54 48 49 53 20 46  |ATA FILE. THIS F|
000007E0: 49 4C 45 20 57 49 4C 4C  20 47 52 4F 57 22 00 1C  |ILE WILL GROW"..|
000007F0: 0C 16 03 99 22 41 53 20  54 48 45 20 43 4F 4D 50  |...."AS THE COMP|
00000800: 55 54 45 52 20 4C 45 41  52 4E 53 20 41 42 4F 55  |UTER LEARNS ABOU|
00000810: 54 20 54 48 45 20 43 41  54 45 2D 22 00 4A 0C 20  |T THE CATE-".J. |
00000820: 03 99 22 47 4F 52 59 2E  20 54 48 45 20 46 49 4C  |.."GORY. THE FIL|
00000830: 45 20 49 53 20 53 41 56  45 44 20 4F 4E 20 54 48  |E IS SAVED ON TH|
00000840: 45 20 50 52 4F 47 52 41  4D 22 00 67 0C 2A 03 99  |E PROGRAM".g.*..|
00000850: 22 54 41 50 45 20 57 48  45 4E 20 59 4F 55 20 46  |"TAPE WHEN YOU F|
00000860: 49 4E 49 53 48 2E 22 00  7B 0C 34 03 9C 3A 4B B2  |INISH.".{.4..:K.|
00000870: 32 3A 86 20 41 24 28 32  35 35 29 00 A9 0C 3E 03  |2:. A$(255)...>.|
00000880: 99 22 11 54 59 50 45 20  49 4E 20 41 20 43 41 54  |.".TYPE IN A CAT|
00000890: 45 47 4F 52 59 2E 2E 2E  55 53 45 20 54 48 45 20  |EGORY...USE THE |
000008A0: 53 49 4E 47 55 4C 41 52  22 00 D3 0C 48 03 99 22  |SINGULAR"...H.."|
000008B0: 46 4F 52 4D 2E 20 46 4F  52 20 49 4E 53 54 41 4E  |FORM. FOR INSTAN|
000008C0: 43 45 2C 54 48 45 20 43  41 54 45 47 4F 52 59 20  |CE,THE CATEGORY |
000008D0: 4F 46 22 00 00 0D 52 03  99 22 27 41 4E 49 4D 41  |OF"...R.."'ANIMA|
000008E0: 4C 53 27 20 49 49 20 49  4E 50 55 54 45 44 20 41  |LS' II INPUTED A|
000008F0: A0 20 20 27 41 4E 20 41  4E 49 4D 41 4C 27 2E 22  |.  'AN ANIMAL'."|
00000900: 00 14 0D 5C 03 85 22 11  43 41 54 45 47 4F 52 59  |...\..".CATEGORY|
00000910: 22 3B 43 24 00 3C 0D 66  03 8B 20 C8 28 43 24 2C  |";C$.<.f.. .(C$,|
00000920: 32 29 B2 22 41 20 22 A7  20 43 24 B2 22 41 20 20  |2)."A ". C$."A  |
00000930: 22 AA CA 28 43 24 2C 33  2C 37 39 29 00 5A 0D 70  |"..(C$,3,79).Z.p|
00000940: 03 8B C8 28 43 24 2C 31  29 B3 B1 22 41 22 A7 43  |...(C$,1).."A".C|
00000950: 24 B2 22 20 20 20 22 AA  43 24 00 89 0D 7A 03 99  |$."   ".C$...z..|
00000960: 22 93 11 11 11 54 48 49  4E 4B 20 4F 46 20 54 57  |"....THINK OF TW|
00000970: 4F 20 54 48 49 4E 47 53  20 49 4E 20 54 48 45 20  |O THINGS IN THE |
00000980: 43 41 54 45 47 4F 52 59  22 00 B6 0D 84 03 99 22  |CATEGORY"......"|
00000990: 41 4E 44 20 41 20 59 45  53 2D 4E 4F 20 51 55 45  |AND A YES-NO QUE|
000009A0: 53 54 49 4F 4E 20 54 48  41 54 20 54 45 4C 4C 53  |STION THAT TELLS|
000009B0: 20 54 48 45 4D 22 00 E3  0D 8E 03 99 22 41 50 41  | THEM"......"APA|
000009C0: 52 54 2E 2E 2E 2E 2E 2E  4E 4F 57 20 54 59 50 45  |RT......NOW TYPE|
000009D0: 20 49 4E 20 54 48 45 20  51 55 45 53 54 49 4F 4E  | IN THE QUESTION|
000009E0: 2E 11 22 00 EE 0D 98 03  85 41 24 28 30 29 00 28  |.."......A$(0).(|
000009F0: 0E A2 03 99 22 11 54 59  50 45 20 54 48 45 20 41  |....".TYPE THE A|
00000A00: 4E 53 57 45 52 20 46 4F  52 20 57 48 49 43 48 20  |NSWER FOR WHICH |
00000A10: 54 48 45 20 51 55 45 53  54 49 4F 4E 20 20 49 53  |THE QUESTION  IS|
00000A20: 20 54 52 55 45 2E 22 3B  00 52 0E AC 03 99 22 28  | TRUE.";.R...."(|
00000A30: 44 4F 4E 27 54 20 46 4F  52 47 45 54 20 54 48 45  |DON'T FORGET THE|
00000A40: 20 41 52 54 49 43 4C 45  21 29 22 3A 85 41 24 28  | ARTICLE!)":.A$(|
00000A50: 31 29 00 91 0E B6 03 85  22 11 54 59 50 45 20 54  |1)......".TYPE T|
00000A60: 48 45 20 41 4E 53 57 45  52 20 46 4F 52 20 57 48  |HE ANSWER FOR WH|
00000A70: 49 43 48 20 54 48 45 20  51 55 45 53 54 49 4F 4E  |ICH THE QUESTION|
00000A80: 20 20 49 53 20 46 41 4C  53 45 22 3B 41 24 28 32  |  IS FALSE";A$(2|
00000A90: 29 00 B3 0E C0 03 41 24  28 30 29 B2 22 2A 22 AA  |).....A$(0)."*".|
00000AA0: C4 28 31 30 31 29 AA C4  28 31 30 32 29 AA 41 24  |.(101)..(102).A$|
00000AB0: 28 30 29 00 C5 0E CA 03  99 20 22 93 11 11 11 22  |(0)...... "...."|
00000AC0: 3A 89 32 32 30 00 E0 0E  D4 03 99 22 93 22 3A 81  |:.220......".":.|
00000AD0: 20 49 B2 30 A4 20 4B 3A  99 49 3B 41 24 28 49 29  | I.0. K:.I;A$(I)|
00000AE0: 00 00 0F DE 03 8F 20 55  53 45 44 20 46 4F 52 20  |...... USED FOR |
00000AF0: 4C 49 53 54 49 4E 47 20  56 41 52 49 42 4C 45 53  |LISTING VARIBLES|
00000B00: 00 26 0F E8 03 8B 20 28  31 AA 49 29 AD 31 30 B3  |.&.... (1.I).10.|
00000B10: B1 B5 28 28 31 AA 49 29  AD 31 30 29 A7 20 82 20  |..((1.I).10). . |
00000B20: 49 3A 89 32 34 30 00 4A  0F F2 03 99 22 11 50 52  |I:.240.J....".PR|
00000B30: 45 53 53 20 52 45 54 55  52 4E 20 54 4F 20 43 4F  |ESS RETURN TO CO|
00000B40: 4E 54 49 4E 55 45 2E 2E  2E 22 00 62 0F FC 03 A1  |NTINUE...".b....|
00000B50: 20 41 24 3A 8B 20 41 24  B2 22 22 20 89 20 31 30  | A$:. A$."" . 10|
00000B60: 32 30 00 74 0F 06 04 99  22 93 22 3A 82 20 49 3A  |20.t....".":. I:|
00000B70: 89 32 34 30 00 9D 0F 10  04 99 22 93 11 11 20 20  |.240......"...  |
00000B80: 20 20 20 20 20 20 20 20  20 20 12 54 57 45 4E 54  |          .TWENT|
00000B90: 59 20 51 55 45 53 54 49  4F 4E 53 92 22 00 EC 0F  |Y QUESTIONS."...|
00000BA0: 1A 04 99 22 11 11 11 46  49 52 53 54 20 54 48 49  |..."...FIRST THI|
00000BB0: 4E 4B 20 4F 46 20 53 4F  4D 45 54 48 49 4E 47 2C  |NK OF SOMETHING,|
00000BC0: 54 48 45 4E 20 41 4E 53  57 45 52 20 20 20 20 54  |THEN ANSWER    T|
00000BD0: 48 45 20 51 55 45 53 54  49 4F 4E 53 20 12 54 52  |HE QUESTIONS .TR|
00000BE0: 55 54 48 46 55 4C 4C 59  92 20 22 3B 00 38 10 24  |UTHFULLY. ";.8.$|
00000BF0: 04 99 22 57 49 54 48 20  27 59 27 20 4F 52 20 27  |.."WITH 'Y' OR '|
00000C00: 4E 27 54 48 45 20 50 45  54 20 57 49 4C 4C 20 54  |N'THE PET WILL T|
00000C10: 52 59 20 54 4F 20 47 55  45 53 53 20 57 48 41 54  |RY TO GUESS WHAT|
00000C20: 20 59 4F 55 20 41 52 45  20 20 54 48 49 4E 4B 49  | YOU ARE  THINKI|
00000C30: 4E 47 20 4F 46 20 22 3B  00 7B 10 2E 04 99 22 41  |NG OF ";.{...."A|
00000C40: 4E 44 20 57 49 4C 4C 20  4C 45 41 52 4E 20 46 52  |ND WILL LEARN FR|
00000C50: 4F 4D 20 59 4F 55 20 20  20 20 20 41 42 4F 55 54  |OM YOU     ABOUT|
00000C60: 20 54 48 45 20 44 49 46  46 45 52 45 4E 54 20 45  | THE DIFFERENT E|
00000C70: 4C 45 4D 45 4E 54 53 2E  20 22 3B 00 8E 10 38 04  |LEMENTS. ";...8.|
00000C80: 99 22 20 41 53 20 57 49  54 48 20 20 22 3B 00 DB  |." AS WITH  ";..|
00000C90: 10 42 04 99 22 43 48 49  4C 44 52 45 4E 2C 20 49  |.B.."CHILDREN, I|
00000CA0: 54 20 54 48 49 4E 4B 53  20 59 4F 55 20 41 52 45  |T THINKS YOU ARE|
00000CB0: 20 48 4F 4E 45 53 54 2C  20 53 4F 20 20 41 20 57  | HONEST, SO  A W|
00000CC0: 52 4F 4E 47 20 41 4E 53  57 45 52 20 57 49 4C 4C  |RONG ANSWER WILL|
00000CD0: 20 47 52 4F 53 53 4C 59  20 22 3B 00 F3 10 4C 04  | GROSSLY ";...L.|
00000CE0: 99 22 4D 49 53 4C 45 41  44 20 54 48 45 20 50 45  |."MISLEAD THE PE|
00000CF0: 54 2E 22 00 11 11 56 04  99 22 50 4C 45 41 53 45  |T."...V.."PLEASE|
00000D00: 20 45 4E 44 20 51 55 45  53 54 49 4F 4E 53 20 22  | END QUESTIONS "|
00000D10: 3B 00 36 11 60 04 99 22  57 49 54 48 20 41 20 51  |;.6.`.."WITH A Q|
00000D20: 55 45 53 54 49 4F 4E 20  20 20 20 4D 41 52 4B 20  |UESTION    MARK |
00000D30: 41 4E 44 20 22 3B 00 52  11 6A 04 99 22 49 4E 43  |AND ";.R.j.."INC|
00000D40: 4C 55 44 45 20 54 48 45  20 41 52 54 49 43 4C 45  |LUDE THE ARTICLE|
00000D50: 22 3B 00 77 11 74 04 99  22 20 57 49 54 48 20 41  |";.w.t.." WITH A|
00000D60: 20 4E 41 4D 45 49 46 20  49 54 20 4E 45 45 44 53  | NAMEIF IT NEEDS|
00000D70: 20 4F 4E 45 2E 22 3B 00  8D 11 7E 04 99 22 20 45  | ONE.";...~.." E|
00000D80: 58 41 4D 50 4C 45 53 20  41 52 45 3A 22 00 A8 11  |XAMPLES ARE:"...|
00000D90: 88 04 99 22 11 43 41 54  45 47 4F 52 59 3A 20 41  |...".CATEGORY: A|
00000DA0: 4E 20 41 4E 49 4D 41 4C  00 BE 11 92 04 99 22 41  |N ANIMAL......"A|
00000DB0: 4E 53 57 45 52 3A 20 20  20 41 20 44 4F 47 00 DA  |NSWER:   A DOG..|
00000DC0: 11 9C 04 99 22 41 4E 53  57 45 52 3A 20 20 20 41  |...."ANSWER:   A|
00000DD0: 4E 20 45 4C 45 50 48 41  4E 54 00 FD 11 A6 04 99  |N ELEPHANT......|
00000DE0: 22 11 50 52 45 53 53 20  52 45 54 55 52 4E 20 54  |".PRESS RETURN T|
00000DF0: 4F 20 50 52 4F 43 45 45  44 2E 2E 2E 22 00 11 12  |O PROCEED..."...|
00000E00: B0 04 A1 52 24 3A 8B 52  24 B2 22 22 89 31 32 30  |...R$:.R$."".120|
00000E10: 30 00 2A 12 BA 04 8B 20  52 31 25 B2 31 20 A7 20  |0.*.... R1%.1 . |
00000E20: 52 31 25 B2 30 3A 89 37  35 30 00 3E 12 C4 04 99  |R1%.0:.750.>....|
00000E30: 22 93 11 11 11 11 11 11  22 3A 89 32 34 30 00 44  |".......":.240.D|
00000E40: 12 CE 04 80 00 00 00                              |.......         |

..".D.. 20 QUESTIONS(2.0)BY C.L.M..(.N..
.?.X..A$(255):.59468,12.S....210:.".....
.IS THERE A DATA FILE ON THIS TAPE?.....
."(Y OR N)";:.600...... R%..1.R1%.1:.104
0... .. 1,1,0......1,K:.1,C$.J.... J .0.
 K.Z....1,A$(J):.J...H. 1:.220...R.."...
..............TWENTY QUESTIONS.":..L....
210:."......REWIND TAPE #1 NOW,THEN PRES
S .RETURN.."._....R$:.R$."".230.W...."..
DO YOU WISH TO:......".A-PLAY......"B-RE
AD THE INSTRUCTIONS.B...."C-START ANOTHE
R CATAGORY......"D-SEE A LISTING OF MY K
NOWLEGE ON THIS  SUBJECT":.540...".."...
...THINK OF "C$".":..6.,..J.0.2800:.J:I.
0:.330.P.6..600:.R%.1. I.Y1:.330.Y.@.I.N
1...J.. H(A$(I),1)."*". . J(A$(I),10,C(A
$(I))):.630:.310...T.."IS IT "A$(I)"?":.
600:.R%.1.720...^.K.K.2:. K.355.."I GIVE
,YOU WIN!..PLAY AGAIN?":.600:.430...H.A$
(K.1).A$(I).$.R..".I'M STUMPED,WHAT IS I
T?.".2.|.. A$(K):..`...."WHAT IS A GOOD 
QUESTION TO ASK TO TELL".~.... A$(K)" FR
OM "A$(K.1)"?"......:.A$(I):. 670.R....:
."............THANKS,I'LL REMEMBER THAT!
..TRY AGAIN?":.600......:.R%.1..".......
THINK OF ANOTHER"J(C$,3,79):.:.300.T....
".DO NOT ABORT PROGRAM WITHOUT STORING  
  MY MEMORY ON THE TAPE!.":..D.B..:.5941
1,53...L.. J.0 . 200:. J:.59411,61...V..
"PRESS STOP ON TAPE,THEN HIT RETURN."...
...R$:.R$."".480.L.... 1,1,1......1,K:.1
,C$......J.0.K......1,A$(J):.J..... 1:."
THANKS":.......R$:.R$."".540.-.&.. R$."A
".290.?.0.. R$."B".1040.P.:.. R$."C".750
.`.D..R$."D".980.R.N.."WHAT?":.540...X..
R$:.R$."".600...B..R$.."N"..".YES.":R%.1
:....L.R%.0:.".NO .":..S.V.. EXTRACT ANS
WER VECTORS.....Y1.E(J(A$(I),2,5)).100..
...N1.E(J(A$(I),6,9)).100.......(.... AD
D ANSWER VECTORS.E....".IS THIS QUESTION
 TRUE FOR:":."."A$(K)"?","ANSWER YES"...
...A$(K.1)"?","ANSWER NO"......600:. R%.
1 . A$(I)."*".D(K.100).D(K.99).A$(I):...
.F.A$(I)."*".D(K.99).D(K.100).A$(I):....
P..".......I WIN...I WIN...I WIN".*.Z.."
...IT'S "A$(I)"!....IT'S "A$(I)"!".]....
"...PRETTY SMART,AY?...TRY AGAIN?";:.600
:.430.C.........."...............INITIAL
IZE DATA FILE."......".THE INFORMATION G
IVEN BECOMES THE START"......"OF A NEW D
ATA FILE. THIS FILE WILL GROW"......"AS 
THE COMPUTER LEARNS ABOUT THE CATE-".J. 
.."GORY. THE FILE IS SAVED ON THE PROGRA
M".G.*.."TAPE WHEN YOU FINISH.".{.4..:K.
2:. A$(255)...>..".TYPE IN A CATEGORY...
USE THE SINGULAR".S.H.."FORM. FOR INSTAN
CE,THE CATEGORY OF"...R.."'ANIMALS' II I
NPUTED A   'AN ANIMAL'."...\..".CATEGORY
";C$.<.F.. H(C$,2)."A ". C$."A  ".J(C$,3
,79).Z.P..H(C$,1).."A".C$."   ".C$...Z..
"....THINK OF TWO THINGS IN THE CATEGORY
"......"AND A YES-NO QUESTION THAT TELLS
 THEM"......"APART......NOW TYPE IN THE 
QUESTION.."......A$(0).(....".TYPE THE A
NSWER FOR WHICH THE QUESTION  IS TRUE.";
.R...."(DON'T FORGET THE ARTICLE!)":.A$(
1)......".TYPE THE ANSWER FOR WHICH THE 
QUESTION  IS FALSE";A$(2).....A$(0)."*".
D(101).D(102).A$(0).E.J.. "....":.220...
T..".":. I.0. K:.I;A$(I)...... USED FOR 
LISTING VARIBLES.&.... (1.I).10...((1.I)
.10). . I:.240.J....".PRESS RETURN TO CO
NTINUE...".B.... A$:. A$."" . 1020.T....
".":. I:.240......"...            .TWENT
Y QUESTIONS."......"...FIRST THINK OF SO
METHING,THEN ANSWER    THE QUESTIONS .TR
UTHFULLY. ";.8.$.."WITH 'Y' OR 'N'THE PE
T WILL TRY TO GUESS WHAT YOU ARE  THINKI
NG OF ";.{...."AND WILL LEARN FROM YOU  
   ABOUT THE DIFFERENT ELEMENTS. ";...8.
." AS WITH  ";...B.."CHILDREN, IT THINKS
 YOU ARE HONEST, SO  A WRONG ANSWER WILL
 GROSSLY ";...L.."MISLEAD THE PET."...V.
."PLEASE END QUESTIONS ";.6.`.."WITH A Q
UESTION    MARK AND ";.R.J.."INCLUDE THE
 ARTICLE";.W.T.." WITH A NAMEIF IT NEEDS
 ONE.";...~.." EXAMPLES ARE:"......".CAT
EGORY: AN ANIMAL......"ANSWER:   A DOG.Z
...."ANSWER:   AN ELEPHANT......".PRESS 
RETURN TO PROCEED..."......R$:.R$."".120
0.*.... R1%.1 . R1%.0:.750.>.D..".......
":.240.D.N.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL