ANIMAL.LOGO

FILE INFORMATION

FILENAME(S): ANIMAL.LOGO

FILE TYPE(S): PRG

FILE SIZE: 2.1K

FIRST SEEN: 2025-10-19 22:48:23

APPEARS ON: 6 disk(s)

FILE HASH

ad3174441f9e1e8ce8038d50a2e47a04d41af8b6f4c9a8bcc58cd8b713b42a88

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
UTILITIES DISK	ANIMAL.LOGO	PRG	Radd Maxx	19	1	DOWNLOAD FILE
COMMODORE LOGO	ANIMAL.LOGO	PRG	High Voltage Complete C64 Collection	20	3	DOWNLOAD FILE
LOGO	ANIMAL.LOGO	PRG	Curtcool, LPN	20	12	DOWNLOAD FILE
BLACKSOFT 025 A	ANIMAL.LOGO	PRG	DuncanTwain	20	12	DOWNLOAD FILE
HENNIE 521	ANIMAL.LOGO	PRG	DuncanTwain	19	1	DOWNLOAD FILE
TIGA	ANIMAL.LOGO	PRG	DuncanTwain	16	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 47 55 45  53 53 20 3A 43 48 4F 49  |. TO GUESS :CHOI|
00000010: 43 45 53 0D 20 49 46 20  28 20 57 4F 52 44 3F 20  |CES. IF ( WORD? |
00000020: 3A 43 48 4F 49 43 45 53  20 29 20 46 49 4E 41 4C  |:CHOICES ) FINAL|
00000030: 2E 47 55 45 53 53 20 3A  43 48 4F 49 43 45 53 20  |.GUESS :CHOICES |
00000040: 53 54 4F 50 0D 20 4C 4F  43 41 4C 20 22 52 45 53  |STOP. LOCAL "RES|
00000050: 50 4F 4E 53 45 0D 20 4D  41 4B 45 20 22 52 45 53  |PONSE. MAKE "RES|
00000060: 50 4F 4E 53 45 20 41 53  4B 2E 59 45 53 2E 4F 52  |PONSE ASK.YES.OR|
00000070: 2E 4E 4F 20 28 20 51 55  45 53 54 49 4F 4E 20 3A  |.NO ( QUESTION :|
00000080: 43 48 4F 49 43 45 53 20  29 0D 20 49 46 20 3A 52  |CHOICES ). IF :R|
00000090: 45 53 50 4F 4E 53 45 20  3D 20 5B 59 45 53 5D 20  |ESPONSE = [YES] |
000000A0: 47 55 45 53 53 20 59 45  53 2E 42 52 41 4E 43 48  |GUESS YES.BRANCH|
000000B0: 20 3A 43 48 4F 49 43 45  53 20 53 54 4F 50 0D 20  | :CHOICES STOP. |
000000C0: 47 55 45 53 53 20 4E 4F  2E 42 52 41 4E 43 48 20  |GUESS NO.BRANCH |
000000D0: 3A 43 48 4F 49 43 45 53  0D 45 4E 44 0D 0D 54 4F  |:CHOICES.END..TO|
000000E0: 20 46 49 4E 41 4C 2E 47  55 45 53 53 20 3A 43 48  | FINAL.GUESS :CH|
000000F0: 4F 49 43 45 0D 20 4C 4F  43 41 4C 20 22 46 49 4E  |OICE. LOCAL "FIN|
00000100: 41 4C 2E 51 55 45 53 54  49 4F 4E 0D 20 4C 4F 43  |AL.QUESTION. LOC|
00000110: 41 4C 20 22 52 45 53 50  4F 4E 53 45 0D 20 4D 41  |AL "RESPONSE. MA|
00000120: 4B 45 20 22 46 49 4E 41  4C 2E 51 55 45 53 54 49  |KE "FINAL.QUESTI|
00000130: 4F 4E 20 28 20 53 45 20  5B 49 53 20 49 54 5D 20  |ON ( SE [IS IT] |
00000140: 41 44 44 2E 41 2E 4F 52  2E 41 4E 20 3A 43 48 4F  |ADD.A.OR.AN :CHO|
00000150: 49 43 45 20 5B 3F 5D 20  29 0D 20 4D 41 4B 45 20  |ICE [?] ). MAKE |
00000160: 22 52 45 53 50 4F 4E 53  45 20 41 53 4B 2E 59 45  |"RESPONSE ASK.YE|
00000170: 53 2E 4F 52 2E 4E 4F 20  3A 46 49 4E 41 4C 2E 51  |S.OR.NO :FINAL.Q|
00000180: 55 45 53 54 49 4F 4E 0D  20 49 46 20 3A 52 45 53  |UESTION. IF :RES|
00000190: 50 4F 4E 53 45 20 3D 20  5B 59 45 53 5D 20 50 52  |PONSE = [YES] PR|
000001A0: 49 4E 54 20 5B 4C 4F 4F  4B 20 48 4F 57 20 53 4D  |INT [LOOK HOW SM|
000001B0: 41 52 54 20 49 20 41 4D  21 5D 20 53 54 4F 50 0D  |ART I AM!] STOP.|
000001C0: 20 47 45 54 2E 53 4D 41  52 54 45 52 20 3A 43 48  | GET.SMARTER :CH|
000001D0: 4F 49 43 45 0D 45 4E 44  0D 0D 54 4F 20 41 53 4B  |OICE.END..TO ASK|
000001E0: 2E 59 45 53 2E 4F 52 2E  4E 4F 20 3A 51 55 45 53  |.YES.OR.NO :QUES|
000001F0: 54 49 4F 4E 0D 20 4C 4F  43 41 4C 20 22 41 4E 53  |TION. LOCAL "ANS|
00000200: 57 45 52 0D 20 50 52 49  4E 54 31 20 3A 51 55 45  |WER. PRINT1 :QUE|
00000210: 53 54 49 4F 4E 0D 20 49  46 20 22 3F 20 3D 20 4C  |STION. IF "? = L|
00000220: 41 53 54 20 4C 41 53 54  20 3A 51 55 45 53 54 49  |AST LAST :QUESTI|
00000230: 4F 4E 20 50 52 49 4E 54  20 5B 5D 20 45 4C 53 45  |ON PRINT [] ELSE|
00000240: 20 50 52 49 4E 54 20 22  3F 0D 20 4D 41 4B 45 20  | PRINT "?. MAKE |
00000250: 22 41 4E 53 57 45 52 20  52 45 51 55 45 53 54 0D  |"ANSWER REQUEST.|
00000260: 20 49 46 20 3A 41 4E 53  57 45 52 20 3D 20 5B 59  | IF :ANSWER = [Y|
00000270: 45 53 5D 20 4F 55 54 50  55 54 20 5B 59 45 53 5D  |ES] OUTPUT [YES]|
00000280: 0D 20 49 46 20 3A 41 4E  53 57 45 52 20 3D 20 5B  |. IF :ANSWER = [|
00000290: 4E 4F 5D 20 4F 55 54 50  55 54 20 5B 4E 4F 5D 0D  |NO] OUTPUT [NO].|
000002A0: 20 50 52 49 4E 54 20 5B  50 4C 45 41 53 45 20 54  | PRINT [PLEASE T|
000002B0: 59 50 45 20 22 59 45 53  22 20 4F 52 20 22 4E 4F  |YPE "YES" OR "NO|
000002C0: 22 5D 0D 20 4F 55 54 50  55 54 20 41 53 4B 2E 59  |"]. OUTPUT ASK.Y|
000002D0: 45 53 2E 4F 52 2E 4E 4F  20 3A 51 55 45 53 54 49  |ES.OR.NO :QUESTI|
000002E0: 4F 4E 0D 45 4E 44 0D 0D  54 4F 20 57 41 49 54 20  |ON.END..TO WAIT |
000002F0: 3A 4E 0D 20 52 45 50 45  41 54 20 3A 4E 20 5B 5D  |:N. REPEAT :N []|
00000300: 0D 45 4E 44 0D 0D 54 4F  20 4E 4F 2E 42 52 41 4E  |.END..TO NO.BRAN|
00000310: 43 48 20 3A 54 52 45 45  0D 20 4F 55 54 50 55 54  |CH :TREE. OUTPUT|
00000320: 20 4C 41 53 54 20 3A 54  52 45 45 0D 45 4E 44 0D  | LAST :TREE.END.|
00000330: 0D 54 4F 20 59 45 53 2E  42 52 41 4E 43 48 20 3A  |.TO YES.BRANCH :|
00000340: 54 52 45 45 0D 20 4F 55  54 50 55 54 20 46 49 52  |TREE. OUTPUT FIR|
00000350: 53 54 20 42 55 54 46 49  52 53 54 20 3A 54 52 45  |ST BUTFIRST :TRE|
00000360: 45 0D 45 4E 44 0D 0D 54  4F 20 52 45 50 4C 41 43  |E.END..TO REPLAC|
00000370: 45 20 3A 44 41 54 41 20  3A 57 4F 52 44 20 3A 4E  |E :DATA :WORD :N|
00000380: 45 57 2E 42 52 41 4E 43  48 0D 20 49 46 20 3A 44  |EW.BRANCH. IF :D|
00000390: 41 54 41 20 3D 20 3A 57  4F 52 44 20 4F 50 20 3A  |ATA = :WORD OP :|
000003A0: 4E 45 57 2E 42 52 41 4E  43 48 0D 20 49 46 20 57  |NEW.BRANCH. IF W|
000003B0: 4F 52 44 3F 20 3A 44 41  54 41 20 4F 50 20 3A 44  |ORD? :DATA OP :D|
000003C0: 41 54 41 0D 20 4F 50 20  28 20 4C 49 53 54 20 51  |ATA. OP ( LIST Q|
000003D0: 55 45 53 54 49 4F 4E 20  3A 44 41 54 41 20 52 45  |UESTION :DATA RE|
000003E0: 50 4C 41 43 45 20 59 45  53 2E 42 52 41 4E 43 48  |PLACE YES.BRANCH|
000003F0: 20 3A 44 41 54 41 20 3A  57 4F 52 44 20 3A 4E 45  | :DATA :WORD :NE|
00000400: 57 2E 42 52 41 4E 43 48  20 52 45 50 4C 41 43 45  |W.BRANCH REPLACE|
00000410: 20 4E 4F 2E 42 52 41 4E  43 48 20 3A 44 41 54 41  | NO.BRANCH :DATA|
00000420: 20 3A 57 4F 52 44 20 3A  4E 45 57 2E 42 52 41 4E  | :WORD :NEW.BRAN|
00000430: 43 48 20 29 0D 45 4E 44  0D 0D 54 4F 20 45 58 50  |CH ).END..TO EXP|
00000440: 41 4E 44 2E 4B 4E 4F 57  4C 45 44 47 45 20 3A 4E  |AND.KNOWLEDGE :N|
00000450: 45 57 2E 51 55 45 53 54  49 4F 4E 20 3A 59 45 53  |EW.QUESTION :YES|
00000460: 2E 41 4E 53 57 45 52 20  3A 4E 4F 2E 41 4E 53 57  |.ANSWER :NO.ANSW|
00000470: 45 52 0D 20 4D 41 4B 45  20 22 4B 4E 4F 57 4C 45  |ER. MAKE "KNOWLE|
00000480: 44 47 45 20 52 45 50 4C  41 43 45 20 3A 4B 4E 4F  |DGE REPLACE :KNO|
00000490: 57 4C 45 44 47 45 20 3A  57 52 4F 4E 47 2E 41 4E  |WLEDGE :WRONG.AN|
000004A0: 53 57 45 52 20 28 20 4C  49 53 54 20 3A 4E 45 57  |SWER ( LIST :NEW|
000004B0: 2E 51 55 45 53 54 49 4F  4E 20 3A 52 49 47 48 54  |.QUESTION :RIGHT|
000004C0: 2E 41 4E 53 57 45 52 20  3A 57 52 4F 4E 47 2E 41  |.ANSWER :WRONG.A|
000004D0: 4E 53 57 45 52 20 29 0D  45 4E 44 0D 0D 54 4F 20  |NSWER ).END..TO |
000004E0: 51 55 45 53 54 49 4F 4E  20 3A 54 52 45 45 0D 20  |QUESTION :TREE. |
000004F0: 4F 55 54 50 55 54 20 46  49 52 53 54 20 3A 54 52  |OUTPUT FIRST :TR|
00000500: 45 45 0D 45 4E 44 0D 0D  54 4F 20 47 45 54 2E 53  |EE.END..TO GET.S|
00000510: 4D 41 52 54 45 52 20 3A  57 52 4F 4E 47 2E 41 4E  |MARTER :WRONG.AN|
00000520: 53 57 45 52 0D 20 50 52  49 4E 54 20 5B 4F 48 20  |SWER. PRINT [OH |
00000530: 57 45 4C 4C 2C 20 49 20  57 41 53 20 57 52 4F 4E  |WELL, I WAS WRON|
00000540: 47 2E 20 57 48 41 54 20  57 41 53 20 49 54 3F 5D  |G. WHAT WAS IT?]|
00000550: 0D 20 4D 41 4B 45 20 22  52 49 47 48 54 2E 41 4E  |. MAKE "RIGHT.AN|
00000560: 53 57 45 52 20 28 20 4C  41 53 54 20 52 45 51 55  |SWER ( LAST REQU|
00000570: 45 53 54 20 29 0D 20 50  52 49 4E 54 20 5B 50 4C  |EST ). PRINT [PL|
00000580: 45 41 53 45 20 54 59 50  45 20 49 4E 20 41 20 51  |EASE TYPE IN A Q|
00000590: 55 45 53 54 49 4F 4E 20  57 48 4F 53 45 20 41 4E  |UESTION WHOSE AN|
000005A0: 53 57 45 52 5D 0D 20 50  52 49 4E 54 20 28 20 53  |SWER]. PRINT ( S|
000005B0: 45 20 5B 49 53 20 22 59  45 53 22 20 46 4F 52 5D  |E [IS "YES" FOR]|
000005C0: 20 41 44 44 2E 41 2E 4F  52 2E 41 4E 20 3A 52 49  | ADD.A.OR.AN :RI|
000005D0: 47 48 54 2E 41 4E 53 57  45 52 20 5B 41 4E 44 5D  |GHT.ANSWER [AND]|
000005E0: 20 29 0D 20 50 52 49 4E  54 20 28 20 53 45 20 5B  | ). PRINT ( SE [|
000005F0: 22 4E 4F 22 20 46 4F 52  5D 20 41 44 44 2E 41 2E  |"NO" FOR] ADD.A.|
00000600: 4F 52 2E 41 4E 20 3A 57  52 4F 4E 47 2E 41 4E 53  |OR.AN :WRONG.ANS|
00000610: 57 45 52 20 29 0D 20 4D  41 4B 45 20 22 51 55 45  |WER ). MAKE "QUE|
00000620: 53 54 49 4F 4E 20 52 45  51 55 45 53 54 0D 20 45  |STION REQUEST. E|
00000630: 58 50 41 4E 44 2E 4B 4E  4F 57 4C 45 44 47 45 20  |XPAND.KNOWLEDGE |
00000640: 3A 51 55 45 53 54 49 4F  4E 20 3A 52 49 47 48 54  |:QUESTION :RIGHT|
00000650: 2E 41 4E 53 57 45 52 20  3A 57 52 4F 4E 47 2E 41  |.ANSWER :WRONG.A|
00000660: 4E 53 57 45 52 0D 45 4E  44 0D 0D 54 4F 20 41 44  |NSWER.END..TO AD|
00000670: 44 2E 41 2E 4F 52 2E 41  4E 20 3A 57 4F 52 44 0D  |D.A.OR.AN :WORD.|
00000680: 20 54 45 53 54 20 4D 45  4D 42 45 52 3F 20 28 20  | TEST MEMBER? ( |
00000690: 46 49 52 53 54 20 3A 57  4F 52 44 20 29 20 5B 41  |FIRST :WORD ) [A|
000006A0: 20 45 20 49 20 4F 20 55  5D 0D 20 49 46 54 52 55  | E I O U]. IFTRU|
000006B0: 45 20 4F 55 54 50 55 54  20 53 45 4E 54 45 4E 43  |E OUTPUT SENTENC|
000006C0: 45 20 22 41 4E 20 3A 57  4F 52 44 0D 20 49 46 46  |E "AN :WORD. IFF|
000006D0: 41 4C 53 45 20 4F 55 54  50 55 54 20 53 45 4E 54  |ALSE OUTPUT SENT|
000006E0: 45 4E 43 45 20 22 41 20  3A 57 4F 52 44 0D 45 4E  |ENCE "A :WORD.EN|
000006F0: 44 0D 0D 54 4F 20 49 4E  49 54 49 41 4C 49 5A 45  |D..TO INITIALIZE|
00000700: 2E 4B 4E 4F 57 4C 45 44  47 45 0D 20 4D 41 4B 45  |.KNOWLEDGE. MAKE|
00000710: 20 22 4B 4E 4F 57 4C 45  44 47 45 20 22 46 49 53  | "KNOWLEDGE "FIS|
00000720: 48 0D 45 4E 44 0D 0D 54  4F 20 41 4E 49 4D 41 4C  |H.END..TO ANIMAL|
00000730: 0D 20 4E 44 0D 20 50 52  49 4E 54 20 5B 54 48 49  |. ND. PRINT [THI|
00000740: 4E 4B 20 4F 46 20 41 4E  20 41 4E 49 4D 41 4C 2E  |NK OF AN ANIMAL.|
00000750: 20 49 20 57 49 4C 4C 5D  0D 20 50 52 49 4E 54 20  | I WILL]. PRINT |
00000760: 5B 54 52 59 20 54 4F 20  47 55 45 53 53 20 49 54  |[TRY TO GUESS IT|
00000770: 20 42 59 20 41 53 4B 49  4E 47 20 51 55 45 53 54  | BY ASKING QUEST|
00000780: 49 4F 4E 53 2E 5D 0D 20  50 52 49 4E 54 20 5B 5D  |IONS.]. PRINT []|
00000790: 0D 20 47 55 45 53 53 20  3A 4B 4E 4F 57 4C 45 44  |. GUESS :KNOWLED|
000007A0: 47 45 0D 20 50 52 49 4E  54 20 5B 4C 45 54 27 53  |GE. PRINT [LET'S|
000007B0: 20 54 52 59 20 41 47 41  49 4E 5D 0D 20 57 41 49  | TRY AGAIN]. WAI|
000007C0: 54 20 31 30 30 30 0D 20  41 4E 49 4D 41 4C 0D 45  |T 1000. ANIMAL.E|
000007D0: 4E 44 0D 0D 4D 41 4B 45  20 22 4B 4E 4F 57 4C 45  |ND..MAKE "KNOWLE|
000007E0: 44 47 45 20 5B 5B 44 4F  45 53 20 49 54 20 48 41  |DGE [[DOES IT HA|
000007F0: 56 45 20 46 4F 55 52 20  4C 45 47 53 3F 5D 20 5B  |VE FOUR LEGS?] [|
00000800: 5B 44 4F 45 53 20 49 54  20 47 4F 20 4D 4F 4F 3F  |[DOES IT GO MOO?|
00000810: 5D 20 43 4F 57 20 5B 5B  44 4F 45 53 20 49 54 20  |] COW [[DOES IT |
00000820: 57 48 49 4E 4E 59 3F 5D  20 48 4F 52 53 45 20 50  |WHINNY?] HORSE P|
00000830: 49 47 5D 5D 20 5B 5B 44  4F 45 53 20 49 54 20 48  |IG]] [[DOES IT H|
00000840: 41 56 45 20 43 4C 41 57  53 3F 5D 20 4C 4F 42 53  |AVE CLAWS?] LOBS|
00000850: 54 45 52 20 5B 5B 43 41  4E 20 49 54 20 52 55 4E  |TER [[CAN IT RUN|
00000860: 3F 5D 20 4F 53 54 52 49  43 48 20 46 49 53 48 5D  |?] OSTRICH FISH]|
00000870: 5D 5D 0D 4D 41 4B 45 20  22 53 54 41 52 54 55 50  |]].MAKE "STARTUP|
00000880: 20 5B 41 4E 49 4D 41 4C  5D 0D                    | [ANIMAL].      |

. TO GUESS :CHOICES. IF ( WORD? :CHOICES
 ) FINAL.GUESS :CHOICES STOP. LOCAL "RES
PONSE. MAKE "RESPONSE ASK.YES.OR.NO ( QU
ESTION :CHOICES ). IF :RESPONSE = [YES] 
GUESS YES.BRANCH :CHOICES STOP. GUESS NO
.BRANCH :CHOICES.END..TO FINAL.GUESS :CH
OICE. LOCAL "FINAL.QUESTION. LOCAL "RESP
ONSE. MAKE "FINAL.QUESTION ( SE [IS IT] 
ADD.A.OR.AN :CHOICE [?] ). MAKE "RESPONS
E ASK.YES.OR.NO :FINAL.QUESTION. IF :RES
PONSE = [YES] PRINT [LOOK HOW SMART I AM
!] STOP. GET.SMARTER :CHOICE.END..TO ASK
.YES.OR.NO :QUESTION. LOCAL "ANSWER. PRI
NT1 :QUESTION. IF "? = LAST LAST :QUESTI
ON PRINT [] ELSE PRINT "?. MAKE "ANSWER 
REQUEST. IF :ANSWER = [YES] OUTPUT [YES]
. IF :ANSWER = [NO] OUTPUT [NO]. PRINT [
PLEASE TYPE "YES" OR "NO"]. OUTPUT ASK.Y
ES.OR.NO :QUESTION.END..TO WAIT :N. REPE
AT :N [].END..TO NO.BRANCH :TREE. OUTPUT
 LAST :TREE.END..TO YES.BRANCH :TREE. OU
TPUT FIRST BUTFIRST :TREE.END..TO REPLAC
E :DATA :WORD :NEW.BRANCH. IF :DATA = :W
ORD OP :NEW.BRANCH. IF WORD? :DATA OP :D
ATA. OP ( LIST QUESTION :DATA REPLACE YE
S.BRANCH :DATA :WORD :NEW.BRANCH REPLACE
 NO.BRANCH :DATA :WORD :NEW.BRANCH ).END
..TO EXPAND.KNOWLEDGE :NEW.QUESTION :YES
.ANSWER :NO.ANSWER. MAKE "KNOWLEDGE REPL
ACE :KNOWLEDGE :WRONG.ANSWER ( LIST :NEW
.QUESTION :RIGHT.ANSWER :WRONG.ANSWER ).
END..TO QUESTION :TREE. OUTPUT FIRST :TR
EE.END..TO GET.SMARTER :WRONG.ANSWER. PR
INT [OH WELL, I WAS WRONG. WHAT WAS IT?]
. MAKE "RIGHT.ANSWER ( LAST REQUEST ). P
RINT [PLEASE TYPE IN A QUESTION WHOSE AN
SWER]. PRINT ( SE [IS "YES" FOR] ADD.A.O
R.AN :RIGHT.ANSWER [AND] ). PRINT ( SE [
"NO" FOR] ADD.A.OR.AN :WRONG.ANSWER ). M
AKE "QUESTION REQUEST. EXPAND.KNOWLEDGE 
:QUESTION :RIGHT.ANSWER :WRONG.ANSWER.EN
D..TO ADD.A.OR.AN :WORD. TEST MEMBER? ( 
FIRST :WORD ) [A E I O U]. IFTRUE OUTPUT
 SENTENCE "AN :WORD. IFFALSE OUTPUT SENT
ENCE "A :WORD.END..TO INITIALIZE.KNOWLED
GE. MAKE "KNOWLEDGE "FISH.END..TO ANIMAL
. ND. PRINT [THINK OF AN ANIMAL. I WILL]
. PRINT [TRY TO GUESS IT BY ASKING QUEST
IONS.]. PRINT []. GUESS :KNOWLEDGE. PRIN
T [LET'S TRY AGAIN]. WAIT 1000. ANIMAL.E
ND..MAKE "KNOWLEDGE [[DOES IT HAVE FOUR 
LEGS?] [[DOES IT GO MOO?] COW [[DOES IT 
WHINNY?] HORSE PIG]] [[DOES IT HAVE CLAW
S?] LOBSTER [[CAN IT RUN?] OSTRICH FISH]
]].MAKE "STARTUP [ANIMAL].

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL