ANIMAL
FILE INFORMATION
FILENAME(S): ANIMAL
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-10-19 22:49:26
APPEARS ON: 1 disk(s)
FILE HASH
dbb2c086279f27378d4080d4ead7b131f44835ddf59b5abaf6ececcf185d9fbf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES 21 | ANIMAL | PRG | Radd Maxx | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 10 0F 10 00 00 97 33 36 38 37 39 2C 32 37 00 |.......36879,27.|
00000010: 28 10 0A 00 99 22 93 22 3A 99 A3 37 29 3B 22 12 |(....".":..7);".|
00000020: 1F 41 4E 49 4D 41 4C 22 00 54 10 14 00 99 3A 99 |.ANIMAL".T....:.|
00000030: 3A 99 22 50 4C 41 59 20 27 47 55 45 53 53 20 54 |:."PLAY 'GUESS T|
00000040: 48 45 20 20 20 20 20 20 20 41 4E 49 4D 41 4C 20 |HE ANIMAL |
00000050: 21 22 3A 99 00 98 10 1E 00 99 22 54 48 49 4E 4B |!":......."THINK|
00000060: 20 4F 46 20 41 4E 20 41 4E 49 4D 41 4C 20 20 20 | OF AN ANIMAL |
00000070: 20 41 4E 44 20 54 48 45 20 43 4F 4D 50 55 54 45 | AND THE COMPUTE|
00000080: 52 20 57 49 4C 4C 20 54 52 59 20 54 4F 20 47 55 |R WILL TRY TO GU|
00000090: 45 53 53 20 49 54 2E 22 00 9E 10 3C 00 99 00 AC |ESS IT."...<....|
000000A0: 10 46 00 86 20 41 24 28 32 30 30 29 00 BA 10 50 |.F.. A$(200)...P|
000000B0: 00 81 20 49 B2 30 20 A4 20 33 00 C6 10 5A 00 87 |.. I.0 . 3...Z..|
000000C0: 20 41 24 28 49 29 00 CE 10 64 00 82 20 49 00 DD | A$(I)...d.. I..|
000000D0: 10 6E 00 4E B2 C5 28 41 24 28 30 29 29 00 F6 10 |.n.N..(A$(0))...|
000000E0: 78 00 8F 20 4D 41 49 4E 20 43 4F 4E 54 52 20 53 |x.. MAIN CONTR S|
000000F0: 45 43 54 49 4F 4E 00 1E 11 82 00 99 20 22 41 52 |ECTION...... "AR|
00000100: 45 20 59 4F 55 20 54 48 49 4E 4B 49 4E 47 20 4F |E YOU THINKING O|
00000110: 46 20 20 20 41 4E 20 41 4E 49 4D 41 4C 22 00 27 |F AN ANIMAL".'|
00000120: 11 83 00 85 20 41 24 00 3D 11 8C 00 8B 20 41 24 |.... A$.=.... A$|
00000130: B2 22 4C 49 53 54 22 20 A7 20 36 30 30 00 56 11 |."LIST" . 600.V.|
00000140: 96 00 8B 20 C8 28 41 24 2C 31 29 B3 B1 22 59 22 |... .(A$,1).."Y"|
00000150: 20 A7 20 31 32 30 00 5E 11 A0 00 4B B2 31 00 68 | . 120.^...K.1.h|
00000160: 11 AA 00 8D 20 33 39 30 00 7F 11 B4 00 8B 20 C3 |.... 390...... .|
00000170: 28 41 24 28 4B 29 29 B2 30 20 A7 20 39 39 39 00 |(A$(K)).0 . 999.|
00000180: 9B 11 BE 00 8B 20 C8 28 41 24 28 4B 29 2C 32 29 |..... .(A$(K),2)|
00000190: B2 22 CD 51 22 20 A7 20 31 37 30 00 C1 11 C8 00 |.".Q" . 170.....|
000001A0: 99 20 22 49 53 20 49 54 20 41 20 22 3B C9 28 41 |. "IS IT A ";.(A|
000001B0: 24 28 4B 29 2C C3 28 41 24 28 4B 29 29 AB 32 29 |$(K),.(A$(K)).2)|
000001C0: 3B 00 CA 11 D2 00 85 20 41 24 00 D9 11 DC 00 41 |;...... A$.....A|
000001D0: 24 B2 C8 28 41 24 2C 31 29 00 10 12 E6 00 8B 20 |$..(A$,1)...... |
000001E0: 41 24 B2 22 59 22 20 A7 20 99 20 22 57 48 59 20 |A$."Y" . . "WHY |
000001F0: 4E 4F 54 20 54 52 59 20 41 4E 4F 54 48 45 52 20 |NOT TRY ANOTHER |
00000200: 20 20 41 4E 49 4D 41 4C 3F 22 3A 89 20 31 32 30 | ANIMAL?":. 120|
00000210: 00 41 12 F0 00 99 20 22 54 48 45 20 41 4E 49 4D |.A.... "THE ANIM|
00000220: 41 4C 20 59 4F 55 20 57 45 52 45 20 20 20 54 48 |AL YOU WERE TH|
00000230: 49 4E 4B 49 4E 47 20 4F 46 20 57 41 53 20 41 20 |INKING OF WAS A |
00000240: 22 00 4A 12 F1 00 85 20 56 24 00 54 12 F2 00 99 |".J.... V$.T....|
00000250: 3A 99 3A 99 00 97 12 FA 00 99 22 50 4C 45 41 53 |:.:......."PLEAS|
00000260: 45 20 54 59 50 45 20 49 4E 20 41 20 20 20 20 20 |E TYPE IN A |
00000270: 20 51 55 45 53 54 49 4F 4E 20 54 48 41 54 20 57 | QUESTION THAT W|
00000280: 4F 55 4C 44 20 20 20 44 49 53 54 49 4E 47 55 49 |OULD DISTINGUI|
00000290: 53 48 20 41 20 22 3B 00 BF 12 04 01 99 20 56 24 |SH A ";...... V$|
000002A0: 3B 22 20 46 52 4F 4D 20 41 20 22 3B C9 28 41 24 |;" FROM A ";.(A$|
000002B0: 28 4B 29 2C C3 28 41 24 28 4B 29 29 AB 32 29 00 |(K),.(A$(K)).2).|
000002C0: C8 12 0E 01 85 20 58 24 00 F7 12 18 01 99 20 22 |..... X$...... "|
000002D0: 46 4F 52 20 41 20 22 3B 56 24 3B 22 20 54 48 45 |FOR A ";V$;" THE|
000002E0: 20 20 20 20 20 20 41 4E 53 57 45 52 20 57 4F 55 | ANSWER WOU|
000002F0: 4C 44 20 42 45 A0 22 00 00 13 22 01 85 20 41 24 |LD BE."...".. A$|
00000300: 00 28 13 2C 01 41 24 B2 C8 28 41 24 2C 31 29 3A |.(.,.A$..(A$,1):|
00000310: 8B 20 41 24 B3 B1 22 59 22 20 AF 41 24 B3 B1 22 |. A$.."Y" .A$.."|
00000320: 4E 22 20 A7 20 32 38 30 00 3E 13 36 01 8B 20 41 |N" . 280.>.6.. A|
00000330: 24 B2 22 59 22 20 A7 20 42 24 B2 22 4E 22 00 54 |$."Y" . B$."N".T|
00000340: 13 40 01 8B 20 41 24 B2 22 4E 22 20 A7 20 42 24 |.@.. A$."N" . B$|
00000350: B2 22 59 22 00 64 13 4A 01 5A 31 B2 C5 28 41 24 |."Y".d.J.Z1..(A$|
00000360: 28 30 29 29 00 76 13 54 01 41 24 28 30 29 B2 C4 |(0)).v.T.A$(0)..|
00000370: 28 5A 31 AA 32 29 00 87 13 5E 01 41 24 28 5A 31 |(Z1.2)...^.A$(Z1|
00000380: 29 B2 41 24 28 4B 29 00 9C 13 68 01 41 24 28 5A |).A$(K)...h.A$(Z|
00000390: 31 AA 31 29 B2 22 CD 41 22 AA 56 24 00 CE 13 72 |1.1).".A".V$...r|
000003A0: 01 41 24 28 4B 29 B2 22 CD 51 22 AA 58 24 AA 22 |.A$(K).".Q".X$."|
000003B0: CD 22 AA 41 24 AA C4 28 5A 31 AA 31 29 AA 22 CD |.".A$..(Z1.1).".|
000003C0: 22 AA 42 24 AA C4 28 5A 31 29 AA 22 CD 22 00 D8 |".B$..(Z1)."."..|
000003D0: 13 7C 01 89 20 31 32 30 00 FC 13 86 01 8F 20 53 |.|.. 120...... S|
000003E0: 55 42 52 4F 55 54 49 4E 45 20 54 4F 20 50 52 49 |UBROUTINE TO PRI|
000003F0: 4E 54 20 51 55 45 53 54 49 4F 4E 53 00 09 14 90 |NT QUESTIONS....|
00000400: 01 51 24 B2 41 24 28 4B 29 00 1B 14 9A 01 81 20 |.Q$.A$(K)...... |
00000410: 5A B2 33 20 A4 20 C3 28 51 24 29 00 43 14 9F 01 |Z.3 . .(Q$).C...|
00000420: 8B 20 CA 28 51 24 2C 5A 2C 31 29 B3 B1 22 CD 22 |. .(Q$,Z,1).."."|
00000430: 20 A7 20 99 20 CA 28 51 24 2C 5A 2C 31 29 3B 3A | . . .(Q$,Z,1);:|
00000440: 82 20 5A 00 4C 14 A4 01 85 20 43 24 00 5B 14 AE |. Z.L.... C$.[..|
00000450: 01 43 24 B2 C8 28 43 24 2C 31 29 00 79 14 B8 01 |.C$..(C$,1).y...|
00000460: 8B 20 43 24 B3 B1 22 59 22 20 AF 20 43 24 B3 B1 |. C$.."Y" . C$..|
00000470: 22 4E 22 20 A7 20 34 31 30 00 87 14 C2 01 54 24 |"N" . 410.....T$|
00000480: B2 22 CD 22 AA 43 24 00 9B 14 C7 01 81 20 58 B2 |.".".C$...... X.|
00000490: 33 20 A4 20 C3 28 51 24 29 AB 31 00 B4 14 CC 01 |3 . .(Q$).1.....|
000004A0: 8B 20 CA 28 51 24 2C 58 2C 32 29 B2 54 24 20 A7 |. .(Q$,X,2).T$ .|
000004B0: 20 34 38 30 00 BC 14 D6 01 82 20 58 00 C2 14 DB | 480...... X....|
000004C0: 01 90 00 D6 14 E0 01 81 20 59 B2 58 AA 31 20 A4 |........ Y.X.1 .|
000004D0: 20 C3 28 51 24 29 00 F0 14 EA 01 8B 20 CA 28 51 | .(Q$)...... .(Q|
000004E0: 24 2C 59 2C 31 29 B2 22 CD 22 20 A7 20 35 31 30 |$,Y,1)."." . 510|
000004F0: 00 F8 14 F4 01 82 20 59 00 FE 14 F9 01 90 00 17 |...... Y........|
00000500: 15 FE 01 4B B2 C5 28 CA 28 51 24 2C 58 AA 32 2C |...K..(.(Q$,X.2,|
00000510: 59 AB 58 AB 32 29 29 00 1D 15 08 02 8E 00 51 15 |Y.X.2)).......Q.|
00000520: 12 02 83 20 22 34 22 2C 22 CD 51 44 4F 45 53 20 |... "4",".QDOES |
00000530: 49 54 20 53 57 49 4D CD 59 32 CD 4E 33 CD 22 2C |IT SWIM.Y2.N3.",|
00000540: 22 CD 41 46 49 53 48 22 2C 22 CD 41 42 49 52 44 |".AFISH",".ABIRD|
00000550: 22 00 7B 15 58 02 99 3A 99 20 22 41 4E 49 4D 41 |".{.X..:. "ANIMA|
00000560: 4C 53 20 49 20 41 4C 52 45 41 44 59 20 20 20 20 |LS I ALREADY |
00000570: 20 4B 4E 4F 57 20 41 52 45 3A 22 00 83 15 5D 02 | KNOW ARE:"...].|
00000580: 58 B2 30 00 93 15 62 02 81 20 49 B2 31 20 A4 20 |X.0...b.. I.1 . |
00000590: 32 30 30 00 B0 15 6C 02 8B 20 C8 28 41 24 28 49 |200...l.. .(A$(I|
000005A0: 29 2C 32 29 B3 B1 22 CD 41 22 20 A7 20 36 35 30 |),2)..".A" . 650|
000005B0: 00 BD 15 70 02 99 A3 31 32 AC 58 29 3B 00 D2 15 |...p...12.X);...|
000005C0: 76 02 81 20 5A B2 33 20 A4 20 C3 28 41 24 28 49 |v.. Z.3 . .(A$(I|
000005D0: 29 29 00 00 16 80 02 8B 20 CA 28 41 24 28 49 29 |))...... .(A$(I)|
000005E0: 2C 5A 2C 31 29 B3 B1 22 CD 22 20 A7 20 99 20 CA |,Z,1).."." . . .|
000005F0: 28 41 24 28 49 29 2C 5A 2C 31 29 3B 3A 82 20 5A |(A$(I),Z,1);:. Z|
00000600: 00 18 16 85 02 58 B2 58 AA 31 3A 8B 20 58 B1 35 |.....X.X.1:. X.5|
00000610: 20 A7 20 58 B2 30 3A 99 00 20 16 8A 02 82 20 49 | . X.0:.. .... I|
00000620: 00 26 16 94 02 99 00 2C 16 9E 02 99 00 36 16 A8 |.&.....,.....6..|
00000630: 02 89 20 31 32 30 00 3C 16 E7 03 80 00 65 16 14 |.. 120.<.....e..|
00000640: 05 41 24 B2 C8 28 41 24 2C 31 29 3A 8B 20 41 24 |.A$..(A$,1):. A$|
00000650: B3 B1 22 59 22 20 AF 20 41 24 B3 B1 22 4E 22 20 |.."Y" . A$.."N" |
00000660: A7 20 32 38 30 00 6B 16 C3 05 90 00 71 16 E1 05 |. 280.k.....q...|
00000670: 90 00 00 00 AA AA AA 59 |.......Y |
.......36879,27.(....".":..7);"..ANIMAL"
.T....:.:."PLAY 'GUESS THE ANIMAL
!":......."THINK OF AN ANIMAL AND THE
COMPUTER WILL TRY TO GUESS IT."...<....
.F.. A$(200)...P.. I.0 . 3.F.Z.. A$(I).N
.D.. I...N.N.E(A$(0))...X.. MAIN CONTR S
ECTION...... "ARE YOU THINKING OF AN A
NIMAL".'.... A$.=.... A$."LIST" . 600.V.
... H(A$,1).."Y" . 120.^. .K.1.H.... 390
..... C(A$(K)).0 . 999...... H(A$(K),2)
."MQ" . 170.A.H.. "IS IT A ";I(A$(K),C(A
$(K)).2);.J.R.. A$.Y...A$.H(A$,1)......
A$."Y" . . "WHY NOT TRY ANOTHER ANIMAL
?":. 120.A.... "THE ANIMAL YOU WERE TH
INKING OF WAS A ".J.... V$.T....:.:.....
.."PLEASE TYPE IN A QUESTION THAT W
OULD DISTINGUISH A ";...... V$;" FROM
A ";I(A$(K),C(A$(K)).2).H.... X$...... "
FOR A ";V$;" THE ANSWER WOULD BE ".
..".. A$.(.,.A$.H(A$,1):. A$.."Y" .A$.."
N" . 280.>.6.. A$."Y" . B$."N".T.@.. A$.
"N" . B$."Y".D.J.Z1.E(A$(0)).V.T.A$(0).D
(Z1.2)...^.A$(Z1).A$(K)...H.A$(Z1.1)."MA
".V$.N.R.A$(K)."MQ".X$."M".A$.D(Z1.1)."M
".B$.D(Z1)."M".X.|.. 120...... SUBROUTIN
E TO PRINT QUESTIONS.....Q$.A$(K)......
Z.3 . C(Q$).C.... J(Q$,Z,1).."M" . . J(Q
$,Z,1);:. Z.L.... C$.[...C$.H(C$,1).Y...
. C$.."Y" . C$.."N" . 410...B.T$."M".C$.
..G.. X.3 . C(Q$).1...L.. J(Q$,X,2).T$ .
480...V.. X.B.....V.... Y.X.1 . C(Q$)..
.... J(Q$,Y,1)."M" . 510...... Y........
...K.E(J(Q$,X.2,Y.X.2)).......Q.... "4",
"MQDOES IT SWIMMY2MN3M","MAFISH","MABIRD
".{.X..:. "ANIMALS I ALREADY KNOW AR
E:"...].X.0...B.. I.1 . 200...L.. H(A$(I
),2).."MA" . 650...P...12.X);.R.V.. Z.3
. C(A$(I))...... J(A$(I),Z,1).."M" . . J
(A$(I),Z,1);:. Z.....X.X.1:. X.5 . X.0:.
. .... I.&.....,.....6.... 120.<.....E..
.A$.H(A$,1):. A$.."Y" . A$.."N" . 280.K.
C...Q..........Y
> CLICK IMAGE PREVIEW FOR FULL MODAL