ANIMAL
FILE INFORMATION
FILENAME(S): ANIMAL
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 21:07:27
APPEARS ON: 1 disk(s)
FILE HASH
421f777df03a034b88d8ba0574880e5c0c79eb2450377fc2ce80c6de5926ec65
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VCGN C 128 D0013 | ANIMAL | PRG | DuncanTwain | 30 | 14 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 10 0C 10 04 00 99 C7 28 31 34 29 00 2F 10 05 |........(14)./..|
00000010: 00 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000020: 1D 0D 10 C1 20 4E 20 49 20 4D 20 41 20 4C 22 00 |.... N I M A L".|
00000030: 4F 10 06 00 99 22 20 20 20 20 20 20 20 20 20 20 |O...." |
00000040: 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 00 | ...........".|
00000050: 74 10 07 00 99 3A 99 22 20 20 20 20 20 20 20 20 |t....:." |
00000060: 20 28 42 59 20 CD 49 4B 45 20 CC 49 45 42 45 52 | (BY .IKE .IEBER|
00000070: 4D 41 4E 29 00 98 10 08 00 85 22 20 11 11 11 20 |MAN)......" ... |
00000080: 20 20 C9 4E 53 54 52 55 43 54 49 4F 4E 53 20 28 | .NSTRUCTIONS (|
00000090: 59 2F 4E 29 22 3B 49 24 00 B0 10 09 00 8B C8 28 |Y/N)";I$.......(|
000000A0: 49 24 2C 31 29 B2 22 59 22 A7 8D 31 35 30 30 30 |I$,1)."Y"..15000|
000000B0: 00 BF 10 0A 00 56 24 B2 22 41 45 49 4F 55 22 00 |.....V$."AEIOU".|
000000C0: CD 10 32 00 97 35 33 32 38 30 2C 31 33 00 DB 10 |..2..53280,13...|
000000D0: 34 00 97 35 33 32 38 31 2C 31 36 00 FF 10 64 00 |4..53281,16...d.|
000000E0: 86 41 24 28 31 30 30 29 2C 59 28 31 30 30 29 2C |.A$(100),Y(100),|
000000F0: 4E 58 28 31 30 30 29 2C 51 24 28 31 30 30 29 00 |NX(100),Q$(100).|
00000100: 2A 11 6E 00 8F 3A 55 53 45 20 57 49 54 48 20 42 |*.n..:USE WITH B|
00000110: 41 53 49 43 34 2E 30 2D 2D 2D CD 23 33 33 2C 22 |ASIC4.0---.#33,"|
00000120: 51 55 45 53 54 49 4F 4E 53 22 00 49 11 73 00 9F |QUESTIONS".I.s..|
00000130: 20 33 33 2C 38 2C 35 2C 22 51 55 45 53 54 49 4F | 33,8,5,"QUESTIO|
00000140: 4E 53 2C 53 45 51 2C 52 22 00 66 11 74 00 9F 20 |NS,SEQ,R".f.t.. |
00000150: 33 34 2C 38 2C 36 2C 22 41 4E 53 57 45 52 53 2C |34,8,6,"ANSWERS,|
00000160: 53 45 51 2C 52 22 00 8F 11 78 00 8F 3A 55 53 45 |SEQ,R"...x..:USE|
00000170: 20 57 49 54 48 20 42 41 53 49 43 34 2E 30 2D 2D | WITH BASIC4.0--|
00000180: 2D CD 23 33 34 2C 22 41 4E 53 57 45 52 53 22 00 |-.#34,"ANSWERS".|
00000190: 99 11 7D 00 9F 20 34 2C 34 00 AB 11 82 00 81 20 |..}.. 4,4...... |
000001A0: 49 20 B2 20 31 20 A4 20 31 30 30 00 C4 11 8C 00 |I . 1 . 100.....|
000001B0: 84 33 33 2C 51 24 28 49 29 2C 59 28 49 29 2C 4E |.33,Q$(I),Y(I),N|
000001C0: 58 28 49 29 00 DF 11 96 00 8B 20 C8 28 51 24 28 |X(I)...... .(Q$(|
000001D0: 49 29 2C 31 29 B2 22 2A 22 20 A7 20 31 37 30 00 |I),1)."*" . 170.|
000001E0: 19 12 9B 00 98 34 2C 51 24 28 49 29 3B A6 35 30 |.....4,Q$(I);.50|
000001F0: AB C3 28 51 24 28 49 29 29 29 3B 59 28 49 29 2C |..(Q$(I)));Y(I),|
00000200: A6 28 59 28 49 29 B1 31 30 30 30 29 AC 28 33 29 |.(Y(I).1000).(3)|
00000210: AA 35 29 3B 4E 58 28 49 29 00 20 12 A0 00 82 49 |.5);NX(I). ....I|
00000220: 00 2D 12 A5 00 98 34 3A 98 34 3A 98 34 00 38 12 |.-....4:.4:.4.8.|
00000230: AA 00 4E 51 B2 49 AB 31 00 40 12 B4 00 A0 33 33 |..NQ.I.1.@....33|
00000240: 00 52 12 BE 00 81 20 49 20 B2 20 31 20 A4 20 31 |.R.... I . 1 . 1|
00000250: 30 30 00 60 12 C8 00 84 33 34 2C 41 24 28 49 29 |00.`....34,A$(I)|
00000260: 00 74 12 CD 00 98 34 2C 49 3B A6 31 30 29 3B 41 |.t....4,I;.10);A|
00000270: 24 28 49 29 00 90 12 D2 00 8B 20 C8 28 41 24 28 |$(I)...... .(A$(|
00000280: 49 29 2C 31 29 20 B2 20 22 2A 22 20 A7 32 33 30 |I),1) . "*" .230|
00000290: 00 98 12 DC 00 82 20 49 00 A3 12 E6 00 4E 41 B2 |...... I.....NA.|
000002A0: 49 AB 31 00 AA 12 EB 00 A0 34 00 B2 12 F0 00 A0 |I.1......4......|
000002B0: 33 34 00 BA 12 FA 00 51 B2 31 00 D5 12 04 01 99 |34.....Q.1......|
000002C0: 22 93 11 11 11 11 11 11 11 28 22 51 22 29 20 22 |"........("Q") "|
000002D0: 51 24 28 51 29 00 E6 12 0E 01 85 22 20 20 20 20 |Q$(Q)......" |
000002E0: 22 3B 20 20 52 24 00 FD 12 18 01 8B 20 C8 28 52 |"; R$...... .(R|
000002F0: 24 2C 31 29 B2 22 59 22 A7 20 33 32 30 00 10 13 |$,1)."Y". 320...|
00000300: 22 01 4C 51 B2 51 20 3A 20 52 24 B2 22 4E 4F 22 |".LQ.Q : R$."NO"|
00000310: 00 30 13 2C 01 8B 20 4E 58 28 51 29 B3 31 30 30 |.0.,.. NX(Q).100|
00000320: 30 20 A7 20 51 B2 4E 58 28 51 29 3A 89 32 36 30 |0 . Q.NX(Q):.260|
00000330: 00 55 13 36 01 8B 20 4E 58 28 51 29 B1 31 30 30 |.U.6.. NX(Q).100|
00000340: 30 20 A7 20 41 B2 4E 58 28 51 29 AB 31 30 30 30 |0 . A.NX(Q).1000|
00000350: 3A 89 33 38 30 00 67 13 40 01 4C 51 B2 51 3A 52 |:.380.g.@.LQ.Q:R|
00000360: 24 B2 22 59 45 53 22 00 83 13 4A 01 8B 20 59 28 |$."YES"...J.. Y(|
00000370: 51 29 B3 31 30 30 30 A7 51 B2 59 28 51 29 3A 89 |Q).1000.Q.Y(Q):.|
00000380: 32 36 30 00 A4 13 54 01 8B 20 59 28 51 29 B1 31 |260...T.. Y(Q).1|
00000390: 30 30 30 A7 41 B2 59 28 51 29 AB 31 30 30 30 3A |000.A.Y(Q).1000:|
000003A0: 89 33 38 30 00 AA 13 5E 01 8F 00 C9 13 68 01 8F |.380...^.....h..|
000003B0: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
000003C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 CF 13 72 01 8F 00 |---------...r...|
000003D0: E3 13 7C 01 53 24 B2 41 24 28 41 29 3A 8D 31 30 |..|.S$.A$(A):.10|
000003E0: 33 37 30 00 05 14 81 01 99 3A 99 3A 99 22 20 20 |370......:.:." |
000003F0: 20 20 41 52 45 20 59 4F 55 20 22 3B 56 56 24 3B | ARE YOU ";VV$;|
00000400: 41 24 28 41 29 00 13 14 86 01 85 22 20 20 20 22 |A$(A)......" "|
00000410: 3B 5A 24 00 36 14 90 01 8B 20 C8 28 5A 24 2C 31 |;Z$.6.... .(Z$,1|
00000420: 29 B2 22 59 22 20 A7 20 5A 24 B2 22 59 45 53 22 |)."Y" . Z$."YES"|
00000430: 3A 89 20 37 36 30 00 5A 14 9A 01 99 22 59 4F 55 |:. 760.Z...."YOU|
00000440: 20 57 4F 4E 21 20 2E 20 2E 20 2E 20 20 57 48 41 | WON! . . . WHA|
00000450: 54 20 41 52 45 20 59 4F 55 22 00 73 14 A4 01 4E |T ARE YOU".s...N|
00000460: 41 B2 4E 41 AA 31 3A 41 24 28 4E 41 AA 31 29 B2 |A.NA.1:A$(NA.1).|
00000470: 22 2A 22 00 86 14 AE 01 85 22 20 20 20 20 22 3B |"*"......" ";|
00000480: 41 24 28 4E 41 29 00 B9 14 AF 01 8B C8 28 41 24 |A$(NA).......(A$|
00000490: 28 4E 41 29 2C 32 29 B2 22 41 20 22 A7 41 24 28 |(NA),2)."A ".A$(|
000004A0: 4E 41 29 B2 C9 28 41 24 28 4E 41 29 2C C3 28 41 |NA)..(A$(NA),.(A|
000004B0: 24 28 4E 41 29 29 AB 32 29 00 ED 14 B0 01 8B C8 |$(NA)).2).......|
000004C0: 28 41 24 28 4E 41 29 2C 33 29 B2 22 41 4E 20 22 |(A$(NA),3)."AN "|
000004D0: A7 41 24 28 4E 41 29 B2 C9 28 41 24 28 4E 41 29 |.A$(NA)..(A$(NA)|
000004E0: 2C C3 28 41 24 28 4E 41 29 29 AB 33 29 00 1B 15 |,.(A$(NA)).3)...|
000004F0: B8 01 99 22 11 11 20 20 20 57 48 41 54 20 51 55 |...".. WHAT QU|
00000500: 45 53 54 49 4F 4E 20 57 4F 55 4C 44 20 44 49 46 |ESTION WOULD DIF|
00000510: 46 45 52 45 4E 54 49 41 54 45 22 00 38 15 BD 01 |FERENTIATE".8...|
00000520: 53 24 B2 41 24 28 4E 41 29 3A 8D 31 30 33 37 30 |S$.A$(NA):.10370|
00000530: 3A 56 31 24 B2 56 56 24 00 54 15 BE 01 53 24 B2 |:V1$.VV$.T...S$.|
00000540: 41 24 28 41 29 3A 8D 31 30 33 37 30 3A 56 32 24 |A$(A):.10370:V2$|
00000550: B2 56 56 24 00 7C 15 C2 01 99 22 20 20 22 56 31 |.VV$.|...." "V1|
00000560: 24 3B 41 24 28 4E 41 29 22 20 46 52 4F 4D 20 22 |$;A$(NA)" FROM "|
00000570: 56 32 24 3B 41 24 28 41 29 22 3F 22 00 95 15 CC |V2$;A$(A)"?"....|
00000580: 01 4E 51 B2 4E 51 AA 31 3A 51 24 28 4E 41 AA 31 |.NQ.NQ.1:Q$(NA.1|
00000590: 29 B2 22 2A 22 00 A1 15 D6 01 85 51 24 28 4E 51 |)."*"......Q$(NQ|
000005A0: 29 00 A7 15 E0 01 8F 00 BF 15 EA 01 8F 20 20 20 |)............ |
000005B0: 43 48 41 4E 47 45 20 50 4F 49 4E 54 45 52 53 00 |CHANGE POINTERS.|
000005C0: D6 15 F4 01 8B 20 52 24 B2 22 59 45 53 22 20 A7 |..... R$."YES" .|
000005D0: 20 8D 20 35 37 30 00 EC 15 FE 01 8B 20 52 24 B2 | . 570...... R$.|
000005E0: 22 4E 4F 22 20 A7 20 8D 20 35 33 30 00 F5 15 08 |"NO" . . 530....|
000005F0: 02 89 36 31 30 00 07 16 12 02 4E 58 28 4E 51 29 |..610.....NX(NQ)|
00000600: B2 4E 58 28 4C 51 29 00 19 16 1C 02 59 28 4E 51 |.NX(LQ).....Y(NQ|
00000610: 29 B2 4E 41 AA 31 30 30 30 00 27 16 26 02 4E 58 |).NA.1000.'.&.NX|
00000620: 28 4C 51 29 B2 4E 51 00 2D 16 30 02 8E 00 3F 16 |(LQ).NQ.-.0...?.|
00000630: 3A 02 59 28 4E 51 29 B2 4E 41 AA 31 30 30 30 00 |:.Y(NQ).NA.1000.|
00000640: 51 16 44 02 4E 58 28 4E 51 29 B2 31 30 30 30 AA |Q.D.NX(NQ).1000.|
00000650: 41 00 5E 16 4E 02 59 28 4C 51 29 B2 4E 51 00 64 |A.^.N.Y(LQ).NQ.d|
00000660: 16 58 02 8E 00 8A 16 62 02 8F 3A 55 53 45 20 57 |.X.....b..:USE W|
00000670: 49 54 48 20 42 41 53 49 43 34 2C 30 2D 2D 2D D9 |ITH BASIC4,0---.|
00000680: 22 51 55 45 53 54 49 4F 4E 53 00 AE 16 67 02 9F |"QUESTIONS...g..|
00000690: 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 53 30 3A |15,8,15:.15,"S0:|
000006A0: 51 55 45 53 54 49 4F 4E 53 22 3A A0 31 35 00 D0 |QUESTIONS":.15..|
000006B0: 16 68 02 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C |.h..15,8,15:.15,|
000006C0: 22 53 30 3A 41 4E 53 57 45 52 53 22 3A A0 31 35 |"S0:ANSWERS":.15|
000006D0: 00 F5 16 6C 02 8F 3A 55 53 45 20 57 49 54 48 20 |...l..:USE WITH |
000006E0: 42 41 53 49 43 34 2E 30 2D 2D 2D D9 22 41 4E 53 |BASIC4.0---."ANS|
000006F0: 57 45 52 53 22 00 22 17 76 02 8F 3A 55 53 45 20 |WERS".".v..:USE |
00000700: 57 49 54 48 20 42 41 53 49 43 34 2E 30 2D 2D 2D |WITH BASIC4.0---|
00000710: CD 23 33 33 2C 22 51 55 45 53 54 49 4F 4E 53 22 |.#33,"QUESTIONS"|
00000720: 2C 57 00 41 17 77 02 9F 20 33 33 2C 38 2C 35 2C |,W.A.w.. 33,8,5,|
00000730: 22 51 55 45 53 54 49 4F 4E 53 2C 53 45 51 2C 57 |"QUESTIONS,SEQ,W|
00000740: 22 00 4C 17 80 02 43 24 B2 22 2C 22 00 58 17 8A |".L...C$.",".X..|
00000750: 02 81 49 B2 31 A4 4E 51 00 73 17 94 02 98 33 33 |..I.1.NQ.s....33|
00000760: 2C 51 24 28 49 29 43 24 59 28 49 29 43 24 4E 58 |,Q$(I)C$Y(I)C$NX|
00000770: 28 49 29 00 7A 17 9E 02 82 49 00 8A 17 A8 02 98 |(I).z....I......|
00000780: 33 33 2C 22 2A 22 2C 30 2C 30 00 92 17 B2 02 A0 |33,"*",0,0......|
00000790: 33 33 00 BD 17 BC 02 8F 3A 55 53 45 20 57 49 54 |33......:USE WIT|
000007A0: 48 20 42 41 53 49 43 34 2E 30 2D 2D 2D CD 23 33 |H BASIC4.0---.#3|
000007B0: 34 2C 22 41 4E 53 57 45 52 53 22 2C 57 00 DA 17 |4,"ANSWERS",W...|
000007C0: BD 02 9F 20 33 34 2C 38 2C 36 2C 22 41 4E 53 57 |... 34,8,6,"ANSW|
000007D0: 45 52 53 2C 53 45 51 2C 57 22 00 E6 17 C6 02 81 |ERS,SEQ,W"......|
000007E0: 49 B2 31 A4 4E 41 00 F4 17 D0 02 98 33 34 2C 41 |I.1.NA......34,A|
000007F0: 24 28 49 29 00 FB 17 DA 02 82 49 00 07 18 E4 02 |$(I)......I.....|
00000800: 98 33 34 2C 22 2A 22 00 0F 18 EE 02 A0 33 34 00 |.34,"*"......34.|
00000810: 2A 18 F3 02 85 20 22 11 11 11 11 11 50 4C 41 59 |*.... ".....PLAY|
00000820: 20 41 47 41 49 4E 22 3B 57 24 00 3F 18 F4 02 8B | AGAIN";W$.?....|
00000830: C8 28 57 24 2C 31 29 B2 22 59 22 A7 32 35 30 00 |.(W$,1)."Y".250.|
00000840: 48 18 F5 02 89 37 38 30 00 6C 18 F8 02 85 20 22 |H....780.l.... "|
00000850: 11 11 11 11 11 49 20 57 4F 4E 21 20 20 20 50 4C |.....I WON! PL|
00000860: 41 59 20 41 47 41 49 4E 22 3B 57 24 00 81 18 02 |AY AGAIN";W$....|
00000870: 03 8B C8 28 57 24 2C 31 29 B2 22 59 22 A7 32 35 |...(W$,1)."Y".25|
00000880: 30 00 87 18 0C 03 80 00 A8 18 82 28 8F 20 20 20 |0..........(. |
00000890: 20 43 48 45 43 4B 20 46 4F 52 20 4C 45 41 44 49 | CHECK FOR LEADI|
000008A0: 4E 47 20 56 4F 57 45 4C 00 B5 18 8C 28 56 56 24 |NG VOWEL....(VV$|
000008B0: B2 22 41 20 22 00 C1 18 8D 28 81 43 56 B2 31 A4 |."A "....(.CV.1.|
000008C0: 35 00 E5 18 8E 28 8B C8 28 53 24 2C 31 29 B2 CA |5....(..(S$,1)..|
000008D0: 28 56 24 2C 43 56 2C 31 29 A7 56 56 24 B2 22 41 |(V$,CV,1).VV$."A|
000008E0: 4E 20 22 3A 8E 00 EF 18 8F 28 82 43 56 3A 8E 00 |N ":.....(.CV:..|
000008F0: 35 19 98 3A 99 22 11 11 20 20 20 20 20 D9 4F 55 |5..:.".. .OU|
00000900: 20 41 52 45 20 54 4F 20 50 49 43 4B 20 41 4E 20 | ARE TO PICK AN |
00000910: 41 4E 49 4D 41 4C 20 42 55 54 20 44 4F 4E 27 54 |ANIMAL BUT DON'T|
00000920: 20 54 45 4C 4C 20 4D 45 20 57 48 41 54 20 49 54 | TELL ME WHAT IT|
00000930: 20 49 53 2E 22 00 84 19 FC 3A 99 22 11 20 20 20 | IS."....:.". |
00000940: 20 20 C9 20 20 57 49 4C 4C 20 41 53 4B 20 59 4F | . WILL ASK YO|
00000950: 55 20 51 55 45 53 54 49 4F 4E 53 20 57 48 49 43 |U QUESTIONS WHIC|
00000960: 48 20 59 4F 55 20 57 49 4C 4C 20 41 4E 53 57 45 |H YOU WILL ANSWE|
00000970: 52 20 42 59 20 27 59 45 53 27 20 4F 52 20 27 4E |R BY 'YES' OR 'N|
00000980: 4F 27 2E 22 00 D1 19 60 3B 99 22 20 11 20 20 20 |O'."...`;." . |
00000990: 20 D7 48 45 4E 20 C9 20 54 48 49 4E 4B 20 C9 20 | .HEN . THINK . |
000009A0: 4B 4E 4F 57 20 49 54 20 C9 20 57 49 4C 4C 20 4D |KNOW IT . WILL M|
000009B0: 41 4B 45 20 20 41 20 47 55 45 53 53 20 41 53 20 |AKE A GUESS AS |
000009C0: 54 4F 20 57 48 41 54 20 59 4F 55 20 41 52 45 2E |TO WHAT YOU ARE.|
000009D0: 22 00 02 1A C4 3B 99 22 20 11 20 20 20 20 C9 46 |"....;." . .F|
000009E0: 20 C9 20 41 4D 20 57 52 4F 4E 47 20 54 45 4C 4C | . AM WRONG TELL|
000009F0: 20 4D 45 20 57 48 41 54 20 59 4F 55 20 41 52 45 | ME WHAT YOU ARE|
00000A00: 2E 22 00 27 1A 28 3C 99 22 11 1D 1D 11 1D 1D 50 |.".'.(<."......P|
00000A10: 52 45 53 53 20 41 20 4B 45 59 20 54 4F 20 43 4F |RESS A KEY TO CO|
00000A20: 4E 54 49 4E 55 45 22 00 3D 1A 32 3C A1 20 41 24 |NTINUE".=.2<. A$|
00000A30: 3A 8B 41 24 B2 22 22 A7 31 35 34 31 30 00 43 1A |:.A$."".15410.C.|
00000A40: 8C 3C 8E 00 00 00 |.<.... |
.......G(14)./...."................A N I
M A L".O...." ...........".
T....:." (BY MIKE LIEBERMAN)....
.." ... INSTRUCTIONS (Y/N)";I$......H(
I$,1)."Y"..15000.....V$."AEIOU".M.2..532
80,13...4..53281,16...D..A$(100),Y(100),
NX(100),Q$(100).*.N..:USE WITH BASIC4.0-
--M#33,"QUESTIONS".I.S.. 33,8,5,"QUESTIO
NS,SEQ,R".F.T.. 34,8,6,"ANSWERS,SEQ,R"..
.X..:USE WITH BASIC4.0---M#34,"ANSWERS".
..}.. 4,4...... I . 1 . 100.D....33,Q$(I
),Y(I),NX(I)...... H(Q$(I),1)."*" . 170.
.....4,Q$(I);.50.C(Q$(I)));Y(I),.(Y(I).1
000).(3).5);NX(I). . ..I.-....4:.4:.4.8.
..NQ.I.1.@... 33.R.... I . 1 . 100.`.H..
34,A$(I).T.M..4,I;.10);A$(I)...R.. H(A$(
I),1) . "*" .230...... I.....NA.I.1.....
4..... 34.....Q.1.U...."........("Q") "
Q$(Q)......" "; R$...... H(R$,1)."Y"
. 320...".LQ.Q : R$."NO".0.,.. NX(Q).100
0 . Q.NX(Q):.260.U.6.. NX(Q).1000 . A.NX
(Q).1000:.380.G.@.LQ.Q:R$."YES"...J.. Y(
Q).1000.Q.Y(Q):.260...T.. Y(Q).1000.A.Y(
Q).1000:.380...^...I.H.. ---------------
---------.O.R.....|.S$.A$(A):.10370.....
.:.:." ARE YOU ";VV$;A$(A)......" "
;Z$.6.... H(Z$,1)."Y" . Z$."YES":. 760.Z
...."YOU WON! . . . WHAT ARE YOU".S...N
A.NA.1:A$(NA.1)."*"......" ";A$(NA)..
....H(A$(NA),2)."A ".A$(NA).I(A$(NA),C(A
$(NA)).2)......H(A$(NA),3)."AN ".A$(NA).
I(A$(NA),C(A$(NA)).3)......".. WHAT QU
ESTION WOULD DIFFERENTIATE".8...S$.A$(NA
):.10370:V1$.VV$.T...S$.A$(A):.10370:V2$
.VV$.|.B.." "V1$;A$(NA)" FROM "V2$;A$(A
)"?"...L.NQ.NQ.1:Q$(NA.1)."*"...V..Q$(NQ
)............ CHANGE POINTERS.V.... R$
."YES" . . 570...... R$."NO" . . 530....
..610.....NX(NQ).NX(LQ).....Y(NQ).NA.100
0.'.&.NX(LQ).NQ.-.0...?.:.Y(NQ).NA.1000.
Q.D.NX(NQ).1000.A.^.N.Y(LQ).NQ.D.X.....B
..:USE WITH BASIC4,0---Y"QUESTIONS...G..
15,8,15:.15,"S0:QUESTIONS": 15.P.H..15,8
,15:.15,"S0:ANSWERS": 15...L..:USE WITH
BASIC4.0---Y"ANSWERS".".V..:USE WITH BAS
IC4.0---M#33,"QUESTIONS",W.A.W.. 33,8,5,
"QUESTIONS,SEQ,W".L...C$.",".X....I.1.NQ
.S....33,Q$(I)C$Y(I)C$NX(I).Z....I......
33,"*",0,0..... 33......:USE WITH BASIC4
.0---M#34,"ANSWERS",W.Z.... 34,8,6,"ANSW
ERS,SEQ,W"...F..I.1.NA...P..34,A$(I)...Z
..I......34,"*"..... 34.*.... ".....PLAY
AGAIN";W$.?....H(W$,1)."Y".250.H....780
.L.... ".....I WON! PLAY AGAIN";W$....
..H(W$,1)."Y".250..........(. CHECK F
OR LEADING VOWEL....(VV$."A ".A..(.CV.1.
5....(.H(S$,1).J(V$,CV,1).VV$."AN ":....
.(.CV:..5..:.".. YOU ARE TO PICK AN
ANIMAL BUT DON'T TELL ME WHAT IT IS."...
.:.". I WILL ASK YOU QUESTIONS WHIC
H YOU WILL ANSWER BY 'YES' OR 'NO'.".Q.`
;." . WHEN I THINK I KNOW IT I WILL M
AKE A GUESS AS TO WHAT YOU ARE."...D;."
. IF I AM WRONG TELL ME WHAT YOU ARE
.".'.(<."......PRESS A KEY TO CONTINUE".
=.2<. A$:.A$."".15410.C..<....
> CLICK IMAGE PREVIEW FOR FULL MODAL