ANIMAL.C

00000000: 01 08 0C 08 04 00 99 C7  28 31 34 29 00 30 08 05  |........(14).0..|
00000010: 00 99 22 93 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |..".............|
00000020: 1D 11 11 9E C1 20 4E 20  49 20 4D 20 41 20 4C 22  |..... N I M A L"|
00000030: 00 50 08 06 00 99 22 20  20 20 20 20 20 20 20 20  |.P...."         |
00000040: 20 20 20 20 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 22  |    ..........."|
00000050: 00 75 08 07 00 99 3A 99  22 20 20 20 20 20 20 20  |.u....:."       |
00000060: 20 20 28 42 59 20 CD 49  4B 45 20 CC 49 45 42 45  |  (BY .IKE .IEBE|
00000070: 52 4D 41 4E 29 00 99 08  08 00 85 22 20 11 11 11  |RMAN)......" ...|
00000080: 20 20 20 C9 4E 53 54 52  55 43 54 49 4F 4E 53 20  |   .NSTRUCTIONS |
00000090: 28 59 2F 4E 29 22 3B 49  24 00 B1 08 09 00 8B C8  |(Y/N)";I$.......|
000000A0: 28 49 24 2C 31 29 B2 22  59 22 A7 8D 31 35 30 30  |(I$,1)."Y"..1500|
000000B0: 30 00 C0 08 0A 00 56 24  B2 22 41 45 49 4F 55 22  |0.....V$."AEIOU"|
000000C0: 00 C9 08 28 00 99 22 05  22 00 D7 08 32 00 97 35  |...(.."."...2..5|
000000D0: 33 32 38 30 2C 31 33 00  E5 08 34 00 97 35 33 32  |3280,13...4..532|
000000E0: 38 31 2C 31 36 00 09 09  64 00 86 41 24 28 31 30  |81,16...d..A$(10|
000000F0: 30 29 2C 59 28 31 30 30  29 2C 4E 58 28 31 30 30  |0),Y(100),NX(100|
00000100: 29 2C 51 24 28 31 30 30  29 00 34 09 6E 00 8F 3A  |),Q$(100).4.n..:|
00000110: 55 53 45 20 57 49 54 48  20 42 41 53 49 43 34 2E  |USE WITH BASIC4.|
00000120: 30 2D 2D 2D CD 23 33 33  2C 22 51 55 45 53 54 49  |0---.#33,"QUESTI|
00000130: 4F 4E 53 22 00 53 09 73  00 9F 20 33 33 2C 38 2C  |ONS".S.s.. 33,8,|
00000140: 35 2C 22 51 55 45 53 54  49 4F 4E 53 2C 53 45 51  |5,"QUESTIONS,SEQ|
00000150: 2C 52 22 00 70 09 74 00  9F 20 33 34 2C 38 2C 36  |,R".p.t.. 34,8,6|
00000160: 2C 22 41 4E 53 57 45 52  53 2C 53 45 51 2C 52 22  |,"ANSWERS,SEQ,R"|
00000170: 00 99 09 78 00 8F 3A 55  53 45 20 57 49 54 48 20  |...x..:USE WITH |
00000180: 42 41 53 49 43 34 2E 30  2D 2D 2D CD 23 33 34 2C  |BASIC4.0---.#34,|
00000190: 22 41 4E 53 57 45 52 53  22 00 A3 09 7D 00 9F 20  |"ANSWERS"...}.. |
000001A0: 34 2C 34 00 B5 09 82 00  81 20 49 20 B2 20 31 20  |4,4...... I . 1 |
000001B0: A4 20 31 30 30 00 CE 09  8C 00 84 33 33 2C 51 24  |. 100......33,Q$|
000001C0: 28 49 29 2C 59 28 49 29  2C 4E 58 28 49 29 00 E9  |(I),Y(I),NX(I)..|
000001D0: 09 96 00 8B 20 C8 28 51  24 28 49 29 2C 31 29 B2  |.... .(Q$(I),1).|
000001E0: 22 2A 22 20 A7 20 31 37  30 00 23 0A 9B 00 98 34  |"*" . 170.#....4|
000001F0: 2C 51 24 28 49 29 3B A6  35 30 AB C3 28 51 24 28  |,Q$(I);.50..(Q$(|
00000200: 49 29 29 29 3B 59 28 49  29 2C A6 28 59 28 49 29  |I)));Y(I),.(Y(I)|
00000210: B1 31 30 30 30 29 AC 28  33 29 AA 35 29 3B 4E 58  |.1000).(3).5);NX|
00000220: 28 49 29 00 2A 0A A0 00  82 49 00 37 0A A5 00 98  |(I).*....I.7....|
00000230: 34 3A 98 34 3A 98 34 00  42 0A AA 00 4E 51 B2 49  |4:.4:.4.B...NQ.I|
00000240: AB 31 00 4A 0A B4 00 A0  33 33 00 5C 0A BE 00 81  |.1.J....33.\....|
00000250: 20 49 20 B2 20 31 20 A4  20 31 30 30 00 6A 0A C8  | I . 1 . 100.j..|
00000260: 00 84 33 34 2C 41 24 28  49 29 00 7E 0A CD 00 98  |..34,A$(I).~....|
00000270: 34 2C 49 3B A6 31 30 29  3B 41 24 28 49 29 00 9A  |4,I;.10);A$(I)..|
00000280: 0A D2 00 8B 20 C8 28 41  24 28 49 29 2C 31 29 20  |.... .(A$(I),1) |
00000290: B2 20 22 2A 22 20 A7 32  33 30 00 A2 0A DC 00 82  |. "*" .230......|
000002A0: 20 49 00 AD 0A E6 00 4E  41 B2 49 AB 31 00 B4 0A  | I.....NA.I.1...|
000002B0: EB 00 A0 34 00 BC 0A F0  00 A0 33 34 00 C4 0A FA  |...4......34....|
000002C0: 00 51 B2 31 00 DF 0A 04  01 99 22 93 11 11 11 11  |.Q.1......".....|
000002D0: 11 11 11 28 22 51 22 29  20 22 51 24 28 51 29 00  |...("Q") "Q$(Q).|
000002E0: F0 0A 0E 01 85 22 20 20  20 20 22 3B 20 20 52 24  |....."    ";  R$|
000002F0: 00 07 0B 18 01 8B 20 C8  28 52 24 2C 31 29 B2 22  |...... .(R$,1)."|
00000300: 59 22 A7 20 33 32 30 00  1A 0B 22 01 4C 51 B2 51  |Y". 320...".LQ.Q|
00000310: 20 3A 20 52 24 B2 22 4E  4F 22 00 3A 0B 2C 01 8B  | : R$."NO".:.,..|
00000320: 20 4E 58 28 51 29 B3 31  30 30 30 20 A7 20 51 B2  | NX(Q).1000 . Q.|
00000330: 4E 58 28 51 29 3A 89 32  36 30 00 5F 0B 36 01 8B  |NX(Q):.260._.6..|
00000340: 20 4E 58 28 51 29 B1 31  30 30 30 20 A7 20 41 B2  | NX(Q).1000 . A.|
00000350: 4E 58 28 51 29 AB 31 30  30 30 3A 89 33 38 30 00  |NX(Q).1000:.380.|
00000360: 71 0B 40 01 4C 51 B2 51  3A 52 24 B2 22 59 45 53  |q.@.LQ.Q:R$."YES|
00000370: 22 00 8D 0B 4A 01 8B 20  59 28 51 29 B3 31 30 30  |"...J.. Y(Q).100|
00000380: 30 A7 51 B2 59 28 51 29  3A 89 32 36 30 00 AE 0B  |0.Q.Y(Q):.260...|
00000390: 54 01 8B 20 59 28 51 29  B1 31 30 30 30 A7 41 B2  |T.. Y(Q).1000.A.|
000003A0: 59 28 51 29 AB 31 30 30  30 3A 89 33 38 30 00 B4  |Y(Q).1000:.380..|
000003B0: 0B 5E 01 8F 00 D3 0B 68  01 8F 20 2D 2D 2D 2D 2D  |.^.....h.. -----|
000003C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000003D0: 2D 2D 2D 00 D9 0B 72 01  8F 00 ED 0B 7C 01 53 24  |---...r.....|.S$|
000003E0: B2 41 24 28 41 29 3A 8D  31 30 33 37 30 00 0F 0C  |.A$(A):.10370...|
000003F0: 81 01 99 3A 99 3A 99 22  20 20 20 20 41 52 45 20  |...:.:."    ARE |
00000400: 59 4F 55 20 22 3B 56 56  24 3B 41 24 28 41 29 00  |YOU ";VV$;A$(A).|
00000410: 1D 0C 86 01 85 22 20 20  20 22 3B 5A 24 00 40 0C  |....."   ";Z$.@.|
00000420: 90 01 8B 20 C8 28 5A 24  2C 31 29 B2 22 59 22 20  |... .(Z$,1)."Y" |
00000430: A7 20 5A 24 B2 22 59 45  53 22 3A 89 20 37 36 30  |. Z$."YES":. 760|
00000440: 00 64 0C 9A 01 99 22 59  4F 55 20 57 4F 4E 21 20  |.d...."YOU WON! |
00000450: 2E 20 2E 20 2E 20 20 57  48 41 54 20 41 52 45 20  |. . .  WHAT ARE |
00000460: 59 4F 55 22 00 7D 0C A4  01 4E 41 B2 4E 41 AA 31  |YOU".}...NA.NA.1|
00000470: 3A 41 24 28 4E 41 AA 31  29 B2 22 2A 22 00 90 0C  |:A$(NA.1)."*"...|
00000480: AE 01 85 22 20 20 20 20  22 3B 41 24 28 4E 41 29  |..."    ";A$(NA)|
00000490: 00 C3 0C AF 01 8B C8 28  41 24 28 4E 41 29 2C 32  |.......(A$(NA),2|
000004A0: 29 B2 22 41 20 22 A7 41  24 28 4E 41 29 B2 C9 28  |)."A ".A$(NA)..(|
000004B0: 41 24 28 4E 41 29 2C C3  28 41 24 28 4E 41 29 29  |A$(NA),.(A$(NA))|
000004C0: AB 32 29 00 F7 0C B0 01  8B C8 28 41 24 28 4E 41  |.2).......(A$(NA|
000004D0: 29 2C 33 29 B2 22 41 4E  20 22 A7 41 24 28 4E 41  |),3)."AN ".A$(NA|
000004E0: 29 B2 C9 28 41 24 28 4E  41 29 2C C3 28 41 24 28  |)..(A$(NA),.(A$(|
000004F0: 4E 41 29 29 AB 33 29 00  25 0D B8 01 99 22 11 11  |NA)).3).%...."..|
00000500: 20 20 20 57 48 41 54 20  51 55 45 53 54 49 4F 4E  |   WHAT QUESTION|
00000510: 20 57 4F 55 4C 44 20 44  49 46 46 45 52 45 4E 54  | WOULD DIFFERENT|
00000520: 49 41 54 45 22 00 42 0D  BD 01 53 24 B2 41 24 28  |IATE".B...S$.A$(|
00000530: 4E 41 29 3A 8D 31 30 33  37 30 3A 56 31 24 B2 56  |NA):.10370:V1$.V|
00000540: 56 24 00 5E 0D BE 01 53  24 B2 41 24 28 41 29 3A  |V$.^...S$.A$(A):|
00000550: 8D 31 30 33 37 30 3A 56  32 24 B2 56 56 24 00 86  |.10370:V2$.VV$..|
00000560: 0D C2 01 99 22 20 20 22  56 31 24 3B 41 24 28 4E  |...."  "V1$;A$(N|
00000570: 41 29 22 20 46 52 4F 4D  20 22 56 32 24 3B 41 24  |A)" FROM "V2$;A$|
00000580: 28 41 29 22 3F 22 00 9F  0D CC 01 4E 51 B2 4E 51  |(A)"?".....NQ.NQ|
00000590: AA 31 3A 51 24 28 4E 41  AA 31 29 B2 22 2A 22 00  |.1:Q$(NA.1)."*".|
000005A0: AB 0D D6 01 85 51 24 28  4E 51 29 00 B1 0D E0 01  |.....Q$(NQ).....|
000005B0: 8F 00 C9 0D EA 01 8F 20  20 20 43 48 41 4E 47 45  |.......   CHANGE|
000005C0: 20 50 4F 49 4E 54 45 52  53 00 E0 0D F4 01 8B 20  | POINTERS...... |
000005D0: 52 24 B2 22 59 45 53 22  20 A7 20 8D 20 35 37 30  |R$."YES" . . 570|
000005E0: 00 F6 0D FE 01 8B 20 52  24 B2 22 4E 4F 22 20 A7  |...... R$."NO" .|
000005F0: 20 8D 20 35 33 30 00 FF  0D 08 02 89 36 31 30 00  | . 530......610.|
00000600: 11 0E 12 02 4E 58 28 4E  51 29 B2 4E 58 28 4C 51  |....NX(NQ).NX(LQ|
00000610: 29 00 23 0E 1C 02 59 28  4E 51 29 B2 4E 41 AA 31  |).#...Y(NQ).NA.1|
00000620: 30 30 30 00 31 0E 26 02  4E 58 28 4C 51 29 B2 4E  |000.1.&.NX(LQ).N|
00000630: 51 00 37 0E 30 02 8E 00  49 0E 3A 02 59 28 4E 51  |Q.7.0...I.:.Y(NQ|
00000640: 29 B2 4E 41 AA 31 30 30  30 00 5B 0E 44 02 4E 58  |).NA.1000.[.D.NX|
00000650: 28 4E 51 29 B2 31 30 30  30 AA 41 00 68 0E 4E 02  |(NQ).1000.A.h.N.|
00000660: 59 28 4C 51 29 B2 4E 51  00 6E 0E 58 02 8E 00 94  |Y(LQ).NQ.n.X....|
00000670: 0E 62 02 8F 3A 55 53 45  20 57 49 54 48 20 42 41  |.b..:USE WITH BA|
00000680: 53 49 43 34 2C 30 2D 2D  2D D9 22 51 55 45 53 54  |SIC4,0---."QUEST|
00000690: 49 4F 4E 53 00 B8 0E 67  02 9F 31 35 2C 38 2C 31  |IONS...g..15,8,1|
000006A0: 35 3A 98 31 35 2C 22 53  30 3A 51 55 45 53 54 49  |5:.15,"S0:QUESTI|
000006B0: 4F 4E 53 22 3A A0 31 35  00 DA 0E 68 02 9F 31 35  |ONS":.15...h..15|
000006C0: 2C 38 2C 31 35 3A 98 31  35 2C 22 53 30 3A 41 4E  |,8,15:.15,"S0:AN|
000006D0: 53 57 45 52 53 22 3A A0  31 35 00 FF 0E 6C 02 8F  |SWERS":.15...l..|
000006E0: 3A 55 53 45 20 57 49 54  48 20 42 41 53 49 43 34  |:USE WITH BASIC4|
000006F0: 2E 30 2D 2D 2D D9 22 41  4E 53 57 45 52 53 22 00  |.0---."ANSWERS".|
00000700: 2C 0F 76 02 8F 3A 55 53  45 20 57 49 54 48 20 42  |,.v..:USE WITH B|
00000710: 41 53 49 43 34 2E 30 2D  2D 2D CD 23 33 33 2C 22  |ASIC4.0---.#33,"|
00000720: 51 55 45 53 54 49 4F 4E  53 22 2C 57 00 4B 0F 77  |QUESTIONS",W.K.w|
00000730: 02 9F 20 33 33 2C 38 2C  35 2C 22 51 55 45 53 54  |.. 33,8,5,"QUEST|
00000740: 49 4F 4E 53 2C 53 45 51  2C 57 22 00 56 0F 80 02  |IONS,SEQ,W".V...|
00000750: 43 24 B2 22 2C 22 00 62  0F 8A 02 81 49 B2 31 A4  |C$.",".b....I.1.|
00000760: 4E 51 00 7D 0F 94 02 98  33 33 2C 51 24 28 49 29  |NQ.}....33,Q$(I)|
00000770: 43 24 59 28 49 29 43 24  4E 58 28 49 29 00 84 0F  |C$Y(I)C$NX(I)...|
00000780: 9E 02 82 49 00 94 0F A8  02 98 33 33 2C 22 2A 22  |...I......33,"*"|
00000790: 2C 30 2C 30 00 9C 0F B2  02 A0 33 33 00 C7 0F BC  |,0,0......33....|
000007A0: 02 8F 3A 55 53 45 20 57  49 54 48 20 42 41 53 49  |..:USE WITH BASI|
000007B0: 43 34 2E 30 2D 2D 2D CD  23 33 34 2C 22 41 4E 53  |C4.0---.#34,"ANS|
000007C0: 57 45 52 53 22 2C 57 00  E4 0F BD 02 9F 20 33 34  |WERS",W...... 34|
000007D0: 2C 38 2C 36 2C 22 41 4E  53 57 45 52 53 2C 53 45  |,8,6,"ANSWERS,SE|
000007E0: 51 2C 57 22 00 F0 0F C6  02 81 49 B2 31 A4 4E 41  |Q,W"......I.1.NA|
000007F0: 00 FE 0F D0 02 98 33 34  2C 41 24 28 49 29 00 05  |......34,A$(I)..|
00000800: 10 DA 02 82 49 00 11 10  E4 02 98 33 34 2C 22 2A  |....I......34,"*|
00000810: 22 00 19 10 EE 02 A0 33  34 00 34 10 F3 02 85 20  |"......34.4.... |
00000820: 22 11 11 11 11 11 50 4C  41 59 20 41 47 41 49 4E  |".....PLAY AGAIN|
00000830: 22 3B 57 24 00 49 10 F4  02 8B C8 28 57 24 2C 31  |";W$.I.....(W$,1|
00000840: 29 B2 22 59 22 A7 32 35  30 00 52 10 F5 02 89 37  |)."Y".250.R....7|
00000850: 38 30 00 76 10 F8 02 85  20 22 11 11 11 11 11 49  |80.v.... ".....I|
00000860: 20 57 4F 4E 21 20 20 20  50 4C 41 59 20 41 47 41  | WON!   PLAY AGA|
00000870: 49 4E 22 3B 57 24 00 8B  10 02 03 8B C8 28 57 24  |IN";W$.......(W$|
00000880: 2C 31 29 B2 22 59 22 A7  32 35 30 00 91 10 0C 03  |,1)."Y".250.....|
00000890: 80 00 B2 10 82 28 8F 20  20 20 20 43 48 45 43 4B  |.....(.    CHECK|
000008A0: 20 46 4F 52 20 4C 45 41  44 49 4E 47 20 56 4F 57  | FOR LEADING VOW|
000008B0: 45 4C 00 BF 10 8C 28 56  56 24 B2 22 41 20 22 00  |EL....(VV$."A ".|
000008C0: CB 10 8D 28 81 43 56 B2  31 A4 35 00 EF 10 8E 28  |...(.CV.1.5....(|
000008D0: 8B C8 28 53 24 2C 31 29  B2 CA 28 56 24 2C 43 56  |..(S$,1)..(V$,CV|
000008E0: 2C 31 29 A7 56 56 24 B2  22 41 4E 20 22 3A 8E 00  |,1).VV$."AN ":..|
000008F0: F9 10 8F 28 82 43 56 3A  8E 00 3F 11 98 3A 99 22  |...(.CV:..?..:."|
00000900: 11 11 20 20 20 20 20 D9  4F 55 20 41 52 45 20 54  |..     .OU ARE T|
00000910: 4F 20 50 49 43 4B 20 41  4E 20 41 4E 49 4D 41 4C  |O PICK AN ANIMAL|
00000920: 20 42 55 54 20 44 4F 4E  27 54 20 54 45 4C 4C 20  | BUT DON'T TELL |
00000930: 4D 45 20 57 48 41 54 20  49 54 20 49 53 2E 22 00  |ME WHAT IT IS.".|
00000940: 8E 11 FC 3A 99 22 11 20  20 20 20 20 C9 20 20 57  |...:.".     .  W|
00000950: 49 4C 4C 20 41 53 4B 20  59 4F 55 20 51 55 45 53  |ILL ASK YOU QUES|
00000960: 54 49 4F 4E 53 20 57 48  49 43 48 20 59 4F 55 20  |TIONS WHICH YOU |
00000970: 57 49 4C 4C 20 41 4E 53  57 45 52 20 42 59 20 27  |WILL ANSWER BY '|
00000980: 59 45 53 27 20 4F 52 20  27 4E 4F 27 2E 22 00 DB  |YES' OR 'NO'."..|
00000990: 11 60 3B 99 22 20 11 20  20 20 20 D7 48 45 4E 20  |.`;." .    .HEN |
000009A0: C9 20 54 48 49 4E 4B 20  C9 20 4B 4E 4F 57 20 49  |. THINK . KNOW I|
000009B0: 54 20 C9 20 57 49 4C 4C  20 4D 41 4B 45 20 20 41  |T . WILL MAKE  A|
000009C0: 20 47 55 45 53 53 20 41  53 20 54 4F 20 57 48 41  | GUESS AS TO WHA|
000009D0: 54 20 59 4F 55 20 41 52  45 2E 22 00 0C 12 C4 3B  |T YOU ARE."....;|
000009E0: 99 22 20 11 20 20 20 20  C9 46 20 C9 20 41 4D 20  |." .    .F . AM |
000009F0: 57 52 4F 4E 47 20 54 45  4C 4C 20 4D 45 20 57 48  |WRONG TELL ME WH|
00000A00: 41 54 20 59 4F 55 20 41  52 45 2E 22 00 31 12 28  |AT YOU ARE.".1.(|
00000A10: 3C 99 22 11 1D 1D 11 1D  1D 50 52 45 53 53 20 41  |<."......PRESS A|
00000A20: 20 4B 45 59 20 54 4F 20  43 4F 4E 54 49 4E 55 45  | KEY TO CONTINUE|
00000A30: 22 00 47 12 32 3C A1 20  41 24 3A 8B 41 24 B2 22  |".G.2<. A$:.A$."|
00000A40: 22 A7 31 35 34 31 30 00  4D 12 8C 3C 8E 00 00 00  |".15410.M..<....|

.......G(14).0....".................A N 
I M A L".P...."             ..........."
.U....:."         (BY MIKE LIEBERMAN)...
..." ...   INSTRUCTIONS (Y/N)";I$......H
(I$,1)."Y"..15000.....V$."AEIOU".I.(..".
".W.2..53280,13...4..53281,16...D..A$(10
0),Y(100),NX(100),Q$(100).4.N..:USE WITH
 BASIC4.0---M#33,"QUESTIONS".S.S.. 33,8,
5,"QUESTIONS,SEQ,R".P.T.. 34,8,6,"ANSWER
S,SEQ,R"...X..:USE WITH BASIC4.0---M#34,
"ANSWERS"...}.. 4,4...... I . 1 . 100.N.
...33,Q$(I),Y(I),NX(I)...... H(Q$(I),1).
"*" . 170.#....4,Q$(I);.50.C(Q$(I)));Y(I
),.(Y(I).1000).(3).5);NX(I).*. ..I.7....
4:.4:.4.B...NQ.I.1.J... 33.\.... I . 1 .
 100.J.H..34,A$(I).~.M..4,I;.10);A$(I)..
.R.. H(A$(I),1) . "*" .230...... I.....N
A.I.1..... 4..... 34.D...Q.1......".....
...("Q") "Q$(Q)......"    ";  R$...... H
(R$,1)."Y". 320...".LQ.Q : R$."NO".:.,..
 NX(Q).1000 . Q.NX(Q):.260._.6.. NX(Q).1
000 . A.NX(Q).1000:.380.Q.@.LQ.Q:R$."YES
"...J.. Y(Q).1000.Q.Y(Q):.260...T.. Y(Q)
.1000.A.Y(Q).1000:.380...^...S.H.. -----
-------------------.Y.R.....|.S$.A$(A):.
10370......:.:."    ARE YOU ";VV$;A$(A).
....."   ";Z$.@.... H(Z$,1)."Y" . Z$."YE
S":. 760.D...."YOU WON! . . .  WHAT ARE 
YOU".}...NA.NA.1:A$(NA.1)."*"......"    
";A$(NA).C....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 QUESTION WOULD DIFFERENTIATE".B.
..S$.A$(NA):.10370:V1$.VV$.^...S$.A$(A):
.10370:V2$.VV$...B.."  "V1$;A$(NA)" FROM
 "V2$;A$(A)"?"...L.NQ.NQ.1:Q$(NA.1)."*".
..V..Q$(NQ).......I....   CHANGE POINTER
S...... R$."YES" . . 570...... R$."NO" .
 . 530......610.....NX(NQ).NX(LQ).#...Y(
NQ).NA.1000.1.&.NX(LQ).NQ.7.0...I.:.Y(NQ
).NA.1000.[.D.NX(NQ).1000.A.H.N.Y(LQ).NQ
.N.X.....B..:USE WITH BASIC4,0---Y"QUEST
IONS...G..15,8,15:.15,"S0:QUESTIONS": 15
.Z.H..15,8,15:.15,"S0:ANSWERS": 15...L..
:USE WITH BASIC4.0---Y"ANSWERS".,.V..:US
E WITH BASIC4.0---M#33,"QUESTIONS",W.K.W
.. 33,8,5,"QUESTIONS,SEQ,W".V...C$.",".B
....I.1.NQ.}....33,Q$(I)C$Y(I)C$NX(I)...
...I......33,"*",0,0..... 33.G....:USE W
ITH BASIC4.0---M#34,"ANSWERS",W...... 34
,8,6,"ANSWERS,SEQ,W"...F..I.1.NA...P..34
,A$(I)...Z..I......34,"*"..... 34.4.... 
".....PLAY AGAIN";W$.I....H(W$,1)."Y".25
0.R....780.V.... ".....I WON!   PLAY AGA
IN";W$......H(W$,1)."Y".250..........(. 
   CHECK FOR LEADING VOWEL....(VV$."A ".
K..(.CV.1.5....(.H(S$,1).J(V$,CV,1).VV$.
"AN ":.....(.CV:..?..:."..     YOU ARE T
O PICK AN ANIMAL BUT DON'T TELL ME WHAT 
IT IS."....:.".     I  WILL ASK YOU QUES
TIONS WHICH YOU WILL ANSWER BY 'YES' OR 
'NO'."...`;." .    WHEN I THINK I KNOW I
T I WILL MAKE  A GUESS AS TO WHAT YOU AR
E."...D;." .    IF I AM WRONG TELL ME WH
AT YOU ARE.".1.(<."......PRESS A KEY TO 
CONTINUE".G.2<. A$:.A$."".15410.M..<....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL