MWHIZ!

00000000: 01 04 24 04 00 00 9C 3A  50 47 24 B2 22 4D 57 48  |..$....:PG$."MWH|
00000010: 49 5A 21 22 3A 4E 4D 24  B2 22 32 33 22 3A 89 36  |IZ!":NM$."23":.6|
00000020: 32 30 30 30 00 37 04 01  00 22 20 43 2E 54 2E 4E  |2000.7..." C.T.N|
00000030: 41 44 4F 56 49 43 48 00  4B 04 02 00 22 20 32 34  |ADOVICH.K..." 24|
00000040: 20 53 45 43 4F 4E 44 20  41 56 45 00 61 04 03 00  | SECOND AVE.a...|
00000050: 22 20 54 52 4F 59 2C 20  4E 59 20 20 31 32 31 38  |" TROY, NY  1218|
00000060: 30 00 67 04 04 00 22 00  82 04 05 00 22 20 43 55  |0.g..."....." CU|
00000070: 52 53 4F 52 20 23 32 33  2C 20 44 45 43 20 31 39  |RSOR #23, DEC 19|
00000080: 38 30 00 A8 04 06 00 22  20 43 4F 50 59 52 49 47  |80....." COPYRIG|
00000090: 48 54 28 43 29 31 39 38  30 20 54 48 45 20 43 4F  |HT(C)1980 THE CO|
000000A0: 44 45 20 57 4F 52 4B 53  00 C9 04 07 00 22 20 42  |DE WORKS....." B|
000000B0: 4F 58 20 35 35 30 2C 20  47 4F 4C 45 54 41 2C 20  |OX 550, GOLETA, |
000000C0: 43 41 2E 20 39 33 30 31  37 00 CF 04 08 00 22 00  |CA. 93017.....".|
000000D0: E4 04 0A 00 22 20 41 53  20 4F 46 20 39 20 44 45  |...." AS OF 9 DE|
000000E0: 43 20 38 30 00 F5 04 64  00 4D 54 B2 31 30 3A 4D  |C 80...d.MT.10:M|
000000F0: 50 B2 31 30 30 00 12 05  6E 00 96 A5 50 28 58 29  |P.100...n...P(X)|
00000100: B2 B5 28 32 35 AD BD 28  58 AD 32 29 AA 2E 35 29  |..(25..(X.2)..5)|
00000110: AA 31 00 2B 05 78 00 96  A5 52 28 58 29 B2 B5 28  |.1.+.x...R(X)..(|
00000120: 58 AC 31 30 AA 2E 35 29  AD 31 30 00 44 05 82 00  |X.10..5).10.D...|
00000130: 43 52 24 B2 C7 28 31 33  29 3A 4B 59 24 B2 22 44  |CR$..(13):KY$."D|
00000140: 36 41 34 22 00 63 05 8C  00 4C 4E 24 B2 22 C0 C0  |6A4".c...LN$."..|
00000150: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000160: C0 C0 22 00 87 05 96 00  51 24 B2 22 A4 A4 A4 A4  |..".....Q$."....|
00000170: A4 A4 A4 A4 A4 A4 22 3A  43 50 24 B2 51 24 AA 51  |......":CP$.Q$.Q|
00000180: 24 AA 51 24 AA 51 24 00  98 05 A0 00 86 20 52 50  |$.Q$.Q$...... RP|
00000190: 28 34 29 3A 52 50 B2 30  00 BE 05 AA 00 81 20 49  |(4):RP.0...... I|
000001A0: B2 31 20 A4 20 34 3A 87  20 54 3A 52 50 B2 52 50  |.1 . 4:. T:RP.RP|
000001B0: AA 54 3A 52 50 28 49 29  B2 54 3A 82 20 49 00 C4  |.T:RP(I).T:. I..|
000001C0: 05 B4 00 8F 00 DC 05 BE  00 83 20 31 2C 31 2C 31  |.......... 1,1,1|
000001D0: 2C 31 3A 8F 20 2B 2C 2D  2C 2A 2C 2F 00 E2 05 C8  |,1:. +,-,*,/....|
000001E0: 00 8F 00 EA 05 D2 00 4E  B2 32 00 F6 05 DC 00 81  |.......N.2......|
000001F0: 20 49 B2 31 A4 4E 00 33  06 E6 00 99 22 11 11 57  | I.1.N.3...."..W|
00000200: 48 4F 27 53 20 53 49 54  54 49 4E 47 20 54 4F 20  |HO'S SITTING TO |
00000210: 54 48 45 20 22 3B CA 28  22 52 49 47 48 54 4C 45  |THE ";.("RIGHTLE|
00000220: 46 54 22 2C 31 31 AB 35  AC 49 2C 35 29 3B 22 3F  |FT",11.5.I,5);"?|
00000230: 20 22 3B 00 50 06 F0 00  8D 36 30 30 30 30 3A 49  | ";.P....60000:I|
00000240: 4E 24 B2 C8 28 49 4E 24  2C C3 28 4C 4E 24 29 29  |N$..(IN$,.(LN$))|
00000250: 00 74 06 FA 00 8B C8 28  49 4E 24 2C 31 29 B2 22  |.t.....(IN$,1)."|
00000260: 20 22 A7 49 4E 24 B2 CA  28 49 4E 24 2C 32 29 3A  | ".IN$..(IN$,2):|
00000270: 89 32 35 30 00 A0 06 04  01 8B 20 C9 28 49 4E 24  |.250...... .(IN$|
00000280: 2C 31 29 B2 22 20 22 A7  49 4E 24 B2 C8 28 49 4E  |,1)." ".IN$..(IN|
00000290: 24 2C C3 28 49 4E 24 29  AB 31 29 3A 89 32 36 30  |$,.(IN$).1):.260|
000002A0: 00 B0 06 0E 01 8B 49 4E  24 B2 22 22 A7 32 33 30  |......IN$."".230|
000002B0: 00 BE 06 18 01 4E 24 28  49 29 B2 49 4E 24 00 E0  |.....N$(I).IN$..|
000002C0: 06 22 01 52 24 B2 CA 28  4B 59 24 2C 49 2C 31 29  |.".R$..(KY$,I,1)|
000002D0: 3A 57 24 B2 CA 28 4B 59  24 2C 49 AA 32 2C 31 29  |:W$..(KY$,I.2,1)|
000002E0: 00 02 07 2C 01 99 3A 99  49 4E 24 3B 22 2C 20 52  |...,..:.IN$;", R|
000002F0: 45 4D 45 4D 42 45 52 3A  20 59 4F 55 20 50 52 45  |EMEMBER: YOU PRE|
00000300: 53 53 00 2F 07 36 01 99  22 A4 9D 11 12 22 3B 52  |SS./.6.."....";R|
00000310: 24 3B 22 92 20 49 46 20  54 48 45 20 41 4E 53 57  |$;". IF THE ANSW|
00000320: 45 52 20 49 53 20 52 49  47 48 54 2C 20 4F 52 00  |ER IS RIGHT, OR.|
00000330: 59 07 40 01 99 22 A4 9D  11 12 22 3B 57 24 3B 22  |Y.@.."....";W$;"|
00000340: 92 20 49 46 20 54 48 45  20 41 4E 53 57 45 52 20  |. IF THE ANSWER |
00000350: 49 53 20 57 52 4F 4E 47  2E 00 92 07 4A 01 99 22  |IS WRONG....J.."|
00000360: 11 28 48 49 4E 54 3A 20  91 A4 11 9D 12 22 3B 52  |.(HINT: .....";R|
00000370: 24 3B 22 92 20 49 53 20  54 4F 20 54 48 45 20 52  |$;". IS TO THE R|
00000380: 49 47 48 54 11 9D 9D 9D  9D 9D A3 A3 A3 A3 A3 91  |IGHT............|
00000390: 2E 29 00 9A 07 54 01 82  20 49 00 BF 07 5E 01 99  |.)...T.. I...^..|
000003A0: 22 11 11 50 52 45 53 53  20 41 4E 59 20 4B 45 59  |"..PRESS ANY KEY|
000003B0: 20 54 4F 20 43 4F 4E 54  49 4E 55 45 2E 2E 2E 00  | TO CONTINUE....|
000003C0: D2 07 68 01 A1 54 24 3A  8B 54 24 B2 22 22 A7 33  |..h..T$:.T$."".3|
000003D0: 36 30 00 F1 07 72 01 8F  2A 2A 2A 2A 2A 42 45 47  |60...r..*****BEG|
000003E0: 49 4E 20 47 41 4D 45 20  4C 4F 4F 50 2A 2A 2A 2A  |IN GAME LOOP****|
000003F0: 2A 00 03 08 7C 01 50 28  31 29 B2 30 3A 50 28 32  |*...|.P(1).0:P(2|
00000400: 29 B2 30 00 0D 08 86 01  8D 31 33 32 30 00 24 08  |).0......1320.$.|
00000410: 90 01 8D 31 31 35 30 3A  8B 51 24 B2 22 51 22 A7  |...1150:.Q$."Q".|
00000420: 31 30 36 30 00 2A 08 9A  01 8F 00 34 08 A4 01 8D  |1060.*.....4....|
00000430: 31 37 35 30 00 4B 08 AE  01 A1 51 24 3A 8B 20 51  |1750.K....Q$:. Q|
00000440: 24 B3 B1 22 22 20 89 20  34 33 30 00 56 08 B8 01  |$.."" . 430.V...|
00000450: 99 22 93 11 11 22 00 6B  08 C2 01 99 A3 32 30 AB  |."...".k.....20.|
00000460: C3 28 45 24 29 AD 32 29  3B 45 24 00 81 08 CC 01  |.(E$).2);E$.....|
00000470: 54 31 B2 54 49 3A 5A 32  B2 4D 54 AC 36 30 AA 54  |T1.TI:Z2.MT.60.T|
00000480: 31 00 A4 08 D6 01 A1 51  24 3A 8F 20 57 41 49 54  |1......Q$:. WAIT|
00000490: 20 4D 54 20 53 45 43 20  46 4F 52 20 52 45 53 50  | MT SEC FOR RESP|
000004A0: 4F 4E 53 45 00 B3 08 E0  01 8B 54 49 B1 5A 32 A7  |ONSE......TI.Z2.|
000004B0: 39 34 30 00 C2 08 EA 01  8B 51 24 B2 22 22 A7 34  |940......Q$."".4|
000004C0: 37 30 00 CC 08 F4 01 54  32 B2 54 49 00 DC 08 FE  |70.....T2.TI....|
000004D0: 01 81 49 B2 31 A4 C3 28  4B 59 24 29 00 FA 08 08  |..I.1..(KY$)....|
000004E0: 02 3A 8B 20 CA 28 4B 59  24 2C 49 2C 31 29 B2 51  |.:. .(KY$,I,1).Q|
000004F0: 24 A7 46 B2 49 3A 89 35  37 30 00 01 09 12 02 82  |$.F.I:.570......|
00000500: 49 00 18 09 1C 02 8B 51  24 B2 22 51 22 A7 99 22  |I......Q$."Q".."|
00000510: 93 22 3A 89 31 30 35 30  00 59 09 26 02 99 22 93  |.":.1050.Y.&..".|
00000520: 11 11 11 11 11 11 4B 45  45 50 20 59 4F 55 52 20  |......KEEP YOUR |
00000530: 48 41 4E 44 53 20 4F 46  46 20 54 48 45 20 4B 45  |HANDS OFF THE KE|
00000540: 59 53 20 4F 54 48 45 52  20 54 48 41 4E 11 20 59  |YS OTHER THAN. Y|
00000550: 4F 55 52 20 4F 57 4E 21  22 00 62 09 30 02 89 34  |OUR OWN!".b.0..4|
00000560: 30 30 00 7F 09 3A 02 49  24 B2 22 43 22 3A 8B 46  |00...:.I$."C":.F|
00000570: B1 32 A7 49 24 B2 22 49  22 3A 46 B2 46 AB 32 00  |.2.I$."I":F.F.2.|
00000580: 8F 09 44 02 8B 41 24 B3  B1 49 24 A7 37 36 30 00  |..D..A$..I$.760.|
00000590: AF 09 4E 02 99 22 11 11  43 4F 52 52 45 43 54 2C  |..N.."..CORRECT,|
000005A0: 20 22 3B 4E 24 28 46 29  3B 22 21 21 21 21 22 00  | ";N$(F);"!!!!".|
000005B0: DB 09 58 02 8B 20 41 24  B2 22 49 22 20 A7 20 99  |..X.. A$."I" . .|
000005C0: 22 11 54 48 45 20 41 4E  53 57 45 52 20 53 48 4F  |".THE ANSWER SHO|
000005D0: 55 4C 44 20 42 45 22 3B  4E 43 24 00 E5 09 62 02  |ULD BE";NC$...b.|
000005E0: 8D 31 32 33 30 00 F7 09  6C 02 45 54 B2 28 54 32  |.1230...l.ET.(T2|
000005F0: AB 54 31 29 AD 36 30 00  12 0A 76 02 50 54 B2 A5  |.T1).60...v.PT..|
00000600: 50 28 45 54 29 3A 50 28  46 29 B2 50 28 46 29 AA  |P(ET):P(F).P(F).|
00000610: 50 54 00 20 0A 80 02 45  54 B2 A5 52 28 45 54 29  |PT. ...ET..R(ET)|
00000620: 00 43 0A 8A 02 50 24 B2  22 50 4F 49 4E 54 53 21  |.C...P$."POINTS!|
00000630: 22 3A 8B 50 54 B2 31 A7  50 24 B2 22 50 4F 49 4E  |":.PT.1.P$."POIN|
00000640: 54 21 22 00 66 0A 94 02  53 24 B2 22 53 45 43 4F  |T!".f...S$."SECO|
00000650: 4E 44 53 22 3A 8B 45 54  B2 31 A7 53 24 B2 22 53  |NDS":.ET.1.S$."S|
00000660: 45 43 4F 4E 44 22 00 89  0A 9E 02 51 24 B2 22 11  |ECOND".....Q$.".|
00000670: 49 54 20 54 4F 4F 4B 20  59 4F 55 22 AA C4 28 45  |IT TOOK YOU"..(E|
00000680: 54 29 AA 22 20 22 AA 53  24 00 AA 0A A8 02 51 24  |T)." ".S$.....Q$|
00000690: B2 51 24 AA 22 20 54 4F  20 52 45 53 50 4F 4E 44  |.Q$." TO RESPOND|
000006A0: 20 41 4E 44 20 59 4F 55  20 22 00 CA 0A B2 02 51  | AND YOU ".....Q|
000006B0: 24 B2 51 24 AA 22 45 41  52 4E 45 44 22 AA C4 28  |$.Q$."EARNED"..(|
000006C0: 50 54 29 AA 22 20 22 AA  50 24 00 D0 0A BC 02 8F  |PT)." ".P$......|
000006D0: 00 EA 0A C6 02 8F 20 20  20 2A 2A 2A 2A 4C 4F 4F  |......   ****LOO|
000006E0: 50 20 45 58 49 54 2A 2A  2A 2A 00 FD 0A D0 02 8B  |P EXIT****......|
000006F0: 50 28 46 29 B1 B2 4D 50  89 31 30 32 30 00 06 0B  |P(F)..MP.1020...|
00000700: DA 02 89 38 39 30 00 21  0B F8 02 99 22 11 11 57  |...890.!...."..W|
00000710: 52 4F 4E 47 2C 20 22 3B  4E 24 28 46 29 3B 22 2C  |RONG, ";N$(F);",|
00000720: 22 00 4B 0B 02 03 8B 20  41 24 B2 22 49 22 A7 99  |".K.... A$."I"..|
00000730: 22 11 54 48 45 20 41 4E  53 57 45 52 20 49 53 20  |".THE ANSWER IS |
00000740: 52 45 41 4C 4C 59 22 3B  4E 43 24 00 73 0B 0C 03  |REALLY";NC$.s...|
00000750: 8B 20 41 24 B2 22 43 22  A7 99 22 11 54 48 45 20  |. A$."C"..".THE |
00000760: 41 4E 53 57 45 52 20 49  53 20 43 4F 52 52 45 43  |ANSWER IS CORREC|
00000770: 54 2E 22 00 85 0B 16 03  45 54 B2 28 54 32 AB 54  |T.".....ET.(T2.T|
00000780: 31 29 AD 36 30 00 A0 0B  20 03 50 54 B2 A5 50 28  |1).60... .PT..P(|
00000790: 45 54 29 3A 50 28 46 29  B2 50 28 46 29 AB 50 54  |ET):P(F).P(F).PT|
000007A0: 00 AE 0B 2A 03 45 54 B2  A5 52 28 45 54 29 00 D1  |...*.ET..R(ET)..|
000007B0: 0B 34 03 53 24 B2 22 53  45 43 4F 4E 44 53 22 3A  |.4.S$."SECONDS":|
000007C0: 8B 45 54 B2 31 A7 53 24  B2 22 53 45 43 4F 4E 44  |.ET.1.S$."SECOND|
000007D0: 22 00 F4 0B 3E 03 50 24  B2 22 50 4F 49 4E 54 53  |"...>.P$."POINTS|
000007E0: 21 22 3A 8B 50 54 B2 31  A7 50 24 B2 22 50 4F 49  |!":.PT.1.P$."POI|
000007F0: 4E 54 21 22 00 17 0C 48  03 51 24 B2 22 11 49 54  |NT!"...H.Q$.".IT|
00000800: 20 54 4F 4F 4B 20 59 4F  55 22 AA C4 28 45 54 29  | TOOK YOU"..(ET)|
00000810: AA 22 20 22 AA 53 24 00  3D 0C 52 03 51 24 B2 51  |." ".S$.=.R.Q$.Q|
00000820: 24 AA 22 20 54 4F 20 52  45 53 50 4F 4E 44 20 41  |$." TO RESPOND A|
00000830: 4E 44 20 59 4F 55 20 4C  4F 53 54 20 22 00 54 0C  |ND YOU LOST ".T.|
00000840: 5C 03 51 24 B2 51 24 AA  C4 28 50 54 29 AA 22 20  |\.Q$.Q$..(PT)." |
00000850: 22 AA 50 24 00 64 0C 7A  03 8D 31 34 36 30 3A 99  |".P$.d.z..1460:.|
00000860: 22 11 11 22 00 74 0C 84  03 81 49 B2 31 A4 35 30  |"..".t....I.1.50|
00000870: 30 30 3A 82 00 7E 0C 8E  03 89 20 33 39 30 00 9A  |00:..~.... 390..|
00000880: 0C AC 03 99 22 11 11 11  22 3B A3 31 35 29 3B 22  |...."...";.15);"|
00000890: 54 49 4D 45 27 53 20 55  50 21 00 BC 0C B6 03 99  |TIME'S UP!......|
000008A0: 22 11 22 3B A3 31 32 AA  28 41 24 B2 22 49 22 29  |".";.12.(A$."I")|
000008B0: 29 3B 22 49 54 20 57 41  53 20 22 3B 00 D0 0C C0  |);"IT WAS ";....|
000008C0: 03 8B 41 24 B2 22 49 22  A7 20 99 22 49 4E 22 3B  |..A$."I". ."IN";|
000008D0: 00 E1 0C CA 03 99 22 43  4F 52 52 45 43 54 21 11  |......"CORRECT!.|
000008E0: 11 00 07 0D D4 03 99 A3  37 29 3B 22 11 11 50 52  |........7);"..PR|
000008F0: 45 53 53 20 41 4E 59 20  4B 45 59 20 54 4F 20 43  |ESS ANY KEY TO C|
00000900: 4F 4E 54 49 4E 55 45 00  1A 0D DE 03 A1 51 24 3A  |ONTINUE......Q$:|
00000910: 8B 51 24 B2 22 22 A7 39  39 30 00 24 0D E8 03 89  |.Q$."".990.$....|
00000920: 20 33 39 30 00 44 0D F2  03 8F 2A 2A 2A 2A 2A 45  | 390.D....*****E|
00000930: 4E 44 20 4F 46 20 47 41  4D 45 20 4C 4F 4F 50 2A  |ND OF GAME LOOP*|
00000940: 2A 2A 2A 2A 00 5C 0D FC  03 8F 20 50 52 41 49 53  |****.\.... PRAIS|
00000950: 45 20 54 48 45 20 57 49  4E 4E 45 52 00 66 0D 06  |E THE WINNER.f..|
00000960: 04 8D 31 32 33 30 00 7D  0D 10 04 8D 31 34 36 30  |..1230.}....1460|
00000970: 3A 81 4C 49 B2 31 A4 32  30 30 30 3A 82 00 87 0D  |:.LI.1.2000:....|
00000980: 1A 04 8D 31 33 32 30 00  91 0D 24 04 8D 31 32 33  |...1320...$..123|
00000990: 30 00 AA 0D 2E 04 46 B2  31 3A 8B 20 50 28 31 29  |0.....F.1:. P(1)|
000009A0: B3 50 28 32 29 A7 20 46  B2 32 00 EE 0D 38 04 8B  |.P(2). F.2...8..|
000009B0: 50 28 31 29 B2 50 28 32  29 A7 51 24 B2 4E 24 28  |P(1).P(2).Q$.N$(|
000009C0: 31 29 AA 22 20 41 4E 44  20 22 AA 4E 24 28 32 29  |1)." AND ".N$(2)|
000009D0: AA 22 2C 20 54 48 45 20  47 41 4D 45 20 49 53 20  |.", THE GAME IS |
000009E0: 41 20 54 49 45 21 22 3A  89 20 31 31 30 30 00 2B  |A TIE!":. 1100.+|
000009F0: 0E 42 04 51 24 B2 4E 24  28 46 29 AA 22 2C 20 59  |.B.Q$.N$(F).", Y|
00000A00: 4F 55 20 41 52 45 20 54  48 45 20 57 49 4E 4E 45  |OU ARE THE WINNE|
00000A10: 52 2C 20 57 49 54 48 22  AA C4 28 50 28 46 29 29  |R, WITH"..(P(F))|
00000A20: AA 22 20 50 4F 49 4E 54  53 2E 22 00 37 0E 4C 04  |." POINTS.".7.L.|
00000A30: 99 3A 8D 31 34 36 30 00  70 0E 56 04 99 22 11 11  |.:.1460.p.V.."..|
00000A40: 57 41 4E 54 20 54 4F 20  50 4C 41 59 20 41 47 41  |WANT TO PLAY AGA|
00000A50: 49 4E 3F 20 22 3B 3A 8D  36 30 30 30 30 3A 8B C8  |IN? ";:.60000:..|
00000A60: 28 49 4E 24 2C 31 29 B3  B1 22 4E 22 A7 33 38 30  |(IN$,1).."N".380|
00000A70: 00 7B 0E 60 04 99 22 93  11 11 22 00 81 0E 6A 04  |.{.`.."..."...j.|
00000A80: 80 00 99 0E 74 04 8F 20  50 52 49 4E 54 20 27 47  |....t.. PRINT 'G|
00000A90: 45 54 20 52 45 41 44 59  27 00 AF 0E 7E 04 81 49  |ET READY'...~..I|
00000AA0: B2 31 20 A4 20 31 30 AA  35 30 AC BB 28 31 29 00  |.1 . 10.50..(1).|
00000AB0: C5 0E 88 04 99 A3 31 35  29 22 47 45 54 20 52 45  |......15)"GET RE|
00000AC0: 41 44 59 91 22 00 D3 0E  92 04 54 B2 BF 28 BF 28  |ADY.".....T..(.(|
00000AD0: 35 29 29 00 E9 0E 9C 04  99 A3 31 35 29 22 20 20  |5)).......15)"  |
00000AE0: 20 20 20 20 20 20 20 91  22 00 F7 0E A6 04 54 B2  |       .".....T.|
00000AF0: BF 28 BF 28 35 29 29 00  09 0F B0 04 A1 51 24 3A  |.(.(5))......Q$:|
00000B00: 8B 51 24 B2 22 51 22 A7  8E 00 0F 0F BA 04 82 00  |.Q$."Q".........|
00000B10: 15 0F C4 04 8E 00 2C 0F  CE 04 8F 20 53 4F 4D 45  |......,.... SOME|
00000B20: 20 4E 45 41 54 20 4E 4F  49 53 45 53 00 3A 0F D8  | NEAT NOISES.:..|
00000B30: 04 97 35 39 34 36 37 2C  31 36 00 48 0F E2 04 97  |..59467,16.H....|
00000B40: 35 39 34 36 36 2C 35 31  00 55 0F EC 04 81 4C 4A  |59466,51.U....LJ|
00000B50: B2 31 A4 36 30 00 6C 0F  F6 04 97 35 39 34 36 34  |.1.60.l....59464|
00000B60: 2C B5 28 BB 28 31 29 AC  32 35 36 29 00 72 0F 00  |,.(.(1).256).r..|
00000B70: 05 82 00 7F 0F 0A 05 97  35 39 34 36 37 2C 30 00  |........59467,0.|
00000B80: 85 0F 14 05 8E 00 98 0F  1E 05 8F 20 50 52 49 4E  |........... PRIN|
00000B90: 54 20 53 43 4F 52 45 53  00 B0 0F 28 05 99 22 93  |T SCORES...(..".|
00000BA0: 22 3B A3 31 35 29 3B C8  28 43 50 24 2C 31 30 29  |";.15);.(CP$,10)|
00000BB0: 00 C9 0F 32 05 99 20 A3  31 35 29 3B 22 12 53 43  |...2.. .15);".SC|
00000BC0: 4F 52 45 42 4F 41 52 44  11 00 EF 0F 3C 05 4C 24  |OREBOARD....<.L$|
00000BD0: B2 22 B0 22 3A 52 24 B2  22 B2 C0 C0 C0 C0 C0 AE  |.".":R$.".......|
00000BE0: 22 3A 54 B2 31 36 AB C3  28 4C 4E 24 29 AD 32 00  |":T.16..(LN$).2.|
00000BF0: FE 0F 46 05 81 20 4C 49  B2 31 20 A4 20 4E 00 11  |..F.. LI.1 . N..|
00000C00: 10 50 05 99 A3 54 29 3B  4C 24 3B 4C 4E 24 3B 52  |.P...T);L$;LN$;R|
00000C10: 24 00 2E 10 5A 05 50 24  B2 C9 28 28 22 20 20 20  |$...Z.P$..(("   |
00000C20: 22 AA C4 28 50 28 4C 49  29 29 29 2C 35 29 00 55  |"..(P(LI))),5).U|
00000C30: 10 64 05 99 A3 54 29 3B  22 DD 22 4E 24 28 4C 49  |.d...T);"."N$(LI|
00000C40: 29 A3 54 AA C3 28 4C 4E  24 29 AA 31 29 22 DD 22  |).T..(LN$).1)"."|
00000C50: 50 24 22 DD 22 00 6D 10  6E 05 4C 24 B2 22 AB 22  |P$".".m.n.L$."."|
00000C60: 3A 52 24 B2 22 DB C0 C0  C0 C0 C0 B3 22 00 76 10  |:R$.".......".v.|
00000C70: 78 05 82 20 4C 49 00 91  10 82 05 99 A3 54 29 3B  |x.. LI.......T);|
00000C80: 22 AD 22 3B 4C 4E 24 3B  22 B1 C0 C0 C0 C0 C0 BD  |".";LN$;".......|
00000C90: 22 00 A9 10 8C 05 51 24  B2 C4 28 4D 50 29 3A 54  |".....Q$..(MP):T|
00000CA0: B2 31 39 AA C3 28 51 24  29 00 C0 10 96 05 99 A3  |.19..(Q$).......|
00000CB0: 32 30 AB 54 AD 32 29 3B  C8 28 43 50 24 2C 54 29  |20.T.2);.(CP$,T)|
00000CC0: 00 EC 10 A0 05 99 A3 32  30 AB 54 AD 32 29 3B 22  |.......20.T.2);"|
00000CD0: 12 47 41 4D 45 20 4F 56  45 52 20 41 54 22 3B 51  |.GAME OVER AT";Q|
00000CE0: 24 3B 22 20 50 4F 49 4E  54 53 11 22 00 F2 10 AA  |$;" POINTS."....|
00000CF0: 05 8E 00 0E 11 B4 05 8F  20 50 52 49 4E 54 20 4C  |........ PRINT L|
00000D00: 4F 4E 47 20 51 24 20 4F  46 20 54 45 58 54 00 23  |ONG Q$ OF TEXT.#|
00000D10: 11 BE 05 8B 20 C3 28 51  24 29 B3 34 30 20 89 31  |.... .(Q$).40 .1|
00000D20: 35 34 30 00 2D 11 C8 05  4C 49 B2 34 30 00 48 11  |540.-...LI.40.H.|
00000D30: D2 05 8B 20 CA 28 51 24  2C 4C 49 2C 31 29 B2 22  |... .(Q$,LI,1)."|
00000D40: 20 22 20 89 31 35 31 30  00 5A 11 DC 05 4C 49 B2  | " .1510.Z...LI.|
00000D50: 4C 49 AB 31 3A 89 31 34  39 30 00 6E 11 E6 05 99  |LI.1:.1490.n....|
00000D60: 20 C8 28 51 24 2C 4C 49  AB 31 29 22 11 22 00 84  | .(Q$,LI.1)"."..|
00000D70: 11 F0 05 51 24 B2 C9 28  51 24 2C C3 28 51 24 29  |...Q$..(Q$,.(Q$)|
00000D80: AB 4C 49 29 00 8E 11 FA  05 89 31 34 37 30 00 96  |.LI)......1470..|
00000D90: 11 04 06 99 51 24 00 9C  11 0E 06 8E 00 BF 11 18  |....Q$..........|
00000DA0: 06 8F 20 54 48 45 20 46  4F 4C 4C 4F 57 49 4E 47  |.. THE FOLLOWING|
00000DB0: 20 43 4F 44 45 20 47 45  4E 45 52 41 54 45 53 00  | CODE GENERATES.|
00000DC0: E3 11 22 06 8F 20 54 48  45 20 50 52 4F 42 4C 45  |..".. THE PROBLE|
00000DD0: 4D 53 20 50 52 45 53 45  4E 54 45 44 20 49 4E 20  |MS PRESENTED IN |
00000DE0: 54 48 45 00 04 12 2C 06  8F 20 47 41 4D 45 2E 20  |THE...,.. GAME. |
00000DF0: 54 48 45 20 55 53 45 52  20 43 41 4E 20 52 45 50  |THE USER CAN REP|
00000E00: 4C 41 43 45 00 23 12 36  06 8F 20 54 48 49 53 20  |LACE.#.6.. THIS |
00000E10: 52 4F 55 54 49 4E 45 20  57 49 54 48 20 4F 4E 45  |ROUTINE WITH ONE|
00000E20: 20 54 4F 00 43 12 40 06  8F 20 47 45 4E 45 52 41  | TO.C.@.. GENERA|
00000E30: 54 45 20 20 50 52 4F 42  4C 45 4D 53 20 42 45 54  |TE  PROBLEMS BET|
00000E40: 54 45 52 00 61 12 4A 06  8F 20 46 49 54 54 49 4E  |TER.a.J.. FITTIN|
00000E50: 47 20 54 48 45 20 43 55  52 52 49 43 55 4C 55 4D  |G THE CURRICULUM|
00000E60: 2E 00 67 12 54 06 8F 00  87 12 5E 06 8F 20 20 54  |..g.T.....^..  T|
00000E70: 48 45 52 45 20 41 52 45  20 4F 4E 4C 59 20 54 57  |HERE ARE ONLY TW|
00000E80: 4F 20 50 41 52 41 2D 00  A7 12 68 06 8F 20 20 4D  |O PARA-...h..  M|
00000E90: 45 54 45 52 53 20 52 45  54 55 52 4E 45 44 20 20  |ETERS RETURNED  |
00000EA0: 42 59 20 54 48 49 53 00  BA 12 72 06 8F 20 20 53  |BY THIS...r..  S|
00000EB0: 55 42 52 4F 55 54 49 4E  45 3A 00 C0 12 7C 06 8F  |UBROUTINE:...|..|
00000EC0: 00 DE 12 86 06 8F 20 20  20 45 24 2E 2E 2E 52 45  |......   E$...RE|
00000ED0: 54 55 52 4E 53 20 54 48  45 20 54 45 58 54 00 FB  |TURNS THE TEXT..|
00000EE0: 12 90 06 8F 20 20 20 20  20 20 20 20 4F 46 20 54  |....        OF T|
00000EF0: 48 45 20 50 52 4F 42 4C  45 4D 2E 00 01 13 9A 06  |HE PROBLEM......|
00000F00: 8F 00 1F 13 A4 06 8F 20  20 20 41 24 2E 2E 2E 52  |.......   A$...R|
00000F10: 45 54 55 52 4E 53 20 41  20 22 43 22 20 49 46 00  |ETURNS A "C" IF.|
00000F20: 3D 13 AE 06 8F 20 20 20  20 20 20 20 20 54 48 45  |=....        THE|
00000F30: 20 20 50 52 4F 42 4C 45  4D 20 20 49 53 00 5B 13  |  PROBLEM  IS.[.|
00000F40: B8 06 8F 20 20 20 20 20  20 20 20 43 4F 52 52 45  |...        CORRE|
00000F50: 43 54 2C 20 22 49 22 20  46 4F 52 00 73 13 C2 06  |CT, "I" FOR.s...|
00000F60: 8F 20 20 20 20 20 20 20  20 49 4E 43 4F 52 52 45  |.        INCORRE|
00000F70: 43 54 2E 00 79 13 CC 06  8F 00 8A 13 D6 06 54 B2  |CT..y.........T.|
00000F80: B5 28 BB 28 31 29 AC 52  50 29 00 98 13 E0 06 81  |.(.(1).RP)......|
00000F90: 20 4F B2 31 20 A4 20 33  00 AD 13 EA 06 8B 20 54  | O.1 . 3...... T|
00000FA0: B3 52 50 28 4F 29 20 A7  20 31 38 30 30 00 BB 13  |.RP(O) . 1800...|
00000FB0: F4 06 54 B2 54 AB 52 50  28 4F 29 00 C7 13 FE 06  |..T.T.RP(O).....|
00000FC0: 82 20 4F 3A 4F B2 34 00  DB 13 08 07 4E 31 B2 B5  |. O:O.4.....N1..|
00000FD0: 28 BB 28 31 29 AC 32 30  29 AA 31 00 EF 13 12 07  |(.(1).20).1.....|
00000FE0: 4E 32 B2 B5 28 BB 28 31  29 AC 32 30 29 AA 31 00  |N2..(.(1).20).1.|
00000FF0: 0D 14 1C 07 91 20 4F 20  8D 20 31 39 31 30 2C 31  |..... O . 1910,1|
00001000: 39 33 30 2C 31 39 35 30  2C 31 39 37 30 00 2B 14  |930,1950,1970.+.|
00001010: 26 07 8B 20 C3 28 C4 28  4E 33 AB B5 28 4E 33 29  |&.. .(.(N3..(N3)|
00001020: 29 29 B1 34 20 A7 20 31  38 30 30 00 58 14 30 07  |)).4 . 1800.X.0.|
00001030: 4E 43 B2 4E 33 3A 8B 20  BB 28 31 29 B1 2E 35 20  |NC.N3:. .(1)..5 |
00001040: A7 4E 33 B2 B5 28 BB 28  31 29 AC 37 29 AB 33 3A  |.N3..(.(1).7).3:|
00001050: 4E 33 B2 4E 43 AA 4E 33  00 75 14 3A 07 41 24 B2  |N3.NC.N3.u.:.A$.|
00001060: 22 43 22 3A 8B 20 4E 33  B3 B1 4E 43 20 A7 20 41  |"C":. N3..NC . A|
00001070: 24 B2 22 49 22 00 9B 14  44 07 45 4C 24 B2 C4 28  |$."I"...D.EL$..(|
00001080: 4E 31 29 AA 22 20 22 AA  CA 28 22 2B 2D D6 CE 22  |N1)." "..("+-.."|
00001090: 2C 4F 2C 31 29 AA C4 28  4E 32 29 00 BE 14 4E 07  |,O,1)..(N2)...N.|
000010A0: 45 52 24 B2 C4 28 4E 33  29 3A 8B 20 4E 33 B3 30  |ER$..(N3):. N3.0|
000010B0: 20 A7 20 45 52 24 B2 22  20 22 AA 45 52 24 00 D2  | . ER$." ".ER$..|
000010C0: 14 58 07 45 24 B2 45 4C  24 AA 22 20 3D 22 AA 45  |.X.E$.EL$." =".E|
000010D0: 52 24 00 F5 14 62 07 4E  43 24 B2 C4 28 4E 43 29  |R$...b.NC$..(NC)|
000010E0: 3A 8B 20 4E 43 B3 30 20  A7 20 4E 43 24 B2 22 20  |:. NC.0 . NC$." |
000010F0: 22 AA 4E 43 24 00 FB 14  6C 07 8E 00 0D 15 76 07  |".NC$...l.....v.|
00001100: 8F 20 44 4F 20 41 44 44  49 54 49 4F 4E 00 1C 15  |. DO ADDITION...|
00001110: 80 07 4E 33 B2 4E 31 AA  4E 32 3A 8E 00 31 15 8A  |..N3.N1.N2:..1..|
00001120: 07 8F 20 44 4F 20 53 55  42 54 52 41 43 54 49 4F  |.. DO SUBTRACTIO|
00001130: 4E 00 40 15 94 07 4E 33  B2 4E 31 AB 4E 32 3A 8E  |N.@...N3.N1.N2:.|
00001140: 00 58 15 9E 07 8F 20 44  4F 20 4D 55 4C 54 49 50  |.X.... DO MULTIP|
00001150: 4C 49 43 41 54 49 4F 4E  00 67 15 A8 07 4E 33 B2  |LICATION.g...N3.|
00001160: 4E 31 AC 4E 32 3A 8E 00  79 15 B2 07 8F 20 44 4F  |N1.N2:..y.... DO|
00001170: 20 44 49 56 49 53 49 4F  4E 00 88 15 BC 07 4E 33  | DIVISION.....N3|
00001180: B2 4E 31 AD 4E 32 3A 8E  00 A9 15 60 EA 49 4E 24  |.N1.N2:....`.IN$|
00001190: B2 22 20 22 3A 5A 54 B2  54 49 3A 5A 43 B2 32 3A  |." ":ZT.TI:ZC.2:|
000011A0: 5A 44 24 B2 C7 28 32 30  29 00 BF 15 6A EA A1 5A  |ZD$..(20)...j..Z|
000011B0: 24 3A 8B 5A 24 B3 B1 22  22 A7 36 30 30 37 30 00  |$:.Z$.."".60070.|
000011C0: EF 15 74 EA 8B 5A 54 B3  B2 54 49 A7 99 CA 28 22  |..t..ZT..TI...("|
000011D0: 20 A6 22 2C 5A 43 2C 31  29 3B 22 9D 22 3B 3A 5A  | .",ZC,1);".";:Z|
000011E0: 43 B2 33 AB 5A 43 3A 5A  54 B2 54 49 AA 31 35 00  |C.3.ZC:ZT.TI.15.|
000011F0: FA 15 7E EA 89 36 30 30  31 30 00 2A 16 A6 EA 5A  |..~..60010.*...Z|
00001200: B2 C6 28 5A 24 29 3A 5A  4C B2 C3 28 49 4E 24 29  |..(Z$):ZL..(IN$)|
00001210: 3A 8B 28 5A AF 31 32 37  29 B3 33 32 A7 99 22 20  |:.(Z.127).32.." |
00001220: 9D 22 3B 3A 89 36 30 31  31 30 00 5A 16 B0 EA 8B  |.";:.60110.Z....|
00001230: 46 4C AF 28 5A AF 31 32  37 29 B1 36 34 AF 28 5A  |FL.(Z.127).64.(Z|
00001240: AF 31 32 37 29 B3 39 31  A7 5A 24 B2 C7 28 28 5A  |.127).91.Z$..((Z|
00001250: AA 31 32 38 29 AF 32 35  35 29 00 6C 16 BA EA 8B  |.128).255).l....|
00001260: 5A 4C B1 32 35 34 A7 36  30 30 31 30 00 87 16 C4  |ZL.254.60010....|
00001270: EA 49 4E 24 B2 49 4E 24  AA 5A 24 3A 99 5A 24 3B  |.IN$.IN$.Z$:.Z$;|
00001280: 5A 44 24 3B 5A 24 3B 00  A6 16 CE EA 8B 5A B2 31  |ZD$;Z$;......Z.1|
00001290: 33 A7 49 4E 24 B2 CA 28  49 4E 24 2C 32 29 3A 99  |3.IN$..(IN$,2):.|
000012A0: 43 52 24 3B 3A 8E 00 D2  16 D8 EA 8B 5A B2 32 30  |CR$;:.......Z.20|
000012B0: AF 5A 4C B1 31 A7 49 4E  24 B2 C8 28 49 4E 24 2C  |.ZL.1.IN$..(IN$,|
000012C0: 5A 4C AB 31 29 3A 99 22  9D 22 3B 3A 89 36 30 30  |ZL.1):.".";:.600|
000012D0: 31 30 00 05 17 E2 EA 8B  5A B2 31 34 31 A7 5A 24  |10......Z.141.Z$|
000012E0: B2 C7 28 AB 32 30 AC 28  5A 4C B1 31 29 29 3A 81  |..(.20.(ZL.1)):.|
000012F0: 5A B2 32 A4 5A 4C 3A 99  5A 24 3B 3A 82 5A 3A 89  |Z.2.ZL:.Z$;:.Z:.|
00001300: 36 30 30 30 30 00 10 17  EC EA 89 36 30 30 31 30  |60000......60010|
00001310: 00 1E 17 30 F2 97 35 39  34 36 38 2C 31 32 00 4C  |...0..59468,12.L|
00001320: 17 35 F2 99 22 93 11 11  22 3B A3 31 35 AB C3 28  |.5.."...";.15..(|
00001330: 50 47 24 29 29 3B 50 47  24 3B 22 20 20 42 59 20  |PG$));PG$;"  BY |
00001340: 43 2E 54 2E 4E 41 44 4F  56 49 43 48 00 7D 17 3A  |C.T.NADOVICH.}.:|
00001350: F2 99 22 11 20 20 20 20  20 43 55 52 53 4F 52 20  |..".     CURSOR |
00001360: 23 22 3B 4E 4D 24 3B 22  20 20 43 4F 50 59 52 49  |#";NM$;"  COPYRI|
00001370: 47 48 54 20 28 43 29 20  31 39 38 30 11 00 95 17  |GHT (C) 1980....|
00001380: 44 F2 81 49 B2 31 A4 31  30 3A 99 22 C0 C0 C0 C0  |D..I.1.10:."....|
00001390: 22 3B 3A 82 49 00 B8 17  4E F2 99 22 11 51 55 49  |";:.I...N..".QUI|
000013A0: 43 4B 21 20 57 48 41 54  27 53 20 54 57 4F 20 50  |CK! WHAT'S TWO P|
000013B0: 4C 55 53 20 54 57 4F 3F  00 D8 17 58 F2 99 22 11  |LUS TWO?...X..".|
000013C0: 11 50 52 45 53 53 20 12  52 45 54 55 52 4E 92 20  |.PRESS .RETURN. |
000013D0: 54 4F 20 42 45 47 49 4E  00 ED 17 62 F2 A1 54 24  |TO BEGIN...b..T$|
000013E0: 3A 8B 54 24 B2 22 22 A7  36 32 30 35 30 00 07 18  |:.T$."".62050...|
000013F0: 6C F2 99 22 93 22 3A 9C  3A 43 52 24 B2 C7 28 31  |l..".":.:CR$..(1|
00001400: 33 29 3A 89 31 30 30 00  00 00                    |3):.100...      |

..$....:PG$."MWHIZ!":NM$."23":.62000.7..
." C.T.NADOVICH.K..." 24 SECOND AVE.A...
" TROY, NY  12180.G..."....." CURSOR #23
, DEC 1980....." COPYRIGHT(C)1980 THE CO
DE WORKS.I..." BOX 550, GOLETA, CA. 9301
7.O..."....." AS OF 9 DEC 80...D.MT.10:M
P.100...N...P(X)..(25..(X.2)..5).1.+.X..
.R(X)..(X.10..5).10.D...CR$.G(13):KY$."D
6A4".C...LN$."....................".....
Q$."..........":CP$.Q$.Q$.Q$.Q$... .. RP
(4):RP.0...... I.1 . 4:. T:RP.RP.T:RP(I)
.T:. I.D.......... 1,1,1,1:. +,-,*,/...H
.....R.N.2...... I.1.N.3...."..WHO'S SIT
TING TO THE ";J("RIGHTLEFT",11.5.I,5);"?
 ";.P....60000:IN$.H(IN$,C(LN$)).T....H(
IN$,1)." ".IN$.J(IN$,2):.250. .... I(IN$
,1)." ".IN$.H(IN$,C(IN$).1):.260......IN
$."".230.....N$(I).IN$...".R$.J(KY$,I,1)
:W$.J(KY$,I.2,1)...,..:.IN$;", REMEMBER:
 YOU PRESS./.6.."....";R$;". IF THE ANSW
ER IS RIGHT, OR.Y.@.."....";W$;". IF THE
 ANSWER IS WRONG....J..".(HINT: .....";R
$;". IS TO THE RIGHT.............)...T..
 I...^.."..PRESS ANY KEY TO CONTINUE....
R.H..T$:.T$."".360...R..*****BEGIN GAME 
LOOP*****...|.P(1).0:P(2).0......1320.$.
...1150:.Q$."Q".1060.*.....4....1750.K..
..Q$:. Q$.."" . 430.V...."...".K.B...20.
C(E$).2);E$...L.T1.TI:Z2.MT.60.T1...V..Q
$:. WAIT MT SEC FOR RESPONSE......TI.Z2.
940.B....Q$."".470.L...T2.TI......I.1.C(
KY$).....:. J(KY$,I,1).Q$.F.I:.570......
I......Q$."Q"..".":.1050.Y.&..".......KE
EP YOUR HANDS OFF THE KEYS OTHER THAN. Y
OUR OWN!".B.0..400..:.I$."C":.F.2.I$."I
":F.F.2...D..A$..I$.760...N.."..CORRECT,
 ";N$(F);"!!!!"...X.. A$."I" . .".THE AN
SWER SHOULD BE";NC$...B..1230...L.ET.(T2
.T1).60...V.PT..P(ET):P(F).P(F).PT. ...E
T..R(ET).C...P$."POINTS!":.PT.1.P$."POIN
T!".F...S$."SECONDS":.ET.1.S$."SECOND"..
...Q$.".IT TOOK YOU".D(ET)." ".S$.....Q$
.Q$." TO RESPOND AND YOU ".J...Q$.Q$."EA
RNED".D(PT)." ".P$.P.......F..   ****LOO
P EXIT****...P..P(F)..MP.1020...Z..890.!
...."..WRONG, ";N$(F);",".K.... A$."I"..
".THE ANSWER IS REALLY";NC$.S.... A$."C"
..".THE ANSWER IS CORRECT.".....ET.(T2.T
1).60. . .PT..P(ET):P(F).P(F).PT...*.ET.
.R(ET).Q.4.S$."SECONDS":.ET.1.S$."SECOND
"...>.P$."POINTS!":.PT.1.P$."POINT!"...H
.Q$.".IT TOOK YOU".D(ET)." ".S$.=.R.Q$.Q
$." TO RESPOND AND YOU LOST ".T.\.Q$.Q$.
D(PT)." ".P$.D.Z..1460:."..".T....I.1.50
00:..~.... 390......"...";.15);"TIME'S U
P!......".";.12.(A$."I"));"IT WAS ";.P..
..A$."I". ."IN";...J.."CORRECT!.....T...
7);"..PRESS ANY KEY TO CONTINUE......Q$:
.Q$."".990.$.... 390.D....*****END OF GA
ME LOOP*****.\.... PRAISE THE WINNER.F..
..1230.}....1460:.LI.1.2000:.......1320.
..$..1230.....F.1:. P(1).P(2). F.2...8..
P(1).P(2).Q$.N$(1)." AND ".N$(2).", THE 
GAME IS A TIE!":. 1100.+.B.Q$.N$(F).", Y
OU ARE THE WINNER, WITH".D(P(F))." POINT
S.".7.L..:.1460.P.V.."..WANT TO PLAY AGA
IN? ";:.60000:.H(IN$,1).."N".380.{.`..".
.."...J.....T.. PRINT 'GET READY'...~..I
.1 . 10.50..(1).E.....15)"GET READY.".S.
..T..(.(5)).......15)"         .".....T.
.(.(5))......Q$:.Q$."Q"...........D...,.
N.. SOME NEAT NOISES.:.X..59467,16.H....
59466,51.U....LJ.1.60.L....59464,.(.(1).
256).R.........59467,0............ PRIN
T SCORES...(..".";.15);H(CP$,10).I.2.. .
15);".SCOREBOARD....<.L$.".":R$.".......
":T.16.C(LN$).2...F.. LI.1 . N...P...T);
L$;LN$;R$...Z.P$.I(("   ".D(P(LI))),5).U
.D...T);"."N$(LI).T.C(LN$).1)"."P$".".M.
N.L$.".":R$.".......".V.X.. LI.......T);
".";LN$;".......".....Q$.D(MP):T.19.C(Q$
).......20.T.2);H(CP$,T)... ...20.T.2);"
.GAME OVER AT";Q$;" POINTS."............
 PRINT LONG Q$ OF TEXT.#.... C(Q$).40 .1
540.-.H.LI.40.H.R.. J(Q$,LI,1)." " .1510
.Z...LI.LI.1:.1490.N.... H(Q$,LI.1)"."..
...Q$.I(Q$,C(Q$).LI)......1470......Q$..
.......... THE FOLLOWING CODE GENERATES.
..".. THE PROBLEMS PRESENTED IN THE...,.
. GAME. THE USER CAN REPLACE.#.6.. THIS 
ROUTINE WITH ONE TO.C.@.. GENERATE  PROB
LEMS BETTER.A.J.. FITTING THE CURRICULUM
..G.T.....^..  THERE ARE ONLY TWO PARA-.
..H..  METERS RETURNED  BY THIS...R..  S
UBROUTINE:...|........   E$...RETURNS TH
E TEXT......        OF THE PROBLEM......
.......   A$...RETURNS A "C" IF.=....   
     THE  PROBLEM  IS.[....        CORRE
CT, "I" FOR.S.B..        INCORRECT..Y.L.
....V.T..(.(1).RP)...... O.1 . 3...... T
.RP(O) . 1800.....T.T.RP(O).G.... O:O.4.
....N1..(.(1).20).1.....N2..(.(1).20).1.
..... O . 1910,1930,1950,1970.+.&.. C(D(
N3..(N3))).4 . 1800.X.0.NC.N3:. .(1)..5 
.N3..(.(1).7).3:N3.NC.N3.U.:.A$."C":. N3
..NC . A$."I"...D.EL$.D(N1)." ".J("+-VN"
,O,1).D(N2)...N.ER$.D(N3):. N3.0 . ER$."
 ".ER$.R.X.E$.EL$." =".ER$...B.NC$.D(NC)
:. NC.0 . NC$." ".NC$...L.....V.. DO ADD
ITION.....N3.N1.N2:..1.... DO SUBTRACTIO
N.@...N3.N1.N2:..X.... DO MULTIPLICATION
.G...N3.N1.N2:..Y.... DO DIVISION.....N3
.N1.N2:....`.IN$." ":ZT.TI:ZC.2:ZD$.G(20
)...J..Z$:.Z$.."".60070...T..ZT..TI..J("
 .",ZC,1);".";:ZC.3.ZC:ZT.TI.15...~..600
10.*...Z.F(Z$):ZL.C(IN$):.(Z.127).32.." 
.";:.60110.Z....FL.(Z.127).64.(Z.127).91
.Z$.G((Z.128).255).L....ZL.254.60010...D
.IN$.IN$.Z$:.Z$;ZD$;Z$;...N..Z.13.IN$.J(
IN$,2):.CR$;:..R.X..Z.20.ZL.1.IN$.H(IN$,
ZL.1):.".";:.60010......Z.141.Z$.G(.20.(
ZL.1)):.Z.2.ZL:.Z$;:.Z:.60000......60010
...0..59468,12.L.5.."...";.15.C(PG$));PG
$;"  BY C.T.NADOVICH.}.:..".     CURSOR 
#";NM$;"  COPYRIGHT (C) 1980....D..I.1.1
0:."....";:.I...N..".QUICK! WHAT'S TWO P
LUS TWO?.X.X.."..PRESS .RETURN. TO BEGIN
...B..T$:.T$."".62050...L..".":.:CR$.G(1
3):.100...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL