LG-ANIMAL

FILE INFORMATION

FILENAME(S): LG-ANIMAL

FILE TYPE(S): PRG

FILE SIZE: 2.1K

FIRST SEEN: 2025-11-30 21:14:31

APPEARS ON: 1 disk(s)

FILE HASH

926ec09f0b381aea077344293805951784967eb4e34660dc2593cfb10a95285f

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOGO FILES	LG-ANIMAL	PRG	DuncanTwain	15	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 41 4E 49  4D 41 4C 0D 20 4E 44 0D  |. TO ANIMAL. ND.|
00000010: 20 50 52 49 4E 54 20 5B  54 48 49 4E 4B 20 4F 46  | PRINT [THINK OF|
00000020: 20 41 4E 20 41 4E 49 4D  41 4C 2E 20 49 20 57 49  | AN ANIMAL. I WI|
00000030: 4C 4C 5D 0D 20 50 52 49  4E 54 20 5B 54 52 59 20  |LL]. PRINT [TRY |
00000040: 54 4F 20 47 55 45 53 53  20 49 54 20 42 59 20 41  |TO GUESS IT BY A|
00000050: 53 4B 49 4E 47 20 51 55  45 53 54 49 4F 4E 53 2E  |SKING QUESTIONS.|
00000060: 5D 0D 20 50 52 49 4E 54  20 5B 5D 0D 20 47 55 45  |]. PRINT []. GUE|
00000070: 53 53 20 3A 4B 4E 4F 57  4C 45 44 47 45 0D 20 50  |SS :KNOWLEDGE. P|
00000080: 52 49 4E 54 20 5B 4C 45  54 27 53 20 54 52 59 20  |RINT [LET'S TRY |
00000090: 41 47 41 49 4E 5D 0D 20  57 41 49 54 20 31 30 30  |AGAIN]. WAIT 100|
000000A0: 30 0D 20 41 4E 49 4D 41  4C 0D 45 4E 44 0D 0D 54  |0. ANIMAL.END..T|
000000B0: 4F 20 49 4E 49 54 49 41  4C 49 5A 45 2E 4B 4E 4F  |O INITIALIZE.KNO|
000000C0: 57 4C 45 44 47 45 0D 20  4D 41 4B 45 20 22 4B 4E  |WLEDGE. MAKE "KN|
000000D0: 4F 57 4C 45 44 47 45 20  22 46 49 53 48 0D 45 4E  |OWLEDGE "FISH.EN|
000000E0: 44 0D 0D 54 4F 20 45 58  50 41 4E 44 2E 4B 4E 4F  |D..TO EXPAND.KNO|
000000F0: 57 4C 45 44 47 45 20 3A  4E 45 57 2E 51 55 45 53  |WLEDGE :NEW.QUES|
00000100: 54 49 4F 4E 20 3A 59 45  53 2E 41 4E 53 57 45 52  |TION :YES.ANSWER|
00000110: 20 3A 4E 4F 2E 41 4E 53  57 45 52 0D 20 4D 41 4B  | :NO.ANSWER. MAK|
00000120: 45 20 22 4B 4E 4F 57 4C  45 44 47 45 20 52 45 50  |E "KNOWLEDGE REP|
00000130: 4C 41 43 45 20 3A 4B 4E  4F 57 4C 45 44 47 45 20  |LACE :KNOWLEDGE |
00000140: 3A 57 52 4F 4E 47 2E 41  4E 53 57 45 52 20 28 20  |:WRONG.ANSWER ( |
00000150: 4C 49 53 54 20 3A 4E 45  57 2E 51 55 45 53 54 49  |LIST :NEW.QUESTI|
00000160: 4F 4E 20 3A 52 49 47 48  54 2E 41 4E 53 57 45 52  |ON :RIGHT.ANSWER|
00000170: 20 3A 57 52 4F 4E 47 2E  41 4E 53 57 45 52 20 29  | :WRONG.ANSWER )|
00000180: 0D 45 4E 44 0D 0D 54 4F  20 52 45 50 4C 41 43 45  |.END..TO REPLACE|
00000190: 20 3A 44 41 54 41 20 3A  57 4F 52 44 20 3A 4E 45  | :DATA :WORD :NE|
000001A0: 57 2E 42 52 41 4E 43 48  0D 20 49 46 20 3A 44 41  |W.BRANCH. IF :DA|
000001B0: 54 41 20 3D 20 3A 57 4F  52 44 20 4F 50 20 3A 4E  |TA = :WORD OP :N|
000001C0: 45 57 2E 42 52 41 4E 43  48 0D 20 49 46 20 57 4F  |EW.BRANCH. IF WO|
000001D0: 52 44 3F 20 3A 44 41 54  41 20 4F 50 20 3A 44 41  |RD? :DATA OP :DA|
000001E0: 54 41 0D 20 4F 50 20 28  20 4C 49 53 54 20 51 55  |TA. OP ( LIST QU|
000001F0: 45 53 54 49 4F 4E 20 3A  44 41 54 41 20 52 45 50  |ESTION :DATA REP|
00000200: 4C 41 43 45 20 59 45 53  2E 42 52 41 4E 43 48 20  |LACE YES.BRANCH |
00000210: 3A 44 41 54 41 20 3A 57  4F 52 44 20 3A 4E 45 57  |:DATA :WORD :NEW|
00000220: 2E 42 52 41 4E 43 48 20  52 45 50 4C 41 43 45 20  |.BRANCH REPLACE |
00000230: 4E 4F 2E 42 52 41 4E 43  48 20 3A 44 41 54 41 20  |NO.BRANCH :DATA |
00000240: 3A 57 4F 52 44 20 3A 4E  45 57 2E 42 52 41 4E 43  |:WORD :NEW.BRANC|
00000250: 48 20 29 0D 45 4E 44 0D  0D 54 4F 20 57 41 49 54  |H ).END..TO WAIT|
00000260: 20 3A 4E 0D 20 52 45 50  45 41 54 20 3A 4E 20 5B  | :N. REPEAT :N [|
00000270: 5D 0D 45 4E 44 0D 0D 54  4F 20 47 45 54 2E 53 4D  |].END..TO GET.SM|
00000280: 41 52 54 45 52 20 3A 57  52 4F 4E 47 2E 41 4E 53  |ARTER :WRONG.ANS|
00000290: 57 45 52 0D 20 50 52 49  4E 54 20 5B 4F 48 20 57  |WER. PRINT [OH W|
000002A0: 45 4C 4C 2C 20 49 20 57  41 53 20 57 52 4F 4E 47  |ELL, I WAS WRONG|
000002B0: 2E 20 57 48 41 54 20 57  41 53 20 49 54 3F 5D 0D  |. WHAT WAS IT?].|
000002C0: 20 4D 41 4B 45 20 22 52  49 47 48 54 2E 41 4E 53  | MAKE "RIGHT.ANS|
000002D0: 57 45 52 20 28 20 4C 41  53 54 20 52 45 51 55 45  |WER ( LAST REQUE|
000002E0: 53 54 20 29 0D 20 50 52  49 4E 54 20 5B 50 4C 45  |ST ). PRINT [PLE|
000002F0: 41 53 45 20 54 59 50 45  20 49 4E 20 41 20 51 55  |ASE TYPE IN A QU|
00000300: 45 53 54 49 4F 4E 20 57  48 4F 53 45 20 41 4E 53  |ESTION WHOSE ANS|
00000310: 57 45 52 5D 0D 20 50 52  49 4E 54 20 28 20 53 45  |WER]. PRINT ( SE|
00000320: 20 5B 49 53 20 22 59 45  53 22 20 46 4F 52 5D 20  | [IS "YES" FOR] |
00000330: 41 44 44 2E 41 2E 4F 52  2E 41 4E 20 3A 52 49 47  |ADD.A.OR.AN :RIG|
00000340: 48 54 2E 41 4E 53 57 45  52 20 5B 41 4E 44 5D 20  |HT.ANSWER [AND] |
00000350: 29 0D 20 50 52 49 4E 54  20 28 20 53 45 20 5B 22  |). PRINT ( SE ["|
00000360: 4E 4F 22 20 46 4F 52 5D  20 41 44 44 2E 41 2E 4F  |NO" FOR] ADD.A.O|
00000370: 52 2E 41 4E 20 3A 57 52  4F 4E 47 2E 41 4E 53 57  |R.AN :WRONG.ANSW|
00000380: 45 52 20 29 0D 20 4D 41  4B 45 20 22 51 55 45 53  |ER ). MAKE "QUES|
00000390: 54 49 4F 4E 20 52 45 51  55 45 53 54 0D 20 45 58  |TION REQUEST. EX|
000003A0: 50 41 4E 44 2E 4B 4E 4F  57 4C 45 44 47 45 20 3A  |PAND.KNOWLEDGE :|
000003B0: 51 55 45 53 54 49 4F 4E  20 3A 52 49 47 48 54 2E  |QUESTION :RIGHT.|
000003C0: 41 4E 53 57 45 52 20 3A  57 52 4F 4E 47 2E 41 4E  |ANSWER :WRONG.AN|
000003D0: 53 57 45 52 0D 45 4E 44  0D 0D 54 4F 20 41 44 44  |SWER.END..TO ADD|
000003E0: 2E 41 2E 4F 52 2E 41 4E  20 3A 57 4F 52 44 0D 20  |.A.OR.AN :WORD. |
000003F0: 54 45 53 54 20 4D 45 4D  42 45 52 3F 20 28 20 46  |TEST MEMBER? ( F|
00000400: 49 52 53 54 20 3A 57 4F  52 44 20 29 20 5B 41 20  |IRST :WORD ) [A |
00000410: 45 20 49 20 4F 20 55 5D  0D 20 49 46 54 52 55 45  |E I O U]. IFTRUE|
00000420: 20 4F 55 54 50 55 54 20  53 45 4E 54 45 4E 43 45  | OUTPUT SENTENCE|
00000430: 20 22 41 4E 20 3A 57 4F  52 44 0D 20 49 46 46 41  | "AN :WORD. IFFA|
00000440: 4C 53 45 20 4F 55 54 50  55 54 20 53 45 4E 54 45  |LSE OUTPUT SENTE|
00000450: 4E 43 45 20 22 41 20 3A  57 4F 52 44 0D 45 4E 44  |NCE "A :WORD.END|
00000460: 0D 0D 54 4F 20 4E 4F 2E  42 52 41 4E 43 48 20 3A  |..TO NO.BRANCH :|
00000470: 54 52 45 45 0D 20 4F 55  54 50 55 54 20 4C 41 53  |TREE. OUTPUT LAS|
00000480: 54 20 3A 54 52 45 45 0D  45 4E 44 0D 0D 54 4F 20  |T :TREE.END..TO |
00000490: 59 45 53 2E 42 52 41 4E  43 48 20 3A 54 52 45 45  |YES.BRANCH :TREE|
000004A0: 0D 20 4F 55 54 50 55 54  20 46 49 52 53 54 20 42  |. OUTPUT FIRST B|
000004B0: 55 54 46 49 52 53 54 20  3A 54 52 45 45 0D 45 4E  |UTFIRST :TREE.EN|
000004C0: 44 0D 0D 54 4F 20 51 55  45 53 54 49 4F 4E 20 3A  |D..TO QUESTION :|
000004D0: 54 52 45 45 0D 20 4F 55  54 50 55 54 20 46 49 52  |TREE. OUTPUT FIR|
000004E0: 53 54 20 3A 54 52 45 45  0D 45 4E 44 0D 0D 54 4F  |ST :TREE.END..TO|
000004F0: 20 41 53 4B 2E 59 45 53  2E 4F 52 2E 4E 4F 20 3A  | ASK.YES.OR.NO :|
00000500: 51 55 45 53 54 49 4F 4E  0D 20 4C 4F 43 41 4C 20  |QUESTION. LOCAL |
00000510: 22 41 4E 53 57 45 52 0D  20 50 52 49 4E 54 31 20  |"ANSWER. PRINT1 |
00000520: 3A 51 55 45 53 54 49 4F  4E 0D 20 49 46 20 22 3F  |:QUESTION. IF "?|
00000530: 20 3D 20 4C 41 53 54 20  4C 41 53 54 20 3A 51 55  | = LAST LAST :QU|
00000540: 45 53 54 49 4F 4E 20 50  52 49 4E 54 20 5B 5D 20  |ESTION PRINT [] |
00000550: 45 4C 53 45 20 50 52 49  4E 54 20 22 3F 0D 20 4D  |ELSE PRINT "?. M|
00000560: 41 4B 45 20 22 41 4E 53  57 45 52 20 52 45 51 55  |AKE "ANSWER REQU|
00000570: 45 53 54 0D 20 49 46 20  3A 41 4E 53 57 45 52 20  |EST. IF :ANSWER |
00000580: 3D 20 5B 59 45 53 5D 20  4F 55 54 50 55 54 20 5B  |= [YES] OUTPUT [|
00000590: 59 45 53 5D 0D 20 49 46  20 3A 41 4E 53 57 45 52  |YES]. IF :ANSWER|
000005A0: 20 3D 20 5B 4E 4F 5D 20  4F 55 54 50 55 54 20 5B  | = [NO] OUTPUT [|
000005B0: 4E 4F 5D 0D 20 50 52 49  4E 54 20 5B 50 4C 45 41  |NO]. PRINT [PLEA|
000005C0: 53 45 20 54 59 50 45 20  22 59 45 53 22 20 4F 52  |SE TYPE "YES" OR|
000005D0: 20 22 4E 4F 22 5D 0D 20  4F 55 54 50 55 54 20 41  | "NO"]. OUTPUT A|
000005E0: 53 4B 2E 59 45 53 2E 4F  52 2E 4E 4F 20 3A 51 55  |SK.YES.OR.NO :QU|
000005F0: 45 53 54 49 4F 4E 0D 45  4E 44 0D 0D 54 4F 20 46  |ESTION.END..TO F|
00000600: 49 4E 41 4C 2E 47 55 45  53 53 20 3A 43 48 4F 49  |INAL.GUESS :CHOI|
00000610: 43 45 0D 20 4C 4F 43 41  4C 20 22 46 49 4E 41 4C  |CE. LOCAL "FINAL|
00000620: 2E 51 55 45 53 54 49 4F  4E 0D 20 4C 4F 43 41 4C  |.QUESTION. LOCAL|
00000630: 20 22 52 45 53 50 4F 4E  53 45 0D 20 4D 41 4B 45  | "RESPONSE. MAKE|
00000640: 20 22 46 49 4E 41 4C 2E  51 55 45 53 54 49 4F 4E  | "FINAL.QUESTION|
00000650: 20 28 20 53 45 20 5B 49  53 20 49 54 5D 20 41 44  | ( SE [IS IT] AD|
00000660: 44 2E 41 2E 4F 52 2E 41  4E 20 3A 43 48 4F 49 43  |D.A.OR.AN :CHOIC|
00000670: 45 20 5B 3F 5D 20 29 0D  20 4D 41 4B 45 20 22 52  |E [?] ). MAKE "R|
00000680: 45 53 50 4F 4E 53 45 20  41 53 4B 2E 59 45 53 2E  |ESPONSE ASK.YES.|
00000690: 4F 52 2E 4E 4F 20 3A 46  49 4E 41 4C 2E 51 55 45  |OR.NO :FINAL.QUE|
000006A0: 53 54 49 4F 4E 0D 20 49  46 20 3A 52 45 53 50 4F  |STION. IF :RESPO|
000006B0: 4E 53 45 20 3D 20 5B 59  45 53 5D 20 50 52 49 4E  |NSE = [YES] PRIN|
000006C0: 54 20 5B 4C 4F 4F 4B 20  48 4F 57 20 53 4D 41 52  |T [LOOK HOW SMAR|
000006D0: 54 20 49 20 41 4D 21 5D  20 53 54 4F 50 0D 20 47  |T I AM!] STOP. G|
000006E0: 45 54 2E 53 4D 41 52 54  45 52 20 3A 43 48 4F 49  |ET.SMARTER :CHOI|
000006F0: 43 45 0D 45 4E 44 0D 0D  54 4F 20 47 55 45 53 53  |CE.END..TO GUESS|
00000700: 20 3A 43 48 4F 49 43 45  53 0D 20 49 46 20 28 20  | :CHOICES. IF ( |
00000710: 57 4F 52 44 3F 20 3A 43  48 4F 49 43 45 53 20 29  |WORD? :CHOICES )|
00000720: 20 46 49 4E 41 4C 2E 47  55 45 53 53 20 3A 43 48  | FINAL.GUESS :CH|
00000730: 4F 49 43 45 53 20 53 54  4F 50 0D 20 4C 4F 43 41  |OICES STOP. LOCA|
00000740: 4C 20 22 52 45 53 50 4F  4E 53 45 0D 20 4D 41 4B  |L "RESPONSE. MAK|
00000750: 45 20 22 52 45 53 50 4F  4E 53 45 20 41 53 4B 2E  |E "RESPONSE ASK.|
00000760: 59 45 53 2E 4F 52 2E 4E  4F 20 28 20 51 55 45 53  |YES.OR.NO ( QUES|
00000770: 54 49 4F 4E 20 3A 43 48  4F 49 43 45 53 20 29 0D  |TION :CHOICES ).|
00000780: 20 49 46 20 3A 52 45 53  50 4F 4E 53 45 20 3D 20  | IF :RESPONSE = |
00000790: 5B 59 45 53 5D 20 47 55  45 53 53 20 59 45 53 2E  |[YES] GUESS YES.|
000007A0: 42 52 41 4E 43 48 20 3A  43 48 4F 49 43 45 53 20  |BRANCH :CHOICES |
000007B0: 53 54 4F 50 0D 20 47 55  45 53 53 20 4E 4F 2E 42  |STOP. GUESS NO.B|
000007C0: 52 41 4E 43 48 20 3A 43  48 4F 49 43 45 53 0D 45  |RANCH :CHOICES.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 ANIMAL. ND. PRINT [THINK OF AN ANIM
AL. I WILL]. PRINT [TRY TO GUESS IT BY A
SKING QUESTIONS.]. PRINT []. GUESS :KNOW
LEDGE. PRINT [LET'S TRY AGAIN]. WAIT 100
0. ANIMAL.END..TO INITIALIZE.KNOWLEDGE. 
MAKE "KNOWLEDGE "FISH.END..TO EXPAND.KNO
WLEDGE :NEW.QUESTION :YES.ANSWER :NO.ANS
WER. MAKE "KNOWLEDGE REPLACE :KNOWLEDGE 
:WRONG.ANSWER ( LIST :NEW.QUESTION :RIGH
T.ANSWER :WRONG.ANSWER ).END..TO REPLACE
 :DATA :WORD :NEW.BRANCH. IF :DATA = :WO
RD OP :NEW.BRANCH. IF WORD? :DATA OP :DA
TA. OP ( LIST QUESTION :DATA REPLACE YES
.BRANCH :DATA :WORD :NEW.BRANCH REPLACE 
NO.BRANCH :DATA :WORD :NEW.BRANCH ).END.
.TO WAIT :N. REPEAT :N [].END..TO GET.SM
ARTER :WRONG.ANSWER. PRINT [OH WELL, I W
AS WRONG. WHAT WAS IT?]. MAKE "RIGHT.ANS
WER ( LAST REQUEST ). PRINT [PLEASE TYPE
 IN A QUESTION WHOSE ANSWER]. PRINT ( SE
 [IS "YES" FOR] ADD.A.OR.AN :RIGHT.ANSWE
R [AND] ). PRINT ( SE ["NO" FOR] ADD.A.O
R.AN :WRONG.ANSWER ). MAKE "QUESTION REQ
UEST. EXPAND.KNOWLEDGE :QUESTION :RIGHT.
ANSWER :WRONG.ANSWER.END..TO ADD.A.OR.AN
 :WORD. TEST MEMBER? ( FIRST :WORD ) [A 
E I O U]. IFTRUE OUTPUT SENTENCE "AN :WO
RD. IFFALSE OUTPUT SENTENCE "A :WORD.END
..TO NO.BRANCH :TREE. OUTPUT LAST :TREE.
END..TO YES.BRANCH :TREE. OUTPUT FIRST B
UTFIRST :TREE.END..TO QUESTION :TREE. OU
TPUT FIRST :TREE.END..TO ASK.YES.OR.NO :
QUESTION. LOCAL "ANSWER. PRINT1 :QUESTIO
N. IF "? = LAST LAST :QUESTION PRINT [] 
ELSE PRINT "?. MAKE "ANSWER REQUEST. IF 
:ANSWER = [YES] OUTPUT [YES]. IF :ANSWER
 = [NO] OUTPUT [NO]. PRINT [PLEASE TYPE 
"YES" OR "NO"]. OUTPUT ASK.YES.OR.NO :QU
ESTION.END..TO FINAL.GUESS :CHOICE. LOCA
L "FINAL.QUESTION. LOCAL "RESPONSE. MAKE
 "FINAL.QUESTION ( SE [IS IT] ADD.A.OR.A
N :CHOICE [?] ). MAKE "RESPONSE ASK.YES.
OR.NO :FINAL.QUESTION. IF :RESPONSE = [Y
ES] PRINT [LOOK HOW SMART I AM!] STOP. G
ET.SMARTER :CHOICE.END..TO GUESS :CHOICE
S. IF ( WORD? :CHOICES ) FINAL.GUESS :CH
OICES STOP. LOCAL "RESPONSE. MAKE "RESPO
NSE ASK.YES.OR.NO ( QUESTION :CHOICES ).
 IF :RESPONSE = [YES] GUESS YES.BRANCH :
CHOICES STOP. GUESS NO.BRANCH :CHOICES.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