000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 57 69 6E 41 50 45 20 32 2E 30 42 30 32 20 ..WinAPE 2.0B02
000030: 28 01 00 00 13 13 13 13 13 13 13 13 13 13 13 13 (...............
000040: 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 ................
000050: 13 13 13 13 13 13 13 13 13 13 13 13 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
000110: 00 00 00 00 02 09 52 E5 00 00 C1 02 00 00 00 02 ......R.........
000120: 00 00 C6 02 00 00 00 02 00 00 C2 02 00 00 00 02 ................
000130: 00 00 C7 02 00 00 00 02 00 00 C3 02 00 00 00 02 ................
000140: 00 00 C8 02 00 00 00 02 00 00 C4 02 00 00 00 02 ................
000150: 00 00 C9 02 00 00 00 02 00 00 C5 02 00 00 00 02 ................
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000200: 00 33 44 50 4C 4F 54 20 20 42 41 53 00 00 00 04 .3DPLOT BAS....
000210: 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000220: 00 32 33 4D 41 54 43 48 45 42 41 53 00 00 00 0E .23MATCHEBAS....
000230: 03 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000240: 00 41 43 45 59 44 55 43 45 42 41 53 00 00 00 12 .ACEYDUCEBAS....
000250: 05 06 07 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000260: 00 41 4D 41 5A 49 4E 47 20 42 41 53 00 00 00 19 .AMAZING BAS....
000270: 08 09 0A 0B 00 00 00 00 00 00 00 00 00 00 00 00 ................
000280: 00 41 4E 49 4D 41 4C 20 20 42 41 53 00 00 00 10 .ANIMAL BAS....
000290: 0C 0D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0002A0: 00 41 57 41 52 49 20 20 20 42 41 53 00 00 00 11 .AWARI BAS....
0002B0: 0E 0F 10 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0002C0: 00 42 41 47 45 4C 53 20 20 42 41 53 00 00 00 12 .BAGELS BAS....
0002D0: 11 12 13 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0002E0: 00 42 41 4E 4E 45 52 20 20 42 41 53 00 00 00 16 .BANNER BAS....
0002F0: 14 15 16 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000300: 00 42 41 53 4B 45 54 42 41 42 41 53 00 00 00 2B .BASKETBABAS...+
000310: 17 18 19 1A 1B 1C 00 00 00 00 00 00 00 00 00 00 ................
000320: 00 42 41 54 4E 55 4D 20 20 42 41 53 00 00 00 12 .BATNUM BAS....
000330: 1D 1E 1F 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000340: 00 42 41 54 54 4C 45 20 20 42 41 53 00 00 00 29 .BATTLE BAS...)
000350: 20 21 22 23 24 25 00 00 00 00 00 00 00 00 00 00 !"#$%..........
000360: 00 42 4F 55 4E 43 45 20 20 42 41 53 00 00 00 0B .BOUNCE BAS....
000370: 26 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 &'..............
000380: 00 42 4F 57 4C 49 4E 47 20 42 41 53 00 00 00 14 .BOWLING BAS....
000390: 28 29 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 ()*.............
0003A0: 00 42 4F 58 49 4E 47 20 20 42 41 53 00 00 00 1B .BOXING BAS....
0003B0: 2B 2C 2D 2E 00 00 00 00 00 00 00 00 00 00 00 00 +,-.............
0003C0: 00 42 55 47 20 20 20 20 20 42 41 53 00 00 00 30 .BUG BAS...0
0003D0: 2F 30 31 32 33 34 00 00 00 00 00 00 00 00 00 00 /01234..........
0003E0: 00 42 55 4C 4C 46 49 47 48 42 41 53 00 00 00 29 .BULLFIGHBAS...)
0003F0: 35 36 37 38 39 3A 00 00 00 00 00 00 00 00 00 00 56789:..........
000400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000600: 00 42 55 4C 4C 53 45 59 45 42 41 53 00 00 00 0E .BULLSEYEBAS....
000610: 3B 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;<..............
000620: 00 42 55 4E 4E 59 20 20 20 42 41 53 00 00 00 0B .BUNNY BAS....
000630: 3D 3E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 =>..............
000640: 00 42 55 5A 5A 57 4F 52 44 42 41 53 00 00 00 0B .BUZZWORDBAS....
000650: 3F 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ?@..............
000660: 00 42 4C 41 43 4B 4A 41 43 42 41 53 00 00 00 41 .BLACKJACBAS...A
000670: 41 42 43 44 45 46 47 48 49 00 00 00 00 00 00 00 ABCDEFGHI.......
000680: 00 42 4F 4D 42 41 52 44 4D 42 41 53 00 00 00 16 .BOMBARDMBAS....
000690: 4A 4B 4C 00 00 00 00 00 00 00 00 00 00 00 00 00 JKL.............
0006A0: 00 42 4F 4D 42 53 41 57 41 42 41 53 00 00 00 17 .BOMBSAWABAS....
0006B0: 4D 4E 4F 00 00 00 00 00 00 00 00 00 00 00 00 00 MNO.............
0006C0: 00 43 49 56 49 4C 57 41 52 42 41 53 00 00 00 6D .CIVILWARBAS...m
0006D0: 50 51 52 53 54 55 56 57 58 59 5A 5B 5C 5D 00 00 PQRSTUVWXYZ[\]..
0006E0: 00 43 4F 4D 42 41 54 20 20 42 41 53 00 00 00 1B .COMBAT BAS....
0006F0: 5E 5F 60 61 00 00 00 00 00 00 00 00 00 00 00 00 ^_`a............
000700: 00 43 52 41 50 53 20 20 20 42 41 53 00 00 00 12 .CRAPS BAS....
000710: 62 63 64 00 00 00 00 00 00 00 00 00 00 00 00 00 bcd.............
000720: 00 43 55 42 45 20 20 20 20 42 41 53 00 00 00 22 .CUBE BAS..."
000730: 65 66 67 68 69 00 00 00 00 00 00 00 00 00 00 00 efghi...........
000740: 00 44 45 50 54 48 43 48 41 42 41 53 00 00 00 0C .DEPTHCHABAS....
000750: 6A 6B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 jk..............
000760: 00 44 49 41 4D 4F 4E 44 20 42 41 53 00 00 00 05 .DIAMOND BAS....
000770: 6C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 l...............
000780: 00 44 49 43 45 20 20 20 20 42 41 53 00 00 00 07 .DICE BAS....
000790: 6D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 m...............
0007A0: 00 44 49 47 49 54 53 20 20 42 41 53 00 00 00 13 .DIGITS BAS....
0007B0: 6E 6F 70 00 00 00 00 00 00 00 00 00 00 00 00 00 nop.............
0007C0: 00 45 56 45 4E 57 49 4E 53 42 41 53 00 00 00 19 .EVENWINSBAS....
0007D0: 71 72 73 74 00 00 00 00 00 00 00 00 00 00 00 00 qrst............
0007E0: 00 43 41 4C 45 4E 44 41 52 42 41 53 00 00 00 0D .CALENDARBAS....
0007F0: 75 76 00 00 00 00 00 00 00 00 00 00 00 00 00 00 uv..............
000800: 32 30 20 50 52 49 4E 54 20 54 41 42 28 33 31 29 20 PRINT TAB(31)
000810: 3B 22 32 33 20 4D 41 54 43 48 45 53 22 0D 0A 33 ;"23 MATCHES"..3
000820: 30 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 0 PRINT TAB(15);
000830: 22 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 "CREATIVE COMPUT
000840: 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C ING MORRISTOWN,
000850: 20 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 34 30 NEW JERSEY"..40
000860: 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 PRINT:PRINT:PRI
000870: 4E 54 0D 0A 38 30 20 50 52 49 4E 54 20 22 20 54 NT..80 PRINT " T
000880: 48 49 53 20 49 53 20 41 20 47 41 4D 45 20 43 41 HIS IS A GAME CA
000890: 4C 4C 45 44 20 27 32 33 20 4D 41 54 43 48 45 53 LLED '23 MATCHES
0008A0: 27 2E 22 0D 0A 39 30 20 50 52 49 4E 54 0D 0A 31 '."..90 PRINT..1
0008B0: 30 30 20 50 52 49 4E 54 20 22 57 48 45 4E 20 49 00 PRINT "WHEN I
0008C0: 54 20 49 53 20 59 4F 55 52 20 54 55 52 4E 2C 20 T IS YOUR TURN,
0008D0: 59 4F 55 20 4D 41 59 20 54 41 4B 45 20 4F 4E 45 YOU MAY TAKE ONE
0008E0: 2C 20 54 57 4F 2C 20 4F 52 20 54 48 52 45 45 22 , TWO, OR THREE"
0008F0: 0D 0A 31 31 30 20 50 52 49 4E 54 20 22 4D 41 54 ..110 PRINT "MAT
000900: 43 48 45 53 2E 20 54 48 45 20 4F 42 4A 45 43 54 CHES. THE OBJECT
000910: 20 4F 46 20 54 48 45 20 47 41 4D 45 20 49 53 20 OF THE GAME IS
000920: 4E 4F 54 20 54 4F 20 48 41 56 45 20 54 4F 20 54 NOT TO HAVE TO T
000930: 41 4B 45 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 AKE"..120 PRINT
000940: 22 54 48 45 20 4C 41 53 54 20 4D 41 54 43 48 2E "THE LAST MATCH.
000950: 22 0D 0A 31 33 30 20 50 52 49 4E 54 0D 0A 31 34 "..130 PRINT..14
000960: 30 20 50 52 49 4E 54 20 22 4C 45 54 27 53 20 46 0 PRINT "LET'S F
000970: 4C 49 50 20 41 20 43 4F 49 4E 20 54 4F 20 53 45 LIP A COIN TO SE
000980: 45 20 57 48 4F 20 47 4F 45 53 20 46 49 52 53 54 E WHO GOES FIRST
000990: 2E 22 0D 0A 31 35 30 20 50 52 49 4E 54 20 22 49 ."..150 PRINT "I
0009A0: 46 20 49 54 20 43 4F 4D 45 53 20 55 50 20 48 45 F IT COMES UP HE
0009B0: 41 44 53 2C 20 49 20 57 49 4C 4C 20 57 49 4E 20 ADS, I WILL WIN
0009C0: 54 48 45 20 54 4F 53 53 2E 22 0D 0A 31 35 35 20 THE TOSS."..155
0009D0: 50 52 49 4E 54 0D 0A 31 36 30 20 52 45 4D 0D 0A PRINT..160 REM..
0009E0: 31 36 35 20 4E 20 3D 20 32 33 0D 0A 31 37 30 20 165 N = 23..170
0009F0: 51 20 3D 20 49 4E 54 28 32 2A 52 4E 44 28 35 29 Q = INT(2*RND(5)
000A00: 00 43 48 41 4E 47 45 20 20 42 41 53 00 00 00 0B .CHANGE BAS....
000A10: 77 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 wx..............
000A20: 00 43 48 45 43 4B 45 52 53 42 41 53 00 00 00 1B .CHECKERSBAS....
000A30: 79 7A 7B 7C 00 00 00 00 00 00 00 00 00 00 00 00 yz{|............
000A40: 00 43 48 45 4D 49 53 54 20 42 41 53 00 00 00 09 .CHEMIST BAS....
000A50: 7D 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 }~..............
000A60: 00 43 48 49 45 46 20 20 20 42 41 53 00 00 00 0D .CHIEF BAS....
000A70: 7F 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000A80: 00 43 48 4F 4D 50 20 20 20 42 41 53 00 00 00 16 .CHOMP BAS....
000A90: 81 82 83 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000AA0: 00 47 4F 4D 4F 4B 4F 20 20 42 41 53 00 00 00 11 .GOMOKO BAS....
000AB0: 84 85 86 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000AC0: 00 47 55 45 53 53 20 20 20 42 41 53 00 00 00 08 .GUESS BAS....
000AD0: 87 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000AE0: 00 47 55 4E 4E 45 52 20 20 42 41 53 00 00 00 0E .GUNNER BAS....
000AF0: 88 89 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B00: 00 48 41 4D 4D 55 52 41 42 42 41 53 00 00 00 21 .HAMMURABBAS...!
000B10: 8A 8B 8C 8D 8E 00 00 00 00 00 00 00 00 00 00 00 ................
000B20: 00 48 41 4E 47 4D 41 4E 20 42 41 53 00 00 00 1D .HANGMAN BAS....
000B30: 8F 90 91 92 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B40: 00 48 45 4C 4C 4F 20 20 20 42 41 53 00 00 00 1B .HELLO BAS....
000B50: 93 94 95 96 00 00 00 00 00 00 00 00 00 00 00 00 ................
000B60: 00 48 45 58 41 50 41 57 4E 42 41 53 00 00 00 2D .HEXAPAWNBAS...-
000B70: 97 98 99 9A 9B 9C 00 00 00 00 00 00 00 00 00 00 ................
000B80: 00 48 49 47 48 49 51 20 20 42 41 53 00 00 00 1D .HIGHIQ BAS....
000B90: 9D 9E 9F A0 00 00 00 00 00 00 00 00 00 00 00 00 ................
000BA0: 00 48 49 2D 4C 4F 20 20 20 42 41 53 00 00 00 09 .HI-LO BAS....
000BB0: A1 A2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000BC0: 00 48 4F 43 4B 45 59 20 20 42 41 53 00 00 00 44 .HOCKEY BAS...D
000BD0: A3 A4 A5 A6 A7 A8 A9 AA AB 00 00 00 00 00 00 00 £...............
000BE0: 00 48 4F 52 53 45 52 41 43 42 41 53 00 00 00 19 .HORSERACBAS....
000BF0: AC AD AE AF 00 00 00 00 00 00 00 00 00 00 00 00 ................
000C00: 29 0D 0A 31 38 30 20 49 46 20 51 20 3D 20 31 20 )..180 IF Q = 1
000C10: 54 48 45 4E 20 32 31 30 0D 0A 31 39 30 20 50 52 THEN 210..190 PR
000C20: 49 4E 54 20 22 54 41 49 4C 53 21 20 59 4F 55 20 INT "TAILS! YOU
000C30: 47 4F 20 46 49 52 53 54 2E 20 22 0D 0A 31 39 35 GO FIRST. "..195
000C40: 20 50 52 49 4E 54 0D 0A 32 30 30 20 47 4F 54 4F PRINT..200 GOTO
000C50: 20 33 30 30 0D 0A 32 31 30 20 50 52 49 4E 54 20 300..210 PRINT
000C60: 22 48 45 41 44 53 21 20 49 20 57 49 4E 21 20 48 "HEADS! I WIN! H
000C70: 41 21 20 48 41 21 22 0D 0A 32 32 30 20 50 52 49 A! HA!"..220 PRI
000C80: 4E 54 20 22 50 52 45 50 41 52 45 20 54 4F 20 4C NT "PREPARE TO L
000C90: 4F 53 45 2C 20 4D 45 41 54 42 41 4C 4C 2D 4E 4F OSE, MEATBALL-NO
000CA0: 53 45 21 21 22 0D 0A 32 33 30 20 50 52 49 4E 54 SE!!"..230 PRINT
000CB0: 0D 0A 32 35 30 20 50 52 49 4E 54 20 22 49 20 54 ..250 PRINT "I T
000CC0: 41 4B 45 20 32 20 4D 41 54 43 48 45 53 22 0D 0A AKE 2 MATCHES"..
000CD0: 32 36 30 20 4E 20 3D 20 4E 20 2D 32 0D 0A 32 37 260 N = N -2..27
000CE0: 30 20 50 52 49 4E 54 20 22 54 48 45 20 4E 55 4D 0 PRINT "THE NUM
000CF0: 42 45 52 20 4F 46 20 4D 41 54 43 48 45 53 20 49 BER OF MATCHES I
000D00: 53 20 4E 4F 57 22 20 4E 0D 0A 32 38 30 20 50 52 S NOW" N..280 PR
000D10: 49 4E 54 0D 0A 32 39 30 20 50 52 49 4E 54 20 22 INT..290 PRINT "
000D20: 59 4F 55 52 20 54 55 52 4E 20 2D 2D 20 59 4F 55 YOUR TURN -- YOU
000D30: 20 4D 41 59 20 54 41 4B 45 20 31 2C 20 32 20 4F MAY TAKE 1, 2 O
000D40: 52 20 33 20 4D 41 54 43 48 45 53 2E 22 0D 0A 33 R 3 MATCHES."..3
000D50: 30 30 20 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 00 PRINT "HOW MA
000D60: 4E 59 20 44 4F 20 59 4F 55 20 57 49 53 48 20 54 NY DO YOU WISH T
000D70: 4F 20 52 45 4D 4F 56 45 22 2C 0D 0A 33 31 30 20 O REMOVE",..310
000D80: 49 4E 50 55 54 20 4B 0D 0A 33 32 30 20 49 46 20 INPUT K..320 IF
000D90: 4B 20 3E 20 33 20 54 48 45 4E 20 34 33 30 0D 0A K > 3 THEN 430..
000DA0: 33 33 30 20 49 46 20 4B 20 3C 3D 20 30 20 54 48 330 IF K <= 0 TH
000DB0: 45 4E 20 34 33 30 0D 0A 33 34 30 20 4E 20 3D 20 EN 430..340 N =
000DC0: 4E 20 2D 20 4B 0D 0A 33 35 30 20 50 52 49 4E 54 N - K..350 PRINT
000DD0: 20 22 54 48 45 52 45 20 41 52 45 20 4E 4F 57 22 "THERE ARE NOW"
000DE0: 3B 4E 3B 22 4D 41 54 43 48 45 53 20 52 45 4D 41 ;N;"MATCHES REMA
000DF0: 49 4E 49 4E 47 2E 22 0D 0A 33 35 31 20 49 46 20 INING."..351 IF
000E00: 00 48 55 52 4B 4C 45 20 20 42 41 53 00 00 00 0B .HURKLE BAS....
000E10: B0 B1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000E20: 00 46 4C 49 50 46 4C 4F 50 42 41 53 00 00 00 10 .FLIPFLOPBAS....
000E30: B2 B3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001000: 4E 20 3D 20 34 20 54 48 45 4E 20 33 38 31 0D 0A N = 4 THEN 381..
001010: 33 35 32 20 49 46 20 4E 20 3D 20 33 20 54 48 45 352 IF N = 3 THE
001020: 4E 20 33 38 33 0D 0A 33 35 33 20 49 46 20 4E 20 N 383..353 IF N
001030: 3D 20 32 20 54 48 45 4E 20 33 38 35 0D 0A 33 36 = 2 THEN 385..36
001040: 30 20 49 46 20 4E 20 3C 3D 20 31 20 54 48 45 4E 0 IF N <= 1 THEN
001050: 20 20 35 33 30 0D 0A 33 37 30 20 5A 20 3D 20 34 530..370 Z = 4
001060: 20 2D 20 4B 0D 0A 33 37 32 20 47 4F 54 4F 20 33 - K..372 GOTO 3
001070: 39 30 0D 0A 33 38 30 20 50 52 49 4E 54 0D 0A 33 90..380 PRINT..3
001080: 38 31 20 5A 20 3D 20 33 0D 0A 33 38 32 20 47 4F 81 Z = 3..382 GO
001090: 54 4F 20 33 39 30 0D 0A 33 38 33 20 5A 20 3D 20 TO 390..383 Z =
0010A0: 32 0D 0A 33 38 34 20 47 4F 54 4F 20 33 39 30 0D 2..384 GOTO 390.
0010B0: 0A 33 38 35 20 5A 20 3D 20 31 0D 0A 33 39 30 20 .385 Z = 1..390
0010C0: 50 52 49 4E 54 20 22 4D 59 20 54 55 52 4E 20 21 PRINT "MY TURN !
0010D0: 20 49 20 52 45 4D 4F 56 45 22 20 5A 20 22 4D 41 I REMOVE" Z "MA
0010E0: 54 43 48 45 53 22 0D 0A 34 30 30 20 4E 20 3D 20 TCHES"..400 N =
0010F0: 4E 20 2D 20 5A 0D 0A 34 31 30 20 49 46 20 4E 20 N - Z..410 IF N
001100: 3C 3D 20 31 20 54 48 45 4E 20 34 37 30 0D 0A 34 <= 1 THEN 470..4
001110: 32 30 20 47 4F 54 4F 20 32 37 30 0D 0A 34 33 30 20 GOTO 270..430
001120: 20 50 52 49 4E 54 20 22 56 45 52 59 20 46 55 4E PRINT "VERY FUN
001130: 4E 59 21 20 44 55 4D 4D 59 21 22 0D 0A 34 34 30 NY! DUMMY!"..440
001140: 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 PRINT "DO YOU W
001150: 41 4E 54 20 54 4F 20 50 4C 41 59 20 4F 52 20 47 ANT TO PLAY OR G
001160: 4F 4F 46 20 41 52 4F 55 4E 44 3F 22 0D 0A 34 35 OOF AROUND?"..45
001170: 30 20 50 52 49 4E 54 20 22 4E 4F 57 2C 20 48 4F 0 PRINT "NOW, HO
001180: 57 20 4D 41 4E 59 20 4D 41 54 43 48 45 53 20 44 W MANY MATCHES D
001190: 4F 20 59 4F 55 20 57 41 4E 54 22 2C 0D 0A 34 36 O YOU WANT",..46
0011A0: 30 20 47 4F 54 4F 20 33 31 30 0D 0A 34 37 30 20 0 GOTO 310..470
0011B0: 50 52 49 4E 54 0D 0A 34 38 30 20 50 52 49 4E 54 PRINT..480 PRINT
0011C0: 22 59 4F 55 20 50 4F 4F 52 20 42 4F 4F 42 21 20 "YOU POOR BOOB!
0011D0: 59 4F 55 20 54 4F 4F 4B 20 54 48 45 20 4C 41 53 YOU TOOK THE LAS
0011E0: 54 20 4D 41 54 43 48 21 20 49 20 47 4F 54 43 48 T MATCH! I GOTCH
0011F0: 41 21 21 22 0D 0A 34 39 30 20 50 52 49 4E 54 20 A!!"..490 PRINT
001200: 31 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 3B 1 PRINT TAB(32);
001210: 22 33 44 20 50 4C 4F 54 22 0D 0A 32 20 50 52 49 "3D PLOT"..2 PRI
001220: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
001230: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
001240: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
001250: 4A 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 JERSEY"..3 PRINT
001260: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 35 20 :PRINT:PRINT..5
001270: 44 45 46 20 46 4E 41 28 5A 29 3D 33 30 2A 45 58 DEF FNA(Z)=30*EX
001280: 50 28 2D 5A 2A 5A 2F 31 30 30 29 0D 0A 31 30 30 P(-Z*Z/100)..100
001290: 20 50 52 49 4E 54 0D 0A 31 31 30 20 46 4F 52 20 PRINT..110 FOR
0012A0: 58 3D 2D 33 30 20 54 4F 20 33 30 20 53 54 45 50 X=-30 TO 30 STEP
0012B0: 20 31 2E 35 0D 0A 31 32 30 20 4C 3D 30 0D 0A 31 1.5..120 L=0..1
0012C0: 33 30 20 59 31 3D 35 2A 49 4E 54 28 53 51 52 28 30 Y1=5*INT(SQR(
0012D0: 39 30 30 2D 58 2A 58 29 2F 35 29 0D 0A 31 34 30 900-X*X)/5)..140
0012E0: 20 46 4F 52 20 59 3D 59 31 20 54 4F 20 2D 59 31 FOR Y=Y1 TO -Y1
0012F0: 20 53 54 45 50 20 2D 35 0D 0A 31 35 30 20 5A 3D STEP -5..150 Z=
001300: 49 4E 54 28 32 35 2B 46 4E 41 28 53 51 52 28 58 INT(25+FNA(SQR(X
001310: 2A 58 2B 59 2A 59 29 29 2D 2E 37 2A 59 29 0D 0A *X+Y*Y))-.7*Y)..
001320: 31 36 30 20 49 46 20 5A 3C 3D 4C 20 54 48 45 4E 160 IF Z<=L THEN
001330: 20 31 39 30 0D 0A 31 37 30 20 4C 3D 5A 0D 0A 31 190..170 L=Z..1
001340: 38 30 20 50 52 49 4E 54 20 54 41 42 28 5A 29 3B 80 PRINT TAB(Z);
001350: 22 2A 22 3B 0D 0A 31 39 30 20 4E 45 58 54 20 59 "*";..190 NEXT Y
001360: 0D 0A 32 30 30 20 50 52 49 4E 54 0D 0A 32 31 30 ..200 PRINT..210
001370: 20 4E 45 58 54 20 58 0D 0A 33 30 30 20 45 4E 44 NEXT X..300 END
001380: 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
001410: 01 00 00 00 02 09 52 E5 01 00 C1 02 00 00 00 02 ......R.........
001420: 01 00 C6 02 00 00 00 02 01 00 C2 02 00 00 00 02 ................
001430: 01 00 C7 02 00 00 00 02 01 00 C3 02 00 00 00 02 ................
001440: 01 00 C8 02 00 00 00 02 01 00 C4 02 00 00 00 02 ................
001450: 01 00 C9 02 00 00 00 02 01 00 C5 02 00 00 00 02 ................
001460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: 22 48 41 20 21 20 48 41 20 21 20 49 20 42 45 41 "HA ! HA ! I BEA
001510: 54 20 59 4F 55 20 21 21 21 22 0D 0A 35 30 30 20 T YOU !!!"..500
001520: 50 52 49 4E 54 0D 0A 35 31 30 20 50 52 49 4E 54 PRINT..510 PRINT
001530: 20 22 47 4F 4F 44 20 42 59 45 20 4C 4F 53 45 52 "GOOD BYE LOSER
001540: 21 22 0D 0A 35 32 30 20 47 4F 54 4F 20 35 36 30 !"..520 GOTO 560
001550: 0D 0A 35 33 30 20 50 52 49 4E 54 20 22 59 4F 55 ..530 PRINT "YOU
001560: 20 57 4F 4E 2C 20 46 4C 4F 50 50 59 20 45 41 52 WON, FLOPPY EAR
001570: 53 20 21 22 0D 0A 35 34 30 20 50 52 49 4E 54 20 S !"..540 PRINT
001580: 22 54 48 49 4E 4B 20 59 4F 55 27 52 45 20 50 52 "THINK YOU'RE PR
001590: 45 54 54 59 20 53 4D 41 52 54 20 21 22 0D 0A 35 ETTY SMART !"..5
0015A0: 35 30 20 50 52 49 4E 54 20 22 4C 45 54 53 20 50 50 PRINT "LETS P
0015B0: 4C 41 59 20 41 47 41 49 4E 20 41 4E 44 20 49 27 LAY AGAIN AND I'
0015C0: 4C 4C 20 42 4C 4F 57 20 59 4F 55 52 20 53 48 4F LL BLOW YOUR SHO
0015D0: 45 53 20 4F 46 46 20 21 21 22 0D 0A 35 36 30 20 ES OFF !!"..560
0015E0: 53 54 4F 50 0D 0A 35 37 30 20 45 4E 44 0D 0A 1A STOP..570 END...
0015F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001700: 42 55 54 20 59 4F 55 20 42 4C 45 57 20 59 4F 55 BUT YOU BLEW YOU
001710: 52 20 57 41 44 2E 22 0D 0A 31 30 31 35 20 50 52 R WAD."..1015 PR
001720: 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 32 30 20 INT:PRINT..1020
001730: 49 4E 50 55 54 22 54 52 59 20 41 47 41 49 4E 20 INPUT"TRY AGAIN
001740: 28 59 45 53 20 4F 52 20 4E 4F 29 22 3B 41 24 0D (YES OR NO)";A$.
001750: 0A 31 30 32 35 20 50 52 49 4E 54 3A 50 52 49 4E .1025 PRINT:PRIN
001760: 54 0D 0A 31 30 33 30 20 49 46 20 41 24 3D 22 59 T..1030 IF A$="Y
001770: 45 53 22 20 54 48 45 4E 20 31 31 30 0D 0A 31 30 ES" THEN 110..10
001780: 34 30 20 50 52 49 4E 54 22 4F 2E 4B 2E 2C 20 48 40 PRINT"O.K., H
001790: 4F 50 45 20 59 4F 55 20 48 41 44 20 46 55 4E 21 OPE YOU HAD FUN!
0017A0: 22 0D 0A 31 30 35 30 20 45 4E 44 0D 0A 1A E5 E5 "..1050 END.....
0017B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001900: 31 30 20 50 52 49 4E 54 20 54 41 42 28 32 36 29 10 PRINT TAB(26)
001910: 3B 22 41 43 45 59 20 44 55 43 45 59 20 43 41 52 ;"ACEY DUCEY CAR
001920: 44 20 47 41 4D 45 22 0D 0A 32 30 20 50 52 49 4E D GAME"..20 PRIN
001930: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
001940: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
001950: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
001960: 45 52 53 45 59 22 0D 0A 32 31 20 50 52 49 4E 54 ERSEY"..21 PRINT
001970: 0D 0A 32 32 20 50 52 49 4E 54 0D 0A 33 30 20 50 ..22 PRINT..30 P
001980: 52 49 4E 54 22 41 43 45 59 2D 44 55 43 45 59 20 RINT"ACEY-DUCEY
001990: 49 53 20 50 4C 41 59 45 44 20 49 4E 20 54 48 45 IS PLAYED IN THE
0019A0: 20 46 4F 4C 4C 4F 57 49 4E 47 20 4D 41 4E 4E 45 FOLLOWING MANNE
0019B0: 52 20 22 0D 0A 34 30 20 50 52 49 4E 54 22 54 48 R "..40 PRINT"TH
0019C0: 45 20 44 45 41 4C 45 52 20 28 43 4F 4D 50 55 54 E DEALER (COMPUT
0019D0: 45 52 29 20 44 45 41 4C 53 20 54 57 4F 20 43 41 ER) DEALS TWO CA
0019E0: 52 44 53 20 46 41 43 45 20 55 50 22 0D 0A 35 30 RDS FACE UP"..50
0019F0: 20 50 52 49 4E 54 22 59 4F 55 20 48 41 56 45 20 PRINT"YOU HAVE
001A00: 41 4E 20 4F 50 54 49 4F 4E 20 54 4F 20 42 45 54 AN OPTION TO BET
001A10: 20 4F 52 20 4E 4F 54 20 42 45 54 20 44 45 50 45 OR NOT BET DEPE
001A20: 4E 44 49 4E 47 22 0D 0A 36 30 20 50 52 49 4E 54 NDING"..60 PRINT
001A30: 22 4F 4E 20 57 48 45 54 48 45 52 20 4F 52 20 4E "ON WHETHER OR N
001A40: 4F 54 20 59 4F 55 20 46 45 45 4C 20 54 48 45 20 OT YOU FEEL THE
001A50: 43 41 52 44 20 57 49 4C 4C 20 48 41 56 45 22 0D CARD WILL HAVE".
001A60: 0A 37 30 20 50 52 49 4E 54 22 41 20 56 41 4C 55 .70 PRINT"A VALU
001A70: 45 20 42 45 54 57 45 45 4E 20 54 48 45 20 46 49 E BETWEEN THE FI
001A80: 52 53 54 20 54 57 4F 2E 22 0D 0A 38 30 20 50 52 RST TWO."..80 PR
001A90: 49 4E 54 22 49 46 20 59 4F 55 20 44 4F 20 4E 4F INT"IF YOU DO NO
001AA0: 54 20 57 41 4E 54 20 54 4F 20 42 45 54 2C 20 49 T WANT TO BET, I
001AB0: 4E 50 55 54 20 41 20 30 22 0D 0A 31 30 30 20 4E NPUT A 0"..100 N
001AC0: 3D 31 30 30 0D 0A 31 31 30 20 51 3D 31 30 30 0D =100..110 Q=100.
001AD0: 0A 31 32 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .120 PRINT "YOU
001AE0: 4E 4F 57 20 48 41 56 45 22 3B 51 3B 22 44 4F 4C NOW HAVE";Q;"DOL
001AF0: 4C 41 52 53 2E 22 0D 0A 31 33 30 20 50 52 49 4E LARS."..130 PRIN
001B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D00: 54 0D 0A 31 34 30 20 47 4F 54 4F 20 32 36 30 0D T..140 GOTO 260.
001D10: 0A 32 31 30 20 51 3D 51 2B 4D 0D 0A 32 32 30 20 .210 Q=Q+M..220
001D20: 47 4F 54 4F 20 31 32 30 0D 0A 32 34 30 20 51 3D GOTO 120..240 Q=
001D30: 51 2D 4D 0D 0A 32 35 30 20 47 4F 54 4F 20 31 32 Q-M..250 GOTO 12
001D40: 30 0D 0A 32 36 30 20 50 52 49 4E 54 22 48 45 52 0..260 PRINT"HER
001D50: 45 20 41 52 45 20 59 4F 55 52 20 4E 45 58 54 20 E ARE YOUR NEXT
001D60: 54 57 4F 20 43 41 52 44 53 3A 20 22 0D 0A 32 37 TWO CARDS: "..27
001D70: 30 20 41 3D 49 4E 54 28 31 34 2A 52 4E 44 28 31 0 A=INT(14*RND(1
001D80: 29 29 2B 32 0D 0A 32 38 30 20 49 46 20 41 3C 32 ))+2..280 IF A<2
001D90: 20 54 48 45 4E 20 32 37 30 0D 0A 32 39 30 20 49 THEN 270..290 I
001DA0: 46 20 41 3E 31 34 20 54 48 45 4E 20 32 37 30 0D F A>14 THEN 270.
001DB0: 0A 33 30 30 20 42 3D 49 4E 54 28 31 34 2A 52 4E .300 B=INT(14*RN
001DC0: 44 28 31 29 29 2B 32 0D 0A 33 31 30 20 49 46 20 D(1))+2..310 IF
001DD0: 42 3C 32 20 54 48 45 4E 20 33 30 30 0D 0A 33 32 B<2 THEN 300..32
001DE0: 30 20 49 46 20 42 3E 31 34 20 54 48 45 4E 20 33 0 IF B>14 THEN 3
001DF0: 30 30 0D 0A 33 33 30 20 49 46 20 41 3E 3D 42 20 00..330 IF A>=B
001E00: 54 48 45 4E 20 32 37 30 0D 0A 33 35 30 20 49 46 THEN 270..350 IF
001E10: 20 41 3C 31 31 20 54 48 45 4E 20 34 30 30 0D 0A A<11 THEN 400..
001E20: 33 36 30 20 49 46 20 41 3D 31 31 20 54 48 45 4E 360 IF A=11 THEN
001E30: 20 34 32 30 0D 0A 33 37 30 20 49 46 20 41 3D 31 420..370 IF A=1
001E40: 32 20 54 48 45 4E 20 34 34 30 0D 0A 33 38 30 20 2 THEN 440..380
001E50: 49 46 20 41 3D 31 33 20 54 48 45 4E 20 34 36 30 IF A=13 THEN 460
001E60: 0D 0A 33 39 30 20 49 46 20 41 3D 31 34 20 54 48 ..390 IF A=14 TH
001E70: 45 4E 20 34 38 30 0D 0A 34 30 30 20 50 52 49 4E EN 480..400 PRIN
001E80: 54 20 41 0D 0A 34 31 30 20 47 4F 54 4F 20 35 30 T A..410 GOTO 50
001E90: 30 0D 0A 34 32 30 20 50 52 49 4E 54 22 4A 41 43 0..420 PRINT"JAC
001EA0: 4B 22 0D 0A 34 33 30 20 47 4F 54 4F 20 35 30 30 K"..430 GOTO 500
001EB0: 0D 0A 34 34 30 20 50 52 49 4E 54 22 51 55 45 45 ..440 PRINT"QUEE
001EC0: 4E 22 0D 0A 34 35 30 20 47 4F 54 4F 20 35 30 30 N"..450 GOTO 500
001ED0: 0D 0A 34 36 30 20 50 52 49 4E 54 22 4B 49 4E 47 ..460 PRINT"KING
001EE0: 22 0D 0A 34 37 30 20 47 4F 54 4F 20 35 30 30 0D "..470 GOTO 500.
001EF0: 0A 34 38 30 20 50 52 49 4E 54 22 41 43 45 22 0D .480 PRINT"ACE".
001F00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 32 38 29 10 PRINT TAB(28)
001F10: 3B 22 41 4D 41 5A 49 4E 47 20 50 52 4F 47 52 41 ;"AMAZING PROGRA
001F20: 4D 22 0D 0A 32 30 20 50 52 49 4E 54 20 54 41 42 M"..20 PRINT TAB
001F30: 28 31 35 29 3B 22 43 52 45 41 54 49 56 45 20 43 (15);"CREATIVE C
001F40: 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 OMPUTING MORRIS
001F50: 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 TOWN, NEW JERSEY
001F60: 22 0D 0A 33 30 20 50 52 49 4E 54 3A 50 52 49 4E "..30 PRINT:PRIN
001F70: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 T:PRINT:PRINT..1
001F80: 30 30 20 49 4E 50 55 54 20 22 57 48 41 54 20 41 00 INPUT "WHAT A
001F90: 52 45 20 59 4F 55 52 20 57 49 44 54 48 20 41 4E RE YOUR WIDTH AN
001FA0: 44 20 4C 45 4E 47 54 48 22 3B 48 2C 56 0D 0A 31 D LENGTH";H,V..1
001FB0: 30 32 20 49 46 20 48 3C 3E 31 20 41 4E 44 20 56 02 IF H<>1 AND V
001FC0: 3C 3E 31 20 54 48 45 4E 20 31 31 30 0D 0A 31 30 <>1 THEN 110..10
001FD0: 34 20 50 52 49 4E 54 20 22 4D 45 41 4E 49 4E 47 4 PRINT "MEANING
001FE0: 4C 45 53 53 20 44 49 4D 45 4E 53 49 4F 4E 53 2E LESS DIMENSIONS.
001FF0: 20 20 54 52 59 20 41 47 41 49 4E 2E 22 3A 47 4F TRY AGAIN.":GO
002000: 54 4F 20 31 30 30 0D 0A 31 31 30 20 44 49 4D 20 TO 100..110 DIM
002010: 57 28 48 2C 56 29 2C 56 28 48 2C 56 29 0D 0A 31 W(H,V),V(H,V)..1
002020: 32 30 20 50 52 49 4E 54 0D 0A 31 33 30 20 50 52 20 PRINT..130 PR
002030: 49 4E 54 0D 0A 31 34 30 20 50 52 49 4E 54 0D 0A INT..140 PRINT..
002040: 31 35 30 20 50 52 49 4E 54 0D 0A 31 36 30 20 51 150 PRINT..160 Q
002050: 3D 30 3A 5A 3D 30 3A 58 3D 49 4E 54 28 52 4E 44 =0:Z=0:X=INT(RND
002060: 28 31 29 2A 48 2B 31 29 0D 0A 31 36 35 20 46 4F (1)*H+1)..165 FO
002070: 52 20 49 3D 31 20 54 4F 20 48 0D 0A 31 37 30 20 R I=1 TO H..170
002080: 49 46 20 49 3D 58 20 54 48 45 4E 20 31 37 33 0D IF I=X THEN 173.
002090: 0A 31 37 31 20 50 52 49 4E 54 20 22 2E 2D 2D 22 .171 PRINT ".--"
0020A0: 3B 3A 47 4F 54 4F 20 31 38 30 0D 0A 31 37 33 20 ;:GOTO 180..173
0020B0: 50 52 49 4E 54 20 22 2E 20 20 22 3B 0D 0A 31 38 PRINT ". ";..18
0020C0: 30 20 4E 45 58 54 20 49 0D 0A 31 39 30 20 50 52 0 NEXT I..190 PR
0020D0: 49 4E 54 20 22 2E 22 0D 0A 31 39 35 20 43 3D 31 INT "."..195 C=1
0020E0: 3A 57 28 58 2C 31 29 3D 43 3A 43 3D 43 2B 31 0D :W(X,1)=C:C=C+1.
0020F0: 0A 32 30 30 20 52 3D 58 3A 53 3D 31 3A 47 4F 54 .200 R=X:S=1:GOT
002100: 0A 35 30 30 20 49 46 20 42 3C 31 31 20 54 48 45 .500 IF B<11 THE
002110: 4E 20 35 35 30 0D 0A 35 31 30 20 49 46 20 42 3D N 550..510 IF B=
002120: 31 31 20 54 48 45 4E 20 35 37 30 0D 0A 35 32 30 11 THEN 570..520
002130: 20 49 46 20 42 3D 31 32 20 54 48 45 4E 20 35 39 IF B=12 THEN 59
002140: 30 0D 0A 35 33 30 20 49 46 20 42 3D 31 33 20 54 0..530 IF B=13 T
002150: 48 45 4E 20 36 31 30 0D 0A 35 34 30 20 49 46 20 HEN 610..540 IF
002160: 42 3D 31 34 20 54 48 45 4E 20 36 33 30 0D 0A 35 B=14 THEN 630..5
002170: 35 30 20 50 52 49 4E 54 20 42 0D 0A 35 36 30 20 50 PRINT B..560
002180: 47 4F 54 4F 20 36 35 30 0D 0A 35 37 30 20 50 52 GOTO 650..570 PR
002190: 49 4E 54 22 4A 41 43 4B 22 0D 0A 35 38 30 20 47 INT"JACK"..580 G
0021A0: 4F 54 4F 20 36 35 30 0D 0A 35 39 30 20 50 52 49 OTO 650..590 PRI
0021B0: 4E 54 22 51 55 45 45 4E 22 0D 0A 36 30 30 20 47 NT"QUEEN"..600 G
0021C0: 4F 54 4F 20 36 35 30 0D 0A 36 31 30 20 50 52 49 OTO 650..610 PRI
0021D0: 4E 54 22 4B 49 4E 47 22 0D 0A 36 32 30 20 47 4F NT"KING"..620 GO
0021E0: 54 4F 20 36 35 30 0D 0A 36 33 30 20 50 52 49 4E TO 650..630 PRIN
0021F0: 54 22 41 43 45 22 0D 0A 36 34 30 20 50 52 49 4E T"ACE"..640 PRIN
002200: 54 0D 0A 36 35 30 20 50 52 49 4E 54 0D 0A 36 36 T..650 PRINT..66
002210: 30 20 49 4E 50 55 54 22 57 48 41 54 20 49 53 20 0 INPUT"WHAT IS
002220: 59 4F 55 52 20 42 45 54 22 3B 4D 0D 0A 36 37 30 YOUR BET";M..670
002230: 20 49 46 20 4D 3C 3E 30 20 54 48 45 4E 20 36 38 IF M<>0 THEN 68
002240: 30 0D 0A 36 37 35 20 50 52 49 4E 54 22 43 48 49 0..675 PRINT"CHI
002250: 43 4B 45 4E 21 21 22 0D 0A 36 37 36 20 50 52 49 CKEN!!"..676 PRI
002260: 4E 54 0D 0A 36 37 37 20 47 4F 54 4F 20 32 36 30 NT..677 GOTO 260
002270: 0D 0A 36 38 30 20 49 46 20 4D 3C 3D 51 20 54 48 ..680 IF M<=Q TH
002280: 45 4E 20 37 33 30 0D 0A 36 39 30 20 50 52 49 4E EN 730..690 PRIN
002290: 54 22 53 4F 52 52 59 2C 20 4D 59 20 46 52 49 45 T"SORRY, MY FRIE
0022A0: 4E 44 2C 20 42 55 54 20 59 4F 55 20 42 45 54 20 ND, BUT YOU BET
0022B0: 54 4F 4F 20 4D 55 43 48 2E 22 0D 0A 37 30 30 20 TOO MUCH."..700
0022C0: 50 52 49 4E 54 22 59 4F 55 20 48 41 56 45 20 4F PRINT"YOU HAVE O
0022D0: 4E 4C 59 20 22 3B 51 3B 22 20 44 4F 4C 4C 41 52 NLY ";Q;" DOLLAR
0022E0: 53 20 54 4F 20 42 45 54 2E 22 0D 0A 37 31 30 20 S TO BET."..710
0022F0: 47 4F 54 4F 20 36 35 30 0D 0A 37 33 30 20 43 3D GOTO 650..730 C=
002300: 4F 20 32 36 30 0D 0A 32 31 30 20 49 46 20 52 3C O 260..210 IF R<
002310: 3E 48 20 54 48 45 4E 20 32 34 30 0D 0A 32 31 35 >H THEN 240..215
002320: 20 49 46 20 53 3C 3E 56 20 54 48 45 4E 20 32 33 IF S<>V THEN 23
002330: 30 0D 0A 32 32 30 20 52 3D 31 3A 53 3D 31 3A 47 0..220 R=1:S=1:G
002340: 4F 54 4F 20 32 35 30 0D 0A 32 33 30 20 52 3D 31 OTO 250..230 R=1
002350: 3A 53 3D 53 2B 31 3A 47 4F 54 4F 20 32 35 30 0D :S=S+1:GOTO 250.
002360: 0A 32 34 30 20 52 3D 52 2B 31 0D 0A 32 35 30 20 .240 R=R+1..250
002370: 49 46 20 57 28 52 2C 53 29 3D 30 20 54 48 45 4E IF W(R,S)=0 THEN
002380: 20 32 31 30 0D 0A 32 36 30 20 49 46 20 52 2D 31 210..260 IF R-1
002390: 3D 30 20 54 48 45 4E 20 35 33 30 0D 0A 32 36 35 =0 THEN 530..265
0023A0: 20 49 46 20 57 28 52 2D 31 2C 53 29 3C 3E 30 20 IF W(R-1,S)<>0
0023B0: 54 48 45 4E 20 35 33 30 0D 0A 32 37 30 20 49 46 THEN 530..270 IF
0023C0: 20 53 2D 31 3D 30 20 54 48 45 4E 20 33 39 30 0D S-1=0 THEN 390.
0023D0: 0A 32 38 30 20 49 46 20 57 28 52 2C 53 2D 31 29 .280 IF W(R,S-1)
0023E0: 3C 3E 30 20 54 48 45 4E 20 33 39 30 0D 0A 32 39 <>0 THEN 390..29
0023F0: 30 20 49 46 20 52 3D 48 20 54 48 45 4E 20 33 33 0 IF R=H THEN 33
002400: 30 0D 0A 33 30 30 20 49 46 20 57 28 52 2B 31 2C 0..300 IF W(R+1,
002410: 53 29 3C 3E 30 20 54 48 45 4E 20 33 33 30 0D 0A S)<>0 THEN 330..
002420: 33 31 30 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 310 X=INT(RND(1)
002430: 2A 33 2B 31 29 0D 0A 33 32 30 20 4F 4E 20 58 20 *3+1)..320 ON X
002440: 47 4F 54 4F 20 37 39 30 2C 38 32 30 2C 38 36 30 GOTO 790,820,860
002450: 0D 0A 33 33 30 20 49 46 20 53 3C 3E 56 20 54 48 ..330 IF S<>V TH
002460: 45 4E 20 33 34 30 0D 0A 33 33 34 20 49 46 20 5A EN 340..334 IF Z
002470: 3D 31 20 54 48 45 4E 20 33 37 30 0D 0A 33 33 38 =1 THEN 370..338
002480: 20 51 3D 31 3A 47 4F 54 4F 20 33 35 30 0D 0A 33 Q=1:GOTO 350..3
002490: 34 30 20 49 46 20 57 28 52 2C 53 2B 31 29 3C 3E 40 IF W(R,S+1)<>
0024A0: 30 20 54 48 45 4E 20 33 37 30 0D 0A 33 35 30 20 0 THEN 370..350
0024B0: 58 3D 49 4E 54 28 52 4E 44 28 31 29 2A 33 2B 31 X=INT(RND(1)*3+1
0024C0: 29 0D 0A 33 36 30 20 4F 4E 20 58 20 47 4F 54 4F )..360 ON X GOTO
0024D0: 20 37 39 30 2C 38 32 30 2C 39 31 30 0D 0A 33 37 790,820,910..37
0024E0: 30 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 2A 32 0 X=INT(RND(1)*2
0024F0: 2B 31 29 0D 0A 33 38 30 20 4F 4E 20 58 20 47 4F +1)..380 ON X GO
002500: 49 4E 54 28 31 34 2A 52 4E 44 28 31 29 29 2B 32 INT(14*RND(1))+2
002510: 0D 0A 37 34 30 20 49 46 20 43 3C 32 20 54 48 45 ..740 IF C<2 THE
002520: 4E 20 37 33 30 0D 0A 37 35 30 20 49 46 20 43 3E N 730..750 IF C>
002530: 31 34 20 54 48 45 4E 20 37 33 30 0D 0A 37 36 30 14 THEN 730..760
002540: 20 49 46 20 43 3C 31 31 20 54 48 45 4E 20 38 31 IF C<11 THEN 81
002550: 30 0D 0A 37 37 30 20 49 46 20 43 3D 31 31 20 54 0..770 IF C=11 T
002560: 48 45 4E 20 38 33 30 0D 0A 37 38 30 20 49 46 20 HEN 830..780 IF
002570: 43 3D 31 32 20 54 48 45 4E 20 38 35 30 0D 0A 37 C=12 THEN 850..7
002580: 39 30 20 49 46 20 43 3D 31 33 20 54 48 45 4E 20 90 IF C=13 THEN
002590: 38 37 30 0D 0A 38 30 30 20 49 46 20 43 3D 31 34 870..800 IF C=14
0025A0: 20 54 48 45 4E 20 38 39 30 0D 0A 38 31 30 20 50 THEN 890..810 P
0025B0: 52 49 4E 54 20 43 0D 0A 38 32 30 20 47 4F 54 4F RINT C..820 GOTO
0025C0: 20 39 31 30 0D 0A 38 33 30 20 50 52 49 4E 54 22 910..830 PRINT"
0025D0: 4A 41 43 4B 22 0D 0A 38 34 30 20 47 4F 54 4F 20 JACK"..840 GOTO
0025E0: 39 31 30 0D 0A 38 35 30 20 50 52 49 4E 54 22 51 910..850 PRINT"Q
0025F0: 55 45 45 4E 22 0D 0A 38 36 30 20 47 4F 54 4F 20 UEEN"..860 GOTO
002600: 39 31 30 0D 0A 38 37 30 20 50 52 49 4E 54 22 4B 910..870 PRINT"K
002610: 49 4E 47 22 0D 0A 38 38 30 20 47 4F 54 4F 20 39 ING"..880 GOTO 9
002620: 31 30 0D 0A 38 39 30 20 50 52 49 4E 54 20 22 41 10..890 PRINT "A
002630: 43 45 22 0D 0A 39 30 30 20 50 52 49 4E 54 0D 0A CE"..900 PRINT..
002640: 39 31 30 20 49 46 20 43 3E 41 20 54 48 45 4E 20 910 IF C>A THEN
002650: 39 33 30 0D 0A 39 32 30 20 47 4F 54 4F 20 39 37 930..920 GOTO 97
002660: 30 0D 0A 39 33 30 20 49 46 20 43 3E 3D 42 20 54 0..930 IF C>=B T
002670: 48 45 4E 20 39 37 30 0D 0A 39 35 30 20 50 52 49 HEN 970..950 PRI
002680: 4E 54 22 59 4F 55 20 57 49 4E 21 21 21 22 0D 0A NT"YOU WIN!!!"..
002690: 39 36 30 20 47 4F 54 4F 20 32 31 30 0D 0A 39 37 960 GOTO 210..97
0026A0: 30 20 50 52 49 4E 54 22 53 4F 52 52 59 2C 20 59 0 PRINT"SORRY, Y
0026B0: 4F 55 20 4C 4F 53 45 22 0D 0A 39 38 30 20 49 46 OU LOSE"..980 IF
0026C0: 20 4D 3C 51 20 54 48 45 4E 20 32 34 30 0D 0A 39 M<Q THEN 240..9
0026D0: 39 30 20 50 52 49 4E 54 0D 0A 31 30 30 30 20 50 90 PRINT..1000 P
0026E0: 52 49 4E 54 0D 0A 31 30 31 30 20 50 52 49 4E 54 RINT..1010 PRINT
0026F0: 22 53 4F 52 52 59 2C 20 46 52 49 45 4E 44 2C 20 "SORRY, FRIEND,
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 00 00 02 09 52 E5 02 00 C1 02 00 00 00 02 ......R.........
002720: 02 00 C6 02 00 00 00 02 02 00 C2 02 00 00 00 02 ................
002730: 02 00 C7 02 00 00 00 02 02 00 C3 02 00 00 00 02 ................
002740: 02 00 C8 02 00 00 00 02 02 00 C4 02 00 00 00 02 ................
002750: 02 00 C9 02 00 00 00 02 02 00 C5 02 00 00 00 02 ................
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: 54 4F 20 37 39 30 2C 38 32 30 0D 0A 33 39 30 20 TO 790,820..390
002810: 49 46 20 52 3D 48 20 54 48 45 4E 20 34 37 30 0D IF R=H THEN 470.
002820: 0A 34 30 30 20 49 46 20 57 28 52 2B 31 2C 53 29 .400 IF W(R+1,S)
002830: 3C 3E 30 20 54 48 45 4E 20 34 37 30 0D 0A 34 30 <>0 THEN 470..40
002840: 35 20 49 46 20 53 3C 3E 56 20 54 48 45 4E 20 34 5 IF S<>V THEN 4
002850: 32 30 0D 0A 34 31 30 20 49 46 20 5A 3D 31 20 54 20..410 IF Z=1 T
002860: 48 45 4E 20 34 35 30 0D 0A 34 31 35 20 51 3D 31 HEN 450..415 Q=1
002870: 3A 47 4F 54 4F 20 34 33 30 0D 0A 34 32 30 20 49 :GOTO 430..420 I
002880: 46 20 57 28 52 2C 53 2B 31 29 3C 3E 30 20 54 48 F W(R,S+1)<>0 TH
002890: 45 4E 20 34 35 30 0D 0A 34 33 30 20 58 3D 49 4E EN 450..430 X=IN
0028A0: 54 28 52 4E 44 28 31 29 2A 33 2B 31 29 0D 0A 34 T(RND(1)*3+1)..4
0028B0: 34 30 20 4F 4E 20 58 20 47 4F 54 4F 20 37 39 30 40 ON X GOTO 790
0028C0: 2C 38 36 30 2C 39 31 30 0D 0A 34 35 30 20 58 3D ,860,910..450 X=
0028D0: 49 4E 54 28 52 4E 44 28 31 29 2A 32 2B 31 29 0D INT(RND(1)*2+1).
0028E0: 0A 34 36 30 20 4F 4E 20 58 20 47 4F 54 4F 20 37 .460 ON X GOTO 7
0028F0: 39 30 2C 38 36 30 0D 0A 34 37 30 20 49 46 20 53 90,860..470 IF S
002900: 3C 3E 56 20 54 48 45 4E 20 34 39 30 0D 0A 34 38 <>V THEN 490..48
002910: 30 20 49 46 20 5A 3D 31 20 54 48 45 4E 20 35 32 0 IF Z=1 THEN 52
002920: 30 0D 0A 34 38 35 20 51 3D 31 3A 47 4F 54 4F 20 0..485 Q=1:GOTO
002930: 35 30 30 0D 0A 34 39 30 20 49 46 20 57 28 52 2C 500..490 IF W(R,
002940: 53 2B 31 29 3C 3E 30 20 54 48 45 4E 20 35 32 30 S+1)<>0 THEN 520
002950: 0D 0A 35 30 30 20 58 3D 49 4E 54 28 52 4E 44 28 ..500 X=INT(RND(
002960: 31 29 2A 32 2B 31 29 0D 0A 35 31 30 20 4F 4E 20 1)*2+1)..510 ON
002970: 58 20 47 4F 54 4F 20 37 39 30 2C 39 31 30 0D 0A X GOTO 790,910..
002980: 35 32 30 20 47 4F 54 4F 20 37 39 30 0D 0A 35 33 520 GOTO 790..53
002990: 30 20 49 46 20 53 2D 31 3D 30 20 54 48 45 4E 20 0 IF S-1=0 THEN
0029A0: 36 37 30 0D 0A 35 34 30 20 49 46 20 57 28 52 2C 670..540 IF W(R,
0029B0: 53 2D 31 29 3C 3E 30 20 54 48 45 4E 20 36 37 30 S-1)<>0 THEN 670
0029C0: 0D 0A 35 34 35 20 49 46 20 52 3D 48 20 54 48 45 ..545 IF R=H THE
0029D0: 4E 20 36 31 30 0D 0A 35 34 37 20 49 46 20 57 28 N 610..547 IF W(
0029E0: 52 2B 31 2C 53 29 3C 3E 30 20 54 48 45 4E 20 36 R+1,S)<>0 THEN 6
0029F0: 31 30 0D 0A 35 35 30 20 49 46 20 53 3C 3E 56 20 10..550 IF S<>V
002A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002C00: 54 48 45 4E 20 35 36 30 0D 0A 35 35 32 20 49 46 THEN 560..552 IF
002C10: 20 5A 3D 31 20 54 48 45 4E 20 35 39 30 0D 0A 35 Z=1 THEN 590..5
002C20: 35 34 20 51 3D 31 3A 47 4F 54 4F 20 35 37 30 0D 54 Q=1:GOTO 570.
002C30: 0A 35 36 30 20 49 46 20 57 28 52 2C 53 2B 31 29 .560 IF W(R,S+1)
002C40: 3C 3E 30 20 54 48 45 4E 20 35 39 30 0D 0A 35 37 <>0 THEN 590..57
002C50: 30 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 2A 33 0 X=INT(RND(1)*3
002C60: 2B 31 29 0D 0A 35 38 30 20 4F 4E 20 58 20 47 4F +1)..580 ON X GO
002C70: 54 4F 20 38 32 30 2C 38 36 30 2C 39 31 30 0D 0A TO 820,860,910..
002C80: 35 39 30 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 590 X=INT(RND(1)
002C90: 2A 32 2B 31 29 0D 0A 36 30 30 20 4F 4E 20 58 20 *2+1)..600 ON X
002CA0: 47 4F 54 4F 20 38 32 30 2C 38 36 30 0D 0A 36 31 GOTO 820,860..61
002CB0: 30 20 49 46 20 53 3C 3E 56 20 54 48 45 4E 20 36 0 IF S<>V THEN 6
002CC0: 33 30 0D 0A 36 32 30 20 49 46 20 5A 3D 31 20 54 30..620 IF Z=1 T
002CD0: 48 45 4E 20 36 36 30 0D 0A 36 32 35 20 51 3D 31 HEN 660..625 Q=1
002CE0: 3A 47 4F 54 4F 20 36 34 30 0D 0A 36 33 30 20 49 :GOTO 640..630 I
002CF0: 46 20 57 28 52 2C 53 2B 31 29 3C 3E 30 20 54 48 F W(R,S+1)<>0 TH
002D00: 45 4E 20 36 36 30 0D 0A 36 34 30 20 58 3D 49 4E EN 660..640 X=IN
002D10: 54 28 52 4E 44 28 31 29 2A 32 2B 31 29 0D 0A 36 T(RND(1)*2+1)..6
002D20: 35 30 20 4F 4E 20 58 20 47 4F 54 4F 20 38 32 30 50 ON X GOTO 820
002D30: 2C 39 31 30 0D 0A 36 36 30 20 47 4F 54 4F 20 38 ,910..660 GOTO 8
002D40: 32 30 0D 0A 36 37 30 20 49 46 20 52 3D 48 20 54 20..670 IF R=H T
002D50: 48 45 4E 20 37 34 30 0D 0A 36 38 30 20 49 46 20 HEN 740..680 IF
002D60: 57 28 52 2B 31 2C 53 29 3C 3E 30 20 54 48 45 4E W(R+1,S)<>0 THEN
002D70: 20 37 34 30 0D 0A 36 38 35 20 49 46 20 53 3C 3E 740..685 IF S<>
002D80: 56 20 54 48 45 4E 20 37 30 30 0D 0A 36 39 30 20 V THEN 700..690
002D90: 49 46 20 5A 3D 31 20 54 48 45 4E 20 37 33 30 0D IF Z=1 THEN 730.
002DA0: 0A 36 39 35 20 51 3D 31 3A 47 4F 54 4F 20 38 33 .695 Q=1:GOTO 83
002DB0: 30 0D 0A 37 30 30 20 49 46 20 57 28 52 2C 53 2B 0..700 IF W(R,S+
002DC0: 31 29 3C 3E 30 20 54 48 45 4E 20 37 33 30 0D 0A 1)<>0 THEN 730..
002DD0: 37 31 30 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 710 X=INT(RND(1)
002DE0: 2A 32 2B 31 29 0D 0A 37 32 30 20 4F 4E 20 58 20 *2+1)..720 ON X
002DF0: 47 4F 54 4F 20 38 36 30 2C 39 31 30 0D 0A 37 33 GOTO 860,910..73
002E00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 10 PRINT TAB(32)
002E10: 3B 22 41 4E 49 4D 41 4C 22 0D 0A 32 30 20 50 52 ;"ANIMAL"..20 PR
002E20: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
002E30: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
002E40: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
002E50: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
002E60: 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 NT: PRINT: PRINT
002E70: 0D 0A 34 30 20 50 52 49 4E 54 20 22 50 4C 41 59 ..40 PRINT "PLAY
002E80: 20 27 47 55 45 53 53 20 54 48 45 20 41 4E 49 4D 'GUESS THE ANIM
002E90: 41 4C 27 22 0D 0A 34 35 20 50 52 49 4E 54 0D 0A AL'"..45 PRINT..
002EA0: 35 30 20 50 52 49 4E 54 20 22 54 48 49 4E 4B 20 50 PRINT "THINK
002EB0: 4F 46 20 41 4E 20 41 4E 49 4D 41 4C 20 41 4E 44 OF AN ANIMAL AND
002EC0: 20 54 48 45 20 43 4F 4D 50 55 54 45 52 20 57 49 THE COMPUTER WI
002ED0: 4C 4C 20 54 52 59 20 54 4F 20 47 55 45 53 53 20 LL TRY TO GUESS
002EE0: 49 54 2E 22 0D 0A 36 30 20 50 52 49 4E 54 0D 0A IT."..60 PRINT..
002EF0: 37 30 20 44 49 4D 20 41 24 28 32 30 30 29 0D 0A 70 DIM A$(200)..
002F00: 38 30 20 46 4F 52 20 49 3D 30 20 54 4F 20 33 0D 80 FOR I=0 TO 3.
002F10: 0A 39 30 20 52 45 41 44 20 41 24 28 49 29 0D 0A .90 READ A$(I)..
002F20: 31 30 30 20 4E 45 58 54 20 49 0D 0A 31 31 30 20 100 NEXT I..110
002F30: 4E 3D 56 41 4C 28 41 24 28 30 29 29 0D 0A 31 32 N=VAL(A$(0))..12
002F40: 30 20 52 45 4D 20 20 20 20 20 20 20 20 20 20 4D 0 REM M
002F50: 41 49 4E 20 43 4F 4E 54 52 4F 4C 20 53 45 43 54 AIN CONTROL SECT
002F60: 49 4F 4E 0D 0A 31 33 30 20 49 4E 50 55 54 20 22 ION..130 INPUT "
002F70: 41 52 45 20 59 4F 55 20 54 48 49 4E 4B 49 4E 47 ARE YOU THINKING
002F80: 20 4F 46 20 41 4E 20 41 4E 49 4D 41 4C 22 3B 41 OF AN ANIMAL";A
002F90: 24 0D 0A 31 34 30 20 49 46 20 41 24 3D 22 4C 49 $..140 IF A$="LI
002FA0: 53 54 22 20 54 48 45 4E 20 36 30 30 0D 0A 31 35 ST" THEN 600..15
002FB0: 30 20 49 46 20 4C 45 46 54 24 28 41 24 2C 31 29 0 IF LEFT$(A$,1)
002FC0: 3C 3E 22 59 22 20 54 48 45 4E 20 31 32 30 0D 0A <>"Y" THEN 120..
002FD0: 31 36 30 20 4B 3D 31 0D 0A 31 37 30 20 47 4F 53 160 K=1..170 GOS
002FE0: 55 42 20 33 39 30 0D 0A 31 38 30 20 49 46 20 4C UB 390..180 IF L
002FF0: 45 4E 28 41 24 28 4B 29 29 3D 30 20 54 48 45 4E EN(A$(K))=0 THEN
003000: 30 20 47 4F 54 4F 20 38 36 30 0D 0A 37 34 30 20 0 GOTO 860..740
003010: 49 46 20 53 3C 3E 56 20 54 48 45 4E 20 37 36 30 IF S<>V THEN 760
003020: 0D 0A 37 35 30 20 49 46 20 5A 3D 31 20 54 48 45 ..750 IF Z=1 THE
003030: 4E 20 37 38 30 0D 0A 37 35 35 20 51 3D 31 3A 47 N 780..755 Q=1:G
003040: 4F 54 4F 20 37 37 30 0D 0A 37 36 30 20 49 46 20 OTO 770..760 IF
003050: 57 28 52 2C 53 2B 31 29 3C 3E 30 20 54 48 45 4E W(R,S+1)<>0 THEN
003060: 20 37 38 30 0D 0A 37 37 30 20 47 4F 54 4F 20 39 780..770 GOTO 9
003070: 31 30 0D 0A 37 38 30 20 47 4F 54 4F 20 31 30 30 10..780 GOTO 100
003080: 30 0D 0A 37 39 30 20 57 28 52 2D 31 2C 53 29 3D 0..790 W(R-1,S)=
003090: 43 0D 0A 38 30 30 20 43 3D 43 2B 31 3A 56 28 52 C..800 C=C+1:V(R
0030A0: 2D 31 2C 53 29 3D 32 3A 52 3D 52 2D 31 0D 0A 38 -1,S)=2:R=R-1..8
0030B0: 31 30 20 49 46 20 43 3D 48 2A 56 2B 31 20 54 48 10 IF C=H*V+1 TH
0030C0: 45 4E 20 31 30 31 30 0D 0A 38 31 35 20 51 3D 30 EN 1010..815 Q=0
0030D0: 3A 47 4F 54 4F 20 32 36 30 0D 0A 38 32 30 20 57 :GOTO 260..820 W
0030E0: 28 52 2C 53 2D 31 29 3D 43 0D 0A 38 33 30 20 43 (R,S-1)=C..830 C
0030F0: 3D 43 2B 31 0D 0A 38 34 30 20 56 28 52 2C 53 2D =C+1..840 V(R,S-
003100: 31 29 3D 31 3A 53 3D 53 2D 31 3A 49 46 20 43 3D 1)=1:S=S-1:IF C=
003110: 48 2A 56 2B 31 20 54 48 45 4E 20 31 30 31 30 0D H*V+1 THEN 1010.
003120: 0A 38 35 30 20 51 3D 30 3A 47 4F 54 4F 20 32 36 .850 Q=0:GOTO 26
003130: 30 0D 0A 38 36 30 20 57 28 52 2B 31 2C 53 29 3D 0..860 W(R+1,S)=
003140: 43 0D 0A 38 37 30 20 43 3D 43 2B 31 3A 49 46 20 C..870 C=C+1:IF
003150: 56 28 52 2C 53 29 3D 30 20 54 48 45 4E 20 38 38 V(R,S)=0 THEN 88
003160: 30 0D 0A 38 37 35 20 56 28 52 2C 53 29 3D 33 3A 0..875 V(R,S)=3:
003170: 47 4F 54 4F 20 38 39 30 0D 0A 38 38 30 20 56 28 GOTO 890..880 V(
003180: 52 2C 53 29 3D 32 0D 0A 38 39 30 20 52 3D 52 2B R,S)=2..890 R=R+
003190: 31 0D 0A 39 30 30 20 49 46 20 43 3D 48 2A 56 2B 1..900 IF C=H*V+
0031A0: 31 20 54 48 45 4E 20 31 30 31 30 0D 0A 39 30 35 1 THEN 1010..905
0031B0: 20 47 4F 54 4F 20 35 33 30 0D 0A 39 31 30 20 49 GOTO 530..910 I
0031C0: 46 20 51 3D 31 20 54 48 45 4E 20 39 36 30 0D 0A F Q=1 THEN 960..
0031D0: 39 32 30 20 57 28 52 2C 53 2B 31 29 3D 43 3A 43 920 W(R,S+1)=C:C
0031E0: 3D 43 2B 31 3A 49 46 20 56 28 52 2C 53 29 3D 30 =C+1:IF V(R,S)=0
0031F0: 20 54 48 45 4E 20 39 34 30 0D 0A 39 33 30 20 56 THEN 940..930 V
003200: 20 39 39 39 0D 0A 31 39 30 20 49 46 20 4C 45 46 999..190 IF LEF
003210: 54 24 28 41 24 28 4B 29 2C 32 29 3D 22 5C 51 22 T$(A$(K),2)="\Q"
003220: 20 54 48 45 4E 20 31 37 30 0D 0A 32 30 30 20 50 THEN 170..200 P
003230: 52 49 4E 54 20 22 49 53 20 49 54 20 41 20 22 3B RINT "IS IT A ";
003240: 52 49 47 48 54 24 28 41 24 28 4B 29 2C 4C 45 4E RIGHT$(A$(K),LEN
003250: 28 41 24 28 4B 29 29 2D 32 29 3B 0D 0A 32 31 30 (A$(K))-2);..210
003260: 20 49 4E 50 55 54 20 41 24 0D 0A 32 32 30 20 41 INPUT A$..220 A
003270: 24 3D 4C 45 46 54 24 28 41 24 2C 31 29 0D 0A 32 $=LEFT$(A$,1)..2
003280: 33 30 20 49 46 20 4C 45 46 54 24 28 41 24 2C 31 30 IF LEFT$(A$,1
003290: 29 3D 22 59 22 20 54 48 45 4E 20 50 52 49 4E 54 )="Y" THEN PRINT
0032A0: 20 22 57 48 59 20 4E 4F 54 20 54 52 59 20 41 4E "WHY NOT TRY AN
0032B0: 4F 54 48 45 52 20 41 4E 49 4D 41 4C 3F 22 3A 20 OTHER ANIMAL?":
0032C0: 47 4F 54 4F 20 31 32 30 0D 0A 32 34 30 20 49 4E GOTO 120..240 IN
0032D0: 50 55 54 20 22 54 48 45 20 41 4E 49 4D 41 4C 20 PUT "THE ANIMAL
0032E0: 59 4F 55 20 57 45 52 45 20 54 48 49 4E 4B 49 4E YOU WERE THINKIN
0032F0: 47 20 4F 46 20 57 41 53 20 41 20 22 3B 56 24 0D G OF WAS A ";V$.
003300: 0A 32 35 30 20 50 52 49 4E 54 20 22 50 4C 45 41 .250 PRINT "PLEA
003310: 53 45 20 54 59 50 45 20 49 4E 20 41 20 51 55 45 SE TYPE IN A QUE
003320: 53 54 49 4F 4E 20 54 48 41 54 20 57 4F 55 4C 44 STION THAT WOULD
003330: 20 44 49 53 54 49 4E 47 55 49 53 48 20 41 22 0D DISTINGUISH A".
003340: 0A 32 36 30 20 50 52 49 4E 54 20 56 24 3B 22 20 .260 PRINT V$;"
003350: 46 52 4F 4D 20 41 20 22 3B 52 49 47 48 54 24 28 FROM A ";RIGHT$(
003360: 41 24 28 4B 29 2C 4C 45 4E 28 41 24 28 4B 29 29 A$(K),LEN(A$(K))
003370: 2D 32 29 0D 0A 32 37 30 20 49 4E 50 55 54 20 58 -2)..270 INPUT X
003380: 24 0D 0A 32 38 30 20 50 52 49 4E 54 20 22 46 4F $..280 PRINT "FO
003390: 52 20 41 20 22 3B 56 24 3B 22 20 54 48 45 20 41 R A ";V$;" THE A
0033A0: 4E 53 57 45 52 20 57 4F 55 4C 44 20 42 45 20 22 NSWER WOULD BE "
0033B0: 3B 0D 0A 32 39 30 20 49 4E 50 55 54 20 41 24 0D ;..290 INPUT A$.
0033C0: 0A 33 30 30 20 41 24 3D 4C 45 46 54 24 28 41 24 .300 A$=LEFT$(A$
0033D0: 2C 31 29 3A 20 49 46 20 41 24 3C 3E 22 59 22 20 ,1): IF A$<>"Y"
0033E0: 41 4E 44 20 41 24 3C 3E 22 4E 22 20 54 48 45 4E AND A$<>"N" THEN
0033F0: 20 32 38 30 0D 0A 33 31 30 20 49 46 20 41 24 3D 280..310 IF A$=
003400: 28 52 2C 53 29 3D 33 3A 47 4F 54 4F 20 39 35 30 (R,S)=3:GOTO 950
003410: 0D 0A 39 34 30 20 56 28 52 2C 53 29 3D 31 0D 0A ..940 V(R,S)=1..
003420: 39 35 30 20 53 3D 53 2B 31 3A 49 46 20 43 3D 48 950 S=S+1:IF C=H
003430: 2A 56 2B 31 20 54 48 45 4E 20 31 30 31 30 0D 0A *V+1 THEN 1010..
003440: 39 35 35 20 47 4F 54 4F 20 32 36 30 0D 0A 39 36 955 GOTO 260..96
003450: 30 20 5A 3D 31 0D 0A 39 37 30 20 49 46 20 56 28 0 Z=1..970 IF V(
003460: 52 2C 53 29 3D 30 20 54 48 45 4E 20 39 38 30 0D R,S)=0 THEN 980.
003470: 0A 39 37 35 20 56 28 52 2C 53 29 3D 33 3A 51 3D .975 V(R,S)=3:Q=
003480: 30 3A 47 4F 54 4F 20 31 30 30 30 0D 0A 39 38 30 0:GOTO 1000..980
003490: 20 56 28 52 2C 53 29 3D 31 3A 51 3D 30 3A 52 3D V(R,S)=1:Q=0:R=
0034A0: 31 3A 53 3D 31 3A 47 4F 54 4F 20 32 35 30 0D 0A 1:S=1:GOTO 250..
0034B0: 31 30 30 30 20 47 4F 54 4F 20 32 31 30 0D 0A 31 1000 GOTO 210..1
0034C0: 30 31 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 56 010 FOR J=1 TO V
0034D0: 0D 0A 31 30 31 31 20 50 52 49 4E 54 20 22 49 22 ..1011 PRINT "I"
0034E0: 3B 0D 0A 31 30 31 32 20 46 4F 52 20 49 3D 31 20 ;..1012 FOR I=1
0034F0: 54 4F 20 48 0D 0A 31 30 31 33 20 49 46 20 56 28 TO H..1013 IF V(
003500: 49 2C 4A 29 3C 32 20 54 48 45 4E 20 31 30 33 30 I,J)<2 THEN 1030
003510: 0D 0A 31 30 32 30 20 50 52 49 4E 54 20 22 20 20 ..1020 PRINT "
003520: 20 22 3B 0D 0A 31 30 32 31 20 47 4F 54 4F 20 31 ";..1021 GOTO 1
003530: 30 34 30 0D 0A 31 30 33 30 20 50 52 49 4E 54 20 040..1030 PRINT
003540: 22 20 20 49 22 3B 0D 0A 31 30 34 30 20 4E 45 58 " I";..1040 NEX
003550: 54 20 49 0D 0A 31 30 34 31 20 50 52 49 4E 54 0D T I..1041 PRINT.
003560: 0A 31 30 34 33 20 46 4F 52 20 49 3D 31 20 54 4F .1043 FOR I=1 TO
003570: 20 48 0D 0A 31 30 34 35 20 49 46 20 56 28 49 2C H..1045 IF V(I,
003580: 4A 29 3D 30 20 54 48 45 4E 20 31 30 36 30 0D 0A J)=0 THEN 1060..
003590: 31 30 35 30 20 49 46 20 56 28 49 2C 4A 29 3D 32 1050 IF V(I,J)=2
0035A0: 20 54 48 45 4E 20 31 30 36 30 0D 0A 31 30 35 31 THEN 1060..1051
0035B0: 20 50 52 49 4E 54 20 22 3A 20 20 22 3B 0D 0A 31 PRINT ": ";..1
0035C0: 30 35 32 20 47 4F 54 4F 20 31 30 37 30 0D 0A 31 052 GOTO 1070..1
0035D0: 30 36 30 20 50 52 49 4E 54 20 22 3A 2D 2D 22 3B 060 PRINT ":--";
0035E0: 0D 0A 31 30 37 30 20 4E 45 58 54 20 49 0D 0A 31 ..1070 NEXT I..1
0035F0: 30 37 31 20 50 52 49 4E 54 20 22 2E 22 0D 0A 31 071 PRINT "."..1
003600: 22 59 22 20 54 48 45 4E 20 42 24 3D 22 4E 22 0D "Y" THEN B$="N".
003610: 0A 33 32 30 20 49 46 20 41 24 3D 22 4E 22 20 54 .320 IF A$="N" T
003620: 48 45 4E 20 42 24 3D 22 59 22 0D 0A 33 33 30 20 HEN B$="Y"..330
003630: 5A 31 3D 56 41 4C 28 41 24 28 30 29 29 0D 0A 33 Z1=VAL(A$(0))..3
003640: 34 30 20 41 24 28 30 29 3D 53 54 52 24 28 5A 31 40 A$(0)=STR$(Z1
003650: 2B 32 29 0D 0A 33 35 30 20 41 24 28 5A 31 29 3D +2)..350 A$(Z1)=
003660: 41 24 28 4B 29 0D 0A 33 36 30 20 41 24 28 5A 31 A$(K)..360 A$(Z1
003670: 2B 31 29 3D 22 5C 41 22 2B 56 24 0D 0A 33 37 30 +1)="\A"+V$..370
003680: 20 41 24 28 4B 29 3D 22 5C 51 22 2B 58 24 2B 22 A$(K)="\Q"+X$+"
003690: 5C 22 2B 41 24 2B 53 54 52 24 28 5A 31 2B 31 29 \"+A$+STR$(Z1+1)
0036A0: 2B 22 5C 22 2B 42 24 2B 53 54 52 24 28 5A 31 29 +"\"+B$+STR$(Z1)
0036B0: 2B 22 5C 22 0D 0A 33 38 30 20 47 4F 54 4F 20 31 +"\"..380 GOTO 1
0036C0: 32 30 0D 0A 33 39 30 20 52 45 4D 20 20 20 20 20 20..390 REM
0036D0: 53 55 42 52 4F 55 54 49 4E 45 20 54 4F 20 50 52 SUBROUTINE TO PR
0036E0: 49 4E 54 20 51 55 45 53 54 49 4F 4E 53 0D 0A 34 INT QUESTIONS..4
0036F0: 30 30 20 51 24 3D 41 24 28 4B 29 0D 0A 34 31 30 00 Q$=A$(K)..410
003700: 20 46 4F 52 20 5A 3D 33 20 54 4F 20 4C 45 4E 28 FOR Z=3 TO LEN(
003710: 51 24 29 0D 0A 34 31 35 20 49 46 20 4D 49 44 24 Q$)..415 IF MID$
003720: 28 51 24 2C 5A 2C 31 29 3C 3E 22 5C 22 20 54 48 (Q$,Z,1)<>"\" TH
003730: 45 4E 20 50 52 49 4E 54 20 4D 49 44 24 28 51 24 EN PRINT MID$(Q$
003740: 2C 5A 2C 31 29 3B 3A 20 4E 45 58 54 20 5A 0D 0A ,Z,1);: NEXT Z..
003750: 34 32 30 20 49 4E 50 55 54 20 43 24 0D 0A 34 33 420 INPUT C$..43
003760: 30 20 43 24 3D 4C 45 46 54 24 28 43 24 2C 31 29 0 C$=LEFT$(C$,1)
003770: 0D 0A 34 34 30 20 49 46 20 43 24 3C 3E 22 59 22 ..440 IF C$<>"Y"
003780: 20 41 4E 44 20 43 24 3C 3E 22 4E 22 20 54 48 45 AND C$<>"N" THE
003790: 4E 20 34 31 30 0D 0A 34 35 30 20 54 24 3D 22 5C N 410..450 T$="\
0037A0: 22 2B 43 24 0D 0A 34 35 35 20 46 4F 52 20 58 3D "+C$..455 FOR X=
0037B0: 33 20 54 4F 20 4C 45 4E 28 51 24 29 2D 31 0D 0A 3 TO LEN(Q$)-1..
0037C0: 34 36 30 20 49 46 20 4D 49 44 24 28 51 24 2C 58 460 IF MID$(Q$,X
0037D0: 2C 32 29 3D 54 24 20 54 48 45 4E 20 34 38 30 0D ,2)=T$ THEN 480.
0037E0: 0A 34 37 30 20 4E 45 58 54 20 58 0D 0A 34 37 35 .470 NEXT X..475
0037F0: 20 53 54 4F 50 0D 0A 34 38 30 20 46 4F 52 20 59 STOP..480 FOR Y
003800: 30 37 32 20 4E 45 58 54 20 4A 0D 0A 31 30 37 33 072 NEXT J..1073
003810: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
003820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0038A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0038B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0038C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0038D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0038E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0038F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0039A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0039B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0039C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0039D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0039E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0039F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 00 00 02 09 52 E5 03 00 C1 02 00 00 00 02 ......R.........
003A20: 03 00 C6 02 00 00 00 02 03 00 C2 02 00 00 00 02 ................
003A30: 03 00 C7 02 00 00 00 02 03 00 C3 02 00 00 00 02 ................
003A40: 03 00 C8 02 00 00 00 02 03 00 C4 02 00 00 00 02 ................
003A50: 03 00 C9 02 00 00 00 02 03 00 C5 02 00 00 00 02 ................
003A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B00: 3D 58 2B 31 20 54 4F 20 4C 45 4E 28 51 24 29 0D =X+1 TO LEN(Q$).
003B10: 0A 34 39 30 20 49 46 20 4D 49 44 24 28 51 24 2C .490 IF MID$(Q$,
003B20: 59 2C 31 29 3D 22 5C 22 20 54 48 45 4E 20 35 31 Y,1)="\" THEN 51
003B30: 30 0D 0A 35 30 30 20 4E 45 58 54 20 59 0D 0A 35 0..500 NEXT Y..5
003B40: 30 35 20 53 54 4F 50 0D 0A 35 31 30 20 4B 3D 56 05 STOP..510 K=V
003B50: 41 4C 28 4D 49 44 24 28 51 24 2C 58 2B 32 2C 59 AL(MID$(Q$,X+2,Y
003B60: 2D 58 2D 32 29 29 0D 0A 35 32 30 20 52 45 54 55 -X-2))..520 RETU
003B70: 52 4E 0D 0A 35 33 30 20 44 41 54 41 20 22 34 22 RN..530 DATA "4"
003B80: 2C 22 5C 51 44 4F 45 53 20 49 54 20 53 57 49 4D ,"\QDOES IT SWIM
003B90: 5C 59 32 5C 4E 33 5C 22 2C 22 5C 41 46 49 53 48 \Y2\N3\","\AFISH
003BA0: 22 2C 22 5C 41 42 49 52 44 22 0D 0A 36 30 30 20 ","\ABIRD"..600
003BB0: 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 41 4E 49 PRINT:PRINT "ANI
003BC0: 4D 41 4C 53 20 49 20 41 4C 52 45 41 44 59 20 4B MALS I ALREADY K
003BD0: 4E 4F 57 20 41 52 45 3A 22 0D 0A 36 30 35 20 58 NOW ARE:"..605 X
003BE0: 3D 30 0D 0A 36 31 30 20 46 4F 52 20 49 3D 31 20 =0..610 FOR I=1
003BF0: 54 4F 20 32 30 30 0D 0A 36 32 30 20 49 46 20 4C TO 200..620 IF L
003C00: 45 46 54 24 28 41 24 28 49 29 2C 32 29 3C 3E 22 EFT$(A$(I),2)<>"
003C10: 5C 41 22 20 54 48 45 4E 20 36 35 30 0D 0A 36 32 \A" THEN 650..62
003C20: 34 20 50 52 49 4E 54 20 54 41 42 28 31 35 2A 58 4 PRINT TAB(15*X
003C30: 29 3B 0D 0A 36 33 30 20 46 4F 52 20 5A 3D 33 20 );..630 FOR Z=3
003C40: 54 4F 20 4C 45 4E 28 41 24 28 49 29 29 0D 0A 36 TO LEN(A$(I))..6
003C50: 34 30 20 49 46 20 4D 49 44 24 28 41 24 28 49 29 40 IF MID$(A$(I)
003C60: 2C 5A 2C 31 29 3C 3E 22 5C 22 20 54 48 45 4E 20 ,Z,1)<>"\" THEN
003C70: 50 52 49 4E 54 20 4D 49 44 24 28 41 24 28 49 29 PRINT MID$(A$(I)
003C80: 2C 5A 2C 31 29 3B 3A 20 4E 45 58 54 20 5A 0D 0A ,Z,1);: NEXT Z..
003C90: 36 34 35 20 58 3D 58 2B 31 3A 20 49 46 20 58 3D 645 X=X+1: IF X=
003CA0: 34 20 54 48 45 4E 20 58 3D 30 3A 20 50 52 49 4E 4 THEN X=0: PRIN
003CB0: 54 0D 0A 36 35 30 20 4E 45 58 54 20 49 0D 0A 36 T..650 NEXT I..6
003CC0: 36 30 20 50 52 49 4E 54 0D 0A 36 37 30 20 50 52 60 PRINT..670 PR
003CD0: 49 4E 54 0D 0A 36 38 30 20 47 4F 54 4F 20 31 32 INT..680 GOTO 12
003CE0: 30 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 0..999 END......
003CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003D00: 49 3D 30 20 54 4F 20 4E 2D 31 3A 50 52 49 4E 54 I=0 TO N-1:PRINT
003D10: 20 42 28 49 29 3A 4E 45 58 54 20 49 0D 0A 39 39 B(I):NEXT I..99
003D20: 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 9 END...........
003D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003F00: 35 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 3B 5 PRINT TAB(34);
003F10: 22 41 57 41 52 49 22 0D 0A 37 20 50 52 49 4E 54 "AWARI"..7 PRINT
003F20: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
003F30: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
003F40: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
003F50: 52 53 45 59 22 0D 0A 31 30 20 44 41 54 41 20 30 RSEY"..10 DATA 0
003F60: 0D 0A 31 35 20 44 49 4D 20 42 28 31 33 29 2C 47 ..15 DIM B(13),G
003F70: 28 31 33 29 2C 46 28 35 30 29 3A 52 45 41 44 20 (13),F(50):READ
003F80: 4E 0D 0A 32 30 20 50 52 49 4E 54 3A 50 52 49 4E N..20 PRINT:PRIN
003F90: 54 3A 45 3D 30 0D 0A 32 35 20 46 4F 52 20 49 3D T:E=0..25 FOR I=
003FA0: 30 20 54 4F 20 31 32 3A 42 28 49 29 3D 33 3A 4E 0 TO 12:B(I)=3:N
003FB0: 45 58 54 20 49 0D 0A 33 30 20 43 3D 30 3A 46 28 EXT I..30 C=0:F(
003FC0: 4E 29 3D 30 3A 42 28 31 33 29 3D 30 3A 42 28 36 N)=0:B(13)=0:B(6
003FD0: 29 3D 30 0D 0A 33 35 20 47 4F 53 55 42 20 35 30 )=0..35 GOSUB 50
003FE0: 30 0D 0A 34 30 20 50 52 49 4E 54 20 22 59 4F 55 0..40 PRINT "YOU
003FF0: 52 20 4D 4F 56 45 22 3B 3A 47 4F 53 55 42 20 31 R MOVE";:GOSUB 1
004000: 31 30 0D 0A 34 35 20 49 46 20 45 3D 30 20 54 48 10..45 IF E=0 TH
004010: 45 4E 20 38 30 0D 0A 35 30 20 49 46 20 4D 3D 48 EN 80..50 IF M=H
004020: 20 54 48 45 4E 20 47 4F 53 55 42 20 31 30 30 0D THEN GOSUB 100.
004030: 0A 35 35 20 49 46 20 45 3D 30 20 54 48 45 4E 20 .55 IF E=0 THEN
004040: 38 30 0D 0A 36 30 20 50 52 49 4E 54 20 22 4D 59 80..60 PRINT "MY
004050: 20 4D 4F 56 45 20 49 53 20 22 3B 3A 47 4F 53 55 MOVE IS ";:GOSU
004060: 42 20 38 30 30 0D 0A 36 35 20 49 46 20 45 3D 30 B 800..65 IF E=0
004070: 20 54 48 45 4E 20 38 30 0D 0A 37 30 20 49 46 20 THEN 80..70 IF
004080: 4D 3D 48 20 54 48 45 4E 20 50 52 49 4E 54 20 22 M=H THEN PRINT "
004090: 2C 22 3B 3A 47 4F 53 55 42 20 38 30 30 0D 0A 37 ,";:GOSUB 800..7
0040A0: 35 20 49 46 20 45 3E 30 20 54 48 45 4E 20 33 35 5 IF E>0 THEN 35
0040B0: 0D 0A 38 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 ..80 PRINT:PRINT
0040C0: 22 47 41 4D 45 20 4F 56 45 52 22 0D 0A 38 35 20 "GAME OVER"..85
0040D0: 44 3D 42 28 36 29 2D 42 28 31 33 29 3A 49 46 20 D=B(6)-B(13):IF
0040E0: 44 3C 30 20 54 48 45 4E 20 50 52 49 4E 54 20 22 D<0 THEN PRINT "
0040F0: 49 20 57 49 4E 20 42 59 22 3B 2D 44 3B 22 50 4F I WIN BY";-D;"PO
004100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0041A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0041B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0041C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0041D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0041E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0041F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0042A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0042B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0042C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0042D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0042E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0042F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004300: 49 4E 54 53 22 3A 47 4F 54 4F 20 32 30 0D 0A 39 INTS":GOTO 20..9
004310: 30 20 4E 3D 4E 2B 31 3A 49 46 20 44 3D 30 20 54 0 N=N+1:IF D=0 T
004320: 48 45 4E 20 50 52 49 4E 54 20 22 44 52 41 57 4E HEN PRINT "DRAWN
004330: 20 47 41 4D 45 22 3A 47 4F 54 4F 20 32 30 0D 0A GAME":GOTO 20..
004340: 39 35 20 50 52 49 4E 54 20 22 59 4F 55 20 57 49 95 PRINT "YOU WI
004350: 4E 20 42 59 22 3B 44 3B 22 50 4F 49 4E 54 53 22 N BY";D;"POINTS"
004360: 3A 47 4F 54 4F 20 32 30 0D 0A 31 30 30 20 50 52 :GOTO 20..100 PR
004370: 49 4E 54 20 22 41 47 41 49 4E 22 3B 0D 0A 31 31 INT "AGAIN";..11
004380: 30 20 49 4E 50 55 54 20 4D 3A 49 46 20 4D 3C 37 0 INPUT M:IF M<7
004390: 20 54 48 45 4E 20 49 46 20 4D 3E 30 20 54 48 45 THEN IF M>0 THE
0043A0: 4E 20 4D 3D 4D 2D 31 3A 47 4F 54 4F 20 31 33 30 N M=M-1:GOTO 130
0043B0: 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 49 4C 4C ..120 PRINT "ILL
0043C0: 45 47 41 4C 20 4D 4F 56 45 22 3A 47 4F 54 4F 20 EGAL MOVE":GOTO
0043D0: 31 30 30 0D 0A 31 33 30 20 49 46 20 42 28 4D 29 100..130 IF B(M)
0043E0: 3D 30 20 54 48 45 4E 20 31 32 30 0D 0A 31 34 30 =0 THEN 120..140
0043F0: 20 48 3D 36 3A 47 4F 53 55 42 20 32 30 30 0D 0A H=6:GOSUB 200..
004400: 31 35 30 20 47 4F 54 4F 20 35 30 30 0D 0A 32 30 150 GOTO 500..20
004410: 30 20 4B 3D 4D 3A 47 4F 53 55 42 20 36 30 30 0D 0 K=M:GOSUB 600.
004420: 0A 32 30 35 20 45 3D 30 3A 49 46 20 4B 3E 36 20 .205 E=0:IF K>6
004430: 54 48 45 4E 20 4B 3D 4B 2D 37 0D 0A 32 31 30 20 THEN K=K-7..210
004440: 43 3D 43 2B 31 3A 49 46 20 43 3C 39 20 54 48 45 C=C+1:IF C<9 THE
004450: 4E 20 46 28 4E 29 3D 46 28 4E 29 2A 36 2B 4B 0D N F(N)=F(N)*6+K.
004460: 0A 32 31 35 20 46 4F 52 20 49 3D 30 20 54 4F 20 .215 FOR I=0 TO
004470: 35 3A 49 46 20 42 28 49 29 3C 3E 30 20 54 48 45 5:IF B(I)<>0 THE
004480: 4E 20 32 33 30 0D 0A 32 32 30 20 4E 45 58 54 20 N 230..220 NEXT
004490: 49 0D 0A 32 32 35 20 52 45 54 55 52 4E 0D 0A 32 I..225 RETURN..2
0044A0: 33 30 20 46 4F 52 20 49 3D 37 20 54 4F 20 31 32 30 FOR I=7 TO 12
0044B0: 3A 49 46 20 42 28 49 29 3C 3E 30 20 54 48 45 4E :IF B(I)<>0 THEN
0044C0: 20 45 3D 31 3A 52 45 54 55 52 4E 0D 0A 32 33 35 E=1:RETURN..235
0044D0: 20 47 4F 54 4F 20 32 32 30 0D 0A 35 30 30 20 50 GOTO 220..500 P
0044E0: 52 49 4E 54 3A 50 52 49 4E 54 22 20 20 20 22 3B RINT:PRINT" ";
0044F0: 0D 0A 35 30 35 20 46 4F 52 20 49 3D 31 32 20 54 ..505 FOR I=12 T
004500: 35 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 5 PRINT TAB(33);
004510: 22 42 41 47 45 4C 53 22 0D 0A 31 30 20 50 52 49 "BAGELS"..10 PRI
004520: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
004530: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
004540: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
004550: 4A 45 52 53 45 59 22 3A 50 52 49 4E 54 3A 50 52 JERSEY":PRINT:PR
004560: 49 4E 54 0D 0A 31 35 20 52 45 4D 20 2A 2A 2A 20 INT..15 REM ***
004570: 42 41 47 4C 45 53 20 4E 55 4D 42 45 52 20 47 55 BAGLES NUMBER GU
004580: 45 53 53 49 4E 47 20 47 41 4D 45 0D 0A 32 30 20 ESSING GAME..20
004590: 52 45 4D 20 2A 2A 2A 20 4F 52 49 47 49 4E 41 4C REM *** ORIGINAL
0045A0: 20 53 4F 55 52 43 45 20 55 4E 4B 4E 4F 57 4E 20 SOURCE UNKNOWN
0045B0: 42 55 54 20 53 55 53 50 45 43 54 45 44 20 54 4F BUT SUSPECTED TO
0045C0: 20 42 45 0D 0A 32 35 20 52 45 4D 20 2A 2A 2A 20 BE..25 REM ***
0045D0: 4C 41 57 52 45 4E 43 45 20 48 41 4C 4C 20 4F 46 LAWRENCE HALL OF
0045E0: 20 53 43 49 45 4E 43 45 2C 20 55 2E 43 2E 20 42 SCIENCE, U.C. B
0045F0: 45 52 4B 45 4C 59 0D 0A 33 30 20 44 49 4D 20 41 ERKELY..30 DIM A
004600: 31 28 36 29 2C 41 28 33 29 2C 42 28 33 29 0D 0A 1(6),A(3),B(3)..
004610: 34 30 20 59 3D 30 3A 54 3D 32 35 35 0D 0A 35 30 40 Y=0:T=255..50
004620: 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 PRINT:PRINT:PRI
004630: 4E 54 0D 0A 37 30 20 49 4E 50 55 54 20 22 57 4F NT..70 INPUT "WO
004640: 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 48 45 ULD YOU LIKE THE
004650: 20 52 55 4C 45 53 20 28 59 45 53 20 4F 52 20 4E RULES (YES OR N
004660: 4F 29 22 3B 41 24 0D 0A 39 30 20 49 46 20 4C 45 O)";A$..90 IF LE
004670: 46 54 24 28 41 24 2C 31 29 3D 22 4E 22 20 54 48 FT$(A$,1)="N" TH
004680: 45 4E 20 31 35 30 0D 0A 31 30 30 20 50 52 49 4E EN 150..100 PRIN
004690: 54 3A 50 52 49 4E 54 20 22 49 20 41 4D 20 54 48 T:PRINT "I AM TH
0046A0: 49 4E 4B 49 4E 47 20 4F 46 20 41 20 54 48 52 45 INKING OF A THRE
0046B0: 45 2D 44 49 47 49 54 20 4E 55 4D 42 45 52 2E 20 E-DIGIT NUMBER.
0046C0: 20 54 52 59 20 54 4F 20 47 55 45 53 53 22 0D 0A TRY TO GUESS"..
0046D0: 31 31 30 20 50 52 49 4E 54 20 22 4D 59 20 4E 55 110 PRINT "MY NU
0046E0: 4D 42 45 52 20 41 4E 44 20 49 20 57 49 4C 4C 20 MBER AND I WILL
0046F0: 47 49 56 45 20 59 4F 55 20 43 4C 55 45 53 20 41 GIVE YOU CLUES A
004700: 4F 20 37 20 53 54 45 50 20 2D 31 3A 47 4F 53 55 O 7 STEP -1:GOSU
004710: 42 20 35 38 30 0D 0A 35 31 30 20 4E 45 58 54 20 B 580..510 NEXT
004720: 49 0D 0A 35 31 35 20 50 52 49 4E 54 3A 49 3D 31 I..515 PRINT:I=1
004730: 33 3A 47 4F 53 55 42 20 35 38 30 0D 0A 35 32 30 3:GOSUB 580..520
004740: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
004750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
004760: 3B 3A 50 52 49 4E 54 20 42 28 36 29 3A 50 52 49 ;:PRINT B(6):PRI
004770: 4E 54 20 22 20 20 20 22 3B 0D 0A 35 32 35 20 46 NT " ";..525 F
004780: 4F 52 20 49 3D 30 20 54 4F 20 35 3A 47 4F 53 55 OR I=0 TO 5:GOSU
004790: 42 20 35 38 30 0D 0A 35 33 30 20 4E 45 58 54 20 B 580..530 NEXT
0047A0: 49 0D 0A 35 33 35 20 50 52 49 4E 54 3A 50 52 49 I..535 PRINT:PRI
0047B0: 4E 54 3A 52 45 54 55 52 4E 0D 0A 35 38 30 20 49 NT:RETURN..580 I
0047C0: 46 20 42 28 49 29 3C 31 30 20 54 48 45 4E 20 50 F B(I)<10 THEN P
0047D0: 52 49 4E 54 20 22 20 22 3B 0D 0A 35 38 35 20 50 RINT " ";..585 P
0047E0: 52 49 4E 54 20 42 28 49 29 3B 3A 52 45 54 55 52 RINT B(I);:RETUR
0047F0: 4E 0D 0A 36 30 30 20 50 3D 42 28 4D 29 3A 42 28 N..600 P=B(M):B(
004800: 4D 29 3D 30 0D 0A 36 30 35 20 46 4F 52 20 50 3D M)=0..605 FOR P=
004810: 50 20 54 4F 20 31 20 53 54 45 50 20 2D 31 3A 4D P TO 1 STEP -1:M
004820: 3D 4D 2B 31 3A 49 46 20 4D 3E 31 33 20 54 48 45 =M+1:IF M>13 THE
004830: 4E 20 4D 3D 4D 2D 31 34 0D 0A 36 31 30 20 42 28 N M=M-14..610 B(
004840: 4D 29 3D 42 28 4D 29 2B 31 3A 4E 45 58 54 20 50 M)=B(M)+1:NEXT P
004850: 0D 0A 36 31 35 20 49 46 20 42 28 4D 29 3D 31 20 ..615 IF B(M)=1
004860: 54 48 45 4E 20 49 46 20 4D 3C 3E 36 20 54 48 45 THEN IF M<>6 THE
004870: 4E 20 49 46 20 4D 3C 3E 31 33 20 54 48 45 4E 20 N IF M<>13 THEN
004880: 49 46 20 42 28 31 32 2D 4D 29 3C 3E 30 20 54 48 IF B(12-M)<>0 TH
004890: 45 4E 20 36 32 35 0D 0A 36 32 30 20 52 45 54 55 EN 625..620 RETU
0048A0: 52 4E 0D 0A 36 32 35 20 42 28 48 29 3D 42 28 48 RN..625 B(H)=B(H
0048B0: 29 2B 42 28 31 32 2D 4D 29 2B 31 3A 42 28 4D 29 )+B(12-M)+1:B(M)
0048C0: 3D 30 3A 42 28 31 32 2D 4D 29 3D 30 3A 52 45 54 =0:B(12-M)=0:RET
0048D0: 55 52 4E 0D 0A 38 30 30 20 44 3D 2D 39 39 3A 48 URN..800 D=-99:H
0048E0: 3D 31 33 0D 0A 38 30 35 20 46 4F 52 20 49 3D 30 =13..805 FOR I=0
0048F0: 20 54 4F 20 31 33 3A 47 28 49 29 3D 42 28 49 29 TO 13:G(I)=B(I)
004900: 53 20 46 4F 4C 4C 4F 57 53 3A 22 0D 0A 31 32 30 S FOLLOWS:"..120
004910: 20 50 52 49 4E 54 20 22 20 20 20 50 49 43 4F 20 PRINT " PICO
004920: 20 20 2D 20 4F 4E 45 20 44 49 47 49 54 20 43 4F - ONE DIGIT CO
004930: 52 52 45 43 54 20 42 55 54 20 49 4E 20 54 48 45 RRECT BUT IN THE
004940: 20 57 52 4F 4E 47 20 50 4F 53 49 54 49 4F 4E 22 WRONG POSITION"
004950: 0D 0A 31 33 30 20 50 52 49 4E 54 20 22 20 20 20 ..130 PRINT "
004960: 46 45 52 4D 49 20 20 2D 20 4F 4E 45 20 44 49 47 FERMI - ONE DIG
004970: 49 54 20 43 4F 52 52 45 43 54 20 41 4E 44 20 49 IT CORRECT AND I
004980: 4E 20 54 48 45 20 52 49 47 48 54 20 50 4F 53 49 N THE RIGHT POSI
004990: 54 49 4F 4E 22 0D 0A 31 34 30 20 50 52 49 4E 54 TION"..140 PRINT
0049A0: 20 22 20 20 20 42 41 47 45 4C 53 20 2D 20 4E 4F " BAGELS - NO
0049B0: 20 44 49 47 49 54 53 20 43 4F 52 52 45 43 54 22 DIGITS CORRECT"
0049C0: 0D 0A 31 35 30 20 46 4F 52 20 49 3D 31 20 54 4F ..150 FOR I=1 TO
0049D0: 20 33 0D 0A 31 36 30 20 41 28 49 29 3D 49 4E 54 3..160 A(I)=INT
0049E0: 28 31 30 2A 52 4E 44 28 31 29 29 0D 0A 31 36 35 (10*RND(1))..165
0049F0: 20 49 46 20 49 2D 31 3D 30 20 54 48 45 4E 20 32 IF I-1=0 THEN 2
004A00: 30 30 0D 0A 31 37 30 20 46 4F 52 20 4A 3D 31 20 00..170 FOR J=1
004A10: 54 4F 20 49 2D 31 0D 0A 31 38 30 20 49 46 20 41 TO I-1..180 IF A
004A20: 28 49 29 3D 41 28 4A 29 20 54 48 45 4E 20 31 36 (I)=A(J) THEN 16
004A30: 30 0D 0A 31 39 30 20 4E 45 58 54 20 4A 0D 0A 32 0..190 NEXT J..2
004A40: 30 30 20 4E 45 58 54 20 49 0D 0A 32 31 30 20 50 00 NEXT I..210 P
004A50: 52 49 4E 54 3A 50 52 49 4E 54 20 22 4F 2E 4B 2E RINT:PRINT "O.K.
004A60: 20 20 49 20 48 41 56 45 20 41 20 4E 55 4D 42 45 I HAVE A NUMBE
004A70: 52 20 49 4E 20 4D 49 4E 44 2E 22 0D 0A 32 32 30 R IN MIND."..220
004A80: 20 46 4F 52 20 49 3D 31 20 54 4F 20 32 30 0D 0A FOR I=1 TO 20..
004A90: 32 33 30 20 50 52 49 4E 54 20 22 47 55 45 53 53 230 PRINT "GUESS
004AA0: 20 23 22 3B 49 2C 0D 0A 32 34 30 20 49 4E 50 55 #";I,..240 INPU
004AB0: 54 20 41 24 0D 0A 32 34 35 20 49 46 20 4C 45 4E T A$..245 IF LEN
004AC0: 28 41 24 29 3C 3E 33 20 54 48 45 4E 20 36 33 30 (A$)<>3 THEN 630
004AD0: 0D 0A 32 35 30 20 46 4F 52 20 5A 3D 31 20 54 4F ..250 FOR Z=1 TO
004AE0: 20 33 3A 41 31 28 5A 29 3D 41 53 43 28 4D 49 44 3:A1(Z)=ASC(MID
004AF0: 24 28 41 24 2C 5A 2C 31 29 29 3A 4E 45 58 54 20 $(A$,Z,1)):NEXT
004B00: 3A 4E 45 58 54 20 49 0D 0A 38 31 30 20 46 4F 52 :NEXT I..810 FOR
004B10: 20 4A 3D 37 20 54 4F 20 31 32 3A 49 46 20 42 28 J=7 TO 12:IF B(
004B20: 4A 29 3D 30 20 54 48 45 4E 20 38 38 35 0D 0A 38 J)=0 THEN 885..8
004B30: 31 35 20 47 3D 30 3A 4D 3D 4A 3A 47 4F 53 55 42 15 G=0:M=J:GOSUB
004B40: 20 36 30 30 0D 0A 38 32 30 20 46 4F 52 20 49 3D 600..820 FOR I=
004B50: 30 20 54 4F 20 35 3A 49 46 20 42 28 49 29 3D 30 0 TO 5:IF B(I)=0
004B60: 20 54 48 45 4E 20 38 34 35 0D 0A 38 32 35 20 4C THEN 845..825 L
004B70: 3D 42 28 49 29 2B 49 3A 52 3D 30 0D 0A 38 33 30 =B(I)+I:R=0..830
004B80: 20 49 46 20 4C 3E 31 33 20 54 48 45 4E 20 4C 3D IF L>13 THEN L=
004B90: 4C 2D 31 34 3A 52 3D 31 3A 47 4F 54 4F 20 38 33 L-14:R=1:GOTO 83
004BA0: 30 0D 0A 38 33 35 20 49 46 20 42 28 4C 29 3D 30 0..835 IF B(L)=0
004BB0: 20 54 48 45 4E 20 49 46 20 4C 3C 3E 36 20 54 48 THEN IF L<>6 TH
004BC0: 45 4E 20 49 46 20 4C 3C 3E 31 33 20 54 48 45 4E EN IF L<>13 THEN
004BD0: 20 52 3D 42 28 31 32 2D 4C 29 2B 52 0D 0A 38 34 R=B(12-L)+R..84
004BE0: 30 20 49 46 20 52 3E 51 20 54 48 45 4E 20 51 3D 0 IF R>Q THEN Q=
004BF0: 52 0D 0A 38 34 35 20 4E 45 58 54 20 49 0D 0A 38 R..845 NEXT I..8
004C00: 35 30 20 51 3D 42 28 31 33 29 2D 42 28 36 29 2D 50 Q=B(13)-B(6)-
004C10: 51 3A 49 46 20 43 3E 38 20 54 48 45 4E 20 38 37 Q:IF C>8 THEN 87
004C20: 35 0D 0A 38 35 35 20 4B 3D 4A 3A 49 46 20 4B 3E 5..855 K=J:IF K>
004C30: 36 20 54 48 45 4E 20 4B 3D 4B 2D 37 0D 0A 38 36 6 THEN K=K-7..86
004C40: 30 20 46 4F 52 20 49 3D 30 20 54 4F 20 4E 2D 31 0 FOR I=0 TO N-1
004C50: 3A 49 46 20 46 28 4E 29 2A 36 2B 4B 3D 49 4E 54 :IF F(N)*6+K=INT
004C60: 28 46 28 49 29 2F 36 5E 28 37 2D 43 29 2B 2E 31 (F(I)/6^(7-C)+.1
004C70: 29 20 54 48 45 4E 20 51 3D 51 2D 32 0D 0A 38 37 ) THEN Q=Q-2..87
004C80: 30 20 4E 45 58 54 20 49 0D 0A 38 37 35 20 46 4F 0 NEXT I..875 FO
004C90: 52 20 49 3D 30 20 54 4F 20 31 33 3A 42 28 49 29 R I=0 TO 13:B(I)
004CA0: 3D 47 28 49 29 3A 4E 45 58 54 20 49 0D 0A 38 38 =G(I):NEXT I..88
004CB0: 30 20 49 46 20 51 3E 3D 44 20 54 48 45 4E 20 41 0 IF Q>=D THEN A
004CC0: 3D 4A 3A 44 3D 51 0D 0A 38 38 35 20 4E 45 58 54 =J:D=Q..885 NEXT
004CD0: 20 4A 0D 0A 38 39 30 20 4D 3D 41 3A 50 52 49 4E J..890 M=A:PRIN
004CE0: 54 20 43 48 52 24 28 34 32 2B 4D 29 3B 3A 47 4F T CHR$(42+M);:GO
004CF0: 54 4F 20 32 30 30 0D 0A 39 30 30 20 46 4F 52 20 TO 200..900 FOR
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 00 00 02 09 52 E5 04 00 C1 02 00 00 00 02 ......R.........
004D20: 04 00 C6 02 00 00 00 02 04 00 C2 02 00 00 00 02 ................
004D30: 04 00 C7 02 00 00 00 02 04 00 C3 02 00 00 00 02 ................
004D40: 04 00 C8 02 00 00 00 02 04 00 C4 02 00 00 00 02 ................
004D50: 04 00 C9 02 00 00 00 02 04 00 C5 02 00 00 00 02 ................
004D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E00: 5A 0D 0A 32 36 30 20 46 4F 52 20 4A 3D 31 20 54 Z..260 FOR J=1 T
004E10: 4F 20 33 0D 0A 32 37 30 20 49 46 20 41 31 28 4A O 3..270 IF A1(J
004E20: 29 3C 34 38 20 54 48 45 4E 20 33 30 30 0D 0A 32 )<48 THEN 300..2
004E30: 38 30 20 49 46 20 41 31 28 4A 29 3E 35 37 20 54 80 IF A1(J)>57 T
004E40: 48 45 4E 20 33 30 30 0D 0A 32 38 35 20 42 28 4A HEN 300..285 B(J
004E50: 29 3D 41 31 28 4A 29 2D 34 38 0D 0A 32 39 30 20 )=A1(J)-48..290
004E60: 4E 45 58 54 20 4A 0D 0A 32 39 35 20 47 4F 54 4F NEXT J..295 GOTO
004E70: 20 33 32 30 0D 0A 33 30 30 20 50 52 49 4E 54 20 320..300 PRINT
004E80: 22 57 48 41 54 3F 22 0D 0A 33 31 30 20 47 4F 54 "WHAT?"..310 GOT
004E90: 4F 20 32 33 30 0D 0A 33 32 30 20 49 46 20 42 28 O 230..320 IF B(
004EA0: 31 29 3D 42 28 32 29 20 54 48 45 4E 20 36 35 30 1)=B(2) THEN 650
004EB0: 0D 0A 33 33 30 20 49 46 20 42 28 32 29 3D 42 28 ..330 IF B(2)=B(
004EC0: 33 29 20 54 48 45 4E 20 36 35 30 0D 0A 33 34 30 3) THEN 650..340
004ED0: 20 49 46 20 42 28 33 29 3D 42 28 31 29 20 54 48 IF B(3)=B(1) TH
004EE0: 45 4E 20 36 35 30 0D 0A 33 35 30 20 43 3D 30 3A EN 650..350 C=0:
004EF0: 44 3D 30 0D 0A 33 36 30 20 46 4F 52 20 4A 3D 31 D=0..360 FOR J=1
004F00: 20 54 4F 20 32 0D 0A 33 37 30 20 49 46 20 41 28 TO 2..370 IF A(
004F10: 4A 29 3C 3E 42 28 4A 2B 31 29 20 54 48 45 4E 20 J)<>B(J+1) THEN
004F20: 33 39 30 0D 0A 33 38 30 20 43 3D 43 2B 31 0D 0A 390..380 C=C+1..
004F30: 33 39 30 20 49 46 20 41 28 4A 2B 31 29 3C 3E 42 390 IF A(J+1)<>B
004F40: 28 4A 29 20 54 48 45 4E 20 34 31 30 0D 0A 34 30 (J) THEN 410..40
004F50: 30 20 43 3D 43 2B 31 0D 0A 34 31 30 20 4E 45 58 0 C=C+1..410 NEX
004F60: 54 20 4A 0D 0A 34 32 30 20 49 46 20 41 28 31 29 T J..420 IF A(1)
004F70: 3C 3E 42 28 33 29 20 54 48 45 4E 20 34 34 30 0D <>B(3) THEN 440.
004F80: 0A 34 33 30 20 43 3D 43 2B 31 0D 0A 34 34 30 20 .430 C=C+1..440
004F90: 49 46 20 41 28 33 29 3C 3E 42 28 31 29 20 54 48 IF A(3)<>B(1) TH
004FA0: 45 4E 20 34 36 30 0D 0A 34 35 30 20 43 3D 43 2B EN 460..450 C=C+
004FB0: 31 0D 0A 34 36 30 20 46 4F 52 20 4A 3D 31 20 54 1..460 FOR J=1 T
004FC0: 4F 20 33 0D 0A 34 37 30 20 49 46 20 41 28 4A 29 O 3..470 IF A(J)
004FD0: 3C 3E 42 28 4A 29 20 54 48 45 4E 20 34 39 30 0D <>B(J) THEN 490.
004FE0: 0A 34 38 30 20 44 3D 44 2B 31 0D 0A 34 39 30 20 .480 D=D+1..490
004FF0: 4E 45 58 54 20 4A 0D 0A 35 30 30 20 49 46 20 44 NEXT J..500 IF D
005000: 30 20 46 4F 52 20 4B 3D 38 20 54 4F 20 30 20 53 0 FOR K=8 TO 0 S
005010: 54 45 50 20 2D 31 0D 0A 32 33 30 20 49 46 20 32 TEP -1..230 IF 2
005020: 5E 4B 3C 53 28 55 29 20 54 48 45 4E 20 32 37 30 ^K<S(U) THEN 270
005030: 0D 0A 32 34 30 20 4A 28 39 2D 4B 29 3D 30 0D 0A ..240 J(9-K)=0..
005040: 32 35 30 20 47 4F 54 4F 20 32 38 30 0D 0A 32 37 250 GOTO 280..27
005050: 30 20 4A 28 39 2D 4B 29 3D 31 3A 20 53 28 55 29 0 J(9-K)=1: S(U)
005060: 3D 53 28 55 29 2D 32 5E 4B 0D 0A 32 37 32 20 49 =S(U)-2^K..272 I
005070: 46 20 53 28 55 29 3D 31 20 54 48 45 4E 20 38 31 F S(U)=1 THEN 81
005080: 35 0D 0A 32 38 30 20 4E 45 58 54 20 4B 0D 0A 34 5..280 NEXT K..4
005090: 34 35 20 46 4F 52 20 54 31 3D 31 20 54 4F 20 58 45 FOR T1=1 TO X
0050A0: 0D 0A 34 34 37 20 50 52 49 4E 54 20 54 41 42 28 ..447 PRINT TAB(
0050B0: 28 36 33 2D 34 2E 35 2A 59 29 2A 47 31 2F 28 4C (63-4.5*Y)*G1/(L
0050C0: 45 4E 28 58 24 29 29 2B 31 29 3B 0D 0A 34 35 30 EN(X$))+1);..450
0050D0: 20 46 4F 52 20 42 3D 31 20 54 4F 20 46 28 55 29 FOR B=1 TO F(U)
0050E0: 0D 0A 34 36 30 20 49 46 20 4A 28 42 29 3D 30 20 ..460 IF J(B)=0
0050F0: 54 48 45 4E 20 35 30 30 0D 0A 34 36 35 20 46 4F THEN 500..465 FO
005100: 52 20 49 3D 31 20 54 4F 20 59 3A 20 50 52 49 4E R I=1 TO Y: PRIN
005110: 54 20 58 24 3B 3A 20 4E 45 58 54 20 49 0D 0A 34 T X$;: NEXT I..4
005120: 37 30 20 47 4F 54 4F 20 36 30 30 0D 0A 35 30 30 70 GOTO 600..500
005130: 20 46 4F 52 20 49 3D 31 20 54 4F 20 59 0D 0A 35 FOR I=1 TO Y..5
005140: 31 30 20 46 4F 52 20 49 31 3D 31 20 54 4F 20 4C 10 FOR I1=1 TO L
005150: 45 4E 28 58 24 29 0D 0A 35 32 30 20 50 52 49 4E EN(X$)..520 PRIN
005160: 54 20 22 20 22 3B 3A 20 4E 45 58 54 20 49 31 0D T " ";: NEXT I1.
005170: 0A 35 33 30 20 4E 45 58 54 20 49 0D 0A 36 30 30 .530 NEXT I..600
005180: 20 4E 45 58 54 20 42 0D 0A 36 32 30 20 50 52 49 NEXT B..620 PRI
005190: 4E 54 0D 0A 36 33 30 20 4E 45 58 54 20 54 31 0D NT..630 NEXT T1.
0051A0: 0A 37 30 30 20 4E 45 58 54 20 55 0D 0A 37 35 30 .700 NEXT U..750
0051B0: 20 46 4F 52 20 48 3D 31 20 54 4F 20 32 2A 58 3A FOR H=1 TO 2*X:
0051C0: 20 50 52 49 4E 54 3A 20 4E 45 58 54 20 48 0D 0A PRINT: NEXT H..
0051D0: 38 30 30 20 4E 45 58 54 20 54 0D 0A 38 30 36 20 800 NEXT T..806
0051E0: 46 4F 52 20 48 3D 31 20 54 4F 20 37 35 3A 20 50 FOR H=1 TO 75: P
0051F0: 52 49 4E 54 3A 20 4E 45 58 54 20 48 0D 0A 38 31 RINT: NEXT H..81
005200: 3D 33 20 54 48 45 4E 20 36 38 30 0D 0A 35 30 35 =3 THEN 680..505
005210: 20 49 46 20 43 3D 30 20 54 48 45 4E 20 35 34 35 IF C=0 THEN 545
005220: 0D 0A 35 32 30 20 46 4F 52 20 4A 3D 31 20 54 4F ..520 FOR J=1 TO
005230: 20 43 0D 0A 35 33 30 20 50 52 49 4E 54 20 22 50 C..530 PRINT "P
005240: 49 43 4F 20 22 3B 0D 0A 35 34 30 20 4E 45 58 54 ICO ";..540 NEXT
005250: 20 4A 0D 0A 35 34 35 20 49 46 20 44 3D 30 20 54 J..545 IF D=0 T
005260: 48 45 4E 20 35 38 30 0D 0A 35 35 30 20 46 4F 52 HEN 580..550 FOR
005270: 20 4A 3D 31 20 54 4F 20 44 0D 0A 35 36 30 20 50 J=1 TO D..560 P
005280: 52 49 4E 54 20 22 46 45 52 4D 49 20 22 3B 0D 0A RINT "FERMI ";..
005290: 35 37 30 20 4E 45 58 54 20 4A 0D 0A 35 38 30 20 570 NEXT J..580
0052A0: 49 46 20 43 2B 44 3C 3E 30 20 54 48 45 4E 20 36 IF C+D<>0 THEN 6
0052B0: 30 30 0D 0A 35 39 30 20 50 52 49 4E 54 20 22 42 00..590 PRINT "B
0052C0: 41 47 45 4C 53 22 3B 0D 0A 36 30 30 20 50 52 49 AGELS";..600 PRI
0052D0: 4E 54 0D 0A 36 30 35 20 4E 45 58 54 20 49 0D 0A NT..605 NEXT I..
0052E0: 36 31 30 20 50 52 49 4E 54 20 22 4F 48 20 57 45 610 PRINT "OH WE
0052F0: 4C 4C 2E 22 0D 0A 36 31 35 20 50 52 49 4E 54 20 LL."..615 PRINT
005300: 22 54 48 41 54 27 53 20 54 57 4E 45 54 59 20 47 "THAT'S TWNETY G
005310: 55 45 53 53 45 53 2E 20 20 4D 59 20 4E 55 4D 42 UESSES. MY NUMB
005320: 45 52 20 57 41 53 22 3B 31 30 30 2A 41 28 31 29 ER WAS";100*A(1)
005330: 2B 31 30 2A 41 28 32 29 2B 41 28 33 29 0D 0A 36 +10*A(2)+A(3)..6
005340: 32 30 20 47 4F 54 4F 20 37 30 30 0D 0A 36 33 30 20 GOTO 700..630
005350: 20 50 52 49 4E 54 20 22 54 52 59 20 47 55 45 53 PRINT "TRY GUES
005360: 53 49 4E 47 20 41 20 54 48 52 45 45 2D 44 49 47 SING A THREE-DIG
005370: 49 54 20 4E 55 4D 42 45 52 2E 22 3A 47 4F 54 4F IT NUMBER.":GOTO
005380: 20 32 33 30 0D 0A 36 35 30 20 50 52 49 4E 54 20 230..650 PRINT
005390: 22 4F 48 2C 20 49 20 46 4F 52 47 4F 54 20 54 4F "OH, I FORGOT TO
0053A0: 20 54 45 4C 4C 20 59 4F 55 20 54 48 41 54 20 54 TELL YOU THAT T
0053B0: 48 45 20 4E 55 4D 42 45 52 20 49 20 48 41 56 45 HE NUMBER I HAVE
0053C0: 20 49 4E 20 4D 49 4E 44 22 0D 0A 36 36 30 20 50 IN MIND"..660 P
0053D0: 52 49 4E 54 20 22 48 41 53 20 4E 4F 20 54 57 4F RINT "HAS NO TWO
0053E0: 20 44 49 47 49 54 53 20 54 48 45 20 53 41 4D 45 DIGITS THE SAME
0053F0: 2E 22 3A 47 4F 54 4F 20 32 33 30 0D 0A 36 38 30 .":GOTO 230..680
005400: 30 20 45 4E 44 0D 0A 38 31 32 20 46 4F 52 20 48 0 END..812 FOR H
005410: 3D 31 20 54 4F 20 37 2A 58 3A 20 50 52 49 4E 54 =1 TO 7*X: PRINT
005420: 3A 20 4E 45 58 54 20 48 0D 0A 38 31 33 20 47 4F : NEXT H..813 GO
005430: 54 4F 20 38 30 30 0D 0A 38 31 35 20 46 28 55 29 TO 800..815 F(U)
005440: 3D 39 2D 4B 3A 20 47 4F 54 4F 20 34 34 35 0D 0A =9-K: GOTO 445..
005450: 38 39 39 20 44 41 54 41 20 22 20 22 2C 30 2C 30 899 DATA " ",0,0
005460: 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 39 30 30 20 ,0,0,0,0,0..900
005470: 44 41 54 41 20 22 41 22 2C 35 30 35 2C 33 37 2C DATA "A",505,37,
005480: 33 35 2C 33 34 2C 33 35 2C 33 37 2C 35 30 35 0D 35,34,35,37,505.
005490: 0A 39 30 31 20 44 41 54 41 20 22 47 22 2C 31 32 .901 DATA "G",12
0054A0: 35 2C 31 33 31 2C 32 35 38 2C 32 35 38 2C 32 39 5,131,258,258,29
0054B0: 30 2C 31 36 33 2C 31 30 31 0D 0A 39 30 32 20 44 0,163,101..902 D
0054C0: 41 54 41 20 22 45 22 2C 35 31 32 2C 32 37 34 2C ATA "E",512,274,
0054D0: 32 37 34 2C 32 37 34 2C 32 37 34 2C 32 35 38 2C 274,274,274,258,
0054E0: 32 35 38 0D 0A 39 30 33 20 44 41 54 41 20 22 54 258..903 DATA "T
0054F0: 22 2C 32 2C 32 2C 32 2C 35 31 32 2C 32 2C 32 2C ",2,2,2,512,2,2,
005500: 32 0D 0A 39 30 34 20 44 41 54 41 20 22 57 22 2C 2..904 DATA "W",
005510: 32 35 36 2C 32 35 37 2C 31 32 39 2C 36 35 2C 31 256,257,129,65,1
005520: 32 39 2C 32 35 37 2C 32 35 36 0D 0A 39 30 35 20 29,257,256..905
005530: 44 41 54 41 20 22 4C 22 2C 35 31 32 2C 32 35 37 DATA "L",512,257
005540: 2C 32 35 37 2C 32 35 37 2C 32 35 37 2C 32 35 37 ,257,257,257,257
005550: 2C 32 35 37 0D 0A 39 30 36 20 44 41 54 41 20 22 ,257..906 DATA "
005560: 53 22 2C 36 39 2C 31 33 39 2C 32 37 34 2C 32 37 S",69,139,274,27
005570: 34 2C 32 37 34 2C 31 36 33 2C 36 39 0D 0A 39 30 4,274,163,69..90
005580: 37 20 44 41 54 41 20 22 4F 22 2C 31 32 35 2C 31 7 DATA "O",125,1
005590: 33 31 2C 32 35 38 2C 32 35 38 2C 32 35 38 2C 31 31,258,258,258,1
0055A0: 33 31 2C 31 32 35 0D 0A 39 30 38 20 44 41 54 41 31,125..908 DATA
0055B0: 20 22 4E 22 2C 35 31 32 2C 37 2C 39 2C 31 37 2C "N",512,7,9,17,
0055C0: 33 33 2C 31 39 33 2C 35 31 32 0D 0A 39 30 39 20 33,193,512..909
0055D0: 44 41 54 41 20 22 46 22 2C 35 31 32 2C 31 38 2C DATA "F",512,18,
0055E0: 31 38 2C 31 38 2C 31 38 2C 32 2C 32 0D 0A 39 31 18,18,18,2,2..91
0055F0: 30 20 44 41 54 41 20 22 4B 22 2C 35 31 32 2C 31 0 DATA "K",512,1
005600: 20 50 52 49 4E 54 20 22 59 4F 55 20 47 4F 54 20 PRINT "YOU GOT
005610: 49 54 21 21 21 22 3A 50 52 49 4E 54 0D 0A 36 39 IT!!!":PRINT..69
005620: 30 20 59 3D 59 2B 31 0D 0A 37 30 30 20 49 4E 50 0 Y=Y+1..700 INP
005630: 55 54 20 22 50 4C 41 59 20 41 47 41 49 4E 20 28 UT "PLAY AGAIN (
005640: 59 45 53 20 4F 52 20 4E 4F 29 22 3B 41 24 0D 0A YES OR NO)";A$..
005650: 37 32 30 20 49 46 20 4C 45 46 54 24 28 41 24 2C 720 IF LEFT$(A$,
005660: 31 29 3D 22 59 45 53 22 20 54 48 45 4E 20 31 35 1)="YES" THEN 15
005670: 30 0D 0A 37 33 30 20 49 46 20 59 3D 30 20 54 48 0..730 IF Y=0 TH
005680: 45 4E 20 37 35 30 0D 0A 37 34 30 20 50 52 49 4E EN 750..740 PRIN
005690: 54 3A 50 52 49 4E 54 20 22 41 22 3B 59 3B 22 50 T:PRINT "A";Y;"P
0056A0: 4F 49 4E 54 20 42 41 47 45 4C 53 20 42 55 46 46 OINT BAGELS BUFF
0056B0: 21 21 22 0D 0A 37 35 30 20 50 52 49 4E 54 20 22 !!"..750 PRINT "
0056C0: 48 4F 50 45 20 59 4F 55 20 48 41 44 20 46 55 4E HOPE YOU HAD FUN
0056D0: 2E 20 20 42 59 45 2E 22 0D 0A 39 39 39 20 45 4E . BYE."..999 EN
0056E0: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
0056F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0057A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0057B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0057C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0057D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0057E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0057F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005800: 37 2C 31 37 2C 34 31 2C 36 39 2C 31 33 31 2C 32 7,17,41,69,131,2
005810: 35 38 0D 0A 39 31 31 20 44 41 54 41 20 22 42 22 58..911 DATA "B"
005820: 2C 35 31 32 2C 32 37 34 2C 32 37 34 2C 32 37 34 ,512,274,274,274
005830: 2C 32 37 34 2C 32 37 34 2C 32 33 39 0D 0A 39 31 ,274,274,239..91
005840: 32 20 44 41 54 41 20 22 44 22 2C 35 31 32 2C 32 2 DATA "D",512,2
005850: 35 38 2C 32 35 38 2C 32 35 38 2C 32 35 38 2C 31 58,258,258,258,1
005860: 33 31 2C 31 32 35 0D 0A 39 31 33 20 44 41 54 41 31,125..913 DATA
005870: 20 22 48 22 2C 35 31 32 2C 31 37 2C 31 37 2C 31 "H",512,17,17,1
005880: 37 2C 31 37 2C 31 37 2C 35 31 32 0D 0A 39 31 34 7,17,17,512..914
005890: 20 44 41 54 41 20 22 4D 22 2C 35 31 32 2C 37 2C DATA "M",512,7,
0058A0: 31 33 2C 32 35 2C 31 33 2C 37 2C 35 31 32 0D 0A 13,25,13,7,512..
0058B0: 39 31 35 20 44 41 54 41 20 22 3F 22 2C 35 2C 33 915 DATA "?",5,3
0058C0: 2C 32 2C 33 35 34 2C 31 38 2C 31 31 2C 35 0D 0A ,2,354,18,11,5..
0058D0: 39 31 36 20 44 41 54 41 20 22 55 22 2C 31 32 38 916 DATA "U",128
0058E0: 2C 31 32 39 2C 32 35 37 2C 32 35 37 2C 32 35 37 ,129,257,257,257
0058F0: 2C 31 32 39 2C 31 32 38 0D 0A 39 31 37 20 44 41 ,129,128..917 DA
005900: 54 41 20 22 52 22 2C 35 31 32 2C 31 38 2C 31 38 TA "R",512,18,18
005910: 2C 35 30 2C 38 32 2C 31 34 36 2C 32 37 31 0D 0A ,50,82,146,271..
005920: 39 31 38 20 44 41 54 41 20 22 50 22 2C 35 31 32 918 DATA "P",512
005930: 2C 31 38 2C 31 38 2C 31 38 2C 31 38 2C 31 38 2C ,18,18,18,18,18,
005940: 31 35 0D 0A 39 31 39 20 44 41 54 41 20 22 51 22 15..919 DATA "Q"
005950: 2C 31 32 35 2C 31 33 31 2C 32 35 38 2C 32 35 38 ,125,131,258,258
005960: 2C 33 32 32 2C 31 33 31 2C 33 38 31 0D 0A 39 32 ,322,131,381..92
005970: 30 20 44 41 54 41 20 22 59 22 2C 38 2C 39 2C 31 0 DATA "Y",8,9,1
005980: 37 2C 34 38 31 2C 31 37 2C 39 2C 38 0D 0A 39 32 7,481,17,9,8..92
005990: 31 20 44 41 54 41 20 22 56 22 2C 36 34 2C 36 35 1 DATA "V",64,65
0059A0: 2C 31 32 39 2C 32 35 37 2C 31 32 39 2C 36 35 2C ,129,257,129,65,
0059B0: 36 34 0D 0A 39 32 32 20 44 41 54 41 20 22 58 22 64..922 DATA "X"
0059C0: 2C 33 38 38 2C 36 39 2C 34 31 2C 31 37 2C 34 31 ,388,69,41,17,41
0059D0: 2C 36 39 2C 33 38 38 0D 0A 39 32 33 20 44 41 54 ,69,388..923 DAT
0059E0: 41 20 22 5A 22 2C 33 38 36 2C 33 32 32 2C 32 39 A "Z",386,322,29
0059F0: 30 2C 32 37 34 2C 32 36 36 2C 32 36 32 2C 32 36 0,274,266,262,26
005A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
005C00: 30 0D 0A 39 32 34 20 44 41 54 41 20 22 49 22 2C 0..924 DATA "I",
005C10: 32 35 38 2C 32 35 38 2C 32 35 38 2C 35 31 32 2C 258,258,258,512,
005C20: 32 35 38 2C 32 35 38 2C 32 35 38 0D 0A 39 32 35 258,258,258..925
005C30: 20 44 41 54 41 20 22 43 22 2C 31 32 35 2C 31 33 DATA "C",125,13
005C40: 31 2C 32 35 38 2C 32 35 38 2C 32 35 38 2C 31 33 1,258,258,258,13
005C50: 31 2C 36 39 0D 0A 39 32 36 20 44 41 54 41 20 22 1,69..926 DATA "
005C60: 4A 22 2C 36 35 2C 31 32 39 2C 32 35 37 2C 32 35 J",65,129,257,25
005C70: 37 2C 32 35 37 2C 31 32 39 2C 31 32 38 0D 0A 39 7,257,129,128..9
005C80: 32 37 20 44 41 54 41 20 22 31 22 2C 30 2C 30 2C 27 DATA "1",0,0,
005C90: 32 36 31 2C 32 35 39 2C 35 31 32 2C 32 35 37 2C 261,259,512,257,
005CA0: 32 35 37 0D 0A 39 32 38 20 44 41 54 41 20 22 32 257..928 DATA "2
005CB0: 22 2C 32 36 31 2C 33 38 37 2C 33 32 32 2C 32 39 ",261,387,322,29
005CC0: 30 2C 32 37 34 2C 32 36 37 2C 32 36 31 0D 0A 39 0,274,267,261..9
005CD0: 32 39 20 44 41 54 41 20 22 2A 22 2C 36 39 2C 34 29 DATA "*",69,4
005CE0: 31 2C 31 37 2C 35 31 32 2C 31 37 2C 34 31 2C 36 1,17,512,17,41,6
005CF0: 39 0D 0A 39 33 30 20 44 41 54 41 20 22 33 22 2C 9..930 DATA "3",
005D00: 36 36 2C 31 33 30 2C 32 35 38 2C 32 37 34 2C 32 66,130,258,274,2
005D10: 36 36 2C 31 35 30 2C 31 30 30 0D 0A 39 33 31 20 66,150,100..931
005D20: 44 41 54 41 20 22 34 22 2C 33 33 2C 34 39 2C 34 DATA "4",33,49,4
005D30: 31 2C 33 37 2C 33 35 2C 35 31 32 2C 33 33 0D 0A 1,37,35,512,33..
005D40: 39 33 32 20 44 41 54 41 20 22 35 22 2C 31 36 30 932 DATA "5",160
005D50: 2C 32 37 34 2C 32 37 34 2C 32 37 34 2C 32 37 34 ,274,274,274,274
005D60: 2C 32 37 34 2C 32 32 36 0D 0A 39 33 33 20 44 41 ,274,226..933 DA
005D70: 54 41 20 22 36 22 2C 31 39 34 2C 32 39 31 2C 32 TA "6",194,291,2
005D80: 39 33 2C 32 39 37 2C 33 30 35 2C 32 38 39 2C 31 93,297,305,289,1
005D90: 39 33 0D 0A 39 33 34 20 44 41 54 41 20 22 37 22 93..934 DATA "7"
005DA0: 2C 32 35 38 2C 31 33 30 2C 36 36 2C 33 34 2C 31 ,258,130,66,34,1
005DB0: 38 2C 31 30 2C 38 0D 0A 39 33 35 20 44 41 54 41 8,10,8..935 DATA
005DC0: 20 22 38 22 2C 36 39 2C 31 37 31 2C 32 37 34 2C "8",69,171,274,
005DD0: 32 37 34 2C 32 37 34 2C 31 37 31 2C 36 39 0D 0A 274,274,171,69..
005DE0: 39 33 36 20 44 41 54 41 20 22 39 22 2C 32 36 33 936 DATA "9",263
005DF0: 2C 31 33 38 2C 37 34 2C 34 32 2C 32 36 2C 31 30 ,138,74,42,26,10
005E00: 31 30 20 49 4E 50 55 54 20 22 48 4F 52 49 5A 4F 10 INPUT "HORIZO
005E10: 4E 54 41 4C 22 3B 58 0D 0A 32 30 20 49 4E 50 55 NTAL";X..20 INPU
005E20: 54 20 22 56 45 52 54 49 43 41 4C 22 3B 59 0D 0A T "VERTICAL";Y..
005E30: 32 31 20 49 4E 50 55 54 20 22 43 45 4E 54 45 52 21 INPUT "CENTER
005E40: 45 44 22 3B 4C 24 0D 0A 32 32 20 47 31 3D 30 3A ED";L$..22 G1=0:
005E50: 49 46 20 4C 24 3E 22 50 22 20 54 48 45 4E 20 47 IF L$>"P" THEN G
005E60: 31 3D 31 0D 0A 32 33 20 49 4E 50 55 54 20 22 43 1=1..23 INPUT "C
005E70: 48 41 52 41 43 54 45 52 20 28 54 59 50 45 20 27 HARACTER (TYPE '
005E80: 41 4C 4C 27 20 49 46 20 59 4F 55 20 57 41 4E 54 ALL' IF YOU WANT
005E90: 20 43 48 41 52 41 43 54 45 52 20 42 45 49 4E 47 CHARACTER BEING
005EA0: 20 50 52 49 4E 54 45 44 29 22 3B 4D 24 0D 0A 32 PRINTED)";M$..2
005EB0: 39 20 50 52 49 4E 54 20 22 53 54 41 54 45 4D 45 9 PRINT "STATEME
005EC0: 4E 54 22 3B 0D 0A 33 30 20 49 4E 50 55 54 20 41 NT";..30 INPUT A
005ED0: 24 0D 0A 33 35 20 49 4E 50 55 54 20 22 53 45 54 $..35 INPUT "SET
005EE0: 20 50 41 47 45 22 3B 4F 24 0D 0A 34 30 20 41 3D PAGE";O$..40 A=
005EF0: 41 53 43 28 4C 45 46 54 24 28 41 24 2C 31 29 29 ASC(LEFT$(A$,1))
005F00: 0D 0A 35 30 20 52 45 4D 0D 0A 36 30 20 52 45 4D ..50 REM..60 REM
005F10: 0D 0A 37 30 20 46 4F 52 20 54 3D 31 20 54 4F 20 ..70 FOR T=1 TO
005F20: 4C 45 4E 28 41 24 29 0D 0A 38 30 20 50 24 3D 4D LEN(A$)..80 P$=M
005F30: 49 44 24 28 41 24 2C 54 2C 31 29 0D 0A 39 30 20 ID$(A$,T,1)..90
005F40: 46 4F 52 20 4F 3D 31 20 54 4F 20 35 30 0D 0A 39 FOR O=1 TO 50..9
005F50: 35 20 52 45 41 44 20 53 24 2C 53 28 31 29 2C 53 5 READ S$,S(1),S
005F60: 28 32 29 2C 53 28 33 29 2C 53 28 34 29 2C 53 28 (2),S(3),S(4),S(
005F70: 35 29 2C 53 28 36 29 2C 53 28 37 29 0D 0A 39 36 5),S(6),S(7)..96
005F80: 20 49 46 20 50 24 3D 22 20 22 20 54 48 45 4E 20 IF P$=" " THEN
005F90: 38 31 32 0D 0A 31 30 30 20 49 46 20 50 24 3D 53 812..100 IF P$=S
005FA0: 24 20 54 48 45 4E 20 32 30 30 0D 0A 31 32 30 20 $ THEN 200..120
005FB0: 4E 45 58 54 20 4F 0D 0A 32 30 30 20 52 45 53 54 NEXT O..200 REST
005FC0: 4F 52 45 0D 0A 32 30 31 20 58 24 3D 4D 24 0D 0A ORE..201 X$=M$..
005FD0: 32 30 32 20 49 46 20 4D 24 3D 22 41 4C 4C 22 20 202 IF M$="ALL"
005FE0: 54 48 45 4E 20 58 24 3D 53 24 0D 0A 32 30 35 20 THEN X$=S$..205
005FF0: 46 4F 52 20 55 3D 31 20 54 4F 20 37 0D 0A 32 31 FOR U=1 TO 7..21
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 00 00 02 09 52 E5 05 00 C1 02 00 00 00 02 ......R.........
006020: 05 00 C6 02 00 00 00 02 05 00 C2 02 00 00 00 02 ................
006030: 05 00 C7 02 00 00 00 02 05 00 C3 02 00 00 00 02 ................
006040: 05 00 C8 02 00 00 00 02 05 00 C4 02 00 00 00 02 ................
006050: 05 00 C9 02 00 00 00 02 05 00 C5 02 00 00 00 02 ................
006060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006100: 2C 37 0D 0A 39 33 37 20 44 41 54 41 20 22 3D 22 ,7..937 DATA "="
006110: 2C 34 31 2C 34 31 2C 34 31 2C 34 31 2C 34 31 2C ,41,41,41,41,41,
006120: 34 31 2C 34 31 0D 0A 39 33 38 20 44 41 54 41 20 41,41..938 DATA
006130: 22 21 22 2C 31 2C 31 2C 31 2C 33 38 34 2C 31 2C "!",1,1,1,384,1,
006140: 31 2C 31 0D 0A 39 33 39 20 44 41 54 41 20 22 30 1,1..939 DATA "0
006150: 22 2C 35 37 2C 36 39 2C 31 33 31 2C 32 35 38 2C ",57,69,131,258,
006160: 31 33 31 2C 36 39 2C 35 37 0D 0A 39 34 30 20 44 131,69,57..940 D
006170: 41 54 41 20 22 2E 22 2C 31 2C 31 2C 31 32 39 2C ATA ".",1,1,129,
006180: 34 34 39 2C 31 32 39 2C 31 2C 31 0D 0A 31 30 30 449,129,1,1..100
006190: 30 20 53 54 4F 50 0D 0A 31 30 30 32 20 45 4E 44 0 STOP..1002 END
0061A0: 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0061B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0061C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0061D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0061E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0061F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0062A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0062B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0062C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0062D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0062E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0062F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
006300: 53 53 45 44 20 42 41 43 4B 20 54 4F 20 59 4F 55 SSED BACK TO YOU
006310: 2E 20 22 3B 0D 0A 31 31 37 30 20 47 4F 54 4F 20 . ";..1170 GOTO
006320: 34 33 30 0D 0A 31 31 38 30 20 49 46 20 52 4E 44 430..1180 IF RND
006330: 28 31 29 3E 2E 39 20 54 48 45 4E 20 31 31 39 30 (1)>.9 THEN 1190
006340: 0D 0A 31 31 38 35 20 50 52 49 4E 54 20 22 50 4C ..1185 PRINT "PL
006350: 41 59 45 52 20 46 4F 55 4C 45 44 2C 20 54 57 4F AYER FOULED, TWO
006360: 20 53 48 4F 54 53 2E 22 0D 0A 31 31 38 37 20 47 SHOTS."..1187 G
006370: 4F 53 55 42 20 34 30 30 30 0D 0A 31 31 38 38 20 OSUB 4000..1188
006380: 47 4F 54 4F 20 33 30 30 30 0D 0A 31 31 39 30 20 GOTO 3000..1190
006390: 50 52 49 4E 54 20 22 42 41 4C 4C 20 53 54 4F 4C PRINT "BALL STOL
0063A0: 45 4E 2E 20 22 3B 4F 24 3B 22 27 53 20 42 41 4C EN. ";O$;"'S BAL
0063B0: 4C 2E 22 0D 0A 31 31 39 35 20 47 4F 54 4F 20 33 L."..1195 GOTO 3
0063C0: 30 30 30 0D 0A 31 32 30 30 20 49 46 20 52 4E 44 000..1200 IF RND
0063D0: 28 31 29 3E 2E 37 38 32 2A 44 2F 38 20 54 48 45 (1)>.782*D/8 THE
0063E0: 4E 20 31 32 35 30 0D 0A 31 32 31 30 20 50 52 49 N 1250..1210 PRI
0063F0: 4E 54 20 22 53 48 4F 54 20 49 53 20 42 4C 4F 43 NT "SHOT IS BLOC
006400: 4B 45 44 2E 20 20 42 41 4C 4C 20 43 4F 4E 54 52 KED. BALL CONTR
006410: 4F 4C 4C 45 44 20 42 59 20 22 3B 0D 0A 31 32 33 OLLED BY ";..123
006420: 30 20 49 46 20 52 4E 44 28 31 29 3E 2E 35 20 54 0 IF RND(1)>.5 T
006430: 48 45 4E 20 31 32 34 32 0D 0A 31 32 33 35 20 50 HEN 1242..1235 P
006440: 52 49 4E 54 20 22 44 41 52 54 4D 4F 55 54 48 2E RINT "DARTMOUTH.
006450: 22 0D 0A 31 32 34 30 20 47 4F 54 4F 20 34 33 30 "..1240 GOTO 430
006460: 0D 0A 31 32 34 32 20 50 52 49 4E 54 20 4F 24 3B ..1242 PRINT O$;
006470: 22 2E 22 0D 0A 31 32 34 35 20 47 4F 54 4F 20 33 "."..1245 GOTO 3
006480: 30 30 30 0D 0A 31 32 35 30 20 49 46 20 52 4E 44 000..1250 IF RND
006490: 28 31 29 3E 2E 38 34 33 2A 44 2F 38 20 54 48 45 (1)>.843*D/8 THE
0064A0: 4E 20 31 32 37 30 0D 0A 31 32 35 35 20 50 52 49 N 1270..1255 PRI
0064B0: 4E 54 20 22 53 48 4F 4F 54 45 52 20 49 53 20 46 NT "SHOOTER IS F
0064C0: 4F 55 4C 45 44 2E 20 20 54 57 4F 20 53 48 4F 54 OULED. TWO SHOT
0064D0: 53 2E 22 0D 0A 31 32 36 30 20 47 4F 53 55 42 20 S."..1260 GOSUB
0064E0: 34 30 30 30 0D 0A 31 32 36 35 20 47 4F 54 4F 20 4000..1265 GOTO
0064F0: 33 30 30 30 0D 0A 31 32 37 30 20 50 52 49 4E 54 3000..1270 PRINT
006500: 35 20 50 52 49 4E 54 20 54 41 42 28 33 31 29 3B 5 PRINT TAB(31);
006510: 22 42 41 53 4B 45 54 42 41 4C 4C 22 0D 0A 37 20 "BASKETBALL"..7
006520: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 PRINT TAB(15);"C
006530: 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E REATIVE COMPUTIN
006540: 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E G MORRISTOWN, N
006550: 45 57 20 4A 45 52 53 45 59 22 0D 0A 38 20 50 52 EW JERSEY"..8 PR
006560: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
006570: 0A 31 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 .10 PRINT "THIS
006580: 49 53 20 44 41 52 54 4D 4F 55 54 48 20 43 4F 4C IS DARTMOUTH COL
006590: 4C 45 47 45 20 42 41 53 4B 45 54 42 41 4C 4C 2E LEGE BASKETBALL.
0065A0: 20 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 44 41 YOU WILL BE DA
0065B0: 52 54 4D 4F 55 54 48 22 0D 0A 32 30 20 50 52 49 RTMOUTH"..20 PRI
0065C0: 4E 54 20 22 20 43 41 50 54 41 49 4E 20 41 4E 44 NT " CAPTAIN AND
0065D0: 20 50 4C 41 59 4D 41 4B 45 52 2E 20 20 43 41 4C PLAYMAKER. CAL
0065E0: 4C 20 53 48 4F 54 53 20 41 53 20 46 4F 4C 4C 4F L SHOTS AS FOLLO
0065F0: 57 53 3A 20 20 31 2E 20 4C 4F 4E 47 22 0D 0A 33 WS: 1. LONG"..3
006600: 30 20 50 52 49 4E 54 20 22 20 28 33 30 20 46 54 0 PRINT " (30 FT
006610: 2E 29 20 4A 55 4D 50 20 53 48 4F 54 3B 20 32 2E .) JUMP SHOT; 2.
006620: 20 53 48 4F 52 54 20 28 31 35 20 46 54 2E 29 20 SHORT (15 FT.)
006630: 4A 55 4D 50 20 53 48 4F 54 3B 20 33 2E 20 4C 41 JUMP SHOT; 3. LA
006640: 59 22 0D 0A 34 30 20 50 52 49 4E 54 20 22 20 55 Y"..40 PRINT " U
006650: 50 3B 20 34 2E 20 53 45 54 20 53 48 4F 54 2E 22 P; 4. SET SHOT."
006660: 0D 0A 36 30 20 50 52 49 4E 54 20 22 42 4F 54 48 ..60 PRINT "BOTH
006670: 20 54 45 41 4D 53 20 57 49 4C 4C 20 55 53 45 20 TEAMS WILL USE
006680: 54 48 45 20 53 41 4D 45 20 44 45 46 45 4E 53 45 THE SAME DEFENSE
006690: 2E 20 20 43 41 4C 4C 20 44 45 46 45 4E 53 45 20 . CALL DEFENSE
0066A0: 41 53 22 0D 0A 37 30 20 50 52 49 4E 54 20 22 46 AS"..70 PRINT "F
0066B0: 4F 4C 4C 4F 57 53 3A 20 20 36 2E 20 50 52 45 53 OLLOWS: 6. PRES
0066C0: 53 3B 20 36 2E 35 20 4D 41 4E 2D 54 4F 20 4D 41 S; 6.5 MAN-TO MA
0066D0: 4E 3B 20 37 2E 20 5A 4F 4E 45 3B 20 37 2E 35 20 N; 7. ZONE; 7.5
0066E0: 4E 4F 4E 45 2E 22 0D 0A 37 32 20 50 52 49 4E 54 NONE."..72 PRINT
0066F0: 20 22 54 4F 20 43 48 41 4E 47 45 20 44 45 46 45 "TO CHANGE DEFE
006700: 20 22 43 48 41 52 47 49 4E 47 20 46 4F 55 4C 2E "CHARGING FOUL.
006710: 20 20 44 41 52 54 4D 4F 55 54 48 20 4C 4F 53 45 DARTMOUTH LOSE
006720: 53 20 42 41 4C 4C 2E 22 0D 0A 31 32 38 30 20 47 S BALL."..1280 G
006730: 4F 54 4F 20 33 30 30 30 0D 0A 31 33 30 30 20 54 OTO 3000..1300 T
006740: 3D 54 2B 31 0D 0A 31 33 30 31 20 49 46 20 54 3D =T+1..1301 IF T=
006750: 35 30 20 54 48 45 4E 20 38 30 30 30 0D 0A 31 33 50 THEN 8000..13
006760: 30 32 20 49 46 20 54 3D 39 32 20 54 48 45 4E 20 02 IF T=92 THEN
006770: 31 33 30 34 0D 0A 31 33 30 33 20 47 4F 54 4F 20 1304..1303 GOTO
006780: 31 33 30 35 0D 0A 31 33 30 34 20 47 4F 53 55 42 1305..1304 GOSUB
006790: 20 36 30 30 0D 0A 31 33 30 35 20 49 46 20 5A 3D 600..1305 IF Z=
0067A0: 30 20 54 48 45 4E 20 32 30 31 30 0D 0A 31 33 31 0 THEN 2010..131
0067B0: 30 20 49 46 20 5A 3E 33 20 54 48 45 4E 20 31 37 0 IF Z>3 THEN 17
0067C0: 30 30 0D 0A 31 33 32 30 20 50 52 49 4E 54 20 22 00..1320 PRINT "
0067D0: 4C 41 59 20 55 50 2E 22 0D 0A 31 33 33 30 20 49 LAY UP."..1330 I
0067E0: 46 20 37 2F 44 2A 52 4E 44 28 31 29 3E 2E 34 20 F 7/D*RND(1)>.4
0067F0: 54 48 45 4E 20 31 33 36 30 0D 0A 31 33 34 30 20 THEN 1360..1340
006800: 50 52 49 4E 54 20 22 53 48 4F 54 20 49 53 20 47 PRINT "SHOT IS G
006810: 4F 4F 44 2E 20 20 54 57 4F 20 50 4F 49 4E 54 53 OOD. TWO POINTS
006820: 2E 22 0D 0A 31 33 34 35 20 47 4F 53 55 42 20 37 ."..1345 GOSUB 7
006830: 30 30 30 0D 0A 31 33 35 35 20 47 4F 54 4F 20 33 000..1355 GOTO 3
006840: 30 30 30 0D 0A 31 33 36 30 20 49 46 20 37 2F 44 000..1360 IF 7/D
006850: 2A 52 4E 44 28 31 29 3E 2E 37 20 54 48 45 4E 20 *RND(1)>.7 THEN
006860: 31 35 30 30 0D 0A 31 33 37 30 20 50 52 49 4E 54 1500..1370 PRINT
006870: 20 22 53 48 4F 54 20 49 53 20 4F 46 46 20 54 48 "SHOT IS OFF TH
006880: 45 20 52 49 4D 2E 22 0D 0A 31 33 38 30 20 49 46 E RIM."..1380 IF
006890: 20 52 4E 44 28 31 29 3E 32 2F 33 20 54 48 45 4E RND(1)>2/3 THEN
0068A0: 20 31 34 31 35 0D 0A 31 33 39 30 20 50 52 49 4E 1415..1390 PRIN
0068B0: 54 20 4F 24 3B 22 20 43 4F 4E 54 52 4F 4C 53 20 T O$;" CONTROLS
0068C0: 54 48 45 20 52 45 42 4F 55 4E 44 2E 22 0D 0A 31 THE REBOUND."..1
0068D0: 34 30 30 20 47 4F 54 4F 20 33 30 30 30 0D 0A 31 400 GOTO 3000..1
0068E0: 34 31 35 20 50 52 49 4E 54 20 22 44 41 52 54 4D 415 PRINT "DARTM
0068F0: 4F 55 54 48 20 43 4F 4E 54 52 4F 4C 53 20 54 48 OUTH CONTROLS TH
006900: 4E 53 45 2C 20 4A 55 53 54 20 54 59 50 45 20 30 NSE, JUST TYPE 0
006910: 20 41 53 20 59 4F 55 52 20 4E 45 58 54 20 53 48 AS YOUR NEXT SH
006920: 4F 54 2E 22 0D 0A 37 36 20 49 4E 50 55 54 20 22 OT."..76 INPUT "
006930: 59 4F 55 52 20 53 54 41 52 54 49 4E 47 20 44 45 YOUR STARTING DE
006940: 46 45 4E 53 45 20 57 49 4C 4C 20 42 45 22 3B 44 FENSE WILL BE";D
006950: 3A 49 46 20 44 3C 36 20 54 48 45 4E 20 32 30 31 :IF D<6 THEN 201
006960: 30 0D 0A 37 39 20 50 52 49 4E 54 0D 0A 38 30 20 0..79 PRINT..80
006970: 49 4E 50 55 54 20 22 43 48 4F 4F 53 45 20 59 4F INPUT "CHOOSE YO
006980: 55 52 20 4F 50 50 4F 4E 45 4E 54 22 3B 4F 24 0D UR OPPONENT";O$.
006990: 0A 33 37 30 20 50 52 49 4E 54 20 22 43 45 4E 54 .370 PRINT "CENT
0069A0: 45 52 20 4A 55 4D 50 22 0D 0A 33 39 30 20 49 46 ER JUMP"..390 IF
0069B0: 20 52 4E 44 28 31 29 3E 20 33 2F 35 20 54 48 45 RND(1)> 3/5 THE
0069C0: 4E 20 34 32 30 0D 0A 34 30 30 20 50 52 49 4E 54 N 420..400 PRINT
0069D0: 20 4F 24 3B 22 20 43 4F 4E 54 52 4F 4C 53 20 54 O$;" CONTROLS T
0069E0: 48 45 20 54 41 50 2E 22 0D 0A 34 31 30 20 47 4F HE TAP."..410 GO
0069F0: 54 4F 20 33 30 30 30 0D 0A 34 32 30 20 50 52 49 TO 3000..420 PRI
006A00: 4E 54 20 22 44 41 52 54 4D 4F 55 54 48 20 43 4F NT "DARTMOUTH CO
006A10: 4E 54 52 4F 4C 53 20 54 48 45 20 54 41 50 2E 22 NTROLS THE TAP."
006A20: 0D 0A 34 32 35 20 50 52 49 4E 54 0D 0A 34 33 30 ..425 PRINT..430
006A30: 20 49 4E 50 55 54 20 22 59 4F 55 52 20 53 48 4F INPUT "YOUR SHO
006A40: 54 22 3B 5A 0D 0A 34 34 30 20 50 3D 30 0D 0A 34 T";Z..440 P=0..4
006A50: 34 35 20 49 46 20 5A 3C 3E 49 4E 54 28 5A 29 20 45 IF Z<>INT(Z)
006A60: 54 48 45 4E 20 34 35 35 0D 0A 34 34 36 20 49 46 THEN 455..446 IF
006A70: 20 5A 3C 30 20 4F 52 20 5A 3E 34 20 54 48 45 4E Z<0 OR Z>4 THEN
006A80: 20 34 35 35 0D 0A 34 34 37 20 47 4F 54 4F 20 34 455..447 GOTO 4
006A90: 36 30 0D 0A 34 35 35 20 50 52 49 4E 54 20 22 49 60..455 PRINT "I
006AA0: 4E 43 4F 52 52 45 43 54 20 41 4E 53 57 45 52 2E NCORRECT ANSWER.
006AB0: 20 20 52 45 54 59 50 45 20 49 54 2E 20 22 3B 3A RETYPE IT. ";:
006AC0: 47 4F 54 4F 20 34 33 30 0D 0A 34 36 30 20 49 46 GOTO 430..460 IF
006AD0: 20 52 4E 44 28 31 29 3C 2E 35 20 54 48 45 4E 20 RND(1)<.5 THEN
006AE0: 31 30 30 30 0D 0A 34 38 30 20 49 46 20 54 3C 31 1000..480 IF T<1
006AF0: 30 30 20 54 48 45 4E 20 31 30 30 30 0D 0A 34 39 00 THEN 1000..49
006B00: 45 20 52 45 42 4F 55 4E 44 2E 22 0D 0A 31 34 32 E REBOUND."..142
006B10: 30 20 49 46 20 52 4E 44 28 31 29 3E 2E 34 20 54 0 IF RND(1)>.4 T
006B20: 48 45 4E 20 31 34 34 30 0D 0A 31 34 33 30 20 47 HEN 1440..1430 G
006B30: 4F 54 4F 20 31 33 30 30 0D 0A 31 34 34 30 20 50 OTO 1300..1440 P
006B40: 52 49 4E 54 20 22 42 41 4C 4C 20 50 41 53 53 45 RINT "BALL PASSE
006B50: 44 20 42 41 43 4B 20 54 4F 20 59 4F 55 2E 22 3B D BACK TO YOU.";
006B60: 0D 0A 31 34 35 30 20 47 4F 54 4F 20 34 33 30 0D ..1450 GOTO 430.
006B70: 0A 31 35 30 30 20 49 46 20 37 2F 44 2A 52 4E 44 .1500 IF 7/D*RND
006B80: 28 31 29 3E 2E 38 37 35 20 54 48 45 4E 20 31 36 (1)>.875 THEN 16
006B90: 30 30 0D 0A 31 35 31 30 20 50 52 49 4E 54 20 22 00..1510 PRINT "
006BA0: 53 48 4F 4F 54 45 52 20 46 4F 55 4C 45 44 2E 20 SHOOTER FOULED.
006BB0: 20 54 57 4F 20 53 48 4F 54 53 2E 22 0D 0A 31 35 TWO SHOTS."..15
006BC0: 32 30 20 47 4F 53 55 42 20 34 30 30 30 0D 0A 31 20 GOSUB 4000..1
006BD0: 35 33 30 20 47 4F 54 4F 20 33 30 30 30 0D 0A 31 530 GOTO 3000..1
006BE0: 36 30 30 20 49 46 20 37 2F 44 2A 52 4E 44 28 31 600 IF 7/D*RND(1
006BF0: 29 3E 2E 39 32 35 20 54 48 45 4E 20 31 36 33 30 )>.925 THEN 1630
006C00: 0D 0A 31 36 31 30 20 50 52 49 4E 54 20 22 53 48 ..1610 PRINT "SH
006C10: 4F 54 20 42 4C 4F 43 4B 45 44 2E 20 22 3B 4F 24 OT BLOCKED. ";O$
006C20: 3B 22 27 53 20 42 41 4C 4C 2E 22 0D 0A 31 36 32 ;"'S BALL."..162
006C30: 30 20 47 4F 54 4F 20 33 30 30 30 0D 0A 31 36 33 0 GOTO 3000..163
006C40: 30 20 50 52 49 4E 54 20 22 43 48 41 52 47 49 4E 0 PRINT "CHARGIN
006C50: 47 20 46 4F 55 4C 2E 20 20 44 41 52 54 4D 4F 55 G FOUL. DARTMOU
006C60: 54 48 20 4C 4F 53 45 53 20 54 48 45 20 42 41 4C TH LOSES THE BAL
006C70: 4C 2E 22 0D 0A 31 36 34 30 20 47 4F 54 4F 20 33 L."..1640 GOTO 3
006C80: 30 30 30 0D 0A 31 37 30 30 20 50 52 49 4E 54 20 000..1700 PRINT
006C90: 22 53 45 54 20 53 48 4F 54 2E 22 0D 0A 31 37 31 "SET SHOT."..171
006CA0: 30 20 47 4F 54 4F 20 31 33 33 30 0D 0A 32 30 31 0 GOTO 1330..201
006CB0: 30 20 49 4E 50 55 54 20 22 59 4F 55 52 20 4E 45 0 INPUT "YOUR NE
006CC0: 57 20 44 45 46 45 4E 53 49 56 45 20 41 4C 4C 49 W DEFENSIVE ALLI
006CD0: 47 4E 4D 45 4E 54 20 49 53 22 3B 44 0D 0A 32 30 GNMENT IS";D..20
006CE0: 33 30 20 49 46 20 44 3C 36 20 54 48 45 4E 20 32 30 IF D<6 THEN 2
006CF0: 30 31 30 0D 0A 32 30 34 30 20 47 4F 54 4F 20 34 010..2040 GOTO 4
006D00: 30 20 50 52 49 4E 54 0D 0A 34 39 31 20 49 46 20 0 PRINT..491 IF
006D10: 53 28 31 29 3C 3E 53 28 30 29 20 54 48 45 4E 20 S(1)<>S(0) THEN
006D20: 35 31 30 0D 0A 34 39 32 20 50 52 49 4E 54 3A 50 510..492 PRINT:P
006D30: 52 49 4E 54 20 22 20 20 20 2A 2A 2A 2A 2A 20 45 RINT " ***** E
006D40: 4E 44 20 4F 46 20 53 45 43 4F 4E 44 20 48 41 4C ND OF SECOND HAL
006D50: 46 20 2A 2A 2A 2A 2A 22 3A 50 52 49 4E 54 0D 0A F *****":PRINT..
006D60: 34 39 33 20 50 52 49 4E 54 20 22 53 43 4F 52 45 493 PRINT "SCORE
006D70: 20 41 54 20 45 4E 44 20 4F 46 20 52 45 47 55 4C AT END OF REGUL
006D80: 41 54 49 4F 4E 20 54 49 4D 45 3A 22 0D 0A 34 39 ATION TIME:"..49
006D90: 34 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 4 PRINT "
006DA0: 20 44 41 52 54 4D 4F 55 54 48 3A 22 3B 53 28 31 DARTMOUTH:";S(1
006DB0: 29 3B 22 20 20 22 3B 4F 24 3B 22 3A 22 3B 53 28 );" ";O$;":";S(
006DC0: 30 29 0D 0A 34 39 35 20 50 52 49 4E 54 0D 0A 34 0)..495 PRINT..4
006DD0: 39 36 20 50 52 49 4E 54 20 22 42 45 47 49 4E 20 96 PRINT "BEGIN
006DE0: 54 57 4F 20 4D 49 4E 55 54 45 20 4F 56 45 52 54 TWO MINUTE OVERT
006DF0: 49 4D 45 20 50 45 52 49 4F 44 22 0D 0A 34 39 39 IME PERIOD"..499
006E00: 20 54 3D 39 33 0D 0A 35 30 30 20 47 4F 54 4F 20 T=93..500 GOTO
006E10: 33 37 30 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 370..510 PRINT "
006E20: 20 20 20 2A 2A 2A 2A 2A 20 45 4E 44 20 4F 46 20 ***** END OF
006E30: 47 41 4D 45 20 2A 2A 2A 2A 2A 22 0D 0A 35 31 35 GAME *****"..515
006E40: 20 50 52 49 4E 54 20 22 46 49 4E 41 4C 20 53 43 PRINT "FINAL SC
006E50: 4F 52 45 3A 20 44 41 52 54 4D 4F 55 54 48 3A 22 ORE: DARTMOUTH:"
006E60: 3B 53 28 31 29 3B 22 20 20 22 3B 4F 24 3B 22 3A ;S(1);" ";O$;":
006E70: 22 3B 53 28 30 29 0D 0A 35 32 30 20 53 54 4F 50 ";S(0)..520 STOP
006E80: 0D 0A 36 30 30 20 50 52 49 4E 54 0D 0A 36 31 30 ..600 PRINT..610
006E90: 20 50 52 49 4E 54 20 22 20 20 20 2A 2A 2A 20 54 PRINT " *** T
006EA0: 57 4F 20 4D 49 4E 55 54 45 53 20 4C 45 46 54 20 WO MINUTES LEFT
006EB0: 49 4E 20 54 48 45 20 47 41 4D 45 20 2A 2A 2A 22 IN THE GAME ***"
006EC0: 0D 0A 36 32 30 20 50 52 49 4E 54 0D 0A 36 33 30 ..620 PRINT..630
006ED0: 20 52 45 54 55 52 4E 0D 0A 31 30 30 30 20 4F 4E RETURN..1000 ON
006EE0: 20 5A 20 47 4F 54 4F 20 31 30 34 30 2C 31 30 34 Z GOTO 1040,104
006EF0: 30 0D 0A 31 30 33 30 20 47 4F 54 4F 20 31 33 30 0..1030 GOTO 130
006F00: 32 35 0D 0A 33 30 30 30 20 50 3D 31 0D 0A 33 30 25..3000 P=1..30
006F10: 30 35 20 54 3D 54 2B 31 0D 0A 33 30 30 38 20 49 05 T=T+1..3008 I
006F20: 46 20 54 3D 35 30 20 54 48 45 4E 20 38 30 30 30 F T=50 THEN 8000
006F30: 0D 0A 33 30 31 32 20 47 4F 54 4F 20 33 30 31 38 ..3012 GOTO 3018
006F40: 0D 0A 33 30 31 35 20 47 4F 53 55 42 20 36 30 30 ..3015 GOSUB 600
006F50: 0D 0A 33 30 31 38 20 50 52 49 4E 54 0D 0A 33 30 ..3018 PRINT..30
006F60: 32 30 20 5A 31 3D 31 30 2F 34 2A 52 4E 44 28 31 20 Z1=10/4*RND(1
006F70: 29 2B 31 0D 0A 33 30 33 30 20 49 46 20 5A 31 3E )+1..3030 IF Z1>
006F80: 32 20 54 48 45 4E 20 33 35 30 30 0D 0A 33 30 34 2 THEN 3500..304
006F90: 30 20 50 52 49 4E 54 20 22 4A 55 4D 50 20 53 48 0 PRINT "JUMP SH
006FA0: 4F 54 2E 22 0D 0A 33 30 35 30 20 49 46 20 38 2F OT."..3050 IF 8/
006FB0: 44 2A 52 4E 44 28 31 29 3E 2E 33 35 20 54 48 45 D*RND(1)>.35 THE
006FC0: 4E 20 33 31 30 30 0D 0A 33 30 36 30 20 50 52 49 N 3100..3060 PRI
006FD0: 4E 54 20 22 53 48 4F 54 20 49 53 20 47 4F 4F 44 NT "SHOT IS GOOD
006FE0: 2E 22 0D 0A 33 30 38 30 20 47 4F 53 55 42 20 36 ."..3080 GOSUB 6
006FF0: 30 30 30 0D 0A 33 30 39 30 20 47 4F 54 4F 20 34 000..3090 GOTO 4
007000: 32 35 0D 0A 33 31 30 30 20 49 46 20 38 2F 44 2A 25..3100 IF 8/D*
007010: 52 4E 44 28 31 29 3E 2E 37 35 20 54 48 45 4E 20 RND(1)>.75 THEN
007020: 33 32 30 30 0D 0A 33 31 30 35 20 50 52 49 4E 54 3200..3105 PRINT
007030: 20 22 53 48 4F 54 20 49 53 20 4F 46 46 20 52 49 "SHOT IS OFF RI
007040: 4D 2E 22 0D 0A 33 31 31 30 20 49 46 20 44 2F 36 M."..3110 IF D/6
007050: 2A 52 4E 44 28 31 29 3E 2E 35 20 54 48 45 4E 20 *RND(1)>.5 THEN
007060: 33 31 35 30 0D 0A 33 31 32 30 20 50 52 49 4E 54 3150..3120 PRINT
007070: 20 22 44 41 52 54 4D 4F 55 54 48 20 43 4F 4E 54 "DARTMOUTH CONT
007080: 52 4F 4C 53 20 54 48 45 20 52 45 42 4F 55 4E 44 ROLS THE REBOUND
007090: 2E 22 0D 0A 33 31 33 30 20 47 4F 54 4F 20 34 32 ."..3130 GOTO 42
0070A0: 35 0D 0A 33 31 35 30 20 50 52 49 4E 54 20 4F 24 5..3150 PRINT O$
0070B0: 3B 22 20 43 4F 4E 54 52 4F 4C 53 20 54 48 45 20 ;" CONTROLS THE
0070C0: 52 45 42 4F 55 4E 44 2E 22 0D 0A 33 31 36 30 20 REBOUND."..3160
0070D0: 49 46 20 44 3D 36 20 54 48 45 4E 20 35 30 30 30 IF D=6 THEN 5000
0070E0: 0D 0A 33 31 36 35 20 49 46 20 52 4E 44 28 31 29 ..3165 IF RND(1)
0070F0: 3E 2E 35 20 54 48 45 4E 20 33 31 37 35 0D 0A 33 >.5 THEN 3175..3
007100: 30 0D 0A 31 30 34 30 20 54 3D 54 2B 31 0D 0A 31 0..1040 T=T+1..1
007110: 30 34 31 20 49 46 20 54 3D 35 30 20 54 48 45 4E 041 IF T=50 THEN
007120: 20 38 30 30 30 0D 0A 31 30 34 32 20 49 46 20 54 8000..1042 IF T
007130: 3D 39 32 20 54 48 45 4E 20 31 30 34 36 0D 0A 31 =92 THEN 1046..1
007140: 30 34 33 20 47 4F 54 4F 20 31 30 35 30 0D 0A 31 043 GOTO 1050..1
007150: 30 34 36 20 47 4F 53 55 42 20 36 30 30 0D 0A 31 046 GOSUB 600..1
007160: 30 35 30 20 50 52 49 4E 54 20 22 4A 55 4D 50 20 050 PRINT "JUMP
007170: 53 48 4F 54 22 0D 0A 31 30 36 30 20 49 46 20 52 SHOT"..1060 IF R
007180: 4E 44 28 31 29 3E 2E 33 34 31 2A 44 2F 38 20 54 ND(1)>.341*D/8 T
007190: 48 45 4E 20 31 30 39 30 0D 0A 31 30 37 30 20 50 HEN 1090..1070 P
0071A0: 52 49 4E 54 20 22 53 48 4F 54 20 49 53 20 47 4F RINT "SHOT IS GO
0071B0: 4F 44 2E 22 0D 0A 31 30 37 35 20 47 4F 53 55 42 OD."..1075 GOSUB
0071C0: 20 37 30 30 30 0D 0A 31 30 38 35 20 47 4F 54 4F 7000..1085 GOTO
0071D0: 20 33 30 30 30 0D 0A 31 30 39 30 20 49 46 20 52 3000..1090 IF R
0071E0: 4E 44 28 31 29 3E 2E 36 38 32 2A 44 2F 38 20 54 ND(1)>.682*D/8 T
0071F0: 48 45 4E 20 31 32 30 30 0D 0A 31 31 30 30 20 50 HEN 1200..1100 P
007200: 52 49 4E 54 20 22 53 48 4F 54 20 49 53 20 4F 46 RINT "SHOT IS OF
007210: 46 20 54 41 52 47 45 54 2E 22 0D 0A 31 31 30 35 F TARGET."..1105
007220: 20 49 46 20 44 2F 36 2A 52 4E 44 28 31 29 3E 2E IF D/6*RND(1)>.
007230: 34 35 20 54 48 45 4E 20 31 31 33 30 0D 0A 31 31 45 THEN 1130..11
007240: 31 30 20 50 52 49 4E 54 20 22 44 41 52 54 4D 4F 10 PRINT "DARTMO
007250: 55 54 48 20 43 4F 4E 54 52 4F 4C 53 20 54 48 45 UTH CONTROLS THE
007260: 20 52 45 42 4F 55 4E 44 2E 22 0D 0A 31 31 32 30 REBOUND."..1120
007270: 20 47 4F 54 4F 20 31 31 34 35 0D 0A 31 31 33 30 GOTO 1145..1130
007280: 20 50 52 49 4E 54 20 22 52 45 42 4F 55 4E 44 20 PRINT "REBOUND
007290: 54 4F 20 22 3B 4F 24 0D 0A 31 31 34 30 20 47 4F TO ";O$..1140 GO
0072A0: 54 4F 20 33 30 30 30 0D 0A 31 31 34 35 20 49 46 TO 3000..1145 IF
0072B0: 20 52 4E 44 28 31 29 3E 2E 34 20 54 48 45 4E 20 RND(1)>.4 THEN
0072C0: 31 31 35 38 0D 0A 31 31 35 30 20 47 4F 54 4F 20 1158..1150 GOTO
0072D0: 31 33 30 30 0D 0A 31 31 35 38 20 49 46 20 44 3D 1300..1158 IF D=
0072E0: 36 20 54 48 45 4E 20 35 31 30 30 0D 0A 31 31 36 6 THEN 5100..116
0072F0: 30 20 50 52 49 4E 54 20 22 42 41 4C 4C 20 50 41 0 PRINT "BALL PA
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 00 00 02 09 52 E5 06 00 C1 02 00 00 00 02 ......R.........
007320: 06 00 C6 02 00 00 00 02 06 00 C2 02 00 00 00 02 ................
007330: 06 00 C7 02 00 00 00 02 06 00 C3 02 00 00 00 02 ................
007340: 06 00 C8 02 00 00 00 02 06 00 C4 02 00 00 00 02 ................
007350: 06 00 C9 02 00 00 00 02 06 00 C5 02 00 00 00 02 ................
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 31 36 38 20 50 52 49 4E 54 20 22 50 41 53 53 20 168 PRINT "PASS
007410: 42 41 43 4B 20 54 4F 20 22 3B 4F 24 3B 22 20 47 BACK TO ";O$;" G
007420: 55 41 52 44 2E 22 0D 0A 33 31 37 30 20 47 4F 54 UARD."..3170 GOT
007430: 4F 20 33 30 30 30 0D 0A 33 31 37 35 20 47 4F 54 O 3000..3175 GOT
007440: 4F 20 33 35 30 30 0D 0A 33 32 30 30 20 49 46 20 O 3500..3200 IF
007450: 38 2F 44 2A 52 4E 44 28 31 29 3E 2E 39 20 54 48 8/D*RND(1)>.9 TH
007460: 45 4E 20 33 33 31 30 0D 0A 33 32 31 30 20 50 52 EN 3310..3210 PR
007470: 49 4E 54 20 22 50 4C 41 59 45 52 20 46 4F 55 4C INT "PLAYER FOUL
007480: 45 44 2E 20 20 54 57 4F 20 53 48 4F 54 53 2E 22 ED. TWO SHOTS."
007490: 0D 0A 33 32 32 30 20 47 4F 53 55 42 20 34 30 30 ..3220 GOSUB 400
0074A0: 30 0D 0A 33 32 33 30 20 47 4F 54 4F 20 34 32 35 0..3230 GOTO 425
0074B0: 0D 0A 33 33 31 30 20 50 52 49 4E 54 20 22 4F 46 ..3310 PRINT "OF
0074C0: 46 45 4E 53 49 56 45 20 46 4F 55 4C 2E 20 20 44 FENSIVE FOUL. D
0074D0: 41 52 54 4D 4F 55 54 48 27 53 20 42 41 4C 4C 2E ARTMOUTH'S BALL.
0074E0: 22 0D 0A 33 33 32 30 20 47 4F 54 4F 20 34 32 35 "..3320 GOTO 425
0074F0: 0D 0A 33 35 30 30 20 49 46 20 5A 31 3E 33 20 54 ..3500 IF Z1>3 T
007500: 48 45 4E 20 33 38 30 30 0D 0A 33 35 31 30 20 50 HEN 3800..3510 P
007510: 52 49 4E 54 20 22 4C 41 59 20 55 50 2E 22 0D 0A RINT "LAY UP."..
007520: 33 35 32 30 20 49 46 20 37 2F 44 2A 52 4E 44 28 3520 IF 7/D*RND(
007530: 31 29 3E 2E 34 31 33 20 54 48 45 4E 20 33 36 30 1)>.413 THEN 360
007540: 30 0D 0A 33 35 33 30 20 50 52 49 4E 54 20 22 53 0..3530 PRINT "S
007550: 48 4F 54 20 49 53 20 47 4F 4F 44 2E 22 0D 0A 33 HOT IS GOOD."..3
007560: 35 34 30 20 47 4F 53 55 42 20 36 30 30 30 0D 0A 540 GOSUB 6000..
007570: 33 35 35 30 20 47 4F 54 4F 20 34 32 35 0D 0A 33 3550 GOTO 425..3
007580: 36 30 30 20 50 52 49 4E 54 20 22 53 48 4F 54 20 600 PRINT "SHOT
007590: 49 53 20 4D 49 53 53 45 44 2E 22 0D 0A 33 36 31 IS MISSED."..361
0075A0: 30 20 47 4F 54 4F 20 33 31 31 30 0D 0A 33 38 30 0 GOTO 3110..380
0075B0: 30 20 50 52 49 4E 54 20 22 53 45 54 20 53 48 4F 0 PRINT "SET SHO
0075C0: 54 2E 22 0D 0A 33 38 31 30 20 47 4F 54 4F 20 33 T."..3810 GOTO 3
0075D0: 35 32 30 0D 0A 34 30 30 30 20 52 45 4D 20 46 4F 520..4000 REM FO
0075E0: 55 4C 20 53 48 4F 4F 54 49 4E 47 0D 0A 34 30 31 UL SHOOTING..401
0075F0: 30 20 49 46 20 52 4E 44 28 31 29 3E 2E 34 39 20 0 IF RND(1)>.49
007600: 0D 0A 31 38 30 20 50 52 49 4E 54 20 22 44 4F 4E ..180 PRINT "DON
007610: 27 54 20 55 53 45 20 5A 45 52 4F 2C 20 48 4F 57 'T USE ZERO, HOW
007620: 45 56 45 52 2C 20 49 4E 20 50 4C 41 59 49 4E 47 EVER, IN PLAYING
007630: 20 54 48 45 20 47 41 4D 45 2E 22 0D 0A 31 39 30 THE GAME."..190
007640: 20 50 52 49 4E 54 20 22 45 4E 54 45 52 20 41 20 PRINT "ENTER A
007650: 4E 45 47 41 54 49 56 45 20 4E 55 4D 42 45 52 20 NEGATIVE NUMBER
007660: 46 4F 52 20 4E 45 57 20 50 49 4C 45 20 53 49 5A FOR NEW PILE SIZ
007670: 45 20 54 4F 20 53 54 4F 50 20 50 4C 41 59 49 4E E TO STOP PLAYIN
007680: 47 2E 22 0D 0A 32 30 30 20 50 52 49 4E 54 0D 0A G."..200 PRINT..
007690: 32 31 30 20 47 4F 54 4F 20 33 33 30 0D 0A 32 32 210 GOTO 330..22
0076A0: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 0D 0 FOR I=1 TO 10.
0076B0: 0A 32 33 30 20 50 52 49 4E 54 0D 0A 32 34 30 20 .230 PRINT..240
0076C0: 4E 45 58 54 20 49 0D 0A 33 33 30 20 49 4E 50 55 NEXT I..330 INPU
0076D0: 54 20 22 45 4E 54 45 52 20 50 49 4C 45 20 53 49 T "ENTER PILE SI
0076E0: 5A 45 22 3B 4E 0D 0A 33 35 30 20 49 46 20 4E 3E ZE";N..350 IF N>
0076F0: 3D 31 20 54 48 45 4E 20 33 37 30 0D 0A 33 36 30 =1 THEN 370..360
007700: 20 47 4F 54 4F 20 33 33 30 0D 0A 33 37 30 20 49 GOTO 330..370 I
007710: 46 20 4E 3C 3E 49 4E 54 28 4E 29 20 54 48 45 4E F N<>INT(N) THEN
007720: 20 32 32 30 0D 0A 33 38 30 20 49 46 20 4E 3C 31 220..380 IF N<1
007730: 20 54 48 45 4E 20 32 32 30 0D 0A 33 39 30 20 49 THEN 220..390 I
007740: 4E 50 55 54 20 22 45 4E 54 45 52 20 57 49 4E 20 NPUT "ENTER WIN
007750: 4F 50 54 49 4F 4E 20 2D 20 31 20 54 4F 20 54 41 OPTION - 1 TO TA
007760: 4B 45 20 4C 41 53 54 2C 20 32 20 54 4F 20 41 56 KE LAST, 2 TO AV
007770: 4F 49 44 20 4C 41 53 54 3A 20 22 3B 4D 0D 0A 34 OID LAST: ";M..4
007780: 31 30 20 49 46 20 4D 3D 31 20 54 48 45 4E 20 34 10 IF M=1 THEN 4
007790: 33 30 0D 0A 34 32 30 20 49 46 20 4D 3C 3E 32 20 30..420 IF M<>2
0077A0: 54 48 45 4E 20 33 39 30 0D 0A 34 33 30 20 49 4E THEN 390..430 IN
0077B0: 50 55 54 20 22 45 4E 54 45 52 20 4D 49 4E 20 41 PUT "ENTER MIN A
0077C0: 4E 44 20 4D 41 58 20 22 3B 41 2C 42 0D 0A 34 35 ND MAX ";A,B..45
0077D0: 30 20 49 46 20 41 3E 42 20 54 48 45 4E 20 34 33 0 IF A>B THEN 43
0077E0: 30 0D 0A 34 36 30 20 49 46 20 41 3C 31 20 54 48 0..460 IF A<1 TH
0077F0: 45 4E 20 34 33 30 0D 0A 34 37 30 20 49 46 20 41 EN 430..470 IF A
007800: 54 48 45 4E 20 34 30 35 30 0D 0A 34 30 32 30 20 THEN 4050..4020
007810: 50 52 49 4E 54 20 22 53 48 4F 4F 54 45 52 20 4D PRINT "SHOOTER M
007820: 41 4B 45 53 20 42 4F 54 48 20 53 48 4F 54 53 2E AKES BOTH SHOTS.
007830: 22 0D 0A 34 30 33 30 20 53 28 31 2D 50 29 3D 53 "..4030 S(1-P)=S
007840: 28 31 2D 50 29 2B 32 0D 0A 34 30 34 30 20 47 4F (1-P)+2..4040 GO
007850: 53 55 42 20 36 30 31 30 0D 0A 34 30 34 31 20 52 SUB 6010..4041 R
007860: 45 54 55 52 4E 0D 0A 34 30 35 30 20 49 46 20 52 ETURN..4050 IF R
007870: 4E 44 28 31 29 3E 2E 37 35 20 54 48 45 4E 20 34 ND(1)>.75 THEN 4
007880: 31 30 30 0D 0A 34 30 36 30 20 50 52 49 4E 54 20 100..4060 PRINT
007890: 22 53 48 4F 4F 54 45 52 20 4D 41 4B 45 53 20 4F "SHOOTER MAKES O
0078A0: 4E 45 20 53 48 4F 54 20 41 4E 44 20 4D 49 53 53 NE SHOT AND MISS
0078B0: 45 53 20 4F 4E 45 2E 22 0D 0A 34 30 37 30 20 53 ES ONE."..4070 S
0078C0: 28 31 2D 50 29 3D 53 28 31 2D 50 29 2B 31 0D 0A (1-P)=S(1-P)+1..
0078D0: 34 30 38 30 20 47 4F 54 4F 20 34 30 34 30 0D 0A 4080 GOTO 4040..
0078E0: 34 31 30 30 20 50 52 49 4E 54 20 22 42 4F 54 48 4100 PRINT "BOTH
0078F0: 20 53 48 4F 54 53 20 4D 49 53 53 45 44 2E 22 0D SHOTS MISSED.".
007900: 0A 34 31 31 30 20 47 4F 54 4F 20 34 30 34 30 0D .4110 GOTO 4040.
007910: 0A 35 30 30 30 20 49 46 20 52 4E 44 28 31 29 3E .5000 IF RND(1)>
007920: 2E 37 35 20 54 48 45 4E 20 35 30 31 30 0D 0A 35 .75 THEN 5010..5
007930: 30 30 35 20 47 4F 54 4F 20 33 31 36 35 0D 0A 35 005 GOTO 3165..5
007940: 30 31 30 20 50 52 49 4E 54 20 22 42 41 4C 4C 20 010 PRINT "BALL
007950: 53 54 4F 4C 45 4E 2E 20 20 45 41 53 59 20 4C 41 STOLEN. EASY LA
007960: 59 20 55 50 20 46 4F 52 20 44 41 52 54 4D 4F 55 Y UP FOR DARTMOU
007970: 54 48 2E 22 0D 0A 35 30 31 35 20 47 4F 53 55 42 TH."..5015 GOSUB
007980: 20 37 30 30 30 0D 0A 35 30 33 30 20 47 4F 54 4F 7000..5030 GOTO
007990: 20 33 30 30 30 0D 0A 35 31 30 30 20 49 46 20 52 3000..5100 IF R
0079A0: 4E 44 28 31 29 3E 2E 36 20 54 48 45 4E 20 35 31 ND(1)>.6 THEN 51
0079B0: 32 30 0D 0A 35 31 31 30 20 47 4F 54 4F 20 31 31 20..5110 GOTO 11
0079C0: 36 30 0D 0A 35 31 32 30 20 50 52 49 4E 54 20 22 60..5120 PRINT "
0079D0: 50 41 53 53 20 53 54 4F 4C 45 4E 20 42 59 20 22 PASS STOLEN BY "
0079E0: 3B 4F 24 3B 22 20 45 41 53 59 20 4C 41 59 55 50 ;O$;" EASY LAYUP
0079F0: 2E 22 0D 0A 35 31 33 30 20 47 4F 53 55 42 20 36 ."..5130 GOSUB 6
007A00: 3C 3E 49 4E 54 28 41 29 20 54 48 45 4E 20 34 33 <>INT(A) THEN 43
007A10: 30 0D 0A 34 38 30 20 49 46 20 42 3C 3E 49 4E 54 0..480 IF B<>INT
007A20: 28 42 29 20 54 48 45 4E 20 34 33 30 0D 0A 34 39 (B) THEN 430..49
007A30: 30 20 49 4E 50 55 54 20 22 45 4E 54 45 52 20 53 0 INPUT "ENTER S
007A40: 54 41 52 54 20 4F 50 54 49 4F 4E 20 2D 20 31 20 TART OPTION - 1
007A50: 43 4F 4D 50 55 54 45 52 20 46 49 52 53 54 2C 20 COMPUTER FIRST,
007A60: 32 20 59 4F 55 20 46 49 52 53 54 20 22 3B 53 0D 2 YOU FIRST ";S.
007A70: 0A 35 30 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 .500 PRINT:PRINT
007A80: 0D 0A 35 31 30 20 49 46 20 53 3D 31 20 54 48 45 ..510 IF S=1 THE
007A90: 4E 20 35 33 30 0D 0A 35 32 30 20 49 46 20 53 3C N 530..520 IF S<
007AA0: 3E 32 20 54 48 45 4E 20 34 39 30 0D 0A 35 33 30 >2 THEN 490..530
007AB0: 20 43 3D 41 2B 42 0D 0A 35 34 30 20 49 46 20 53 C=A+B..540 IF S
007AC0: 3D 32 20 54 48 45 4E 20 35 37 30 0D 0A 35 35 30 =2 THEN 570..550
007AD0: 20 47 4F 53 55 42 20 36 30 30 0D 0A 35 36 30 20 GOSUB 600..560
007AE0: 49 46 20 57 3D 31 20 54 48 45 4E 20 32 32 30 0D IF W=1 THEN 220.
007AF0: 0A 35 37 30 20 47 4F 53 55 42 20 38 31 30 0D 0A .570 GOSUB 810..
007B00: 35 38 30 20 49 46 20 57 3D 31 20 54 48 45 4E 20 580 IF W=1 THEN
007B10: 32 32 30 0D 0A 35 39 30 20 47 4F 54 4F 20 35 35 220..590 GOTO 55
007B20: 30 0D 0A 36 30 30 20 51 3D 4E 0D 0A 36 31 30 20 0..600 Q=N..610
007B30: 49 46 20 4D 3D 31 20 54 48 45 4E 20 36 33 30 0D IF M=1 THEN 630.
007B40: 0A 36 32 30 20 51 3D 51 2D 31 0D 0A 36 33 30 20 .620 Q=Q-1..630
007B50: 49 46 20 4D 3D 31 20 54 48 45 4E 20 36 38 30 0D IF M=1 THEN 680.
007B60: 0A 36 34 30 20 49 46 20 4E 3E 41 20 54 48 45 4E .640 IF N>A THEN
007B70: 20 37 32 30 0D 0A 36 35 30 20 57 3D 31 0D 0A 36 720..650 W=1..6
007B80: 36 30 20 50 52 49 4E 54 20 22 43 4F 4D 50 55 54 60 PRINT "COMPUT
007B90: 45 52 20 54 41 4B 45 53 22 3B 4E 3B 22 41 4E 44 ER TAKES";N;"AND
007BA0: 20 4C 4F 53 45 53 2E 22 0D 0A 36 37 30 20 52 45 LOSES."..670 RE
007BB0: 54 55 52 4E 0D 0A 36 38 30 20 49 46 20 4E 3E 42 TURN..680 IF N>B
007BC0: 20 54 48 45 4E 20 37 32 30 0D 0A 36 39 30 20 57 THEN 720..690 W
007BD0: 3D 31 0D 0A 37 30 30 20 50 52 49 4E 54 20 22 43 =1..700 PRINT "C
007BE0: 4F 4D 50 55 54 45 52 20 54 41 4B 45 53 22 3B 4E OMPUTER TAKES";N
007BF0: 3B 22 41 4E 44 20 57 49 4E 53 2E 22 0D 0A 37 31 ;"AND WINS."..71
007C00: 30 30 30 0D 0A 35 31 34 30 20 47 4F 54 4F 20 34 000..5140 GOTO 4
007C10: 32 35 0D 0A 36 30 30 30 20 53 28 30 29 3D 53 28 25..6000 S(0)=S(
007C20: 30 29 2B 32 0D 0A 36 30 31 30 20 50 52 49 4E 54 0)+2..6010 PRINT
007C30: 20 22 53 43 4F 52 45 3A 20 22 3B 53 28 31 29 3B "SCORE: ";S(1);
007C40: 22 54 4F 22 3B 53 28 30 29 0D 0A 36 30 32 30 20 "TO";S(0)..6020
007C50: 52 45 54 55 52 4E 0D 0A 37 30 30 30 20 53 28 31 RETURN..7000 S(1
007C60: 29 3D 53 28 31 29 2B 32 0D 0A 37 30 31 30 20 47 )=S(1)+2..7010 G
007C70: 4F 53 55 42 20 36 30 31 30 0D 0A 37 30 32 30 20 OSUB 6010..7020
007C80: 52 45 54 55 52 4E 0D 0A 38 30 30 30 20 50 52 49 RETURN..8000 PRI
007C90: 4E 54 3A 50 52 49 4E 54 20 22 20 20 20 2A 2A 2A NT:PRINT " ***
007CA0: 2A 2A 20 45 4E 44 20 4F 46 20 46 49 52 53 54 20 ** END OF FIRST
007CB0: 48 41 4C 46 20 2A 2A 2A 2A 2A 22 3A 50 52 49 4E HALF *****":PRIN
007CC0: 54 0D 0A 38 30 31 30 20 50 52 49 4E 54 20 22 53 T..8010 PRINT "S
007CD0: 43 4F 52 45 3A 20 44 41 52 54 4D 4F 55 54 48 3A CORE: DARTMOUTH:
007CE0: 22 3B 53 28 31 29 3B 22 20 20 22 3B 4F 24 3B 22 ";S(1);" ";O$;"
007CF0: 3A 22 3B 53 28 30 29 0D 0A 38 30 31 35 20 50 52 :";S(0)..8015 PR
007D00: 49 4E 54 0D 0A 38 30 31 36 20 50 52 49 4E 54 0D INT..8016 PRINT.
007D10: 0A 38 30 32 30 20 47 4F 54 4F 20 33 37 30 0D 0A .8020 GOTO 370..
007D20: 39 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 9999 END........
007D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
007E00: 30 20 52 45 54 55 52 4E 0D 0A 37 32 30 20 50 3D 0 RETURN..720 P=
007E10: 51 2D 43 2A 49 4E 54 28 51 2F 43 29 0D 0A 37 33 Q-C*INT(Q/C)..73
007E20: 30 20 49 46 20 50 3E 3D 41 20 54 48 45 4E 20 37 0 IF P>=A THEN 7
007E30: 35 30 0D 0A 37 34 30 20 50 3D 41 0D 0A 37 35 30 50..740 P=A..750
007E40: 20 49 46 20 50 3C 3D 42 20 54 48 45 4E 20 37 37 IF P<=B THEN 77
007E50: 30 0D 0A 37 36 30 20 50 3D 42 0D 0A 37 37 30 20 0..760 P=B..770
007E60: 4E 3D 4E 2D 50 0D 0A 37 38 30 20 50 52 49 4E 54 N=N-P..780 PRINT
007E70: 20 22 43 4F 4D 50 55 54 45 52 20 54 41 4B 45 53 "COMPUTER TAKES
007E80: 22 3B 50 3B 22 41 4E 44 20 4C 45 41 56 45 53 22 ";P;"AND LEAVES"
007E90: 3B 4E 0D 0A 37 39 30 20 57 3D 30 0D 0A 38 30 30 ;N..790 W=0..800
007EA0: 20 52 45 54 55 52 4E 0D 0A 38 31 30 20 50 52 49 RETURN..810 PRI
007EB0: 4E 54 3A 50 52 49 4E 54 20 22 59 4F 55 52 20 4D NT:PRINT "YOUR M
007EC0: 4F 56 45 20 22 3B 0D 0A 38 32 30 20 49 4E 50 55 OVE ";..820 INPU
007ED0: 54 20 50 0D 0A 38 33 30 20 49 46 20 50 3C 3E 30 T P..830 IF P<>0
007EE0: 20 54 48 45 4E 20 38 37 30 0D 0A 38 34 30 20 50 THEN 870..840 P
007EF0: 52 49 4E 54 20 22 49 20 54 4F 4C 44 20 59 4F 55 RINT "I TOLD YOU
007F00: 20 4E 4F 54 20 54 4F 20 55 53 45 20 5A 45 52 4F NOT TO USE ZERO
007F10: 21 20 43 4F 4D 50 55 54 45 52 20 57 49 4E 53 20 ! COMPUTER WINS
007F20: 42 59 20 46 4F 52 46 45 49 54 2E 22 0D 0A 38 35 BY FORFEIT."..85
007F30: 30 20 57 3D 31 0D 0A 38 36 30 20 52 45 54 55 52 0 W=1..860 RETUR
007F40: 4E 0D 0A 38 37 30 20 49 46 20 50 3C 3E 49 4E 54 N..870 IF P<>INT
007F50: 28 50 29 20 54 48 45 4E 20 39 32 30 0D 0A 38 38 (P) THEN 920..88
007F60: 30 20 49 46 20 50 3E 3D 41 20 54 48 45 4E 20 39 0 IF P>=A THEN 9
007F70: 31 30 0D 0A 38 39 30 20 49 46 20 50 3D 4E 20 54 10..890 IF P=N T
007F80: 48 45 4E 20 39 36 30 0D 0A 39 30 30 20 47 4F 54 HEN 960..900 GOT
007F90: 4F 20 39 32 30 0D 0A 39 31 30 20 49 46 20 50 3C O 920..910 IF P<
007FA0: 3D 42 20 54 48 45 4E 20 39 34 30 0D 0A 39 32 30 =B THEN 940..920
007FB0: 20 50 52 49 4E 54 20 22 49 4C 4C 45 47 41 4C 20 PRINT "ILLEGAL
007FC0: 4D 4F 56 45 2C 20 52 45 45 4E 54 45 52 20 49 54 MOVE, REENTER IT
007FD0: 20 22 3B 0D 0A 39 33 30 20 47 4F 54 4F 20 38 32 ";..930 GOTO 82
007FE0: 30 0D 0A 39 34 30 20 4E 3D 4E 2D 50 0D 0A 39 35 0..940 N=N-P..95
007FF0: 30 20 49 46 20 4E 3C 3E 30 20 54 48 45 4E 20 31 0 IF N<>0 THEN 1
008000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0080F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0081F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008200: 30 33 30 0D 0A 39 36 30 20 49 46 20 4D 3D 31 20 030..960 IF M=1
008210: 54 48 45 4E 20 31 30 30 30 0D 0A 39 37 30 20 50 THEN 1000..970 P
008220: 52 49 4E 54 20 22 54 4F 55 47 48 20 4C 55 43 4B RINT "TOUGH LUCK
008230: 2C 20 59 4F 55 20 4C 4F 53 45 2E 22 0D 0A 39 38 , YOU LOSE."..98
008240: 30 20 57 3D 31 0D 0A 39 39 30 20 52 45 54 55 52 0 W=1..990 RETUR
008250: 4E 0D 0A 31 30 30 30 20 50 52 49 4E 54 20 22 43 N..1000 PRINT "C
008260: 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 2C 20 ONGRATULATIONS,
008270: 59 4F 55 20 57 49 4E 2E 22 0D 0A 31 30 31 30 20 YOU WIN."..1010
008280: 57 3D 31 0D 0A 31 30 32 30 20 52 45 54 55 52 4E W=1..1020 RETURN
008290: 0D 0A 31 30 33 30 20 49 46 20 4E 3E 3D 30 20 54 ..1030 IF N>=0 T
0082A0: 48 45 4E 20 31 30 36 30 0D 0A 31 30 34 30 20 4E HEN 1060..1040 N
0082B0: 3D 4E 2B 50 0D 0A 31 30 35 30 20 47 4F 54 4F 20 =N+P..1050 GOTO
0082C0: 39 32 30 0D 0A 31 30 36 30 20 57 3D 30 0D 0A 31 920..1060 W=0..1
0082D0: 30 37 30 20 52 45 54 55 52 4E 0D 0A 31 30 38 30 070 RETURN..1080
0082E0: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
0082F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0083A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0083B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0083C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0083D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0083E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0083F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008400: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
008410: 3B 22 42 41 54 4E 55 4D 22 0D 0A 32 30 20 50 52 ;"BATNUM"..20 PR
008420: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
008430: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
008440: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
008450: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
008460: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
008470: 31 31 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 110 PRINT "THIS
008480: 50 52 4F 47 52 41 4D 20 49 53 20 41 20 27 42 41 PROGRAM IS A 'BA
008490: 54 54 4C 45 20 4F 46 20 4E 55 4D 42 45 52 53 27 TTLE OF NUMBERS'
0084A0: 20 47 41 4D 45 2C 20 57 48 45 52 45 20 54 48 45 GAME, WHERE THE
0084B0: 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 43 4F "..120 PRINT "CO
0084C0: 4D 50 55 54 45 52 20 49 53 20 59 4F 55 52 20 4F MPUTER IS YOUR O
0084D0: 50 50 4F 4E 45 4E 54 2E 22 0D 0A 31 33 30 20 50 PPONENT."..130 P
0084E0: 52 49 4E 54 20 0D 0A 31 34 30 20 50 52 49 4E 54 RINT ..140 PRINT
0084F0: 20 22 54 48 45 20 47 41 4D 45 20 53 54 41 52 54 "THE GAME START
008500: 53 20 57 49 54 48 20 41 4E 20 41 53 53 55 4D 45 S WITH AN ASSUME
008510: 44 20 50 49 4C 45 20 4F 46 20 4F 42 4A 45 43 54 D PILE OF OBJECT
008520: 53 2E 20 59 4F 55 22 0D 0A 31 35 30 20 50 52 49 S. YOU"..150 PRI
008530: 4E 54 20 22 41 4E 44 20 59 4F 55 52 20 4F 50 50 NT "AND YOUR OPP
008540: 4F 4E 45 4E 54 20 41 4C 54 45 52 4E 41 54 45 4C ONENT ALTERNATEL
008550: 59 20 52 45 4D 4F 56 45 20 4F 42 4A 45 43 54 53 Y REMOVE OBJECTS
008560: 20 46 52 4F 4D 20 54 48 45 20 50 49 4C 45 2E 22 FROM THE PILE."
008570: 0D 0A 31 36 30 20 50 52 49 4E 54 20 22 57 49 4E ..160 PRINT "WIN
008580: 4E 49 4E 47 20 49 53 20 44 45 46 49 4E 45 44 20 NING IS DEFINED
008590: 49 4E 20 41 44 56 41 4E 43 45 20 41 53 20 54 41 IN ADVANCE AS TA
0085A0: 4B 49 4E 47 20 54 48 45 20 4C 41 53 54 20 4F 42 KING THE LAST OB
0085B0: 4A 45 43 54 20 4F 52 22 0D 0A 31 37 30 20 50 52 JECT OR"..170 PR
0085C0: 49 4E 54 20 22 4E 4F 54 2E 20 59 4F 55 20 43 41 INT "NOT. YOU CA
0085D0: 4E 20 41 4C 53 4F 20 53 50 45 43 49 46 59 20 53 N ALSO SPECIFY S
0085E0: 4F 4D 45 20 4F 54 48 45 52 20 42 45 47 49 4E 4E OME OTHER BEGINN
0085F0: 49 4E 47 20 43 4F 4E 44 49 54 49 4F 4E 53 2E 22 ING CONDITIONS."
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 00 00 02 09 52 E5 07 00 C1 02 00 00 00 02 ......R.........
008620: 07 00 C6 02 00 00 00 02 07 00 C2 02 00 00 00 02 ................
008630: 07 00 C7 02 00 00 00 02 07 00 C3 02 00 00 00 02 ................
008640: 07 00 C8 02 00 00 00 02 07 00 C4 02 00 00 00 02 ................
008650: 07 00 C9 02 00 00 00 02 07 00 C5 02 00 00 00 02 ................
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0087A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0087B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0087C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0087D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0087E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0087F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0088A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0088B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0088C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0088D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0088E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0088F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
008900: 36 35 30 20 49 46 20 5A 3D 31 20 54 48 45 4E 20 650 IF Z=1 THEN
008910: 39 30 0D 0A 36 36 30 20 49 46 20 46 28 5A 2D 31 90..660 IF F(Z-1
008920: 2C 42 29 3E 30 20 54 48 45 4E 20 39 30 0D 0A 36 ,B)>0 THEN 90..6
008930: 37 30 20 41 28 4B 2B 31 29 3D 5A 2D 31 0D 0A 36 70 A(K+1)=Z-1..6
008940: 38 30 20 4E 45 58 54 20 4B 0D 0A 36 39 30 20 46 80 NEXT K..690 F
008950: 28 41 2C 42 29 3D 39 2D 32 2A 49 2D 4A 0D 0A 37 (A,B)=9-2*I-J..7
008960: 30 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 4E 0D 00 FOR K=1 TO N.
008970: 0A 37 31 30 20 46 28 41 28 4B 2B 31 29 2C 42 29 .710 F(A(K+1),B)
008980: 3D 46 28 41 2C 42 29 0D 0A 37 32 30 20 4E 45 58 =F(A,B)..720 NEX
008990: 54 20 4B 0D 0A 37 33 30 20 47 4F 54 4F 20 39 39 T K..730 GOTO 99
0089A0: 30 0D 0A 37 34 30 20 41 28 31 29 3D 41 0D 0A 37 0..740 A(1)=A..7
0089B0: 35 30 20 42 28 31 29 3D 42 0D 0A 37 36 30 20 41 50 B(1)=B..760 A
0089C0: 28 32 29 3D 37 3A 41 28 33 29 3D 37 0D 0A 37 37 (2)=7:A(3)=7..77
0089D0: 30 20 42 28 32 29 3D 30 3A 42 28 33 29 3D 30 0D 0 B(2)=0:B(3)=0.
0089E0: 0A 37 38 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 .780 FOR K=1 TO
0089F0: 4E 0D 0A 37 39 30 20 49 46 20 4D 3E 31 20 54 48 N..790 IF M>1 TH
008A00: 45 4E 20 38 37 30 0D 0A 38 30 30 20 49 46 20 41 EN 870..800 IF A
008A10: 28 4B 29 3D 36 20 4F 52 20 42 28 4B 29 3D 31 20 (K)=6 OR B(K)=1
008A20: 54 48 45 4E 20 38 36 30 0D 0A 38 31 30 20 49 46 THEN 860..810 IF
008A30: 20 46 28 41 28 4B 29 2B 31 2C 42 28 4B 29 2D 31 F(A(K)+1,B(K)-1
008A40: 29 3E 30 20 54 48 45 4E 20 38 36 30 0D 0A 38 32 )>0 THEN 860..82
008A50: 30 20 49 46 20 46 28 41 28 4B 29 2B 31 2C 42 28 0 IF F(A(K)+1,B(
008A60: 4B 29 29 3E 30 20 41 4E 44 20 46 28 41 28 4B 29 K))>0 AND F(A(K)
008A70: 2B 31 2C 42 28 4B 29 29 3D 46 28 41 28 4B 29 2C +1,B(K))=F(A(K),
008A80: 42 28 4B 29 2D 31 29 20 54 48 45 4E 20 38 36 30 B(K)-1) THEN 860
008A90: 0D 0A 38 33 30 20 41 28 4B 2B 31 29 3D 41 28 4B ..830 A(K+1)=A(K
008AA0: 29 2B 31 0D 0A 38 34 30 20 42 28 4B 2B 31 29 3D )+1..840 B(K+1)=
008AB0: 42 28 4B 29 2D 31 0D 0A 38 35 30 20 47 4F 54 4F B(K)-1..850 GOTO
008AC0: 20 39 34 30 0D 0A 38 36 30 20 4D 3D 32 0D 0A 38 940..860 M=2..8
008AD0: 37 30 20 49 46 20 41 28 31 29 3C 41 28 32 29 20 70 IF A(1)<A(2)
008AE0: 41 4E 44 20 41 28 31 29 3C 41 28 33 29 20 54 48 AND A(1)<A(3) TH
008AF0: 45 4E 20 5A 31 3D 41 28 31 29 0D 0A 38 37 32 20 EN Z1=A(1)..872
008B00: 35 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 5 PRINT TAB(33);
008B10: 22 42 41 54 54 4C 45 22 0D 0A 37 20 50 52 49 4E "BATTLE"..7 PRIN
008B20: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
008B30: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
008B40: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
008B50: 45 52 53 45 59 22 0D 0A 31 30 20 52 45 4D 20 2D ERSEY"..10 REM -
008B60: 2D 20 42 41 54 54 4C 45 20 57 52 49 54 54 45 4E - BATTLE WRITTEN
008B70: 20 42 59 20 52 41 59 20 57 45 53 54 45 52 47 41 BY RAY WESTERGA
008B80: 52 44 20 20 31 30 2F 37 30 0D 0A 32 30 20 52 45 RD 10/70..20 RE
008B90: 4D 20 43 4F 50 59 52 49 47 48 54 20 31 39 37 31 M COPYRIGHT 1971
008BA0: 20 42 59 20 54 48 45 20 52 45 47 45 4E 54 53 20 BY THE REGENTS
008BB0: 4F 46 20 54 48 45 20 55 4E 49 56 2E 20 4F 46 20 OF THE UNIV. OF
008BC0: 43 41 4C 49 46 2E 0D 0A 33 30 20 52 45 4D 20 50 CALIF...30 REM P
008BD0: 52 4F 44 55 43 45 44 20 41 54 20 54 48 45 20 4C RODUCED AT THE L
008BE0: 41 57 52 45 4E 43 45 20 48 41 4C 4C 20 4F 46 20 AWRENCE HALL OF
008BF0: 53 43 49 45 4E 43 45 2C 20 42 45 52 4B 45 4C 45 SCIENCE, BERKELE
008C00: 59 0D 0A 34 30 20 44 49 4D 20 46 28 36 2C 36 29 Y..40 DIM F(6,6)
008C10: 2C 48 28 36 2C 36 29 2C 41 28 34 29 2C 42 28 34 ,H(6,6),A(4),B(4
008C20: 29 2C 43 28 36 29 2C 4C 28 33 29 0D 0A 35 30 20 ),C(6),L(3)..50
008C30: 46 4F 52 20 58 3D 31 20 54 4F 20 36 0D 0A 35 31 FOR X=1 TO 6..51
008C40: 20 46 4F 52 20 59 3D 31 20 54 4F 20 36 0D 0A 35 FOR Y=1 TO 6..5
008C50: 32 20 46 28 58 2C 59 29 3D 30 0D 0A 35 33 20 4E 2 F(X,Y)=0..53 N
008C60: 45 58 54 20 59 0D 0A 35 34 20 4E 45 58 54 20 58 EXT Y..54 NEXT X
008C70: 0D 0A 36 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 ..60 FOR I=1 TO
008C80: 33 0D 0A 37 30 20 4E 3D 34 2D 49 0D 0A 38 30 20 3..70 N=4-I..80
008C90: 46 4F 52 20 4A 3D 31 20 54 4F 20 32 0D 0A 39 30 FOR J=1 TO 2..90
008CA0: 20 41 3D 49 4E 54 28 36 2A 52 4E 44 28 31 29 2B A=INT(6*RND(1)+
008CB0: 31 29 0D 0A 31 30 30 20 42 3D 49 4E 54 28 36 2A 1)..100 B=INT(6*
008CC0: 52 4E 44 28 31 29 2B 31 29 0D 0A 31 31 30 20 44 RND(1)+1)..110 D
008CD0: 3D 49 4E 54 28 34 2A 52 4E 44 28 31 29 2B 31 29 =INT(4*RND(1)+1)
008CE0: 0D 0A 31 32 30 20 49 46 20 46 28 41 2C 42 29 3E ..120 IF F(A,B)>
008CF0: 30 20 54 48 45 4E 20 39 30 0D 0A 31 33 30 20 4D 0 THEN 90..130 M
008D00: 49 46 20 41 28 32 29 3C 41 28 31 29 20 41 4E 44 IF A(2)<A(1) AND
008D10: 20 41 28 32 29 3C 41 28 33 29 20 54 48 45 4E 20 A(2)<A(3) THEN
008D20: 5A 31 3D 41 28 32 29 0D 0A 38 37 34 20 49 46 20 Z1=A(2)..874 IF
008D30: 41 28 33 29 3C 41 28 31 29 20 41 4E 44 20 41 28 A(3)<A(1) AND A(
008D40: 33 29 3C 41 28 32 29 20 54 48 45 4E 20 5A 31 3D 3)<A(2) THEN Z1=
008D50: 41 28 33 29 0D 0A 38 38 30 20 49 46 20 42 28 31 A(3)..880 IF B(1
008D60: 29 3E 42 28 32 29 20 41 4E 44 20 42 28 31 29 3E )>B(2) AND B(1)>
008D70: 42 28 33 29 20 54 48 45 4E 20 5A 32 3D 42 28 31 B(3) THEN Z2=B(1
008D80: 29 0D 0A 38 38 32 20 49 46 20 42 28 32 29 3E 42 )..882 IF B(2)>B
008D90: 28 31 29 20 41 4E 44 20 42 28 32 29 3E 42 28 33 (1) AND B(2)>B(3
008DA0: 29 20 54 48 45 4E 20 5A 32 3D 42 28 32 29 0D 0A ) THEN Z2=B(2)..
008DB0: 38 38 34 20 49 46 20 42 28 33 29 3E 42 28 31 29 884 IF B(3)>B(1)
008DC0: 20 41 4E 44 20 42 28 33 29 3E 42 28 32 29 20 54 AND B(3)>B(2) T
008DD0: 48 45 4E 20 5A 32 3D 42 28 33 29 0D 0A 38 39 30 HEN Z2=B(3)..890
008DE0: 20 49 46 20 5A 31 3D 31 20 4F 52 20 5A 32 3D 36 IF Z1=1 OR Z2=6
008DF0: 20 54 48 45 4E 20 39 30 0D 0A 39 30 30 20 49 46 THEN 90..900 IF
008E00: 20 46 28 5A 31 2D 31 2C 5A 32 2B 31 29 3E 30 20 F(Z1-1,Z2+1)>0
008E10: 54 48 45 4E 20 39 30 0D 0A 39 31 30 20 49 46 20 THEN 90..910 IF
008E20: 46 28 5A 31 2C 5A 32 2B 31 29 3E 30 20 41 4E 44 F(Z1,Z2+1)>0 AND
008E30: 20 46 28 5A 31 2C 5A 32 2B 31 29 3D 46 28 5A 31 F(Z1,Z2+1)=F(Z1
008E40: 2D 31 2C 5A 32 29 20 54 48 45 4E 20 39 30 0D 0A -1,Z2) THEN 90..
008E50: 39 32 30 20 41 28 4B 2B 31 29 3D 5A 31 2D 31 0D 920 A(K+1)=Z1-1.
008E60: 0A 39 33 30 20 42 28 4B 2B 31 29 3D 5A 32 2B 31 .930 B(K+1)=Z2+1
008E70: 0D 0A 39 34 30 20 4E 45 58 54 20 4B 0D 0A 39 35 ..940 NEXT K..95
008E80: 30 20 46 28 41 2C 42 29 3D 39 2D 32 2A 49 2D 4A 0 F(A,B)=9-2*I-J
008E90: 0D 0A 39 36 30 20 46 4F 52 20 4B 3D 31 20 54 4F ..960 FOR K=1 TO
008EA0: 20 4E 0D 0A 39 37 30 20 46 28 41 28 4B 2B 31 29 N..970 F(A(K+1)
008EB0: 2C 42 28 4B 2B 31 29 29 3D 46 28 41 2C 42 29 0D ,B(K+1))=F(A,B).
008EC0: 0A 39 38 30 20 4E 45 58 54 20 4B 0D 0A 39 39 30 .980 NEXT K..990
008ED0: 20 4E 45 58 54 20 4A 0D 0A 31 30 30 30 20 4E 45 NEXT J..1000 NE
008EE0: 58 54 20 49 0D 0A 31 30 31 30 20 50 52 49 4E 54 XT I..1010 PRINT
008EF0: 0D 0A 31 30 32 30 20 50 52 49 4E 54 20 22 54 48 ..1020 PRINT "TH
008F00: 3D 30 0D 0A 31 34 30 20 4F 4E 20 44 20 47 4F 54 =0..140 ON D GOT
008F10: 4F 20 31 35 30 2C 33 34 30 2C 35 35 30 2C 37 34 O 150,340,550,74
008F20: 30 0D 0A 31 35 30 20 42 28 31 29 3D 42 0D 0A 31 0..150 B(1)=B..1
008F30: 36 30 20 42 28 32 29 3D 37 3A 42 28 33 29 3D 37 60 B(2)=7:B(3)=7
008F40: 0D 0A 31 37 30 20 46 4F 52 20 4B 3D 31 20 54 4F ..170 FOR K=1 TO
008F50: 20 4E 0D 0A 31 38 30 20 49 46 20 4D 3E 31 20 54 N..180 IF M>1 T
008F60: 48 45 4E 20 32 34 30 0D 0A 31 39 30 20 49 46 20 HEN 240..190 IF
008F70: 42 28 4B 29 3D 36 20 54 48 45 4E 20 32 33 30 0D B(K)=6 THEN 230.
008F80: 0A 32 30 30 20 49 46 20 46 28 41 2C 42 28 4B 29 .200 IF F(A,B(K)
008F90: 2B 31 29 3E 30 20 54 48 45 4E 20 32 33 30 0D 0A +1)>0 THEN 230..
008FA0: 32 31 30 20 42 28 4B 2B 31 29 3D 42 28 4B 29 2B 210 B(K+1)=B(K)+
008FB0: 31 0D 0A 32 32 30 20 47 4F 54 4F 20 32 38 30 0D 1..220 GOTO 280.
008FC0: 0A 32 33 30 20 4D 3D 32 0D 0A 32 34 30 20 49 46 .230 M=2..240 IF
008FD0: 20 42 28 31 29 3C 42 28 32 29 20 41 4E 44 20 42 B(1)<B(2) AND B
008FE0: 28 31 29 3C 42 28 33 29 20 54 48 45 4E 20 5A 3D (1)<B(3) THEN Z=
008FF0: 42 28 31 29 0D 0A 32 34 32 20 49 46 20 42 28 32 B(1)..242 IF B(2
009000: 29 3C 42 28 31 29 20 41 4E 44 20 42 28 32 29 3C )<B(1) AND B(2)<
009010: 42 28 33 29 20 54 48 45 4E 20 5A 3D 42 28 32 29 B(3) THEN Z=B(2)
009020: 0D 0A 32 34 34 20 49 46 20 42 28 33 29 3C 42 28 ..244 IF B(3)<B(
009030: 31 29 20 41 4E 44 20 42 28 33 29 3C 42 28 32 29 1) AND B(3)<B(2)
009040: 20 54 48 45 4E 20 5A 3D 42 28 33 29 0D 0A 32 35 THEN Z=B(3)..25
009050: 30 20 49 46 20 5A 3D 31 20 54 48 45 4E 20 39 30 0 IF Z=1 THEN 90
009060: 0D 0A 32 36 30 20 49 46 20 46 28 41 2C 5A 2D 31 ..260 IF F(A,Z-1
009070: 29 3E 30 20 54 48 45 4E 20 39 30 0D 0A 32 37 30 )>0 THEN 90..270
009080: 20 42 28 4B 2B 31 29 3D 5A 2D 31 0D 0A 32 38 30 B(K+1)=Z-1..280
009090: 20 4E 45 58 54 20 4B 0D 0A 32 39 30 20 46 28 41 NEXT K..290 F(A
0090A0: 2C 42 29 3D 39 2D 32 2A 49 2D 4A 0D 0A 33 30 30 ,B)=9-2*I-J..300
0090B0: 20 46 4F 52 20 4B 3D 31 20 54 4F 20 4E 0D 0A 33 FOR K=1 TO N..3
0090C0: 31 30 20 46 28 41 2C 42 28 4B 2B 31 29 29 3D 46 10 F(A,B(K+1))=F
0090D0: 28 41 2C 42 29 0D 0A 33 32 30 20 4E 45 58 54 20 (A,B)..320 NEXT
0090E0: 4B 0D 0A 33 33 30 20 47 4F 54 4F 20 39 39 30 0D K..330 GOTO 990.
0090F0: 0A 33 34 30 20 41 28 31 29 3D 41 0D 0A 33 35 30 .340 A(1)=A..350
009100: 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 43 4F 44 45 E FOLLOWING CODE
009110: 20 4F 46 20 54 48 45 20 42 41 44 20 47 55 59 53 OF THE BAD GUYS
009120: 27 20 46 4C 45 45 54 20 44 49 53 50 4F 53 49 54 ' FLEET DISPOSIT
009130: 49 4F 4E 22 0D 0A 31 30 33 30 20 50 52 49 4E 54 ION"..1030 PRINT
009140: 20 22 48 41 53 20 42 45 45 4E 20 43 41 50 54 55 "HAS BEEN CAPTU
009150: 52 45 44 20 42 55 54 20 4E 4F 54 20 44 45 43 4F RED BUT NOT DECO
009160: 44 45 44 3A 22 0D 0A 31 30 34 30 20 50 52 49 4E DED:"..1040 PRIN
009170: 54 0D 0A 31 30 35 30 20 46 4F 52 20 49 3D 31 20 T..1050 FOR I=1
009180: 54 4F 20 36 0D 0A 31 30 35 31 20 46 4F 52 20 4A TO 6..1051 FOR J
009190: 3D 31 20 54 4F 20 36 0D 0A 31 30 35 32 20 48 28 =1 TO 6..1052 H(
0091A0: 49 2C 4A 29 3D 46 28 4A 2C 49 29 0D 0A 31 30 35 I,J)=F(J,I)..105
0091B0: 33 20 4E 45 58 54 20 4A 0D 0A 31 30 35 34 20 4E 3 NEXT J..1054 N
0091C0: 45 58 54 20 49 0D 0A 31 30 36 30 20 46 4F 52 20 EXT I..1060 FOR
0091D0: 49 3D 31 20 54 4F 20 36 0D 0A 31 30 36 31 20 46 I=1 TO 6..1061 F
0091E0: 4F 52 20 4A 3D 31 20 54 4F 20 36 0D 0A 31 30 36 OR J=1 TO 6..106
0091F0: 32 20 50 52 49 4E 54 20 48 28 49 2C 4A 29 3B 0D 2 PRINT H(I,J);.
009200: 0A 31 30 36 33 20 4E 45 58 54 20 4A 0D 0A 31 30 .1063 NEXT J..10
009210: 36 34 20 50 52 49 4E 54 0D 0A 31 30 36 35 20 4E 64 PRINT..1065 N
009220: 45 58 54 20 49 0D 0A 31 30 37 30 20 50 52 49 4E EXT I..1070 PRIN
009230: 54 0D 0A 31 30 38 30 20 50 52 49 4E 54 20 22 44 T..1080 PRINT "D
009240: 45 2D 43 4F 44 45 20 49 54 20 41 4E 44 20 55 53 E-CODE IT AND US
009250: 45 20 49 54 20 49 46 20 59 4F 55 20 43 41 4E 22 E IT IF YOU CAN"
009260: 0D 0A 31 30 39 30 20 50 52 49 4E 54 20 22 42 55 ..1090 PRINT "BU
009270: 54 20 4B 45 45 50 20 54 48 45 20 44 45 2D 43 4F T KEEP THE DE-CO
009280: 44 49 4E 47 20 4D 45 54 48 4F 44 20 41 20 53 45 DING METHOD A SE
009290: 43 52 45 54 2E 22 0D 0A 31 31 30 30 20 50 52 49 CRET."..1100 PRI
0092A0: 4E 54 0D 0A 31 31 31 30 20 46 4F 52 20 49 3D 31 NT..1110 FOR I=1
0092B0: 20 54 4F 20 36 0D 0A 31 31 31 31 20 46 4F 52 20 TO 6..1111 FOR
0092C0: 4A 3D 31 20 54 4F 20 36 0D 0A 31 31 31 32 20 48 J=1 TO 6..1112 H
0092D0: 28 49 2C 4A 29 3D 30 0D 0A 31 31 31 33 20 4E 45 (I,J)=0..1113 NE
0092E0: 58 54 20 4A 0D 0A 31 31 31 34 20 4E 45 58 54 20 XT J..1114 NEXT
0092F0: 49 0D 0A 31 31 32 30 20 46 4F 52 20 49 3D 31 20 I..1120 FOR I=1
009300: 20 42 28 31 29 3D 42 0D 0A 33 36 30 20 41 28 32 B(1)=B..360 A(2
009310: 29 3D 30 3A 41 28 33 29 3D 30 3A 42 28 32 29 3D )=0:A(3)=0:B(2)=
009320: 30 3A 42 28 33 29 3D 30 0D 0A 33 37 30 20 46 4F 0:B(3)=0..370 FO
009330: 52 20 4B 3D 31 20 54 4F 20 4E 0D 0A 33 38 30 20 R K=1 TO N..380
009340: 49 46 20 4D 3E 31 20 54 48 45 4E 20 34 36 30 0D IF M>1 THEN 460.
009350: 0A 33 39 30 20 49 46 20 41 28 4B 29 3D 31 20 4F .390 IF A(K)=1 O
009360: 52 20 42 28 4B 29 3D 31 20 54 48 45 4E 20 34 35 R B(K)=1 THEN 45
009370: 30 0D 0A 34 30 30 20 49 46 20 46 28 41 28 4B 29 0..400 IF F(A(K)
009380: 2D 31 2C 42 28 4B 29 2D 31 29 3E 30 20 54 48 45 -1,B(K)-1)>0 THE
009390: 4E 20 34 35 30 0D 0A 34 31 30 20 49 46 20 46 28 N 450..410 IF F(
0093A0: 41 28 4B 29 2D 31 2C 42 28 4B 29 29 3E 30 20 41 A(K)-1,B(K))>0 A
0093B0: 4E 44 20 46 28 41 28 4B 29 2D 31 2C 42 28 4B 29 ND F(A(K)-1,B(K)
0093C0: 29 3D 46 28 41 28 4B 29 2C 42 28 4B 29 2D 31 29 )=F(A(K),B(K)-1)
0093D0: 20 54 48 45 4E 20 34 35 30 0D 0A 34 32 30 20 41 THEN 450..420 A
0093E0: 28 4B 2B 31 29 3D 41 28 4B 29 2D 31 0D 0A 34 33 (K+1)=A(K)-1..43
0093F0: 30 20 42 28 4B 2B 31 29 3D 42 28 4B 29 2D 31 0D 0 B(K+1)=B(K)-1.
009400: 0A 34 34 30 20 47 4F 54 4F 20 35 33 30 0D 0A 34 .440 GOTO 530..4
009410: 35 30 20 4D 3D 32 0D 0A 34 36 30 20 49 46 20 41 50 M=2..460 IF A
009420: 28 31 29 3E 41 28 32 29 20 41 4E 44 20 41 28 31 (1)>A(2) AND A(1
009430: 29 3E 41 28 33 29 20 54 48 45 4E 20 5A 31 3D 41 )>A(3) THEN Z1=A
009440: 28 31 29 0D 0A 34 36 32 20 49 46 20 41 28 32 29 (1)..462 IF A(2)
009450: 3E 41 28 31 29 20 41 4E 44 20 41 28 32 29 3E 41 >A(1) AND A(2)>A
009460: 28 33 29 20 54 48 45 4E 20 5A 31 3D 41 28 32 29 (3) THEN Z1=A(2)
009470: 0D 0A 34 36 34 20 49 46 20 41 28 33 29 3E 41 28 ..464 IF A(3)>A(
009480: 31 29 20 41 4E 44 20 41 28 33 29 3E 41 28 32 29 1) AND A(3)>A(2)
009490: 20 54 48 45 4E 20 5A 31 3D 41 28 33 29 0D 0A 34 THEN Z1=A(3)..4
0094A0: 37 30 20 49 46 20 42 28 31 29 3E 42 28 32 29 20 70 IF B(1)>B(2)
0094B0: 41 4E 44 20 42 28 31 29 3E 42 28 33 29 20 54 48 AND B(1)>B(3) TH
0094C0: 45 4E 20 5A 32 3D 42 28 31 29 0D 0A 34 37 34 20 EN Z2=B(1)..474
0094D0: 49 46 20 42 28 32 29 3E 42 28 31 29 20 41 4E 44 IF B(2)>B(1) AND
0094E0: 20 42 28 32 29 3E 42 28 33 29 20 54 48 45 4E 20 B(2)>B(3) THEN
0094F0: 5A 32 3D 42 28 32 29 0D 0A 34 37 36 20 49 46 20 Z2=B(2)..476 IF
009500: 54 4F 20 33 0D 0A 31 31 32 31 20 4C 28 49 29 3D TO 3..1121 L(I)=
009510: 30 0D 0A 31 31 32 32 20 4E 45 58 54 20 49 0D 0A 0..1122 NEXT I..
009520: 31 31 33 30 20 43 28 31 29 3D 32 3A 43 28 32 29 1130 C(1)=2:C(2)
009530: 3D 32 0D 0A 31 31 34 30 20 43 28 33 29 3D 31 3A =2..1140 C(3)=1:
009540: 43 28 34 29 3D 31 0D 0A 31 31 35 30 20 43 28 35 C(4)=1..1150 C(5
009550: 29 3D 30 3A 43 28 36 29 3D 30 0D 0A 31 31 36 30 )=0:C(6)=0..1160
009560: 20 53 3D 30 3A 48 3D 30 0D 0A 31 31 37 30 20 50 S=0:H=0..1170 P
009570: 52 49 4E 54 20 22 53 54 41 52 54 20 47 41 4D 45 RINT "START GAME
009580: 22 0D 0A 31 31 38 30 20 49 4E 50 55 54 20 58 2C "..1180 INPUT X,
009590: 59 0D 0A 31 31 39 30 20 49 46 20 58 3C 31 20 4F Y..1190 IF X<1 O
0095A0: 52 20 58 3E 36 20 4F 52 20 49 4E 54 28 58 29 3C R X>6 OR INT(X)<
0095B0: 3E 41 42 53 28 58 29 20 54 48 45 4E 20 31 32 31 >ABS(X) THEN 121
0095C0: 30 0D 0A 31 32 30 30 20 49 46 20 59 3E 30 20 41 0..1200 IF Y>0 A
0095D0: 4E 44 20 59 3C 37 20 41 4E 44 20 49 4E 54 28 59 ND Y<7 AND INT(Y
0095E0: 29 3D 41 42 53 28 59 29 20 54 48 45 4E 20 31 32 )=ABS(Y) THEN 12
0095F0: 33 30 0D 0A 31 32 31 30 20 50 52 49 4E 54 20 22 30..1210 PRINT "
009600: 49 4E 56 41 4C 49 44 20 49 4E 50 55 54 2E 20 20 INVALID INPUT.
009610: 54 52 59 20 41 47 41 49 4E 2E 22 0D 0A 31 32 32 TRY AGAIN."..122
009620: 30 20 47 4F 54 4F 20 31 31 38 30 0D 0A 31 32 33 0 GOTO 1180..123
009630: 30 20 52 3D 37 2D 59 0D 0A 31 32 34 30 20 43 3D 0 R=7-Y..1240 C=
009640: 58 0D 0A 31 32 35 30 20 49 46 20 46 28 52 2C 43 X..1250 IF F(R,C
009650: 29 3E 30 20 54 48 45 4E 20 31 32 39 30 0D 0A 31 )>0 THEN 1290..1
009660: 32 36 30 20 53 3D 53 2B 31 0D 0A 31 32 37 30 20 260 S=S+1..1270
009670: 50 52 49 4E 54 20 22 53 50 4C 41 53 48 21 20 20 PRINT "SPLASH!
009680: 54 52 59 20 41 47 41 49 4E 2E 22 0D 0A 31 32 38 TRY AGAIN."..128
009690: 30 20 47 4F 54 4F 20 31 31 38 30 0D 0A 31 32 39 0 GOTO 1180..129
0096A0: 30 20 49 46 20 43 28 46 28 52 2C 43 29 29 3C 34 0 IF C(F(R,C))<4
0096B0: 20 54 48 45 4E 20 31 33 34 30 0D 0A 31 33 30 30 THEN 1340..1300
0096C0: 20 50 52 49 4E 54 20 22 54 48 45 52 45 20 55 53 PRINT "THERE US
0096D0: 45 44 20 54 4F 20 42 45 20 41 20 53 48 49 50 20 ED TO BE A SHIP
0096E0: 41 54 20 54 48 41 54 20 50 4F 49 4E 54 2C 20 42 AT THAT POINT, B
0096F0: 55 54 20 59 4F 55 20 53 55 4E 4B 20 49 54 2E 22 UT YOU SUNK IT."
009700: 42 28 33 29 3E 42 28 31 29 20 41 4E 44 20 42 28 B(3)>B(1) AND B(
009710: 33 29 3E 42 28 32 29 20 54 48 45 4E 20 5A 32 3D 3)>B(2) THEN Z2=
009720: 42 28 33 29 0D 0A 34 38 30 20 49 46 20 5A 31 3D B(3)..480 IF Z1=
009730: 36 20 4F 52 20 5A 32 3D 36 20 54 48 45 4E 20 39 6 OR Z2=6 THEN 9
009740: 30 0D 0A 34 39 30 20 49 46 20 46 28 5A 31 2B 31 0..490 IF F(Z1+1
009750: 2C 5A 32 2B 31 29 3E 30 20 54 48 45 4E 20 39 30 ,Z2+1)>0 THEN 90
009760: 0D 0A 35 30 30 20 49 46 20 46 28 5A 31 2C 5A 32 ..500 IF F(Z1,Z2
009770: 2B 31 29 3E 30 20 41 4E 44 20 46 28 5A 31 2C 5A +1)>0 AND F(Z1,Z
009780: 32 2B 31 29 3D 46 28 5A 31 2B 31 2C 5A 32 29 20 2+1)=F(Z1+1,Z2)
009790: 54 48 45 4E 20 39 30 0D 0A 35 31 30 20 41 28 4B THEN 90..510 A(K
0097A0: 2B 31 29 3D 5A 31 2B 31 0D 0A 35 32 30 20 42 28 +1)=Z1+1..520 B(
0097B0: 4B 2B 31 29 3D 5A 32 2B 31 0D 0A 35 33 30 20 4E K+1)=Z2+1..530 N
0097C0: 45 58 54 20 4B 0D 0A 35 34 30 20 47 4F 54 4F 20 EXT K..540 GOTO
0097D0: 39 35 30 0D 0A 35 35 30 20 41 28 31 29 3D 41 0D 950..550 A(1)=A.
0097E0: 0A 35 36 30 20 41 28 32 29 3D 37 3A 41 28 33 29 .560 A(2)=7:A(3)
0097F0: 3D 37 0D 0A 35 37 30 20 46 4F 52 20 4B 3D 31 20 =7..570 FOR K=1
009800: 54 4F 20 4E 0D 0A 35 38 30 20 49 46 20 4D 3E 31 TO N..580 IF M>1
009810: 20 54 48 45 4E 20 36 34 30 0D 0A 35 39 30 20 49 THEN 640..590 I
009820: 46 20 41 28 4B 29 3D 36 20 54 48 45 4E 20 36 33 F A(K)=6 THEN 63
009830: 30 0D 0A 36 30 30 20 49 46 20 46 28 41 28 4B 29 0..600 IF F(A(K)
009840: 2B 31 2C 42 29 3E 30 20 54 48 45 4E 20 36 33 30 +1,B)>0 THEN 630
009850: 0D 0A 36 31 30 20 41 28 4B 2B 31 29 3D 41 28 4B ..610 A(K+1)=A(K
009860: 29 2B 31 0D 0A 36 32 30 20 47 4F 54 4F 20 36 38 )+1..620 GOTO 68
009870: 30 0D 0A 36 33 30 20 4D 3D 32 0D 0A 36 34 30 20 0..630 M=2..640
009880: 49 46 20 41 28 31 29 3C 41 28 32 29 20 41 4E 44 IF A(1)<A(2) AND
009890: 20 41 28 31 29 3C 41 28 33 29 20 54 48 45 4E 20 A(1)<A(3) THEN
0098A0: 5A 3D 41 28 31 29 0D 0A 36 34 32 20 49 46 20 41 Z=A(1)..642 IF A
0098B0: 28 32 29 3C 41 28 31 29 20 41 4E 44 20 41 28 32 (2)<A(1) AND A(2
0098C0: 29 3C 41 28 33 29 20 54 48 45 4E 20 5A 3D 41 28 )<A(3) THEN Z=A(
0098D0: 32 29 0D 0A 36 34 34 20 49 46 20 41 28 33 29 3C 2)..644 IF A(3)<
0098E0: 41 28 31 29 20 41 4E 44 20 41 28 33 29 3C 41 28 A(1) AND A(3)<A(
0098F0: 32 29 20 54 48 45 4E 20 5A 3D 41 28 33 29 0D 0A 2) THEN Z=A(3)..
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 00 00 02 09 52 E5 08 00 C1 02 00 00 00 02 ......R.........
009920: 08 00 C6 02 00 00 00 02 08 00 C2 02 00 00 00 02 ................
009930: 08 00 C7 02 00 00 00 02 08 00 C3 02 00 00 00 02 ................
009940: 08 00 C8 02 00 00 00 02 08 00 C4 02 00 00 00 02 ................
009950: 08 00 C9 02 00 00 00 02 08 00 C5 02 00 00 00 02 ................
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A00: 0D 0A 31 33 31 30 20 50 52 49 4E 54 20 22 53 50 ..1310 PRINT "SP
009A10: 4C 41 53 48 21 20 20 54 52 59 20 41 47 41 49 4E LASH! TRY AGAIN
009A20: 2E 22 0D 0A 31 33 32 30 20 53 3D 53 2B 31 0D 0A ."..1320 S=S+1..
009A30: 31 33 33 30 20 47 4F 54 4F 20 31 31 38 30 0D 0A 1330 GOTO 1180..
009A40: 31 33 34 30 20 49 46 20 48 28 52 2C 43 29 3E 30 1340 IF H(R,C)>0
009A50: 20 54 48 45 4E 20 31 34 32 30 0D 0A 31 33 35 30 THEN 1420..1350
009A60: 20 48 3D 48 2B 31 0D 0A 31 33 36 30 20 48 28 52 H=H+1..1360 H(R
009A70: 2C 43 29 3D 46 28 52 2C 43 29 0D 0A 31 33 37 30 ,C)=F(R,C)..1370
009A80: 20 50 52 49 4E 54 20 22 41 20 44 49 52 45 43 54 PRINT "A DIRECT
009A90: 20 48 49 54 20 4F 4E 20 53 48 49 50 20 4E 55 4D HIT ON SHIP NUM
009AA0: 42 45 52 22 3B 46 28 52 2C 43 29 0D 0A 31 33 38 BER";F(R,C)..138
009AB0: 30 20 43 28 46 28 52 2C 43 29 29 3D 43 28 46 28 0 C(F(R,C))=C(F(
009AC0: 52 2C 43 29 29 2B 31 0D 0A 31 33 39 30 20 49 46 R,C))+1..1390 IF
009AD0: 20 43 28 46 28 52 2C 43 29 29 3E 3D 34 20 54 48 C(F(R,C))>=4 TH
009AE0: 45 4E 20 31 34 37 30 0D 0A 31 34 30 30 20 50 52 EN 1470..1400 PR
009AF0: 49 4E 54 20 22 54 52 59 20 41 47 41 49 4E 2E 22 INT "TRY AGAIN."
009B00: 0D 0A 31 34 31 30 20 47 4F 54 4F 20 31 31 38 30 ..1410 GOTO 1180
009B10: 0D 0A 31 34 32 30 20 50 52 49 4E 54 20 22 59 4F ..1420 PRINT "YO
009B20: 55 20 41 4C 52 45 41 44 59 20 50 55 54 20 41 20 U ALREADY PUT A
009B30: 48 4F 4C 45 20 49 4E 20 53 48 49 50 20 4E 55 4D HOLE IN SHIP NUM
009B40: 42 45 52 22 3B 46 28 52 2C 43 29 3B 0D 0A 31 34 BER";F(R,C);..14
009B50: 33 30 20 50 52 49 4E 54 20 22 41 54 20 54 48 41 30 PRINT "AT THA
009B60: 54 20 50 4F 49 4E 54 2E 22 0D 0A 31 34 34 30 20 T POINT."..1440
009B70: 50 52 49 4E 54 20 22 53 50 4C 41 53 48 21 20 20 PRINT "SPLASH!
009B80: 54 52 59 20 41 47 41 49 4E 2E 22 0D 0A 31 34 35 TRY AGAIN."..145
009B90: 30 20 53 3D 53 2B 31 0D 0A 31 34 36 30 20 47 4F 0 S=S+1..1460 GO
009BA0: 54 4F 20 31 31 38 30 0D 0A 31 34 37 30 20 4C 28 TO 1180..1470 L(
009BB0: 28 49 4E 54 28 46 28 52 2C 43 29 2D 31 29 2F 32 (INT(F(R,C)-1)/2
009BC0: 29 2B 31 29 3D 4C 28 28 49 4E 54 28 46 28 52 2C )+1)=L((INT(F(R,
009BD0: 43 29 2D 31 29 2F 32 29 2B 31 29 2B 31 0D 0A 31 C)-1)/2)+1)+1..1
009BE0: 34 38 30 20 50 52 49 4E 54 20 22 41 4E 44 20 59 480 PRINT "AND Y
009BF0: 4F 55 20 53 55 4E 4B 20 49 54 2E 20 20 48 55 52 OU SUNK IT. HUR
009C00: 54 0D 0A 31 33 35 20 49 4E 50 55 54 20 22 54 49 T..135 INPUT "TI
009C10: 4D 45 20 49 4E 43 52 45 4D 45 4E 54 20 28 53 45 ME INCREMENT (SE
009C20: 43 29 22 3B 53 32 0D 0A 31 34 30 20 50 52 49 4E C)";S2..140 PRIN
009C30: 54 0D 0A 31 35 30 20 49 4E 50 55 54 20 22 56 45 T..150 INPUT "VE
009C40: 4C 4F 43 49 54 59 20 28 46 50 53 29 22 3B 56 0D LOCITY (FPS)";V.
009C50: 0A 31 36 30 20 50 52 49 4E 54 0D 0A 31 37 30 20 .160 PRINT..170
009C60: 49 4E 50 55 54 20 22 43 4F 45 46 46 49 43 49 45 INPUT "COEFFICIE
009C70: 4E 54 22 3B 43 0D 0A 31 38 30 20 50 52 49 4E 54 NT";C..180 PRINT
009C80: 0D 0A 31 38 32 20 50 52 49 4E 54 20 22 46 45 45 ..182 PRINT "FEE
009C90: 54 22 0D 0A 31 38 34 20 50 52 49 4E 54 0D 0A 31 T"..184 PRINT..1
009CA0: 38 36 20 53 31 3D 49 4E 54 28 37 30 2F 28 56 2F 86 S1=INT(70/(V/
009CB0: 28 31 36 2A 53 32 29 29 29 0D 0A 31 39 30 20 46 (16*S2)))..190 F
009CC0: 4F 52 20 49 3D 31 20 54 4F 20 53 31 0D 0A 32 30 OR I=1 TO S1..20
009CD0: 30 20 54 28 49 29 3D 56 2A 43 5E 28 49 2D 31 29 0 T(I)=V*C^(I-1)
009CE0: 2F 31 36 0D 0A 32 31 30 20 4E 45 58 54 20 49 0D /16..210 NEXT I.
009CF0: 0A 32 32 30 20 46 4F 52 20 48 3D 49 4E 54 28 2D .220 FOR H=INT(-
009D00: 31 36 2A 28 56 2F 33 32 29 5E 32 2B 56 5E 32 2F 16*(V/32)^2+V^2/
009D10: 33 32 2B 2E 35 29 20 54 4F 20 30 20 53 54 45 50 32+.5) TO 0 STEP
009D20: 20 2D 2E 35 0D 0A 32 32 31 20 49 46 20 49 4E 54 -.5..221 IF INT
009D30: 28 48 29 3C 3E 48 20 54 48 45 4E 20 32 32 35 0D (H)<>H THEN 225.
009D40: 0A 32 32 32 20 50 52 49 4E 54 20 48 3B 0D 0A 32 .222 PRINT H;..2
009D50: 32 35 20 4C 3D 30 0D 0A 32 33 30 20 46 4F 52 20 25 L=0..230 FOR
009D60: 49 3D 31 20 54 4F 20 53 31 0D 0A 32 34 30 20 46 I=1 TO S1..240 F
009D70: 4F 52 20 54 3D 30 20 54 4F 20 54 28 49 29 20 53 OR T=0 TO T(I) S
009D80: 54 45 50 20 53 32 0D 0A 32 34 35 20 4C 3D 4C 2B TEP S2..245 L=L+
009D90: 53 32 0D 0A 32 35 30 20 49 46 20 41 42 53 28 48 S2..250 IF ABS(H
009DA0: 2D 28 2E 35 2A 28 2D 33 32 29 2A 54 5E 32 2B 56 -(.5*(-32)*T^2+V
009DB0: 2A 43 5E 28 49 2D 31 29 2A 54 29 29 3E 2E 32 35 *C^(I-1)*T))>.25
009DC0: 20 54 48 45 4E 20 32 37 30 0D 0A 32 36 30 20 50 THEN 270..260 P
009DD0: 52 49 4E 54 20 54 41 42 28 4C 2F 53 32 29 3B 22 RINT TAB(L/S2);"
009DE0: 30 22 3B 0D 0A 32 37 30 20 4E 45 58 54 20 54 0D 0";..270 NEXT T.
009DF0: 0A 32 37 35 20 54 3D 54 28 49 2B 31 29 2F 32 0D .275 T=T(I+1)/2.
009E00: 52 41 48 20 46 4F 52 20 54 48 45 20 47 4F 4F 44 RAH FOR THE GOOD
009E10: 20 47 55 59 53 2E 22 0D 0A 31 34 39 30 20 50 52 GUYS."..1490 PR
009E20: 49 4E 54 20 22 53 4F 20 46 41 52 2C 20 54 48 45 INT "SO FAR, THE
009E30: 20 42 41 44 20 47 55 59 53 20 48 41 56 45 20 4C BAD GUYS HAVE L
009E40: 4F 53 54 22 0D 0A 31 35 30 30 20 50 52 49 4E 54 OST"..1500 PRINT
009E50: 20 4C 28 31 29 3B 22 44 45 53 54 52 4F 59 45 52 L(1);"DESTROYER
009E60: 28 53 29 2C 22 3B 4C 28 32 29 3B 22 43 52 55 49 (S),";L(2);"CRUI
009E70: 53 45 52 28 53 29 2C 20 41 4E 44 22 3B 0D 0A 31 SER(S), AND";..1
009E80: 35 31 30 20 50 52 49 4E 54 20 4C 28 33 29 3B 22 510 PRINT L(3);"
009E90: 41 49 52 43 52 41 46 54 20 43 41 52 52 49 45 52 AIRCRAFT CARRIER
009EA0: 28 53 29 2E 22 0D 0A 31 35 32 30 20 50 52 49 4E (S)."..1520 PRIN
009EB0: 54 20 22 59 4F 55 52 20 43 55 52 52 45 4E 54 20 T "YOUR CURRENT
009EC0: 53 50 4C 41 53 48 2F 48 49 54 20 52 41 54 49 4F SPLASH/HIT RATIO
009ED0: 20 49 53 22 3B 53 2F 48 0D 0A 31 35 33 30 20 49 IS";S/H..1530 I
009EE0: 46 20 28 4C 28 31 29 2B 4C 28 32 29 2B 4C 28 33 F (L(1)+L(2)+L(3
009EF0: 29 29 3C 36 20 54 48 45 4E 20 31 31 38 30 0D 0A ))<6 THEN 1180..
009F00: 31 35 34 30 20 50 52 49 4E 54 0D 0A 31 35 35 30 1540 PRINT..1550
009F10: 20 50 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 PRINT "YOU HAVE
009F20: 20 54 4F 54 41 4C 4C 59 20 57 49 50 45 44 20 4F TOTALLY WIPED O
009F30: 55 54 20 54 48 45 20 42 41 44 20 47 55 59 53 27 UT THE BAD GUYS'
009F40: 20 46 4C 45 45 54 22 0D 0A 31 35 36 30 20 50 52 FLEET"..1560 PR
009F50: 49 4E 54 20 22 57 49 54 48 20 41 20 46 49 4E 41 INT "WITH A FINA
009F60: 4C 20 53 50 4C 41 53 48 2F 48 49 54 20 52 41 54 L SPLASH/HIT RAT
009F70: 49 4F 20 4F 46 22 3B 53 2F 48 0D 0A 31 35 37 30 IO OF";S/H..1570
009F80: 20 49 46 20 53 2F 48 3E 30 20 54 48 45 4E 20 31 IF S/H>0 THEN 1
009F90: 35 39 30 0D 0A 31 35 38 30 20 50 52 49 4E 54 20 590..1580 PRINT
009FA0: 22 43 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 "CONGRATULATIONS
009FB0: 20 2D 2D 20 41 20 44 49 52 45 43 54 20 48 49 54 -- A DIRECT HIT
009FC0: 20 45 56 45 52 59 20 54 49 4D 45 2E 22 0D 0A 31 EVERY TIME."..1
009FD0: 35 39 30 20 50 52 49 4E 54 0D 0A 31 36 30 30 20 590 PRINT..1600
009FE0: 50 52 49 4E 54 20 22 2A 2A 2A 2A 2A 2A 2A 2A 2A PRINT "*********
009FF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
00A000: 0A 32 37 36 20 49 46 20 2D 31 36 2A 54 5E 32 2B .276 IF -16*T^2+
00A010: 56 2A 43 5E 28 49 2D 31 29 2A 54 3C 48 20 54 48 V*C^(I-1)*T<H TH
00A020: 45 4E 20 32 39 30 0D 0A 32 38 30 20 4E 45 58 54 EN 290..280 NEXT
00A030: 20 49 0D 0A 32 39 30 20 50 52 49 4E 54 0D 0A 33 I..290 PRINT..3
00A040: 30 30 20 4E 45 58 54 20 48 0D 0A 33 31 30 20 50 00 NEXT H..310 P
00A050: 52 49 4E 54 20 54 41 42 28 31 29 3B 0D 0A 33 32 RINT TAB(1);..32
00A060: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 49 4E 54 0 FOR I=1 TO INT
00A070: 28 4C 2B 31 29 2F 53 32 2B 31 0D 0A 33 33 30 20 (L+1)/S2+1..330
00A080: 50 52 49 4E 54 20 22 2E 22 3B 0D 0A 33 34 30 20 PRINT ".";..340
00A090: 4E 45 58 54 20 49 0D 0A 33 35 30 20 50 52 49 4E NEXT I..350 PRIN
00A0A0: 54 0D 0A 33 35 35 20 50 52 49 4E 54 20 22 20 30 T..355 PRINT " 0
00A0B0: 22 3B 0D 0A 33 36 30 20 46 4F 52 20 49 3D 31 20 ";..360 FOR I=1
00A0C0: 54 4F 20 49 4E 54 28 4C 2B 2E 39 39 39 35 29 0D TO INT(L+.9995).
00A0D0: 0A 33 38 30 20 50 52 49 4E 54 20 54 41 42 28 49 .380 PRINT TAB(I
00A0E0: 4E 54 28 49 2F 53 32 29 29 3B 49 3B 0D 0A 33 39 NT(I/S2));I;..39
00A0F0: 30 20 4E 45 58 54 20 49 0D 0A 34 30 30 20 50 52 0 NEXT I..400 PR
00A100: 49 4E 54 0D 0A 34 31 30 20 50 52 49 4E 54 20 54 INT..410 PRINT T
00A110: 41 42 28 49 4E 54 28 4C 2B 31 29 2F 28 32 2A 53 AB(INT(L+1)/(2*S
00A120: 32 29 2D 32 29 3B 22 53 45 43 4F 4E 44 53 22 0D 2)-2);"SECONDS".
00A130: 0A 34 32 30 20 50 52 49 4E 54 0D 0A 34 33 30 20 .420 PRINT..430
00A140: 47 4F 54 4F 20 31 33 35 0D 0A 34 34 30 20 45 4E GOTO 135..440 EN
00A150: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
00A160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A200: 2A 2A 2A 22 0D 0A 31 36 31 30 20 50 52 49 4E 54 ***"..1610 PRINT
00A210: 0D 0A 31 36 32 30 20 47 4F 54 4F 20 35 30 0D 0A ..1620 GOTO 50..
00A220: 31 36 33 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 1630 END........
00A230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00A800: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 10 PRINT TAB(34)
00A810: 3B 22 42 4F 57 4C 22 0D 0A 32 30 20 50 52 49 4E ;"BOWL"..20 PRIN
00A820: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
00A830: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
00A840: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
00A850: 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E 54 ERSEY"..30 PRINT
00A860: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 32 37 :PRINT:PRINT..27
00A870: 30 20 44 49 4D 20 43 28 31 35 29 2C 41 28 31 30 0 DIM C(15),A(10
00A880: 30 2C 36 29 0D 0A 33 36 30 20 50 52 49 4E 54 20 0,6)..360 PRINT
00A890: 22 57 45 4C 43 4F 4D 45 20 54 4F 20 54 48 45 20 "WELCOME TO THE
00A8A0: 41 4C 4C 45 59 22 0D 0A 34 35 30 20 50 52 49 4E ALLEY"..450 PRIN
00A8B0: 54 20 22 42 52 49 4E 47 20 59 4F 55 52 20 46 52 T "BRING YOUR FR
00A8C0: 49 45 4E 44 53 22 0D 0A 35 34 30 20 50 52 49 4E IENDS"..540 PRIN
00A8D0: 54 20 22 4F 4B 41 59 20 4C 45 54 27 53 20 46 49 T "OKAY LET'S FI
00A8E0: 52 53 54 20 47 45 54 20 41 43 51 55 41 49 4E 54 RST GET ACQUAINT
00A8F0: 45 44 22 0D 0A 36 33 30 20 50 52 49 4E 54 20 22 ED"..630 PRINT "
00A900: 22 0D 0A 37 32 30 20 50 52 49 4E 54 20 22 54 48 "..720 PRINT "TH
00A910: 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 28 E INSTRUCTIONS (
00A920: 59 2F 4E 29 22 0D 0A 38 31 30 20 49 4E 50 55 54 Y/N)"..810 INPUT
00A930: 20 5A 24 0D 0A 39 30 30 20 49 46 20 5A 24 3D 22 Z$..900 IF Z$="
00A940: 59 22 20 54 48 45 4E 20 39 39 30 0D 0A 39 36 30 Y" THEN 990..960
00A950: 20 49 46 20 5A 24 3D 22 4E 22 20 54 48 45 4E 20 IF Z$="N" THEN
00A960: 31 35 33 30 0D 0A 39 39 30 20 50 52 49 4E 54 20 1530..990 PRINT
00A970: 22 54 48 45 20 47 41 4D 45 20 4F 46 20 42 4F 57 "THE GAME OF BOW
00A980: 4C 49 4E 47 20 54 41 4B 45 53 20 4D 49 4E 44 20 LING TAKES MIND
00A990: 41 4E 44 20 53 4B 49 4C 4C 2E 44 55 52 49 4E 47 AND SKILL.DURING
00A9A0: 20 54 48 45 20 47 41 4D 45 22 0D 0A 31 30 38 30 THE GAME"..1080
00A9B0: 20 50 52 49 4E 54 20 22 54 48 45 20 43 4F 4D 50 PRINT "THE COMP
00A9C0: 55 54 45 52 20 57 49 4C 4C 20 4B 45 45 50 20 53 UTER WILL KEEP S
00A9D0: 43 4F 52 45 2E 59 4F 55 20 4D 41 59 20 43 4F 4D CORE.YOU MAY COM
00A9E0: 50 45 54 45 20 57 49 54 48 22 0D 0A 31 31 37 30 PETE WITH"..1170
00A9F0: 20 50 52 49 4E 54 20 22 4F 54 48 45 52 20 50 4C PRINT "OTHER PL
00AA00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
00AA10: 3B 22 42 4F 55 4E 43 45 22 0D 0A 32 30 20 50 52 ;"BOUNCE"..20 PR
00AA20: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
00AA30: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
00AA40: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
00AA50: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
00AA60: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
00AA70: 39 30 20 44 49 4D 20 54 28 32 30 29 0D 0A 31 30 90 DIM T(20)..10
00AA80: 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 53 49 0 PRINT "THIS SI
00AA90: 4D 55 4C 41 54 49 4F 4E 20 4C 45 54 53 20 59 4F MULATION LETS YO
00AAA0: 55 20 53 50 45 43 49 46 59 20 54 48 45 20 49 4E U SPECIFY THE IN
00AAB0: 49 54 49 41 4C 20 56 45 4C 4F 43 49 54 59 22 0D ITIAL VELOCITY".
00AAC0: 0A 31 31 30 20 50 52 49 4E 54 20 22 4F 46 20 41 .110 PRINT "OF A
00AAD0: 20 42 41 4C 4C 20 54 48 52 4F 57 4E 20 53 54 52 BALL THROWN STR
00AAE0: 41 49 47 48 54 20 55 50 2C 20 41 4E 44 20 54 48 AIGHT UP, AND TH
00AAF0: 45 20 43 4F 45 46 46 49 43 49 45 4E 54 20 4F 46 E COEFFICIENT OF
00AB00: 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 45 4C "..120 PRINT "EL
00AB10: 41 53 54 49 43 49 54 59 20 4F 46 20 54 48 45 20 ASTICITY OF THE
00AB20: 42 41 4C 4C 2E 20 20 50 4C 45 41 53 45 20 55 53 BALL. PLEASE US
00AB30: 45 20 41 20 44 45 43 49 4D 41 4C 20 46 52 41 43 E A DECIMAL FRAC
00AB40: 54 49 4F 4E 22 0D 0A 31 33 30 20 50 52 49 4E 54 TION"..130 PRINT
00AB50: 20 22 43 4F 45 46 46 49 43 49 45 4E 43 59 20 28 "COEFFICIENCY (
00AB60: 4C 45 53 53 20 54 48 41 4E 20 31 29 2E 22 0D 0A LESS THAN 1)."..
00AB70: 31 33 31 20 50 52 49 4E 54 0D 0A 31 33 32 20 50 131 PRINT..132 P
00AB80: 52 49 4E 54 20 22 59 4F 55 20 41 4C 53 4F 20 53 RINT "YOU ALSO S
00AB90: 50 45 43 49 46 59 20 54 48 45 20 54 49 4D 45 20 PECIFY THE TIME
00ABA0: 49 4E 43 52 45 4D 45 4E 54 20 54 4F 20 42 45 20 INCREMENT TO BE
00ABB0: 55 53 45 44 20 49 4E 22 0D 0A 31 33 33 20 50 52 USED IN"..133 PR
00ABC0: 49 4E 54 20 22 27 53 54 52 4F 42 49 4E 47 27 20 INT "'STROBING'
00ABD0: 54 48 45 20 42 41 4C 4C 27 53 20 46 4C 49 47 48 THE BALL'S FLIGH
00ABE0: 54 20 28 54 52 59 20 2E 31 20 49 4E 49 54 49 41 T (TRY .1 INITIA
00ABF0: 4C 4C 59 29 2E 22 0D 0A 31 33 34 20 50 52 49 4E LLY)."..134 PRIN
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 00 00 02 09 52 E5 09 00 C1 02 00 00 00 02 ......R.........
00AC20: 09 00 C6 02 00 00 00 02 09 00 C2 02 00 00 00 02 ................
00AC30: 09 00 C7 02 00 00 00 02 09 00 C3 02 00 00 00 02 ................
00AC40: 09 00 C8 02 00 00 00 02 09 00 C4 02 00 00 00 02 ................
00AC50: 09 00 C9 02 00 00 00 02 09 00 C5 02 00 00 00 02 ................
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: 41 59 45 52 53 5B 55 50 20 54 4F 20 46 4F 55 52 AYERS[UP TO FOUR
00AD10: 5D 2E 59 4F 55 20 57 49 4C 4C 20 42 45 20 50 4C ].YOU WILL BE PL
00AD20: 41 59 49 4E 47 20 54 45 4E 20 46 52 41 4D 45 53 AYING TEN FRAMES
00AD30: 22 0D 0A 31 32 36 30 20 50 52 49 4E 54 20 22 4F "..1260 PRINT "O
00AD40: 4E 20 54 48 45 20 50 49 4E 20 44 49 41 47 52 41 N THE PIN DIAGRA
00AD50: 4D 20 27 4F 27 20 4D 45 41 4E 53 20 54 48 45 20 M 'O' MEANS THE
00AD60: 50 49 4E 20 49 53 20 44 4F 57 4E 2E 2E 2E 27 2B PIN IS DOWN...'+
00AD70: 27 20 4D 45 41 4E 53 20 54 48 45 22 0D 0A 31 33 ' MEANS THE"..13
00AD80: 35 30 20 50 52 49 4E 54 20 22 50 49 4E 20 49 53 50 PRINT "PIN IS
00AD90: 20 53 54 41 4E 44 49 4E 47 2E 41 46 54 45 52 20 STANDING.AFTER
00ADA0: 54 48 45 20 47 41 4D 45 20 54 48 45 20 43 4F 4D THE GAME THE COM
00ADB0: 50 55 54 45 52 20 57 49 4C 4C 20 53 48 4F 57 20 PUTER WILL SHOW
00ADC0: 59 4F 55 52 22 0D 0A 31 34 34 30 20 50 52 49 4E YOUR"..1440 PRIN
00ADD0: 54 20 22 53 43 4F 52 45 53 20 2E 22 0D 0A 31 35 T "SCORES ."..15
00ADE0: 33 30 20 50 52 49 4E 54 20 22 46 49 52 53 54 20 30 PRINT "FIRST
00ADF0: 4F 46 20 41 4C 4C 2E 2E 2E 48 4F 57 20 4D 41 4E OF ALL...HOW MAN
00AE00: 59 20 41 52 45 20 50 4C 41 59 49 4E 47 22 3B 0D Y ARE PLAYING";.
00AE10: 0A 31 36 32 30 20 49 4E 50 55 54 20 52 0D 0A 31 .1620 INPUT R..1
00AE20: 37 31 30 20 50 52 49 4E 54 20 0D 0A 31 38 30 30 710 PRINT ..1800
00AE30: 20 50 52 49 4E 54 20 22 56 45 52 59 20 47 4F 4F PRINT "VERY GOO
00AE40: 44 2E 2E 2E 22 0D 0A 31 38 39 30 20 46 4F 52 20 D..."..1890 FOR
00AE50: 49 3D 31 20 54 4F 20 31 30 30 3A 20 46 4F 52 20 I=1 TO 100: FOR
00AE60: 4A 3D 31 20 54 4F 20 36 3A 20 41 28 49 2C 4A 29 J=1 TO 6: A(I,J)
00AE70: 3D 30 3A 20 4E 45 58 54 20 4A 3A 20 4E 45 58 54 =0: NEXT J: NEXT
00AE80: 20 49 0D 0A 31 39 38 30 20 46 3D 31 0D 0A 32 30 I..1980 F=1..20
00AE90: 37 30 20 46 4F 52 20 50 3D 31 20 54 4F 20 52 0D 70 FOR P=1 TO R.
00AEA0: 0A 32 31 36 30 20 4D 3D 30 0D 0A 32 32 35 30 20 .2160 M=0..2250
00AEB0: 42 3D 31 0D 0A 32 33 34 30 20 4D 3D 30 3A 20 51 B=1..2340 M=0: Q
00AEC0: 3D 30 0D 0A 32 34 33 30 20 46 4F 52 20 49 3D 31 =0..2430 FOR I=1
00AED0: 20 54 4F 20 31 35 3A 20 43 28 49 29 3D 30 3A 20 TO 15: C(I)=0:
00AEE0: 4E 45 58 54 20 49 0D 0A 32 35 32 30 20 52 45 4D NEXT I..2520 REM
00AEF0: 20 41 52 4B 20 42 41 4C 4C 20 47 45 4E 45 52 41 ARK BALL GENERA
00AF00: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
00AF10: 22 42 4F 58 49 4E 47 22 0D 0A 32 20 50 52 49 4E "BOXING"..2 PRIN
00AF20: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
00AF30: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
00AF40: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
00AF50: 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A ERSEY"..3 PRINT:
00AF60: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 50 PRINT:PRINT..4 P
00AF70: 52 49 4E 54 20 22 42 4F 58 49 4E 47 20 4F 4C 59 RINT "BOXING OLY
00AF80: 4D 50 49 43 20 53 54 59 4C 45 20 28 33 20 52 4F MPIC STYLE (3 RO
00AF90: 55 4E 44 53 20 2D 2D 20 32 20 4F 55 54 20 4F 46 UNDS -- 2 OUT OF
00AFA0: 20 33 20 57 49 4E 53 29 22 0D 0A 35 20 4A 3D 30 3 WINS)"..5 J=0
00AFB0: 0D 0A 36 20 4C 3D 30 0D 0A 38 20 50 52 49 4E 54 ..6 L=0..8 PRINT
00AFC0: 0D 0A 31 30 20 50 52 49 4E 54 20 22 57 48 41 54 ..10 PRINT "WHAT
00AFD0: 20 49 53 20 59 4F 55 52 20 4F 50 50 4F 4E 45 4E IS YOUR OPPONEN
00AFE0: 54 27 53 20 4E 41 4D 45 22 3B 0D 0A 32 30 20 49 T'S NAME";..20 I
00AFF0: 4E 50 55 54 20 4A 24 0D 0A 33 30 20 50 52 49 4E NPUT J$..30 PRIN
00B000: 54 20 22 49 4E 50 55 54 20 59 4F 55 52 20 4D 41 T "INPUT YOUR MA
00B010: 4E 27 53 20 4E 41 4D 45 22 3B 0D 0A 34 30 20 49 N'S NAME";..40 I
00B020: 4E 50 55 54 20 4C 24 0D 0A 35 30 20 50 52 49 4E NPUT L$..50 PRIN
00B030: 54 20 22 44 49 46 46 45 52 45 4E 54 20 50 55 4E T "DIFFERENT PUN
00B040: 43 48 45 53 20 41 52 45 3A 20 28 31 29 20 46 55 CHES ARE: (1) FU
00B050: 4C 4C 20 53 57 49 4E 47 3B 20 28 32 29 20 48 4F LL SWING; (2) HO
00B060: 4F 4B 3B 20 28 33 29 20 55 50 50 45 52 43 55 54 OK; (3) UPPERCUT
00B070: 3B 20 28 34 29 20 4A 41 42 2E 22 0D 0A 36 30 20 ; (4) JAB."..60
00B080: 50 52 49 4E 54 20 22 57 48 41 54 20 49 53 20 59 PRINT "WHAT IS Y
00B090: 4F 55 52 20 4D 41 4E 53 20 42 45 53 54 22 3B 0D OUR MANS BEST";.
00B0A0: 0A 36 34 20 49 4E 50 55 54 20 42 0D 0A 37 30 20 .64 INPUT B..70
00B0B0: 50 52 49 4E 54 20 22 57 48 41 54 20 49 53 20 48 PRINT "WHAT IS H
00B0C0: 49 53 20 56 55 4C 4E 45 52 41 42 49 4C 49 54 59 IS VULNERABILITY
00B0D0: 22 3B 0D 0A 38 30 20 49 4E 50 55 54 20 44 0D 0A ";..80 INPUT D..
00B0E0: 39 30 20 42 31 3D 49 4E 54 28 34 2A 52 4E 44 28 90 B1=INT(4*RND(
00B0F0: 31 29 2B 31 29 0D 0A 31 30 30 20 44 31 3D 49 4E 1)+1)..100 D1=IN
00B100: 54 4F 52 20 55 53 49 4E 47 20 4D 4F 44 20 27 31 TOR USING MOD '1
00B110: 35 27 20 53 59 53 54 45 4D 0D 0A 32 36 31 30 20 5' SYSTEM..2610
00B120: 50 52 49 4E 54 20 22 54 59 50 45 20 52 4F 4C 4C PRINT "TYPE ROLL
00B130: 20 54 4F 20 47 45 54 20 54 48 45 20 42 41 4C 4C TO GET THE BALL
00B140: 20 47 4F 49 4E 47 2E 22 0D 0A 32 37 30 30 20 49 GOING."..2700 I
00B150: 4E 50 55 54 20 4E 24 0D 0A 32 37 39 30 20 4B 3D NPUT N$..2790 K=
00B160: 30 3A 20 44 3D 30 0D 0A 32 38 38 30 20 46 4F 52 0: D=0..2880 FOR
00B170: 20 49 3D 31 20 54 4F 20 32 30 0D 0A 32 39 37 30 I=1 TO 20..2970
00B180: 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 2A 31 30 X=INT(RND(1)*10
00B190: 30 29 0D 0A 33 30 36 30 20 46 4F 52 20 4A 3D 31 0)..3060 FOR J=1
00B1A0: 20 54 4F 20 31 30 0D 0A 33 31 35 30 20 49 46 20 TO 10..3150 IF
00B1B0: 58 3C 31 35 2A 4A 20 54 48 45 4E 20 33 33 33 30 X<15*J THEN 3330
00B1C0: 0D 0A 33 32 34 30 20 4E 45 58 54 20 4A 0D 0A 33 ..3240 NEXT J..3
00B1D0: 33 33 30 20 43 28 31 35 2A 4A 2D 58 29 3D 31 0D 330 C(15*J-X)=1.
00B1E0: 0A 33 34 32 30 20 4E 45 58 54 20 49 0D 0A 33 35 .3420 NEXT I..35
00B1F0: 31 30 20 52 45 4D 20 41 52 4B 20 50 49 4E 20 44 10 REM ARK PIN D
00B200: 49 41 47 52 41 4D 0D 0A 33 36 30 30 20 50 52 49 IAGRAM..3600 PRI
00B210: 4E 54 20 22 50 4C 41 59 45 52 3A 22 50 3B 22 46 NT "PLAYER:"P;"F
00B220: 52 41 4D 45 3A 22 3B 46 22 42 41 4C 4C 3A 22 42 RAME:";F"BALL:"B
00B230: 0D 0A 33 36 39 30 20 46 4F 52 20 49 3D 30 20 54 ..3690 FOR I=0 T
00B240: 4F 20 33 0D 0A 33 37 38 30 20 50 52 49 4E 54 0D O 3..3780 PRINT.
00B250: 0A 33 38 37 30 20 46 4F 52 20 4A 3D 31 20 54 4F .3870 FOR J=1 TO
00B260: 20 34 2D 49 0D 0A 33 39 36 30 20 4B 3D 4B 2B 31 4-I..3960 K=K+1
00B270: 0D 0A 34 30 35 30 20 49 46 20 43 28 4B 29 3D 31 ..4050 IF C(K)=1
00B280: 20 54 48 45 4E 20 34 33 32 30 0D 0A 34 31 34 30 THEN 4320..4140
00B290: 20 50 52 49 4E 54 20 54 41 42 28 49 29 3B 22 2B PRINT TAB(I);"+
00B2A0: 20 22 3B 0D 0A 34 32 33 30 20 47 4F 54 4F 20 34 ";..4230 GOTO 4
00B2B0: 34 31 30 0D 0A 34 33 32 30 20 50 52 49 4E 54 20 410..4320 PRINT
00B2C0: 54 41 42 28 49 29 3B 22 4F 20 22 3B 0D 0A 34 34 TAB(I);"O ";..44
00B2D0: 31 30 20 4E 45 58 54 20 4A 0D 0A 34 35 30 30 20 10 NEXT J..4500
00B2E0: 4E 45 58 54 20 49 0D 0A 34 35 39 30 20 50 52 49 NEXT I..4590 PRI
00B2F0: 4E 54 20 22 22 0D 0A 34 36 38 30 20 52 45 4D 20 NT ""..4680 REM
00B300: 54 28 34 2A 52 4E 44 28 31 29 2B 31 29 0D 0A 31 T(4*RND(1)+1)..1
00B310: 31 30 20 49 46 20 42 31 3D 44 31 20 54 48 45 4E 10 IF B1=D1 THEN
00B320: 20 39 30 0D 0A 31 32 30 20 50 52 49 4E 54 20 4A 90..120 PRINT J
00B330: 24 3B 22 27 53 20 41 44 56 41 4E 54 41 47 45 20 $;"'S ADVANTAGE
00B340: 49 53 22 3B 42 31 3B 22 41 4E 44 20 56 55 4C 4E IS";B1;"AND VULN
00B350: 45 52 41 42 49 4C 49 54 59 20 49 53 20 53 45 43 ERABILITY IS SEC
00B360: 52 45 54 2E 22 3A 50 52 49 4E 54 0D 0A 31 33 30 RET.":PRINT..130
00B370: 20 46 4F 52 20 52 3D 31 20 54 4F 20 33 0D 0A 31 FOR R=1 TO 3..1
00B380: 34 30 20 49 46 20 4A 3E 3D 20 32 20 54 48 45 4E 40 IF J>= 2 THEN
00B390: 20 31 30 34 30 0D 0A 31 35 30 20 49 46 20 4C 3E 1040..150 IF L>
00B3A0: 3D 32 20 54 48 45 4E 20 31 30 36 30 0D 0A 31 36 =2 THEN 1060..16
00B3B0: 30 20 58 3D 30 0D 0A 31 37 30 20 59 3D 30 0D 0A 0 X=0..170 Y=0..
00B3C0: 31 38 30 20 50 52 49 4E 54 20 22 52 4F 55 4E 44 180 PRINT "ROUND
00B3D0: 22 3B 52 3B 22 42 45 47 49 4E 53 2E 2E 2E 22 0D ";R;"BEGINS...".
00B3E0: 0A 31 38 35 20 46 4F 52 20 52 31 3D 20 31 20 54 .185 FOR R1= 1 T
00B3F0: 4F 20 37 0D 0A 31 39 30 20 49 3D 49 4E 54 28 31 O 7..190 I=INT(1
00B400: 30 2A 52 4E 44 28 31 29 2B 31 29 0D 0A 32 30 30 0*RND(1)+1)..200
00B410: 20 49 46 20 49 3E 35 20 54 48 45 4E 20 36 30 30 IF I>5 THEN 600
00B420: 0D 0A 32 31 30 20 50 52 49 4E 54 20 4C 24 3B 22 ..210 PRINT L$;"
00B430: 27 53 20 50 55 4E 43 48 22 3B 0D 0A 32 32 30 20 'S PUNCH";..220
00B440: 49 4E 50 55 54 20 50 0D 0A 32 32 31 20 49 46 20 INPUT P..221 IF
00B450: 50 3D 42 20 54 48 45 4E 20 32 32 35 0D 0A 32 32 P=B THEN 225..22
00B460: 32 20 47 4F 54 4F 20 32 33 30 0D 0A 32 32 35 20 2 GOTO 230..225
00B470: 58 3D 58 2B 32 0D 0A 32 33 30 20 49 46 20 50 3D X=X+2..230 IF P=
00B480: 31 20 54 48 45 4E 20 33 34 30 0D 0A 32 34 30 20 1 THEN 340..240
00B490: 49 46 20 50 3D 32 20 54 48 45 4E 20 34 35 30 0D IF P=2 THEN 450.
00B4A0: 0A 32 35 30 20 49 46 20 50 3D 33 20 54 48 45 4E .250 IF P=3 THEN
00B4B0: 20 35 32 30 0D 0A 32 37 30 20 50 52 49 4E 54 20 520..270 PRINT
00B4C0: 4C 24 3B 22 20 4A 41 42 53 20 41 54 20 22 3B 4A L$;" JABS AT ";J
00B4D0: 24 22 27 53 20 48 45 41 44 20 22 3B 0D 0A 32 37 $"'S HEAD ";..27
00B4E0: 31 20 49 46 20 44 31 3D 34 20 54 48 45 4E 20 32 1 IF D1=4 THEN 2
00B4F0: 39 30 0D 0A 32 37 35 20 43 3D 49 4E 54 28 38 2A 90..275 C=INT(8*
00B500: 41 52 4B 20 52 4F 4C 4C 20 41 4E 41 4C 59 53 49 ARK ROLL ANALYSI
00B510: 53 0D 0A 34 37 37 30 20 46 4F 52 20 49 3D 31 20 S..4770 FOR I=1
00B520: 54 4F 20 31 30 0D 0A 34 38 36 30 20 44 3D 44 2B TO 10..4860 D=D+
00B530: 43 28 49 29 0D 0A 34 39 35 30 20 4E 45 58 54 20 C(I)..4950 NEXT
00B540: 49 0D 0A 35 30 34 30 20 49 46 20 44 2D 4D 20 3C I..5040 IF D-M <
00B550: 3E 20 30 20 54 48 45 4E 20 35 32 32 30 0D 0A 35 > 0 THEN 5220..5
00B560: 31 33 30 20 50 52 49 4E 54 20 22 47 55 54 54 45 130 PRINT "GUTTE
00B570: 52 21 21 22 0D 0A 35 32 32 30 20 49 46 20 42 3C R!!"..5220 IF B<
00B580: 3E 31 20 4F 52 20 44 3C 3E 31 30 20 54 48 45 4E >1 OR D<>10 THEN
00B590: 20 35 34 39 30 0D 0A 35 33 31 30 20 50 52 49 4E 5490..5310 PRIN
00B5A0: 54 20 22 53 54 52 49 4B 45 21 21 21 21 21 07 07 T "STRIKE!!!!!..
00B5B0: 07 07 22 0D 0A 35 34 30 30 20 51 3D 33 0D 0A 35 .."..5400 Q=3..5
00B5C0: 34 39 30 20 49 46 20 42 3C 3E 32 20 4F 52 20 44 490 IF B<>2 OR D
00B5D0: 3C 3E 31 30 20 54 48 45 4E 20 35 37 36 30 0D 0A <>10 THEN 5760..
00B5E0: 35 35 38 30 20 50 52 49 4E 54 20 22 53 50 41 52 5580 PRINT "SPAR
00B5F0: 45 21 21 21 21 22 0D 0A 35 36 37 30 20 51 3D 32 E!!!!"..5670 Q=2
00B600: 0D 0A 35 37 36 30 20 49 46 20 42 3C 3E 32 20 4F ..5760 IF B<>2 O
00B610: 52 20 44 3E 3D 31 30 20 54 48 45 4E 20 36 30 33 R D>=10 THEN 603
00B620: 30 0D 0A 35 38 35 30 20 50 52 49 4E 54 20 22 45 0..5850 PRINT "E
00B630: 52 52 4F 52 21 21 21 22 0D 0A 35 39 34 30 20 51 RROR!!!"..5940 Q
00B640: 3D 31 0D 0A 36 30 33 30 20 49 46 20 42 3C 3E 31 =1..6030 IF B<>1
00B650: 20 4F 52 20 44 3E 3D 31 30 20 54 48 45 4E 20 36 OR D>=10 THEN 6
00B660: 32 31 30 0D 0A 36 31 32 30 20 50 52 49 4E 54 20 210..6120 PRINT
00B670: 22 52 4F 4C 4C 20 59 4F 55 52 20 32 4E 44 20 42 "ROLL YOUR 2ND B
00B680: 41 4C 4C 22 0D 0A 36 32 31 30 20 52 45 4D 20 41 ALL"..6210 REM A
00B690: 52 4B 20 53 54 4F 52 41 47 45 20 4F 46 20 54 48 RK STORAGE OF TH
00B6A0: 45 20 53 43 4F 52 45 53 0D 0A 36 33 30 30 20 50 E SCORES..6300 P
00B6B0: 52 49 4E 54 20 0D 0A 36 33 39 30 20 41 28 46 2A RINT ..6390 A(F*
00B6C0: 50 2C 42 29 3D 44 0D 0A 36 34 38 30 20 49 46 20 P,B)=D..6480 IF
00B6D0: 42 3D 32 20 54 48 45 4E 20 37 30 32 30 0D 0A 36 B=2 THEN 7020..6
00B6E0: 35 37 30 20 42 3D 32 0D 0A 36 36 36 30 20 4D 3D 570 B=2..6660 M=
00B6F0: 44 0D 0A 36 37 35 30 20 49 46 20 51 3D 33 20 54 D..6750 IF Q=3 T
00B700: 52 4E 44 28 31 29 2B 31 29 0D 0A 32 38 30 20 49 RND(1)+1)..280 I
00B710: 46 20 43 3C 34 20 54 48 45 4E 20 33 31 30 0D 0A F C<4 THEN 310..
00B720: 32 39 30 20 58 3D 58 2B 33 0D 0A 33 30 30 20 47 290 X=X+3..300 G
00B730: 4F 54 4F 20 39 35 30 0D 0A 33 31 30 20 50 52 49 OTO 950..310 PRI
00B740: 4E 54 20 22 49 54 27 53 20 42 4C 4F 43 4B 45 44 NT "IT'S BLOCKED
00B750: 2E 22 0D 0A 33 33 30 20 47 4F 54 4F 20 39 35 30 ."..330 GOTO 950
00B760: 0D 0A 33 34 30 20 50 52 49 4E 54 20 4C 24 20 22 ..340 PRINT L$ "
00B770: 20 53 57 49 4E 47 53 20 41 4E 44 20 22 3B 0D 0A SWINGS AND ";..
00B780: 33 34 31 20 49 46 20 44 31 3D 34 20 54 48 45 4E 341 IF D1=4 THEN
00B790: 20 34 31 30 0D 0A 33 34 35 20 58 33 3D 49 4E 54 410..345 X3=INT
00B7A0: 28 33 30 2A 52 4E 44 28 31 29 2B 31 29 0D 0A 33 (30*RND(1)+1)..3
00B7B0: 35 30 20 49 46 20 58 33 3C 31 30 20 54 48 45 4E 50 IF X3<10 THEN
00B7C0: 20 34 31 30 0D 0A 33 36 30 20 50 52 49 4E 54 20 410..360 PRINT
00B7D0: 22 48 45 20 4D 49 53 53 45 53 20 22 3B 0D 0A 33 "HE MISSES ";..3
00B7E0: 37 30 20 50 52 49 4E 54 0D 0A 33 37 35 20 49 46 70 PRINT..375 IF
00B7F0: 20 58 3D 31 20 54 48 45 4E 20 39 35 30 0D 0A 33 X=1 THEN 950..3
00B800: 38 30 20 50 52 49 4E 54 0D 0A 33 39 30 20 50 52 80 PRINT..390 PR
00B810: 49 4E 54 0D 0A 34 30 30 20 47 4F 54 4F 20 33 30 INT..400 GOTO 30
00B820: 30 0D 0A 34 31 30 20 50 52 49 4E 54 20 22 48 45 0..410 PRINT "HE
00B830: 20 43 4F 4E 4E 45 43 54 53 21 22 0D 0A 34 32 30 CONNECTS!"..420
00B840: 20 49 46 20 58 3E 33 35 20 54 48 45 4E 20 39 38 IF X>35 THEN 98
00B850: 30 0D 0A 34 32 35 20 58 3D 58 2B 31 35 0D 0A 34 0..425 X=X+15..4
00B860: 34 30 20 47 4F 54 4F 20 33 30 30 0D 0A 34 35 30 40 GOTO 300..450
00B870: 20 50 52 49 4E 54 20 4C 24 3B 22 20 47 49 56 45 PRINT L$;" GIVE
00B880: 53 20 54 48 45 20 48 4F 4F 4B 2E 2E 2E 20 22 3B S THE HOOK... ";
00B890: 0D 0A 34 35 35 20 49 46 20 44 31 3D 32 20 54 48 ..455 IF D1=2 TH
00B8A0: 45 4E 20 34 38 30 0D 0A 34 36 30 20 48 31 3D 49 EN 480..460 H1=I
00B8B0: 4E 54 28 32 2A 52 4E 44 28 31 29 2B 31 29 0D 0A NT(2*RND(1)+1)..
00B8C0: 34 37 30 20 49 46 20 48 31 3D 31 20 54 48 45 4E 470 IF H1=1 THEN
00B8D0: 20 35 30 30 0D 0A 34 37 35 20 50 52 49 4E 54 20 500..475 PRINT
00B8E0: 22 43 4F 4E 4E 45 43 54 53 2E 2E 2E 22 0D 0A 34 "CONNECTS..."..4
00B8F0: 38 30 20 58 3D 58 2B 37 0D 0A 34 39 30 20 47 4F 80 X=X+7..490 GO
00B900: 48 45 4E 20 36 32 31 30 0D 0A 36 38 34 30 20 41 HEN 6210..6840 A
00B910: 28 46 2A 50 2C 42 29 3D 44 2D 4D 0D 0A 36 39 33 (F*P,B)=D-M..693
00B920: 30 20 49 46 20 51 3D 30 20 54 48 45 4E 20 32 35 0 IF Q=0 THEN 25
00B930: 32 30 0D 0A 37 30 32 30 20 41 28 46 2A 50 2C 33 20..7020 A(F*P,3
00B940: 29 3D 51 0D 0A 37 31 31 30 20 4E 45 58 54 20 50 )=Q..7110 NEXT P
00B950: 0D 0A 37 32 30 30 20 46 3D 46 2B 31 0D 0A 37 32 ..7200 F=F+1..72
00B960: 39 30 20 49 46 20 46 3C 31 31 20 54 48 45 4E 20 90 IF F<11 THEN
00B970: 32 30 37 30 0D 0A 37 32 39 35 20 50 52 49 4E 54 2070..7295 PRINT
00B980: 20 22 46 52 41 4D 45 53 22 0D 0A 37 33 38 30 20 "FRAMES"..7380
00B990: 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 0D 0A 37 FOR I=1 TO 10..7
00B9A0: 34 37 30 20 50 52 49 4E 54 20 49 3B 0D 0A 37 35 470 PRINT I;..75
00B9B0: 36 30 20 4E 45 58 54 20 49 0D 0A 37 36 35 30 20 60 NEXT I..7650
00B9C0: 50 52 49 4E 54 20 0D 0A 37 37 34 30 20 46 4F 52 PRINT ..7740 FOR
00B9D0: 20 50 3D 31 20 54 4F 20 52 0D 0A 37 38 33 30 20 P=1 TO R..7830
00B9E0: 46 4F 52 20 49 3D 31 20 54 4F 20 33 0D 0A 37 39 FOR I=1 TO 3..79
00B9F0: 32 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 31 30 20 FOR J=1 TO 10
00BA00: 0D 0A 38 30 31 30 20 50 52 49 4E 54 20 41 28 4A ..8010 PRINT A(J
00BA10: 2A 50 2C 49 29 3B 0D 0A 38 31 30 30 20 4E 45 58 *P,I);..8100 NEX
00BA20: 54 20 4A 0D 0A 38 31 30 35 20 50 52 49 4E 54 20 T J..8105 PRINT
00BA30: 0D 0A 38 31 39 30 20 4E 45 58 54 20 49 0D 0A 38 ..8190 NEXT I..8
00BA40: 32 38 30 20 50 52 49 4E 54 20 0D 0A 38 33 37 30 280 PRINT ..8370
00BA50: 20 4E 45 58 54 20 50 0D 0A 38 34 36 30 20 50 52 NEXT P..8460 PR
00BA60: 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 INT "DO YOU WANT
00BA70: 20 41 4E 4F 54 48 45 52 20 47 41 4D 45 22 0D 0A ANOTHER GAME"..
00BA80: 38 35 35 30 20 49 4E 50 55 54 20 41 24 0D 0A 38 8550 INPUT A$..8
00BA90: 36 34 30 20 49 46 20 4C 45 46 54 24 28 41 24 2C 640 IF LEFT$(A$,
00BAA0: 31 29 3D 22 59 22 20 54 48 45 4E 20 32 36 31 30 1)="Y" THEN 2610
00BAB0: 0D 0A 38 37 33 30 20 45 4E 44 0D 0A 1A E5 E5 E5 ..8730 END......
00BAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BB00: 54 4F 20 33 30 30 0D 0A 35 30 30 20 50 52 49 4E TO 300..500 PRIN
00BB10: 54 20 22 42 55 54 20 49 54 27 53 20 42 4C 4F 43 T "BUT IT'S BLOC
00BB20: 4B 45 44 21 21 21 21 21 21 21 21 21 21 21 21 21 KED!!!!!!!!!!!!!
00BB30: 22 0D 0A 35 31 30 20 47 4F 54 4F 20 33 30 30 0D "..510 GOTO 300.
00BB40: 0A 35 32 30 20 50 52 49 4E 54 20 4C 24 20 22 20 .520 PRINT L$ "
00BB50: 54 52 49 45 53 20 41 4E 20 55 50 50 45 52 43 55 TRIES AN UPPERCU
00BB60: 54 20 22 3B 0D 0A 35 33 30 20 49 46 20 44 31 3D T ";..530 IF D1=
00BB70: 33 20 54 48 45 4E 20 35 37 30 0D 0A 35 34 30 20 3 THEN 570..540
00BB80: 44 35 3D 49 4E 54 28 31 30 30 2A 52 4E 44 28 31 D5=INT(100*RND(1
00BB90: 29 2B 31 29 0D 0A 35 35 30 20 49 46 20 44 35 3C )+1)..550 IF D5<
00BBA0: 35 31 20 54 48 45 4E 20 35 37 30 0D 0A 35 36 30 51 THEN 570..560
00BBB0: 20 50 52 49 4E 54 20 22 41 4E 44 20 49 54 27 53 PRINT "AND IT'S
00BBC0: 20 42 4C 4F 43 4B 45 44 20 28 4C 55 43 4B 59 20 BLOCKED (LUCKY
00BBD0: 42 4C 4F 43 4B 21 29 22 0D 0A 35 36 35 20 47 4F BLOCK!)"..565 GO
00BBE0: 54 4F 20 33 30 30 0D 0A 35 37 30 20 50 52 49 4E TO 300..570 PRIN
00BBF0: 54 20 22 41 4E 44 20 48 45 20 43 4F 4E 4E 45 43 T "AND HE CONNEC
00BC00: 54 53 21 22 0D 0A 35 38 30 20 58 3D 58 2B 34 0D TS!"..580 X=X+4.
00BC10: 0A 35 39 30 20 47 4F 54 4F 20 33 30 30 0D 0A 36 .590 GOTO 300..6
00BC20: 30 30 20 4A 37 3D 49 4E 54 28 34 2A 52 4E 44 28 00 J7=INT(4*RND(
00BC30: 31 29 2B 31 29 0D 0A 36 30 31 20 49 46 20 4A 37 1)+1)..601 IF J7
00BC40: 20 3D 42 31 20 54 48 45 4E 20 36 30 35 0D 0A 36 =B1 THEN 605..6
00BC50: 30 32 20 47 4F 54 4F 20 36 31 30 0D 0A 36 30 35 02 GOTO 610..605
00BC60: 20 59 3D 59 2B 32 0D 0A 36 31 30 20 49 46 20 4A Y=Y+2..610 IF J
00BC70: 37 3D 31 20 54 48 45 4E 20 37 32 30 0D 0A 36 32 7=1 THEN 720..62
00BC80: 30 20 49 46 20 4A 37 3D 32 20 54 48 45 4E 20 38 0 IF J7=2 THEN 8
00BC90: 31 30 0D 0A 36 33 30 20 49 46 20 4A 37 20 3D 33 10..630 IF J7 =3
00BCA0: 20 54 48 45 4E 20 38 36 30 0D 0A 36 34 30 20 50 THEN 860..640 P
00BCB0: 52 49 4E 54 20 4A 24 3B 22 20 4A 41 42 53 20 41 RINT J$;" JABS A
00BCC0: 4E 44 20 22 3B 0D 0A 36 34 35 20 49 46 20 44 3D ND ";..645 IF D=
00BCD0: 34 20 54 48 45 4E 20 37 30 30 0D 0A 36 35 30 20 4 THEN 700..650
00BCE0: 5A 34 3D 49 4E 54 28 37 2A 52 4E 44 28 31 29 2B Z4=INT(7*RND(1)+
00BCF0: 31 29 0D 0A 36 35 35 20 49 46 20 5A 34 3E 34 20 1)..655 IF Z4>4
00BD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 00 00 02 09 52 E5 0A 00 C1 02 00 00 00 02 ......R.........
00BF20: 0A 00 C6 02 00 00 00 02 0A 00 C2 02 00 00 00 02 ................
00BF30: 0A 00 C7 02 00 00 00 02 0A 00 C3 02 00 00 00 02 ................
00BF40: 0A 00 C8 02 00 00 00 02 0A 00 C4 02 00 00 00 02 ................
00BF50: 0A 00 C9 02 00 00 00 02 0A 00 C5 02 00 00 00 02 ................
00BF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: 54 48 45 4E 20 36 39 30 0D 0A 36 36 30 20 50 52 THEN 690..660 PR
00C010: 49 4E 54 20 22 49 54 27 53 20 42 4C 4F 43 4B 45 INT "IT'S BLOCKE
00C020: 44 21 22 0D 0A 36 37 30 20 47 4F 54 4F 20 33 30 D!"..670 GOTO 30
00C030: 30 0D 0A 36 39 30 20 50 52 49 4E 54 20 22 20 42 0..690 PRINT " B
00C040: 4C 4F 4F 44 20 53 50 49 4C 4C 53 20 21 21 21 22 LOOD SPILLS !!!"
00C050: 0D 0A 37 30 30 20 59 3D 59 2B 35 0D 0A 37 31 30 ..700 Y=Y+5..710
00C060: 20 47 4F 54 4F 20 33 30 30 0D 0A 37 32 30 20 50 GOTO 300..720 P
00C070: 52 49 4E 54 20 4A 24 22 20 54 41 4B 45 53 20 41 RINT J$" TAKES A
00C080: 20 46 55 4C 4C 20 53 57 49 4E 47 20 41 4E 44 22 FULL SWING AND"
00C090: 3B 0D 0A 37 33 30 20 49 46 20 44 3D 31 20 54 48 ;..730 IF D=1 TH
00C0A0: 45 4E 20 37 37 30 0D 0A 37 34 30 20 52 36 3D 49 EN 770..740 R6=I
00C0B0: 4E 54 28 36 30 2A 52 4E 44 28 31 29 2B 31 29 0D NT(60*RND(1)+1).
00C0C0: 0A 37 34 35 20 49 46 20 52 36 20 3C 33 30 20 54 .745 IF R6 <30 T
00C0D0: 48 45 4E 20 37 37 30 0D 0A 37 35 30 20 50 52 49 HEN 770..750 PRI
00C0E0: 4E 54 20 22 20 49 54 27 53 20 42 4C 4F 43 4B 45 NT " IT'S BLOCKE
00C0F0: 44 21 22 0D 0A 37 36 30 20 47 4F 54 4F 20 33 30 D!"..760 GOTO 30
00C100: 30 0D 0A 37 37 30 20 50 52 49 4E 54 20 22 20 50 0..770 PRINT " P
00C110: 4F 57 21 21 21 21 21 20 48 45 20 48 49 54 53 20 OW!!!!! HE HITS
00C120: 48 49 4D 20 52 49 47 48 54 20 49 4E 20 54 48 45 HIM RIGHT IN THE
00C130: 20 46 41 43 45 21 22 0D 0A 37 38 30 20 49 46 20 FACE!"..780 IF
00C140: 59 3E 33 35 20 54 48 45 4E 20 31 30 31 30 0D 0A Y>35 THEN 1010..
00C150: 37 39 30 20 59 3D 59 2B 31 35 0D 0A 38 30 30 20 790 Y=Y+15..800
00C160: 47 4F 54 4F 20 33 30 30 0D 0A 38 31 30 20 50 52 GOTO 300..810 PR
00C170: 49 4E 54 20 4A 24 3B 22 20 47 45 54 53 20 22 3B INT J$;" GETS ";
00C180: 4C 24 3B 22 20 49 4E 20 54 48 45 20 4A 41 57 20 L$;" IN THE JAW
00C190: 28 4F 55 43 48 21 29 22 0D 0A 38 32 30 20 59 3D (OUCH!)"..820 Y=
00C1A0: 59 2B 37 0D 0A 38 33 30 20 50 52 49 4E 54 20 22 Y+7..830 PRINT "
00C1B0: 2E 2E 2E 2E 41 4E 44 20 41 47 41 49 4E 21 22 0D ....AND AGAIN!".
00C1C0: 0A 38 33 35 20 59 3D 59 2B 35 0D 0A 38 34 30 20 .835 Y=Y+5..840
00C1D0: 49 46 20 59 3E 33 35 20 54 48 45 4E 20 31 30 31 IF Y>35 THEN 101
00C1E0: 30 0D 0A 38 35 30 20 50 52 49 4E 54 0D 0A 38 36 0..850 PRINT..86
00C1F0: 30 20 50 52 49 4E 54 20 4C 24 3B 22 20 49 53 20 0 PRINT L$;" IS
00C200: 54 45 4C 4C 20 59 4F 55 20 57 48 41 54 20 49 20 TELL YOU WHAT I
00C210: 52 4F 4C 4C 45 44 20 46 4F 52 20 59 4F 55 22 0D ROLLED FOR YOU".
00C220: 0A 31 35 30 20 50 52 49 4E 54 20 22 57 48 41 54 .150 PRINT "WHAT
00C230: 20 54 48 45 20 4E 55 4D 42 45 52 20 53 54 41 4E THE NUMBER STAN
00C240: 44 53 20 46 4F 52 2C 20 41 4E 44 20 49 46 20 59 DS FOR, AND IF Y
00C250: 4F 55 20 43 41 4E 20 47 45 54 20 54 48 45 20 50 OU CAN GET THE P
00C260: 41 52 54 2E 22 0D 0A 31 36 30 20 50 52 49 4E 54 ART."..160 PRINT
00C270: 20 22 49 46 20 59 4F 55 20 43 41 4E 20 47 45 54 "IF YOU CAN GET
00C280: 20 54 48 45 20 50 41 52 54 20 49 20 57 49 4C 4C THE PART I WILL
00C290: 20 47 49 56 45 20 49 54 20 54 4F 20 59 4F 55 2E GIVE IT TO YOU.
00C2A0: 22 0D 0A 31 37 30 20 50 52 49 4E 54 20 22 54 48 "..170 PRINT "TH
00C2B0: 45 20 53 41 4D 45 20 57 49 4C 4C 20 48 41 50 50 E SAME WILL HAPP
00C2C0: 45 4E 20 4F 4E 20 4D 59 20 54 55 52 4E 2E 22 0D EN ON MY TURN.".
00C2D0: 0A 31 38 30 20 50 52 49 4E 54 20 22 49 46 20 54 .180 PRINT "IF T
00C2E0: 48 45 52 45 20 49 53 20 41 20 43 48 41 4E 47 45 HERE IS A CHANGE
00C2F0: 20 49 4E 20 45 49 54 48 45 52 20 42 55 47 20 49 IN EITHER BUG I
00C300: 20 57 49 4C 4C 20 47 49 56 45 20 59 4F 55 20 54 WILL GIVE YOU T
00C310: 48 45 22 0D 0A 31 39 30 20 50 52 49 4E 54 20 22 HE"..190 PRINT "
00C320: 4F 50 54 49 4F 4E 20 4F 46 20 53 45 45 49 4E 47 OPTION OF SEEING
00C330: 20 54 48 45 20 50 49 43 54 55 52 45 53 20 4F 46 THE PICTURES OF
00C340: 20 54 48 45 20 42 55 47 53 2E 22 0D 0A 32 30 30 THE BUGS."..200
00C350: 20 50 52 49 4E 54 20 22 54 48 45 20 4E 55 4D 42 PRINT "THE NUMB
00C360: 45 52 53 20 53 54 41 4E 44 20 46 4F 52 20 50 41 ERS STAND FOR PA
00C370: 52 54 53 20 41 53 20 46 4F 4C 4C 4F 57 53 3A 22 RTS AS FOLLOWS:"
00C380: 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 4E 55 4D ..210 PRINT "NUM
00C390: 42 45 52 22 2C 22 50 41 52 54 22 2C 22 4E 55 4D BER","PART","NUM
00C3A0: 42 45 52 20 4F 46 20 50 41 52 54 20 4E 45 45 44 BER OF PART NEED
00C3B0: 45 44 22 0D 0A 32 32 30 20 50 52 49 4E 54 20 22 ED"..220 PRINT "
00C3C0: 31 22 2C 22 42 4F 44 59 22 2C 22 31 22 0D 0A 32 1","BODY","1"..2
00C3D0: 33 30 20 50 52 49 4E 54 20 22 32 22 2C 22 4E 45 30 PRINT "2","NE
00C3E0: 43 4B 22 2C 22 31 22 0D 0A 32 34 30 20 50 52 49 CK","1"..240 PRI
00C3F0: 4E 54 20 22 33 22 2C 22 48 45 41 44 22 2C 22 31 NT "3","HEAD","1
00C400: 41 54 54 41 43 4B 45 44 20 42 59 20 41 4E 20 55 ATTACKED BY AN U
00C410: 50 50 45 52 43 55 54 20 28 4F 48 2C 4F 48 29 2E PPERCUT (OH,OH).
00C420: 2E 2E 22 0D 0A 38 36 35 20 49 46 20 44 3D 33 20 .."..865 IF D=3
00C430: 54 48 45 4E 20 38 39 30 0D 0A 38 37 30 20 51 34 THEN 890..870 Q4
00C440: 3D 49 4E 54 28 32 30 30 2A 52 4E 44 28 31 29 2B =INT(200*RND(1)+
00C450: 31 29 0D 0A 38 38 30 20 49 46 20 51 34 3E 37 35 1)..880 IF Q4>75
00C460: 20 54 48 45 4E 20 39 32 30 0D 0A 38 39 30 20 50 THEN 920..890 P
00C470: 52 49 4E 54 20 22 41 4E 44 20 22 3B 4A 24 3B 22 RINT "AND ";J$;"
00C480: 20 43 4F 4E 4E 45 43 54 53 2E 2E 2E 22 0D 0A 39 CONNECTS..."..9
00C490: 30 30 20 59 3D 59 2B 38 0D 0A 39 31 30 20 47 4F 00 Y=Y+8..910 GO
00C4A0: 54 4F 20 33 30 30 0D 0A 39 32 30 20 50 52 49 4E TO 300..920 PRIN
00C4B0: 54 20 22 20 42 4C 4F 43 4B 53 20 41 4E 44 20 48 T " BLOCKS AND H
00C4C0: 49 54 53 20 22 3B 4A 24 3B 22 20 57 49 54 48 20 ITS ";J$;" WITH
00C4D0: 41 20 48 4F 4F 4B 2E 22 0D 0A 39 33 30 20 58 3D A HOOK."..930 X=
00C4E0: 58 2B 35 0D 0A 39 34 30 20 47 4F 54 4F 20 33 30 X+5..940 GOTO 30
00C4F0: 30 0D 0A 39 35 30 20 4E 45 58 54 20 52 31 0D 0A 0..950 NEXT R1..
00C500: 39 35 31 20 49 46 20 58 3E 59 20 54 48 45 4E 20 951 IF X>Y THEN
00C510: 39 35 35 0D 0A 39 35 32 20 50 52 49 4E 54 3A 50 955..952 PRINT:P
00C520: 52 49 4E 54 20 4A 24 22 20 57 49 4E 53 20 52 4F RINT J$" WINS RO
00C530: 55 4E 44 22 20 52 0D 0A 39 35 33 20 4A 3D 4A 2B UND" R..953 J=J+
00C540: 31 0D 0A 39 35 34 20 47 4F 54 4F 20 39 36 30 0D 1..954 GOTO 960.
00C550: 0A 39 35 35 20 50 52 49 4E 54 3A 50 52 49 4E 54 .955 PRINT:PRINT
00C560: 20 4C 24 22 20 57 49 4E 53 20 52 4F 55 4E 44 22 L$" WINS ROUND"
00C570: 52 0D 0A 39 35 36 20 4C 3D 4C 2B 31 0D 0A 39 36 R..956 L=L+1..96
00C580: 30 20 4E 45 58 54 20 52 0D 0A 39 36 31 20 49 46 0 NEXT R..961 IF
00C590: 20 4A 3E 3D 20 32 20 54 48 45 4E 20 31 30 34 30 J>= 2 THEN 1040
00C5A0: 0D 0A 39 36 32 20 49 46 20 4C 3E 3D 32 20 54 48 ..962 IF L>=2 TH
00C5B0: 45 4E 20 31 30 36 30 0D 0A 39 38 30 20 50 52 49 EN 1060..980 PRI
00C5C0: 4E 54 20 4A 24 20 22 20 49 53 20 4B 4E 4F 43 4B NT J$ " IS KNOCK
00C5D0: 45 44 20 43 4F 4C 44 20 41 4E 44 20 22 20 4C 24 ED COLD AND " L$
00C5E0: 22 20 49 53 20 54 48 45 20 57 49 4E 4E 45 52 20 " IS THE WINNER
00C5F0: 41 4E 44 20 43 48 41 4D 50 21 22 3B 0D 0A 31 30 AND CHAMP!";..10
00C600: 22 0D 0A 32 35 30 20 50 52 49 4E 54 20 22 34 22 "..250 PRINT "4"
00C610: 2C 22 46 45 45 4C 45 52 53 22 2C 22 32 22 0D 0A ,"FEELERS","2"..
00C620: 32 36 30 20 50 52 49 4E 54 20 22 35 22 2C 22 54 260 PRINT "5","T
00C630: 41 49 4C 22 2C 22 31 22 0D 0A 32 37 30 20 50 52 AIL","1"..270 PR
00C640: 49 4E 54 20 22 36 22 2C 22 4C 45 47 53 22 2C 22 INT "6","LEGS","
00C650: 36 22 0D 0A 32 38 30 20 50 52 49 4E 54 0D 0A 32 6"..280 PRINT..2
00C660: 39 30 20 50 52 49 4E 54 0D 0A 33 30 30 20 49 46 90 PRINT..300 IF
00C670: 20 59 3E 30 20 54 48 45 4E 20 32 34 38 30 0D 0A Y>0 THEN 2480..
00C680: 33 31 30 20 5A 3D 49 4E 54 28 36 2A 52 4E 44 28 310 Z=INT(6*RND(
00C690: 31 29 2B 31 29 0D 0A 33 32 30 20 43 3D 31 0D 0A 1)+1)..320 C=1..
00C6A0: 33 33 30 20 50 52 49 4E 54 20 22 59 4F 55 20 52 330 PRINT "YOU R
00C6B0: 4F 4C 4C 45 44 20 41 22 3B 5A 0D 0A 33 34 30 20 OLLED A";Z..340
00C6C0: 4F 4E 20 5A 20 47 4F 54 4F 20 33 35 30 2C 34 33 ON Z GOTO 350,43
00C6D0: 30 2C 35 34 30 2C 36 35 30 2C 37 36 30 2C 38 37 0,540,650,760,87
00C6E0: 30 0D 0A 33 35 30 20 50 52 49 4E 54 20 22 31 3D 0..350 PRINT "1=
00C6F0: 42 4F 44 59 22 0D 0A 33 36 30 20 49 46 20 42 3D BODY"..360 IF B=
00C700: 31 20 54 48 45 4E 20 34 31 30 0D 0A 33 37 30 20 1 THEN 410..370
00C710: 50 52 49 4E 54 20 22 59 4F 55 20 4E 4F 57 20 48 PRINT "YOU NOW H
00C720: 41 56 45 20 41 20 42 4F 44 59 2E 22 0D 0A 33 38 AVE A BODY."..38
00C730: 30 20 42 3D 31 0D 0A 33 39 30 20 43 3D 30 0D 0A 0 B=1..390 C=0..
00C740: 34 30 30 20 47 4F 54 4F 20 39 37 30 0D 0A 34 31 400 GOTO 970..41
00C750: 30 20 50 52 49 4E 54 20 22 59 4F 55 20 44 4F 20 0 PRINT "YOU DO
00C760: 4E 4F 54 20 4E 45 45 44 20 41 20 42 4F 44 59 2E NOT NEED A BODY.
00C770: 22 0D 0A 34 32 30 20 47 4F 54 4F 20 39 37 30 0D "..420 GOTO 970.
00C780: 0A 34 33 30 20 50 52 49 4E 54 20 22 32 3D 4E 45 .430 PRINT "2=NE
00C790: 43 4B 22 0D 0A 34 34 30 20 49 46 20 4E 3D 31 20 CK"..440 IF N=1
00C7A0: 54 48 45 4E 20 35 30 30 0D 0A 34 35 30 20 49 46 THEN 500..450 IF
00C7B0: 20 42 3D 30 20 54 48 45 4E 20 35 32 30 0D 0A 34 B=0 THEN 520..4
00C7C0: 36 30 20 50 52 49 4E 54 20 22 59 4F 55 20 4E 4F 60 PRINT "YOU NO
00C7D0: 57 20 48 41 56 45 20 41 20 4E 45 43 4B 2E 22 0D W HAVE A NECK.".
00C7E0: 0A 34 37 30 20 4E 3D 31 0D 0A 34 38 30 20 43 3D .470 N=1..480 C=
00C7F0: 30 0D 0A 34 39 30 20 47 4F 54 4F 20 39 37 30 0D 0..490 GOTO 970.
00C800: 30 30 20 47 4F 54 4F 20 31 30 38 30 0D 0A 31 30 00 GOTO 1080..10
00C810: 31 30 20 50 52 49 4E 54 20 4C 24 20 22 20 49 53 10 PRINT L$ " IS
00C820: 20 4B 4E 4F 43 4B 45 44 20 43 4F 4C 44 20 41 4E KNOCKED COLD AN
00C830: 44 20 22 20 4A 24 22 20 49 53 20 54 48 45 20 57 D " J$" IS THE W
00C840: 49 4E 4E 45 52 20 41 4E 44 20 43 48 41 4D 50 21 INNER AND CHAMP!
00C850: 22 3B 0D 0A 31 30 33 30 20 47 4F 54 4F 20 31 30 ";..1030 GOTO 10
00C860: 30 30 0D 0A 31 30 34 30 20 50 52 49 4E 54 20 4A 00..1040 PRINT J
00C870: 24 20 22 20 57 49 4E 53 20 28 4E 49 43 45 20 47 $ " WINS (NICE G
00C880: 4F 49 4E 47 2C 22 20 4A 24 3B 22 29 2E 22 0D 0A OING," J$;")."..
00C890: 31 30 35 30 20 47 4F 54 4F 20 31 30 30 30 0D 0A 1050 GOTO 1000..
00C8A0: 31 30 36 30 20 50 52 49 4E 54 20 4C 24 20 22 20 1060 PRINT L$ "
00C8B0: 41 4D 41 5A 49 4E 47 4C 59 20 57 49 4E 53 21 21 AMAZINGLY WINS!!
00C8C0: 22 0D 0A 31 30 37 30 20 47 4F 54 4F 20 31 30 30 "..1070 GOTO 100
00C8D0: 30 0D 0A 31 30 38 30 20 50 52 49 4E 54 0D 0A 31 0..1080 PRINT..1
00C8E0: 30 38 35 20 50 52 49 4E 54 0D 0A 31 30 39 30 20 085 PRINT..1090
00C8F0: 50 52 49 4E 54 20 22 41 4E 44 20 4E 4F 57 20 47 PRINT "AND NOW G
00C900: 4F 4F 44 42 59 45 20 46 52 4F 4D 20 54 48 45 20 OODBYE FROM THE
00C910: 4F 4C 59 4D 50 49 43 20 41 52 45 4E 41 2E 22 0D OLYMPIC ARENA.".
00C920: 0A 31 31 30 30 20 50 52 49 4E 54 0D 0A 31 31 31 .1100 PRINT..111
00C930: 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 0 END...........
00C940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00C9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CA00: 0A 35 30 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .500 PRINT "YOU
00CA10: 44 4F 20 4E 4F 54 20 4E 45 45 44 20 41 20 4E 45 DO NOT NEED A NE
00CA20: 43 4B 2E 22 0D 0A 35 31 30 20 47 4F 54 4F 20 39 CK."..510 GOTO 9
00CA30: 37 30 0D 0A 35 32 30 20 50 52 49 4E 54 20 22 59 70..520 PRINT "Y
00CA40: 4F 55 20 44 4F 20 4E 4F 54 20 48 41 56 45 20 41 OU DO NOT HAVE A
00CA50: 20 42 4F 44 59 2E 22 0D 0A 35 33 30 20 47 4F 54 BODY."..530 GOT
00CA60: 4F 20 39 37 30 0D 0A 35 34 30 20 50 52 49 4E 54 O 970..540 PRINT
00CA70: 20 22 33 3D 48 45 41 44 22 0D 0A 35 35 30 20 49 "3=HEAD"..550 I
00CA80: 46 20 4E 3D 30 20 54 48 45 4E 20 36 31 30 0D 0A F N=0 THEN 610..
00CA90: 35 36 30 20 49 46 20 48 3D 31 20 54 48 45 4E 20 560 IF H=1 THEN
00CAA0: 36 33 30 0D 0A 35 37 30 20 50 52 49 4E 54 20 22 630..570 PRINT "
00CAB0: 59 4F 55 20 4E 45 45 44 45 44 20 41 20 48 45 41 YOU NEEDED A HEA
00CAC0: 44 2E 22 0D 0A 35 38 30 20 48 3D 31 0D 0A 35 39 D."..580 H=1..59
00CAD0: 30 20 43 3D 30 0D 0A 36 30 30 20 47 4F 54 4F 20 0 C=0..600 GOTO
00CAE0: 39 37 30 0D 0A 36 31 30 20 50 52 49 4E 54 20 22 970..610 PRINT "
00CAF0: 59 4F 55 20 44 4F 20 4E 4F 54 20 48 41 56 45 20 YOU DO NOT HAVE
00CB00: 41 20 4E 45 43 4B 2E 22 0D 0A 36 32 30 20 47 4F A NECK."..620 GO
00CB10: 54 4F 20 39 37 30 0D 0A 36 33 30 20 50 52 49 4E TO 970..630 PRIN
00CB20: 54 20 22 59 4F 55 20 48 41 56 45 20 41 20 48 45 T "YOU HAVE A HE
00CB30: 41 44 2E 22 0D 0A 36 34 30 20 47 4F 54 4F 20 39 AD."..640 GOTO 9
00CB40: 37 30 0D 0A 36 35 30 20 50 52 49 4E 54 20 22 34 70..650 PRINT "4
00CB50: 3D 46 45 45 4C 45 52 53 22 0D 0A 36 36 30 20 49 =FEELERS"..660 I
00CB60: 46 20 48 3D 30 20 54 48 45 4E 20 37 34 30 0D 0A F H=0 THEN 740..
00CB70: 36 37 30 20 49 46 20 41 3D 32 20 54 48 45 4E 20 670 IF A=2 THEN
00CB80: 37 32 30 0D 0A 36 38 30 20 50 52 49 4E 54 20 22 720..680 PRINT "
00CB90: 49 20 4E 4F 57 20 47 49 56 45 20 59 4F 55 20 41 I NOW GIVE YOU A
00CBA0: 20 46 45 45 4C 45 52 2E 22 0D 0A 36 39 30 20 41 FEELER."..690 A
00CBB0: 3D 41 2B 31 0D 0A 37 30 30 20 43 3D 30 0D 0A 37 =A+1..700 C=0..7
00CBC0: 31 30 20 47 4F 54 4F 20 39 37 30 0D 0A 37 32 30 10 GOTO 970..720
00CBD0: 20 50 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 PRINT "YOU HAVE
00CBE0: 20 54 57 4F 20 46 45 45 4C 45 52 53 20 41 4C 52 TWO FEELERS ALR
00CBF0: 45 41 44 59 2E 22 0D 0A 37 33 30 20 47 4F 54 4F EADY."..730 GOTO
00CC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00CE00: 20 39 37 30 0D 0A 37 34 30 20 50 52 49 4E 54 20 970..740 PRINT
00CE10: 22 59 4F 55 20 44 4F 20 4E 4F 54 20 48 41 56 45 "YOU DO NOT HAVE
00CE20: 20 41 20 48 45 41 44 2E 22 0D 0A 37 35 30 20 47 A HEAD."..750 G
00CE30: 4F 54 4F 20 39 37 30 0D 0A 37 36 30 20 50 52 49 OTO 970..760 PRI
00CE40: 4E 54 20 22 35 3D 54 41 49 4C 22 0D 0A 37 37 30 NT "5=TAIL"..770
00CE50: 20 49 46 20 42 3D 30 20 54 48 45 4E 20 38 33 30 IF B=0 THEN 830
00CE60: 0D 0A 37 38 30 20 49 46 20 54 3D 31 20 54 48 45 ..780 IF T=1 THE
00CE70: 4E 20 38 35 30 0D 0A 37 39 30 20 50 52 49 4E 54 N 850..790 PRINT
00CE80: 20 22 49 20 4E 4F 57 20 47 49 56 45 20 59 4F 55 "I NOW GIVE YOU
00CE90: 20 41 20 54 41 49 4C 2E 22 0D 0A 38 30 30 20 54 A TAIL."..800 T
00CEA0: 3D 54 2B 31 0D 0A 38 31 30 20 43 3D 30 0D 0A 38 =T+1..810 C=0..8
00CEB0: 32 30 20 47 4F 54 4F 20 39 37 30 0D 0A 38 33 30 20 GOTO 970..830
00CEC0: 20 50 52 49 4E 54 20 22 59 4F 55 20 44 4F 20 4E PRINT "YOU DO N
00CED0: 4F 54 20 48 41 56 45 20 41 20 42 4F 44 59 2E 22 OT HAVE A BODY."
00CEE0: 0D 0A 38 34 30 20 47 4F 54 4F 20 39 37 30 0D 0A ..840 GOTO 970..
00CEF0: 38 35 30 20 50 52 49 4E 54 20 22 59 4F 55 20 41 850 PRINT "YOU A
00CF00: 4C 52 45 41 44 59 20 48 41 56 45 20 41 20 54 41 LREADY HAVE A TA
00CF10: 49 4C 2E 22 0D 0A 38 36 30 20 47 4F 54 4F 20 39 IL."..860 GOTO 9
00CF20: 37 30 0D 0A 38 37 30 20 50 52 49 4E 54 20 22 36 70..870 PRINT "6
00CF30: 3D 4C 45 47 22 0D 0A 38 38 30 20 49 46 20 4C 3D =LEG"..880 IF L=
00CF40: 36 20 54 48 45 4E 20 39 34 30 0D 0A 38 39 30 20 6 THEN 940..890
00CF50: 49 46 20 42 3D 30 20 54 48 45 4E 20 39 36 30 0D IF B=0 THEN 960.
00CF60: 0A 39 30 30 20 4C 3D 4C 2B 31 0D 0A 39 31 30 20 .900 L=L+1..910
00CF70: 43 3D 30 0D 0A 39 32 30 20 50 52 49 4E 54 20 22 C=0..920 PRINT "
00CF80: 59 4F 55 20 4E 4F 57 20 48 41 56 45 22 3B 4C 3B YOU NOW HAVE";L;
00CF90: 22 4C 45 47 53 2E 22 0D 0A 39 33 30 20 47 4F 54 "LEGS."..930 GOT
00CFA0: 4F 20 39 37 30 0D 0A 39 34 30 20 50 52 49 4E 54 O 970..940 PRINT
00CFB0: 20 22 59 4F 55 20 48 41 56 45 20 36 20 46 45 45 "YOU HAVE 6 FEE
00CFC0: 54 20 41 4C 52 45 41 44 59 2E 22 0D 0A 39 35 30 T ALREADY."..950
00CFD0: 20 47 4F 54 4F 20 39 37 30 0D 0A 39 36 30 20 50 GOTO 970..960 P
00CFE0: 52 49 4E 54 20 22 59 4F 55 20 44 4F 20 4E 4F 54 RINT "YOU DO NOT
00CFF0: 20 48 41 56 45 20 41 20 42 4F 44 59 2E 22 0D 0A HAVE A BODY."..
00D000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 10 PRINT TAB(34)
00D010: 3B 22 42 55 47 22 0D 0A 32 30 20 50 52 49 4E 54 ;"BUG"..20 PRINT
00D020: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
00D030: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
00D040: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
00D050: 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E 54 3A RSEY"..30 PRINT:
00D060: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 30 20 PRINT:PRINT..40
00D070: 52 45 4D 0D 0A 35 30 20 41 3D 30 3A 20 42 3D 30 REM..50 A=0: B=0
00D080: 3A 20 48 3D 30 3A 20 4C 3D 30 3A 20 4E 3D 30 3A : H=0: L=0: N=0:
00D090: 20 50 3D 30 3A 20 51 3D 30 3A 20 52 3D 30 3A 20 P=0: Q=0: R=0:
00D0A0: 53 3D 30 3A 20 54 3D 30 3A 20 55 3D 30 3A 20 56 S=0: T=0: U=0: V
00D0B0: 3D 30 3A 20 59 3D 30 0D 0A 36 30 20 50 52 49 4E =0: Y=0..60 PRIN
00D0C0: 54 20 22 54 48 45 20 47 41 4D 45 20 42 55 47 22 T "THE GAME BUG"
00D0D0: 0D 0A 37 30 20 50 52 49 4E 54 20 22 49 20 48 4F ..70 PRINT "I HO
00D0E0: 50 45 20 59 4F 55 20 45 4E 4A 4F 59 20 54 48 49 PE YOU ENJOY THI
00D0F0: 53 20 47 41 4D 45 2E 22 0D 0A 38 30 20 50 52 49 S GAME."..80 PRI
00D100: 4E 54 0D 0A 39 30 20 50 52 49 4E 54 20 22 44 4F NT..90 PRINT "DO
00D110: 20 59 4F 55 20 57 41 4E 54 20 49 4E 53 54 52 55 YOU WANT INSTRU
00D120: 43 54 49 4F 4E 53 22 3B 0D 0A 31 30 30 20 49 4E CTIONS";..100 IN
00D130: 50 55 54 20 5A 24 0D 0A 31 31 30 20 49 46 20 5A PUT Z$..110 IF Z
00D140: 24 3D 22 4E 4F 22 20 54 48 45 4E 20 33 30 30 0D $="NO" THEN 300.
00D150: 0A 31 32 30 20 50 52 49 4E 54 20 22 54 48 45 20 .120 PRINT "THE
00D160: 4F 42 4A 45 43 54 20 4F 46 20 42 55 47 20 49 53 OBJECT OF BUG IS
00D170: 20 54 4F 20 46 49 4E 49 53 48 20 59 4F 55 52 20 TO FINISH YOUR
00D180: 42 55 47 20 42 45 46 4F 52 45 20 49 20 46 49 4E BUG BEFORE I FIN
00D190: 49 53 48 22 0D 0A 31 33 30 20 50 52 49 4E 54 20 ISH"..130 PRINT
00D1A0: 22 4D 49 4E 45 2E 20 45 41 43 48 20 4E 55 4D 42 "MINE. EACH NUMB
00D1B0: 45 52 20 53 54 41 4E 44 53 20 46 4F 52 20 41 20 ER STANDS FOR A
00D1C0: 50 41 52 54 20 4F 46 20 54 48 45 20 42 55 47 20 PART OF THE BUG
00D1D0: 42 4F 44 59 2E 22 0D 0A 31 34 30 20 50 52 49 4E BODY."..140 PRIN
00D1E0: 54 20 22 49 20 57 49 4C 4C 20 52 4F 4C 4C 20 54 T "I WILL ROLL T
00D1F0: 48 45 20 44 49 45 20 46 4F 52 20 59 4F 55 2C 20 HE DIE FOR YOU,
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 00 00 02 09 52 E5 0B 00 C1 02 00 00 00 02 ......R.........
00D220: 0B 00 C6 02 00 00 00 02 0B 00 C2 02 00 00 00 02 ................
00D230: 0B 00 C7 02 00 00 00 02 0B 00 C3 02 00 00 00 02 ................
00D240: 0B 00 C8 02 00 00 00 02 0B 00 C4 02 00 00 00 02 ................
00D250: 0B 00 C9 02 00 00 00 02 0B 00 C5 02 00 00 00 02 ................
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: 39 37 30 20 58 3D 49 4E 54 28 36 2A 52 4E 44 28 970 X=INT(6*RND(
00D310: 31 29 2B 31 29 0D 0A 39 37 31 20 50 52 49 4E 54 1)+1)..971 PRINT
00D320: 0D 0A 39 37 35 20 46 4F 52 20 44 45 4C 41 59 3D ..975 FOR DELAY=
00D330: 31 20 54 4F 20 32 30 30 30 3A 4E 45 58 54 20 44 1 TO 2000:NEXT D
00D340: 45 4C 41 59 0D 0A 39 38 30 20 50 52 49 4E 54 20 ELAY..980 PRINT
00D350: 22 49 20 52 4F 4C 4C 45 44 20 41 22 3B 58 0D 0A "I ROLLED A";X..
00D360: 39 39 30 20 4F 4E 20 58 20 47 4F 54 4F 20 31 30 990 ON X GOTO 10
00D370: 30 30 2C 31 30 38 30 2C 31 31 39 30 2C 31 33 30 00,1080,1190,130
00D380: 30 2C 31 34 31 30 2C 31 35 32 30 0D 0A 31 30 30 0,1410,1520..100
00D390: 30 20 50 52 49 4E 54 20 22 31 3D 42 4F 44 59 22 0 PRINT "1=BODY"
00D3A0: 0D 0A 31 30 31 30 20 49 46 20 50 3D 31 20 54 48 ..1010 IF P=1 TH
00D3B0: 45 4E 20 31 30 36 30 0D 0A 31 30 32 30 20 50 52 EN 1060..1020 PR
00D3C0: 49 4E 54 20 22 49 20 4E 4F 57 20 48 41 56 45 20 INT "I NOW HAVE
00D3D0: 41 20 42 4F 44 59 2E 22 0D 0A 31 30 33 30 20 43 A BODY."..1030 C
00D3E0: 3D 30 0D 0A 31 30 34 30 20 50 3D 31 0D 0A 31 30 =0..1040 P=1..10
00D3F0: 35 30 20 47 4F 54 4F 20 31 36 33 30 0D 0A 31 30 50 GOTO 1630..10
00D400: 36 30 20 50 52 49 4E 54 20 22 49 20 44 4F 20 4E 60 PRINT "I DO N
00D410: 4F 54 20 4E 45 45 44 20 41 20 42 4F 44 59 2E 22 OT NEED A BODY."
00D420: 0D 0A 31 30 37 30 20 47 4F 54 4F 20 31 36 33 30 ..1070 GOTO 1630
00D430: 0D 0A 31 30 38 30 20 50 52 49 4E 54 20 22 32 3D ..1080 PRINT "2=
00D440: 4E 45 43 4B 22 0D 0A 31 30 39 30 20 49 46 20 51 NECK"..1090 IF Q
00D450: 3D 31 20 54 48 45 4E 20 31 31 35 30 0D 0A 31 31 =1 THEN 1150..11
00D460: 30 30 20 49 46 20 50 3D 30 20 54 48 45 4E 20 31 00 IF P=0 THEN 1
00D470: 31 37 30 0D 0A 31 31 31 30 20 50 52 49 4E 54 20 170..1110 PRINT
00D480: 22 49 20 4E 4F 57 20 48 41 56 45 20 41 20 4E 45 "I NOW HAVE A NE
00D490: 43 4B 2E 22 0D 0A 31 31 32 30 20 51 3D 31 0D 0A CK."..1120 Q=1..
00D4A0: 31 31 33 30 20 43 3D 30 0D 0A 31 31 34 30 20 47 1130 C=0..1140 G
00D4B0: 4F 54 4F 20 31 36 33 30 0D 0A 31 31 35 30 20 50 OTO 1630..1150 P
00D4C0: 52 49 4E 54 20 22 49 20 44 4F 20 4E 4F 54 20 4E RINT "I DO NOT N
00D4D0: 45 45 44 20 41 20 4E 45 43 4B 2E 22 0D 0A 31 31 EED A NECK."..11
00D4E0: 36 30 20 47 4F 54 4F 20 31 36 33 30 0D 0A 31 31 60 GOTO 1630..11
00D4F0: 37 30 20 50 52 49 4E 54 20 22 49 20 44 4F 20 4E 70 PRINT "I DO N
00D500: 54 0D 0A 32 31 33 30 20 50 52 49 4E 54 0D 0A 32 T..2130 PRINT..2
00D510: 31 34 30 20 50 52 49 4E 54 0D 0A 32 31 35 30 20 140 PRINT..2150
00D520: 49 46 20 53 3D 30 20 54 48 45 4E 20 32 32 33 30 IF S=0 THEN 2230
00D530: 0D 0A 32 31 36 30 20 46 4F 52 20 5A 3D 31 20 54 ..2160 FOR Z=1 T
00D540: 4F 20 34 0D 0A 32 31 37 30 20 50 52 49 4E 54 20 O 4..2170 PRINT
00D550: 54 41 42 28 31 30 29 3B 0D 0A 32 31 38 30 20 46 TAB(10);..2180 F
00D560: 4F 52 20 58 3D 31 20 54 4F 20 53 0D 0A 32 31 39 OR X=1 TO S..219
00D570: 30 20 50 52 49 4E 54 20 22 46 20 22 3B 0D 0A 32 0 PRINT "F ";..2
00D580: 32 30 30 20 4E 45 58 54 20 58 0D 0A 32 32 31 30 200 NEXT X..2210
00D590: 20 50 52 49 4E 54 0D 0A 32 32 32 30 20 4E 45 58 PRINT..2220 NEX
00D5A0: 54 20 5A 0D 0A 32 32 33 30 20 49 46 20 52 3C 3E T Z..2230 IF R<>
00D5B0: 31 20 54 48 45 4E 20 32 32 35 30 0D 0A 32 32 34 1 THEN 2250..224
00D5C0: 30 20 47 4F 53 55 42 20 32 34 37 30 0D 0A 32 32 0 GOSUB 2470..22
00D5D0: 35 30 20 49 46 20 51 3D 30 20 54 48 45 4E 20 32 50 IF Q=0 THEN 2
00D5E0: 32 38 30 0D 0A 32 32 36 30 20 50 52 49 4E 54 20 280..2260 PRINT
00D5F0: 22 20 20 20 20 20 20 20 20 20 20 4E 20 4E 22 0D " N N".
00D600: 0A 32 32 37 30 20 50 52 49 4E 54 20 22 20 20 20 .2270 PRINT "
00D610: 20 20 20 20 20 20 20 4E 20 4E 22 0D 0A 32 32 38 N N"..228
00D620: 30 20 49 46 20 50 3D 30 20 54 48 45 4E 20 32 33 0 IF P=0 THEN 23
00D630: 36 30 0D 0A 32 32 39 30 20 50 52 49 4E 54 20 22 60..2290 PRINT "
00D640: 20 20 20 20 20 42 42 42 42 42 42 42 42 42 42 42 BBBBBBBBBBB
00D650: 42 22 0D 0A 32 33 30 30 20 46 4F 52 20 5A 3D 31 B"..2300 FOR Z=1
00D660: 20 54 4F 20 32 0D 0A 32 33 31 30 20 50 52 49 4E TO 2..2310 PRIN
00D670: 54 20 22 20 20 20 20 20 42 20 20 20 20 20 20 20 T " B
00D680: 20 20 20 42 22 0D 0A 32 33 32 30 20 4E 45 58 54 B"..2320 NEXT
00D690: 20 5A 0D 0A 32 33 33 30 20 49 46 20 55 3C 3E 31 Z..2330 IF U<>1
00D6A0: 20 54 48 45 4E 20 32 33 35 30 0D 0A 32 33 34 30 THEN 2350..2340
00D6B0: 20 50 52 49 4E 54 20 22 54 54 54 54 54 42 20 20 PRINT "TTTTTB
00D6C0: 20 20 20 20 20 20 20 20 42 22 0D 0A 32 33 35 30 B"..2350
00D6D0: 20 50 52 49 4E 54 20 22 20 20 20 20 20 42 42 42 PRINT " BBB
00D6E0: 42 42 42 42 42 42 42 42 42 22 0D 0A 32 33 36 30 BBBBBBBBB"..2360
00D6F0: 20 49 46 20 56 3D 30 20 54 48 45 4E 20 32 34 35 IF V=0 THEN 245
00D700: 4F 54 20 48 41 56 45 20 41 20 42 4F 44 59 2E 22 OT HAVE A BODY."
00D710: 0D 0A 31 31 38 30 20 47 4F 54 4F 20 31 36 33 30 ..1180 GOTO 1630
00D720: 0D 0A 31 31 39 30 20 50 52 49 4E 54 20 22 33 3D ..1190 PRINT "3=
00D730: 48 45 41 44 22 0D 0A 31 32 30 30 20 49 46 20 51 HEAD"..1200 IF Q
00D740: 3D 30 20 54 48 45 4E 20 31 32 36 30 0D 0A 31 32 =0 THEN 1260..12
00D750: 31 30 20 49 46 20 52 3D 31 20 54 48 45 4E 20 31 10 IF R=1 THEN 1
00D760: 32 38 30 0D 0A 31 32 32 30 20 50 52 49 4E 54 20 280..1220 PRINT
00D770: 22 49 20 4E 45 45 44 45 44 20 41 20 48 45 41 44 "I NEEDED A HEAD
00D780: 2E 22 0D 0A 31 32 33 30 20 52 3D 31 0D 0A 31 32 ."..1230 R=1..12
00D790: 34 30 20 43 3D 30 0D 0A 31 32 35 30 20 47 4F 54 40 C=0..1250 GOT
00D7A0: 4F 20 31 36 33 30 0D 0A 31 32 36 30 20 50 52 49 O 1630..1260 PRI
00D7B0: 4E 54 20 22 49 20 44 4F 20 4E 4F 54 20 48 41 56 NT "I DO NOT HAV
00D7C0: 45 20 41 20 4E 45 43 4B 2E 22 0D 0A 31 32 37 30 E A NECK."..1270
00D7D0: 20 47 4F 54 4F 20 31 36 33 30 0D 0A 31 32 38 30 GOTO 1630..1280
00D7E0: 20 50 52 49 4E 54 20 22 49 20 44 4F 20 4E 4F 54 PRINT "I DO NOT
00D7F0: 20 4E 45 45 44 20 41 20 48 45 41 44 2E 22 0D 0A NEED A HEAD."..
00D800: 31 32 39 30 20 47 4F 54 4F 20 31 36 33 30 0D 0A 1290 GOTO 1630..
00D810: 31 33 30 30 20 50 52 49 4E 54 20 22 34 3D 46 45 1300 PRINT "4=FE
00D820: 45 4C 45 52 53 22 0D 0A 31 33 31 30 20 49 46 20 ELERS"..1310 IF
00D830: 52 3D 30 20 54 48 45 4E 20 31 33 39 30 0D 0A 31 R=0 THEN 1390..1
00D840: 33 32 30 20 49 46 20 53 3D 32 20 54 48 45 4E 20 320 IF S=2 THEN
00D850: 31 33 37 30 0D 0A 31 33 33 30 20 50 52 49 4E 54 1370..1330 PRINT
00D860: 20 22 49 20 47 45 54 20 41 20 46 45 45 4C 45 52 "I GET A FEELER
00D870: 2E 22 0D 0A 31 33 34 30 20 53 3D 53 2B 31 0D 0A ."..1340 S=S+1..
00D880: 31 33 35 30 20 43 3D 30 0D 0A 31 33 36 30 20 47 1350 C=0..1360 G
00D890: 4F 54 4F 20 31 36 33 30 0D 0A 31 33 37 30 20 50 OTO 1630..1370 P
00D8A0: 52 49 4E 54 20 22 49 20 48 41 56 45 20 32 20 46 RINT "I HAVE 2 F
00D8B0: 45 45 4C 45 52 53 20 41 4C 52 45 41 44 59 2E 22 EELERS ALREADY."
00D8C0: 0D 0A 31 33 38 30 20 47 4F 54 4F 20 31 36 33 30 ..1380 GOTO 1630
00D8D0: 0D 0A 31 33 39 30 20 50 52 49 4E 54 20 22 49 20 ..1390 PRINT "I
00D8E0: 44 4F 20 4E 4F 54 20 48 41 56 45 20 41 20 48 45 DO NOT HAVE A HE
00D8F0: 41 44 2E 22 0D 0A 31 34 30 30 20 47 4F 54 4F 20 AD."..1400 GOTO
00D900: 30 0D 0A 32 33 37 30 20 46 4F 52 20 5A 3D 31 20 0..2370 FOR Z=1
00D910: 54 4F 20 32 0D 0A 32 33 38 30 20 50 52 49 4E 54 TO 2..2380 PRINT
00D920: 20 54 41 42 28 35 29 3B 0D 0A 32 33 39 30 20 46 TAB(5);..2390 F
00D930: 4F 52 20 58 3D 31 20 54 4F 20 56 0D 0A 32 34 30 OR X=1 TO V..240
00D940: 30 20 50 52 49 4E 54 20 22 20 4C 22 3B 0D 0A 32 0 PRINT " L";..2
00D950: 34 31 30 20 4E 45 58 54 20 58 0D 0A 32 34 32 30 410 NEXT X..2420
00D960: 20 50 52 49 4E 54 0D 0A 32 34 33 30 20 4E 45 58 PRINT..2430 NEX
00D970: 54 20 5A 0D 0A 32 34 35 30 20 49 46 20 59 3C 3E T Z..2450 IF Y<>
00D980: 30 20 54 48 45 4E 20 32 35 34 30 0D 0A 32 34 36 0 THEN 2540..246
00D990: 30 20 47 4F 54 4F 20 33 30 30 0D 0A 32 34 37 30 0 GOTO 300..2470
00D9A0: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
00D9B0: 48 48 48 48 48 48 48 22 0D 0A 32 34 38 30 20 50 HHHHHHH"..2480 P
00D9C0: 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 48 20 RINT " H
00D9D0: 20 20 20 20 48 22 0D 0A 32 34 39 30 20 50 52 49 H"..2490 PRI
00D9E0: 4E 54 20 22 20 20 20 20 20 20 20 20 48 20 4F 20 NT " H O
00D9F0: 4F 20 48 22 0D 0A 32 35 30 30 20 50 52 49 4E 54 O H"..2500 PRINT
00DA00: 20 22 20 20 20 20 20 20 20 20 48 20 20 20 20 20 " H
00DA10: 48 22 0D 0A 32 35 31 30 20 50 52 49 4E 54 20 22 H"..2510 PRINT "
00DA20: 20 20 20 20 20 20 20 20 48 20 20 56 20 20 48 22 H V H"
00DA30: 0D 0A 32 35 32 30 20 50 52 49 4E 54 20 22 20 20 ..2520 PRINT "
00DA40: 20 20 20 20 20 20 48 48 48 48 48 48 48 22 0D 0A HHHHHHH"..
00DA50: 32 35 33 30 20 52 45 54 55 52 4E 0D 0A 32 35 34 2530 RETURN..254
00DA60: 30 20 50 52 49 4E 54 20 22 49 20 48 4F 50 45 20 0 PRINT "I HOPE
00DA70: 59 4F 55 20 45 4E 4A 4F 59 45 44 20 54 48 45 20 YOU ENJOYED THE
00DA80: 47 41 4D 45 2C 20 50 4C 41 59 20 49 54 20 41 47 GAME, PLAY IT AG
00DA90: 41 49 4E 20 53 4F 4F 4E 21 21 22 0D 0A 32 35 35 AIN SOON!!"..255
00DAA0: 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 0 END...........
00DAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00DAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00DAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00DAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00DAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00DB00: 31 36 33 30 0D 0A 31 34 31 30 20 50 52 49 4E 54 1630..1410 PRINT
00DB10: 20 22 35 3D 54 41 49 4C 22 0D 0A 31 34 32 30 20 "5=TAIL"..1420
00DB20: 49 46 20 50 3D 30 20 54 48 45 4E 20 31 34 38 30 IF P=0 THEN 1480
00DB30: 0D 0A 31 34 33 30 20 49 46 20 55 3D 31 20 54 48 ..1430 IF U=1 TH
00DB40: 45 4E 20 31 35 30 30 0D 0A 31 34 34 30 20 50 52 EN 1500..1440 PR
00DB50: 49 4E 54 20 22 49 20 4E 4F 57 20 48 41 56 45 20 INT "I NOW HAVE
00DB60: 41 20 54 41 49 4C 2E 22 0D 0A 31 34 35 30 20 55 A TAIL."..1450 U
00DB70: 3D 31 0D 0A 31 34 36 30 20 43 3D 30 0D 0A 31 34 =1..1460 C=0..14
00DB80: 37 30 20 47 4F 54 4F 20 31 36 33 30 0D 0A 31 34 70 GOTO 1630..14
00DB90: 38 30 20 50 52 49 4E 54 20 22 49 20 44 4F 20 4E 80 PRINT "I DO N
00DBA0: 4F 54 20 48 41 56 45 20 41 20 42 4F 44 59 2E 22 OT HAVE A BODY."
00DBB0: 0D 0A 31 34 39 30 20 47 4F 54 4F 20 31 36 33 30 ..1490 GOTO 1630
00DBC0: 0D 0A 31 35 30 30 20 50 52 49 4E 54 20 22 49 20 ..1500 PRINT "I
00DBD0: 44 4F 20 4E 4F 54 20 4E 45 45 44 20 41 20 54 41 DO NOT NEED A TA
00DBE0: 49 4C 2E 22 0D 0A 31 35 31 30 20 47 4F 54 4F 20 IL."..1510 GOTO
00DBF0: 31 36 33 30 0D 0A 31 35 32 30 20 50 52 49 4E 54 1630..1520 PRINT
00DC00: 20 22 36 3D 4C 45 47 53 22 0D 0A 31 35 33 30 20 "6=LEGS"..1530
00DC10: 49 46 20 56 3D 36 20 54 48 45 4E 20 31 35 39 30 IF V=6 THEN 1590
00DC20: 0D 0A 31 35 34 30 20 49 46 20 50 3D 30 20 54 48 ..1540 IF P=0 TH
00DC30: 45 4E 20 31 36 31 30 0D 0A 31 35 35 30 20 56 3D EN 1610..1550 V=
00DC40: 56 2B 31 0D 0A 31 35 36 30 20 43 3D 30 0D 0A 31 V+1..1560 C=0..1
00DC50: 35 37 30 20 50 52 49 4E 54 20 22 49 20 4E 4F 57 570 PRINT "I NOW
00DC60: 20 48 41 56 45 22 3B 56 3B 22 4C 45 47 53 2E 22 HAVE";V;"LEGS."
00DC70: 0D 0A 31 35 38 30 20 47 4F 54 4F 20 31 36 33 30 ..1580 GOTO 1630
00DC80: 0D 0A 31 35 39 30 20 50 52 49 4E 54 2C 22 49 20 ..1590 PRINT,"I
00DC90: 48 41 56 45 20 36 20 46 45 45 54 2E 22 0D 0A 31 HAVE 6 FEET."..1
00DCA0: 36 30 30 20 47 4F 54 4F 20 31 36 33 30 0D 0A 31 600 GOTO 1630..1
00DCB0: 36 31 30 20 50 52 49 4E 54 20 22 49 20 44 4F 20 610 PRINT "I DO
00DCC0: 4E 4F 54 20 48 41 56 45 20 41 20 42 4F 44 59 2E NOT HAVE A BODY.
00DCD0: 22 0D 0A 31 36 32 30 20 47 4F 54 4F 20 31 36 33 "..1620 GOTO 163
00DCE0: 30 0D 0A 31 36 33 30 20 49 46 20 41 3D 32 20 41 0..1630 IF A=2 A
00DCF0: 4E 44 20 54 3D 31 20 41 4E 44 20 4C 3D 36 20 54 ND T=1 AND L=6 T
00DD00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 10 PRINT TAB(34)
00DD10: 3B 22 42 55 4C 4C 22 0D 0A 32 30 20 50 52 49 4E ;"BULL"..20 PRIN
00DD20: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
00DD30: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
00DD40: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
00DD50: 45 52 53 45 59 22 0D 0A 33 30 20 44 45 46 20 46 ERSEY"..30 DEF F
00DD60: 4E 41 28 4B 29 3D 49 4E 54 28 52 4E 44 28 31 29 NA(K)=INT(RND(1)
00DD70: 2A 32 2B 31 29 0D 0A 32 30 30 20 50 52 49 4E 54 *2+1)..200 PRINT
00DD80: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 32 30 :PRINT:PRINT..20
00DD90: 32 20 4C 3D 31 0D 0A 32 30 35 20 50 52 49 4E 54 2 L=1..205 PRINT
00DDA0: 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 4E "DO YOU WANT IN
00DDB0: 53 54 52 55 43 54 49 4F 4E 53 22 3B 0D 0A 32 30 STRUCTIONS";..20
00DDC0: 36 20 49 4E 50 55 54 20 5A 24 0D 0A 32 30 37 20 6 INPUT Z$..207
00DDD0: 49 46 20 5A 24 3D 22 4E 4F 22 20 54 48 45 4E 20 IF Z$="NO" THEN
00DDE0: 34 30 30 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 400..210 PRINT "
00DDF0: 48 45 4C 4C 4F 2C 20 41 4C 4C 20 59 4F 55 20 42 HELLO, ALL YOU B
00DE00: 4C 4F 4F 44 4C 4F 56 45 52 53 20 41 4E 44 20 41 LOODLOVERS AND A
00DE10: 46 49 43 49 4F 4E 41 44 4F 53 2E 22 0D 0A 32 32 FICIONADOS."..22
00DE20: 30 20 50 52 49 4E 54 20 22 48 45 52 45 20 49 53 0 PRINT "HERE IS
00DE30: 20 59 4F 55 52 20 42 49 47 20 43 48 41 4E 43 45 YOUR BIG CHANCE
00DE40: 20 54 4F 20 4B 49 4C 4C 20 41 20 42 55 4C 4C 2E TO KILL A BULL.
00DE50: 22 0D 0A 32 33 30 20 50 52 49 4E 54 0D 0A 32 34 "..230 PRINT..24
00DE60: 30 20 50 52 49 4E 54 20 22 4F 4E 20 45 41 43 48 0 PRINT "ON EACH
00DE70: 20 50 41 53 53 20 4F 46 20 54 48 45 20 42 55 4C PASS OF THE BUL
00DE80: 4C 2C 20 59 4F 55 20 4D 41 59 20 54 52 59 22 0D L, YOU MAY TRY".
00DE90: 0A 32 35 30 20 50 52 49 4E 54 20 22 30 20 2D 20 .250 PRINT "0 -
00DEA0: 56 45 52 4F 4E 49 43 41 20 28 44 41 4E 47 45 52 VERONICA (DANGER
00DEB0: 4F 55 53 20 49 4E 53 49 44 45 20 4D 4F 56 45 20 OUS INSIDE MOVE
00DEC0: 4F 46 20 54 48 45 20 43 41 50 45 29 22 0D 0A 32 OF THE CAPE)"..2
00DED0: 36 30 20 50 52 49 4E 54 20 22 31 20 2D 20 4C 45 60 PRINT "1 - LE
00DEE0: 53 53 20 44 41 4E 47 45 52 4F 55 53 20 4F 55 54 SS DANGEROUS OUT
00DEF0: 53 49 44 45 20 4D 4F 56 45 20 4F 46 20 54 48 45 SIDE MOVE OF THE
00DF00: 48 45 4E 20 31 36 35 30 0D 0A 31 36 34 30 20 47 HEN 1650..1640 G
00DF10: 4F 54 4F 20 31 36 37 30 0D 0A 31 36 35 30 20 50 OTO 1670..1650 P
00DF20: 52 49 4E 54 20 22 59 4F 55 52 20 42 55 47 20 49 RINT "YOUR BUG I
00DF30: 53 20 46 49 4E 49 53 48 45 44 2E 22 0D 0A 31 36 S FINISHED."..16
00DF40: 36 30 20 59 3D 59 2B 31 0D 0A 31 36 37 30 20 49 60 Y=Y+1..1670 I
00DF50: 46 20 53 3D 32 20 41 4E 44 20 50 3D 31 20 41 4E F S=2 AND P=1 AN
00DF60: 44 20 56 3D 36 20 54 48 45 4E 20 31 36 39 30 0D D V=6 THEN 1690.
00DF70: 0A 31 36 38 30 20 47 4F 54 4F 20 31 37 31 30 0D .1680 GOTO 1710.
00DF80: 0A 31 36 39 30 20 50 52 49 4E 54 20 22 4D 59 20 .1690 PRINT "MY
00DF90: 42 55 47 20 49 53 20 46 49 4E 49 53 48 45 44 2E BUG IS FINISHED.
00DFA0: 22 0D 0A 31 37 30 30 20 59 3D 59 2B 32 0D 0A 31 "..1700 Y=Y+2..1
00DFB0: 37 31 30 20 49 46 20 43 3D 31 20 54 48 45 4E 20 710 IF C=1 THEN
00DFC0: 33 30 30 0D 0A 31 37 32 30 20 50 52 49 4E 54 20 300..1720 PRINT
00DFD0: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 48 45 "DO YOU WANT THE
00DFE0: 20 50 49 43 54 55 52 45 53 22 3B 0D 0A 31 37 33 PICTURES";..173
00DFF0: 30 20 49 4E 50 55 54 20 5A 24 0D 0A 31 37 34 30 0 INPUT Z$..1740
00E000: 20 49 46 20 5A 24 3D 22 4E 4F 22 20 54 48 45 4E IF Z$="NO" THEN
00E010: 20 33 30 30 0D 0A 31 37 35 30 20 50 52 49 4E 54 300..1750 PRINT
00E020: 20 22 2A 2A 2A 2A 2A 59 4F 55 52 20 42 55 47 2A "*****YOUR BUG*
00E030: 2A 2A 2A 2A 22 0D 0A 31 37 36 30 20 50 52 49 4E ****"..1760 PRIN
00E040: 54 0D 0A 31 37 37 30 20 50 52 49 4E 54 0D 0A 31 T..1770 PRINT..1
00E050: 37 38 30 20 49 46 20 41 3D 30 20 54 48 45 4E 20 780 IF A=0 THEN
00E060: 31 38 36 30 0D 0A 31 37 39 30 20 46 4F 52 20 5A 1860..1790 FOR Z
00E070: 3D 31 20 54 4F 20 34 0D 0A 31 38 30 30 20 46 4F =1 TO 4..1800 FO
00E080: 52 20 58 3D 31 20 54 4F 20 41 0D 0A 31 38 31 30 R X=1 TO A..1810
00E090: 20 50 52 49 4E 54 20 54 41 42 28 31 30 29 3B 0D PRINT TAB(10);.
00E0A0: 0A 31 38 32 30 20 50 52 49 4E 54 20 22 41 20 22 .1820 PRINT "A "
00E0B0: 3B 0D 0A 31 38 33 30 20 4E 45 58 54 20 58 0D 0A ;..1830 NEXT X..
00E0C0: 31 38 34 30 20 50 52 49 4E 54 0D 0A 31 38 35 30 1840 PRINT..1850
00E0D0: 20 4E 45 58 54 20 5A 0D 0A 31 38 36 30 20 49 46 NEXT Z..1860 IF
00E0E0: 20 48 3D 30 20 54 48 45 4E 20 31 38 38 30 0D 0A H=0 THEN 1880..
00E0F0: 31 38 37 30 20 47 4F 53 55 42 20 32 34 37 30 0D 1870 GOSUB 2470.
00E100: 20 43 41 50 45 22 0D 0A 32 37 30 20 50 52 49 4E CAPE"..270 PRIN
00E110: 54 20 22 32 20 2D 20 4F 52 44 49 4E 41 52 59 20 T "2 - ORDINARY
00E120: 53 57 49 52 4C 20 4F 46 20 54 48 45 20 43 41 50 SWIRL OF THE CAP
00E130: 45 2E 22 0D 0A 32 38 30 20 50 52 49 4E 54 0D 0A E."..280 PRINT..
00E140: 32 39 30 20 50 52 49 4E 54 20 22 49 4E 53 54 45 290 PRINT "INSTE
00E150: 41 44 20 4F 46 20 54 48 45 20 41 42 4F 56 45 2C AD OF THE ABOVE,
00E160: 20 59 4F 55 20 4D 41 59 20 54 52 59 20 54 4F 20 YOU MAY TRY TO
00E170: 4B 49 4C 4C 20 54 48 45 20 42 55 4C 4C 22 0D 0A KILL THE BULL"..
00E180: 33 30 30 20 50 52 49 4E 54 20 22 4F 4E 20 41 4E 300 PRINT "ON AN
00E190: 59 20 54 55 52 4E 3A 20 34 20 28 4F 56 45 52 20 Y TURN: 4 (OVER
00E1A0: 54 48 45 20 48 4F 52 4E 53 29 2C 20 35 20 28 49 THE HORNS), 5 (I
00E1B0: 4E 20 54 48 45 20 43 48 45 53 54 29 2E 22 0D 0A N THE CHEST)."..
00E1C0: 33 31 30 20 50 52 49 4E 54 20 22 42 55 54 20 49 310 PRINT "BUT I
00E1D0: 46 20 49 20 57 45 52 45 20 59 4F 55 2C 22 0D 0A F I WERE YOU,"..
00E1E0: 33 32 30 20 50 52 49 4E 54 20 22 49 20 57 4F 55 320 PRINT "I WOU
00E1F0: 4C 44 4E 27 54 20 54 52 59 20 49 54 20 42 45 46 LDN'T TRY IT BEF
00E200: 4F 52 45 20 54 48 45 20 53 45 56 45 4E 54 48 20 ORE THE SEVENTH
00E210: 50 41 53 53 2E 22 0D 0A 33 33 30 20 50 52 49 4E PASS."..330 PRIN
00E220: 54 0D 0A 33 34 30 20 50 52 49 4E 54 20 22 54 48 T..340 PRINT "TH
00E230: 45 20 43 52 4F 57 44 20 57 49 4C 4C 20 44 45 54 E CROWD WILL DET
00E240: 45 52 4D 49 4E 45 20 57 48 41 54 20 41 57 41 52 ERMINE WHAT AWAR
00E250: 44 20 59 4F 55 20 44 45 53 45 52 56 45 22 0D 0A D YOU DESERVE"..
00E260: 33 35 30 20 50 52 49 4E 54 20 22 28 50 4F 53 54 350 PRINT "(POST
00E270: 48 55 4D 4F 55 53 4C 59 20 49 46 20 4E 45 43 45 HUMOUSLY IF NECE
00E280: 53 53 41 52 59 29 2E 22 0D 0A 33 36 30 20 50 52 SSARY)."..360 PR
00E290: 49 4E 54 20 22 54 48 45 20 42 52 41 56 45 52 20 INT "THE BRAVER
00E2A0: 59 4F 55 20 41 52 45 2C 20 54 48 45 20 42 45 54 YOU ARE, THE BET
00E2B0: 54 45 52 20 54 48 45 20 41 57 41 52 44 20 59 4F TER THE AWARD YO
00E2C0: 55 20 52 45 43 49 45 56 45 2E 22 0D 0A 33 37 30 U RECIEVE."..370
00E2D0: 20 50 52 49 4E 54 0D 0A 33 38 30 20 50 52 49 4E PRINT..380 PRIN
00E2E0: 54 20 22 54 48 45 20 42 45 54 54 45 52 20 54 48 T "THE BETTER TH
00E2F0: 45 20 4A 4F 42 20 54 48 45 20 50 49 43 41 44 4F E JOB THE PICADO
00E300: 0A 31 38 38 30 20 49 46 20 4E 3D 30 20 54 48 45 .1880 IF N=0 THE
00E310: 4E 20 31 39 32 30 0D 0A 31 38 39 30 20 46 4F 52 N 1920..1890 FOR
00E320: 20 5A 3D 31 20 54 4F 20 32 0D 0A 31 39 30 30 20 Z=1 TO 2..1900
00E330: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 PRINT "
00E340: 20 4E 20 4E 22 0D 0A 31 39 31 30 20 4E 45 58 54 N N"..1910 NEXT
00E350: 20 5A 0D 0A 31 39 32 30 20 49 46 20 42 3D 30 20 Z..1920 IF B=0
00E360: 54 48 45 4E 20 32 30 30 30 0D 0A 31 39 33 30 20 THEN 2000..1930
00E370: 50 52 49 4E 54 20 22 20 20 20 20 20 42 42 42 42 PRINT " BBBB
00E380: 42 42 42 42 42 42 42 42 22 0D 0A 31 39 34 30 20 BBBBBBBB"..1940
00E390: 46 4F 52 20 5A 3D 31 20 54 4F 20 32 0D 0A 31 39 FOR Z=1 TO 2..19
00E3A0: 35 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 42 50 PRINT " B
00E3B0: 20 20 20 20 20 20 20 20 20 20 42 22 0D 0A 31 39 B"..19
00E3C0: 36 30 20 4E 45 58 54 20 5A 0D 0A 31 39 37 30 20 60 NEXT Z..1970
00E3D0: 49 46 20 54 3C 3E 31 20 54 48 45 4E 20 31 39 39 IF T<>1 THEN 199
00E3E0: 30 0D 0A 31 39 38 30 20 50 52 49 4E 54 20 22 54 0..1980 PRINT "T
00E3F0: 54 54 54 54 42 20 20 20 20 20 20 20 20 20 20 42 TTTTB B
00E400: 22 0D 0A 31 39 39 30 20 50 52 49 4E 54 20 22 20 "..1990 PRINT "
00E410: 20 20 20 20 42 42 42 42 42 42 42 42 42 42 42 42 BBBBBBBBBBBB
00E420: 22 0D 0A 32 30 30 30 20 49 46 20 4C 3D 30 20 54 "..2000 IF L=0 T
00E430: 48 45 4E 20 32 30 38 30 0D 0A 32 30 31 30 20 46 HEN 2080..2010 F
00E440: 4F 52 20 5A 3D 31 20 54 4F 20 32 0D 0A 32 30 32 OR Z=1 TO 2..202
00E450: 30 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 0D 0 PRINT TAB(5);.
00E460: 0A 32 30 33 30 20 46 4F 52 20 58 3D 31 20 54 4F .2030 FOR X=1 TO
00E470: 20 4C 0D 0A 32 30 34 30 20 50 52 49 4E 54 20 22 L..2040 PRINT "
00E480: 20 4C 22 3B 0D 0A 32 30 35 30 20 4E 45 58 54 20 L";..2050 NEXT
00E490: 58 0D 0A 32 30 36 30 20 50 52 49 4E 54 0D 0A 32 X..2060 PRINT..2
00E4A0: 30 37 30 20 4E 45 58 54 20 5A 0D 0A 32 30 38 30 070 NEXT Z..2080
00E4B0: 20 46 4F 52 20 5A 3D 31 20 54 4F 20 34 0D 0A 32 FOR Z=1 TO 4..2
00E4C0: 30 39 30 20 50 52 49 4E 54 0D 0A 32 31 30 30 20 090 PRINT..2100
00E4D0: 4E 45 58 54 20 5A 0D 0A 32 31 31 30 20 50 52 49 NEXT Z..2110 PRI
00E4E0: 4E 54 20 22 2A 2A 2A 2A 2A 4D 59 20 42 55 47 2A NT "*****MY BUG*
00E4F0: 2A 2A 2A 2A 22 0D 0A 32 31 32 30 20 50 52 49 4E ****"..2120 PRIN
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 00 00 02 09 52 E5 0C 00 C1 02 00 00 00 02 ......R.........
00E520: 0C 00 C6 02 00 00 00 02 0C 00 C2 02 00 00 00 02 ................
00E530: 0C 00 C7 02 00 00 00 02 0C 00 C3 02 00 00 00 02 ................
00E540: 0C 00 C8 02 00 00 00 02 0C 00 C4 02 00 00 00 02 ................
00E550: 0C 00 C9 02 00 00 00 02 0C 00 C5 02 00 00 00 02 ................
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E600: 52 45 53 20 41 4E 44 20 54 4F 52 45 41 44 4F 52 RES AND TOREADOR
00E610: 45 53 20 44 4F 2C 22 0D 0A 33 39 30 20 50 52 49 ES DO,"..390 PRI
00E620: 4E 54 20 22 54 48 45 20 42 45 54 54 45 52 20 59 NT "THE BETTER Y
00E630: 4F 55 52 20 43 48 41 4E 43 45 53 20 41 52 45 2E OUR CHANCES ARE.
00E640: 22 0D 0A 34 30 30 20 50 52 49 4E 54 0D 0A 34 31 "..400 PRINT..41
00E650: 30 20 50 52 49 4E 54 0D 0A 34 32 30 20 44 28 35 0 PRINT..420 D(5
00E660: 29 3D 31 0D 0A 34 33 30 20 44 28 34 29 3D 31 0D )=1..430 D(4)=1.
00E670: 0A 34 35 30 20 44 49 4D 20 4C 24 28 35 29 0D 0A .450 DIM L$(5)..
00E680: 34 35 35 20 41 3D 49 4E 54 28 52 4E 44 28 31 29 455 A=INT(RND(1)
00E690: 2A 35 2B 31 29 0D 0A 34 36 30 20 46 4F 52 20 49 *5+1)..460 FOR I
00E6A0: 3D 31 20 54 4F 20 35 0D 0A 34 36 33 20 52 45 41 =1 TO 5..463 REA
00E6B0: 44 20 4C 24 28 49 29 0D 0A 34 36 37 20 4E 45 58 D L$(I)..467 NEX
00E6C0: 54 20 49 0D 0A 34 37 30 20 44 41 54 41 20 22 53 T I..470 DATA "S
00E6D0: 55 50 45 52 42 22 2C 22 47 4F 4F 44 22 2C 22 46 UPERB","GOOD","F
00E6E0: 41 49 52 22 2C 22 50 4F 4F 52 22 2C 22 41 57 46 AIR","POOR","AWF
00E6F0: 55 4C 22 0D 0A 34 39 30 20 50 52 49 4E 54 20 22 UL"..490 PRINT "
00E700: 59 4F 55 20 48 41 56 45 20 44 52 41 57 4E 20 41 YOU HAVE DRAWN A
00E710: 20 22 3B 4C 24 28 41 29 3B 22 20 42 55 4C 4C 2E ";L$(A);" BULL.
00E720: 22 0D 0A 35 30 30 20 49 46 20 41 3E 34 20 54 48 "..500 IF A>4 TH
00E730: 45 4E 20 35 33 30 0D 0A 35 31 30 20 49 46 20 41 EN 530..510 IF A
00E740: 3C 32 20 54 48 45 4E 20 35 35 30 0D 0A 35 32 30 <2 THEN 550..520
00E750: 20 47 4F 54 4F 20 35 37 30 0D 0A 35 33 30 20 50 GOTO 570..530 P
00E760: 52 49 4E 54 20 22 59 4F 55 27 52 45 20 4C 55 43 RINT "YOU'RE LUC
00E770: 4B 59 2E 22 0D 0A 35 34 30 20 47 4F 54 4F 20 35 KY."..540 GOTO 5
00E780: 37 30 0D 0A 35 35 30 20 50 52 49 4E 54 20 22 47 70..550 PRINT "G
00E790: 4F 4F 44 20 4C 55 43 4B 2E 20 20 59 4F 55 27 4C OOD LUCK. YOU'L
00E7A0: 4C 20 4E 45 45 44 20 49 54 2E 22 0D 0A 35 36 30 L NEED IT."..560
00E7B0: 20 50 52 49 4E 54 0D 0A 35 37 30 20 50 52 49 4E PRINT..570 PRIN
00E7C0: 54 0D 0A 35 39 30 20 41 24 3D 22 50 49 43 41 44 T..590 A$="PICAD
00E7D0: 4F 22 0D 0A 35 39 35 20 42 24 3D 22 52 45 53 22 O"..595 B$="RES"
00E7E0: 0D 0A 36 30 30 20 47 4F 53 55 42 20 31 36 31 30 ..600 GOSUB 1610
00E7F0: 0D 0A 36 31 30 20 44 28 31 29 3D 43 0D 0A 36 33 ..610 D(1)=C..63
00E800: 29 2B 44 28 32 29 29 2A 32 2E 35 2B 34 2A 44 28 )+D(2))*2.5+4*D(
00E810: 34 29 2B 32 2A 44 28 35 29 2D 44 28 33 29 5E 32 4)+2*D(5)-D(3)^2
00E820: 2F 31 32 30 2D 41 29 0D 0A 31 34 30 30 20 49 46 /120-A)..1400 IF
00E830: 20 44 28 34 29 3C 3E 32 20 54 48 45 4E 20 31 34 D(4)<>2 THEN 14
00E840: 33 30 0D 0A 31 34 31 30 20 50 52 49 4E 54 20 22 30..1410 PRINT "
00E850: 54 48 45 20 43 52 4F 57 44 20 43 48 45 45 52 53 THE CROWD CHEERS
00E860: 20 57 49 4C 44 4C 59 21 22 0D 0A 31 34 32 30 20 WILDLY!"..1420
00E870: 47 4F 54 4F 20 31 34 35 30 0D 0A 31 34 33 30 20 GOTO 1450..1430
00E880: 49 46 20 44 28 35 29 3C 3E 32 20 54 48 45 4E 20 IF D(5)<>2 THEN
00E890: 31 34 35 30 0D 0A 31 34 34 30 20 50 52 49 4E 54 1450..1440 PRINT
00E8A0: 20 22 54 48 45 20 43 52 4F 57 44 20 43 48 45 45 "THE CROWD CHEE
00E8B0: 52 53 21 22 3A 50 52 49 4E 54 0D 0A 31 34 35 30 RS!":PRINT..1450
00E8C0: 20 50 52 49 4E 54 20 22 54 48 45 20 43 52 4F 57 PRINT "THE CROW
00E8D0: 44 20 41 57 41 52 44 53 20 59 4F 55 22 0D 0A 31 D AWARDS YOU"..1
00E8E0: 34 36 30 20 49 46 20 46 4E 43 28 51 29 3C 32 2E 460 IF FNC(Q)<2.
00E8F0: 34 20 54 48 45 4E 20 31 35 37 30 0D 0A 31 34 37 4 THEN 1570..147
00E900: 30 20 49 46 20 46 4E 43 28 51 29 3C 34 2E 39 20 0 IF FNC(Q)<4.9
00E910: 54 48 45 4E 20 31 35 35 30 0D 0A 31 34 38 30 20 THEN 1550..1480
00E920: 49 46 20 46 4E 43 28 51 29 3C 37 2E 34 20 54 48 IF FNC(Q)<7.4 TH
00E930: 45 4E 20 31 35 32 30 0D 0A 31 35 30 30 20 50 52 EN 1520..1500 PR
00E940: 49 4E 54 20 22 4F 4C 45 21 20 20 59 4F 55 20 41 INT "OLE! YOU A
00E950: 52 45 20 27 4D 55 59 20 48 4F 4D 42 52 45 27 21 RE 'MUY HOMBRE'!
00E960: 21 20 4F 4C 45 21 20 20 4F 4C 45 21 22 0D 0A 31 ! OLE! OLE!"..1
00E970: 35 31 30 20 47 4F 54 4F 20 31 35 38 30 0D 0A 31 510 GOTO 1580..1
00E980: 35 32 30 20 50 52 49 4E 54 20 22 42 4F 54 48 20 520 PRINT "BOTH
00E990: 45 41 52 53 20 4F 46 20 54 48 45 20 42 55 4C 4C EARS OF THE BULL
00E9A0: 21 22 0D 0A 31 35 33 30 20 50 52 49 4E 54 20 22 !"..1530 PRINT "
00E9B0: 4F 4C 45 21 22 0D 0A 31 35 34 30 20 47 4F 54 4F OLE!"..1540 GOTO
00E9C0: 20 31 35 38 30 0D 0A 31 35 35 30 20 50 52 49 4E 1580..1550 PRIN
00E9D0: 54 20 22 4F 4E 45 20 45 41 52 20 4F 46 20 54 48 T "ONE EAR OF TH
00E9E0: 45 20 42 55 4C 4C 2E 22 0D 0A 31 35 36 30 20 47 E BULL."..1560 G
00E9F0: 4F 54 4F 20 31 35 38 30 0D 0A 31 35 37 30 20 50 OTO 1580..1570 P
00EA00: 30 20 41 24 3D 22 54 4F 52 45 41 44 22 0D 0A 36 0 A$="TOREAD"..6
00EA10: 33 35 20 42 24 3D 22 4F 52 45 53 22 0D 0A 36 34 35 B$="ORES"..64
00EA20: 30 20 47 4F 53 55 42 20 31 36 31 30 0D 0A 36 35 0 GOSUB 1610..65
00EA30: 30 20 44 28 32 29 3D 43 0D 0A 36 36 30 20 50 52 0 D(2)=C..660 PR
00EA40: 49 4E 54 0D 0A 36 37 30 20 50 52 49 4E 54 0D 0A INT..670 PRINT..
00EA50: 36 38 30 20 49 46 20 5A 3D 31 20 54 48 45 4E 20 680 IF Z=1 THEN
00EA60: 31 33 31 30 0D 0A 36 39 30 20 44 28 33 29 3D 44 1310..690 D(3)=D
00EA70: 28 33 29 2B 31 0D 0A 37 30 30 20 50 52 49 4E 54 (3)+1..700 PRINT
00EA80: 20 22 50 41 53 53 20 4E 55 4D 42 45 52 22 3B 44 "PASS NUMBER";D
00EA90: 28 33 29 0D 0A 37 31 30 20 49 46 20 44 28 33 29 (3)..710 IF D(3)
00EAA0: 3C 33 20 54 48 45 4E 20 37 36 30 0D 0A 37 32 30 <3 THEN 760..720
00EAB0: 20 50 52 49 4E 54 20 22 48 45 52 45 20 43 4F 4D PRINT "HERE COM
00EAC0: 45 53 20 54 48 45 20 42 55 4C 4C 2E 20 20 54 52 ES THE BULL. TR
00EAD0: 59 20 46 4F 52 20 41 20 4B 49 4C 4C 22 3B 0D 0A Y FOR A KILL";..
00EAE0: 37 33 30 20 47 4F 53 55 42 20 31 39 33 30 0D 0A 730 GOSUB 1930..
00EAF0: 37 33 35 20 49 46 20 5A 31 3D 31 20 54 48 45 4E 735 IF Z1=1 THEN
00EB00: 20 31 31 33 30 0D 0A 37 34 30 20 50 52 49 4E 54 1130..740 PRINT
00EB10: 20 22 43 41 50 45 20 4D 4F 56 45 22 3B 0D 0A 37 "CAPE MOVE";..7
00EB20: 35 30 20 47 4F 54 4F 20 38 30 30 0D 0A 37 36 30 50 GOTO 800..760
00EB30: 20 50 52 49 4E 54 20 22 54 48 45 20 42 55 4C 4C PRINT "THE BULL
00EB40: 20 49 53 20 43 48 41 52 47 49 4E 47 20 41 54 20 IS CHARGING AT
00EB50: 59 4F 55 21 20 20 59 4F 55 20 41 52 45 20 54 48 YOU! YOU ARE TH
00EB60: 45 20 4D 41 54 41 44 4F 52 2D 2D 22 0D 0A 37 37 E MATADOR--"..77
00EB70: 30 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 0 PRINT "DO YOU
00EB80: 57 41 4E 54 20 54 4F 20 4B 49 4C 4C 20 54 48 45 WANT TO KILL THE
00EB90: 20 42 55 4C 4C 22 3B 0D 0A 37 38 30 20 47 4F 53 BULL";..780 GOS
00EBA0: 55 42 20 31 39 33 30 0D 0A 37 38 35 20 49 46 20 UB 1930..785 IF
00EBB0: 5A 31 3D 31 20 54 48 45 4E 20 31 31 33 30 0D 0A Z1=1 THEN 1130..
00EBC0: 37 39 30 20 50 52 49 4E 54 20 22 57 48 41 54 20 790 PRINT "WHAT
00EBD0: 4D 4F 56 45 20 44 4F 20 59 4F 55 20 4D 41 4B 45 MOVE DO YOU MAKE
00EBE0: 20 57 49 54 48 20 54 48 45 20 43 41 50 45 22 3B WITH THE CAPE";
00EBF0: 0D 0A 38 30 30 20 49 4E 50 55 54 20 45 0D 0A 38 ..800 INPUT E..8
00EC00: 52 49 4E 54 20 22 4E 4F 54 48 49 4E 47 20 41 54 RINT "NOTHING AT
00EC10: 20 41 4C 4C 2E 22 0D 0A 31 35 38 30 20 50 52 49 ALL."..1580 PRI
00EC20: 4E 54 0D 0A 31 35 39 30 20 50 52 49 4E 54 20 22 NT..1590 PRINT "
00EC30: 41 44 49 4F 53 22 3A 50 52 49 4E 54 3A 50 52 49 ADIOS":PRINT:PRI
00EC40: 4E 54 3A 50 52 49 4E 54 0D 0A 31 36 30 30 20 47 NT:PRINT..1600 G
00EC50: 4F 54 4F 20 32 30 33 30 0D 0A 31 36 31 30 20 42 OTO 2030..1610 B
00EC60: 3D 33 2F 41 2A 52 4E 44 28 31 29 0D 0A 31 36 32 =3/A*RND(1)..162
00EC70: 30 20 49 46 20 42 3C 2E 33 37 20 54 48 45 4E 20 0 IF B<.37 THEN
00EC80: 31 37 34 30 0D 0A 31 36 33 30 20 49 46 20 42 3C 1740..1630 IF B<
00EC90: 2E 35 20 54 48 45 4E 20 31 37 32 30 0D 0A 31 36 .5 THEN 1720..16
00ECA0: 34 30 20 49 46 20 42 3C 2E 36 33 20 54 48 45 4E 40 IF B<.63 THEN
00ECB0: 20 31 37 30 30 0D 0A 31 36 35 30 20 49 46 20 42 1700..1650 IF B
00ECC0: 3C 2E 38 37 20 54 48 45 4E 20 31 36 38 30 0D 0A <.87 THEN 1680..
00ECD0: 31 36 36 30 20 43 3D 2E 31 0D 0A 31 36 37 30 20 1660 C=.1..1670
00ECE0: 47 4F 54 4F 20 31 37 35 30 0D 0A 31 36 38 30 20 GOTO 1750..1680
00ECF0: 43 3D 2E 32 0D 0A 31 36 39 30 20 47 4F 54 4F 20 C=.2..1690 GOTO
00ED00: 31 37 35 30 0D 0A 31 37 30 30 20 43 3D 2E 33 0D 1750..1700 C=.3.
00ED10: 0A 31 37 31 30 20 47 4F 54 4F 20 31 37 35 30 0D .1710 GOTO 1750.
00ED20: 0A 31 37 32 30 20 43 3D 2E 34 0D 0A 31 37 33 30 .1720 C=.4..1730
00ED30: 20 47 4F 54 4F 20 31 37 35 30 0D 0A 31 37 34 30 GOTO 1750..1740
00ED40: 20 43 3D 2E 35 0D 0A 31 37 35 30 20 54 3D 49 4E C=.5..1750 T=IN
00ED50: 54 28 31 30 2A 43 2B 2E 32 29 0D 0A 31 37 36 30 T(10*C+.2)..1760
00ED60: 20 50 52 49 4E 54 20 22 54 48 45 20 22 3B 41 24 PRINT "THE ";A$
00ED70: 3B 42 24 3B 22 20 44 49 44 20 41 20 22 3B 4C 24 ;B$;" DID A ";L$
00ED80: 28 54 29 3B 22 20 4A 4F 42 2E 22 0D 0A 31 37 37 (T);" JOB."..177
00ED90: 30 20 49 46 20 34 3E 54 20 54 48 45 4E 20 31 39 0 IF 4>T THEN 19
00EDA0: 30 30 0D 0A 31 37 38 30 20 49 46 20 35 3D 54 20 00..1780 IF 5=T
00EDB0: 54 48 45 4E 20 31 38 37 30 0D 0A 31 37 39 30 20 THEN 1870..1790
00EDC0: 4F 4E 20 46 4E 41 28 4B 29 20 47 4F 54 4F 20 31 ON FNA(K) GOTO 1
00EDD0: 38 33 30 2C 31 38 35 30 0D 0A 31 38 30 30 20 49 830,1850..1800 I
00EDE0: 46 20 41 24 3D 22 54 4F 52 45 41 44 22 20 54 48 F A$="TOREAD" TH
00EDF0: 45 4E 20 31 38 32 30 0D 0A 31 38 31 30 20 50 52 EN 1820..1810 PR
00EE00: 31 30 20 49 46 20 45 3C 3E 49 4E 54 28 41 42 53 10 IF E<>INT(ABS
00EE10: 28 45 29 29 20 54 48 45 4E 20 38 33 30 0D 0A 38 (E)) THEN 830..8
00EE20: 32 30 20 49 46 20 45 3C 33 20 54 48 45 4E 20 38 20 IF E<3 THEN 8
00EE30: 35 30 0D 0A 38 33 30 20 50 52 49 4E 54 20 22 44 50..830 PRINT "D
00EE40: 4F 4E 27 54 20 50 41 4E 49 43 2C 20 59 4F 55 20 ON'T PANIC, YOU
00EE50: 49 44 49 4F 54 21 20 20 50 55 54 20 44 4F 57 4E IDIOT! PUT DOWN
00EE60: 20 41 20 43 4F 52 52 45 43 54 20 4E 55 4D 42 45 A CORRECT NUMBE
00EE70: 52 22 0D 0A 38 34 30 20 47 4F 54 4F 20 38 30 30 R"..840 GOTO 800
00EE80: 0D 0A 38 35 30 20 52 45 4D 0D 0A 38 36 30 20 49 ..850 REM..860 I
00EE90: 46 20 45 3D 30 20 54 48 45 4E 20 39 32 30 0D 0A F E=0 THEN 920..
00EEA0: 38 37 30 20 49 46 20 45 3D 31 20 54 48 45 4E 20 870 IF E=1 THEN
00EEB0: 39 30 30 0D 0A 38 38 30 20 4D 3D 2E 35 0D 0A 38 900..880 M=.5..8
00EEC0: 39 30 20 47 4F 54 4F 20 39 33 30 0D 0A 39 30 30 90 GOTO 930..900
00EED0: 20 4D 3D 32 0D 0A 39 31 30 20 47 4F 54 4F 20 39 M=2..910 GOTO 9
00EEE0: 33 30 0D 0A 39 32 30 20 4D 3D 33 0D 0A 39 33 30 30..920 M=3..930
00EEF0: 20 4C 3D 4C 2B 4D 0D 0A 39 34 30 20 46 3D 28 36 L=L+M..940 F=(6
00EF00: 2D 41 2B 4D 2F 31 30 29 2A 52 4E 44 28 31 29 2F -A+M/10)*RND(1)/
00EF10: 28 28 44 28 31 29 2B 44 28 32 29 2B 44 28 33 29 ((D(1)+D(2)+D(3)
00EF20: 2F 31 30 29 2A 35 29 0D 0A 39 35 30 20 49 46 20 /10)*5)..950 IF
00EF30: 46 3C 2E 35 31 20 54 48 45 4E 20 36 36 30 0D 0A F<.51 THEN 660..
00EF40: 39 36 30 20 50 52 49 4E 54 20 22 54 48 45 20 42 960 PRINT "THE B
00EF50: 55 4C 4C 20 48 41 53 20 47 4F 52 45 44 20 59 4F ULL HAS GORED YO
00EF60: 55 21 22 0D 0A 39 37 30 20 4F 4E 20 46 4E 41 28 U!"..970 ON FNA(
00EF70: 30 29 20 47 4F 54 4F 20 39 38 30 2C 31 30 31 30 0) GOTO 980,1010
00EF80: 0D 0A 39 38 30 20 50 52 49 4E 54 20 22 59 4F 55 ..980 PRINT "YOU
00EF90: 20 41 52 45 20 44 45 41 44 2E 22 0D 0A 39 39 30 ARE DEAD."..990
00EFA0: 20 44 28 34 29 3D 31 2E 35 0D 0A 31 30 30 30 20 D(4)=1.5..1000
00EFB0: 47 4F 54 4F 20 31 33 31 30 0D 0A 31 30 31 30 20 GOTO 1310..1010
00EFC0: 50 52 49 4E 54 20 22 59 4F 55 20 41 52 45 20 53 PRINT "YOU ARE S
00EFD0: 54 49 4C 4C 20 41 4C 49 56 45 2E 22 3A 50 52 49 TILL ALIVE.":PRI
00EFE0: 4E 54 0D 0A 31 30 32 30 20 50 52 49 4E 54 20 22 NT..1020 PRINT "
00EFF0: 44 4F 20 59 4F 55 20 52 55 4E 20 46 52 4F 4D 20 DO YOU RUN FROM
00F000: 49 4E 54 20 22 4F 4E 45 20 4F 46 20 54 48 45 20 INT "ONE OF THE
00F010: 48 4F 52 53 45 53 20 4F 46 20 54 48 45 20 22 3B HORSES OF THE ";
00F020: 41 24 3B 42 24 3B 22 20 57 41 53 20 4B 49 4C 4C A$;B$;" WAS KILL
00F030: 45 44 2E 22 0D 0A 31 38 32 30 20 4F 4E 20 46 4E ED."..1820 ON FN
00F040: 41 28 4B 29 20 47 4F 54 4F 20 31 38 33 30 2C 31 A(K) GOTO 1830,1
00F050: 38 35 30 0D 0A 31 38 33 30 20 50 52 49 4E 54 20 850..1830 PRINT
00F060: 22 4F 4E 45 20 4F 46 20 54 48 45 20 22 3B 41 24 "ONE OF THE ";A$
00F070: 3B 42 24 3B 22 20 57 41 53 20 4B 49 4C 4C 45 44 ;B$;" WAS KILLED
00F080: 2E 22 0D 0A 31 38 34 30 20 47 4F 54 4F 20 31 39 ."..1840 GOTO 19
00F090: 30 30 0D 0A 31 38 35 30 20 50 52 49 4E 54 20 22 00..1850 PRINT "
00F0A0: 4E 4F 20 22 3B 41 24 3B 42 24 3B 22 20 57 45 52 NO ";A$;B$;" WER
00F0B0: 45 20 4B 49 4C 4C 45 44 2E 22 0D 0A 31 38 36 30 E KILLED."..1860
00F0C0: 20 47 4F 54 4F 20 31 39 30 30 0D 0A 31 38 37 30 GOTO 1900..1870
00F0D0: 20 49 46 20 41 24 3D 22 54 4F 52 45 41 44 22 20 IF A$="TOREAD"
00F0E0: 54 48 45 4E 20 31 38 39 30 0D 0A 31 38 38 30 20 THEN 1890..1880
00F0F0: 50 52 49 4E 54 20 46 4E 41 28 4B 29 3B 22 4F 46 PRINT FNA(K);"OF
00F100: 20 54 48 45 20 48 4F 52 53 45 53 20 4F 46 20 54 THE HORSES OF T
00F110: 48 45 20 22 3B 41 24 3B 42 24 3B 22 20 4B 49 4C HE ";A$;B$;" KIL
00F120: 4C 45 44 2E 22 0D 0A 31 38 39 30 20 50 52 49 4E LED."..1890 PRIN
00F130: 54 20 46 4E 41 28 4B 29 3B 22 4F 46 20 54 48 45 T FNA(K);"OF THE
00F140: 20 22 3B 41 24 3B 42 24 3B 22 20 4B 49 4C 4C 45 ";A$;B$;" KILLE
00F150: 44 2E 22 0D 0A 31 39 30 30 20 50 52 49 4E 54 0D D."..1900 PRINT.
00F160: 0A 31 39 31 30 20 52 45 54 55 52 4E 0D 0A 31 39 .1910 RETURN..19
00F170: 32 30 20 52 45 4D 0D 0A 31 39 33 30 20 49 4E 50 20 REM..1930 INP
00F180: 55 54 20 41 24 0D 0A 31 39 34 30 20 49 46 20 41 UT A$..1940 IF A
00F190: 24 3D 22 59 45 53 22 20 54 48 45 4E 20 31 39 39 $="YES" THEN 199
00F1A0: 30 0D 0A 31 39 35 30 20 49 46 20 41 24 3D 22 4E 0..1950 IF A$="N
00F1B0: 4F 22 20 54 48 45 4E 20 32 30 31 30 0D 0A 31 39 O" THEN 2010..19
00F1C0: 37 30 20 50 52 49 4E 54 20 22 49 4E 43 4F 52 52 70 PRINT "INCORR
00F1D0: 45 43 54 20 41 4E 53 57 45 52 20 2D 20 2D 20 50 ECT ANSWER - - P
00F1E0: 4C 45 41 53 45 20 54 59 50 45 20 27 59 45 53 27 LEASE TYPE 'YES'
00F1F0: 20 4F 52 20 27 4E 4F 27 2E 22 0D 0A 31 39 38 30 OR 'NO'."..1980
00F200: 54 48 45 20 52 49 4E 47 22 3B 0D 0A 31 30 33 30 THE RING";..1030
00F210: 20 47 4F 53 55 42 20 31 39 33 30 0D 0A 31 30 33 GOSUB 1930..103
00F220: 35 20 49 46 20 5A 31 3D 32 20 54 48 45 4E 20 31 5 IF Z1=2 THEN 1
00F230: 30 37 30 0D 0A 31 30 34 30 20 50 52 49 4E 54 20 070..1040 PRINT
00F240: 22 43 4F 57 41 52 44 22 0D 0A 31 30 35 30 20 44 "COWARD"..1050 D
00F250: 28 34 29 3D 30 0D 0A 31 30 36 30 20 47 4F 54 4F (4)=0..1060 GOTO
00F260: 20 31 33 31 30 0D 0A 31 30 37 30 20 50 52 49 4E 1310..1070 PRIN
00F270: 54 20 22 59 4F 55 20 41 52 45 20 42 52 41 56 45 T "YOU ARE BRAVE
00F280: 2E 20 20 53 54 55 50 49 44 2C 20 42 55 54 20 42 . STUPID, BUT B
00F290: 52 41 56 45 2E 22 0D 0A 31 30 38 30 20 4F 4E 20 RAVE."..1080 ON
00F2A0: 46 4E 41 28 30 29 20 47 4F 54 4F 20 31 30 39 30 FNA(0) GOTO 1090
00F2B0: 2C 31 31 31 30 0D 0A 31 30 39 30 20 44 28 34 29 ,1110..1090 D(4)
00F2C0: 3D 32 0D 0A 31 31 30 30 20 47 4F 54 4F 20 36 36 =2..1100 GOTO 66
00F2D0: 30 0D 0A 31 31 31 30 20 50 52 49 4E 54 20 22 59 0..1110 PRINT "Y
00F2E0: 4F 55 20 41 52 45 20 47 4F 52 45 44 20 41 47 41 OU ARE GORED AGA
00F2F0: 49 4E 21 22 0D 0A 31 31 32 30 20 47 4F 54 4F 20 IN!"..1120 GOTO
00F300: 39 37 30 0D 0A 31 31 33 30 20 52 45 4D 0D 0A 31 970..1130 REM..1
00F310: 31 34 30 20 5A 3D 31 0D 0A 31 31 35 30 20 50 52 140 Z=1..1150 PR
00F320: 49 4E 54 3A 50 52 49 4E 54 20 22 49 54 20 49 53 INT:PRINT "IT IS
00F330: 20 54 48 45 20 4D 4F 4D 45 4E 54 20 4F 46 20 54 THE MOMENT OF T
00F340: 52 55 54 48 2E 22 3A 50 52 49 4E 54 0D 0A 31 31 RUTH.":PRINT..11
00F350: 35 35 20 50 52 49 4E 54 20 22 48 4F 57 20 44 4F 55 PRINT "HOW DO
00F360: 20 59 4F 55 20 54 52 59 20 54 4F 20 4B 49 4C 4C YOU TRY TO KILL
00F370: 20 54 48 45 20 42 55 4C 4C 22 3B 0D 0A 31 31 36 THE BULL";..116
00F380: 30 20 49 4E 50 55 54 20 48 0D 0A 31 31 37 30 20 0 INPUT H..1170
00F390: 49 46 20 48 3D 34 20 54 48 45 4E 20 31 32 33 30 IF H=4 THEN 1230
00F3A0: 0D 0A 31 31 38 30 20 49 46 20 48 3D 35 20 54 48 ..1180 IF H=5 TH
00F3B0: 45 4E 20 31 32 33 30 0D 0A 31 31 39 30 20 50 52 EN 1230..1190 PR
00F3C0: 49 4E 54 20 22 59 4F 55 20 50 41 4E 49 43 4B 45 INT "YOU PANICKE
00F3D0: 44 2E 20 20 54 48 45 20 42 55 4C 4C 20 47 4F 52 D. THE BULL GOR
00F3E0: 45 44 20 59 4F 55 2E 22 0D 0A 31 32 32 30 20 47 ED YOU."..1220 G
00F3F0: 4F 54 4F 20 39 37 30 0D 0A 31 32 33 30 20 4B 3D OTO 970..1230 K=
00F400: 20 47 4F 54 4F 20 31 39 33 30 0D 0A 31 39 39 30 GOTO 1930..1990
00F410: 20 5A 31 3D 31 0D 0A 32 30 30 30 20 47 4F 54 4F Z1=1..2000 GOTO
00F420: 20 32 30 32 30 0D 0A 32 30 31 30 20 5A 31 3D 32 2020..2010 Z1=2
00F430: 0D 0A 32 30 32 30 20 52 45 54 55 52 4E 0D 0A 32 ..2020 RETURN..2
00F440: 30 33 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 030 END.........
00F450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F600: 28 36 2D 41 29 2A 31 30 2A 52 4E 44 28 31 29 2F (6-A)*10*RND(1)/
00F610: 28 28 44 28 31 29 2B 44 28 32 29 29 2A 35 2A 44 ((D(1)+D(2))*5*D
00F620: 28 33 29 29 0D 0A 31 32 34 30 20 49 46 20 4A 3D (3))..1240 IF J=
00F630: 34 20 54 48 45 4E 20 31 32 39 30 0D 0A 31 32 35 4 THEN 1290..125
00F640: 30 20 49 46 20 4B 3E 2E 32 20 54 48 45 4E 20 39 0 IF K>.2 THEN 9
00F650: 36 30 0D 0A 31 32 36 30 20 50 52 49 4E 54 20 22 60..1260 PRINT "
00F660: 59 4F 55 20 4B 49 4C 4C 45 44 20 54 48 45 20 42 YOU KILLED THE B
00F670: 55 4C 4C 21 22 0D 0A 31 32 37 30 20 44 28 35 29 ULL!"..1270 D(5)
00F680: 3D 32 0D 0A 31 32 38 30 20 47 4F 54 4F 20 31 33 =2..1280 GOTO 13
00F690: 32 30 0D 0A 31 32 39 30 20 49 46 20 4B 3E 2E 38 20..1290 IF K>.8
00F6A0: 20 54 48 45 4E 20 39 36 30 0D 0A 31 33 30 30 20 THEN 960..1300
00F6B0: 47 4F 54 4F 20 31 32 36 30 0D 0A 31 33 31 30 20 GOTO 1260..1310
00F6C0: 50 52 49 4E 54 0D 0A 31 33 32 30 20 50 52 49 4E PRINT..1320 PRIN
00F6D0: 54 0D 0A 31 33 33 30 20 50 52 49 4E 54 0D 0A 31 T..1330 PRINT..1
00F6E0: 33 34 30 20 49 46 20 44 28 34 29 3C 3E 30 20 54 340 IF D(4)<>0 T
00F6F0: 48 45 4E 20 31 33 39 30 0D 0A 31 33 35 30 20 50 HEN 1390..1350 P
00F700: 52 49 4E 54 20 22 54 48 45 20 43 52 4F 57 44 20 RINT "THE CROWD
00F710: 42 4F 4F 53 20 46 4F 52 20 54 45 4E 20 4D 49 4E BOOS FOR TEN MIN
00F720: 55 54 45 53 2E 20 20 49 46 20 59 4F 55 20 45 56 UTES. IF YOU EV
00F730: 45 52 20 44 41 52 45 20 54 4F 20 53 48 4F 57 22 ER DARE TO SHOW"
00F740: 0D 0A 31 33 36 30 20 50 52 49 4E 54 20 22 59 4F ..1360 PRINT "YO
00F750: 55 52 20 46 41 43 45 20 49 4E 20 41 20 52 49 4E UR FACE IN A RIN
00F760: 47 20 41 47 41 49 4E 2C 20 54 48 45 59 20 53 57 G AGAIN, THEY SW
00F770: 45 41 52 20 54 48 45 59 20 57 49 4C 4C 20 4B 49 EAR THEY WILL KI
00F780: 4C 4C 20 59 4F 55 2D 2D 22 0D 0A 31 33 37 30 20 LL YOU--"..1370
00F790: 50 52 49 4E 54 20 22 55 4E 4C 45 53 20 54 48 45 PRINT "UNLES THE
00F7A0: 20 42 55 4C 4C 20 44 4F 45 53 20 46 49 52 53 54 BULL DOES FIRST
00F7B0: 2E 22 0D 0A 31 33 38 30 20 47 4F 54 4F 20 31 35 ."..1380 GOTO 15
00F7C0: 38 30 0D 0A 31 33 39 30 20 44 45 46 20 46 4E 43 80..1390 DEF FNC
00F7D0: 28 51 29 3D 46 4E 44 28 51 29 2A 52 4E 44 28 31 (Q)=FND(Q)*RND(1
00F7E0: 29 0D 0A 31 33 39 35 20 44 45 46 20 46 4E 44 28 )..1395 DEF FND(
00F7F0: 51 29 3D 28 34 2E 35 2B 4C 2F 36 2D 28 44 28 31 Q)=(4.5+L/6-(D(1
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 00 00 02 09 52 E5 0D 00 C1 02 00 00 00 02 ......R.........
00F820: 0D 00 C6 02 00 00 00 02 0D 00 C2 02 00 00 00 02 ................
00F830: 0D 00 C7 02 00 00 00 02 0D 00 C3 02 00 00 00 02 ................
00F840: 0D 00 C8 02 00 00 00 02 0D 00 C4 02 00 00 00 02 ................
00F850: 0D 00 C9 02 00 00 00 02 0D 00 C5 02 00 00 00 02 ................
00F860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00F9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00FB00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
00FB10: 3B 22 42 55 4E 4E 59 22 0D 0A 32 30 20 50 52 49 ;"BUNNY"..20 PRI
00FB20: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
00FB30: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
00FB40: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
00FB50: 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E JERSEY"..30 PRIN
00FB60: 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D T: PRINT: PRINT.
00FB70: 0A 31 30 30 20 52 45 4D 20 20 22 42 55 4E 4E 59 .100 REM "BUNNY
00FB80: 22 20 46 52 4F 4D 20 41 48 4C 27 53 20 27 42 41 " FROM AHL'S 'BA
00FB90: 53 49 43 20 43 4F 4D 50 55 54 45 52 20 47 41 4D SIC COMPUTER GAM
00FBA0: 45 53 27 0D 0A 31 31 30 20 52 45 4D 0D 0A 31 32 ES'..110 REM..12
00FBB0: 30 20 46 4F 52 20 49 3D 30 20 54 4F 20 34 3A 20 0 FOR I=0 TO 4:
00FBC0: 52 45 41 44 20 42 28 49 29 3A 20 4E 45 58 54 20 READ B(I): NEXT
00FBD0: 49 0D 0A 31 33 30 20 47 4F 53 55 42 20 32 36 30 I..130 GOSUB 260
00FBE0: 0D 0A 31 34 30 20 4C 3D 36 34 3A 20 52 45 4D 20 ..140 L=64: REM
00FBF0: 20 41 53 43 49 49 20 4C 45 54 54 45 52 20 43 4F ASCII LETTER CO
00FC00: 44 45 2E 2E 2E 0D 0A 31 35 30 20 52 45 4D 0D 0A DE.....150 REM..
00FC10: 31 36 30 20 50 52 49 4E 54 0D 0A 31 37 30 20 52 160 PRINT..170 R
00FC20: 45 41 44 20 58 3A 20 49 46 20 58 3C 30 20 54 48 EAD X: IF X<0 TH
00FC30: 45 4E 20 31 36 30 0D 0A 31 37 35 20 49 46 20 58 EN 160..175 IF X
00FC40: 3E 31 32 38 20 54 48 45 4E 20 32 34 30 0D 0A 31 >128 THEN 240..1
00FC50: 38 30 20 50 52 49 4E 54 20 54 41 42 28 58 29 3B 80 PRINT TAB(X);
00FC60: 3A 20 52 45 41 44 20 59 0D 0A 31 39 30 20 46 4F : READ Y..190 FO
00FC70: 52 20 49 3D 58 20 54 4F 20 59 3A 20 4A 3D 49 2D R I=X TO Y: J=I-
00FC80: 35 2A 49 4E 54 28 49 2F 35 29 0D 0A 32 30 30 20 5*INT(I/5)..200
00FC90: 50 52 49 4E 54 20 43 48 52 24 28 4C 2B 42 28 4A PRINT CHR$(L+B(J
00FCA0: 29 29 3B 0D 0A 32 31 30 20 4E 45 58 54 20 49 0D ));..210 NEXT I.
00FCB0: 0A 32 32 30 20 47 4F 54 4F 20 31 37 30 0D 0A 32 .220 GOTO 170..2
00FCC0: 33 30 20 52 45 4D 0D 0A 32 34 30 20 47 4F 53 55 30 REM..240 GOSU
00FCD0: 42 20 32 36 30 3A 20 47 4F 54 4F 20 34 35 30 0D B 260: GOTO 450.
00FCE0: 0A 32 35 30 20 52 45 4D 0D 0A 32 36 30 20 46 4F .250 REM..260 FO
00FCF0: 52 20 49 3D 31 20 54 4F 20 36 3A 20 50 52 49 4E R I=1 TO 6: PRIN
00FD00: 35 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 3B 5 PRINT TAB(32);
00FD10: 22 42 55 4C 4C 53 45 59 45 22 0D 0A 31 30 20 50 "BULLSEYE"..10 P
00FD20: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
00FD30: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
00FD40: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
00FD50: 57 20 4A 45 52 53 45 59 22 0D 0A 32 30 20 50 52 W JERSEY"..20 PR
00FD60: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
00FD70: 0A 33 30 20 50 52 49 4E 54 20 22 49 4E 20 54 48 .30 PRINT "IN TH
00FD80: 49 53 20 47 41 4D 45 2C 20 55 50 20 54 4F 20 32 IS GAME, UP TO 2
00FD90: 30 20 50 4C 41 59 45 52 53 20 54 48 52 4F 57 20 0 PLAYERS THROW
00FDA0: 44 41 52 54 53 20 41 54 20 41 20 54 41 52 47 45 DARTS AT A TARGE
00FDB0: 54 22 0D 0A 34 30 20 50 52 49 4E 54 20 22 57 49 T"..40 PRINT "WI
00FDC0: 54 48 20 31 30 2C 20 32 30 2C 20 33 30 2C 20 41 TH 10, 20, 30, A
00FDD0: 4E 44 20 34 30 20 50 4F 49 4E 54 20 5A 4F 4E 45 ND 40 POINT ZONE
00FDE0: 53 2E 20 20 54 48 45 20 4F 42 4A 45 43 54 49 56 S. THE OBJECTIV
00FDF0: 45 20 49 53 22 0D 0A 35 30 20 50 52 49 4E 54 20 E IS"..50 PRINT
00FE00: 22 54 4F 20 47 45 54 20 32 30 30 20 50 4F 49 4E "TO GET 200 POIN
00FE10: 54 53 2E 22 3A 20 50 52 49 4E 54 0D 0A 36 30 20 TS.": PRINT..60
00FE20: 50 52 49 4E 54 20 22 54 48 52 4F 57 22 2C 54 41 PRINT "THROW",TA
00FE30: 42 28 32 30 29 3B 22 44 45 53 43 52 49 50 54 49 B(20);"DESCRIPTI
00FE40: 4F 4E 22 3B 54 41 42 28 34 35 29 3B 22 50 52 4F ON";TAB(45);"PRO
00FE50: 42 41 42 4C 45 20 53 43 4F 52 45 22 0D 0A 37 30 BABLE SCORE"..70
00FE60: 20 50 52 49 4E 54 22 20 31 22 3B 54 41 42 28 32 PRINT" 1";TAB(2
00FE70: 30 29 3B 22 46 41 53 54 20 4F 56 45 52 41 52 4D 0);"FAST OVERARM
00FE80: 22 3B 54 41 42 28 34 35 29 3B 22 42 55 4C 4C 53 ";TAB(45);"BULLS
00FE90: 45 59 45 20 4F 52 20 43 4F 4D 50 4C 45 54 45 20 EYE OR COMPLETE
00FEA0: 4D 49 53 53 22 0D 0A 38 30 20 50 52 49 4E 54 22 MISS"..80 PRINT"
00FEB0: 20 32 22 3B 54 41 42 28 32 30 29 3B 22 43 4F 4E 2";TAB(20);"CON
00FEC0: 54 52 4F 4C 4C 45 44 20 4F 56 45 52 41 52 4D 22 TROLLED OVERARM"
00FED0: 3B 54 41 42 28 34 35 29 3B 22 31 30 2C 20 32 30 ;TAB(45);"10, 20
00FEE0: 20 4F 52 20 33 30 20 50 4F 49 4E 54 53 22 0D 0A OR 30 POINTS"..
00FEF0: 39 30 20 50 52 49 4E 54 22 20 33 22 3B 54 41 42 90 PRINT" 3";TAB
00FF00: 54 20 43 48 52 24 28 31 30 29 3B 3A 20 4E 45 58 T CHR$(10);: NEX
00FF10: 54 20 49 0D 0A 32 37 30 20 52 45 54 55 52 4E 0D T I..270 RETURN.
00FF20: 0A 32 38 30 20 52 45 4D 0D 0A 32 39 30 20 44 41 .280 REM..290 DA
00FF30: 54 41 20 32 2C 32 31 2C 31 34 2C 31 34 2C 32 35 TA 2,21,14,14,25
00FF40: 0D 0A 33 30 30 20 44 41 54 41 20 31 2C 32 2C 2D ..300 DATA 1,2,-
00FF50: 31 2C 30 2C 32 2C 34 35 2C 35 30 2C 2D 31 2C 30 1,0,2,45,50,-1,0
00FF60: 2C 35 2C 34 33 2C 35 32 2C 2D 31 2C 30 2C 37 2C ,5,43,52,-1,0,7,
00FF70: 34 31 2C 35 32 2C 2D 31 0D 0A 33 31 30 20 44 41 41,52,-1..310 DA
00FF80: 54 41 20 31 2C 39 2C 33 37 2C 35 30 2C 2D 31 2C TA 1,9,37,50,-1,
00FF90: 32 2C 31 31 2C 33 36 2C 35 30 2C 2D 31 2C 33 2C 2,11,36,50,-1,3,
00FFA0: 31 33 2C 33 34 2C 34 39 2C 2D 31 2C 34 2C 31 34 13,34,49,-1,4,14
00FFB0: 2C 33 32 2C 34 38 2C 2D 31 0D 0A 33 32 30 20 44 ,32,48,-1..320 D
00FFC0: 41 54 41 20 35 2C 31 35 2C 33 31 2C 34 37 2C 2D ATA 5,15,31,47,-
00FFD0: 31 2C 36 2C 31 36 2C 33 30 2C 34 35 2C 2D 31 2C 1,6,16,30,45,-1,
00FFE0: 37 2C 31 37 2C 32 39 2C 34 34 2C 2D 31 2C 38 2C 7,17,29,44,-1,8,
00FFF0: 31 39 2C 32 38 2C 34 33 2C 2D 31 0D 0A 33 33 30 19,28,43,-1..330
010000: 20 44 41 54 41 20 39 2C 32 30 2C 32 37 2C 34 31 DATA 9,20,27,41
010010: 2C 2D 31 2C 31 30 2C 32 31 2C 32 36 2C 34 30 2C ,-1,10,21,26,40,
010020: 2D 31 2C 31 31 2C 32 32 2C 32 35 2C 33 38 2C 2D -1,11,22,25,38,-
010030: 31 2C 31 32 2C 32 32 2C 32 34 2C 33 36 2C 2D 31 1,12,22,24,36,-1
010040: 0D 0A 33 34 30 20 44 41 54 41 20 31 33 2C 33 34 ..340 DATA 13,34
010050: 2C 2D 31 2C 31 34 2C 33 33 2C 2D 31 2C 31 35 2C ,-1,14,33,-1,15,
010060: 33 31 2C 2D 31 2C 31 37 2C 32 39 2C 2D 31 2C 31 31,-1,17,29,-1,1
010070: 38 2C 32 37 2C 2D 31 0D 0A 33 35 30 20 44 41 54 8,27,-1..350 DAT
010080: 41 20 31 39 2C 32 36 2C 2D 31 2C 31 36 2C 32 38 A 19,26,-1,16,28
010090: 2C 2D 31 2C 31 33 2C 33 30 2C 2D 31 2C 31 31 2C ,-1,13,30,-1,11,
0100A0: 33 31 2C 2D 31 2C 31 30 2C 33 32 2C 2D 31 0D 0A 31,-1,10,32,-1..
0100B0: 33 36 30 20 44 41 54 41 20 38 2C 33 33 2C 2D 31 360 DATA 8,33,-1
0100C0: 2C 37 2C 33 34 2C 2D 31 2C 36 2C 31 33 2C 31 36 ,7,34,-1,6,13,16
0100D0: 2C 33 34 2C 2D 31 2C 35 2C 31 32 2C 31 36 2C 33 ,34,-1,5,12,16,3
0100E0: 35 2C 2D 31 0D 0A 33 37 30 20 44 41 54 41 20 34 5,-1..370 DATA 4
0100F0: 2C 31 32 2C 31 36 2C 33 35 2C 2D 31 2C 33 2C 31 ,12,16,35,-1,3,1
010100: 28 32 30 29 3B 22 55 4E 44 45 52 41 52 4D 22 3B (20);"UNDERARM";
010110: 54 41 42 28 34 35 29 3B 22 41 4E 59 54 48 49 4E TAB(45);"ANYTHIN
010120: 47 22 3A 50 52 49 4E 54 0D 0A 31 30 30 20 44 49 G":PRINT..100 DI
010130: 4D 20 41 24 28 32 30 29 2C 53 28 32 30 29 2C 57 M A$(20),S(20),W
010140: 28 31 30 29 3A 20 4D 3D 30 3A 20 52 3D 30 3A 20 (10): M=0: R=0:
010150: 46 4F 52 20 49 3D 31 20 54 4F 20 32 30 3A 20 53 FOR I=1 TO 20: S
010160: 28 49 29 3D 30 3A 20 4E 45 58 54 20 49 0D 0A 31 (I)=0: NEXT I..1
010170: 31 30 20 49 4E 50 55 54 20 22 48 4F 57 20 4D 41 10 INPUT "HOW MA
010180: 4E 59 20 50 4C 41 59 45 52 53 22 3B 4E 3A 20 50 NY PLAYERS";N: P
010190: 52 49 4E 54 0D 0A 31 32 30 20 46 4F 52 20 49 3D RINT..120 FOR I=
0101A0: 31 20 54 4F 20 4E 0D 0A 31 33 30 20 50 52 49 4E 1 TO N..130 PRIN
0101B0: 54 20 22 4E 41 4D 45 20 4F 46 20 50 4C 41 59 45 T "NAME OF PLAYE
0101C0: 52 20 23 22 3B 49 3B 3A 49 4E 50 55 54 20 41 24 R #";I;:INPUT A$
0101D0: 28 49 29 0D 0A 31 34 30 20 4E 45 58 54 20 49 0D (I)..140 NEXT I.
0101E0: 0A 31 35 30 20 52 3D 52 2B 31 3A 20 50 52 49 4E .150 R=R+1: PRIN
0101F0: 54 3A 20 50 52 49 4E 54 20 22 52 4F 55 4E 44 22 T: PRINT "ROUND"
010200: 3B 52 3A 50 52 49 4E 54 20 22 2D 2D 2D 2D 2D 2D ;R:PRINT "------
010210: 2D 2D 2D 22 0D 0A 31 36 30 20 46 4F 52 20 49 3D ---"..160 FOR I=
010220: 31 20 54 4F 20 4E 0D 0A 31 37 30 20 50 52 49 4E 1 TO N..170 PRIN
010230: 54 3A 20 50 52 49 4E 54 20 41 24 28 49 29 22 27 T: PRINT A$(I)"'
010240: 53 20 54 48 52 4F 57 22 3B 3A 20 49 4E 50 55 54 S THROW";: INPUT
010250: 20 54 0D 0A 31 38 30 20 49 46 20 54 3C 30 20 4F T..180 IF T<0 O
010260: 52 20 54 3E 33 20 54 48 45 4E 20 50 52 49 4E 54 R T>3 THEN PRINT
010270: 20 22 49 4E 50 55 54 20 31 2C 20 32 2C 20 4F 52 "INPUT 1, 2, OR
010280: 20 33 21 22 3A 20 47 4F 54 4F 20 31 37 30 0D 0A 3!": GOTO 170..
010290: 31 39 30 20 4F 4E 20 54 20 47 4F 54 4F 20 32 30 190 ON T GOTO 20
0102A0: 30 2C 20 32 31 30 2C 20 32 30 30 0D 0A 32 30 30 0, 210, 200..200
0102B0: 20 50 31 3D 2E 36 35 3A 20 50 32 3D 2E 35 35 3A P1=.65: P2=.55:
0102C0: 20 50 33 3D 2E 35 3A 20 50 34 3D 2E 35 3A 20 47 P3=.5: P4=.5: G
0102D0: 4F 54 4F 20 32 33 30 0D 0A 32 31 30 20 50 31 3D OTO 230..210 P1=
0102E0: 2E 39 39 3A 20 50 32 3D 2E 37 37 3A 20 50 33 3D .99: P2=.77: P3=
0102F0: 2E 34 33 3A 20 50 34 3D 2E 30 31 3A 20 47 4F 54 .43: P4=.01: GOT
010300: 32 2C 31 35 2C 33 35 2C 2D 31 2C 32 2C 33 35 2C 2,15,35,-1,2,35,
010310: 2D 31 2C 31 2C 33 35 2C 2D 31 0D 0A 33 38 30 20 -1,1,35,-1..380
010320: 44 41 54 41 20 32 2C 33 34 2C 2D 31 2C 33 2C 33 DATA 2,34,-1,3,3
010330: 34 2C 2D 31 2C 34 2C 33 33 2C 2D 31 2C 36 2C 33 4,-1,4,33,-1,6,3
010340: 33 2C 2D 31 2C 31 30 2C 33 32 2C 33 34 2C 33 34 3,-1,10,32,34,34
010350: 2C 2D 31 0D 0A 33 39 30 20 44 41 54 41 20 31 34 ,-1..390 DATA 14
010360: 2C 31 37 2C 31 39 2C 32 35 2C 32 38 2C 33 31 2C ,17,19,25,28,31,
010370: 33 35 2C 33 35 2C 2D 31 2C 31 35 2C 31 39 2C 32 35,35,-1,15,19,2
010380: 33 2C 33 30 2C 33 36 2C 33 36 2C 2D 31 0D 0A 34 3,30,36,36,-1..4
010390: 30 30 20 44 41 54 41 20 31 34 2C 31 38 2C 32 31 00 DATA 14,18,21
0103A0: 2C 32 31 2C 32 34 2C 33 30 2C 33 37 2C 33 37 2C ,21,24,30,37,37,
0103B0: 2D 31 2C 31 33 2C 31 38 2C 32 33 2C 32 39 2C 33 -1,13,18,23,29,3
0103C0: 33 2C 33 38 2C 2D 31 0D 0A 34 31 30 20 44 41 54 3,38,-1..410 DAT
0103D0: 41 20 31 32 2C 32 39 2C 33 31 2C 33 33 2C 2D 31 A 12,29,31,33,-1
0103E0: 2C 31 31 2C 31 33 2C 31 37 2C 31 37 2C 31 39 2C ,11,13,17,17,19,
0103F0: 31 39 2C 32 32 2C 32 32 2C 32 34 2C 33 31 2C 2D 19,22,22,24,31,-
010400: 31 0D 0A 34 32 30 20 44 41 54 41 20 31 30 2C 31 1..420 DATA 10,1
010410: 31 2C 31 37 2C 31 38 2C 32 32 2C 32 32 2C 32 34 1,17,18,22,22,24
010420: 2C 32 34 2C 32 39 2C 32 39 2C 2D 31 0D 0A 34 33 ,24,29,29,-1..43
010430: 30 20 44 41 54 41 20 32 32 2C 32 33 2C 32 36 2C 0 DATA 22,23,26,
010440: 32 39 2C 2D 31 2C 32 37 2C 32 39 2C 2D 31 2C 32 29,-1,27,29,-1,2
010450: 38 2C 32 39 2C 2D 31 2C 34 30 39 36 0D 0A 34 34 8,29,-1,4096..44
010460: 30 20 52 45 4D 0D 0A 34 35 30 20 45 4E 44 0D 0A 0 REM..450 END..
010470: 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0104A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0104B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0104C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0104D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0104E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0104F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010500: 4F 20 32 33 30 0D 0A 32 32 30 20 50 31 3D 2E 39 O 230..220 P1=.9
010510: 35 3A 20 50 32 3D 2E 37 35 3A 20 50 33 3D 2E 34 5: P2=.75: P3=.4
010520: 35 3A 20 50 34 3D 2E 30 35 0D 0A 32 33 30 20 55 5: P4=.05..230 U
010530: 3D 52 4E 44 28 31 29 0D 0A 32 34 30 20 49 46 20 =RND(1)..240 IF
010540: 55 3E 3D 50 31 20 54 48 45 4E 20 50 52 49 4E 54 U>=P1 THEN PRINT
010550: 20 22 42 55 4C 4C 53 45 59 45 21 21 20 20 34 30 "BULLSEYE!! 40
010560: 20 50 4F 49 4E 54 53 21 22 3A 42 3D 34 30 3A 20 POINTS!":B=40:
010570: 47 4F 54 4F 20 32 39 30 0D 0A 32 35 30 20 49 46 GOTO 290..250 IF
010580: 20 55 3E 3D 50 32 20 54 48 45 4E 20 50 52 49 4E U>=P2 THEN PRIN
010590: 54 20 22 33 30 2D 50 4F 49 4E 54 20 5A 4F 4E 45 T "30-POINT ZONE
0105A0: 21 22 3A 42 3D 33 30 3A 20 47 4F 54 4F 20 32 39 !":B=30: GOTO 29
0105B0: 30 0D 0A 32 36 30 20 49 46 20 55 3E 3D 50 33 20 0..260 IF U>=P3
0105C0: 54 48 45 4E 20 50 52 49 4E 54 20 22 32 30 2D 50 THEN PRINT "20-P
0105D0: 4F 49 4E 54 20 5A 4F 4E 45 22 3A 42 3D 32 30 3A OINT ZONE":B=20:
0105E0: 20 47 4F 54 4F 20 32 39 30 0D 0A 32 37 30 20 49 GOTO 290..270 I
0105F0: 46 20 55 3E 3D 50 34 20 54 48 45 4E 20 50 52 49 F U>=P4 THEN PRI
010600: 4E 54 20 22 57 48 45 57 21 20 20 31 30 20 50 4F NT "WHEW! 10 PO
010610: 49 4E 54 53 2E 22 3A 42 3D 31 30 3A 20 47 4F 54 INTS.":B=10: GOT
010620: 4F 20 32 39 30 0D 0A 32 38 30 20 50 52 49 4E 54 O 290..280 PRINT
010630: 20 22 4D 49 53 53 45 44 20 54 48 45 20 54 41 52 "MISSED THE TAR
010640: 47 45 54 21 20 20 54 4F 4F 20 42 41 44 2E 22 3A GET! TOO BAD.":
010650: 20 42 3D 30 0D 0A 32 39 30 20 53 28 49 29 3D 53 B=0..290 S(I)=S
010660: 28 49 29 2B 42 3A 20 50 52 49 4E 54 20 22 54 4F (I)+B: PRINT "TO
010670: 54 41 4C 20 53 43 4F 52 45 20 3D 22 3B 53 28 49 TAL SCORE =";S(I
010680: 29 3A 20 4E 45 58 54 20 49 0D 0A 33 30 30 20 46 ): NEXT I..300 F
010690: 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 33 31 30 OR I=1 TO N..310
0106A0: 20 49 46 20 53 28 49 29 3E 3D 32 30 30 20 54 48 IF S(I)>=200 TH
0106B0: 45 4E 20 4D 3D 4D 2B 31 3A 20 57 28 4D 29 3D 49 EN M=M+1: W(M)=I
0106C0: 0D 0A 33 32 30 20 4E 45 58 54 20 49 0D 0A 33 33 ..320 NEXT I..33
0106D0: 30 20 49 46 20 4D 3D 30 20 54 48 45 4E 20 31 35 0 IF M=0 THEN 15
0106E0: 30 0D 0A 33 34 30 20 50 52 49 4E 54 3A 20 50 52 0..340 PRINT: PR
0106F0: 49 4E 54 20 22 57 45 20 48 41 56 45 20 41 20 57 INT "WE HAVE A W
010700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0107A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0107B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0107C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0107D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0107E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0107F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0108A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0108B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0108C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0108D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0108E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0108F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010900: 49 4E 4E 45 52 21 21 22 3A 20 50 52 49 4E 54 0D INNER!!": PRINT.
010910: 0A 33 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 .350 FOR I=1 TO
010920: 4D 3A 20 50 52 49 4E 54 20 41 24 28 57 28 49 29 M: PRINT A$(W(I)
010930: 29 3B 22 20 53 43 4F 52 45 44 22 3B 53 28 57 28 );" SCORED";S(W(
010940: 49 29 29 3B 22 50 4F 49 4E 54 53 2E 22 3A 20 4E I));"POINTS.": N
010950: 45 58 54 20 49 0D 0A 33 36 30 20 50 52 49 4E 54 EXT I..360 PRINT
010960: 3A 20 50 52 49 4E 54 20 22 54 48 41 4E 4B 53 20 : PRINT "THANKS
010970: 46 4F 52 20 54 48 45 20 47 41 4D 45 2E 22 3A 20 FOR THE GAME.":
010980: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
010990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0109A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0109B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0109C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0109D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0109E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0109F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 00 00 02 09 52 E5 0E 00 C1 02 00 00 00 02 ......R.........
010B20: 0E 00 C6 02 00 00 00 02 0E 00 C2 02 00 00 00 02 ................
010B30: 0E 00 C7 02 00 00 00 02 0E 00 C3 02 00 00 00 02 ................
010B40: 0E 00 C8 02 00 00 00 02 0E 00 C4 02 00 00 00 02 ................
010B50: 0E 00 C9 02 00 00 00 02 0E 00 C5 02 00 00 00 02 ................
010B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010C00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 32 36 29 10 PRINT TAB(26)
010C10: 3B 22 42 55 5A 5A 57 4F 52 44 20 47 45 4E 45 52 ;"BUZZWORD GENER
010C20: 41 54 4F 52 22 0D 0A 32 30 20 50 52 49 4E 54 20 ATOR"..20 PRINT
010C30: 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 TAB(15);"CREATIV
010C40: 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 E COMPUTING MOR
010C50: 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 RISTOWN, NEW JER
010C60: 53 45 59 22 0D 0A 33 30 20 50 52 49 4E 54 3A 50 SEY"..30 PRINT:P
010C70: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 30 20 50 RINT:PRINT..40 P
010C80: 52 49 4E 54 20 22 54 48 49 53 20 50 52 4F 47 52 RINT "THIS PROGR
010C90: 41 4D 20 50 52 49 4E 54 53 20 48 49 47 48 4C 59 AM PRINTS HIGHLY
010CA0: 20 41 43 43 45 50 54 41 42 4C 45 20 50 48 52 41 ACCEPTABLE PHRA
010CB0: 53 45 53 20 49 4E 22 0D 0A 35 30 20 50 52 49 4E SES IN"..50 PRIN
010CC0: 54 20 22 27 45 44 55 43 41 54 4F 52 2D 53 50 45 T "'EDUCATOR-SPE
010CD0: 41 4B 27 54 48 41 54 20 59 4F 55 20 43 41 4E 20 AK'THAT YOU CAN
010CE0: 57 4F 52 4B 20 49 4E 54 4F 20 52 45 50 4F 52 54 WORK INTO REPORT
010CF0: 53 22 0D 0A 36 30 20 50 52 49 4E 54 20 22 41 4E S"..60 PRINT "AN
010D00: 44 20 53 50 45 45 43 48 45 53 2E 20 20 57 48 45 D SPEECHES. WHE
010D10: 4E 45 56 45 52 20 41 20 51 55 45 53 54 49 4F 4E NEVER A QUESTION
010D20: 20 4D 41 52 4B 20 49 53 20 50 52 49 4E 54 45 44 MARK IS PRINTED
010D30: 2C 22 0D 0A 37 30 20 50 52 49 4E 54 20 22 54 59 ,"..70 PRINT "TY
010D40: 50 45 20 41 20 27 59 27 20 46 4F 52 20 41 4E 4F PE A 'Y' FOR ANO
010D50: 54 48 45 52 20 50 48 52 41 53 45 20 4F 52 20 27 THER PHRASE OR '
010D60: 4E 27 20 54 4F 20 51 55 49 54 2E 22 0D 0A 38 30 N' TO QUIT."..80
010D70: 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 PRINT:PRINT:PRI
010D80: 4E 54 20 22 48 45 52 45 27 53 20 54 48 45 20 46 NT "HERE'S THE F
010D90: 49 52 53 54 20 50 48 52 41 53 45 3A 22 0D 0A 39 IRST PHRASE:"..9
010DA0: 30 20 44 49 4D 20 41 24 28 34 30 29 0D 0A 31 30 0 DIM A$(40)..10
010DB0: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 33 39 20 0 FOR I=1 TO 39
010DC0: 3A 20 52 45 41 44 20 41 24 28 49 29 20 3A 20 4E : READ A$(I) : N
010DD0: 45 58 54 20 49 0D 0A 31 31 30 20 50 52 49 4E 54 EXT I..110 PRINT
010DE0: 20 41 24 28 49 4E 54 28 31 33 2A 52 4E 44 28 31 A$(INT(13*RND(1
010DF0: 29 2B 31 29 29 3B 22 20 22 3B 0D 0A 31 32 30 20 )+1));" ";..120
010E00: 45 4D 2D 2D 53 55 42 52 4F 55 54 49 4E 45 20 54 EM--SUBROUTINE T
010E10: 4F 20 47 45 54 20 41 20 43 41 52 44 2E 20 20 52 O GET A CARD. R
010E20: 45 53 55 4C 54 20 49 53 20 50 55 54 20 49 4E 20 ESULT IS PUT IN
010E30: 58 2E 0D 0A 31 31 30 20 49 46 20 43 3C 35 31 20 X...110 IF C<51
010E40: 54 48 45 4E 20 32 33 30 0D 0A 31 32 30 20 50 52 THEN 230..120 PR
010E50: 49 4E 54 20 22 52 45 53 48 55 46 46 4C 49 4E 47 INT "RESHUFFLING
010E60: 22 0D 0A 31 33 30 20 46 4F 52 20 44 3D 44 20 54 "..130 FOR D=D T
010E70: 4F 20 31 20 53 54 45 50 20 2D 31 0D 0A 31 34 30 O 1 STEP -1..140
010E80: 20 43 3D 43 2D 31 0D 0A 31 35 30 20 43 28 43 29 C=C-1..150 C(C)
010E90: 3D 44 28 44 29 0D 0A 31 36 30 20 4E 45 58 54 20 =D(D)..160 NEXT
010EA0: 44 0D 0A 31 37 30 20 46 4F 52 20 43 31 3D 35 32 D..170 FOR C1=52
010EB0: 20 54 4F 20 43 20 53 54 45 50 20 2D 31 0D 0A 31 TO C STEP -1..1
010EC0: 38 30 20 43 32 3D 49 4E 54 28 52 4E 44 28 31 29 80 C2=INT(RND(1)
010ED0: 2A 28 43 31 2D 43 2B 31 29 29 2B 43 0D 0A 31 39 *(C1-C+1))+C..19
010EE0: 30 20 43 33 3D 43 28 43 32 29 0D 0A 32 30 30 20 0 C3=C(C2)..200
010EF0: 43 28 43 32 29 3D 43 28 43 31 29 0D 0A 32 31 30 C(C2)=C(C1)..210
010F00: 20 43 28 43 31 29 3D 43 33 0D 0A 32 32 30 20 4E C(C1)=C3..220 N
010F10: 45 58 54 20 43 31 0D 0A 32 33 30 20 58 3D 43 28 EXT C1..230 X=C(
010F20: 43 29 0D 0A 32 34 30 20 43 3D 43 2B 31 0D 0A 32 C)..240 C=C+1..2
010F30: 35 30 20 52 45 54 55 52 4E 0D 0A 33 30 30 20 52 50 RETURN..300 R
010F40: 45 4D 2D 2D 53 55 42 52 4F 55 54 49 4E 45 20 54 EM--SUBROUTINE T
010F50: 4F 20 45 56 41 4C 55 41 54 45 20 48 41 4E 44 20 O EVALUATE HAND
010F60: 49 2E 20 20 54 4F 54 41 4C 20 49 53 20 50 55 54 I. TOTAL IS PUT
010F70: 20 49 4E 54 4F 0D 0A 33 31 30 20 52 45 4D 2D 2D INTO..310 REM--
010F80: 51 28 49 29 2E 20 54 4F 54 41 4C 53 20 48 41 56 Q(I). TOTALS HAV
010F90: 45 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 E THE FOLLOWING
010FA0: 4D 45 41 4E 49 4E 47 3A 0D 0A 33 32 30 20 52 45 MEANING:..320 RE
010FB0: 4D 2D 2D 20 20 32 2D 31 30 2E 2E 2E 48 41 52 44 M-- 2-10...HARD
010FC0: 20 32 2D 31 30 0D 0A 33 33 30 20 52 45 4D 2D 2D 2-10..330 REM--
010FD0: 20 31 31 2D 32 31 2E 2E 2E 53 4F 46 54 20 31 31 11-21...SOFT 11
010FE0: 2D 32 31 0D 0A 33 34 30 20 52 45 4D 2D 2D 20 32 -21..340 REM-- 2
010FF0: 32 2D 33 32 2E 2E 2E 48 41 52 44 20 31 31 2D 32 2-32...HARD 11-2
011000: 50 52 49 4E 54 20 41 24 28 49 4E 54 28 31 33 2A PRINT A$(INT(13*
011010: 52 4E 44 28 31 29 2B 31 34 29 29 3B 22 20 22 3B RND(1)+14));" ";
011020: 0D 0A 31 33 30 20 50 52 49 4E 54 20 41 24 28 49 ..130 PRINT A$(I
011030: 4E 54 28 31 33 2A 52 4E 44 28 31 29 2B 32 37 29 NT(13*RND(1)+27)
011040: 29 20 3A 20 50 52 49 4E 54 0D 0A 31 35 30 20 49 ) : PRINT..150 I
011050: 4E 50 55 54 20 59 24 20 3A 20 49 46 20 59 24 3D NPUT Y$ : IF Y$=
011060: 22 59 22 20 54 48 45 4E 20 31 31 30 0D 0A 31 36 "Y" THEN 110..16
011070: 30 20 47 4F 54 4F 20 39 39 39 0D 0A 32 30 30 20 0 GOTO 999..200
011080: 44 41 54 41 20 22 41 42 49 4C 49 54 59 22 2C 22 DATA "ABILITY","
011090: 42 41 53 41 4C 22 2C 22 42 45 48 41 56 49 4F 52 BASAL","BEHAVIOR
0110A0: 41 4C 22 2C 22 43 48 49 4C 44 2D 43 45 4E 54 45 AL","CHILD-CENTE
0110B0: 52 45 44 22 0D 0A 32 31 30 20 44 41 54 41 20 22 RED"..210 DATA "
0110C0: 44 49 46 46 45 52 45 4E 54 49 41 54 45 44 22 2C DIFFERENTIATED",
0110D0: 22 44 49 53 43 4F 56 45 52 59 22 2C 22 46 4C 45 "DISCOVERY","FLE
0110E0: 58 49 42 4C 45 22 2C 22 48 45 54 45 52 4F 47 45 XIBLE","HETEROGE
0110F0: 4E 45 4F 55 53 22 0D 0A 32 32 30 20 44 41 54 41 NEOUS"..220 DATA
011100: 20 22 48 4F 4D 4F 47 45 4E 45 4F 55 53 22 2C 22 "HOMOGENEOUS","
011110: 4D 41 4E 49 50 55 4C 41 54 49 56 45 22 2C 22 4D MANIPULATIVE","M
011120: 4F 44 55 4C 41 52 22 2C 22 54 41 56 49 53 54 4F ODULAR","TAVISTO
011130: 43 4B 22 0D 0A 32 33 30 20 44 41 54 41 20 22 49 CK"..230 DATA "I
011140: 4E 44 49 56 49 44 55 41 4C 49 5A 45 44 22 2C 22 NDIVIDUALIZED","
011150: 4C 45 41 52 4E 49 4E 47 22 2C 22 45 56 41 4C 55 LEARNING","EVALU
011160: 41 54 49 56 45 22 2C 22 4F 42 4A 45 43 54 49 56 ATIVE","OBJECTIV
011170: 45 22 0D 0A 32 34 30 20 44 41 54 41 20 22 43 4F E"..240 DATA "CO
011180: 47 4E 49 54 49 56 45 22 2C 22 45 4E 52 49 43 48 GNITIVE","ENRICH
011190: 4D 45 4E 54 22 2C 22 53 43 48 45 44 55 4C 49 4E MENT","SCHEDULIN
0111A0: 47 22 2C 22 48 55 4D 41 4E 49 53 54 49 43 22 0D G","HUMANISTIC".
0111B0: 0A 32 35 30 20 44 41 54 41 20 22 49 4E 54 45 47 .250 DATA "INTEG
0111C0: 52 41 54 45 44 22 2C 22 4E 4F 4E 2D 47 52 41 44 RATED","NON-GRAD
0111D0: 45 44 22 2C 22 54 52 41 49 4E 49 4E 47 22 2C 22 ED","TRAINING","
0111E0: 56 45 52 54 49 43 41 4C 20 41 47 45 22 0D 0A 32 VERTICAL AGE"..2
0111F0: 36 30 20 44 41 54 41 20 22 4D 4F 54 49 56 41 54 60 DATA "MOTIVAT
011200: 31 0D 0A 33 35 30 20 52 45 4D 2D 2D 20 20 33 33 1..350 REM-- 33
011210: 2B 2E 2E 2E 2E 42 55 53 54 45 44 0D 0A 33 36 30 +....BUSTED..360
011220: 20 51 3D 30 0D 0A 33 37 30 20 46 4F 52 20 51 32 Q=0..370 FOR Q2
011230: 3D 31 20 54 4F 20 52 28 49 29 0D 0A 33 38 30 20 =1 TO R(I)..380
011240: 58 3D 50 28 49 2C 51 32 29 0D 0A 33 39 30 20 47 X=P(I,Q2)..390 G
011250: 4F 53 55 42 20 35 30 30 0D 0A 34 30 30 20 4E 45 OSUB 500..400 NE
011260: 58 54 20 51 32 0D 0A 34 31 30 20 51 28 49 29 3D XT Q2..410 Q(I)=
011270: 51 0D 0A 34 32 30 20 52 45 54 55 52 4E 0D 0A 35 Q..420 RETURN..5
011280: 30 30 20 52 45 4D 2D 2D 53 55 42 52 4F 55 54 49 00 REM--SUBROUTI
011290: 4E 45 20 54 4F 20 41 44 44 20 43 41 52 44 20 58 NE TO ADD CARD X
0112A0: 20 54 4F 20 54 4F 54 41 4C 20 51 2E 0D 0A 35 31 TO TOTAL Q...51
0112B0: 30 20 58 31 3D 58 3A 20 49 46 20 58 31 3E 31 30 0 X1=X: IF X1>10
0112C0: 20 54 48 45 4E 20 58 31 3D 31 30 3A 20 20 52 45 THEN X1=10: RE
0112D0: 4D 20 20 53 41 4D 45 20 41 53 20 58 31 3D 31 30 M SAME AS X1=10
0112E0: 20 4D 49 4E 20 58 0D 0A 35 32 30 20 51 31 3D 51 MIN X..520 Q1=Q
0112F0: 2B 58 31 0D 0A 35 33 30 20 49 46 20 51 3E 3D 31 +X1..530 IF Q>=1
011300: 31 20 54 48 45 4E 20 35 39 30 0D 0A 35 34 30 20 1 THEN 590..540
011310: 49 46 20 58 3E 31 20 54 48 45 4E 20 35 37 30 0D IF X>1 THEN 570.
011320: 0A 35 35 30 20 51 3D 51 2B 31 31 0D 0A 35 36 30 .550 Q=Q+11..560
011330: 20 52 45 54 55 52 4E 0D 0A 35 37 30 20 51 3D 51 RETURN..570 Q=Q
011340: 31 2D 31 31 2A 28 51 31 3E 3D 31 31 29 0D 0A 35 1-11*(Q1>=11)..5
011350: 38 30 20 52 45 54 55 52 4E 0D 0A 35 39 30 20 51 80 RETURN..590 Q
011360: 3D 51 31 2D 28 51 3C 3D 32 31 20 41 4E 44 20 51 =Q1-(Q<=21 AND Q
011370: 31 3E 32 31 29 0D 0A 36 30 30 20 49 46 20 51 3C 1>21)..600 IF Q<
011380: 33 33 20 54 48 45 4E 20 36 32 30 0D 0A 36 31 30 33 THEN 620..610
011390: 20 51 3D 2D 31 0D 0A 36 32 30 20 52 45 54 55 52 Q=-1..620 RETUR
0113A0: 4E 0D 0A 37 30 30 20 52 45 4D 2D 2D 43 41 52 44 N..700 REM--CARD
0113B0: 20 50 52 49 4E 54 49 4E 47 20 53 55 42 52 4F 55 PRINTING SUBROU
0113C0: 54 49 4E 45 0D 0A 37 31 30 20 52 45 4D 20 20 44 TINE..710 REM D
0113D0: 24 20 44 45 46 49 4E 45 44 20 45 4C 53 45 57 48 $ DEFINED ELSEWH
0113E0: 45 52 45 0D 0A 37 32 30 20 50 52 49 4E 54 20 4D ERE..720 PRINT M
0113F0: 49 44 24 28 44 24 2C 33 2A 58 2D 32 2C 33 29 3B ID$(D$,3*X-2,3);
011400: 49 4F 4E 41 4C 22 2C 22 43 52 45 41 54 49 56 45 IONAL","CREATIVE
011410: 22 2C 22 47 52 4F 55 50 49 4E 47 22 2C 22 4D 4F ","GROUPING","MO
011420: 44 49 46 49 43 41 54 49 4F 4E 22 0D 0A 32 37 30 DIFICATION"..270
011430: 20 44 41 54 41 20 22 41 43 43 4F 55 4E 54 41 42 DATA "ACCOUNTAB
011440: 49 4C 49 54 59 22 2C 22 50 52 4F 43 45 53 53 22 ILITY","PROCESS"
011450: 2C 22 43 4F 52 45 20 43 55 52 52 49 43 55 4C 55 ,"CORE CURRICULU
011460: 4D 22 2C 22 41 4C 47 4F 52 49 54 48 4D 22 0D 0A M","ALGORITHM"..
011470: 32 38 30 20 44 41 54 41 20 22 50 45 52 46 4F 52 280 DATA "PERFOR
011480: 4D 41 4E 43 45 22 2C 22 52 45 49 4E 46 4F 52 43 MANCE","REINFORC
011490: 45 4D 45 4E 54 22 2C 22 4F 50 45 4E 20 43 4C 41 EMENT","OPEN CLA
0114A0: 53 53 52 4F 4F 4D 22 2C 22 52 45 53 4F 55 52 43 SSROOM","RESOURC
0114B0: 45 22 0D 0A 32 39 30 20 44 41 54 41 20 22 53 54 E"..290 DATA "ST
0114C0: 52 55 43 54 55 52 45 22 2C 22 46 41 43 49 4C 49 RUCTURE","FACILI
0114D0: 54 59 22 2C 22 45 4E 56 49 52 4F 4E 4D 45 4E 54 TY","ENVIRONMENT
0114E0: 22 0D 0A 39 39 39 20 50 52 49 4E 54 20 22 43 4F "..999 PRINT "CO
0114F0: 4D 45 20 42 41 43 4B 20 57 48 45 4E 20 59 4F 55 ME BACK WHEN YOU
011500: 20 4E 45 45 44 20 48 45 4C 50 20 57 49 54 48 20 NEED HELP WITH
011510: 41 4E 4F 54 48 45 52 20 52 45 50 4F 52 54 21 22 ANOTHER REPORT!"
011520: 3A 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 :END............
011530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0115A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0115B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0115C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0115D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0115E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0115F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011600: 0D 0A 37 33 30 20 50 52 49 4E 54 20 22 20 20 22 ..730 PRINT " "
011610: 3B 0D 0A 37 34 30 20 52 45 54 55 52 4E 0D 0A 37 ;..740 RETURN..7
011620: 35 30 20 52 45 4D 2D 2D 41 4C 54 45 52 4E 41 54 50 REM--ALTERNAT
011630: 49 56 45 20 50 52 49 4E 54 49 4E 47 20 52 4F 55 IVE PRINTING ROU
011640: 54 49 4E 45 0D 0A 37 36 30 20 50 52 49 4E 54 20 TINE..760 PRINT
011650: 22 20 22 3B 4D 49 44 24 28 44 24 2C 33 2A 58 2D " ";MID$(D$,3*X-
011660: 31 2C 32 29 3B 0D 0A 37 37 30 20 50 52 49 4E 54 1,2);..770 PRINT
011670: 20 22 20 20 20 22 3B 0D 0A 37 38 30 20 52 45 54 " ";..780 RET
011680: 55 52 4E 0D 0A 38 30 30 20 52 45 4D 2D 2D 53 55 URN..800 REM--SU
011690: 42 52 4F 55 54 49 4E 45 20 54 4F 20 50 4C 41 59 BROUTINE TO PLAY
0116A0: 20 4F 55 54 20 41 20 48 41 4E 44 2E 0D 0A 38 31 OUT A HAND...81
0116B0: 30 20 52 45 4D 2D 2D 4E 4F 20 53 50 4C 49 54 54 0 REM--NO SPLITT
0116C0: 49 4E 47 20 4F 52 20 42 4C 41 43 4B 4A 41 43 4B ING OR BLACKJACK
0116D0: 53 20 41 4C 4C 4F 57 45 44 0D 0A 38 32 30 20 48 S ALLOWED..820 H
0116E0: 31 3D 35 0D 0A 38 33 30 20 47 4F 53 55 42 20 31 1=5..830 GOSUB 1
0116F0: 34 31 30 0D 0A 38 34 30 20 48 31 3D 33 0D 0A 38 410..840 H1=3..8
011700: 35 30 20 4F 4E 20 48 20 47 4F 54 4F 20 39 35 30 50 ON H GOTO 950
011710: 2C 39 33 30 0D 0A 38 36 30 20 47 4F 53 55 42 20 ,930..860 GOSUB
011720: 31 30 30 0D 0A 38 37 30 20 42 28 49 29 3D 42 28 100..870 B(I)=B(
011730: 49 29 2A 32 0D 0A 38 38 30 20 50 52 49 4E 54 20 I)*2..880 PRINT
011740: 22 52 45 43 45 49 56 45 44 20 41 22 3B 0D 0A 38 "RECEIVED A";..8
011750: 39 30 20 47 4F 53 55 42 20 37 30 30 0D 0A 39 30 90 GOSUB 700..90
011760: 30 20 47 4F 53 55 42 20 31 31 30 30 0D 0A 39 31 0 GOSUB 1100..91
011770: 30 20 49 46 20 51 3E 30 20 54 48 45 4E 20 47 4F 0 IF Q>0 THEN GO
011780: 53 55 42 20 31 33 30 30 0D 0A 39 32 30 20 52 45 SUB 1300..920 RE
011790: 54 55 52 4E 0D 0A 39 33 30 20 47 4F 53 55 42 20 TURN..930 GOSUB
0117A0: 31 33 32 30 0D 0A 39 34 30 20 52 45 54 55 52 4E 1320..940 RETURN
0117B0: 0D 0A 39 35 30 20 47 4F 53 55 42 20 31 30 30 0D ..950 GOSUB 100.
0117C0: 0A 39 36 30 20 50 52 49 4E 54 20 22 52 45 43 45 .960 PRINT "RECE
0117D0: 49 56 45 44 20 41 22 3B 0D 0A 39 37 30 20 47 4F IVED A";..970 GO
0117E0: 53 55 42 20 37 30 30 0D 0A 39 38 30 20 47 4F 53 SUB 700..980 GOS
0117F0: 55 42 20 31 31 30 30 0D 0A 39 39 30 20 49 46 20 UB 1100..990 IF
011800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0118A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0118B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0118C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0118D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0118E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0118F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0119A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0119B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0119C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0119D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0119E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0119F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
011A00: 51 3C 30 20 54 48 45 4E 20 39 34 30 0D 0A 31 30 Q<0 THEN 940..10
011A10: 30 30 20 50 52 49 4E 54 20 22 48 49 54 22 3B 0D 00 PRINT "HIT";.
011A20: 0A 31 30 31 30 20 47 4F 54 4F 20 38 33 30 0D 0A .1010 GOTO 830..
011A30: 31 31 30 30 20 52 45 4D 2D 2D 53 55 42 52 4F 55 1100 REM--SUBROU
011A40: 54 49 4E 45 20 54 4F 20 41 44 44 20 41 20 43 41 TINE TO ADD A CA
011A50: 52 44 20 54 4F 20 52 4F 57 20 49 0D 0A 31 31 31 RD TO ROW I..111
011A60: 30 20 52 28 49 29 3D 52 28 49 29 2B 31 0D 0A 31 0 R(I)=R(I)+1..1
011A70: 31 32 30 20 50 28 49 2C 52 28 49 29 29 3D 58 0D 120 P(I,R(I))=X.
011A80: 0A 31 31 33 30 20 51 3D 51 28 49 29 0D 0A 31 31 .1130 Q=Q(I)..11
011A90: 34 30 20 47 4F 53 55 42 20 35 30 30 0D 0A 31 31 40 GOSUB 500..11
011AA0: 35 30 20 51 28 49 29 3D 51 0D 0A 31 31 36 30 20 50 Q(I)=Q..1160
011AB0: 49 46 20 51 3E 3D 30 20 54 48 45 4E 20 31 31 39 IF Q>=0 THEN 119
011AC0: 30 0D 0A 31 31 37 30 20 50 52 49 4E 54 20 22 2E 0..1170 PRINT ".
011AD0: 2E 2E 42 55 53 54 45 44 22 0D 0A 31 31 38 30 20 ..BUSTED"..1180
011AE0: 47 4F 53 55 42 20 31 32 30 30 0D 0A 31 31 39 30 GOSUB 1200..1190
011AF0: 20 52 45 54 55 52 4E 0D 0A 31 32 30 30 20 52 45 RETURN..1200 RE
011B00: 4D 2D 2D 53 55 42 52 4F 55 54 49 4E 45 20 54 4F M--SUBROUTINE TO
011B10: 20 44 49 53 43 41 52 44 20 52 4F 57 20 49 0D 0A DISCARD ROW I..
011B20: 31 32 31 30 20 49 46 20 52 28 49 29 3C 3E 30 20 1210 IF R(I)<>0
011B30: 54 48 45 4E 20 31 32 33 30 0D 0A 31 32 32 30 20 THEN 1230..1220
011B40: 52 45 54 55 52 4E 0D 0A 31 32 33 30 20 44 3D 44 RETURN..1230 D=D
011B50: 2B 31 0D 0A 31 32 34 30 20 44 28 44 29 3D 50 28 +1..1240 D(D)=P(
011B60: 49 2C 52 28 49 29 29 0D 0A 31 32 35 30 20 52 28 I,R(I))..1250 R(
011B70: 49 29 3D 52 28 49 29 2D 31 0D 0A 31 32 36 30 20 I)=R(I)-1..1260
011B80: 47 4F 54 4F 20 31 32 31 30 0D 0A 31 33 30 30 20 GOTO 1210..1300
011B90: 52 45 4D 2D 2D 50 52 49 4E 54 53 20 54 4F 54 41 REM--PRINTS TOTA
011BA0: 4C 20 4F 46 20 48 41 4E 44 20 49 0D 0A 31 33 31 L OF HAND I..131
011BB0: 30 20 50 52 49 4E 54 0D 0A 31 33 32 30 20 41 41 0 PRINT..1320 AA
011BC0: 3D 51 28 49 29 3A 20 47 4F 53 55 42 20 33 34 30 =Q(I): GOSUB 340
011BD0: 30 0D 0A 31 33 32 35 20 50 52 49 4E 54 20 22 54 0..1325 PRINT "T
011BE0: 4F 54 41 4C 20 49 53 22 3B 41 41 0D 0A 31 33 33 OTAL IS";AA..133
011BF0: 30 20 52 45 54 55 52 4E 0D 0A 31 34 30 30 20 52 0 RETURN..1400 R
011C00: 32 20 50 52 49 4E 54 20 54 41 42 28 33 31 29 3B 2 PRINT TAB(31);
011C10: 22 42 4C 41 43 4B 20 4A 41 43 4B 22 0D 0A 34 20 "BLACK JACK"..4
011C20: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 PRINT TAB(15);"C
011C30: 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E REATIVE COMPUTIN
011C40: 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E G MORRISTOWN, N
011C50: 45 57 20 4A 45 52 53 45 59 22 0D 0A 36 20 50 52 EW JERSEY"..6 PR
011C60: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
011C70: 0A 31 30 20 44 45 46 20 46 4E 41 28 51 29 3D 51 .10 DEF FNA(Q)=Q
011C80: 2B 31 31 2A 28 51 3E 3D 32 32 29 0D 0A 32 30 20 +11*(Q>=22)..20
011C90: 44 49 4D 20 50 28 31 35 2C 31 32 29 2C 51 28 31 DIM P(15,12),Q(1
011CA0: 35 29 2C 43 28 35 32 29 2C 44 28 35 32 29 2C 54 5),C(52),D(52),T
011CB0: 28 38 29 2C 53 28 37 29 2C 42 28 31 35 29 0D 0A (8),S(7),B(15)..
011CC0: 33 30 20 44 49 4D 20 52 28 31 35 29 0D 0A 34 30 30 DIM R(15)..40
011CD0: 20 52 45 4D 2D 2D 50 28 49 2C 4A 29 20 49 53 20 REM--P(I,J) IS
011CE0: 54 48 45 20 4A 54 48 20 43 41 52 44 20 49 4E 20 THE JTH CARD IN
011CF0: 48 41 4E 44 20 49 2C 20 51 28 49 29 20 49 53 20 HAND I, Q(I) IS
011D00: 54 4F 54 41 4C 20 4F 46 20 48 41 4E 44 20 49 0D TOTAL OF HAND I.
011D10: 0A 35 30 20 52 45 4D 2D 2D 43 20 49 53 20 54 48 .50 REM--C IS TH
011D20: 45 20 44 45 43 4B 20 42 45 49 4E 47 20 44 45 41 E DECK BEING DEA
011D30: 4C 54 20 46 52 4F 4D 2C 20 44 20 49 53 20 54 48 LT FROM, D IS TH
011D40: 45 20 44 49 53 43 41 52 44 20 50 49 4C 45 2C 0D E DISCARD PILE,.
011D50: 0A 36 30 20 52 45 4D 2D 2D 54 28 49 29 20 49 53 .60 REM--T(I) IS
011D60: 20 54 48 45 20 54 4F 54 41 4C 20 46 4F 52 20 50 THE TOTAL FOR P
011D70: 4C 41 59 45 52 20 49 2C 20 53 28 49 29 20 49 53 LAYER I, S(I) IS
011D80: 20 54 48 45 20 54 4F 54 41 4C 20 54 48 49 53 20 THE TOTAL THIS
011D90: 48 41 4E 44 20 46 4F 52 0D 0A 37 30 20 52 45 4D HAND FOR..70 REM
011DA0: 2D 2D 50 4C 41 59 45 52 20 49 2C 20 42 28 49 29 --PLAYER I, B(I)
011DB0: 20 49 53 20 54 48 20 42 45 54 20 46 4F 52 20 48 IS TH BET FOR H
011DC0: 41 4E 44 20 49 0D 0A 38 30 20 52 45 4D 2D 2D 52 AND I..80 REM--R
011DD0: 28 49 29 20 49 53 20 54 48 45 20 4C 45 4E 47 54 (I) IS THE LENGT
011DE0: 48 20 4F 46 20 50 28 49 2C 2A 29 0D 0A 39 30 20 H OF P(I,*)..90
011DF0: 47 4F 54 4F 20 31 35 30 30 0D 0A 31 30 30 20 52 GOTO 1500..100 R
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 00 00 02 09 52 E5 0F 00 C1 02 00 00 00 02 ......R.........
011E20: 0F 00 C6 02 00 00 00 02 0F 00 C2 02 00 00 00 02 ................
011E30: 0F 00 C7 02 00 00 00 02 0F 00 C3 02 00 00 00 02 ................
011E40: 0F 00 C8 02 00 00 00 02 0F 00 C4 02 00 00 00 02 ................
011E50: 0F 00 C9 02 00 00 00 02 0F 00 C5 02 00 00 00 02 ................
011E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011F00: 45 4D 2D 2D 53 55 42 52 4F 55 54 49 4E 45 20 54 EM--SUBROUTINE T
011F10: 4F 20 52 45 41 44 20 52 45 50 4C 59 0D 0A 31 34 O READ REPLY..14
011F20: 31 30 20 52 45 4D 20 20 49 24 20 44 45 46 49 4E 10 REM I$ DEFIN
011F30: 45 44 20 45 4C 53 45 57 48 45 52 45 0D 0A 31 34 ED ELSEWHERE..14
011F40: 32 30 20 49 4E 50 55 54 20 48 24 3A 20 48 24 3D 20 INPUT H$: H$=
011F50: 4C 45 46 54 24 28 48 24 2C 31 29 0D 0A 31 34 33 LEFT$(H$,1)..143
011F60: 30 20 46 4F 52 20 48 3D 31 20 54 4F 20 48 31 20 0 FOR H=1 TO H1
011F70: 53 54 45 50 20 32 0D 0A 31 34 34 30 20 49 46 20 STEP 2..1440 IF
011F80: 48 24 3D 4D 49 44 24 28 49 24 2C 48 2C 31 29 20 H$=MID$(I$,H,1)
011F90: 54 48 45 4E 20 31 34 38 30 0D 0A 31 34 35 30 20 THEN 1480..1450
011FA0: 4E 45 58 54 20 48 0D 0A 31 34 36 30 20 50 52 49 NEXT H..1460 PRI
011FB0: 4E 54 20 22 54 59 50 45 20 22 3B 4D 49 44 24 28 NT "TYPE ";MID$(
011FC0: 49 24 2C 31 2C 48 31 2D 31 29 3B 22 20 4F 52 20 I$,1,H1-1);" OR
011FD0: 22 3B 4D 49 44 24 28 49 24 2C 48 31 2C 32 29 3B ";MID$(I$,H1,2);
011FE0: 22 20 50 4C 45 41 53 45 22 3B 0D 0A 31 34 37 30 " PLEASE";..1470
011FF0: 20 47 4F 54 4F 20 31 34 32 30 0D 0A 31 34 38 30 GOTO 1420..1480
012000: 20 48 3D 28 48 2B 31 29 2F 32 0D 0A 31 34 39 30 H=(H+1)/2..1490
012010: 20 52 45 54 55 52 4E 0D 0A 31 35 30 30 20 52 45 RETURN..1500 RE
012020: 4D 2D 2D 50 52 4F 47 52 41 4D 20 53 54 41 52 54 M--PROGRAM START
012030: 53 20 48 45 52 45 0D 0A 31 35 31 30 20 52 45 4D S HERE..1510 REM
012040: 2D 2D 49 4E 49 54 49 41 4C 49 5A 45 0D 0A 31 35 --INITIALIZE..15
012050: 32 30 20 44 24 3D 22 4E 20 41 20 20 32 20 20 33 20 D$="N A 2 3
012060: 20 20 34 20 20 35 20 20 36 20 20 37 4E 20 38 20 4 5 6 7N 8
012070: 20 39 20 31 30 20 20 4A 20 20 51 20 20 4B 22 0D 9 10 J Q K".
012080: 0A 31 35 33 30 20 49 24 3D 22 48 2C 53 2C 44 2C .1530 I$="H,S,D,
012090: 2F 2C 22 0D 0A 31 35 34 30 20 46 4F 52 20 49 3D /,"..1540 FOR I=
0120A0: 31 20 54 4F 20 31 33 0D 0A 31 35 35 30 20 46 4F 1 TO 13..1550 FO
0120B0: 52 20 4A 3D 34 2A 49 2D 33 20 54 4F 20 34 2A 49 R J=4*I-3 TO 4*I
0120C0: 0D 0A 31 35 36 30 20 44 28 4A 29 3D 49 0D 0A 31 ..1560 D(J)=I..1
0120D0: 35 37 30 20 4E 45 58 54 20 4A 0D 0A 31 35 38 30 570 NEXT J..1580
0120E0: 20 4E 45 58 54 20 49 0D 0A 31 35 39 30 20 44 3D NEXT I..1590 D=
0120F0: 35 32 0D 0A 31 36 30 30 20 43 3D 35 33 0D 0A 31 52..1600 C=53..1
012100: 48 45 4E 20 32 31 36 30 0D 0A 32 32 30 30 20 4E HEN 2160..2200 N
012110: 45 58 54 20 49 0D 0A 32 32 31 30 20 46 4F 52 20 EXT I..2210 FOR
012120: 49 3D 31 20 54 4F 20 4E 0D 0A 32 32 32 30 20 53 I=1 TO N..2220 S
012130: 28 49 29 3D 5A 28 49 29 2A 28 33 2A 28 2D 28 50 (I)=Z(I)*(3*(-(P
012140: 28 44 31 2C 32 29 3E 3D 31 30 29 29 2D 31 29 0D (D1,2)>=10))-1).
012150: 0A 32 32 33 30 20 4E 45 58 54 20 49 0D 0A 32 32 .2230 NEXT I..22
012160: 34 30 20 52 45 4D 2D 2D 54 45 53 54 20 46 4F 52 40 REM--TEST FOR
012170: 20 44 45 41 4C 45 52 20 42 4C 41 43 4B 4A 41 43 DEALER BLACKJAC
012180: 4B 0D 0A 32 32 35 30 20 4C 31 3D 31 3A 20 4C 32 K..2250 L1=1: L2
012190: 3D 31 0D 0A 32 32 35 32 20 49 46 20 50 28 44 31 =1..2252 IF P(D1
0121A0: 2C 31 29 3D 31 20 41 4E 44 20 50 28 44 31 2C 32 ,1)=1 AND P(D1,2
0121B0: 29 3E 39 20 54 48 45 4E 20 4C 31 3D 30 3A 20 4C )>9 THEN L1=0: L
0121C0: 32 3D 30 0D 0A 32 32 35 33 20 49 46 20 50 28 44 2=0..2253 IF P(D
0121D0: 31 2C 32 29 3D 31 20 41 4E 44 20 50 28 44 31 2C 1,2)=1 AND P(D1,
0121E0: 31 29 3E 39 20 54 48 45 4E 20 4C 31 3D 30 3A 20 1)>9 THEN L1=0:
0121F0: 4C 32 3D 30 0D 0A 32 32 35 34 20 49 46 20 4C 31 L2=0..2254 IF L1
012200: 3C 3E 30 20 4F 52 20 4C 32 3C 3E 30 20 54 48 45 <>0 OR L2<>0 THE
012210: 4E 20 32 33 32 30 0D 0A 32 32 36 30 20 50 52 49 N 2320..2260 PRI
012220: 4E 54 3A 50 52 49 4E 54 20 22 44 45 41 4C 45 52 NT:PRINT "DEALER
012230: 20 48 41 53 20 41 22 3B 4D 49 44 24 28 44 24 2C HAS A";MID$(D$,
012240: 33 2A 50 28 44 31 2C 32 29 2D 32 2C 33 29 3B 22 3*P(D1,2)-2,3);"
012250: 20 49 4E 20 54 48 45 20 48 4F 4C 45 20 22 3B 0D IN THE HOLE ";.
012260: 0A 32 32 37 30 20 50 52 49 4E 54 20 22 46 4F 52 .2270 PRINT "FOR
012270: 20 42 4C 41 43 4B 4A 41 43 4B 22 0D 0A 32 32 38 BLACKJACK"..228
012280: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 44 31 0D 0 FOR I=1 TO D1.
012290: 0A 32 32 39 30 20 47 4F 53 55 42 20 33 30 30 0D .2290 GOSUB 300.
0122A0: 0A 32 33 30 30 20 4E 45 58 54 20 49 0D 0A 32 33 .2300 NEXT I..23
0122B0: 31 30 20 47 4F 54 4F 20 33 31 34 30 0D 0A 32 33 10 GOTO 3140..23
0122C0: 32 30 20 52 45 4D 2D 2D 4E 4F 20 44 45 41 4C 45 20 REM--NO DEALE
0122D0: 52 20 42 4C 41 43 4B 4A 41 43 4B 0D 0A 32 33 33 R BLACKJACK..233
0122E0: 30 20 49 46 20 50 28 44 31 2C 31 29 3E 31 20 41 0 IF P(D1,1)>1 A
0122F0: 4E 44 20 50 28 44 31 2C 31 29 3C 31 30 20 54 48 ND P(D1,1)<10 TH
012300: 36 31 30 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 610 PRINT "DO YO
012310: 55 20 57 41 4E 54 20 49 4E 53 54 52 55 43 54 49 U WANT INSTRUCTI
012320: 4F 4E 53 22 3B 0D 0A 31 36 32 30 20 49 4E 50 55 ONS";..1620 INPU
012330: 54 20 48 24 0D 0A 31 36 33 30 20 49 46 20 4C 45 T H$..1630 IF LE
012340: 46 54 24 28 48 24 2C 31 29 3D 22 4E 22 20 4F 52 FT$(H$,1)="N" OR
012350: 20 4C 45 46 54 24 28 48 24 2C 31 29 3D 22 6E 22 LEFT$(H$,1)="n"
012360: 20 54 48 45 4E 20 31 37 36 30 0D 0A 31 36 34 30 THEN 1760..1640
012370: 20 50 52 49 4E 54 20 22 54 48 49 53 20 49 53 20 PRINT "THIS IS
012380: 54 48 45 20 47 41 4D 45 20 4F 46 20 32 31 2E 20 THE GAME OF 21.
012390: 41 53 20 4D 41 4E 59 20 41 53 20 37 20 50 4C 41 AS MANY AS 7 PLA
0123A0: 59 45 52 53 20 4D 41 59 20 50 4C 41 59 20 54 48 YERS MAY PLAY TH
0123B0: 45 22 0D 0A 31 36 35 30 20 50 52 49 4E 54 20 22 E"..1650 PRINT "
0123C0: 47 41 4D 45 2E 20 4F 4E 20 45 41 43 48 20 44 45 GAME. ON EACH DE
0123D0: 41 4C 2C 20 42 45 54 53 20 57 49 4C 4C 20 42 45 AL, BETS WILL BE
0123E0: 20 41 53 4B 45 44 20 46 4F 52 2C 20 41 4E 44 20 ASKED FOR, AND
0123F0: 54 48 45 22 0D 0A 31 36 36 30 20 50 52 49 4E 54 THE"..1660 PRINT
012400: 20 22 50 4C 41 59 45 52 53 27 20 42 45 54 53 20 "PLAYERS' BETS
012410: 53 48 4F 55 4C 44 20 42 45 20 54 59 50 45 44 20 SHOULD BE TYPED
012420: 49 4E 2E 20 54 48 45 20 43 41 52 44 53 20 57 49 IN. THE CARDS WI
012430: 4C 4C 20 54 48 45 4E 20 42 45 22 0D 0A 31 36 37 LL THEN BE"..167
012440: 30 20 50 52 49 4E 54 20 22 44 45 41 4C 54 2C 20 0 PRINT "DEALT,
012450: 41 4E 44 20 45 41 43 48 20 50 4C 41 59 45 52 20 AND EACH PLAYER
012460: 49 4E 20 54 55 52 4E 20 50 4C 41 59 53 20 48 49 IN TURN PLAYS HI
012470: 53 20 48 41 4E 44 2E 20 54 48 45 22 0D 0A 31 36 S HAND. THE"..16
012480: 38 30 20 50 52 49 4E 54 20 22 46 49 52 53 54 20 80 PRINT "FIRST
012490: 52 45 53 50 4F 4E 53 45 20 53 48 4F 55 4C 44 20 RESPONSE SHOULD
0124A0: 42 45 20 45 49 54 48 45 52 20 27 44 27 2C 20 49 BE EITHER 'D', I
0124B0: 4E 44 49 43 41 54 49 4E 47 20 54 48 41 54 20 54 NDICATING THAT T
0124C0: 48 45 22 0D 0A 31 36 39 30 20 50 52 49 4E 54 20 HE"..1690 PRINT
0124D0: 22 50 4C 41 59 45 52 20 49 53 20 44 4F 55 42 4C "PLAYER IS DOUBL
0124E0: 49 4E 47 20 44 4F 57 4E 2C 20 27 53 27 2C 20 49 ING DOWN, 'S', I
0124F0: 4E 44 49 43 41 54 49 4E 47 20 54 48 41 54 20 48 NDICATING THAT H
012500: 45 4E 20 32 33 35 30 0D 0A 32 33 34 30 20 50 52 EN 2350..2340 PR
012510: 49 4E 54 3A 50 52 49 4E 54 20 22 4E 4F 20 44 45 INT:PRINT "NO DE
012520: 41 4C 45 52 20 42 4C 41 43 4B 4A 41 43 4B 2E 22 ALER BLACKJACK."
012530: 0D 0A 32 33 35 30 20 52 45 4D 2D 2D 4E 4F 57 20 ..2350 REM--NOW
012540: 50 4C 41 59 20 54 48 45 20 48 41 4E 44 53 0D 0A PLAY THE HANDS..
012550: 32 33 36 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 2360 FOR I=1 TO
012560: 4E 0D 0A 32 33 37 30 20 50 52 49 4E 54 20 22 50 N..2370 PRINT "P
012570: 4C 41 59 45 52 22 3B 49 3B 0D 0A 32 33 38 30 20 LAYER";I;..2380
012580: 48 31 3D 37 0D 0A 32 33 39 30 20 47 4F 53 55 42 H1=7..2390 GOSUB
012590: 20 31 34 31 30 0D 0A 32 34 30 30 20 4F 4E 20 48 1410..2400 ON H
0125A0: 20 47 4F 54 4F 20 32 35 35 30 2C 32 34 31 30 2C GOTO 2550,2410,
0125B0: 32 35 31 30 2C 32 36 30 30 0D 0A 32 34 31 30 20 2510,2600..2410
0125C0: 52 45 4D 2D 2D 50 4C 41 59 45 52 20 57 41 4E 54 REM--PLAYER WANT
0125D0: 53 20 54 4F 20 53 54 41 4E 44 0D 0A 32 34 32 30 S TO STAND..2420
0125E0: 20 47 4F 53 55 42 20 33 30 30 0D 0A 32 34 33 30 GOSUB 300..2430
0125F0: 20 49 46 20 51 28 49 29 3C 3E 32 31 20 54 48 45 IF Q(I)<>21 THE
012600: 4E 20 32 34 39 30 0D 0A 32 34 34 30 20 50 52 49 N 2490..2440 PRI
012610: 4E 54 20 22 42 4C 41 43 4B 4A 41 43 4B 22 0D 0A NT "BLACKJACK"..
012620: 32 34 35 30 20 53 28 49 29 3D 53 28 49 29 2B 31 2450 S(I)=S(I)+1
012630: 2E 35 2A 42 28 49 29 0D 0A 32 34 36 30 20 42 28 .5*B(I)..2460 B(
012640: 49 29 3D 30 0D 0A 32 34 37 30 20 47 4F 53 55 42 I)=0..2470 GOSUB
012650: 20 31 32 30 30 0D 0A 32 34 38 30 20 47 4F 54 4F 1200..2480 GOTO
012660: 20 32 39 30 30 0D 0A 32 34 39 30 20 47 4F 53 55 2900..2490 GOSU
012670: 42 20 31 33 32 30 0D 0A 32 35 30 30 20 47 4F 54 B 1320..2500 GOT
012680: 4F 20 32 39 30 30 0D 0A 32 35 31 30 20 52 45 4D O 2900..2510 REM
012690: 2D 2D 50 4C 41 59 45 52 20 57 41 4E 54 53 20 54 --PLAYER WANTS T
0126A0: 4F 20 44 4F 55 42 4C 45 20 44 4F 57 4E 0D 0A 32 O DOUBLE DOWN..2
0126B0: 35 32 30 20 47 4F 53 55 42 20 33 30 30 0D 0A 32 520 GOSUB 300..2
0126C0: 35 33 30 20 47 4F 53 55 42 20 38 36 30 0D 0A 32 530 GOSUB 860..2
0126D0: 35 34 30 20 47 4F 54 4F 20 32 39 30 30 0D 0A 32 540 GOTO 2900..2
0126E0: 35 35 30 20 52 45 4D 2D 2D 50 4C 41 59 45 52 20 550 REM--PLAYER
0126F0: 57 41 4E 54 53 20 54 4F 20 42 45 20 48 49 54 0D WANTS TO BE HIT.
012700: 45 20 49 53 22 0D 0A 31 37 30 30 20 50 52 49 4E E IS"..1700 PRIN
012710: 54 20 22 53 54 41 4E 44 49 4E 47 2C 20 27 48 27 T "STANDING, 'H'
012720: 2C 20 49 4E 44 49 43 41 54 49 4E 47 20 48 45 20 , INDICATING HE
012730: 57 41 4E 54 53 20 41 4E 4F 54 48 45 52 20 43 41 WANTS ANOTHER CA
012740: 52 44 2C 20 4F 52 20 27 2F 27 2C 22 0D 0A 31 37 RD, OR '/',"..17
012750: 31 30 20 50 52 49 4E 54 20 22 49 4E 44 49 43 41 10 PRINT "INDICA
012760: 54 49 4E 47 20 54 48 41 54 20 48 45 20 57 41 4E TING THAT HE WAN
012770: 54 53 20 54 4F 20 53 50 4C 49 54 20 48 49 53 20 TS TO SPLIT HIS
012780: 43 41 52 44 53 2E 20 41 46 54 45 52 20 54 48 45 CARDS. AFTER THE
012790: 22 0D 0A 31 37 32 30 20 50 52 49 4E 54 20 22 49 "..1720 PRINT "I
0127A0: 4E 49 54 49 41 4C 20 52 45 53 50 4F 4E 53 45 2C NITIAL RESPONSE,
0127B0: 20 41 4C 4C 20 46 55 52 54 48 45 52 20 52 45 53 ALL FURTHER RES
0127C0: 50 4F 4E 53 45 53 20 53 48 4F 55 4C 44 20 42 45 PONSES SHOULD BE
0127D0: 20 27 53 27 20 4F 52 22 0D 0A 31 37 33 30 20 50 'S' OR"..1730 P
0127E0: 52 49 4E 54 20 22 27 48 27 2C 20 55 4E 4C 45 53 RINT "'H', UNLES
0127F0: 53 20 54 48 45 20 43 41 52 44 53 20 57 45 52 45 S THE CARDS WERE
012800: 20 53 50 4C 49 54 2C 20 49 4E 20 57 48 49 43 48 SPLIT, IN WHICH
012810: 20 43 41 53 45 20 44 4F 55 42 4C 49 4E 47 22 0D CASE DOUBLING".
012820: 0A 31 37 34 30 20 50 52 49 4E 54 20 22 44 4F 57 .1740 PRINT "DOW
012830: 4E 20 49 53 20 41 47 41 49 4E 20 50 45 52 4D 49 N IS AGAIN PERMI
012840: 54 54 45 44 2E 20 49 4E 20 4F 52 44 45 52 20 54 TTED. IN ORDER T
012850: 4F 20 43 4F 4C 4C 45 43 54 20 46 4F 52 22 0D 0A O COLLECT FOR"..
012860: 31 37 35 30 20 50 52 49 4E 54 20 22 42 4C 41 43 1750 PRINT "BLAC
012870: 4B 4A 41 43 4B 2C 20 54 48 45 20 49 4E 49 54 49 KJACK, THE INITI
012880: 41 4C 20 52 45 53 50 4F 4E 53 45 20 53 48 4F 55 AL RESPONSE SHOU
012890: 4C 44 20 42 45 20 27 53 27 2E 22 0D 0A 31 37 36 LD BE 'S'."..176
0128A0: 30 20 50 52 49 4E 54 20 22 4E 55 4D 42 45 52 20 0 PRINT "NUMBER
0128B0: 4F 46 20 50 4C 41 59 45 52 53 22 3B 0D 0A 31 37 OF PLAYERS";..17
0128C0: 37 30 20 49 4E 50 55 54 20 4E 0D 0A 31 37 37 35 70 INPUT N..1775
0128D0: 20 50 52 49 4E 54 0D 0A 31 37 38 30 20 49 46 20 PRINT..1780 IF
0128E0: 4E 3C 31 20 4F 52 20 4E 3E 37 20 4F 52 20 4E 3E N<1 OR N>7 OR N>
0128F0: 49 4E 54 28 4E 29 20 54 48 45 4E 20 31 37 36 30 INT(N) THEN 1760
012900: 0A 32 35 36 30 20 47 4F 53 55 42 20 33 30 30 0D .2560 GOSUB 300.
012910: 0A 32 35 37 30 20 48 31 3D 33 0D 0A 32 35 38 30 .2570 H1=3..2580
012920: 20 47 4F 53 55 42 20 39 35 30 0D 0A 32 35 39 30 GOSUB 950..2590
012930: 20 47 4F 54 4F 20 32 39 30 30 0D 0A 32 36 30 30 GOTO 2900..2600
012940: 20 52 45 4D 2D 2D 50 4C 41 59 45 52 20 57 41 4E REM--PLAYER WAN
012950: 54 53 20 54 4F 20 53 50 4C 49 54 0D 0A 32 36 31 TS TO SPLIT..261
012960: 30 20 4C 31 3D 50 28 49 2C 31 29 3A 20 49 46 20 0 L1=P(I,1): IF
012970: 50 28 49 2C 31 29 3E 31 30 20 54 48 45 4E 20 4C P(I,1)>10 THEN L
012980: 31 3D 31 30 0D 0A 32 36 31 32 20 4C 32 3D 50 28 1=10..2612 L2=P(
012990: 49 2C 32 29 3A 20 49 46 20 50 28 49 2C 32 29 3E I,2): IF P(I,2)>
0129A0: 31 30 20 54 48 45 4E 20 4C 32 3D 31 30 0D 0A 32 10 THEN L2=10..2
0129B0: 36 31 34 20 49 46 20 4C 31 3D 4C 32 20 54 48 45 614 IF L1=L2 THE
0129C0: 4E 20 32 36 34 30 0D 0A 32 36 32 30 20 50 52 49 N 2640..2620 PRI
0129D0: 4E 54 20 22 53 50 4C 49 54 54 49 4E 47 20 4E 4F NT "SPLITTING NO
0129E0: 54 20 41 4C 4C 4F 57 45 44 2E 22 0D 0A 32 36 33 T ALLOWED."..263
0129F0: 30 20 47 4F 54 4F 20 32 33 37 30 0D 0A 32 36 34 0 GOTO 2370..264
012A00: 30 20 52 45 4D 2D 2D 50 4C 41 59 20 4F 55 54 20 0 REM--PLAY OUT
012A10: 53 50 4C 49 54 0D 0A 32 36 35 30 20 49 31 3D 49 SPLIT..2650 I1=I
012A20: 2B 44 31 0D 0A 32 36 36 30 20 52 28 49 31 29 3D +D1..2660 R(I1)=
012A30: 32 0D 0A 32 36 37 30 20 50 28 49 31 2C 31 29 3D 2..2670 P(I1,1)=
012A40: 50 28 49 2C 32 29 0D 0A 32 36 38 30 20 42 28 49 P(I,2)..2680 B(I
012A50: 2B 44 31 29 3D 42 28 49 29 0D 0A 32 36 39 30 20 +D1)=B(I)..2690
012A60: 47 4F 53 55 42 20 31 30 30 0D 0A 32 37 30 30 20 GOSUB 100..2700
012A70: 50 52 49 4E 54 20 22 46 49 52 53 54 20 48 41 4E PRINT "FIRST HAN
012A80: 44 20 52 45 43 45 49 56 45 53 20 41 22 3B 0D 0A D RECEIVES A";..
012A90: 32 37 31 30 20 47 4F 53 55 42 20 37 30 30 0D 0A 2710 GOSUB 700..
012AA0: 32 37 32 30 20 50 28 49 2C 32 29 3D 58 0D 0A 32 2720 P(I,2)=X..2
012AB0: 37 33 30 20 47 4F 53 55 42 20 33 30 30 0D 0A 32 730 GOSUB 300..2
012AC0: 37 34 30 20 50 52 49 4E 54 0D 0A 32 37 35 30 20 740 PRINT..2750
012AD0: 47 4F 53 55 42 20 31 30 30 0D 0A 32 37 36 30 20 GOSUB 100..2760
012AE0: 50 52 49 4E 54 20 22 53 45 43 4F 4E 44 20 48 41 PRINT "SECOND HA
012AF0: 4E 44 20 52 45 43 45 49 56 45 53 20 41 22 3B 0D ND RECEIVES A";.
012B00: 0D 0A 31 37 39 30 20 46 4F 52 20 49 3D 31 20 54 ..1790 FOR I=1 T
012B10: 4F 20 38 3A 20 54 28 49 29 3D 30 3A 20 4E 45 58 O 8: T(I)=0: NEX
012B20: 54 20 49 0D 0A 31 38 30 30 20 44 31 3D 4E 2B 31 T I..1800 D1=N+1
012B30: 0D 0A 31 38 31 30 20 49 46 20 32 2A 44 31 2B 43 ..1810 IF 2*D1+C
012B40: 3E 3D 35 32 20 54 48 45 4E 20 47 4F 53 55 42 20 >=52 THEN GOSUB
012B50: 31 32 30 0D 0A 31 38 32 30 20 49 46 20 43 3D 32 120..1820 IF C=2
012B60: 20 54 48 45 4E 20 43 3D 43 2D 31 0D 0A 31 38 33 THEN C=C-1..183
012B70: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 4E 3A 20 0 FOR I=1 TO N:
012B80: 5A 28 49 29 3D 30 3A 20 4E 45 58 54 20 49 0D 0A Z(I)=0: NEXT I..
012B90: 31 38 34 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 1840 FOR I=1 TO
012BA0: 31 35 3A 20 42 28 49 29 3D 30 3A 20 4E 45 58 54 15: B(I)=0: NEXT
012BB0: 20 49 0D 0A 31 38 35 30 20 46 4F 52 20 49 3D 31 I..1850 FOR I=1
012BC0: 20 54 4F 20 31 35 3A 20 51 28 49 29 3D 30 3A 20 TO 15: Q(I)=0:
012BD0: 4E 45 58 54 20 49 0D 0A 31 38 36 30 20 46 4F 52 NEXT I..1860 FOR
012BE0: 20 49 3D 31 20 54 4F 20 37 3A 20 53 28 49 29 3D I=1 TO 7: S(I)=
012BF0: 30 3A 20 4E 45 58 54 20 49 0D 0A 31 38 37 30 20 0: NEXT I..1870
012C00: 46 4F 52 20 49 3D 31 20 54 4F 20 31 35 3A 20 52 FOR I=1 TO 15: R
012C10: 28 49 29 3D 30 3A 20 4E 45 58 54 20 49 0D 0A 31 (I)=0: NEXT I..1
012C20: 38 38 30 20 50 52 49 4E 54 20 22 42 45 54 53 3A 880 PRINT "BETS:
012C30: 22 0D 0A 31 38 39 30 20 46 4F 52 20 49 3D 31 20 "..1890 FOR I=1
012C40: 54 4F 20 4E 3A 20 50 52 49 4E 54 20 22 23 22 3B TO N: PRINT "#";
012C50: 49 3B 3A 20 49 4E 50 55 54 20 5A 28 49 29 3A 20 I;: INPUT Z(I):
012C60: 4E 45 58 54 20 49 0D 0A 31 39 30 30 20 46 4F 52 NEXT I..1900 FOR
012C70: 20 49 3D 31 20 54 4F 20 4E 0D 0A 31 39 31 30 20 I=1 TO N..1910
012C80: 49 46 20 5A 28 49 29 3C 3D 30 20 4F 52 20 5A 28 IF Z(I)<=0 OR Z(
012C90: 49 29 3E 35 30 30 20 54 48 45 4E 20 31 38 38 30 I)>500 THEN 1880
012CA0: 0D 0A 31 39 32 30 20 42 28 49 29 3D 5A 28 49 29 ..1920 B(I)=Z(I)
012CB0: 0D 0A 31 39 33 30 20 4E 45 58 54 20 49 0D 0A 31 ..1930 NEXT I..1
012CC0: 39 34 30 20 50 52 49 4E 54 20 22 50 4C 41 59 45 940 PRINT "PLAYE
012CD0: 52 22 3B 0D 0A 31 39 35 30 20 46 4F 52 20 49 3D R";..1950 FOR I=
012CE0: 31 20 54 4F 20 4E 0D 0A 31 39 36 30 20 50 52 49 1 TO N..1960 PRI
012CF0: 4E 54 20 49 3B 22 20 20 20 22 3B 0D 0A 31 39 37 NT I;" ";..197
012D00: 0A 32 37 37 30 20 49 3D 49 31 0D 0A 32 37 38 30 .2770 I=I1..2780
012D10: 20 47 4F 53 55 42 20 37 30 30 0D 0A 32 37 39 30 GOSUB 700..2790
012D20: 20 50 28 49 2C 32 29 3D 58 0D 0A 32 38 30 30 20 P(I,2)=X..2800
012D30: 47 4F 53 55 42 20 33 30 30 0D 0A 32 38 31 30 20 GOSUB 300..2810
012D40: 50 52 49 4E 54 0D 0A 32 38 32 30 20 49 3D 49 31 PRINT..2820 I=I1
012D50: 2D 44 31 0D 0A 32 38 33 30 20 49 46 20 50 28 49 -D1..2830 IF P(I
012D60: 2C 31 29 3D 31 20 54 48 45 4E 20 32 39 30 30 0D ,1)=1 THEN 2900.
012D70: 0A 32 38 34 30 20 52 45 4D 2D 2D 4E 4F 57 20 50 .2840 REM--NOW P
012D80: 4C 41 59 20 54 48 45 20 54 57 4F 20 48 41 4E 44 LAY THE TWO HAND
012D90: 53 0D 0A 32 38 35 30 20 50 52 49 4E 54 20 22 48 S..2850 PRINT "H
012DA0: 41 4E 44 22 3B 31 2D 28 49 3E 44 31 29 3B 0D 0A AND";1-(I>D1);..
012DB0: 32 38 36 30 20 47 4F 53 55 42 20 38 30 30 0D 0A 2860 GOSUB 800..
012DC0: 32 38 37 30 20 49 3D 49 2B 44 31 0D 0A 32 38 38 2870 I=I+D1..288
012DD0: 30 20 49 46 20 49 3D 49 31 20 54 48 45 4E 20 32 0 IF I=I1 THEN 2
012DE0: 38 35 30 0D 0A 32 38 39 30 20 49 3D 49 31 2D 44 850..2890 I=I1-D
012DF0: 31 0D 0A 32 39 30 30 20 4E 45 58 54 20 49 0D 0A 1..2900 NEXT I..
012E00: 32 39 31 30 20 47 4F 53 55 42 20 33 30 30 0D 0A 2910 GOSUB 300..
012E10: 32 39 32 30 20 52 45 4D 2D 2D 54 45 53 54 20 46 2920 REM--TEST F
012E20: 4F 52 20 50 4C 41 59 49 4E 47 20 44 45 41 4C 45 OR PLAYING DEALE
012E30: 52 27 53 20 48 41 4E 44 0D 0A 32 39 33 30 20 46 R'S HAND..2930 F
012E40: 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 32 39 34 OR I=1 TO N..294
012E50: 30 20 49 46 20 52 28 49 29 3E 30 20 4F 52 20 52 0 IF R(I)>0 OR R
012E60: 28 49 2B 44 31 29 3E 30 20 54 48 45 4E 20 33 30 (I+D1)>0 THEN 30
012E70: 31 30 0D 0A 32 39 35 30 20 4E 45 58 54 20 49 0D 10..2950 NEXT I.
012E80: 0A 32 39 36 30 20 50 52 49 4E 54 20 22 44 45 41 .2960 PRINT "DEA
012E90: 4C 45 52 20 48 41 44 20 41 22 3B 0D 0A 32 39 37 LER HAD A";..297
012EA0: 30 20 58 3D 50 28 44 31 2C 32 29 0D 0A 32 39 38 0 X=P(D1,2)..298
012EB0: 30 20 47 4F 53 55 42 20 37 30 30 0D 0A 32 39 39 0 GOSUB 700..299
012EC0: 30 20 50 52 49 4E 54 20 22 20 43 4F 4E 43 45 41 0 PRINT " CONCEA
012ED0: 4C 45 44 2E 22 0D 0A 33 30 30 30 20 47 4F 54 4F LED."..3000 GOTO
012EE0: 20 33 31 34 30 0D 0A 33 30 31 30 20 50 52 49 4E 3140..3010 PRIN
012EF0: 54 20 22 44 45 41 4C 45 52 20 48 41 53 20 41 22 T "DEALER HAS A"
012F00: 30 20 4E 45 58 54 20 49 0D 0A 31 39 38 30 20 50 0 NEXT I..1980 P
012F10: 52 49 4E 54 20 22 44 45 41 4C 45 52 22 0D 0A 31 RINT "DEALER"..1
012F20: 39 39 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 32 990 FOR J=1 TO 2
012F30: 0D 0A 32 30 30 30 20 50 52 49 4E 54 20 54 41 42 ..2000 PRINT TAB
012F40: 28 35 29 3B 0D 0A 32 30 31 30 20 46 4F 52 20 49 (5);..2010 FOR I
012F50: 3D 31 20 54 4F 20 44 31 0D 0A 32 30 32 30 20 47 =1 TO D1..2020 G
012F60: 4F 53 55 42 20 31 30 30 0D 0A 32 30 33 30 20 50 OSUB 100..2030 P
012F70: 28 49 2C 4A 29 3D 58 0D 0A 32 30 34 30 20 49 46 (I,J)=X..2040 IF
012F80: 20 4A 3D 31 20 4F 52 20 49 3C 3D 4E 20 54 48 45 J=1 OR I<=N THE
012F90: 4E 20 47 4F 53 55 42 20 37 35 30 0D 0A 32 30 35 N GOSUB 750..205
012FA0: 30 20 4E 45 58 54 20 49 0D 0A 32 30 36 30 20 50 0 NEXT I..2060 P
012FB0: 52 49 4E 54 0D 0A 32 30 37 30 20 4E 45 58 54 20 RINT..2070 NEXT
012FC0: 4A 0D 0A 32 30 38 30 20 46 4F 52 20 49 3D 31 20 J..2080 FOR I=1
012FD0: 54 4F 20 44 31 0D 0A 32 30 39 30 20 52 28 49 29 TO D1..2090 R(I)
012FE0: 3D 32 0D 0A 32 31 30 30 20 4E 45 58 54 20 49 0D =2..2100 NEXT I.
012FF0: 0A 32 31 31 30 20 52 45 4D 2D 2D 54 45 53 54 20 .2110 REM--TEST
013000: 46 4F 52 20 49 4E 53 55 52 41 4E 43 45 0D 0A 32 FOR INSURANCE..2
013010: 31 32 30 20 49 46 20 50 28 44 31 2C 31 29 3E 31 120 IF P(D1,1)>1
013020: 20 54 48 45 4E 20 32 32 34 30 0D 0A 32 31 33 30 THEN 2240..2130
013030: 20 50 52 49 4E 54 20 22 41 4E 59 20 49 4E 53 55 PRINT "ANY INSU
013040: 52 41 4E 43 45 22 3B 0D 0A 32 31 34 30 20 49 4E RANCE";..2140 IN
013050: 50 55 54 20 48 24 0D 0A 32 31 35 30 20 49 46 20 PUT H$..2150 IF
013060: 4C 45 46 54 24 28 48 24 2C 31 29 3C 3E 22 59 22 LEFT$(H$,1)<>"Y"
013070: 20 54 48 45 4E 20 32 32 34 30 0D 0A 32 31 36 30 THEN 2240..2160
013080: 20 50 52 49 4E 54 20 22 49 4E 53 55 52 41 4E 43 PRINT "INSURANC
013090: 45 20 42 45 54 53 22 0D 0A 32 31 37 30 20 46 4F E BETS"..2170 FO
0130A0: 52 20 49 3D 31 20 54 4F 20 4E 3A 20 50 52 49 4E R I=1 TO N: PRIN
0130B0: 54 20 22 23 22 3B 49 3B 3A 20 49 4E 50 55 54 20 T "#";I;: INPUT
0130C0: 5A 28 49 29 3A 20 4E 45 58 54 20 49 0D 0A 32 31 Z(I): NEXT I..21
0130D0: 38 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 80 FOR I=1 TO N.
0130E0: 0A 32 31 39 30 20 49 46 20 5A 28 49 29 3C 30 20 .2190 IF Z(I)<0
0130F0: 4F 52 20 5A 28 49 29 3E 42 28 49 29 2F 32 20 54 OR Z(I)>B(I)/2 T
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 00 00 02 09 52 E5 10 00 C1 02 00 00 00 02 ......R.........
013120: 10 00 C6 02 00 00 00 02 10 00 C2 02 00 00 00 02 ................
013130: 10 00 C7 02 00 00 00 02 10 00 C3 02 00 00 00 02 ................
013140: 10 00 C8 02 00 00 00 02 10 00 C4 02 00 00 00 02 ................
013150: 10 00 C9 02 00 00 00 02 10 00 C5 02 00 00 00 02 ................
013160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013200: 3B 4D 49 44 24 28 44 24 2C 33 2A 50 28 44 31 2C ;MID$(D$,3*P(D1,
013210: 32 29 2D 32 2C 33 29 3B 22 20 43 4F 4E 43 45 41 2)-2,3);" CONCEA
013220: 4C 45 44 20 22 3B 0D 0A 33 30 32 30 20 49 3D 44 LED ";..3020 I=D
013230: 31 0D 0A 33 30 33 30 20 41 41 3D 51 28 49 29 3A 1..3030 AA=Q(I):
013240: 20 47 4F 53 55 42 20 33 34 30 30 0D 0A 33 30 33 GOSUB 3400..303
013250: 35 20 50 52 49 4E 54 20 22 46 4F 52 20 41 20 54 5 PRINT "FOR A T
013260: 4F 54 41 4C 20 4F 46 22 3B 41 41 0D 0A 33 30 34 OTAL OF";AA..304
013270: 30 20 49 46 20 41 41 3E 31 36 20 54 48 45 4E 20 0 IF AA>16 THEN
013280: 33 31 33 30 0D 0A 33 30 35 30 20 50 52 49 4E 54 3130..3050 PRINT
013290: 20 22 44 52 41 57 53 22 3B 0D 0A 33 30 36 30 20 "DRAWS";..3060
0132A0: 47 4F 53 55 42 20 31 30 30 0D 0A 33 30 37 30 20 GOSUB 100..3070
0132B0: 47 4F 53 55 42 20 37 35 30 0D 0A 33 30 38 30 20 GOSUB 750..3080
0132C0: 47 4F 53 55 42 20 31 31 30 30 0D 0A 33 30 39 30 GOSUB 1100..3090
0132D0: 20 41 41 3D 51 3A 20 47 4F 53 55 42 20 33 34 30 AA=Q: GOSUB 340
0132E0: 30 0D 0A 33 30 39 35 20 49 46 20 51 3E 30 20 41 0..3095 IF Q>0 A
0132F0: 4E 44 20 41 41 3C 31 37 20 54 48 45 4E 20 33 30 ND AA<17 THEN 30
013300: 36 30 0D 0A 33 31 30 30 20 51 28 49 29 3D 51 2D 60..3100 Q(I)=Q-
013310: 28 51 3C 30 29 2F 32 0D 0A 33 31 31 30 20 49 46 (Q<0)/2..3110 IF
013320: 20 51 3C 30 20 54 48 45 4E 20 33 31 34 30 0D 0A Q<0 THEN 3140..
013330: 33 31 32 30 20 41 41 3D 51 3A 20 47 4F 53 55 42 3120 AA=Q: GOSUB
013340: 20 33 34 30 30 0D 0A 33 31 32 35 20 50 52 49 4E 3400..3125 PRIN
013350: 54 20 22 2D 2D 2D 54 4F 54 41 4C 20 49 53 22 3B T "---TOTAL IS";
013360: 41 41 0D 0A 33 31 33 30 20 50 52 49 4E 54 0D 0A AA..3130 PRINT..
013370: 33 31 34 30 20 52 45 4D 2D 2D 54 41 4C 4C 59 20 3140 REM--TALLY
013380: 54 48 45 20 52 45 53 55 4C 54 0D 0A 33 31 35 30 THE RESULT..3150
013390: 20 52 45 4D 20 0D 0A 33 31 36 30 20 5A 24 3D 22 REM ..3160 Z$="
0133A0: 4C 4F 53 45 53 20 50 55 53 48 45 53 20 57 49 4E LOSES PUSHES WIN
0133B0: 53 20 22 0D 0A 33 31 36 35 20 50 52 49 4E 54 0D S "..3165 PRINT.
0133C0: 0A 33 31 37 30 20 46 4F 52 20 49 3D 31 20 54 4F .3170 FOR I=1 TO
0133D0: 20 4E 0D 0A 33 31 38 30 20 41 41 3D 51 28 49 29 N..3180 AA=Q(I)
0133E0: 3A 20 47 4F 53 55 42 20 33 34 30 30 0D 0A 33 31 : GOSUB 3400..31
0133F0: 38 32 20 41 42 3D 51 28 49 2B 44 31 29 3A 20 47 82 AB=Q(I+D1): G
013400: 0D 0A 31 36 30 20 50 52 49 4E 54 20 22 54 48 45 ..160 PRINT "THE
013410: 20 4F 4E 45 20 57 48 4F 20 44 45 53 54 52 4F 59 ONE WHO DESTROY
013420: 53 20 41 4C 4C 20 46 4F 55 52 20 4F 46 20 54 48 S ALL FOUR OF TH
013430: 45 20 45 4E 45 4D 59 27 53 20 50 4C 41 54 4F 4F E ENEMY'S PLATOO
013440: 4E 53 22 0D 0A 31 37 30 20 50 52 49 4E 54 20 22 NS"..170 PRINT "
013450: 46 49 52 53 54 20 49 53 20 54 48 45 20 57 49 4E FIRST IS THE WIN
013460: 4E 45 52 2E 22 0D 0A 31 38 30 20 50 52 49 4E 54 NER."..180 PRINT
013470: 0D 0A 31 39 30 20 50 52 49 4E 54 20 22 47 4F 4F ..190 PRINT "GOO
013480: 44 20 4C 55 43 4B 2E 2E 2E 20 41 4E 44 20 54 45 D LUCK... AND TE
013490: 4C 4C 20 55 53 20 57 48 45 52 45 20 59 4F 55 20 LL US WHERE YOU
0134A0: 57 41 4E 54 20 54 48 45 20 42 4F 44 49 45 53 20 WANT THE BODIES
0134B0: 53 45 4E 54 21 22 0D 0A 32 30 30 20 50 52 49 4E SENT!"..200 PRIN
0134C0: 54 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 54 45 T..210 PRINT "TE
0134D0: 41 52 20 4F 46 46 20 4D 41 54 52 49 58 20 41 4E AR OFF MATRIX AN
0134E0: 44 20 55 53 45 20 49 54 20 54 4F 20 43 48 45 43 D USE IT TO CHEC
0134F0: 4B 20 4F 46 46 20 54 48 45 20 4E 55 4D 42 45 52 K OFF THE NUMBER
013500: 53 2E 22 0D 0A 32 32 30 20 46 4F 52 20 52 3D 31 S."..220 FOR R=1
013510: 20 54 4F 20 35 3A 20 50 52 49 4E 54 3A 20 4E 45 TO 5: PRINT: NE
013520: 58 54 20 52 0D 0A 32 36 30 20 44 49 4D 20 4D 28 XT R..260 DIM M(
013530: 31 30 30 29 0D 0A 32 37 30 20 46 4F 52 20 52 3D 100)..270 FOR R=
013540: 31 20 54 4F 20 35 0D 0A 32 38 30 20 49 3D 28 52 1 TO 5..280 I=(R
013550: 2D 31 29 2A 35 2B 31 0D 0A 32 39 30 20 50 52 49 -1)*5+1..290 PRI
013560: 4E 54 20 49 2C 49 2B 31 2C 49 2B 32 2C 49 2B 33 NT I,I+1,I+2,I+3
013570: 2C 49 2B 34 0D 0A 33 30 30 20 4E 45 58 54 20 52 ,I+4..300 NEXT R
013580: 0D 0A 33 35 30 20 46 4F 52 20 52 3D 31 20 54 4F ..350 FOR R=1 TO
013590: 20 31 30 3A 20 50 52 49 4E 54 3A 20 4E 45 58 54 10: PRINT: NEXT
0135A0: 20 52 0D 0A 33 38 30 20 43 3D 49 4E 54 28 52 4E R..380 C=INT(RN
0135B0: 44 28 31 29 2A 32 35 29 2B 31 0D 0A 33 39 30 20 D(1)*25)+1..390
0135C0: 44 3D 49 4E 54 28 52 4E 44 28 31 29 2A 32 35 29 D=INT(RND(1)*25)
0135D0: 2B 31 0D 0A 34 30 30 20 45 3D 49 4E 54 28 52 4E +1..400 E=INT(RN
0135E0: 44 28 31 29 2A 32 35 29 2B 31 0D 0A 34 31 30 20 D(1)*25)+1..410
0135F0: 46 3D 49 4E 54 28 52 4E 44 28 31 29 2A 32 35 29 F=INT(RND(1)*25)
013600: 4F 53 55 42 20 33 34 31 30 0D 0A 33 31 38 34 20 OSUB 3410..3184
013610: 41 43 3D 51 28 44 31 29 3A 20 47 4F 53 55 42 20 AC=Q(D1): GOSUB
013620: 33 34 32 30 0D 0A 33 31 38 36 20 53 28 49 29 3D 3420..3186 S(I)=
013630: 53 28 49 29 2B 42 28 49 29 2A 53 47 4E 28 41 41 S(I)+B(I)*SGN(AA
013640: 2D 41 43 29 2B 42 28 49 2B 44 31 29 2A 53 47 4E -AC)+B(I+D1)*SGN
013650: 28 41 42 2D 41 43 29 0D 0A 33 31 38 38 20 42 28 (AB-AC)..3188 B(
013660: 49 2B 44 31 29 3D 30 0D 0A 33 32 30 30 20 50 52 I+D1)=0..3200 PR
013670: 49 4E 54 20 22 50 4C 41 59 45 52 22 3B 49 3B 0D INT "PLAYER";I;.
013680: 0A 33 32 31 30 20 50 52 49 4E 54 20 4D 49 44 24 .3210 PRINT MID$
013690: 28 5A 24 2C 53 47 4E 28 53 28 49 29 29 2A 36 2B (Z$,SGN(S(I))*6+
0136A0: 37 2C 36 29 3B 22 20 22 3B 0D 0A 33 32 32 30 20 7,6);" ";..3220
0136B0: 49 46 20 53 28 49 29 3C 3E 30 20 54 48 45 4E 20 IF S(I)<>0 THEN
0136C0: 33 32 35 30 0D 0A 33 32 33 30 20 50 52 49 4E 54 3250..3230 PRINT
0136D0: 20 22 20 20 20 20 20 20 22 3B 0D 0A 33 32 34 30 " ";..3240
0136E0: 20 47 4F 54 4F 20 33 32 36 30 0D 0A 33 32 35 30 GOTO 3260..3250
0136F0: 20 50 52 49 4E 54 20 41 42 53 28 53 28 49 29 29 PRINT ABS(S(I))
013700: 3B 0D 0A 33 32 36 30 20 54 28 49 29 3D 54 28 49 ;..3260 T(I)=T(I
013710: 29 2B 53 28 49 29 0D 0A 33 32 37 30 20 50 52 49 )+S(I)..3270 PRI
013720: 4E 54 20 22 54 4F 54 41 4C 3D 22 3B 54 28 49 29 NT "TOTAL=";T(I)
013730: 0D 0A 33 32 38 30 20 47 4F 53 55 42 20 31 32 30 ..3280 GOSUB 120
013740: 30 0D 0A 33 32 39 30 20 54 28 44 31 29 3D 54 28 0..3290 T(D1)=T(
013750: 44 31 29 2D 53 28 49 29 0D 0A 33 33 30 30 20 49 D1)-S(I)..3300 I
013760: 3D 49 2B 44 31 0D 0A 33 33 31 30 20 47 4F 53 55 =I+D1..3310 GOSU
013770: 42 20 31 32 30 30 0D 0A 33 33 32 30 20 49 3D 49 B 1200..3320 I=I
013780: 2D 44 31 0D 0A 33 33 33 30 20 4E 45 58 54 20 49 -D1..3330 NEXT I
013790: 0D 0A 33 33 34 30 20 50 52 49 4E 54 20 22 44 45 ..3340 PRINT "DE
0137A0: 41 4C 45 52 27 53 20 54 4F 54 41 4C 3D 22 3B 54 ALER'S TOTAL=";T
0137B0: 28 44 31 29 0D 0A 33 33 34 35 20 50 52 49 4E 54 (D1)..3345 PRINT
0137C0: 0D 0A 33 33 35 30 20 47 4F 53 55 42 20 31 32 30 ..3350 GOSUB 120
0137D0: 30 0D 0A 33 33 36 30 20 47 4F 54 4F 20 31 38 31 0..3360 GOTO 181
0137E0: 30 0D 0A 33 34 30 30 20 41 41 3D 41 41 2B 31 31 0..3400 AA=AA+11
0137F0: 2A 28 41 41 3E 3D 32 32 29 3A 20 52 45 54 55 52 *(AA>=22): RETUR
013800: 2B 31 0D 0A 34 32 30 20 49 46 20 43 3D 44 20 54 +1..420 IF C=D T
013810: 48 45 4E 20 33 39 30 0D 0A 34 33 30 20 49 46 20 HEN 390..430 IF
013820: 43 3D 45 20 54 48 45 4E 20 34 30 30 0D 0A 34 34 C=E THEN 400..44
013830: 30 20 49 46 20 43 3D 46 20 54 48 45 4E 20 34 31 0 IF C=F THEN 41
013840: 30 0D 0A 34 35 30 20 49 46 20 44 3D 45 20 54 48 0..450 IF D=E TH
013850: 45 4E 20 34 30 30 0D 0A 34 36 30 20 49 46 20 44 EN 400..460 IF D
013860: 3D 46 20 54 48 45 4E 20 34 31 30 0D 0A 34 37 30 =F THEN 410..470
013870: 20 49 46 20 45 3D 46 20 54 48 45 4E 20 34 31 30 IF E=F THEN 410
013880: 0D 0A 34 38 30 20 50 52 49 4E 54 20 22 57 48 41 ..480 PRINT "WHA
013890: 54 20 41 52 45 20 59 4F 55 52 20 46 4F 55 52 20 T ARE YOUR FOUR
0138A0: 50 4F 53 49 54 49 4F 4E 53 22 3B 0D 0A 34 39 30 POSITIONS";..490
0138B0: 20 49 4E 50 55 54 20 47 2C 48 2C 4B 2C 4C 0D 0A INPUT G,H,K,L..
0138C0: 34 39 35 20 50 52 49 4E 54 0D 0A 35 30 30 20 50 495 PRINT..500 P
0138D0: 52 49 4E 54 20 22 57 48 45 52 45 20 44 4F 20 59 RINT "WHERE DO Y
0138E0: 4F 55 20 57 49 53 48 20 54 4F 20 46 49 52 45 20 OU WISH TO FIRE
0138F0: 59 4F 55 52 20 4D 49 53 53 4C 45 22 3B 0D 0A 35 YOUR MISSLE";..5
013900: 31 30 20 49 4E 50 55 54 20 59 0D 0A 35 32 30 20 10 INPUT Y..520
013910: 49 46 20 59 3D 43 20 54 48 45 4E 20 37 31 30 0D IF Y=C THEN 710.
013920: 0A 35 33 30 20 49 46 20 59 3D 44 20 54 48 45 4E .530 IF Y=D THEN
013930: 20 37 31 30 0D 0A 35 34 30 20 49 46 20 59 3D 45 710..540 IF Y=E
013940: 20 54 48 45 4E 20 37 31 30 0D 0A 35 35 30 20 49 THEN 710..550 I
013950: 46 20 59 3D 46 20 54 48 45 4E 20 37 31 30 0D 0A F Y=F THEN 710..
013960: 35 36 30 20 47 4F 54 4F 20 36 33 30 0D 0A 35 37 560 GOTO 630..57
013970: 30 20 4D 3D 49 4E 54 28 52 4E 44 28 31 29 2A 32 0 M=INT(RND(1)*2
013980: 35 29 2B 31 0D 0A 35 37 35 20 47 4F 54 4F 20 31 5)+1..575 GOTO 1
013990: 31 36 30 0D 0A 35 38 30 20 49 46 20 58 3D 47 20 160..580 IF X=G
0139A0: 54 48 45 4E 20 39 32 30 0D 0A 35 39 30 20 49 46 THEN 920..590 IF
0139B0: 20 58 3D 48 20 54 48 45 4E 20 39 32 30 0D 0A 36 X=H THEN 920..6
0139C0: 30 30 20 49 46 20 58 3D 4C 20 54 48 45 4E 20 39 00 IF X=L THEN 9
0139D0: 32 30 0D 0A 36 31 30 20 49 46 20 58 3D 4B 20 54 20..610 IF X=K T
0139E0: 48 45 4E 20 39 32 30 0D 0A 36 32 30 20 47 4F 54 HEN 920..620 GOT
0139F0: 4F 20 36 37 30 0D 0A 36 33 30 20 50 52 49 4E 54 O 670..630 PRINT
013A00: 4E 0D 0A 33 34 31 30 20 41 42 3D 41 42 2B 31 31 N..3410 AB=AB+11
013A10: 2A 28 41 42 3E 3D 32 32 29 3A 20 52 45 54 55 52 *(AB>=22): RETUR
013A20: 4E 0D 0A 33 34 32 30 20 41 43 3D 41 43 2B 31 31 N..3420 AC=AC+11
013A30: 2A 28 41 43 3E 3D 32 32 29 3A 20 52 45 54 55 52 *(AC>=22): RETUR
013A40: 4E 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 N...............
013A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013C00: 20 22 48 41 2C 20 48 41 20 59 4F 55 20 4D 49 53 "HA, HA YOU MIS
013C10: 53 45 44 2E 20 4D 59 20 54 55 52 4E 20 4E 4F 57 SED. MY TURN NOW
013C20: 3A 22 0D 0A 36 34 30 20 50 52 49 4E 54 3A 20 50 :"..640 PRINT: P
013C30: 52 49 4E 54 3A 20 47 4F 54 4F 20 35 37 30 0D 0A RINT: GOTO 570..
013C40: 36 37 30 20 50 52 49 4E 54 20 22 49 20 4D 49 53 670 PRINT "I MIS
013C50: 53 45 44 20 59 4F 55 2C 20 59 4F 55 20 44 49 52 SED YOU, YOU DIR
013C60: 54 59 20 52 41 54 2E 20 49 20 50 49 43 4B 45 44 TY RAT. I PICKED
013C70: 22 3B 4D 22 2E 20 59 4F 55 52 20 54 55 52 4E 3A ";M". YOUR TURN:
013C80: 22 0D 0A 36 38 30 20 50 52 49 4E 54 3A 20 50 52 "..680 PRINT: PR
013C90: 49 4E 54 3A 20 47 4F 54 4F 20 35 30 30 0D 0A 37 INT: GOTO 500..7
013CA0: 31 30 20 51 3D 51 2B 31 0D 0A 37 32 30 20 49 46 10 Q=Q+1..720 IF
013CB0: 20 51 3D 34 20 54 48 45 4E 20 38 39 30 0D 0A 37 Q=4 THEN 890..7
013CC0: 33 30 20 50 52 49 4E 54 20 22 59 4F 55 20 47 4F 30 PRINT "YOU GO
013CD0: 54 20 4F 4E 45 20 4F 46 20 4D 59 20 4F 55 54 50 T ONE OF MY OUTP
013CE0: 4F 53 54 53 21 22 0D 0A 37 34 30 20 49 46 20 51 OSTS!"..740 IF Q
013CF0: 3D 31 20 54 48 45 4E 20 37 37 30 0D 0A 37 35 30 =1 THEN 770..750
013D00: 20 49 46 20 51 3D 32 20 54 48 45 4E 20 38 31 30 IF Q=2 THEN 810
013D10: 0D 0A 37 36 30 20 49 46 20 51 3D 33 20 54 48 45 ..760 IF Q=3 THE
013D20: 4E 20 38 35 30 0D 0A 37 37 30 20 50 52 49 4E 54 N 850..770 PRINT
013D30: 20 22 4F 4E 45 20 44 4F 57 4E 2C 20 54 48 52 45 "ONE DOWN, THRE
013D40: 45 20 54 4F 20 47 4F 2E 22 0D 0A 37 38 30 20 50 E TO GO."..780 P
013D50: 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 47 4F 54 RINT: PRINT: GOT
013D60: 4F 20 35 37 30 0D 0A 38 31 30 20 50 52 49 4E 54 O 570..810 PRINT
013D70: 20 22 54 57 4F 20 44 4F 57 4E 2C 20 54 57 4F 20 "TWO DOWN, TWO
013D80: 54 4F 20 47 4F 2E 22 0D 0A 38 32 30 20 50 52 49 TO GO."..820 PRI
013D90: 4E 54 3A 20 50 52 49 4E 54 3A 20 47 4F 54 4F 20 NT: PRINT: GOTO
013DA0: 35 37 30 0D 0A 38 35 30 20 50 52 49 4E 54 20 22 570..850 PRINT "
013DB0: 54 48 52 45 45 20 44 4F 57 4E 2C 20 4F 4E 45 20 THREE DOWN, ONE
013DC0: 54 4F 20 47 4F 2E 22 0D 0A 38 36 30 20 50 52 49 TO GO."..860 PRI
013DD0: 4E 54 3A 20 50 52 49 4E 54 3A 20 47 4F 54 4F 20 NT: PRINT: GOTO
013DE0: 35 37 30 0D 0A 38 39 30 20 50 52 49 4E 54 20 22 570..890 PRINT "
013DF0: 59 4F 55 20 47 4F 54 20 4D 45 2C 20 49 27 4D 20 YOU GOT ME, I'M
013E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
013FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014000: 47 4F 49 4E 47 20 46 41 53 54 2E 20 42 55 54 20 GOING FAST. BUT
014010: 49 27 4C 4C 20 47 45 54 20 59 4F 55 20 57 48 45 I'LL GET YOU WHE
014020: 4E 22 0D 0A 39 30 30 20 50 52 49 4E 54 20 22 4D N"..900 PRINT "M
014030: 59 20 54 52 41 4E 53 49 53 54 4F 26 53 20 52 45 Y TRANSISTO&S RE
014040: 43 55 50 25 52 41 2A 45 21 22 0D 0A 39 31 30 20 CUP%RA*E!"..910
014050: 47 4F 54 4F 20 31 32 33 35 0D 0A 39 32 30 20 5A GOTO 1235..920 Z
014060: 3D 5A 2B 31 0D 0A 39 33 30 20 49 46 20 5A 3D 34 =Z+1..930 IF Z=4
014070: 20 54 48 45 4E 20 31 31 31 30 0D 0A 39 34 30 20 THEN 1110..940
014080: 50 52 49 4E 54 20 22 49 20 47 4F 54 20 59 4F 55 PRINT "I GOT YOU
014090: 2E 20 49 54 20 57 4F 4E 27 54 20 42 45 20 4C 4F . IT WON'T BE LO
0140A0: 4E 47 20 4E 4F 57 2E 20 50 4F 53 54 22 3B 58 3B NG NOW. POST";X;
0140B0: 22 57 41 53 20 48 49 54 2E 22 0D 0A 39 35 30 20 "WAS HIT."..950
0140C0: 49 46 20 5A 3D 31 20 54 48 45 4E 20 39 39 30 0D IF Z=1 THEN 990.
0140D0: 0A 39 36 30 20 49 46 20 5A 3D 32 20 54 48 45 4E .960 IF Z=2 THEN
0140E0: 20 31 30 33 30 0D 0A 39 37 30 20 49 46 20 5A 3D 1030..970 IF Z=
0140F0: 33 20 54 48 45 4E 20 31 30 37 30 0D 0A 39 39 30 3 THEN 1070..990
014100: 20 50 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 PRINT "YOU HAVE
014110: 20 4F 4E 4C 59 20 54 48 52 45 45 20 4F 55 54 50 ONLY THREE OUTP
014120: 4F 53 54 53 20 4C 45 46 54 2E 22 0D 0A 31 30 30 OSTS LEFT."..100
014130: 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 0 PRINT: PRINT:
014140: 47 4F 54 4F 20 35 30 30 0D 0A 31 30 33 30 20 50 GOTO 500..1030 P
014150: 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 4F RINT "YOU HAVE O
014160: 4E 4C 59 20 54 57 4F 20 4F 55 54 50 4F 53 54 53 NLY TWO OUTPOSTS
014170: 20 4C 45 46 54 2E 22 0D 0A 31 30 34 30 20 50 52 LEFT."..1040 PR
014180: 49 4E 54 3A 20 50 52 49 4E 54 3A 20 47 4F 54 4F INT: PRINT: GOTO
014190: 20 35 30 30 0D 0A 31 30 37 30 20 50 52 49 4E 54 500..1070 PRINT
0141A0: 20 22 59 4F 55 20 48 41 56 45 20 4F 4E 4C 59 20 "YOU HAVE ONLY
0141B0: 4F 4E 45 20 4F 55 54 50 4F 53 54 20 4C 45 46 54 ONE OUTPOST LEFT
0141C0: 2E 22 0D 0A 31 30 38 30 20 50 52 49 4E 54 3A 20 ."..1080 PRINT:
0141D0: 50 52 49 4E 54 3A 20 47 4F 54 4F 20 35 30 30 0D PRINT: GOTO 500.
0141E0: 0A 31 31 31 30 20 50 52 49 4E 54 20 22 59 4F 55 .1110 PRINT "YOU
0141F0: 27 52 45 20 44 45 41 44 2E 20 59 4F 55 52 20 4C 'RE DEAD. YOUR L
014200: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
014210: 3B 22 42 4F 4D 42 41 52 44 4D 45 4E 54 22 0D 0A ;"BOMBARDMENT"..
014220: 32 30 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 20 PRINT TAB(15)
014230: 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 ;"CREATIVE COMPU
014240: 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E TING MORRISTOWN
014250: 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 33 , NEW JERSEY"..3
014260: 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 0 PRINT:PRINT:PR
014270: 49 4E 54 0D 0A 31 30 30 20 50 52 49 4E 54 20 22 INT..100 PRINT "
014280: 59 4F 55 20 41 52 45 20 4F 4E 20 41 20 42 41 54 YOU ARE ON A BAT
014290: 54 4C 45 46 49 45 4C 44 20 57 49 54 48 20 34 20 TLEFIELD WITH 4
0142A0: 50 4C 41 54 4F 4F 4E 53 20 41 4E 44 20 59 4F 55 PLATOONS AND YOU
0142B0: 22 0D 0A 31 31 30 20 50 52 49 4E 54 20 22 48 41 "..110 PRINT "HA
0142C0: 56 45 20 32 35 20 4F 55 54 50 4F 53 54 53 20 41 VE 25 OUTPOSTS A
0142D0: 56 41 49 4C 41 42 4C 45 20 57 48 45 52 45 20 54 VAILABLE WHERE T
0142E0: 48 45 59 20 4D 41 59 20 42 45 20 50 4C 41 43 45 HEY MAY BE PLACE
0142F0: 44 2E 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 D."..120 PRINT "
014300: 59 4F 55 20 43 41 4E 20 4F 4E 4C 59 20 50 4C 41 YOU CAN ONLY PLA
014310: 43 45 20 4F 4E 45 20 50 4C 41 54 4F 4F 4E 20 41 CE ONE PLATOON A
014320: 54 20 41 4E 59 20 4F 4E 45 20 4F 55 54 50 4F 53 T ANY ONE OUTPOS
014330: 54 2E 22 0D 0A 31 33 30 20 50 52 49 4E 54 20 22 T."..130 PRINT "
014340: 54 48 45 20 43 4F 4D 50 55 54 45 52 20 44 4F 45 THE COMPUTER DOE
014350: 53 20 54 48 45 20 53 41 4D 45 20 57 49 54 48 20 S THE SAME WITH
014360: 49 54 53 20 46 4F 55 52 20 50 4C 41 54 4F 4F 4E ITS FOUR PLATOON
014370: 53 2E 22 0D 0A 31 33 35 20 50 52 49 4E 54 0D 0A S."..135 PRINT..
014380: 31 34 30 20 50 52 49 4E 54 20 22 54 48 45 20 4F 140 PRINT "THE O
014390: 42 4A 45 43 54 20 4F 46 20 54 48 45 20 47 41 4D BJECT OF THE GAM
0143A0: 45 20 49 53 20 54 4F 20 46 49 52 45 20 4D 49 53 E IS TO FIRE MIS
0143B0: 53 4C 45 53 20 41 54 20 54 48 45 22 0D 0A 31 35 SLES AT THE"..15
0143C0: 30 20 50 52 49 4E 54 20 22 4F 55 54 50 4F 53 54 0 PRINT "OUTPOST
0143D0: 53 20 4F 46 20 54 48 45 20 43 4F 4D 50 55 54 45 S OF THE COMPUTE
0143E0: 52 2E 20 20 49 54 20 57 49 4C 4C 20 44 4F 20 54 R. IT WILL DO T
0143F0: 48 45 20 53 41 4D 45 20 54 4F 20 59 4F 55 2E 22 HE SAME TO YOU."
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 00 00 02 09 52 E5 11 00 C1 02 00 00 00 02 ......R.........
014420: 11 00 C6 02 00 00 00 02 11 00 C2 02 00 00 00 02 ................
014430: 11 00 C7 02 00 00 00 02 11 00 C3 02 00 00 00 02 ................
014440: 11 00 C8 02 00 00 00 02 11 00 C4 02 00 00 00 02 ................
014450: 11 00 C9 02 00 00 00 02 11 00 C5 02 00 00 00 02 ................
014460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014500: 41 53 54 20 4F 55 54 50 4F 53 54 20 57 41 53 20 AST OUTPOST WAS
014510: 41 54 22 3B 58 3B 22 2E 20 48 41 2C 20 48 41 2C AT";X;". HA, HA,
014520: 20 48 41 2E 22 0D 0A 31 31 32 30 20 50 52 49 4E HA."..1120 PRIN
014530: 54 20 22 42 45 54 54 45 52 20 4C 55 43 4B 20 4E T "BETTER LUCK N
014540: 45 58 54 20 54 49 4D 45 2E 22 0D 0A 31 31 35 30 EXT TIME."..1150
014550: 20 47 4F 54 4F 20 31 32 33 35 0D 0A 31 31 36 30 GOTO 1235..1160
014560: 20 50 3D 50 2B 31 0D 0A 31 31 37 30 20 4E 3D 50 P=P+1..1170 N=P
014570: 2D 31 0D 0A 31 31 38 30 20 46 4F 52 20 54 3D 31 -1..1180 FOR T=1
014580: 20 54 4F 20 4E 0D 0A 31 31 39 30 20 49 46 20 4D TO N..1190 IF M
014590: 3D 4D 28 54 29 20 54 48 45 4E 20 35 37 30 0D 0A =M(T) THEN 570..
0145A0: 31 32 30 30 20 4E 45 58 54 20 54 0D 0A 31 32 31 1200 NEXT T..121
0145B0: 30 20 58 3D 4D 0D 0A 31 32 32 30 20 4D 28 50 29 0 X=M..1220 M(P)
0145C0: 3D 4D 0D 0A 31 32 33 30 20 47 4F 54 4F 20 35 38 =M..1230 GOTO 58
0145D0: 30 0D 0A 31 32 33 35 20 45 4E 44 0D 0A 1A E5 E5 0..1235 END.....
0145E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0145F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0146A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0146B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0146C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0146D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0146E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0146F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014700: 22 0D 0A 33 32 37 20 50 52 49 4E 54 20 22 4D 49 "..327 PRINT "MI
014710: 53 53 49 4F 4E 20 53 55 43 43 45 53 53 46 55 4C SSION SUCCESSFUL
014720: 2E 22 20 3A 20 47 4F 54 4F 20 33 39 30 0D 0A 33 ." : GOTO 390..3
014730: 33 30 20 50 52 49 4E 54 20 22 4D 49 53 53 45 44 30 PRINT "MISSED
014740: 20 54 41 52 47 45 54 20 42 59 22 49 4E 54 28 32 TARGET BY"INT(2
014750: 2B 33 30 2A 52 4E 44 28 31 29 29 22 4D 49 4C 45 +30*RND(1))"MILE
014760: 53 21 22 0D 0A 33 33 35 20 50 52 49 4E 54 20 22 S!"..335 PRINT "
014770: 4E 4F 57 20 59 4F 55 27 52 45 20 52 45 41 4C 4C NOW YOU'RE REALL
014780: 59 20 49 4E 20 46 4F 52 20 49 54 20 21 21 22 20 Y IN FOR IT !!"
014790: 3A 20 50 52 49 4E 54 0D 0A 33 34 30 20 49 4E 50 : PRINT..340 INP
0147A0: 55 54 20 22 44 4F 45 53 20 54 48 45 20 45 4E 45 UT "DOES THE ENE
0147B0: 4D 59 20 48 41 56 45 20 47 55 4E 53 28 31 29 2C MY HAVE GUNS(1),
0147C0: 20 4D 49 53 53 49 4C 45 53 28 32 29 2C 20 4F 52 MISSILES(2), OR
0147D0: 20 42 4F 54 48 28 33 29 22 3B 52 0D 0A 33 34 35 BOTH(3)";R..345
0147E0: 20 49 46 20 52 3E 30 20 41 4E 44 20 52 3C 34 20 IF R>0 AND R<4
0147F0: 54 48 45 4E 20 33 35 30 0D 0A 33 34 37 20 50 52 THEN 350..347 PR
014800: 49 4E 54 20 22 54 52 59 20 41 47 41 49 4E 2E 2E INT "TRY AGAIN..
014810: 2E 22 20 3A 20 47 4F 54 4F 20 33 34 30 0D 0A 33 ." : GOTO 340..3
014820: 35 30 20 50 52 49 4E 54 20 3A 20 54 3D 30 20 3A 50 PRINT : T=0 :
014830: 20 49 46 20 52 3D 32 20 54 48 45 4E 20 33 36 30 IF R=2 THEN 360
014840: 0D 0A 33 35 35 20 49 4E 50 55 54 20 22 57 48 41 ..355 INPUT "WHA
014850: 54 27 53 20 54 48 45 20 50 45 52 43 45 4E 54 20 T'S THE PERCENT
014860: 48 49 54 20 52 41 54 45 20 4F 46 20 45 4E 45 4D HIT RATE OF ENEM
014870: 59 20 47 55 4E 4E 45 52 53 20 28 31 30 20 54 4F Y GUNNERS (10 TO
014880: 20 35 30 29 22 3B 53 0D 0A 33 35 37 20 49 46 20 50)";S..357 IF
014890: 53 3C 31 30 20 54 48 45 4E 20 50 52 49 4E 54 20 S<10 THEN PRINT
0148A0: 22 59 4F 55 20 4C 49 45 2C 20 42 55 54 20 59 4F "YOU LIE, BUT YO
0148B0: 55 27 4C 4C 20 50 41 59 2E 2E 2E 22 3A 20 47 4F U'LL PAY...": GO
0148C0: 54 4F 20 33 38 30 0D 0A 33 35 38 20 50 52 49 4E TO 380..358 PRIN
0148D0: 54 0D 0A 33 36 30 20 50 52 49 4E 54 20 3A 20 49 T..360 PRINT : I
0148E0: 46 20 52 3E 31 20 54 48 45 4E 20 54 3D 33 35 0D F R>1 THEN T=35.
0148F0: 0A 33 36 35 20 49 46 20 53 2B 54 3E 31 30 30 2A .365 IF S+T>100*
014900: 38 20 50 52 49 4E 54 20 22 59 4F 55 20 41 52 45 8 PRINT "YOU ARE
014910: 20 41 20 50 49 4C 4F 54 20 49 4E 20 41 20 57 4F A PILOT IN A WO
014920: 52 4C 44 20 57 41 52 20 49 49 20 42 4F 4D 42 45 RLD WAR II BOMBE
014930: 52 2E 22 0D 0A 31 30 20 49 4E 50 55 54 20 22 57 R."..10 INPUT "W
014940: 48 41 54 20 53 49 44 45 20 2D 2D 20 49 54 41 4C HAT SIDE -- ITAL
014950: 59 28 31 29 2C 20 41 4C 4C 49 45 53 28 32 29 2C Y(1), ALLIES(2),
014960: 20 4A 41 50 41 4E 28 33 29 2C 20 47 45 52 4D 41 JAPAN(3), GERMA
014970: 4E 59 28 34 29 22 3B 41 0D 0A 32 30 20 49 46 20 NY(4)";A..20 IF
014980: 41 3E 30 20 41 4E 44 20 41 3C 35 20 54 48 45 4E A>0 AND A<5 THEN
014990: 20 32 35 0D 0A 32 32 20 50 52 49 4E 54 20 22 54 25..22 PRINT "T
0149A0: 52 59 20 41 47 41 49 4E 2E 2E 2E 22 20 3A 20 47 RY AGAIN..." : G
0149B0: 4F 54 4F 20 31 30 0D 0A 32 35 20 4F 4E 20 41 20 OTO 10..25 ON A
0149C0: 47 4F 54 4F 20 33 30 2C 20 31 31 30 2C 20 32 30 GOTO 30, 110, 20
0149D0: 30 2C 20 32 32 30 0D 0A 33 30 20 49 4E 50 55 54 0, 220..30 INPUT
0149E0: 20 22 59 4F 55 52 20 54 41 52 47 45 54 20 2D 2D "YOUR TARGET --
0149F0: 20 41 4C 42 41 4E 49 41 28 31 29 2C 20 47 52 45 ALBANIA(1), GRE
014A00: 45 43 45 28 32 29 2C 20 4E 4F 52 54 48 20 41 46 ECE(2), NORTH AF
014A10: 52 49 43 41 28 33 29 22 3B 42 0D 0A 34 30 20 49 RICA(3)";B..40 I
014A20: 46 20 42 3E 30 20 41 4E 44 20 42 3C 34 20 54 48 F B>0 AND B<4 TH
014A30: 45 4E 20 34 35 0D 0A 34 32 20 50 52 49 4E 54 20 EN 45..42 PRINT
014A40: 22 54 52 59 20 41 47 41 49 4E 2E 2E 2E 22 20 3A "TRY AGAIN..." :
014A50: 20 47 4F 54 4F 20 33 30 0D 0A 34 35 20 50 52 49 GOTO 30..45 PRI
014A60: 4E 54 20 3A 20 4F 4E 20 42 20 47 4F 54 4F 20 35 NT : ON B GOTO 5
014A70: 30 2C 20 38 30 2C 39 30 0D 0A 35 30 20 50 52 49 0, 80,90..50 PRI
014A80: 4E 54 20 22 53 48 4F 55 4C 44 20 42 45 20 45 41 NT "SHOULD BE EA
014A90: 53 59 20 2D 2D 20 59 4F 55 27 52 45 20 46 4C 59 SY -- YOU'RE FLY
014AA0: 49 4E 47 20 41 20 4E 41 5A 49 2D 4D 41 44 45 20 ING A NAZI-MADE
014AB0: 50 4C 41 4E 45 2E 22 0D 0A 36 30 20 47 4F 54 4F PLANE."..60 GOTO
014AC0: 20 32 38 30 0D 0A 38 30 20 50 52 49 4E 54 20 22 280..80 PRINT "
014AD0: 42 45 20 43 41 52 45 46 55 4C 21 21 21 22 20 3A BE CAREFUL!!!" :
014AE0: 20 47 4F 54 4F 20 32 38 30 0D 0A 39 30 20 50 52 GOTO 280..90 PR
014AF0: 49 4E 54 20 22 59 4F 55 27 52 45 20 47 4F 49 4E INT "YOU'RE GOIN
014B00: 52 4E 44 28 31 29 20 54 48 45 4E 20 33 38 30 0D RND(1) THEN 380.
014B10: 0A 33 37 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .370 PRINT "YOU
014B20: 4D 41 44 45 20 49 54 20 54 48 52 4F 55 47 48 20 MADE IT THROUGH
014B30: 54 52 45 4D 45 4E 44 4F 55 53 20 46 4C 41 4B 21 TREMENDOUS FLAK!
014B40: 21 22 20 3A 20 47 4F 54 4F 20 33 39 30 0D 0A 33 !" : GOTO 390..3
014B50: 38 30 20 50 52 49 4E 54 20 22 2A 20 2A 20 2A 20 80 PRINT "* * *
014B60: 2A 20 42 4F 4F 4D 20 2A 20 2A 20 2A 20 2A 22 0D * BOOM * * * *".
014B70: 0A 33 38 34 20 50 52 49 4E 54 20 22 59 4F 55 20 .384 PRINT "YOU
014B80: 48 41 56 45 20 42 45 45 4E 20 53 48 4F 54 20 44 HAVE BEEN SHOT D
014B90: 4F 57 4E 2E 2E 2E 2E 2E 22 0D 0A 33 38 36 20 50 OWN....."..386 P
014BA0: 52 49 4E 54 20 22 44 45 41 52 4C 59 20 42 45 4C RINT "DEARLY BEL
014BB0: 4F 56 45 44 2C 20 57 45 20 41 52 45 20 47 41 54 OVED, WE ARE GAT
014BC0: 48 45 52 45 44 20 48 45 52 45 20 54 4F 44 41 59 HERED HERE TODAY
014BD0: 20 54 4F 20 50 41 59 20 4F 55 52 22 0D 0A 33 38 TO PAY OUR"..38
014BE0: 37 20 50 52 49 4E 54 20 22 4C 41 53 54 20 54 52 7 PRINT "LAST TR
014BF0: 49 42 55 54 45 2E 2E 2E 22 0D 0A 33 39 30 20 50 IBUTE..."..390 P
014C00: 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 RINT:PRINT:PRINT
014C10: 3A 49 4E 50 55 54 20 22 41 4E 4F 54 48 45 52 20 :INPUT "ANOTHER
014C20: 4D 49 53 53 49 4F 4E 20 28 59 20 4F 52 20 4E 29 MISSION (Y OR N)
014C30: 22 3B 55 24 0D 0A 33 39 35 20 49 46 20 55 24 3D ";U$..395 IF U$=
014C40: 22 59 22 20 54 48 45 4E 20 38 0D 0A 34 30 30 20 "Y" THEN 8..400
014C50: 50 52 49 4E 54 20 22 43 48 49 43 4B 45 4E 20 21 PRINT "CHICKEN !
014C60: 21 21 22 20 3A 20 50 52 49 4E 54 20 3A 20 45 4E !!" : PRINT : EN
014C70: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
014C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
014D00: 47 20 46 4F 52 20 54 48 45 20 4F 49 4C 2C 20 45 G FOR THE OIL, E
014D10: 48 3F 22 20 3A 20 47 4F 54 4F 20 32 38 30 0D 0A H?" : GOTO 280..
014D20: 31 31 30 20 49 4E 50 55 54 20 22 41 49 52 43 52 110 INPUT "AIRCR
014D30: 41 46 54 20 2D 2D 20 4C 49 42 45 52 41 54 4F 52 AFT -- LIBERATOR
014D40: 28 31 29 2C 20 42 2D 32 39 28 32 29 2C 20 42 2D (1), B-29(2), B-
014D50: 31 37 28 33 29 2C 20 4C 41 4E 43 41 53 54 45 52 17(3), LANCASTER
014D60: 28 34 29 22 3B 47 0D 0A 31 32 30 20 49 46 20 47 (4)";G..120 IF G
014D70: 3E 30 20 41 4E 44 20 47 3C 35 20 54 48 45 4E 20 >0 AND G<5 THEN
014D80: 31 32 35 0D 0A 31 32 32 20 50 52 49 4E 54 20 22 125..122 PRINT "
014D90: 54 52 59 20 41 47 41 49 4E 2E 2E 2E 22 20 3A 20 TRY AGAIN..." :
014DA0: 47 4F 54 4F 20 31 31 30 0D 0A 31 32 35 20 50 52 GOTO 110..125 PR
014DB0: 49 4E 54 20 3A 20 4F 4E 20 47 20 47 4F 54 4F 20 INT : ON G GOTO
014DC0: 31 33 30 2C 20 31 35 30 2C 20 31 37 30 2C 20 31 130, 150, 170, 1
014DD0: 39 30 0D 0A 31 33 30 20 50 52 49 4E 54 20 22 59 90..130 PRINT "Y
014DE0: 4F 55 27 56 45 20 47 4F 54 20 32 20 54 4F 4E 53 OU'VE GOT 2 TONS
014DF0: 20 4F 46 20 42 4F 4D 42 53 20 46 4C 59 49 4E 47 OF BOMBS FLYING
014E00: 20 46 4F 52 20 50 4C 4F 45 53 54 49 2E 22 20 3A FOR PLOESTI." :
014E10: 20 47 4F 54 4F 20 32 38 30 0D 0A 31 35 30 20 50 GOTO 280..150 P
014E20: 52 49 4E 54 20 22 59 4F 55 27 52 45 20 44 55 4D RINT "YOU'RE DUM
014E30: 50 49 4E 47 20 54 48 45 20 41 2D 42 4F 4D 42 20 PING THE A-BOMB
014E40: 4F 4E 20 48 49 52 4F 53 48 49 4D 41 2E 22 20 3A ON HIROSHIMA." :
014E50: 20 47 4F 54 4F 20 32 38 30 0D 0A 31 37 30 20 50 GOTO 280..170 P
014E60: 52 49 4E 54 20 22 59 4F 55 27 52 45 20 43 48 41 RINT "YOU'RE CHA
014E70: 53 49 4E 47 20 54 48 45 20 42 49 53 4D 41 52 4B SING THE BISMARK
014E80: 20 49 4E 20 54 48 45 20 4E 4F 52 54 48 20 53 45 IN THE NORTH SE
014E90: 41 2E 22 20 3A 20 47 4F 54 4F 20 32 38 30 0D 0A A." : GOTO 280..
014EA0: 31 39 30 20 50 52 49 4E 54 20 22 59 4F 55 27 52 190 PRINT "YOU'R
014EB0: 45 20 42 55 53 54 49 4E 47 20 41 20 47 45 52 4D E BUSTING A GERM
014EC0: 41 4E 20 48 45 41 56 59 20 57 41 54 45 52 20 50 AN HEAVY WATER P
014ED0: 4C 41 4E 54 20 49 4E 20 54 48 45 20 52 55 48 52 LANT IN THE RUHR
014EE0: 2E 22 0D 0A 31 39 35 20 47 4F 54 4F 20 32 38 30 ."..195 GOTO 280
014EF0: 0D 0A 32 30 30 20 50 52 49 4E 54 20 22 59 4F 55 ..200 PRINT "YOU
014F00: 32 20 50 52 49 4E 54 20 54 41 42 28 32 36 29 20 2 PRINT TAB(26)
014F10: 22 43 49 56 49 4C 20 57 41 52 22 0D 0A 34 20 50 "CIVIL WAR"..4 P
014F20: 52 49 4E 54 20 54 41 42 28 31 35 29 20 22 43 52 RINT TAB(15) "CR
014F30: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
014F40: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
014F50: 57 20 4A 45 52 53 45 59 22 0D 0A 36 20 50 52 49 W JERSEY"..6 PRI
014F60: 4E 54 20 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 NT : PRINT : PRI
014F70: 4E 54 0D 0A 32 30 20 52 45 4D 20 4F 52 49 47 49 NT..20 REM ORIGI
014F80: 4E 41 4C 20 47 41 4D 45 20 44 45 53 49 47 4E 3A NAL GAME DESIGN:
014F90: 20 43 52 41 4D 2C 20 47 4F 4F 44 49 45 2C 20 48 CRAM, GOODIE, H
014FA0: 49 42 42 41 52 44 20 4C 45 58 49 4E 47 54 4F 4E IBBARD LEXINGTON
014FB0: 20 48 2E 53 2E 0D 0A 33 30 20 52 45 4D 20 4D 4F H.S...30 REM MO
014FC0: 44 49 46 49 43 41 54 49 4F 4E 53 3A 20 47 2E 20 DIFICATIONS: G.
014FD0: 50 41 55 4C 2C 20 52 2E 20 48 45 53 53 20 28 54 PAUL, R. HESS (T
014FE0: 49 45 53 29 2C 20 31 39 37 33 0D 0A 35 30 20 20 IES), 1973..50
014FF0: 44 49 4D 20 53 28 34 29 2C 43 24 28 31 34 29 2C DIM S(4),C$(14),
015000: 4D 31 28 31 34 29 2C 4D 32 28 31 34 29 2C 43 31 M1(14),M2(14),C1
015010: 28 31 34 29 2C 43 32 28 31 34 29 2C 4D 28 31 34 (14),C2(14),M(14
015020: 29 0D 0A 36 30 20 20 52 45 4D 20 55 4E 49 4F 4E )..60 REM UNION
015030: 20 49 4E 46 4F 20 4F 4E 20 4C 49 4B 45 4C 59 20 INFO ON LIKELY
015040: 43 4F 4E 46 45 44 45 52 41 54 45 20 53 54 52 41 CONFEDERATE STRA
015050: 54 45 47 59 0D 0A 37 30 20 20 53 28 31 29 3D 32 TEGY..70 S(1)=2
015060: 35 20 3A 20 53 28 32 29 3D 32 35 20 3A 20 53 28 5 : S(2)=25 : S(
015070: 33 29 3D 32 35 20 3A 20 53 28 34 29 3D 32 35 0D 3)=25 : S(4)=25.
015080: 0A 38 32 20 20 52 45 4D 20 52 45 41 44 20 48 49 .82 REM READ HI
015090: 53 54 4F 52 49 43 41 4C 20 44 41 54 41 2E 0D 0A STORICAL DATA...
0150A0: 38 34 20 20 46 4F 52 20 44 3D 31 20 54 4F 20 31 84 FOR D=1 TO 1
0150B0: 34 0D 0A 38 36 20 20 52 45 41 44 20 43 24 28 44 4..86 READ C$(D
0150C0: 29 2C 4D 31 28 44 29 2C 4D 32 28 44 29 2C 43 31 ),M1(D),M2(D),C1
0150D0: 28 44 29 2C 43 32 28 44 29 2C 4D 28 44 29 0D 0A (D),C2(D),M(D)..
0150E0: 38 38 20 20 4E 45 58 54 20 44 0D 0A 38 39 20 20 88 NEXT D..89
0150F0: 4C 45 54 20 44 3D 52 4E 44 28 2D 31 29 0D 0A 39 LET D=RND(-1)..9
015100: 27 52 45 20 46 4C 59 49 4E 47 20 41 20 4B 41 4D 'RE FLYING A KAM
015110: 49 4B 41 5A 45 20 4D 49 53 53 49 4F 4E 20 4F 56 IKAZE MISSION OV
015120: 45 52 20 54 48 45 20 55 53 53 20 4C 45 58 49 4E ER THE USS LEXIN
015130: 47 54 4F 4E 2E 22 0D 0A 32 30 35 20 49 4E 50 55 GTON."..205 INPU
015140: 54 20 22 59 4F 55 52 20 46 49 52 53 54 20 4B 41 T "YOUR FIRST KA
015150: 4D 49 4B 41 5A 45 20 4D 49 53 53 49 4F 4E 28 59 MIKAZE MISSION(Y
015160: 20 4F 52 20 4E 29 22 3B 46 24 0D 0A 32 30 37 20 OR N)";F$..207
015170: 49 46 20 46 24 3D 22 4E 22 20 54 48 45 4E 20 53 IF F$="N" THEN S
015180: 3D 30 20 3A 20 47 4F 54 4F 20 33 35 38 0D 0A 32 =0 : GOTO 358..2
015190: 31 30 20 50 52 49 4E 54 20 3A 20 49 46 20 52 4E 10 PRINT : IF RN
0151A0: 44 28 31 29 3E 2E 36 35 20 54 48 45 4E 20 33 32 D(1)>.65 THEN 32
0151B0: 35 0D 0A 32 31 35 20 47 4F 54 4F 20 33 38 30 0D 5..215 GOTO 380.
0151C0: 0A 32 32 30 20 50 52 49 4E 54 20 22 41 20 4E 41 .220 PRINT "A NA
0151D0: 5A 49 2C 20 45 48 3F 20 20 4F 48 20 57 45 4C 4C ZI, EH? OH WELL
0151E0: 2E 20 20 41 52 45 20 59 4F 55 20 47 4F 49 4E 47 . ARE YOU GOING
0151F0: 20 46 4F 52 20 52 55 53 53 49 41 28 31 29 2C 22 FOR RUSSIA(1),"
015200: 0D 0A 32 33 30 20 49 4E 50 55 54 20 22 45 4E 47 ..230 INPUT "ENG
015210: 4C 41 4E 44 28 32 29 2C 20 4F 52 20 46 52 41 4E LAND(2), OR FRAN
015220: 43 45 28 33 29 22 3B 4D 20 3A 20 49 46 20 4D 3E CE(3)";M : IF M>
015230: 30 20 41 4E 44 20 4D 3C 34 20 54 48 45 4E 20 32 0 AND M<4 THEN 2
015240: 33 35 0D 0A 32 33 32 20 50 52 49 4E 54 20 22 54 35..232 PRINT "T
015250: 52 59 20 41 47 41 49 4E 2E 2E 2E 22 20 3A 20 47 RY AGAIN..." : G
015260: 4F 54 4F 20 32 32 30 0D 0A 32 33 35 20 50 52 49 OTO 220..235 PRI
015270: 4E 54 20 3A 20 4F 4E 20 4D 20 47 4F 54 4F 20 32 NT : ON M GOTO 2
015280: 35 30 2C 20 32 36 30 2C 20 32 37 30 0D 0A 32 35 50, 260, 270..25
015290: 30 20 50 52 49 4E 54 20 22 59 4F 55 27 52 45 20 0 PRINT "YOU'RE
0152A0: 4E 45 41 52 49 4E 47 20 53 54 41 4C 49 4E 47 52 NEARING STALINGR
0152B0: 41 44 2E 22 20 3A 20 47 4F 54 4F 20 32 38 30 0D AD." : GOTO 280.
0152C0: 0A 32 36 30 20 50 52 49 4E 54 20 22 4E 45 41 52 .260 PRINT "NEAR
0152D0: 49 4E 47 20 4C 4F 4E 44 4F 4E 2E 20 20 42 45 20 ING LONDON. BE
0152E0: 43 41 52 45 46 55 4C 2C 20 54 48 45 59 27 56 45 CAREFUL, THEY'VE
0152F0: 20 47 4F 54 20 52 41 44 41 52 2E 22 20 3A 20 47 GOT RADAR." : G
015300: 30 20 20 50 52 49 4E 54 0D 0A 31 30 30 20 20 50 0 PRINT..100 P
015310: 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E RINT "DO YOU WAN
015320: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 3B T INSTRUCTIONS";
015330: 0D 0A 31 31 30 20 20 49 4E 50 55 54 20 58 24 0D ..110 INPUT X$.
015340: 0A 31 32 30 20 20 49 46 20 58 24 3D 22 59 45 53 .120 IF X$="YES
015350: 22 20 54 48 45 4E 20 31 36 30 0D 0A 31 33 30 20 " THEN 160..130
015360: 20 49 46 20 58 24 3D 22 4E 4F 22 20 54 48 45 4E IF X$="NO" THEN
015370: 20 33 37 30 0D 0A 31 34 30 20 20 50 52 49 4E 54 370..140 PRINT
015380: 20 22 59 45 53 20 4F 52 20 4E 4F 20 2D 2D 20 22 "YES OR NO -- "
015390: 3B 0D 0A 31 35 30 20 20 47 4F 54 4F 20 31 31 30 ;..150 GOTO 110
0153A0: 0D 0A 31 36 30 20 20 50 52 49 4E 54 20 3A 20 50 ..160 PRINT : P
0153B0: 52 49 4E 54 20 3A 20 50 52 49 4E 54 20 3A 20 50 RINT : PRINT : P
0153C0: 52 49 4E 54 0D 0A 31 37 30 20 20 50 52 49 4E 54 RINT..170 PRINT
0153D0: 20 22 54 48 49 53 20 49 53 20 41 20 43 49 56 49 "THIS IS A CIVI
0153E0: 4C 20 57 41 52 20 53 49 4D 55 4C 41 54 49 4F 4E L WAR SIMULATION
0153F0: 2E 22 0D 0A 31 38 30 20 20 50 52 49 4E 54 20 22 ."..180 PRINT "
015400: 54 4F 20 50 4C 41 59 20 54 59 50 45 20 41 20 52 TO PLAY TYPE A R
015410: 45 53 50 4F 4E 53 45 20 57 48 45 4E 20 54 48 45 ESPONSE WHEN THE
015420: 20 43 4F 4D 50 55 54 45 52 20 41 53 4B 53 2E 22 COMPUTER ASKS."
015430: 0D 0A 31 39 30 20 20 50 52 49 4E 54 20 22 52 45 ..190 PRINT "RE
015440: 4D 45 4D 42 45 52 20 54 48 41 54 20 41 4C 4C 20 MEMBER THAT ALL
015450: 46 41 43 54 4F 52 53 20 41 52 45 20 49 4E 54 45 FACTORS ARE INTE
015460: 52 52 45 4C 41 54 45 44 20 41 4E 44 20 54 48 41 RRELATED AND THA
015470: 54 20 59 4F 55 52 22 0D 0A 32 30 30 20 20 50 52 T YOUR"..200 PR
015480: 49 4E 54 20 22 52 45 53 50 4F 4E 53 45 53 20 43 INT "RESPONSES C
015490: 4F 55 4C 44 20 43 48 41 4E 47 45 20 48 49 53 54 OULD CHANGE HIST
0154A0: 4F 52 59 2E 20 46 41 43 54 53 20 41 4E 44 20 46 ORY. FACTS AND F
0154B0: 49 47 55 52 45 53 20 55 53 45 44 20 41 52 45 22 IGURES USED ARE"
0154C0: 0D 0A 32 31 30 20 20 50 52 49 4E 54 20 22 42 41 ..210 PRINT "BA
0154D0: 53 45 44 20 4F 4E 20 54 48 45 20 41 43 54 55 41 SED ON THE ACTUA
0154E0: 4C 20 4F 43 43 55 52 52 45 4E 43 45 2E 20 4D 4F L OCCURRENCE. MO
0154F0: 53 54 20 42 41 54 54 4C 45 53 20 54 45 4E 44 20 ST BATTLES TEND
015500: 4F 54 4F 20 32 38 30 0D 0A 32 37 30 20 50 52 49 OTO 280..270 PRI
015510: 4E 54 20 22 4E 45 41 52 49 4E 47 20 56 45 52 53 NT "NEARING VERS
015520: 41 49 4C 4C 45 53 2E 20 20 44 55 43 4B 20 53 4F AILLES. DUCK SO
015530: 55 50 2E 20 20 54 48 45 59 27 52 45 20 4E 45 41 UP. THEY'RE NEA
015540: 52 4C 59 20 44 45 46 45 4E 53 45 4C 45 53 53 2E RLY DEFENSELESS.
015550: 22 0D 0A 32 38 30 20 50 52 49 4E 54 0D 0A 32 38 "..280 PRINT..28
015560: 35 20 49 4E 50 55 54 20 22 48 4F 57 20 4D 41 4E 5 INPUT "HOW MAN
015570: 59 20 4D 49 53 53 49 4F 4E 53 20 48 41 56 45 20 Y MISSIONS HAVE
015580: 59 4F 55 20 46 4C 4F 57 4E 22 3B 44 0D 0A 32 39 YOU FLOWN";D..29
015590: 30 20 49 46 20 44 3C 31 36 30 20 54 48 45 4E 20 0 IF D<160 THEN
0155A0: 33 30 30 0D 0A 32 39 32 20 50 52 49 4E 54 20 22 300..292 PRINT "
0155B0: 4D 49 53 53 49 4F 4E 53 2C 20 4E 4F 54 20 4D 49 MISSIONS, NOT MI
0155C0: 4C 45 53 2E 2E 2E 22 20 0D 0A 32 39 35 20 50 52 LES..." ..295 PR
0155D0: 49 4E 54 20 22 31 35 30 20 4D 49 53 53 49 4F 4E INT "150 MISSION
0155E0: 53 20 49 53 20 48 49 47 48 20 45 56 45 4E 20 46 S IS HIGH EVEN F
0155F0: 4F 52 20 4F 4C 44 2D 54 49 4D 45 52 53 2E 22 0D OR OLD-TIMERS.".
015600: 0A 32 39 37 20 50 52 49 4E 54 20 22 4E 4F 57 20 .297 PRINT "NOW
015610: 54 48 45 4E 2C 20 22 3B 20 3A 20 47 4F 54 4F 20 THEN, "; : GOTO
015620: 32 38 35 0D 0A 33 30 30 20 50 52 49 4E 54 3A 49 285..300 PRINT:I
015630: 46 20 44 3C 31 30 30 20 54 48 45 4E 20 33 31 30 F D<100 THEN 310
015640: 0D 0A 33 30 35 20 50 52 49 4E 54 20 22 54 48 41 ..305 PRINT "THA
015650: 54 27 53 20 50 55 53 48 49 4E 47 20 54 48 45 20 T'S PUSHING THE
015660: 4F 44 44 53 21 22 20 3A 20 47 4F 54 4F 20 33 32 ODDS!" : GOTO 32
015670: 30 0D 0A 33 31 30 20 49 46 20 44 3C 32 35 20 54 0..310 IF D<25 T
015680: 48 45 4E 20 50 52 49 4E 54 20 22 46 52 45 53 48 HEN PRINT "FRESH
015690: 20 4F 55 54 20 4F 46 20 54 52 41 49 4E 49 4E 47 OUT OF TRAINING
0156A0: 2C 20 45 48 3F 22 0D 0A 33 32 30 20 50 52 49 4E , EH?"..320 PRIN
0156B0: 54 20 3A 20 49 46 20 44 3C 31 36 30 2A 52 4E 44 T : IF D<160*RND
0156C0: 28 31 29 20 54 48 45 4E 20 33 33 30 0D 0A 33 32 (1) THEN 330..32
0156D0: 35 20 50 52 49 4E 54 20 22 44 49 52 45 43 54 20 5 PRINT "DIRECT
0156E0: 48 49 54 21 21 21 21 20 22 49 4E 54 28 31 30 30 HIT!!!! "INT(100
0156F0: 2A 52 4E 44 28 31 29 29 22 4B 49 4C 4C 45 44 2E *RND(1))"KILLED.
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 00 00 02 09 52 E5 12 00 C1 02 00 00 00 02 ......R.........
015720: 12 00 C6 02 00 00 00 02 12 00 C2 02 00 00 00 02 ................
015730: 12 00 C7 02 00 00 00 02 12 00 C3 02 00 00 00 02 ................
015740: 12 00 C8 02 00 00 00 02 12 00 C4 02 00 00 00 02 ................
015750: 12 00 C9 02 00 00 00 02 12 00 C5 02 00 00 00 02 ................
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: 54 4F 20 52 45 53 55 4C 54 22 0D 0A 32 32 30 20 TO RESULT"..220
015810: 20 50 52 49 4E 54 20 22 41 53 20 54 48 45 59 20 PRINT "AS THEY
015820: 44 49 44 20 49 4E 20 54 48 45 20 43 49 56 49 4C DID IN THE CIVIL
015830: 20 57 41 52 2C 20 42 55 54 20 49 54 20 41 4C 4C WAR, BUT IT ALL
015840: 20 44 45 50 45 4E 44 53 20 4F 4E 20 59 4F 55 21 DEPENDS ON YOU!
015850: 21 22 0D 0A 32 33 30 20 20 50 52 49 4E 54 0D 0A !"..230 PRINT..
015860: 32 34 30 20 20 50 52 49 4E 54 20 22 54 48 45 20 240 PRINT "THE
015870: 4F 42 4A 45 43 54 20 4F 46 20 54 48 45 20 47 41 OBJECT OF THE GA
015880: 4D 45 20 49 53 20 54 4F 20 57 49 4E 20 41 53 20 ME IS TO WIN AS
015890: 4D 41 4E 59 20 42 41 54 54 4C 45 53 20 41 53 20 MANY BATTLES AS
0158A0: 22 3B 0D 0A 32 34 35 20 20 50 52 49 4E 54 20 22 ";..245 PRINT "
0158B0: 50 4F 53 53 49 42 4C 45 2E 22 0D 0A 32 35 30 20 POSSIBLE."..250
0158C0: 20 50 52 49 4E 54 0D 0A 32 36 30 20 20 50 52 49 PRINT..260 PRI
0158D0: 4E 54 20 22 59 4F 55 52 20 43 48 4F 49 43 45 53 NT "YOUR CHOICES
0158E0: 20 46 4F 52 20 44 45 46 45 4E 53 49 56 45 20 53 FOR DEFENSIVE S
0158F0: 54 52 41 54 45 47 59 20 41 52 45 3A 22 0D 0A 32 TRATEGY ARE:"..2
015900: 37 30 20 20 50 52 49 4E 54 20 22 20 20 20 20 20 70 PRINT "
015910: 20 20 20 28 31 29 20 41 52 54 49 4C 4C 45 52 59 (1) ARTILLERY
015920: 20 41 54 54 41 43 4B 22 0D 0A 32 38 30 20 20 50 ATTACK"..280 P
015930: 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 28 32 RINT " (2
015940: 29 20 46 4F 52 54 49 46 49 43 41 54 49 4F 4E 20 ) FORTIFICATION
015950: 41 47 41 49 4E 53 54 20 46 52 4F 4E 54 41 4C 20 AGAINST FRONTAL
015960: 41 54 54 41 43 4B 22 0D 0A 32 39 30 20 20 50 52 ATTACK"..290 PR
015970: 49 4E 54 20 22 20 20 20 20 20 20 20 20 28 33 29 INT " (3)
015980: 20 46 4F 52 54 49 46 49 43 41 54 49 4F 4E 20 41 FORTIFICATION A
015990: 47 41 49 4E 53 54 20 46 4C 41 4E 4B 49 4E 47 20 GAINST FLANKING
0159A0: 4D 41 4E 45 55 56 45 52 53 22 0D 0A 33 30 30 20 MANEUVERS"..300
0159B0: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
0159C0: 28 34 29 20 46 41 4C 4C 49 4E 47 20 42 41 43 4B (4) FALLING BACK
0159D0: 22 0D 0A 33 31 30 20 20 50 52 49 4E 54 20 22 20 "..310 PRINT "
0159E0: 59 4F 55 52 20 43 48 4F 49 43 45 53 20 46 4F 52 YOUR CHOICES FOR
0159F0: 20 4F 46 46 45 4E 53 49 56 45 20 53 54 52 41 54 OFFENSIVE STRAT
015A00: 4E 54 20 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 NT : PRINT : PRI
015A10: 4E 54 0D 0A 31 31 30 30 20 20 50 52 49 4E 54 20 NT..1100 PRINT
015A20: 22 54 48 49 53 20 49 53 20 54 48 45 20 42 41 54 "THIS IS THE BAT
015A30: 54 4C 45 20 4F 46 20 22 3B 43 24 0D 0A 31 31 31 TLE OF ";C$..111
015A40: 30 20 20 49 46 20 58 24 3D 22 4E 4F 22 20 54 48 0 IF X$="NO" TH
015A50: 45 4E 20 31 31 35 30 0D 0A 31 31 32 30 20 20 49 EN 1150..1120 I
015A60: 46 20 41 3E 31 31 20 54 48 45 4E 20 31 31 33 30 F A>11 THEN 1130
015A70: 0D 0A 31 31 32 35 20 20 4F 4E 20 41 20 47 4F 54 ..1125 ON A GOT
015A80: 4F 20 33 35 38 30 2C 33 36 32 30 2C 33 36 35 30 O 3580,3620,3650
015A90: 2C 33 36 39 30 2C 33 37 32 30 2C 33 37 35 30 2C ,3690,3720,3750,
015AA0: 33 37 38 30 2C 33 38 30 30 2C 33 38 33 30 2C 33 3780,3800,3830,3
015AB0: 38 36 30 2C 33 38 39 30 0D 0A 31 31 33 30 20 20 860,3890..1130
015AC0: 4F 4E 20 41 2D 31 31 20 47 4F 54 4F 20 33 39 32 ON A-11 GOTO 392
015AD0: 30 2C 33 39 35 30 2C 33 39 38 30 0D 0A 31 31 34 0,3950,3980..114
015AE0: 30 20 20 50 52 49 4E 54 20 43 24 22 20 49 4E 53 0 PRINT C$" INS
015AF0: 54 41 4E 54 20 52 45 50 4C 41 59 22 0D 0A 31 31 TANT REPLAY"..11
015B00: 35 30 20 20 50 52 49 4E 54 0D 0A 31 31 36 30 20 50 PRINT..1160
015B10: 20 50 52 49 4E 54 20 22 20 22 2C 22 43 4F 4E 46 PRINT " ","CONF
015B20: 45 44 45 52 41 43 59 22 2C 22 20 55 4E 49 4F 4E EDERACY"," UNION
015B30: 22 0D 0A 31 31 37 30 20 20 50 52 49 4E 54 20 22 "..1170 PRINT "
015B40: 4D 45 4E 22 2C 22 20 22 4D 35 2C 22 20 22 4D 36 MEN"," "M5," "M6
015B50: 0D 0A 31 31 38 30 20 20 50 52 49 4E 54 20 22 4D ..1180 PRINT "M
015B60: 4F 4E 45 59 22 2C 22 24 22 3B 44 28 31 29 2C 22 ONEY","$";D(1),"
015B70: 24 22 3B 44 28 32 29 0D 0A 31 31 39 30 20 20 50 $";D(2)..1190 P
015B80: 52 49 4E 54 20 22 49 4E 46 4C 41 54 49 4F 4E 22 RINT "INFLATION"
015B90: 2C 22 20 22 3B 49 31 2B 31 35 3B 22 25 22 2C 22 ," ";I1+15;"%","
015BA0: 20 22 3B 49 32 3B 22 25 22 0D 0A 31 31 39 35 20 ";I2;"%"..1195
015BB0: 20 50 52 49 4E 54 0D 0A 31 32 30 30 20 20 52 45 PRINT..1200 RE
015BC0: 4D 20 2D 20 4F 4E 4C 59 20 49 4E 20 50 52 49 4E M - ONLY IN PRIN
015BD0: 54 4F 55 54 20 49 53 20 43 4F 4E 46 45 44 20 49 TOUT IS CONFED I
015BE0: 4E 46 4C 41 54 49 4F 4E 20 3D 20 49 31 2B 31 35 NFLATION = I1+15
015BF0: 25 0D 0A 31 32 31 30 20 20 52 45 4D 20 2D 20 49 %..1210 REM - I
015C00: 45 47 59 20 41 52 45 3A 22 0D 0A 33 32 30 20 20 EGY ARE:"..320
015C10: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 28 PRINT " (
015C20: 31 29 20 41 52 54 49 4C 4C 45 52 59 20 41 54 54 1) ARTILLERY ATT
015C30: 41 43 4B 22 0D 0A 33 33 30 20 20 50 52 49 4E 54 ACK"..330 PRINT
015C40: 20 22 20 20 20 20 20 20 20 20 28 32 29 20 46 52 " (2) FR
015C50: 4F 4E 54 41 4C 20 41 54 54 41 43 4B 22 0D 0A 33 ONTAL ATTACK"..3
015C60: 34 30 20 20 50 52 49 4E 54 20 22 20 20 20 20 20 40 PRINT "
015C70: 20 20 20 28 33 29 20 46 4C 41 4E 4B 49 4E 47 20 (3) FLANKING
015C80: 4D 41 4E 45 55 56 45 52 53 22 0D 0A 33 35 30 20 MANEUVERS"..350
015C90: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
015CA0: 28 34 29 20 45 4E 43 49 52 43 4C 45 4D 45 4E 54 (4) ENCIRCLEMENT
015CB0: 22 0D 0A 33 36 30 20 20 50 52 49 4E 54 20 22 59 "..360 PRINT "Y
015CC0: 4F 55 20 4D 41 59 20 53 55 52 52 45 4E 44 45 52 OU MAY SURRENDER
015CD0: 20 42 59 20 54 59 50 49 4E 47 20 41 20 27 35 27 BY TYPING A '5'
015CE0: 20 46 4F 52 20 59 4F 55 52 20 53 54 52 41 54 45 FOR YOUR STRATE
015CF0: 47 59 2E 22 0D 0A 33 37 30 20 20 50 52 49 4E 54 GY."..370 PRINT
015D00: 20 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 : PRINT : PRINT
015D10: 20 3A 20 50 52 49 4E 54 20 22 41 52 45 20 54 48 : PRINT "ARE TH
015D20: 45 52 45 20 54 57 4F 20 47 45 4E 45 52 41 4C 53 ERE TWO GENERALS
015D30: 20 50 52 45 53 45 4E 54 20 22 3B 0D 0A 33 38 30 PRESENT ";..380
015D40: 20 20 50 52 49 4E 54 20 22 28 41 4E 53 57 45 52 PRINT "(ANSWER
015D50: 20 59 45 53 20 4F 52 20 4E 4F 29 22 3B 0D 0A 33 YES OR NO)";..3
015D60: 39 30 20 20 49 4E 50 55 54 20 42 24 0D 0A 34 30 90 INPUT B$..40
015D70: 30 20 20 49 46 20 42 24 3D 22 59 45 53 22 20 54 0 IF B$="YES" T
015D80: 48 45 4E 20 34 33 30 0D 0A 34 31 30 20 20 49 46 HEN 430..410 IF
015D90: 20 42 24 20 3C 3E 20 22 4E 4F 22 20 54 48 45 4E B$ <> "NO" THEN
015DA0: 20 33 38 30 0D 0A 34 32 30 20 20 50 52 49 4E 54 380..420 PRINT
015DB0: 20 3A 20 50 52 49 4E 54 20 22 59 4F 55 20 41 52 : PRINT "YOU AR
015DC0: 45 20 54 48 45 20 43 4F 4E 46 45 44 45 52 41 43 E THE CONFEDERAC
015DD0: 59 2E 20 20 20 47 4F 4F 44 20 4C 55 43 4B 21 22 Y. GOOD LUCK!"
015DE0: 0D 0A 34 32 35 20 20 50 52 49 4E 54 0D 0A 34 33 ..425 PRINT..43
015DF0: 30 20 20 4C 45 54 20 44 3D 31 0D 0A 34 34 30 20 0 LET D=1..440
015E00: 46 20 54 57 4F 20 47 45 4E 45 52 41 4C 53 2C 20 F TWO GENERALS,
015E10: 49 4E 50 55 54 20 43 4F 4E 46 45 44 2E 20 46 49 INPUT CONFED. FI
015E20: 52 53 54 0D 0A 31 32 32 30 20 20 46 4F 52 20 49 RST..1220 FOR I
015E30: 3D 31 20 54 4F 20 44 0D 0A 31 32 33 30 20 20 49 =1 TO D..1230 I
015E40: 46 20 42 24 20 3C 3E 20 22 59 45 53 22 20 54 48 F B$ <> "YES" TH
015E50: 45 4E 20 31 32 36 30 0D 0A 31 32 34 30 20 20 49 EN 1260..1240 I
015E60: 46 20 49 3D 32 20 54 48 45 4E 20 31 32 36 30 0D F I=2 THEN 1260.
015E70: 0A 31 32 35 30 20 20 50 52 49 4E 54 20 22 43 4F .1250 PRINT "CO
015E80: 4E 46 45 44 45 52 41 54 45 20 47 45 4E 45 52 41 NFEDERATE GENERA
015E90: 4C 2D 2D 2D 22 3B 0D 0A 31 32 36 30 20 20 50 52 L---";..1260 PR
015EA0: 49 4E 54 20 22 48 4F 57 20 4D 55 43 48 20 44 4F INT "HOW MUCH DO
015EB0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 50 45 YOU WISH TO SPE
015EC0: 4E 44 20 46 4F 52 22 0D 0A 31 32 37 30 20 20 50 ND FOR"..1270 P
015ED0: 52 49 4E 54 20 22 20 2D 20 46 4F 4F 44 2E 2E 2E RINT " - FOOD...
015EE0: 2E 2E 2E 22 3B 0D 0A 31 32 38 30 20 20 49 4E 50 ...";..1280 INP
015EF0: 55 54 20 46 0D 0A 31 32 39 30 20 20 49 46 20 46 UT F..1290 IF F
015F00: 20 3E 3D 20 30 20 54 48 45 4E 20 31 33 36 30 0D >= 0 THEN 1360.
015F10: 0A 31 33 30 30 20 20 49 46 20 52 31 20 3C 3E 20 .1300 IF R1 <>
015F20: 30 20 54 48 45 4E 20 31 33 33 30 0D 0A 31 33 31 0 THEN 1330..131
015F30: 30 20 20 50 52 49 4E 54 20 22 4E 4F 20 50 52 45 0 PRINT "NO PRE
015F40: 56 49 4F 55 53 20 45 4E 54 52 49 45 53 22 0D 0A VIOUS ENTRIES"..
015F50: 31 33 32 30 20 20 47 4F 54 4F 20 31 32 37 30 0D 1320 GOTO 1270.
015F60: 0A 31 33 33 30 20 20 50 52 49 4E 54 20 22 41 53 .1330 PRINT "AS
015F70: 53 55 4D 45 20 59 4F 55 20 57 41 4E 54 20 54 4F SUME YOU WANT TO
015F80: 20 4B 45 45 50 20 53 41 4D 45 20 41 4C 4C 4F 43 KEEP SAME ALLOC
015F90: 41 54 49 4F 4E 53 22 0D 0A 31 33 34 30 20 20 50 ATIONS"..1340 P
015FA0: 52 49 4E 54 0D 0A 31 33 35 30 20 20 47 4F 54 4F RINT..1350 GOTO
015FB0: 20 31 35 31 30 0D 0A 31 33 36 30 20 20 4C 45 54 1510..1360 LET
015FC0: 20 46 28 49 29 3D 46 0D 0A 31 33 37 30 20 20 50 F(I)=F..1370 P
015FD0: 52 49 4E 54 20 22 20 2D 20 53 41 4C 41 52 49 45 RINT " - SALARIE
015FE0: 53 2E 2E 22 3B 0D 0A 31 33 38 30 20 20 49 4E 50 S..";..1380 INP
015FF0: 55 54 20 48 28 49 29 0D 0A 31 33 39 30 20 20 4C UT H(I)..1390 L
016000: 20 49 46 20 42 24 20 3C 3E 20 22 59 45 53 22 20 IF B$ <> "YES"
016010: 54 48 45 4E 20 34 36 30 0D 0A 34 35 30 20 20 4C THEN 460..450 L
016020: 45 54 20 44 3D 32 0D 0A 34 36 30 20 20 50 52 49 ET D=2..460 PRI
016030: 4E 54 20 22 53 45 4C 45 43 54 20 41 20 42 41 54 NT "SELECT A BAT
016040: 54 4C 45 20 42 59 20 54 59 50 49 4E 47 20 41 20 TLE BY TYPING A
016050: 4E 55 4D 42 45 52 20 46 52 4F 4D 20 31 20 54 4F NUMBER FROM 1 TO
016060: 20 31 34 20 4F 4E 22 0D 0A 34 37 30 20 20 50 52 14 ON"..470 PR
016070: 49 4E 54 20 22 52 45 51 55 45 53 54 2E 20 20 54 INT "REQUEST. T
016080: 59 50 45 20 41 4E 59 20 4F 54 48 45 52 20 4E 55 YPE ANY OTHER NU
016090: 4D 42 45 52 20 54 4F 20 45 4E 44 20 54 48 45 20 MBER TO END THE
0160A0: 53 49 4D 55 4C 41 54 49 4F 4E 2E 22 0D 0A 34 38 SIMULATION."..48
0160B0: 30 20 20 50 52 49 4E 54 20 22 42 55 54 20 27 30 0 PRINT "BUT '0
0160C0: 27 20 42 52 49 4E 47 53 20 42 41 43 4B 20 45 58 ' BRINGS BACK EX
0160D0: 41 43 54 20 50 52 45 56 49 4F 55 53 20 42 41 54 ACT PREVIOUS BAT
0160E0: 54 4C 45 20 53 49 54 55 41 54 49 4F 4E 22 0D 0A TLE SITUATION"..
0160F0: 34 39 30 20 20 50 52 49 4E 54 20 22 41 4C 4C 4F 490 PRINT "ALLO
016100: 57 49 4E 47 20 59 4F 55 20 54 4F 20 52 45 50 4C WING YOU TO REPL
016110: 41 59 20 49 54 22 0D 0A 35 30 30 20 20 50 52 49 AY IT"..500 PRI
016120: 4E 54 0D 0A 35 31 30 20 20 50 52 49 4E 54 20 22 NT..510 PRINT "
016130: 4E 4F 54 45 3A 20 41 20 4E 45 47 41 54 49 56 45 NOTE: A NEGATIVE
016140: 20 46 4F 4F 44 24 20 45 4E 54 52 59 20 43 41 55 FOOD$ ENTRY CAU
016150: 53 45 53 20 54 48 45 20 50 52 4F 47 52 41 4D 20 SES THE PROGRAM
016160: 54 4F 20 22 0D 0A 35 32 30 20 20 50 52 49 4E 54 TO "..520 PRINT
016170: 20 22 55 53 45 20 54 48 45 20 45 4E 54 52 49 45 "USE THE ENTRIE
016180: 53 20 46 52 4F 4D 20 54 48 45 20 50 52 45 56 49 S FROM THE PREVI
016190: 4F 55 53 20 42 41 54 54 4C 45 22 0D 0A 35 33 30 OUS BATTLE"..530
0161A0: 20 20 50 52 49 4E 54 0D 0A 35 34 30 20 20 50 52 PRINT..540 PR
0161B0: 49 4E 54 20 22 41 46 54 45 52 20 52 45 51 55 45 INT "AFTER REQUE
0161C0: 53 54 49 4E 47 20 41 20 42 41 54 54 4C 45 2C 20 STING A BATTLE,
0161D0: 44 4F 20 59 4F 55 20 57 49 53 48 20 22 3B 0D 0A DO YOU WISH ";..
0161E0: 35 35 30 20 20 50 52 49 4E 54 20 22 42 41 54 54 550 PRINT "BATT
0161F0: 4C 45 20 44 45 53 43 52 49 50 54 49 4F 4E 53 20 LE DESCRIPTIONS
016200: 45 54 20 4E 3D 31 0D 0A 31 34 30 30 20 20 49 46 ET N=1..1400 IF
016210: 20 48 28 49 29 3C 30 20 54 48 45 4E 20 31 34 39 H(I)<0 THEN 149
016220: 30 0D 0A 31 34 31 30 20 20 50 52 49 4E 54 20 22 0..1410 PRINT "
016230: 20 2D 20 41 4D 4D 55 4E 49 54 49 4F 4E 22 3B 0D - AMMUNITION";.
016240: 0A 31 34 32 30 20 20 49 4E 50 55 54 20 42 28 49 .1420 INPUT B(I
016250: 29 0D 0A 31 34 33 30 20 20 4C 45 54 20 4E 3D 32 )..1430 LET N=2
016260: 0D 0A 31 34 34 30 20 20 49 46 20 42 28 49 29 3C ..1440 IF B(I)<
016270: 30 20 54 48 45 4E 20 31 34 39 30 0D 0A 31 34 35 0 THEN 1490..145
016280: 30 20 20 50 52 49 4E 54 0D 0A 31 34 36 30 20 20 0 PRINT..1460
016290: 49 46 20 46 28 49 29 2B 48 28 49 29 2B 42 28 49 IF F(I)+H(I)+B(I
0162A0: 29 20 3C 3D 20 44 28 49 29 20 54 48 45 4E 20 31 ) <= D(I) THEN 1
0162B0: 35 31 30 0D 0A 31 34 37 30 20 20 50 52 49 4E 54 510..1470 PRINT
0162C0: 20 22 54 48 49 4E 4B 20 41 47 41 49 4E 21 20 59 "THINK AGAIN! Y
0162D0: 4F 55 20 48 41 56 45 20 4F 4E 4C 59 20 24 22 44 OU HAVE ONLY $"D
0162E0: 28 49 29 0D 0A 31 34 38 30 20 20 47 4F 54 4F 20 (I)..1480 GOTO
0162F0: 31 32 37 30 0D 0A 31 34 39 30 20 20 50 52 49 4E 1270..1490 PRIN
016300: 54 20 22 4E 45 47 41 54 49 56 45 20 56 41 4C 55 T "NEGATIVE VALU
016310: 45 53 20 4E 4F 54 20 41 4C 4C 4F 57 45 44 2E 22 ES NOT ALLOWED."
016320: 0D 0A 31 35 30 30 20 20 4F 4E 20 4E 20 47 4F 54 ..1500 ON N GOT
016330: 4F 20 31 33 37 30 2C 31 34 31 30 0D 0A 31 35 31 O 1370,1410..151
016340: 30 20 20 49 46 20 42 24 20 3C 3E 20 22 59 45 53 0 IF B$ <> "YES
016350: 22 20 54 48 45 4E 20 31 35 35 30 0D 0A 31 35 32 " THEN 1550..152
016360: 30 20 20 49 46 20 49 3D 32 20 54 48 45 4E 20 31 0 IF I=2 THEN 1
016370: 35 35 30 0D 0A 31 35 33 30 20 20 50 52 49 4E 54 550..1530 PRINT
016380: 20 22 55 4E 49 4F 4E 20 47 45 4E 45 52 41 4C 2D "UNION GENERAL-
016390: 2D 2D 22 3B 0D 0A 31 35 34 30 20 20 4E 45 58 54 --";..1540 NEXT
0163A0: 20 49 0D 0A 31 35 35 30 20 20 46 4F 52 20 5A 3D I..1550 FOR Z=
0163B0: 31 20 54 4F 20 44 0D 0A 31 35 36 30 20 20 49 46 1 TO D..1560 IF
0163C0: 20 42 24 20 3C 3E 20 22 59 45 53 22 20 54 48 45 B$ <> "YES" THE
0163D0: 4E 20 31 36 32 30 0D 0A 31 35 37 30 20 20 4F 4E N 1620..1570 ON
0163E0: 20 5A 20 47 4F 54 4F 20 31 35 38 30 2C 31 36 30 Z GOTO 1580,160
0163F0: 30 0D 0A 31 35 38 30 20 20 50 52 49 4E 54 20 22 0..1580 PRINT "
016400: 22 3B 0D 0A 35 36 30 20 20 50 52 49 4E 54 20 22 ";..560 PRINT "
016410: 28 41 4E 53 57 45 52 20 59 45 53 20 4F 52 20 4E (ANSWER YES OR N
016420: 4F 29 22 3B 0D 0A 35 37 30 20 20 49 4E 50 55 54 O)";..570 INPUT
016430: 20 58 24 0D 0A 35 38 30 20 20 49 46 20 58 24 3D X$..580 IF X$=
016440: 22 59 45 53 22 20 54 48 45 4E 20 36 30 30 0D 0A "YES" THEN 600..
016450: 35 39 30 20 20 49 46 20 58 24 20 3C 3E 20 22 4E 590 IF X$ <> "N
016460: 4F 22 20 54 48 45 4E 20 35 36 30 0D 0A 36 30 30 O" THEN 560..600
016470: 20 20 4C 3D 30 3A 57 3D 30 3A 52 31 3D 30 3A 51 L=0:W=0:R1=0:Q
016480: 31 3D 30 3A 4D 33 3D 30 3A 4D 34 3D 30 3A 50 31 1=0:M3=0:M4=0:P1
016490: 3D 30 3A 50 32 3D 30 3A 54 31 3D 30 3A 54 32 3D =0:P2=0:T1=0:T2=
0164A0: 30 0D 0A 36 31 30 20 20 46 28 32 29 3D 30 3A 48 0..610 F(2)=0:H
0164B0: 28 32 29 3D 30 3A 42 28 32 29 3D 30 3A 52 32 3D (2)=0:B(2)=0:R2=
0164C0: 30 3A 51 32 3D 30 3A 43 36 3D 30 3A 46 3D 30 3A 0:Q2=0:C6=0:F=0:
0164D0: 57 30 3D 30 3A 59 3D 30 3A 59 32 3D 30 3A 55 3D W0=0:Y=0:Y2=0:U=
0164E0: 30 3A 55 32 3D 30 0D 0A 36 32 30 20 20 50 52 49 0:U2=0..620 PRI
0164F0: 4E 54 20 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 NT : PRINT : PRI
016500: 4E 54 0D 0A 36 33 30 20 20 50 52 49 4E 54 20 22 NT..630 PRINT "
016510: 57 48 49 43 48 20 42 41 54 54 4C 45 20 44 4F 20 WHICH BATTLE DO
016520: 59 4F 55 20 57 49 53 48 20 54 4F 20 53 49 4D 55 YOU WISH TO SIMU
016530: 4C 41 54 45 22 3B 0D 0A 36 34 30 20 20 49 4E 50 LATE";..640 INP
016540: 55 54 20 41 0D 0A 36 35 30 20 20 49 46 20 41 20 UT A..650 IF A
016550: 3C 3E 20 30 20 54 48 45 4E 20 36 36 30 0D 0A 36 <> 0 THEN 660..6
016560: 35 35 20 20 49 46 20 52 20 3C 3E 20 30 20 54 48 55 IF R <> 0 TH
016570: 45 4E 20 31 31 34 30 0D 0A 36 36 30 20 20 49 46 EN 1140..660 IF
016580: 20 41 20 3C 3D 30 20 54 48 45 4E 20 32 38 36 30 A <=0 THEN 2860
016590: 0D 0A 36 36 35 20 20 49 46 20 41 20 3E 3D 20 31 ..665 IF A >= 1
0165A0: 35 20 54 48 45 4E 20 32 38 36 30 0D 0A 36 37 30 5 THEN 2860..670
0165B0: 20 20 4C 45 54 20 43 24 3D 43 24 28 41 29 0D 0A LET C$=C$(A)..
0165C0: 36 38 30 20 20 4C 45 54 20 4D 31 3D 4D 31 28 41 680 LET M1=M1(A
0165D0: 29 0D 0A 36 39 30 20 20 4C 45 54 20 4D 32 3D 4D )..690 LET M2=M
0165E0: 32 28 41 29 0D 0A 37 30 30 20 20 4C 45 54 20 43 2(A)..700 LET C
0165F0: 31 3D 43 31 28 41 29 0D 0A 37 31 30 20 20 4C 45 1=C1(A)..710 LE
016600: 43 4F 4E 46 45 44 45 52 41 54 45 20 22 3B 0D 0A CONFEDERATE ";..
016610: 31 35 39 30 20 20 47 4F 54 4F 20 31 36 32 30 0D 1590 GOTO 1620.
016620: 0A 31 36 30 30 20 20 50 52 49 4E 54 20 22 20 20 .1600 PRINT "
016630: 20 20 20 20 55 4E 49 4F 4E 20 22 3B 0D 0A 31 36 UNION ";..16
016640: 31 30 20 20 52 45 4D 20 2D 20 46 49 4E 44 20 4D 10 REM - FIND M
016650: 4F 52 41 4C 45 0D 0A 31 36 32 30 20 20 4C 45 54 ORALE..1620 LET
016660: 20 4F 3D 28 28 32 2A 46 28 5A 29 5E 32 2B 48 28 O=((2*F(Z)^2+H(
016670: 5A 29 5E 32 29 2F 46 31 5E 32 2B 31 29 0D 0A 31 Z)^2)/F1^2+1)..1
016680: 36 33 30 20 20 49 46 20 4F 3C 31 30 20 54 48 45 630 IF O<10 THE
016690: 4E 20 31 36 36 30 0D 0A 31 36 34 30 20 20 50 52 N 1660..1640 PR
0166A0: 49 4E 54 20 22 4D 4F 52 41 4C 45 20 49 53 20 48 INT "MORALE IS H
0166B0: 49 47 48 22 0D 0A 31 36 35 30 20 20 47 4F 54 4F IGH"..1650 GOTO
0166C0: 20 31 37 30 30 0D 0A 31 36 36 30 20 20 49 46 20 1700..1660 IF
0166D0: 4F 3C 35 20 54 48 45 4E 20 31 36 39 30 0D 0A 31 O<5 THEN 1690..1
0166E0: 36 37 30 20 20 50 52 49 4E 54 20 22 4D 4F 52 41 670 PRINT "MORA
0166F0: 4C 45 20 49 53 20 46 41 49 52 22 0D 0A 31 36 38 LE IS FAIR"..168
016700: 30 20 20 47 4F 54 4F 20 31 37 30 30 0D 0A 31 36 0 GOTO 1700..16
016710: 39 30 20 20 50 52 49 4E 54 20 22 4D 4F 52 41 4C 90 PRINT "MORAL
016720: 45 20 49 53 20 50 4F 4F 52 22 0D 0A 31 37 30 30 E IS POOR"..1700
016730: 20 20 49 46 20 42 24 20 3C 3E 20 22 59 45 53 22 IF B$ <> "YES"
016740: 20 54 48 45 4E 20 31 37 36 30 0D 0A 31 37 31 30 THEN 1760..1710
016750: 20 20 4C 45 54 20 4F 28 5A 29 3D 4F 0D 0A 31 37 LET O(Z)=O..17
016760: 32 30 20 20 4E 45 58 54 20 5A 0D 0A 31 37 33 30 20 NEXT Z..1730
016770: 20 20 4C 45 54 20 4F 32 3D 4F 28 32 29 0D 0A 31 LET O2=O(2)..1
016780: 37 34 30 20 20 4C 45 54 20 4F 3D 4F 28 31 29 0D 740 LET O=O(1).
016790: 0A 31 37 35 30 20 20 50 52 49 4E 54 20 22 43 4F .1750 PRINT "CO
0167A0: 4E 46 45 44 45 52 41 54 45 20 47 45 4E 45 52 41 NFEDERATE GENERA
0167B0: 4C 2D 2D 2D 22 3B 0D 0A 31 37 36 30 20 20 52 45 L---";..1760 RE
0167C0: 4D 20 2D 20 41 43 54 55 41 4C 20 4F 46 46 2F 44 M - ACTUAL OFF/D
0167D0: 45 46 20 42 41 54 54 4C 45 20 53 49 54 55 41 54 EF BATTLE SITUAT
0167E0: 49 4F 4E 0D 0A 31 37 37 30 20 20 49 46 20 4D 20 ION..1770 IF M
0167F0: 3C 3E 20 33 20 54 48 45 4E 20 31 38 30 30 0D 0A <> 3 THEN 1800..
016800: 54 20 43 32 3D 43 32 28 41 29 0D 0A 37 32 30 20 T C2=C2(A)..720
016810: 20 4C 45 54 20 4D 3D 4D 28 41 29 0D 0A 39 36 30 LET M=M(A)..960
016820: 20 20 4C 45 54 20 55 3D 30 0D 0A 39 37 30 20 20 LET U=0..970
016830: 52 45 4D 20 20 49 4E 46 4C 41 54 49 4F 4E 20 43 REM INFLATION C
016840: 41 4C 43 0D 0A 39 38 30 20 20 4C 45 54 20 49 31 ALC..980 LET I1
016850: 3D 31 30 2B 28 4C 2D 57 29 2A 32 0D 0A 39 39 30 =10+(L-W)*2..990
016860: 20 20 4C 45 54 20 49 32 3D 31 30 2B 28 57 2D 4C LET I2=10+(W-L
016870: 29 2A 32 0D 0A 31 30 30 30 20 20 52 45 4D 20 2D )*2..1000 REM -
016880: 20 4D 4F 4E 45 59 20 41 56 41 49 4C 41 42 4C 45 MONEY AVAILABLE
016890: 0D 0A 31 30 31 30 20 20 4C 45 54 20 44 28 31 29 ..1010 LET D(1)
0168A0: 3D 31 30 30 2A 49 4E 54 28 28 4D 31 2A 28 31 30 =100*INT((M1*(10
0168B0: 30 2D 49 31 29 2F 32 30 30 30 29 2A 28 31 2B 28 0-I1)/2000)*(1+(
0168C0: 52 31 2D 51 31 29 2F 28 52 31 2B 31 29 29 2B 2E R1-Q1)/(R1+1))+.
0168D0: 35 29 0D 0A 31 30 32 30 20 20 4C 45 54 20 44 28 5)..1020 LET D(
0168E0: 32 29 3D 31 30 30 2A 49 4E 54 28 4D 32 2A 28 31 2)=100*INT(M2*(1
0168F0: 30 30 2D 49 32 29 2F 32 30 30 30 2B 2E 35 29 0D 00-I2)/2000+.5).
016900: 0A 31 30 33 30 20 20 49 46 20 42 24 20 3C 3E 20 .1030 IF B$ <>
016910: 22 59 45 53 22 20 54 48 45 4E 20 31 30 35 30 0D "YES" THEN 1050.
016920: 0A 31 30 34 30 20 20 4C 45 54 20 44 28 32 29 3D .1040 LET D(2)=
016930: 31 30 30 2A 49 4E 54 28 28 4D 32 2A 28 31 30 30 100*INT((M2*(100
016940: 2D 49 32 29 2F 32 30 30 30 29 2A 28 31 2B 28 52 -I2)/2000)*(1+(R
016950: 32 2D 51 32 29 2F 28 52 32 2B 31 29 29 2B 2E 35 2-Q2)/(R2+1))+.5
016960: 29 0D 0A 31 30 35 30 20 20 52 45 4D 20 2D 20 4D )..1050 REM - M
016970: 45 4E 20 20 20 41 56 41 49 4C 41 42 4C 45 0D 0A EN AVAILABLE..
016980: 31 30 36 30 20 20 4C 45 54 20 4D 35 3D 49 4E 54 1060 LET M5=INT
016990: 28 4D 31 2A 28 31 2B 28 50 31 2D 54 31 29 2F 28 (M1*(1+(P1-T1)/(
0169A0: 4D 33 2B 31 29 29 29 0D 0A 31 30 37 30 20 20 4C M3+1)))..1070 L
0169B0: 45 54 20 4D 36 3D 49 4E 54 28 4D 32 2A 28 31 2B ET M6=INT(M2*(1+
0169C0: 28 50 32 2D 54 32 29 2F 28 4D 34 2B 31 29 29 29 (P2-T2)/(M4+1)))
0169D0: 0D 0A 31 30 38 30 20 20 4C 45 54 20 46 31 3D 35 ..1080 LET F1=5
0169E0: 2A 4D 31 2F 36 0D 0A 31 30 39 30 20 20 50 52 49 *M1/6..1090 PRI
0169F0: 4E 54 20 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 NT : PRINT : PRI
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 00 00 02 09 52 E5 13 00 C1 02 00 00 00 02 ......R.........
016A20: 13 00 C6 02 00 00 00 02 13 00 C2 02 00 00 00 02 ................
016A30: 13 00 C7 02 00 00 00 02 13 00 C3 02 00 00 00 02 ................
016A40: 13 00 C8 02 00 00 00 02 13 00 C4 02 00 00 00 02 ................
016A50: 13 00 C9 02 00 00 00 02 13 00 C5 02 00 00 00 02 ................
016A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016B00: 31 37 38 30 20 20 50 52 49 4E 54 20 22 59 4F 55 1780 PRINT "YOU
016B10: 20 41 52 45 20 4F 4E 20 54 48 45 20 4F 46 46 45 ARE ON THE OFFE
016B20: 4E 53 49 56 45 22 0D 0A 31 37 39 30 20 20 47 4F NSIVE"..1790 GO
016B30: 54 4F 20 31 38 34 30 0D 0A 31 38 30 30 20 20 49 TO 1840..1800 I
016B40: 46 20 4D 20 3C 3E 20 31 20 54 48 45 4E 20 31 38 F M <> 1 THEN 18
016B50: 33 30 0D 0A 31 38 31 30 20 20 50 52 49 4E 54 20 30..1810 PRINT
016B60: 22 59 4F 55 20 41 52 45 20 4F 4E 20 54 48 45 20 "YOU ARE ON THE
016B70: 44 45 46 45 4E 53 49 56 45 22 0D 0A 31 38 32 30 DEFENSIVE"..1820
016B80: 20 20 47 4F 54 4F 20 31 38 34 30 0D 0A 31 38 33 GOTO 1840..183
016B90: 30 20 20 50 52 49 4E 54 20 22 42 4F 54 48 20 53 0 PRINT "BOTH S
016BA0: 49 44 45 53 20 41 52 45 20 4F 4E 20 54 48 45 20 IDES ARE ON THE
016BB0: 4F 46 46 45 4E 53 49 56 45 20 22 0D 0A 31 38 34 OFFENSIVE "..184
016BC0: 30 20 20 50 52 49 4E 54 0D 0A 31 38 35 30 20 20 0 PRINT..1850
016BD0: 52 45 4D 20 2D 20 43 48 4F 4F 53 45 20 53 54 52 REM - CHOOSE STR
016BE0: 41 54 45 47 49 45 53 0D 0A 31 38 36 30 20 20 49 ATEGIES..1860 I
016BF0: 46 20 42 24 20 3C 3E 20 22 59 45 53 22 20 54 48 F B$ <> "YES" TH
016C00: 45 4E 20 31 39 31 30 0D 0A 31 38 37 30 20 20 46 EN 1910..1870 F
016C10: 4F 52 20 49 3D 31 20 54 4F 20 32 0D 0A 31 38 38 OR I=1 TO 2..188
016C20: 30 20 20 4F 4E 20 49 20 47 4F 54 4F 20 31 38 39 0 ON I GOTO 189
016C30: 30 2C 31 39 32 30 0D 0A 31 38 39 30 20 20 50 52 0,1920..1890 PR
016C40: 49 4E 54 20 22 43 4F 4E 46 45 44 45 52 41 54 45 INT "CONFEDERATE
016C50: 20 53 54 52 41 54 45 47 59 20 22 3B 0D 0A 31 39 STRATEGY ";..19
016C60: 30 30 20 20 47 4F 54 4F 20 31 39 32 30 0D 0A 31 00 GOTO 1920..1
016C70: 39 31 30 20 20 50 52 49 4E 54 20 22 59 4F 55 52 910 PRINT "YOUR
016C80: 20 53 54 52 41 54 45 47 59 20 22 3B 0D 0A 31 39 STRATEGY ";..19
016C90: 32 30 20 20 49 4E 50 55 54 20 59 0D 0A 31 39 33 20 INPUT Y..193
016CA0: 30 20 20 49 46 20 41 42 53 28 59 2D 33 29 3C 33 0 IF ABS(Y-3)<3
016CB0: 20 54 48 45 4E 20 31 39 36 30 0D 0A 31 39 34 30 THEN 1960..1940
016CC0: 20 20 50 52 49 4E 54 20 22 53 54 52 41 54 45 47 PRINT "STRATEG
016CD0: 59 22 3B 59 3B 22 4E 4F 54 20 41 4C 4C 4F 57 45 Y";Y;"NOT ALLOWE
016CE0: 44 2E 22 0D 0A 31 39 35 30 20 20 47 4F 54 4F 20 D."..1950 GOTO
016CF0: 31 39 31 30 0D 0A 31 39 36 30 20 20 49 46 20 42 1910..1960 IF B
016D00: 20 20 52 45 4D 20 2D 20 43 55 4D 55 4C 41 54 49 REM - CUMULATI
016D10: 56 45 20 42 41 54 54 4C 45 20 46 41 43 54 4F 52 VE BATTLE FACTOR
016D20: 53 20 57 48 49 43 48 20 41 4C 54 45 52 20 48 49 S WHICH ALTER HI
016D30: 53 54 4F 52 49 43 41 4C 0D 0A 32 36 35 30 20 20 STORICAL..2650
016D40: 52 45 4D 20 20 52 45 53 4F 55 52 43 45 53 20 41 REM RESOURCES A
016D50: 56 41 49 4C 41 42 4C 45 2E 49 46 20 41 20 52 45 VAILABLE.IF A RE
016D60: 50 4C 41 59 20 44 4F 4E 27 54 20 55 50 44 41 54 PLAY DON'T UPDAT
016D70: 45 2E 0D 0A 32 36 36 30 20 20 49 46 20 41 3D 30 E...2660 IF A=0
016D80: 20 54 48 45 4E 20 32 37 39 30 0D 0A 32 36 37 30 THEN 2790..2670
016D90: 20 20 4C 45 54 20 57 3D 57 2B 31 0D 0A 32 36 38 LET W=W+1..268
016DA0: 30 20 20 4C 45 54 20 54 31 3D 54 31 2B 43 35 2B 0 LET T1=T1+C5+
016DB0: 45 0D 0A 32 36 39 30 20 20 4C 45 54 20 54 32 3D E..2690 LET T2=
016DC0: 54 32 2B 43 36 2B 45 32 0D 0A 32 37 30 30 20 20 T2+C6+E2..2700
016DD0: 4C 45 54 20 50 31 3D 50 31 2B 43 31 0D 0A 32 37 LET P1=P1+C1..27
016DE0: 31 30 20 20 4C 45 54 20 50 32 3D 50 32 2B 43 32 10 LET P2=P2+C2
016DF0: 0D 0A 32 37 32 30 20 20 4C 45 54 20 51 31 3D 51 ..2720 LET Q1=Q
016E00: 31 2B 28 46 28 31 29 2B 48 28 31 29 2B 42 28 31 1+(F(1)+H(1)+B(1
016E10: 29 29 0D 0A 32 37 33 30 20 20 4C 45 54 20 51 32 ))..2730 LET Q2
016E20: 3D 51 32 2B 28 46 28 32 29 2B 48 28 32 29 2B 42 =Q2+(F(2)+H(2)+B
016E30: 28 32 29 29 0D 0A 32 37 34 30 20 20 4C 45 54 20 (2))..2740 LET
016E40: 52 31 3D 52 31 2B 4D 31 2A 28 31 30 30 2D 49 31 R1=R1+M1*(100-I1
016E50: 29 2F 32 30 0D 0A 32 37 35 30 20 20 4C 45 54 20 )/20..2750 LET
016E60: 52 32 3D 52 32 2B 4D 32 2A 28 31 30 30 2D 49 32 R2=R2+M2*(100-I2
016E70: 29 2F 32 30 0D 0A 32 37 36 30 20 20 4C 45 54 20 )/20..2760 LET
016E80: 4D 33 3D 4D 33 2B 4D 31 0D 0A 32 37 37 30 20 20 M3=M3+M1..2770
016E90: 4C 45 54 20 4D 34 3D 4D 34 2B 4D 32 0D 0A 32 37 LET M4=M4+M2..27
016EA0: 38 30 20 20 47 4F 53 55 42 20 33 33 30 30 0D 0A 80 GOSUB 3300..
016EB0: 32 37 39 30 20 20 55 3D 30 3A 55 32 3D 30 0D 0A 2790 U=0:U2=0..
016EC0: 32 38 30 30 20 20 50 52 49 4E 54 20 22 2D 2D 2D 2800 PRINT "---
016ED0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 32 ------------"..2
016EE0: 38 31 30 20 20 47 4F 54 4F 20 36 32 30 0D 0A 32 810 GOTO 620..2
016EF0: 38 32 30 20 20 52 45 4D 2D 2D 2D 2D 2D 2D 46 49 820 REM------FI
016F00: 24 3D 22 59 45 53 22 20 54 48 45 4E 20 32 30 30 $="YES" THEN 200
016F10: 30 0D 0A 31 39 37 30 20 20 49 46 20 59 3D 35 20 0..1970 IF Y=5
016F20: 54 48 45 4E 20 32 38 33 30 0D 0A 31 39 38 30 20 THEN 2830..1980
016F30: 20 47 4F 53 55 42 20 33 31 31 30 0D 0A 31 39 39 GOSUB 3110..199
016F40: 30 20 20 47 4F 54 4F 20 32 31 37 30 0D 0A 32 30 0 GOTO 2170..20
016F50: 30 30 20 20 49 46 20 49 3D 32 20 54 48 45 4E 20 00 IF I=2 THEN
016F60: 32 30 34 30 0D 0A 32 30 31 30 20 20 4C 45 54 20 2040..2010 LET
016F70: 59 31 3D 59 0D 0A 32 30 32 30 20 20 50 52 49 4E Y1=Y..2020 PRIN
016F80: 54 20 22 55 4E 49 4F 4E 20 53 54 52 41 54 45 47 T "UNION STRATEG
016F90: 59 20 22 3B 0D 0A 32 30 33 30 20 20 4E 45 58 54 Y ";..2030 NEXT
016FA0: 20 49 0D 0A 32 30 34 30 20 20 4C 45 54 20 59 32 I..2040 LET Y2
016FB0: 3D 59 0D 0A 32 30 35 30 20 20 4C 45 54 20 59 3D =Y..2050 LET Y=
016FC0: 59 31 0D 0A 32 30 36 30 20 20 49 46 20 59 32 3D Y1..2060 IF Y2=
016FD0: 35 20 54 48 45 4E 20 32 30 32 30 0D 0A 32 30 37 5 THEN 2020..207
016FE0: 30 20 20 52 45 4D 20 3A 20 53 49 4D 55 4C 41 54 0 REM : SIMULAT
016FF0: 45 44 20 4C 4F 53 53 45 53 2D 4E 4F 52 54 48 0D ED LOSSES-NORTH.
017000: 0A 32 30 38 30 20 20 4C 45 54 20 43 36 3D 28 32 .2080 LET C6=(2
017010: 2A 43 32 2F 35 29 2A 28 31 2B 31 2F 28 32 2A 28 *C2/5)*(1+1/(2*(
017020: 41 42 53 28 59 32 2D 59 29 2B 31 29 29 29 0D 0A ABS(Y2-Y)+1)))..
017030: 32 30 39 30 20 20 4C 45 54 20 43 36 3D 43 36 2A 2090 LET C6=C6*
017040: 28 31 2E 32 38 2B 28 35 2A 4D 32 2F 36 29 2F 28 (1.28+(5*M2/6)/(
017050: 42 28 32 29 2B 31 29 29 0D 0A 32 31 30 30 20 20 B(2)+1))..2100
017060: 4C 45 54 20 43 36 3D 49 4E 54 28 43 36 2A 28 31 LET C6=INT(C6*(1
017070: 2B 31 2F 4F 32 29 2B 2E 35 29 0D 0A 32 31 31 30 +1/O2)+.5)..2110
017080: 20 20 52 45 4D 20 2D 20 49 46 20 4C 4F 53 53 20 REM - IF LOSS
017090: 3E 20 4D 45 4E 20 50 52 45 53 45 4E 54 2C 20 52 > MEN PRESENT, R
0170A0: 45 53 43 41 4C 45 20 4C 4F 53 53 45 53 0D 0A 32 ESCALE LOSSES..2
0170B0: 31 32 30 20 20 4C 45 54 20 45 32 3D 31 30 30 2F 120 LET E2=100/
0170C0: 4F 32 0D 0A 32 31 33 30 20 20 49 46 20 49 4E 54 O2..2130 IF INT
0170D0: 28 43 36 2B 45 32 29 3C 4D 36 20 54 48 45 4E 20 (C6+E2)<M6 THEN
0170E0: 32 31 39 30 0D 0A 32 31 34 30 20 20 4C 45 54 20 2190..2140 LET
0170F0: 43 36 3D 49 4E 54 28 31 33 2A 4D 36 2F 32 30 29 C6=INT(13*M6/20)
017100: 4E 49 53 48 20 4F 46 46 0D 0A 32 38 33 30 20 20 NISH OFF..2830
017110: 50 52 49 4E 54 20 22 54 48 45 20 43 4F 4E 46 45 PRINT "THE CONFE
017120: 44 45 52 41 43 59 20 48 41 53 20 53 55 52 52 45 DERACY HAS SURRE
017130: 4E 44 45 52 45 44 22 0D 0A 32 38 34 30 20 20 47 NDERED"..2840 G
017140: 4F 54 4F 20 32 38 36 30 0D 0A 32 38 35 30 20 20 OTO 2860..2850
017150: 50 52 49 4E 54 20 22 54 48 45 20 55 4E 49 4F 4E PRINT "THE UNION
017160: 20 48 41 53 20 53 55 52 52 45 4E 44 45 52 45 44 HAS SURRENDERED
017170: 2E 22 0D 0A 32 38 36 30 20 20 50 52 49 4E 54 20 ."..2860 PRINT
017180: 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 20 : PRINT : PRINT
017190: 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 20 : PRINT : PRINT
0171A0: 3A 20 50 52 49 4E 54 0D 0A 32 38 37 30 20 20 50 : PRINT..2870 P
0171B0: 52 49 4E 54 20 22 54 48 45 20 43 4F 4E 46 45 44 RINT "THE CONFED
0171C0: 45 52 41 43 59 20 22 3B 0D 0A 32 38 38 30 20 20 ERACY ";..2880
0171D0: 50 52 49 4E 54 20 22 48 41 53 20 57 4F 4E 20 22 PRINT "HAS WON "
0171E0: 57 22 20 42 41 54 54 4C 45 53 20 41 4E 44 20 4C W" BATTLES AND L
0171F0: 4F 53 54 20 22 4C 0D 0A 32 38 39 30 20 20 49 46 OST "L..2890 IF
017200: 20 59 3D 35 20 54 48 45 4E 20 32 39 34 30 0D 0A Y=5 THEN 2940..
017210: 32 39 30 30 20 20 49 46 20 59 32 3D 35 20 54 48 2900 IF Y2=5 TH
017220: 45 4E 20 32 39 32 30 0D 0A 32 39 31 30 20 20 49 EN 2920..2910 I
017230: 46 20 57 20 3C 3D 20 4C 20 54 48 45 4E 20 32 39 F W <= L THEN 29
017240: 34 30 0D 0A 32 39 31 35 20 20 49 46 20 59 3D 35 40..2915 IF Y=5
017250: 20 54 48 45 4E 20 32 39 34 30 0D 0A 32 39 32 30 THEN 2940..2920
017260: 20 20 50 52 49 4E 54 20 22 54 48 45 20 43 4F 4E PRINT "THE CON
017270: 46 45 44 45 52 41 43 59 20 48 41 53 20 57 4F 4E FEDERACY HAS WON
017280: 20 54 48 45 20 57 41 52 22 0D 0A 32 39 33 30 20 THE WAR"..2930
017290: 20 47 4F 54 4F 20 32 39 35 30 0D 0A 32 39 34 30 GOTO 2950..2940
0172A0: 20 20 50 52 49 4E 54 20 22 54 48 45 20 55 4E 49 PRINT "THE UNI
0172B0: 4F 4E 20 48 41 53 20 57 4F 4E 20 54 48 45 20 57 ON HAS WON THE W
0172C0: 41 52 22 0D 0A 32 39 35 30 20 20 50 52 49 4E 54 AR"..2950 PRINT
0172D0: 0D 0A 32 39 36 30 20 20 49 46 20 52 31 3D 30 20 ..2960 IF R1=0
0172E0: 54 48 45 4E 20 33 31 30 30 0D 0A 32 39 37 30 20 THEN 3100..2970
0172F0: 20 50 52 49 4E 54 20 22 46 4F 52 20 54 48 45 20 PRINT "FOR THE
017300: 0D 0A 32 31 35 30 20 20 4C 45 54 20 45 32 3D 37 ..2150 LET E2=7
017310: 2A 43 36 2F 31 33 0D 0A 32 31 36 30 20 20 4C 45 *C6/13..2160 LE
017320: 54 20 55 32 3D 31 0D 0A 32 31 37 30 20 20 52 45 T U2=1..2170 RE
017330: 4D 20 2D 20 43 41 4C 43 55 4C 41 54 45 20 53 49 M - CALCULATE SI
017340: 4D 55 4C 41 54 45 44 20 4C 4F 53 53 45 53 0D 0A MULATED LOSSES..
017350: 32 31 38 30 20 20 50 52 49 4E 54 0D 0A 32 31 39 2180 PRINT..219
017360: 30 20 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 0 PRINT : PRINT
017370: 20 3A 20 50 52 49 4E 54 20 2C 22 43 4F 4E 46 45 : PRINT ,"CONFE
017380: 44 45 52 41 43 59 22 2C 22 55 4E 49 4F 4E 22 0D DERACY","UNION".
017390: 0A 32 32 30 30 20 20 4C 45 54 20 43 35 3D 28 32 .2200 LET C5=(2
0173A0: 2A 43 31 2F 35 29 2A 28 31 2B 31 2F 28 32 2A 28 *C1/5)*(1+1/(2*(
0173B0: 41 42 53 28 59 32 2D 59 29 2B 31 29 29 29 0D 0A ABS(Y2-Y)+1)))..
0173C0: 32 32 31 30 20 20 4C 45 54 20 43 35 3D 49 4E 54 2210 LET C5=INT
0173D0: 28 43 35 2A 28 31 2B 31 2F 4F 29 2A 28 31 2E 32 (C5*(1+1/O)*(1.2
0173E0: 38 2B 46 31 2F 28 42 28 31 29 2B 31 29 29 2B 2E 8+F1/(B(1)+1))+.
0173F0: 35 29 0D 0A 32 32 32 30 20 20 4C 45 54 20 45 3D 5)..2220 LET E=
017400: 31 30 30 2F 4F 0D 0A 32 32 33 30 20 20 49 46 20 100/O..2230 IF
017410: 43 35 2B 31 30 30 2F 4F 3C 4D 31 2A 28 31 2B 28 C5+100/O<M1*(1+(
017420: 50 31 2D 54 31 29 2F 28 4D 33 2B 31 29 29 20 54 P1-T1)/(M3+1)) T
017430: 48 45 4E 20 32 32 37 30 0D 0A 32 32 34 30 20 20 HEN 2270..2240
017440: 4C 45 54 20 43 35 3D 49 4E 54 28 31 33 2A 4D 31 LET C5=INT(13*M1
017450: 2F 32 30 2A 28 31 2B 28 50 31 2D 54 31 29 2F 28 /20*(1+(P1-T1)/(
017460: 4D 33 2B 31 29 29 29 0D 0A 32 32 35 30 20 20 4C M3+1)))..2250 L
017470: 45 54 20 45 3D 37 2A 43 35 2F 31 33 0D 0A 32 32 ET E=7*C5/13..22
017480: 36 30 20 20 4C 45 54 20 55 3D 31 0D 0A 32 32 37 60 LET U=1..227
017490: 30 20 20 49 46 20 44 3D 31 20 54 48 45 4E 20 32 0 IF D=1 THEN 2
0174A0: 35 30 30 0D 0A 32 32 38 30 20 20 50 52 49 4E 54 500..2280 PRINT
0174B0: 20 22 43 41 53 55 41 4C 54 49 45 53 22 2C 43 35 "CASUALTIES",C5
0174C0: 2C 43 36 0D 0A 32 32 39 30 20 20 50 52 49 4E 54 ,C6..2290 PRINT
0174D0: 20 22 44 45 53 45 52 54 49 4F 4E 53 22 2C 49 4E "DESERTIONS",IN
0174E0: 54 28 45 29 2C 49 4E 54 28 45 32 29 0D 0A 32 33 T(E),INT(E2)..23
0174F0: 30 30 20 20 50 52 49 4E 54 0D 0A 32 33 31 30 20 00 PRINT..2310
017500: 22 57 2B 4C 2B 57 30 22 20 42 41 54 54 4C 45 53 "W+L+W0" BATTLES
017510: 20 46 4F 55 47 48 54 20 28 45 58 43 55 44 49 4E FOUGHT (EXCUDIN
017520: 47 20 52 45 52 55 4E 53 29 22 0D 0A 32 39 38 30 G RERUNS)"..2980
017530: 20 20 50 52 49 4E 54 20 22 20 22 2C 22 20 22 2C PRINT " "," ",
017540: 22 20 22 3B 0D 0A 32 39 39 30 20 20 50 52 49 4E " ";..2990 PRIN
017550: 54 20 22 43 4F 4E 46 45 44 45 52 41 43 59 22 2C T "CONFEDERACY",
017560: 22 20 55 4E 49 4F 4E 22 0D 0A 33 30 30 30 20 20 " UNION"..3000
017570: 50 52 49 4E 54 20 22 48 49 53 54 4F 52 49 43 41 PRINT "HISTORICA
017580: 4C 20 4C 4F 53 53 45 53 22 2C 49 4E 54 28 50 31 L LOSSES",INT(P1
017590: 2B 2E 35 29 2C 49 4E 54 28 50 32 2B 2E 35 29 0D +.5),INT(P2+.5).
0175A0: 0A 33 30 31 30 20 20 50 52 49 4E 54 20 22 53 49 .3010 PRINT "SI
0175B0: 4D 55 4C 41 54 45 44 20 4C 4F 53 53 45 53 22 2C MULATED LOSSES",
0175C0: 49 4E 54 28 54 31 2B 2E 35 29 2C 49 4E 54 28 54 INT(T1+.5),INT(T
0175D0: 32 2B 2E 35 29 0D 0A 33 30 32 30 20 20 50 52 49 2+.5)..3020 PRI
0175E0: 4E 54 0D 0A 33 30 33 30 20 20 50 52 49 4E 54 20 NT..3030 PRINT
0175F0: 22 20 20 20 20 25 20 4F 46 20 4F 52 49 47 49 4E " % OF ORIGIN
017600: 41 4C 22 2C 49 4E 54 28 31 30 30 2A 28 54 31 2F AL",INT(100*(T1/
017610: 50 31 29 2B 2E 35 29 2C 49 4E 54 28 31 30 30 2A P1)+.5),INT(100*
017620: 28 54 32 2F 50 32 29 2B 2E 35 29 0D 0A 33 30 34 (T2/P2)+.5)..304
017630: 30 20 20 49 46 20 42 24 3D 22 59 45 53 22 20 54 0 IF B$="YES" T
017640: 48 45 4E 20 33 31 30 30 0D 0A 33 30 35 30 20 20 HEN 3100..3050
017650: 50 52 49 4E 54 0D 0A 33 30 36 30 20 20 50 52 49 PRINT..3060 PRI
017660: 4E 54 20 22 55 4E 49 4F 4E 20 49 4E 54 45 4C 4C NT "UNION INTELL
017670: 49 47 45 4E 43 45 20 53 55 47 47 45 53 54 53 20 IGENCE SUGGESTS
017680: 54 48 41 54 20 54 48 45 20 53 4F 55 54 48 20 55 THAT THE SOUTH U
017690: 53 45 44 20 22 0D 0A 33 30 37 30 20 20 50 52 49 SED "..3070 PRI
0176A0: 4E 54 20 22 53 54 52 41 54 45 47 49 45 53 20 31 NT "STRATEGIES 1
0176B0: 2C 20 32 2C 20 33 2C 20 34 20 49 4E 20 54 48 45 , 2, 3, 4 IN THE
0176C0: 20 46 4F 4C 4C 4F 57 49 4E 47 20 50 45 52 43 45 FOLLOWING PERCE
0176D0: 4E 54 41 47 45 53 22 0D 0A 33 30 38 30 20 20 50 NTAGES"..3080 P
0176E0: 52 49 4E 54 20 53 28 31 29 3B 53 32 28 32 29 3B RINT S(1);S2(2);
0176F0: 53 28 33 29 3B 53 28 34 29 0D 0A 33 30 39 30 20 S(3);S(4)..3090
017700: 20 49 46 20 42 24 20 3C 3E 20 22 59 45 53 22 20 IF B$ <> "YES"
017710: 54 48 45 4E 20 32 33 35 30 0D 0A 32 33 32 30 20 THEN 2350..2320
017720: 20 50 52 49 4E 54 20 22 43 4F 4D 50 41 52 45 44 PRINT "COMPARED
017730: 20 54 4F 20 54 48 45 20 41 43 54 55 41 4C 20 43 TO THE ACTUAL C
017740: 41 53 55 41 4C 54 49 45 53 20 41 54 20 22 43 24 ASUALTIES AT "C$
017750: 0D 0A 32 33 33 30 20 20 50 52 49 4E 54 20 22 43 ..2330 PRINT "C
017760: 4F 4E 46 45 44 45 52 41 54 45 3A 22 49 4E 54 28 ONFEDERATE:"INT(
017770: 31 30 30 2A 28 43 35 2F 43 31 29 2B 2E 35 29 22 100*(C5/C1)+.5)"
017780: 25 20 4F 46 20 54 48 45 20 4F 52 49 47 49 4E 41 % OF THE ORIGINA
017790: 4C 22 0D 0A 32 33 34 30 20 20 50 52 49 4E 54 20 L"..2340 PRINT
0177A0: 22 55 4E 49 4F 4E 3A 20 20 20 20 20 20 22 49 4E "UNION: "IN
0177B0: 54 28 31 30 30 2A 28 43 36 2F 43 32 29 2B 2E 35 T(100*(C6/C2)+.5
0177C0: 29 22 25 20 4F 46 20 54 48 45 20 4F 52 49 47 49 )"% OF THE ORIGI
0177D0: 4E 41 4C 22 0D 0A 32 33 35 30 20 20 50 52 49 4E NAL"..2350 PRIN
0177E0: 54 0D 0A 32 33 36 30 20 20 52 45 4D 20 2D 20 31 T..2360 REM - 1
0177F0: 20 57 48 4F 20 4F 4E 45 0D 0A 32 33 37 30 20 20 WHO ONE..2370
017800: 49 46 20 55 20 3C 3E 20 31 20 54 48 45 4E 20 32 IF U <> 1 THEN 2
017810: 33 38 30 0D 0A 32 33 37 35 20 20 49 46 20 55 32 380..2375 IF U2
017820: 3D 31 20 54 48 45 4E 20 32 34 36 30 0D 0A 32 33 =1 THEN 2460..23
017830: 38 30 20 20 49 46 20 55 3D 31 20 54 48 45 4E 20 80 IF U=1 THEN
017840: 32 34 32 30 0D 0A 32 33 39 30 20 20 49 46 20 55 2420..2390 IF U
017850: 32 3D 31 20 54 48 45 4E 20 32 34 34 30 0D 0A 32 2=1 THEN 2440..2
017860: 34 30 30 20 20 49 46 20 43 35 2B 45 3D 43 36 2B 400 IF C5+E=C6+
017870: 45 32 20 54 48 45 4E 20 32 34 36 30 0D 0A 32 34 E2 THEN 2460..24
017880: 31 30 20 20 49 46 20 43 35 2B 45 3C 43 36 2B 45 10 IF C5+E<C6+E
017890: 32 20 54 48 45 4E 20 32 34 34 30 0D 0A 32 34 32 2 THEN 2440..242
0178A0: 30 20 20 50 52 49 4E 54 20 22 54 48 45 20 55 4E 0 PRINT "THE UN
0178B0: 49 4F 4E 20 57 49 4E 53 20 22 43 24 0D 0A 32 34 ION WINS "C$..24
0178C0: 33 30 20 20 47 4F 54 4F 20 32 36 30 30 0D 0A 32 30 GOTO 2600..2
0178D0: 34 34 30 20 20 50 52 49 4E 54 20 22 54 48 45 20 440 PRINT "THE
0178E0: 43 4F 4E 46 45 44 45 52 41 43 59 20 57 49 4E 53 CONFEDERACY WINS
0178F0: 20 22 43 24 0D 0A 32 34 35 30 20 20 47 4F 54 4F "C$..2450 GOTO
017900: 20 52 45 4D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D REM------------
017910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
017920: 2D 2D 2D 2D 2D 0D 0A 33 31 30 30 20 20 53 54 4F -----..3100 STO
017930: 50 0D 0A 33 31 31 30 20 20 52 45 4D 20 2D 20 55 P..3110 REM - U
017940: 4E 49 4F 4E 20 53 54 52 41 54 45 47 59 20 49 53 NION STRATEGY IS
017950: 20 43 4F 4D 50 55 54 45 52 20 43 48 4F 53 45 4E COMPUTER CHOSEN
017960: 0D 0A 33 31 32 30 20 20 50 52 49 4E 54 20 22 55 ..3120 PRINT "U
017970: 4E 49 4F 4E 20 53 54 52 41 54 45 47 59 20 49 53 NION STRATEGY IS
017980: 20 22 3B 0D 0A 33 31 33 30 20 20 49 46 20 41 20 ";..3130 IF A
017990: 3C 3E 20 30 20 54 48 45 4E 20 33 31 38 30 0D 0A <> 0 THEN 3180..
0179A0: 33 31 34 30 20 20 49 4E 50 55 54 20 59 32 0D 0A 3140 INPUT Y2..
0179B0: 33 31 35 30 20 20 49 46 20 59 32 20 3C 3D 30 20 3150 IF Y2 <=0
0179C0: 54 48 45 4E 20 33 31 36 30 0D 0A 33 31 35 35 20 THEN 3160..3155
0179D0: 20 49 46 20 59 32 3C 35 20 54 48 45 4E 20 33 32 IF Y2<5 THEN 32
0179E0: 39 30 0D 0A 33 31 36 30 20 20 50 52 49 4E 54 20 90..3160 PRINT
0179F0: 22 45 4E 54 45 52 20 31 20 2C 20 32 20 2C 33 20 "ENTER 1 , 2 ,3
017A00: 2C 20 4F 52 20 34 20 28 55 53 55 41 4C 4C 59 20 , OR 4 (USUALLY
017A10: 50 52 45 56 49 4F 55 53 20 55 4E 49 4F 4E 20 53 PREVIOUS UNION S
017A20: 54 52 41 54 45 47 59 29 22 0D 0A 33 31 37 30 20 TRATEGY)"..3170
017A30: 20 47 4F 54 4F 20 33 31 34 30 0D 0A 33 31 38 30 GOTO 3140..3180
017A40: 20 20 4C 45 54 20 53 30 3D 30 0D 0A 33 31 39 30 LET S0=0..3190
017A50: 20 20 4C 45 54 20 52 3D 31 30 30 2A 52 4E 44 28 LET R=100*RND(
017A60: 30 29 0D 0A 33 32 30 30 20 20 46 4F 52 20 49 3D 0)..3200 FOR I=
017A70: 31 20 54 4F 20 34 0D 0A 33 32 31 30 20 20 4C 45 1 TO 4..3210 LE
017A80: 54 20 53 30 3D 53 30 2B 53 28 49 29 0D 0A 33 32 T S0=S0+S(I)..32
017A90: 32 30 20 20 52 45 4D 20 2D 20 49 46 20 41 43 54 20 REM - IF ACT
017AA0: 55 41 4C 20 53 54 52 41 54 45 47 59 20 49 4E 46 UAL STRATEGY INF
017AB0: 4F 20 49 53 20 49 4E 20 50 52 4F 47 52 41 4D 20 O IS IN PROGRAM
017AC0: 44 41 54 41 20 53 54 41 54 45 4D 45 4E 54 53 0D DATA STATEMENTS.
017AD0: 0A 33 32 33 30 20 20 52 45 4D 20 20 20 54 48 45 .3230 REM THE
017AE0: 4E 20 52 2D 31 30 30 20 49 53 20 45 58 54 52 41 N R-100 IS EXTRA
017AF0: 20 57 45 49 47 48 54 20 47 49 56 45 4E 20 54 4F WEIGHT GIVEN TO
017B00: 20 32 36 36 30 0D 0A 32 34 36 30 20 20 50 52 49 2660..2460 PRI
017B10: 4E 54 20 22 42 41 54 54 4C 45 20 4F 55 54 43 4F NT "BATTLE OUTCO
017B20: 4D 45 20 55 4E 52 45 53 4F 4C 56 45 44 22 0D 0A ME UNRESOLVED"..
017B30: 32 34 37 30 20 20 4C 45 54 20 57 30 3D 57 30 2B 2470 LET W0=W0+
017B40: 31 0D 0A 32 34 38 30 20 20 49 46 20 41 3D 30 20 1..2480 IF A=0
017B50: 54 48 45 4E 20 32 37 39 30 0D 0A 32 34 39 30 20 THEN 2790..2490
017B60: 20 47 4F 54 4F 20 32 36 38 30 0D 0A 32 35 30 30 GOTO 2680..2500
017B70: 20 20 4C 45 54 20 43 36 3D 49 4E 54 28 31 37 2A LET C6=INT(17*
017B80: 43 32 2A 43 31 2F 28 43 35 2A 32 30 29 29 0D 0A C2*C1/(C5*20))..
017B90: 32 35 31 30 20 20 4C 45 54 20 45 32 3D 35 2A 4F 2510 LET E2=5*O
017BA0: 0D 0A 32 35 32 30 20 20 47 4F 54 4F 20 32 32 38 ..2520 GOTO 228
017BB0: 30 0D 0A 32 35 33 30 20 20 50 52 49 4E 54 20 22 0..2530 PRINT "
017BC0: 59 4F 55 52 20 43 41 53 55 41 4C 54 49 45 53 20 YOUR CASUALTIES
017BD0: 57 45 52 45 20 22 49 4E 54 28 31 30 30 2A 28 43 WERE "INT(100*(C
017BE0: 35 2F 43 31 29 2B 2E 35 29 22 25 20 4F 46 20 22 5/C1)+.5)"% OF "
017BF0: 0D 0A 32 35 34 30 20 20 50 52 49 4E 54 20 22 54 ..2540 PRINT "T
017C00: 48 45 20 41 43 54 55 41 4C 20 43 41 53 55 41 4C HE ACTUAL CASUAL
017C10: 54 49 45 53 20 41 54 20 22 3B 43 24 0D 0A 32 35 TIES AT ";C$..25
017C20: 35 30 20 20 50 52 49 4E 54 0D 0A 32 35 36 30 20 50 PRINT..2560
017C30: 20 52 45 4D 20 2D 20 46 49 4E 44 20 57 48 4F 20 REM - FIND WHO
017C40: 57 4F 4E 0D 0A 32 35 37 30 20 20 49 46 20 55 3D WON..2570 IF U=
017C50: 31 20 54 48 45 4E 20 32 35 39 30 0D 0A 32 35 38 1 THEN 2590..258
017C60: 30 20 20 49 46 20 43 35 2B 45 3C 31 37 2A 43 32 0 IF C5+E<17*C2
017C70: 2A 43 31 2F 28 43 35 2A 32 30 29 2B 35 2A 4F 20 *C1/(C5*20)+5*O
017C80: 54 48 45 4E 20 32 36 33 30 0D 0A 32 35 39 30 20 THEN 2630..2590
017C90: 20 50 52 49 4E 54 20 22 59 4F 55 20 4C 4F 53 45 PRINT "YOU LOSE
017CA0: 20 22 3B 43 24 0D 0A 32 36 30 30 20 20 49 46 20 ";C$..2600 IF
017CB0: 41 3D 30 20 54 48 45 4E 20 32 37 39 30 0D 0A 32 A=0 THEN 2790..2
017CC0: 36 31 30 20 20 4C 45 54 20 4C 3D 4C 2B 31 0D 0A 610 LET L=L+1..
017CD0: 32 36 32 30 20 20 47 4F 54 4F 20 32 36 38 30 0D 2620 GOTO 2680.
017CE0: 0A 32 36 33 30 20 20 50 52 49 4E 54 20 22 59 4F .2630 PRINT "YO
017CF0: 55 20 57 49 4E 20 22 3B 43 24 0D 0A 32 36 34 30 U WIN ";C$..2640
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 00 00 02 09 52 E5 14 00 C1 02 00 00 00 02 ......R.........
017D20: 14 00 C6 02 00 00 00 02 14 00 C2 02 00 00 00 02 ................
017D30: 14 00 C7 02 00 00 00 02 14 00 C3 02 00 00 00 02 ................
017D40: 14 00 C8 02 00 00 00 02 14 00 C4 02 00 00 00 02 ................
017D50: 14 00 C9 02 00 00 00 02 14 00 C5 02 00 00 00 02 ................
017D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E00: 20 54 48 41 54 20 53 54 41 54 45 47 59 2E 0D 0A THAT STATEGY...
017E10: 33 32 34 30 20 20 49 46 20 52 3C 53 30 20 54 48 3240 IF R<S0 TH
017E20: 45 4E 20 33 32 37 30 0D 0A 33 32 35 30 20 20 4E EN 3270..3250 N
017E30: 45 58 54 20 49 0D 0A 33 32 36 30 20 20 52 45 4D EXT I..3260 REM
017E40: 20 2D 20 49 46 20 41 43 54 55 41 4C 20 53 54 52 - IF ACTUAL STR
017E50: 41 54 2E 20 49 4E 2C 54 48 45 4E 20 48 45 52 45 AT. IN,THEN HERE
017E60: 20 49 53 20 59 32 3D 20 48 49 53 54 2E 20 53 54 IS Y2= HIST. ST
017E70: 52 41 54 2E 0D 0A 33 32 37 30 20 20 4C 45 54 20 RAT...3270 LET
017E80: 59 32 3D 49 0D 0A 33 32 38 30 20 20 50 52 49 4E Y2=I..3280 PRIN
017E90: 54 20 59 32 0D 0A 33 32 39 30 20 20 52 45 54 55 T Y2..3290 RETU
017EA0: 52 4E 0D 0A 33 33 30 30 20 20 52 45 4D 20 4C 45 RN..3300 REM LE
017EB0: 41 52 4E 20 20 50 52 45 53 45 4E 54 20 53 54 52 ARN PRESENT STR
017EC0: 41 54 45 47 59 2C 20 53 54 41 52 54 20 46 4F 52 ATEGY, START FOR
017ED0: 47 45 54 54 49 4E 47 20 4F 4C 44 20 4F 4E 45 53 GETTING OLD ONES
017EE0: 0D 0A 33 33 31 30 20 20 52 45 4D 20 2D 20 50 52 ..3310 REM - PR
017EF0: 45 53 45 4E 54 20 53 54 52 41 54 45 47 59 20 4F ESENT STRATEGY O
017F00: 46 20 53 4F 55 54 48 20 47 41 49 4E 53 20 33 2A F SOUTH GAINS 3*
017F10: 53 2C 20 4F 54 48 45 52 53 20 4C 4F 53 45 20 53 S, OTHERS LOSE S
017F20: 0D 0A 33 33 32 30 20 20 52 45 4D 20 20 20 50 52 ..3320 REM PR
017F30: 4F 42 41 42 49 4C 49 54 59 20 50 4F 49 4E 54 53 OBABILITY POINTS
017F40: 2C 20 55 4E 4C 45 53 53 20 41 20 53 54 52 41 54 , UNLESS A STRAT
017F50: 45 47 59 20 46 41 4C 4C 53 20 42 45 4C 4F 57 20 EGY FALLS BELOW
017F60: 35 25 2E 0D 0A 33 33 33 30 20 20 4C 45 54 20 53 5%...3330 LET S
017F70: 3D 33 0D 0A 33 33 34 30 20 20 4C 45 54 20 53 30 =3..3340 LET S0
017F80: 3D 30 0D 0A 33 33 35 30 20 20 46 4F 52 20 49 3D =0..3350 FOR I=
017F90: 31 20 54 4F 20 34 0D 0A 33 33 36 30 20 20 49 46 1 TO 4..3360 IF
017FA0: 20 53 28 49 29 20 3C 3D 20 35 20 54 48 45 4E 20 S(I) <= 5 THEN
017FB0: 33 33 39 30 0D 0A 33 33 37 30 20 20 4C 45 54 20 3390..3370 LET
017FC0: 53 28 49 29 3D 53 28 49 29 2D 53 0D 0A 33 33 38 S(I)=S(I)-S..338
017FD0: 30 20 20 4C 45 54 20 53 30 3D 53 30 2B 53 0D 0A 0 LET S0=S0+S..
017FE0: 33 33 39 30 20 20 4E 45 58 54 20 49 0D 0A 33 34 3390 NEXT I..34
017FF0: 30 30 20 20 4C 45 54 20 53 28 59 29 3D 53 28 59 00 LET S(Y)=S(Y
018000: 33 37 39 30 20 20 47 4F 54 4F 20 31 31 35 30 0D 3790 GOTO 1150.
018010: 0A 33 38 30 30 20 20 50 52 49 4E 54 20 22 4D 41 .3800 PRINT "MA
018020: 59 20 31 2D 36 2C 20 31 38 36 33 2E 20 20 54 48 Y 1-6, 1863. TH
018030: 45 20 53 4F 55 54 48 20 48 41 44 20 41 20 43 4F E SOUTH HAD A CO
018040: 53 54 4C 59 20 56 49 43 54 4F 52 59 20 41 4E 44 STLY VICTORY AND
018050: 20 4C 4F 53 54 22 0D 0A 33 38 31 30 20 20 50 52 LOST"..3810 PR
018060: 49 4E 54 20 22 4F 4E 45 20 4F 46 20 54 48 45 49 INT "ONE OF THEI
018070: 52 20 4F 55 54 53 54 41 4E 44 49 4E 47 20 47 45 R OUTSTANDING GE
018080: 4E 45 52 41 4C 53 2C 20 27 53 54 4F 4E 45 57 41 NERALS, 'STONEWA
018090: 4C 4C 27 20 4A 41 43 4B 53 4F 4E 2E 22 0D 0A 33 LL' JACKSON."..3
0180A0: 38 32 30 20 20 47 4F 54 4F 20 31 31 35 30 0D 0A 820 GOTO 1150..
0180B0: 33 38 33 30 20 20 50 52 49 4E 54 20 22 4A 55 4C 3830 PRINT "JUL
0180C0: 59 20 34 2C 20 31 38 36 33 2E 20 20 56 49 43 4B Y 4, 1863. VICK
0180D0: 53 42 55 52 47 20 57 41 53 20 41 20 43 4F 53 54 SBURG WAS A COST
0180E0: 4C 59 20 44 45 46 45 41 54 20 46 4F 52 20 54 48 LY DEFEAT FOR TH
0180F0: 45 20 53 4F 55 54 48 22 0D 0A 33 38 34 30 20 20 E SOUTH"..3840
018100: 50 52 49 4E 54 20 22 42 45 43 41 55 53 45 20 49 PRINT "BECAUSE I
018110: 54 20 47 41 56 45 20 54 48 45 20 55 4E 49 4F 4E T GAVE THE UNION
018120: 20 41 43 43 45 53 53 20 54 4F 20 54 48 45 20 4D ACCESS TO THE M
018130: 49 53 53 49 53 53 49 50 50 49 2E 22 0D 0A 33 38 ISSISSIPPI."..38
018140: 35 30 20 20 47 4F 54 4F 20 31 31 35 30 0D 0A 33 50 GOTO 1150..3
018150: 38 36 30 20 20 50 52 49 4E 54 20 22 4A 55 4C 59 860 PRINT "JULY
018160: 20 31 2D 33 2C 20 31 38 36 33 2E 20 20 41 20 53 1-3, 1863. A S
018170: 4F 55 54 48 45 52 4E 20 4D 49 53 54 41 4B 45 20 OUTHERN MISTAKE
018180: 42 59 20 47 45 4E 2E 20 4C 45 45 20 41 54 20 22 BY GEN. LEE AT "
018190: 3B 0D 0A 33 38 36 35 20 20 50 52 49 4E 54 20 22 ;..3865 PRINT "
0181A0: 47 45 54 54 59 53 42 55 52 47 22 0D 0A 33 38 37 GETTYSBURG"..387
0181B0: 30 20 20 50 52 49 4E 54 20 22 43 4F 53 54 20 54 0 PRINT "COST T
0181C0: 48 45 4D 20 4F 4E 45 20 4F 46 20 54 48 45 20 4D HEM ONE OF THE M
0181D0: 4F 53 54 20 43 52 55 43 49 41 4C 20 42 41 54 54 OST CRUCIAL BATT
0181E0: 4C 45 53 20 4F 46 20 54 48 45 20 57 41 52 2E 22 LES OF THE WAR."
0181F0: 0D 0A 33 38 38 30 20 20 47 4F 54 4F 20 31 31 35 ..3880 GOTO 115
018200: 29 2B 53 30 0D 0A 33 34 31 30 20 20 52 45 54 55 )+S0..3410 RETU
018210: 52 4E 0D 0A 33 34 32 30 20 20 52 45 4D 20 2D 20 RN..3420 REM -
018220: 48 49 53 54 4F 52 49 43 41 4C 20 44 41 54 41 2E HISTORICAL DATA.
018230: 2E 2E 43 41 4E 20 41 44 44 20 4D 4F 52 45 20 28 ..CAN ADD MORE (
018240: 53 54 52 41 54 2E 2C 45 54 43 29 20 42 59 20 49 STRAT.,ETC) BY I
018250: 4E 53 45 52 54 49 4E 47 0D 0A 33 34 33 30 20 20 NSERTING..3430
018260: 52 45 4D 20 20 20 44 41 54 41 20 53 54 41 54 45 REM DATA STATE
018270: 4D 45 4E 54 53 20 41 46 54 45 52 20 41 50 50 52 MENTS AFTER APPR
018280: 4F 2E 20 49 4E 46 4F 2C 20 41 4E 44 20 41 44 4A O. INFO, AND ADJ
018290: 55 53 54 49 4E 47 20 52 45 41 44 0D 0A 33 34 34 USTING READ..344
0182A0: 30 20 20 44 41 54 41 20 22 42 55 4C 4C 20 52 55 0 DATA "BULL RU
0182B0: 4E 22 2C 31 38 30 30 30 2C 31 38 35 30 30 2C 31 N",18000,18500,1
0182C0: 39 36 37 2C 32 37 30 38 2C 31 0D 0A 33 34 35 30 967,2708,1..3450
0182D0: 20 20 44 41 54 41 20 22 53 48 49 4C 4F 48 22 2C DATA "SHILOH",
0182E0: 34 30 30 30 30 2E 2C 34 34 38 39 34 2E 2C 31 30 40000.,44894.,10
0182F0: 36 39 39 2C 31 33 30 34 37 2C 33 0D 0A 33 34 36 699,13047,3..346
018300: 30 20 20 44 41 54 41 20 22 53 45 56 45 4E 20 44 0 DATA "SEVEN D
018310: 41 59 53 22 2C 39 35 30 30 30 2E 2C 31 31 35 30 AYS",95000.,1150
018320: 30 30 2E 2C 32 30 36 31 34 2C 31 35 38 34 39 2C 00.,20614,15849,
018330: 33 0D 0A 33 34 37 30 20 20 44 41 54 41 20 22 53 3..3470 DATA "S
018340: 45 43 4F 4E 44 20 42 55 4C 4C 20 52 55 4E 22 2C ECOND BULL RUN",
018350: 35 34 30 30 30 2E 2C 36 33 30 30 30 2E 2C 31 30 54000.,63000.,10
018360: 30 30 30 2C 31 34 30 30 30 2C 32 0D 0A 33 34 38 000,14000,2..348
018370: 30 20 20 44 41 54 41 20 22 41 4E 54 49 45 54 41 0 DATA "ANTIETA
018380: 4D 22 2C 34 30 30 30 30 2E 2C 35 30 30 30 30 2E M",40000.,50000.
018390: 2C 31 30 30 30 30 2C 31 32 30 30 30 2C 33 0D 0A ,10000,12000,3..
0183A0: 33 34 39 30 20 20 44 41 54 41 20 22 46 52 45 44 3490 DATA "FRED
0183B0: 45 52 49 43 4B 53 42 55 52 47 22 2C 37 35 30 30 ERICKSBURG",7500
0183C0: 30 2E 2C 31 32 30 30 30 30 2E 2C 35 33 37 37 2C 0.,120000.,5377,
0183D0: 31 32 36 35 33 2C 31 0D 0A 33 35 30 30 20 20 44 12653,1..3500 D
0183E0: 41 54 41 20 22 4D 55 52 46 52 45 45 53 42 4F 52 ATA "MURFREESBOR
0183F0: 4F 22 2C 33 38 30 30 30 2E 2C 34 35 30 30 30 2E O",38000.,45000.
018400: 30 0D 0A 33 38 39 30 20 20 50 52 49 4E 54 20 22 0..3890 PRINT "
018410: 53 45 50 54 2E 20 31 35 2C 20 31 38 36 33 2E 20 SEPT. 15, 1863.
018420: 43 4F 4E 46 55 53 49 4F 4E 20 49 4E 20 41 20 46 CONFUSION IN A F
018430: 4F 52 45 53 54 20 4E 45 41 52 20 43 48 49 43 4B OREST NEAR CHICK
018440: 41 4D 41 55 47 41 20 4C 45 44 22 0D 0A 33 39 30 AMAUGA LED"..390
018450: 30 20 20 50 52 49 4E 54 20 22 54 4F 20 41 20 43 0 PRINT "TO A C
018460: 4F 53 54 4C 59 20 53 4F 55 54 48 45 52 4E 20 56 OSTLY SOUTHERN V
018470: 49 43 54 4F 52 59 2E 22 0D 0A 33 39 31 30 20 20 ICTORY."..3910
018480: 47 4F 54 4F 20 31 31 35 30 0D 0A 33 39 32 30 20 GOTO 1150..3920
018490: 20 50 52 49 4E 54 20 22 4E 4F 56 2E 20 32 35 2C PRINT "NOV. 25,
0184A0: 20 31 38 36 33 2E 20 41 46 54 45 52 20 54 48 45 1863. AFTER THE
0184B0: 20 53 4F 55 54 48 20 48 41 44 20 53 49 45 47 45 SOUTH HAD SIEGE
0184C0: 44 20 47 45 4E 2E 20 52 4F 53 45 4E 43 52 41 4E D GEN. ROSENCRAN
0184D0: 53 27 22 0D 0A 33 39 33 30 20 20 50 52 49 4E 54 S'"..3930 PRINT
0184E0: 20 22 41 52 4D 59 20 46 4F 52 20 54 48 52 45 45 "ARMY FOR THREE
0184F0: 20 4D 4F 4E 54 48 53 2C 20 47 45 4E 2E 20 47 52 MONTHS, GEN. GR
018500: 41 4E 54 20 42 52 4F 4B 45 20 54 48 45 20 53 49 ANT BROKE THE SI
018510: 45 47 45 2E 22 0D 0A 33 39 34 30 20 20 47 4F 54 EGE."..3940 GOT
018520: 4F 20 31 31 35 30 0D 0A 33 39 35 30 20 20 50 52 O 1150..3950 PR
018530: 49 4E 54 20 22 4D 41 59 20 35 2C 20 31 38 36 34 INT "MAY 5, 1864
018540: 2E 20 20 47 52 41 4E 54 27 53 20 50 4C 41 4E 20 . GRANT'S PLAN
018550: 54 4F 20 4B 45 45 50 20 4C 45 45 20 49 53 4F 4C TO KEEP LEE ISOL
018560: 41 54 45 44 20 42 45 47 41 4E 20 54 4F 22 0D 0A ATED BEGAN TO"..
018570: 33 39 36 30 20 20 50 52 49 4E 54 20 22 46 41 49 3960 PRINT "FAI
018580: 4C 20 48 45 52 45 2C 20 41 4E 44 20 43 4F 4E 54 L HERE, AND CONT
018590: 49 4E 55 45 44 20 41 54 20 43 4F 4C 44 20 48 41 INUED AT COLD HA
0185A0: 52 42 4F 52 20 41 4E 44 20 50 45 54 45 52 53 42 RBOR AND PETERSB
0185B0: 55 52 47 2E 22 0D 0A 33 39 37 30 20 20 47 4F 54 URG."..3970 GOT
0185C0: 4F 20 31 31 35 30 0D 0A 33 39 38 30 20 20 50 52 O 1150..3980 PR
0185D0: 49 4E 54 20 22 41 55 47 55 53 54 2C 20 31 38 36 INT "AUGUST, 186
0185E0: 34 2E 20 20 53 48 45 52 4D 41 4E 20 41 4E 44 20 4. SHERMAN AND
0185F0: 54 48 52 45 45 20 56 45 54 45 52 41 4E 20 41 52 THREE VETERAN AR
018600: 2C 31 31 30 30 30 2C 31 32 30 30 30 2C 31 0D 0A ,11000,12000,1..
018610: 33 35 31 30 20 20 44 41 54 41 20 22 43 48 41 4E 3510 DATA "CHAN
018620: 43 45 4C 4C 4F 52 53 56 49 4C 4C 45 22 2C 33 32 CELLORSVILLE",32
018630: 30 30 30 2C 39 30 30 30 30 2E 2C 31 33 30 30 30 000,90000.,13000
018640: 2C 31 37 31 39 37 2C 32 0D 0A 33 35 32 30 20 20 ,17197,2..3520
018650: 44 41 54 41 20 22 56 49 43 4B 53 42 55 52 47 22 DATA "VICKSBURG"
018660: 2C 35 30 30 30 30 2E 2C 37 30 30 30 30 2E 2C 31 ,50000.,70000.,1
018670: 32 30 30 30 2C 31 39 30 30 30 2C 31 0D 0A 33 35 2000,19000,1..35
018680: 33 30 20 20 44 41 54 41 20 22 47 45 54 54 59 53 30 DATA "GETTYS
018690: 42 55 52 47 22 2C 37 32 35 30 30 2E 2C 38 35 30 BURG",72500.,850
0186A0: 30 30 2E 2C 32 30 30 30 30 2C 32 33 30 30 30 2C 00.,20000,23000,
0186B0: 33 0D 0A 33 35 34 30 20 20 44 41 54 41 20 22 43 3..3540 DATA "C
0186C0: 48 49 43 4B 41 4D 41 55 47 41 22 2C 36 36 30 30 HICKAMAUGA",6600
0186D0: 30 2E 2C 36 30 30 30 30 2E 2C 31 38 30 30 30 2C 0.,60000.,18000,
0186E0: 31 36 30 30 30 2C 32 0D 0A 33 35 35 30 20 20 44 16000,2..3550 D
0186F0: 41 54 41 20 22 43 48 41 54 54 41 4E 4F 4F 47 41 ATA "CHATTANOOGA
018700: 22 2C 33 37 30 30 30 2E 2C 36 30 30 30 30 2E 2C ",37000.,60000.,
018710: 33 36 37 30 30 2E 2C 35 38 30 30 2C 32 0D 0A 33 36700.,5800,2..3
018720: 35 36 30 20 20 44 41 54 41 20 22 53 50 4F 54 53 560 DATA "SPOTS
018730: 59 4C 56 41 4E 49 41 22 2C 36 32 30 30 30 2E 2C YLVANIA",62000.,
018740: 31 31 30 30 30 30 2E 2C 31 37 37 32 33 2C 31 38 110000.,17723,18
018750: 30 30 30 2C 32 0D 0A 33 35 37 30 20 20 44 41 54 000,2..3570 DAT
018760: 41 20 22 41 54 4C 41 4E 54 41 22 2C 36 35 30 30 A "ATLANTA",6500
018770: 30 2E 2C 31 30 30 30 30 30 2E 2C 38 35 30 30 2C 0.,100000.,8500,
018780: 33 37 30 30 2C 31 0D 0A 33 35 38 30 20 20 50 52 3700,1..3580 PR
018790: 49 4E 54 20 22 4A 55 4C 59 20 32 31 2C 20 31 38 INT "JULY 21, 18
0187A0: 36 31 2E 20 20 47 45 4E 2E 20 42 45 41 55 52 45 61. GEN. BEAURE
0187B0: 47 41 52 44 2C 20 43 4F 4D 4D 41 4E 44 49 4E 47 GARD, COMMANDING
0187C0: 20 54 48 45 20 53 4F 55 54 48 2C 20 4D 45 54 22 THE SOUTH, MET"
0187D0: 0D 0A 33 35 39 30 20 20 50 52 49 4E 54 20 22 55 ..3590 PRINT "U
0187E0: 4E 49 4F 4E 20 46 4F 52 43 45 53 20 57 49 54 48 NION FORCES WITH
0187F0: 20 47 45 4E 2E 20 4D 43 44 4F 57 45 4C 4C 20 49 GEN. MCDOWELL I
018800: 4D 49 45 53 20 43 4F 4E 56 45 52 47 45 44 22 0D MIES CONVERGED".
018810: 0A 33 39 39 30 20 20 50 52 49 4E 54 20 22 4F 4E .3990 PRINT "ON
018820: 20 41 54 4C 41 4E 54 41 20 41 4E 44 20 44 45 41 ATLANTA AND DEA
018830: 4C 54 20 54 48 45 20 44 45 41 54 48 20 42 4C 4F LT THE DEATH BLO
018840: 57 20 54 4F 20 54 48 45 20 43 4F 4E 46 45 44 45 W TO THE CONFEDE
018850: 52 41 43 59 2E 22 0D 0A 34 30 30 30 20 20 47 4F RACY."..4000 GO
018860: 54 4F 20 31 31 35 30 0D 0A 34 30 31 30 20 20 45 TO 1150..4010 E
018870: 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ND..............
018880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
018890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0188A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0188B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0188C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0188D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0188E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0188F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
018900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
018910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
018920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
018930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
018940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
018950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
018960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
018970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
018980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
018990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0189A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0189B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0189C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0189D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0189E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0189F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
018A00: 4E 20 41 20 50 52 45 4D 41 54 55 52 45 20 42 41 N A PREMATURE BA
018A10: 54 54 4C 45 20 41 54 22 0D 0A 33 36 30 30 20 20 TTLE AT"..3600
018A20: 50 52 49 4E 54 20 22 42 55 4C 4C 20 52 55 4E 2E PRINT "BULL RUN.
018A30: 20 47 45 4E 2E 20 4A 41 43 4B 53 4F 4E 20 48 45 GEN. JACKSON HE
018A40: 4C 50 45 44 20 50 55 53 48 20 42 41 43 4B 20 54 LPED PUSH BACK T
018A50: 48 45 20 55 4E 49 4F 4E 20 41 54 54 41 43 4B 2E HE UNION ATTACK.
018A60: 22 0D 0A 33 36 31 30 20 20 47 4F 54 4F 20 31 31 "..3610 GOTO 11
018A70: 35 30 0D 0A 33 36 32 30 20 20 50 52 49 4E 54 20 50..3620 PRINT
018A80: 22 41 50 52 49 4C 20 36 2D 37 2C 20 31 38 36 32 "APRIL 6-7, 1862
018A90: 2E 20 20 54 48 45 20 43 4F 4E 46 45 44 45 52 41 . THE CONFEDERA
018AA0: 54 45 20 53 55 52 50 52 49 53 45 20 41 54 54 41 TE SURPRISE ATTA
018AB0: 43 4B 20 41 54 22 0D 0A 33 36 33 30 20 20 50 52 CK AT"..3630 PR
018AC0: 49 4E 54 20 22 53 48 49 4C 4F 48 20 46 41 49 4C INT "SHILOH FAIL
018AD0: 45 44 20 44 55 45 20 54 4F 20 50 4F 4F 52 20 4F ED DUE TO POOR O
018AE0: 52 47 41 4E 49 5A 41 54 49 4F 4E 2E 22 0D 0A 33 RGANIZATION."..3
018AF0: 36 34 30 20 20 47 4F 54 4F 20 31 31 35 30 0D 0A 640 GOTO 1150..
018B00: 33 36 35 30 20 20 50 52 49 4E 54 20 22 4A 55 4E 3650 PRINT "JUN
018B10: 45 20 32 35 2D 4A 55 4C 59 20 31 2C 20 31 38 36 E 25-JULY 1, 186
018B20: 32 2E 20 20 47 45 4E 45 52 41 4C 20 4C 45 45 20 2. GENERAL LEE
018B30: 28 43 53 41 29 20 55 50 48 45 4C 44 20 54 48 45 (CSA) UPHELD THE
018B40: 22 0D 0A 33 36 36 30 20 20 50 52 49 4E 54 20 22 "..3660 PRINT "
018B50: 4F 46 46 45 4E 53 49 56 45 20 54 48 52 4F 55 47 OFFENSIVE THROUG
018B60: 48 4F 55 54 20 54 48 45 20 42 41 54 54 4C 45 20 HOUT THE BATTLE
018B70: 41 4E 44 20 46 4F 52 43 45 44 20 47 45 4E 2E 20 AND FORCED GEN.
018B80: 4D 43 43 4C 45 4C 4C 41 4E 22 0D 0A 33 36 37 30 MCCLELLAN"..3670
018B90: 20 20 50 52 49 4E 54 20 22 41 4E 44 20 54 48 45 PRINT "AND THE
018BA0: 20 55 4E 49 4F 4E 20 46 4F 52 43 45 53 20 41 57 UNION FORCES AW
018BB0: 41 59 20 46 52 4F 4D 20 52 49 43 48 4D 4F 4E 44 AY FROM RICHMOND
018BC0: 2E 22 0D 0A 33 36 38 30 20 20 47 4F 54 4F 20 31 ."..3680 GOTO 1
018BD0: 31 35 30 0D 0A 33 36 39 30 20 20 50 52 49 4E 54 150..3690 PRINT
018BE0: 20 22 41 55 47 20 32 39 2D 33 30 2C 20 31 38 36 "AUG 29-30, 186
018BF0: 32 2E 20 20 54 48 45 20 43 4F 4D 42 49 4E 45 44 2. THE COMBINED
018C00: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
018C10: 22 43 4F 4D 42 41 54 22 0D 0A 32 20 50 52 49 4E "COMBAT"..2 PRIN
018C20: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
018C30: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
018C40: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
018C50: 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A ERSEY"..3 PRINT:
018C60: 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 34 PRINT: PRINT..4
018C70: 20 50 52 49 4E 54 20 22 49 20 41 4D 20 41 54 20 PRINT "I AM AT
018C80: 57 41 52 20 57 49 54 48 20 59 4F 55 2E 22 3A 20 WAR WITH YOU.":
018C90: 50 52 49 4E 54 20 22 57 45 20 48 41 56 45 20 37 PRINT "WE HAVE 7
018CA0: 32 30 30 30 20 53 4F 4C 44 49 45 52 53 20 41 50 2000 SOLDIERS AP
018CB0: 49 45 43 45 2E 22 0D 0A 35 20 50 52 49 4E 54 3A IECE."..5 PRINT:
018CC0: 50 52 49 4E 54 20 22 44 49 53 54 52 49 42 55 54 PRINT "DISTRIBUT
018CD0: 45 20 59 4F 55 52 20 46 4F 52 43 45 53 2E 22 0D E YOUR FORCES.".
018CE0: 0A 36 20 50 52 49 4E 54 20 2C 22 4D 45 22 2C 22 .6 PRINT ,"ME","
018CF0: 20 20 59 4F 55 22 0D 0A 37 20 50 52 49 4E 54 20 YOU"..7 PRINT
018D00: 22 41 52 4D 59 22 2C 33 30 30 30 30 2C 0D 0A 38 "ARMY",30000,..8
018D10: 20 49 4E 50 55 54 20 41 0D 0A 39 20 50 52 49 4E INPUT A..9 PRIN
018D20: 54 20 22 4E 41 56 59 22 2C 32 30 30 30 30 2C 0D T "NAVY",20000,.
018D30: 0A 31 30 20 49 4E 50 55 54 20 42 0D 0A 31 31 20 .10 INPUT B..11
018D40: 50 52 49 4E 54 20 22 41 2E 20 46 2E 22 2C 32 32 PRINT "A. F.",22
018D50: 30 30 30 2C 0D 0A 31 32 20 49 4E 50 55 54 20 43 000,..12 INPUT C
018D60: 0D 0A 31 33 20 49 46 20 41 2B 42 2B 43 3E 37 32 ..13 IF A+B+C>72
018D70: 30 30 30 20 54 48 45 4E 20 35 0D 0A 31 34 20 44 000 THEN 5..14 D
018D80: 3D 33 30 30 30 30 0D 0A 31 35 20 45 3D 32 30 30 =30000..15 E=200
018D90: 30 30 0D 0A 31 36 20 46 3D 32 32 30 30 30 0D 0A 00..16 F=22000..
018DA0: 31 37 20 50 52 49 4E 54 20 22 59 4F 55 20 41 54 17 PRINT "YOU AT
018DB0: 54 41 43 4B 20 46 49 52 53 54 2E 20 54 59 50 45 TACK FIRST. TYPE
018DC0: 20 28 31 29 20 46 4F 52 20 41 52 4D 59 3B 20 28 (1) FOR ARMY; (
018DD0: 32 29 20 46 4F 52 20 4E 41 56 59 3B 22 0D 0A 31 2) FOR NAVY;"..1
018DE0: 38 20 50 52 49 4E 54 20 22 41 4E 44 20 28 33 29 8 PRINT "AND (3)
018DF0: 20 46 4F 52 20 41 49 52 20 46 4F 52 43 45 2E 22 FOR AIR FORCE."
018E00: 20 43 4F 4E 46 45 44 45 52 41 54 45 20 46 4F 52 CONFEDERATE FOR
018E10: 43 45 53 20 55 4E 44 45 52 22 3B 0D 0A 33 36 39 CES UNDER";..369
018E20: 35 20 20 50 52 49 4E 54 20 22 20 4C 45 45 22 0D 5 PRINT " LEE".
018E30: 0A 33 37 30 30 20 20 50 52 49 4E 54 20 22 41 4E .3700 PRINT "AN
018E40: 44 20 4A 41 43 4B 53 4F 4E 20 44 52 4F 56 45 20 D JACKSON DROVE
018E50: 54 48 45 20 55 4E 49 4F 4E 20 46 4F 52 43 45 53 THE UNION FORCES
018E60: 20 42 41 43 4B 20 49 4E 54 4F 20 57 41 53 48 49 BACK INTO WASHI
018E70: 4E 47 54 4F 4E 2E 22 0D 0A 33 37 31 30 20 20 47 NGTON."..3710 G
018E80: 4F 54 4F 20 31 31 35 30 0D 0A 33 37 32 30 20 20 OTO 1150..3720
018E90: 50 52 49 4E 54 20 22 53 45 50 54 20 31 37 2C 20 PRINT "SEPT 17,
018EA0: 31 38 36 32 2E 20 20 54 48 45 20 53 4F 55 54 48 1862. THE SOUTH
018EB0: 20 46 41 49 4C 45 44 20 54 4F 20 49 4E 43 4F 52 FAILED TO INCOR
018EC0: 50 4F 52 41 54 45 20 4D 41 52 59 4C 41 4E 44 22 PORATE MARYLAND"
018ED0: 0D 0A 33 37 33 30 20 20 50 52 49 4E 54 20 22 49 ..3730 PRINT "I
018EE0: 4E 54 4F 20 54 48 45 20 43 4F 4E 46 45 44 45 52 NTO THE CONFEDER
018EF0: 41 43 59 2E 22 0D 0A 33 37 34 30 20 20 47 4F 54 ACY."..3740 GOT
018F00: 4F 20 31 31 35 30 0D 0A 33 37 35 30 20 20 50 52 O 1150..3750 PR
018F10: 49 4E 54 20 22 44 45 43 20 31 33 2C 20 31 38 36 INT "DEC 13, 186
018F20: 32 2E 20 20 54 48 45 20 43 4F 4E 46 45 44 45 52 2. THE CONFEDER
018F30: 41 43 59 20 55 4E 44 45 52 20 4C 45 45 20 53 55 ACY UNDER LEE SU
018F40: 43 43 45 53 53 46 55 4C 4C 59 22 0D 0A 33 37 36 CCESSFULLY"..376
018F50: 30 20 20 50 52 49 4E 54 20 22 52 45 50 55 4C 53 0 PRINT "REPULS
018F60: 45 44 20 41 4E 20 41 54 54 41 43 4B 20 42 59 20 ED AN ATTACK BY
018F70: 54 48 45 20 55 4E 49 4F 4E 20 55 4E 44 45 52 20 THE UNION UNDER
018F80: 47 45 4E 2E 20 42 55 52 4E 53 49 44 45 2E 22 0D GEN. BURNSIDE.".
018F90: 0A 33 37 37 30 20 20 47 4F 54 4F 20 31 31 35 30 .3770 GOTO 1150
018FA0: 0D 0A 33 37 38 30 20 20 50 52 49 4E 54 20 22 44 ..3780 PRINT "D
018FB0: 45 43 20 33 31 2C 20 31 38 36 32 2E 20 20 54 48 EC 31, 1862. TH
018FC0: 45 20 53 4F 55 54 48 20 55 4E 44 45 52 20 47 45 E SOUTH UNDER GE
018FD0: 4E 2E 20 42 52 41 47 47 20 57 4F 4E 20 41 20 43 N. BRAGG WON A C
018FE0: 4C 4F 53 45 20 22 3B 0D 0A 33 37 38 35 20 20 50 LOSE ";..3785 P
018FF0: 52 49 4E 54 20 22 42 41 54 54 4C 45 2E 22 0D 0A RINT "BATTLE."..
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 00 00 02 09 52 E5 15 00 C1 02 00 00 00 02 ......R.........
019020: 15 00 C6 02 00 00 00 02 15 00 C2 02 00 00 00 02 ................
019030: 15 00 C7 02 00 00 00 02 15 00 C3 02 00 00 00 02 ................
019040: 15 00 C8 02 00 00 00 02 15 00 C4 02 00 00 00 02 ................
019050: 15 00 C9 02 00 00 00 02 15 00 C5 02 00 00 00 02 ................
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: 0D 0A 31 39 20 49 4E 50 55 54 20 59 0D 0A 32 30 ..19 INPUT Y..20
019110: 20 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 PRINT "HOW MANY
019120: 20 4D 45 4E 22 0D 0A 32 31 20 49 4E 50 55 54 20 MEN"..21 INPUT
019130: 58 0D 0A 32 32 20 49 46 20 58 3C 30 20 54 48 45 X..22 IF X<0 THE
019140: 4E 20 32 30 0D 0A 32 33 20 4F 4E 20 59 20 47 4F N 20..23 ON Y GO
019150: 54 4F 20 31 30 30 2C 32 30 30 2C 33 30 30 0D 0A TO 100,200,300..
019160: 31 30 30 20 49 46 20 58 3E 41 20 54 48 45 4E 20 100 IF X>A THEN
019170: 32 30 0D 0A 31 30 35 20 49 46 20 58 3C 41 2F 33 20..105 IF X<A/3
019180: 20 54 48 45 4E 20 31 32 30 0D 0A 31 31 30 20 49 THEN 120..110 I
019190: 46 20 58 3C 32 2A 41 2F 33 20 54 48 45 4E 20 31 F X<2*A/3 THEN 1
0191A0: 35 30 0D 0A 31 31 35 20 47 4F 54 4F 20 32 37 30 50..115 GOTO 270
0191B0: 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 59 4F 55 ..120 PRINT "YOU
0191C0: 20 4C 4F 53 54 22 3B 58 3B 22 4D 45 4E 20 46 52 LOST";X;"MEN FR
0191D0: 4F 4D 20 59 4F 55 52 20 41 52 4D 59 2E 22 0D 0A OM YOUR ARMY."..
0191E0: 31 32 35 20 41 3D 49 4E 54 28 41 2D 58 29 0D 0A 125 A=INT(A-X)..
0191F0: 31 33 30 20 47 4F 54 4F 20 35 30 30 0D 0A 31 35 130 GOTO 500..15
019200: 30 20 50 52 49 4E 54 20 22 59 4F 55 20 4C 4F 53 0 PRINT "YOU LOS
019210: 54 22 3B 49 4E 54 28 58 2F 33 29 3B 22 4D 45 4E T";INT(X/3);"MEN
019220: 2C 20 42 55 54 20 49 20 4C 4F 53 54 20 22 3B 49 , BUT I LOST ";I
019230: 4E 54 28 32 2A 44 2F 33 29 0D 0A 31 35 35 20 41 NT(2*D/3)..155 A
019240: 3D 49 4E 54 28 41 2D 58 2F 33 29 0D 0A 31 36 30 =INT(A-X/3)..160
019250: 20 44 3D 30 0D 0A 31 36 35 20 47 4F 54 4F 20 35 D=0..165 GOTO 5
019260: 30 30 20 0D 0A 32 30 30 20 49 46 20 58 3E 42 20 00 ..200 IF X>B
019270: 54 48 45 4E 20 32 30 0D 0A 32 31 30 20 49 46 20 THEN 20..210 IF
019280: 58 3C 45 2F 33 20 54 48 45 4E 20 32 33 30 0D 0A X<E/3 THEN 230..
019290: 32 31 35 20 49 46 20 58 3C 32 2A 45 2F 33 20 54 215 IF X<2*E/3 T
0192A0: 48 45 4E 20 32 35 30 0D 0A 32 32 30 20 47 4F 54 HEN 250..220 GOT
0192B0: 4F 20 32 37 30 0D 0A 32 33 30 20 50 52 49 4E 54 O 270..230 PRINT
0192C0: 20 22 59 4F 55 52 20 41 54 54 41 43 4B 20 57 41 "YOUR ATTACK WA
0192D0: 53 20 53 54 4F 50 50 45 44 21 22 0D 0A 32 33 32 S STOPPED!"..232
0192E0: 20 42 3D 49 4E 54 28 42 2D 58 29 0D 0A 32 33 35 B=INT(B-X)..235
0192F0: 20 47 4F 54 4F 20 35 30 30 0D 0A 32 35 30 20 50 GOTO 500..250 P
019300: 52 45 41 54 59 20 4F 46 20 50 41 52 49 53 20 43 REATY OF PARIS C
019310: 4F 4E 43 4C 55 44 45 44 20 54 48 41 54 20 57 45 ONCLUDED THAT WE
019320: 20 54 41 4B 45 20 4F 55 52 22 0D 0A 32 30 30 37 TAKE OUR"..2007
019330: 20 50 52 49 4E 54 20 22 52 45 53 50 45 43 54 49 PRINT "RESPECTI
019340: 56 45 20 43 4F 55 4E 54 52 49 45 53 20 41 4E 44 VE COUNTRIES AND
019350: 20 4C 49 56 45 20 49 4E 20 50 45 41 43 45 2E 22 LIVE IN PEACE."
019360: 0D 0A 32 30 30 38 20 47 4F 54 4F 20 32 30 32 30 ..2008 GOTO 2020
019370: 0D 0A 32 30 31 30 20 50 52 49 4E 54 20 22 59 4F ..2010 PRINT "YO
019380: 55 20 57 4F 4E 2C 20 4F 48 21 20 53 48 55 43 4B U WON, OH! SHUCK
019390: 53 21 21 21 21 22 0D 0A 32 30 31 32 20 47 4F 54 S!!!!"..2012 GOT
0193A0: 4F 20 32 30 32 30 0D 0A 32 30 31 35 20 50 52 49 O 2020..2015 PRI
0193B0: 4E 54 20 22 59 4F 55 20 4C 4F 53 54 2D 49 20 43 NT "YOU LOST-I C
0193C0: 4F 4E 51 55 45 52 45 44 20 59 4F 55 52 20 43 4F ONQUERED YOUR CO
0193D0: 55 4E 54 52 59 2E 20 20 49 54 20 53 45 52 56 45 UNTRY. IT SERVE
0193E0: 53 20 59 4F 55 22 0D 0A 32 30 31 36 20 50 52 49 S YOU"..2016 PRI
0193F0: 4E 54 20 22 52 49 47 48 54 20 46 4F 52 20 50 4C NT "RIGHT FOR PL
019400: 41 59 49 4E 47 20 54 48 49 53 20 53 54 55 50 49 AYING THIS STUPI
019410: 44 20 47 41 4D 45 21 21 21 22 0D 0A 32 30 32 30 D GAME!!!"..2020
019420: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
019430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0194A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0194B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0194C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0194D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0194E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0194F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019500: 52 49 4E 54 20 22 59 4F 55 20 44 45 53 54 52 4F RINT "YOU DESTRO
019510: 59 45 44 22 3B 49 4E 54 28 32 2A 45 2F 33 29 3B YED";INT(2*E/3);
019520: 22 4F 46 20 4D 59 20 41 52 4D 59 2E 22 0D 0A 32 "OF MY ARMY."..2
019530: 35 35 20 45 3D 49 4E 54 28 45 2F 33 29 0D 0A 32 55 E=INT(E/3)..2
019540: 36 30 20 47 4F 54 4F 20 35 30 30 0D 0A 32 37 30 60 GOTO 500..270
019550: 20 50 52 49 4E 54 20 22 59 4F 55 20 53 55 4E 4B PRINT "YOU SUNK
019560: 20 4F 4E 45 20 4F 46 20 4D 59 20 50 41 54 52 4F ONE OF MY PATRO
019570: 4C 20 42 4F 41 54 53 2C 20 42 55 54 20 49 20 57 L BOATS, BUT I W
019580: 49 50 45 44 20 4F 55 54 20 54 57 4F 22 0D 0A 32 IPED OUT TWO"..2
019590: 37 35 20 50 52 49 4E 54 20 22 4F 46 20 59 4F 55 75 PRINT "OF YOU
0195A0: 52 20 41 49 52 20 46 4F 52 43 45 20 42 41 53 45 R AIR FORCE BASE
0195B0: 53 20 41 4E 44 20 33 20 41 52 4D 59 20 42 41 53 S AND 3 ARMY BAS
0195C0: 45 53 2E 22 0D 0A 32 38 30 20 41 3D 49 4E 54 28 ES."..280 A=INT(
0195D0: 41 2F 33 29 0D 0A 32 38 35 20 43 3D 49 4E 54 28 A/3)..285 C=INT(
0195E0: 43 2F 33 29 0D 0A 32 39 30 20 45 3D 49 4E 54 28 C/3)..290 E=INT(
0195F0: 32 2A 45 2F 33 29 0D 0A 32 39 33 20 47 4F 54 4F 2*E/3)..293 GOTO
019600: 20 35 30 30 0D 0A 33 30 30 20 49 46 20 58 3E 43 500..300 IF X>C
019610: 20 54 48 45 4E 20 32 30 0D 0A 33 31 30 20 49 46 THEN 20..310 IF
019620: 20 58 3C 43 2F 33 20 54 48 45 4E 20 33 35 30 0D X<C/3 THEN 350.
019630: 0A 33 32 30 20 49 46 20 58 3C 32 2A 43 2F 33 20 .320 IF X<2*C/3
019640: 54 48 45 4E 20 33 37 30 0D 0A 33 33 30 20 47 4F THEN 370..330 GO
019650: 54 4F 20 33 38 30 0D 0A 33 35 30 20 50 52 49 4E TO 380..350 PRIN
019660: 54 20 22 59 4F 55 52 20 41 54 54 41 43 4B 20 57 T "YOUR ATTACK W
019670: 41 53 20 57 49 50 45 44 20 4F 55 54 2E 22 0D 0A AS WIPED OUT."..
019680: 33 35 35 20 43 3D 49 4E 54 28 43 2D 58 29 0D 0A 355 C=INT(C-X)..
019690: 33 36 30 20 47 4F 54 4F 20 35 30 30 0D 0A 33 37 360 GOTO 500..37
0196A0: 30 20 50 52 49 4E 54 20 22 57 45 20 48 41 44 20 0 PRINT "WE HAD
0196B0: 41 20 44 4F 47 46 49 47 48 54 2E 20 59 4F 55 20 A DOGFIGHT. YOU
0196C0: 57 4F 4E 20 2D 20 41 4E 44 20 46 49 4E 49 53 48 WON - AND FINISH
0196D0: 45 44 20 59 4F 55 52 20 4D 49 53 53 49 4F 4E 2E ED YOUR MISSION.
0196E0: 22 0D 0A 33 37 35 20 44 3D 49 4E 54 28 32 2A 44 "..375 D=INT(2*D
0196F0: 2F 33 29 0D 0A 33 37 37 20 45 3D 49 4E 54 28 45 /3)..377 E=INT(E
019700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0197A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0197B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0197C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0197D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0197E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0197F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0198A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0198B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0198C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0198D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0198E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0198F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
019900: 2F 33 29 0D 0A 33 37 38 20 46 3D 49 4E 54 28 46 /3)..378 F=INT(F
019910: 2F 33 29 0D 0A 33 37 39 20 47 4F 54 4F 20 35 30 /3)..379 GOTO 50
019920: 30 0D 0A 33 38 30 20 50 52 49 4E 54 20 22 59 4F 0..380 PRINT "YO
019930: 55 20 57 49 50 45 44 20 4F 55 54 20 4F 4E 45 20 U WIPED OUT ONE
019940: 4F 46 20 4D 59 20 41 52 4D 59 20 50 41 54 52 4F OF MY ARMY PATRO
019950: 4C 53 2C 20 42 55 54 20 49 20 44 45 53 54 52 4F LS, BUT I DESTRO
019960: 59 45 44 22 0D 0A 33 38 31 20 50 52 49 4E 54 20 YED"..381 PRINT
019970: 22 54 57 4F 20 4E 41 56 59 20 42 41 53 45 53 20 "TWO NAVY BASES
019980: 41 4E 44 20 42 4F 4D 42 45 44 20 54 48 52 45 45 AND BOMBED THREE
019990: 20 41 52 4D 59 20 42 41 53 45 53 2E 22 0D 0A 33 ARMY BASES."..3
0199A0: 38 35 20 41 3D 49 4E 54 28 41 2F 34 29 0D 0A 33 85 A=INT(A/4)..3
0199B0: 38 37 20 42 3D 49 4E 54 28 42 2F 33 29 0D 0A 33 87 B=INT(B/3)..3
0199C0: 39 30 20 44 3D 49 4E 54 28 32 2A 44 2F 33 29 0D 90 D=INT(2*D/3).
0199D0: 0A 35 30 30 20 50 52 49 4E 54 0D 0A 35 30 31 20 .500 PRINT..501
0199E0: 50 52 49 4E 54 2C 22 59 4F 55 22 2C 22 4D 45 22 PRINT,"YOU","ME"
0199F0: 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 41 52 4D ..510 PRINT "ARM
019A00: 59 22 2C 41 2C 44 0D 0A 35 32 30 20 50 52 49 4E Y",A,D..520 PRIN
019A10: 54 20 22 4E 41 56 59 22 2C 42 2C 45 0D 0A 35 33 T "NAVY",B,E..53
019A20: 30 20 50 52 49 4E 54 20 22 41 2E 20 46 2E 22 2C 0 PRINT "A. F.",
019A30: 43 2C 46 0D 0A 31 30 30 30 20 50 52 49 4E 54 20 C,F..1000 PRINT
019A40: 22 57 48 41 54 20 49 53 20 59 4F 55 52 20 4E 45 "WHAT IS YOUR NE
019A50: 58 54 20 4D 4F 56 45 3F 22 0D 0A 31 30 31 30 20 XT MOVE?"..1010
019A60: 50 52 49 4E 54 20 22 41 52 4D 59 3D 31 20 20 4E PRINT "ARMY=1 N
019A70: 41 56 59 3D 32 20 20 41 49 52 20 46 4F 52 43 45 AVY=2 AIR FORCE
019A80: 3D 33 22 0D 0A 31 30 32 30 20 49 4E 50 55 54 20 =3"..1020 INPUT
019A90: 47 0D 0A 31 30 33 30 20 50 52 49 4E 54 20 22 48 G..1030 PRINT "H
019AA0: 4F 57 20 4D 41 4E 59 20 4D 45 4E 22 0D 0A 31 30 OW MANY MEN"..10
019AB0: 34 30 20 49 4E 50 55 54 20 54 0D 0A 31 30 34 35 40 INPUT T..1045
019AC0: 20 49 46 20 54 3C 30 20 54 48 45 4E 20 31 30 33 IF T<0 THEN 103
019AD0: 30 0D 0A 31 30 35 30 20 4F 4E 20 47 20 47 4F 54 0..1050 ON G GOT
019AE0: 4F 20 31 36 30 30 2C 31 37 30 30 2C 31 38 30 30 O 1600,1700,1800
019AF0: 0D 0A 31 36 30 30 20 49 46 20 54 3E 41 20 54 48 ..1600 IF T>A TH
019B00: 35 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 5 PRINT TAB(33);
019B10: 22 43 52 41 50 53 22 0D 0A 31 30 20 50 52 49 4E "CRAPS"..10 PRIN
019B20: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
019B30: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
019B40: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
019B50: 45 52 53 45 59 22 0D 0A 31 32 20 50 52 49 4E 54 ERSEY"..12 PRINT
019B60: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 35 :PRINT:PRINT..15
019B70: 20 4C 45 54 20 52 3D 30 0D 0A 32 30 20 50 52 49 LET R=0..20 PRI
019B80: 4E 54 22 32 2C 33 2C 31 32 20 41 52 45 20 4C 4F NT"2,3,12 ARE LO
019B90: 53 45 52 53 3B 20 34 2C 35 2C 36 2C 38 2C 39 2C SERS; 4,5,6,8,9,
019BA0: 31 30 20 41 52 45 20 50 4F 49 4E 54 53 3B 20 37 10 ARE POINTS; 7
019BB0: 2C 31 31 20 41 52 45 20 4E 41 54 55 52 41 4C 20 ,11 ARE NATURAL
019BC0: 57 49 4E 4E 45 52 53 2E 22 0D 0A 32 31 20 4C 45 WINNERS."..21 LE
019BD0: 54 20 54 3D 31 0D 0A 32 32 20 50 52 49 4E 54 20 T T=1..22 PRINT
019BE0: 22 50 49 43 4B 20 41 20 4E 55 4D 42 45 52 20 41 "PICK A NUMBER A
019BF0: 4E 44 20 49 4E 50 55 54 20 54 4F 20 52 4F 4C 4C ND INPUT TO ROLL
019C00: 20 44 49 43 45 22 3B 0D 0A 32 33 20 49 4E 50 55 DICE";..23 INPU
019C10: 54 20 5A 0D 0A 32 34 20 4C 45 54 20 58 3D 28 52 T Z..24 LET X=(R
019C20: 4E 44 28 30 29 29 0D 0A 32 35 20 4C 45 54 20 54 ND(0))..25 LET T
019C30: 20 3D 54 2B 31 0D 0A 32 36 20 49 46 20 54 3C 3D =T+1..26 IF T<=
019C40: 5A 20 54 48 45 4E 20 32 34 0D 0A 32 37 20 50 52 Z THEN 24..27 PR
019C50: 49 4E 54 22 49 4E 50 55 54 20 54 48 45 20 41 4D INT"INPUT THE AM
019C60: 4F 55 4E 54 20 4F 46 20 59 4F 55 52 20 57 41 47 OUNT OF YOUR WAG
019C70: 45 52 2E 22 3B 0D 0A 32 38 20 49 4E 50 55 54 20 ER.";..28 INPUT
019C80: 46 0D 0A 33 30 20 50 52 49 4E 54 20 22 49 20 57 F..30 PRINT "I W
019C90: 49 4C 4C 20 4E 4F 57 20 54 48 52 4F 57 20 54 48 ILL NOW THROW TH
019CA0: 45 20 44 49 43 45 22 0D 0A 34 30 20 4C 45 54 20 E DICE"..40 LET
019CB0: 45 3D 49 4E 54 28 37 2A 52 4E 44 28 31 29 29 0D E=INT(7*RND(1)).
019CC0: 0A 34 31 20 4C 45 54 20 53 3D 49 4E 54 28 37 2A .41 LET S=INT(7*
019CD0: 52 4E 44 28 31 29 29 0D 0A 34 32 20 4C 45 54 20 RND(1))..42 LET
019CE0: 58 3D 45 2B 53 0D 0A 35 30 20 49 46 20 58 3D 37 X=E+S..50 IF X=7
019CF0: 20 54 48 45 4E 20 31 38 30 20 0D 0A 35 35 20 49 THEN 180 ..55 I
019D00: 45 4E 20 31 30 33 30 0D 0A 31 36 31 30 20 49 46 EN 1030..1610 IF
019D10: 20 54 3C 44 2F 32 20 54 48 45 4E 20 31 36 33 30 T<D/2 THEN 1630
019D20: 0D 0A 31 36 31 35 20 50 52 49 4E 54 20 22 59 4F ..1615 PRINT "YO
019D30: 55 20 44 45 53 54 52 4F 59 45 44 20 4D 59 20 41 U DESTROYED MY A
019D40: 52 4D 59 21 22 0D 0A 31 36 31 36 20 44 3D 30 0D RMY!"..1616 D=0.
019D50: 0A 31 36 31 37 20 47 4F 54 4F 20 32 30 30 30 0D .1617 GOTO 2000.
019D60: 0A 31 36 33 30 20 50 52 49 4E 54 20 22 49 20 57 .1630 PRINT "I W
019D70: 49 50 45 44 20 4F 55 54 20 59 4F 55 52 20 41 54 IPED OUT YOUR AT
019D80: 54 41 43 4B 21 22 0D 0A 31 36 33 35 20 41 3D 41 TACK!"..1635 A=A
019D90: 2D 54 0D 0A 31 36 34 30 20 47 4F 54 4F 20 32 30 -T..1640 GOTO 20
019DA0: 30 30 0D 0A 31 37 30 30 20 49 46 20 54 3E 42 20 00..1700 IF T>B
019DB0: 54 48 45 4E 20 31 30 33 30 20 0D 0A 31 37 31 30 THEN 1030 ..1710
019DC0: 20 49 46 20 54 3C 45 2F 32 20 54 48 45 4E 20 31 IF T<E/2 THEN 1
019DD0: 37 35 30 0D 0A 31 37 32 30 20 47 4F 54 4F 20 31 750..1720 GOTO 1
019DE0: 37 37 30 0D 0A 31 37 35 30 20 50 52 49 4E 54 20 770..1750 PRINT
019DF0: 22 49 20 53 55 4E 4B 20 54 57 4F 20 4F 46 20 59 "I SUNK TWO OF Y
019E00: 4F 55 52 20 42 41 54 54 4C 45 53 48 49 50 53 2C OUR BATTLESHIPS,
019E10: 20 41 4E 44 20 4D 59 20 41 49 52 20 46 4F 52 43 AND MY AIR FORC
019E20: 45 22 0D 0A 31 37 35 31 20 50 52 49 4E 54 20 22 E"..1751 PRINT "
019E30: 57 49 50 45 44 20 4F 55 54 20 59 4F 55 52 20 55 WIPED OUT YOUR U
019E40: 4E 47 41 55 52 44 45 44 20 43 41 50 49 54 4F 4C NGAURDED CAPITOL
019E50: 2E 22 0D 0A 31 37 35 35 20 41 3D 41 2F 34 0D 0A ."..1755 A=A/4..
019E60: 31 37 36 30 20 42 3D 42 2F 32 0D 0A 31 37 36 35 1760 B=B/2..1765
019E70: 20 47 4F 54 4F 20 32 30 30 30 0D 0A 31 37 37 30 GOTO 2000..1770
019E80: 20 50 52 49 4E 54 20 22 59 4F 55 52 20 4E 41 56 PRINT "YOUR NAV
019E90: 59 20 53 48 4F 54 20 44 4F 57 4E 20 54 48 52 45 Y SHOT DOWN THRE
019EA0: 45 20 4F 46 20 4D 59 20 58 49 49 49 20 50 4C 41 E OF MY XIII PLA
019EB0: 4E 45 53 2C 22 0D 0A 31 37 37 31 20 50 52 49 4E NES,"..1771 PRIN
019EC0: 54 20 22 41 4E 44 20 53 55 4E 4B 20 54 48 52 45 T "AND SUNK THRE
019ED0: 45 20 42 41 54 54 4C 45 53 48 49 50 53 2E 22 0D E BATTLESHIPS.".
019EE0: 0A 31 37 37 35 20 46 3D 32 2A 46 2F 33 0D 0A 31 .1775 F=2*F/3..1
019EF0: 37 38 30 20 45 3D 28 45 2F 32 29 0D 0A 31 37 39 780 E=(E/2)..179
019F00: 46 20 58 3D 31 31 20 54 48 45 4E 20 31 38 30 0D F X=11 THEN 180.
019F10: 0A 36 30 20 49 46 20 58 3D 31 20 54 48 45 4E 20 .60 IF X=1 THEN
019F20: 34 30 0D 0A 36 32 20 49 46 20 58 3D 32 20 54 48 40..62 IF X=2 TH
019F30: 45 4E 20 31 39 35 0D 0A 36 35 20 49 46 20 58 3D EN 195..65 IF X=
019F40: 30 20 54 48 45 4E 20 34 30 0D 0A 37 30 20 49 46 0 THEN 40..70 IF
019F50: 20 58 3D 32 20 54 48 45 4E 20 32 30 30 0D 0A 38 X=2 THEN 200..8
019F60: 30 20 49 46 20 58 3D 33 20 54 48 45 4E 20 32 30 0 IF X=3 THEN 20
019F70: 30 0D 0A 39 30 20 49 46 20 58 3D 31 32 20 54 48 0..90 IF X=12 TH
019F80: 45 4E 20 32 30 30 0D 0A 31 32 35 20 49 46 20 58 EN 200..125 IF X
019F90: 3D 35 20 54 48 45 4E 20 32 32 30 0D 0A 31 33 30 =5 THEN 220..130
019FA0: 20 49 46 20 58 20 3D 36 20 54 48 45 4E 20 32 32 IF X =6 THEN 22
019FB0: 30 0D 0A 31 34 30 20 49 46 20 58 3D 38 20 54 48 0..140 IF X=8 TH
019FC0: 45 4E 20 32 32 30 0D 0A 31 35 30 20 49 46 20 58 EN 220..150 IF X
019FD0: 3D 39 20 54 48 45 4E 20 32 32 30 0D 0A 31 36 30 =9 THEN 220..160
019FE0: 20 49 46 20 58 20 3D 31 30 20 54 48 45 4E 20 32 IF X =10 THEN 2
019FF0: 32 30 0D 0A 31 37 30 20 49 46 20 58 3D 34 20 54 20..170 IF X=4 T
01A000: 48 45 4E 20 32 32 30 0D 0A 31 38 30 20 50 52 49 HEN 220..180 PRI
01A010: 4E 54 20 58 20 22 2D 20 4E 41 54 55 52 41 4C 2E NT X "- NATURAL.
01A020: 2E 2E 2E 41 20 57 49 4E 4E 45 52 21 21 21 21 22 ...A WINNER!!!!"
01A030: 0D 0A 31 38 35 20 50 52 49 4E 54 20 58 22 50 41 ..185 PRINT X"PA
01A040: 59 53 20 45 56 45 4E 20 4D 4F 4E 45 59 2C 20 59 YS EVEN MONEY, Y
01A050: 4F 55 20 57 49 4E 22 46 22 44 4F 4C 4C 41 52 53 OU WIN"F"DOLLARS
01A060: 22 0D 0A 31 39 30 20 47 4F 54 4F 20 32 31 30 0D "..190 GOTO 210.
01A070: 0A 31 39 35 20 50 52 49 4E 54 20 58 22 2D 20 53 .195 PRINT X"- S
01A080: 4E 41 4B 45 20 45 59 45 53 2E 2E 2E 2E 59 4F 55 NAKE EYES....YOU
01A090: 20 4C 4F 53 45 2E 22 0D 0A 31 39 36 20 50 52 49 LOSE."..196 PRI
01A0A0: 4E 54 20 22 59 4F 55 20 4C 4F 53 45 22 46 20 22 NT "YOU LOSE"F "
01A0B0: 44 4F 4C 4C 41 52 53 2E 22 0D 0A 31 39 37 20 4C DOLLARS."..197 L
01A0C0: 45 54 20 46 3D 30 2D 46 0D 0A 31 39 38 20 47 4F ET F=0-F..198 GO
01A0D0: 54 4F 20 32 31 30 0D 0A 32 30 30 20 50 52 49 4E TO 210..200 PRIN
01A0E0: 54 20 58 20 22 20 2D 20 43 52 41 50 53 2E 2E 2E T X " - CRAPS...
01A0F0: 59 4F 55 20 4C 4F 53 45 2E 22 0D 0A 32 30 35 20 YOU LOSE."..205
01A100: 30 20 47 4F 54 4F 20 32 30 30 30 0D 0A 31 38 30 0 GOTO 2000..180
01A110: 30 20 49 46 20 54 3E 43 20 54 48 45 4E 20 31 30 0 IF T>C THEN 10
01A120: 33 30 20 0D 0A 31 38 31 30 20 49 46 20 54 3E 46 30 ..1810 IF T>F
01A130: 2F 32 20 54 48 45 4E 20 31 38 33 30 20 0D 0A 31 /2 THEN 1830 ..1
01A140: 38 32 30 20 47 4F 54 4F 20 31 38 35 30 0D 0A 31 820 GOTO 1850..1
01A150: 38 33 30 20 50 52 49 4E 54 20 22 4D 59 20 4E 41 830 PRINT "MY NA
01A160: 56 59 20 41 4E 44 20 41 49 52 20 46 4F 52 43 45 VY AND AIR FORCE
01A170: 20 49 4E 20 41 20 43 4F 4D 42 49 4E 45 44 20 41 IN A COMBINED A
01A180: 54 54 41 43 4B 20 4C 45 46 54 22 0D 0A 31 38 33 TTACK LEFT"..183
01A190: 31 20 50 52 49 4E 54 20 22 59 4F 55 52 20 43 4F 1 PRINT "YOUR CO
01A1A0: 55 4E 54 52 59 20 49 4E 20 53 48 41 4D 42 4C 45 UNTRY IN SHAMBLE
01A1B0: 53 2E 22 0D 0A 31 38 33 35 20 41 3D 41 2F 33 0D S."..1835 A=A/3.
01A1C0: 0A 31 38 33 37 20 42 3D 42 2F 33 0D 0A 31 38 34 .1837 B=B/3..184
01A1D0: 30 20 43 3D 43 2F 33 0D 0A 31 38 34 35 20 47 4F 0 C=C/3..1845 GO
01A1E0: 54 4F 20 32 30 30 30 0D 0A 31 38 35 30 20 50 52 TO 2000..1850 PR
01A1F0: 49 4E 54 20 22 4F 4E 45 20 4F 46 20 59 4F 55 52 INT "ONE OF YOUR
01A200: 20 50 4C 41 4E 45 53 20 43 52 41 53 48 45 44 20 PLANES CRASHED
01A210: 49 4E 54 4F 20 4D 59 20 48 4F 55 53 45 2E 20 49 INTO MY HOUSE. I
01A220: 20 41 4D 20 44 45 41 44 2E 22 0D 0A 31 38 35 31 AM DEAD."..1851
01A230: 20 50 52 49 4E 54 20 22 4D 59 20 43 4F 55 4E 54 PRINT "MY COUNT
01A240: 52 59 20 46 45 4C 4C 20 41 50 41 52 54 2E 22 0D RY FELL APART.".
01A250: 0A 31 38 36 30 20 47 4F 54 4F 20 32 30 31 30 0D .1860 GOTO 2010.
01A260: 0A 32 30 30 30 20 50 52 49 4E 54 0D 0A 32 30 30 .2000 PRINT..200
01A270: 31 20 50 52 49 4E 54 20 22 46 52 4F 4D 20 54 48 1 PRINT "FROM TH
01A280: 45 20 52 45 53 55 4C 54 53 20 4F 46 20 42 4F 54 E RESULTS OF BOT
01A290: 48 20 4F 46 20 59 4F 55 52 20 41 54 54 41 43 4B H OF YOUR ATTACK
01A2A0: 53 2C 22 0D 0A 32 30 30 32 20 49 46 20 41 2B 42 S,"..2002 IF A+B
01A2B0: 2B 43 3E 33 2F 32 2A 28 44 2B 45 2B 46 29 20 54 +C>3/2*(D+E+F) T
01A2C0: 48 45 4E 20 32 30 31 30 0D 0A 32 30 30 35 20 49 HEN 2010..2005 I
01A2D0: 46 20 41 2B 42 2B 43 3C 32 2F 33 2A 28 44 2B 45 F A+B+C<2/3*(D+E
01A2E0: 2B 46 29 20 54 48 45 4E 20 32 30 31 35 0D 0A 32 +F) THEN 2015..2
01A2F0: 30 30 36 20 50 52 49 4E 54 20 22 54 48 45 20 54 006 PRINT "THE T
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 00 00 02 09 52 E5 16 00 C1 02 00 00 00 02 ......R.........
01A320: 16 00 C6 02 00 00 00 02 16 00 C2 02 00 00 00 02 ................
01A330: 16 00 C7 02 00 00 00 02 16 00 C3 02 00 00 00 02 ................
01A340: 16 00 C8 02 00 00 00 02 16 00 C4 02 00 00 00 02 ................
01A350: 16 00 C9 02 00 00 00 02 16 00 C5 02 00 00 00 02 ................
01A360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A400: 50 52 49 4E 54 20 22 59 4F 55 20 4C 4F 53 45 22 PRINT "YOU LOSE"
01A410: 46 22 44 4F 4C 4C 41 52 53 2E 22 0D 0A 32 30 36 F"DOLLARS."..206
01A420: 20 4C 45 54 20 46 3D 30 2D 46 0D 0A 32 31 30 20 LET F=0-F..210
01A430: 4C 45 54 20 52 3D 20 52 2B 46 0D 0A 32 31 31 20 LET R= R+F..211
01A440: 47 4F 54 4F 20 33 32 30 0D 0A 32 32 30 20 50 52 GOTO 320..220 PR
01A450: 49 4E 54 20 58 20 22 49 53 20 54 48 45 20 50 4F INT X "IS THE PO
01A460: 49 4E 54 2E 20 49 20 57 49 4C 4C 20 52 4F 4C 4C INT. I WILL ROLL
01A470: 20 41 47 41 49 4E 22 0D 0A 32 33 30 20 4C 45 54 AGAIN"..230 LET
01A480: 20 48 3D 49 4E 54 28 37 2A 52 4E 44 28 31 29 29 H=INT(7*RND(1))
01A490: 0D 0A 32 33 31 20 4C 45 54 20 51 3D 49 4E 54 28 ..231 LET Q=INT(
01A4A0: 37 2A 52 4E 44 28 31 29 29 0D 0A 32 33 32 20 4C 7*RND(1))..232 L
01A4B0: 45 54 20 4F 3D 48 2B 51 0D 0A 32 34 30 20 49 46 ET O=H+Q..240 IF
01A4C0: 20 4F 3D 31 20 54 48 45 4E 20 32 33 30 0D 0A 32 O=1 THEN 230..2
01A4D0: 35 30 20 49 46 20 4F 3D 37 20 54 48 45 4E 20 32 50 IF O=7 THEN 2
01A4E0: 39 30 0D 0A 32 35 35 20 49 46 20 4F 3D 30 20 54 90..255 IF O=0 T
01A4F0: 48 45 4E 20 32 33 30 0D 0A 32 36 30 20 49 46 20 HEN 230..260 IF
01A500: 4F 3D 58 20 54 48 45 4E 20 33 31 30 0D 0A 32 37 O=X THEN 310..27
01A510: 30 20 50 52 49 4E 54 20 4F 20 22 20 2D 20 4E 4F 0 PRINT O " - NO
01A520: 20 50 4F 49 4E 54 2E 20 49 20 57 49 4C 4C 20 52 POINT. I WILL R
01A530: 4F 4C 4C 20 41 47 41 49 4E 22 0D 0A 32 38 30 20 OLL AGAIN"..280
01A540: 47 4F 54 4F 20 32 33 30 0D 0A 32 39 30 20 50 52 GOTO 230..290 PR
01A550: 49 4E 54 20 4F 20 22 2D 20 43 52 41 50 53 2E 20 INT O "- CRAPS.
01A560: 59 4F 55 20 4C 4F 53 45 2E 22 0D 0A 32 39 31 20 YOU LOSE."..291
01A570: 50 52 49 4E 54 20 22 59 4F 55 20 4C 4F 53 45 20 PRINT "YOU LOSE
01A580: 24 22 46 0D 0A 32 39 32 20 46 3D 30 2D 46 0D 0A $"F..292 F=0-F..
01A590: 32 39 33 20 47 4F 54 4F 20 32 31 30 0D 0A 33 30 293 GOTO 210..30
01A5A0: 30 20 47 4F 54 4F 20 33 32 30 0D 0A 33 31 30 20 0 GOTO 320..310
01A5B0: 50 52 49 4E 54 20 58 22 2D 20 41 20 57 49 4E 4E PRINT X"- A WINN
01A5C0: 45 52 2E 2E 2E 2E 2E 2E 2E 2E 2E 43 4F 4E 47 52 ER.........CONGR
01A5D0: 41 54 53 21 21 21 21 21 21 21 21 22 0D 0A 33 31 ATS!!!!!!!!"..31
01A5E0: 31 20 50 52 49 4E 54 20 58 20 22 41 54 20 32 20 1 PRINT X "AT 2
01A5F0: 54 4F 20 31 20 4F 44 44 53 20 50 41 59 53 20 59 TO 1 ODDS PAYS Y
01A600: 54 49 43 41 4C 4C 59 20 41 54 20 4C 4F 43 41 54 TICALLY AT LOCAT
01A610: 49 4F 4E 20 31 2C 31 2C 31 2E 20 54 48 45 20 4F ION 1,1,1. THE O
01A620: 42 4A 45 43 54 20 4F 46 22 0D 0A 31 38 30 20 50 BJECT OF"..180 P
01A630: 52 49 4E 54 22 54 48 45 20 47 41 4D 45 20 49 53 RINT"THE GAME IS
01A640: 20 54 4F 20 47 45 54 20 54 4F 20 4C 4F 43 41 54 TO GET TO LOCAT
01A650: 49 4F 4E 20 33 2C 33 2C 33 2E 20 4F 4E 45 20 4D ION 3,3,3. ONE M
01A660: 49 4E 4F 52 20 44 45 54 41 49 4C 3A 22 0D 0A 31 INOR DETAIL:"..1
01A670: 39 30 20 50 52 49 4E 54 22 54 48 45 20 43 4F 4D 90 PRINT"THE COM
01A680: 50 55 54 45 52 20 57 49 4C 4C 20 50 49 43 4B 2C PUTER WILL PICK,
01A690: 20 41 54 20 52 41 4E 44 4F 4D 2C 20 35 20 4C 4F AT RANDOM, 5 LO
01A6A0: 43 41 54 49 4F 4E 53 20 41 54 20 57 48 49 43 48 CATIONS AT WHICH
01A6B0: 22 0D 0A 32 30 30 20 50 52 49 4E 54 22 49 54 20 "..200 PRINT"IT
01A6C0: 57 49 4C 4C 20 50 4C 41 4E 54 20 4C 41 4E 44 20 WILL PLANT LAND
01A6D0: 4D 49 4E 45 53 2E 20 49 46 20 59 4F 55 20 48 49 MINES. IF YOU HI
01A6E0: 54 20 4F 4E 45 20 4F 46 20 54 48 45 53 45 20 4C T ONE OF THESE L
01A6F0: 4F 43 41 54 49 4F 4E 53 22 0D 0A 32 31 30 20 50 OCATIONS"..210 P
01A700: 52 49 4E 54 22 59 4F 55 20 4C 4F 53 45 2E 20 4F RINT"YOU LOSE. O
01A710: 4E 45 20 4F 54 48 45 52 20 44 45 54 41 49 4C 3A NE OTHER DETAIL:
01A720: 20 59 4F 55 20 4D 41 59 20 4D 4F 56 45 20 4F 4E YOU MAY MOVE ON
01A730: 4C 59 20 4F 4E 45 20 53 50 41 43 45 20 22 0D 0A LY ONE SPACE "..
01A740: 32 32 30 20 50 52 49 4E 54 22 49 4E 20 4F 4E 45 220 PRINT"IN ONE
01A750: 20 44 49 52 45 43 54 49 4F 4E 20 45 41 43 48 20 DIRECTION EACH
01A760: 4D 4F 56 45 2E 20 46 4F 52 20 20 45 58 41 4D 50 MOVE. FOR EXAMP
01A770: 4C 45 3A 20 46 52 4F 4D 20 31 2C 31 2C 32 20 59 LE: FROM 1,1,2 Y
01A780: 4F 55 22 0D 0A 32 33 30 20 50 52 49 4E 54 22 4D OU"..230 PRINT"M
01A790: 41 59 20 4D 4F 56 45 20 54 4F 20 32 2C 31 2C 32 AY MOVE TO 2,1,2
01A7A0: 20 4F 52 20 31 2C 31 2C 33 2E 20 59 4F 55 20 4D OR 1,1,3. YOU M
01A7B0: 41 59 20 4E 4F 54 20 43 48 41 4E 47 45 22 0D 0A AY NOT CHANGE"..
01A7C0: 32 34 30 20 50 52 49 4E 54 22 54 57 4F 20 4F 46 240 PRINT"TWO OF
01A7D0: 20 54 48 45 20 4E 55 4D 42 45 52 53 20 4F 4E 20 THE NUMBERS ON
01A7E0: 54 48 45 20 53 41 4D 45 20 4D 4F 56 45 2E 20 49 THE SAME MOVE. I
01A7F0: 46 20 59 4F 55 20 4D 41 4B 45 20 41 4E 20 49 4C F YOU MAKE AN IL
01A800: 4F 55 2E 2E 2E 4C 45 54 20 4D 45 20 53 45 45 2E OU...LET ME SEE.
01A810: 2E 2E 22 32 2A 46 22 44 4F 4C 4C 41 52 53 22 0D .."2*F"DOLLARS".
01A820: 0A 33 31 32 20 4C 45 54 20 46 3D 32 2A 46 0D 0A .312 LET F=2*F..
01A830: 33 31 33 20 47 4F 54 4F 20 32 31 30 0D 0A 33 32 313 GOTO 210..32
01A840: 30 20 50 52 49 4E 54 20 22 20 49 46 20 59 4F 55 0 PRINT " IF YOU
01A850: 20 57 41 4E 54 20 54 4F 20 50 4C 41 59 20 41 47 WANT TO PLAY AG
01A860: 41 49 4E 20 50 52 49 4E 54 20 35 20 49 46 20 4E AIN PRINT 5 IF N
01A870: 4F 54 20 50 52 49 4E 54 20 32 22 3B 0D 0A 33 33 OT PRINT 2";..33
01A880: 30 20 49 4E 50 55 54 20 4D 0D 0A 33 33 31 20 49 0 INPUT M..331 I
01A890: 46 20 52 3C 30 20 54 48 45 4E 20 33 33 34 0D 0A F R<0 THEN 334..
01A8A0: 33 33 32 20 49 46 20 52 3E 30 20 54 48 45 4E 20 332 IF R>0 THEN
01A8B0: 33 33 36 0D 0A 33 33 33 20 49 46 20 52 3D 30 20 336..333 IF R=0
01A8C0: 54 48 45 4E 20 33 33 38 0D 0A 33 33 34 20 50 52 THEN 338..334 PR
01A8D0: 49 4E 54 20 22 59 4F 55 20 41 52 45 20 4E 4F 57 INT "YOU ARE NOW
01A8E0: 20 55 4E 44 45 52 20 24 22 3B 2D 52 0D 0A 33 33 UNDER $";-R..33
01A8F0: 35 20 47 4F 54 4F 20 33 34 30 0D 0A 33 33 36 20 5 GOTO 340..336
01A900: 50 52 49 4E 54 20 22 59 4F 55 20 41 52 45 20 4E PRINT "YOU ARE N
01A910: 4F 57 20 41 48 45 41 44 20 24 22 3B 52 0D 0A 33 OW AHEAD $";R..3
01A920: 33 37 20 47 4F 54 4F 20 33 34 30 0D 0A 33 33 38 37 GOTO 340..338
01A930: 20 50 52 49 4E 54 20 22 59 4F 55 20 41 52 45 20 PRINT "YOU ARE
01A940: 4E 4F 57 20 45 56 45 4E 20 41 54 20 30 22 0D 0A NOW EVEN AT 0"..
01A950: 33 34 30 20 49 46 20 4D 3D 35 20 54 48 45 4E 20 340 IF M=5 THEN
01A960: 32 37 0D 0A 33 34 31 20 49 46 20 52 3C 30 20 54 27..341 IF R<0 T
01A970: 48 45 4E 20 33 35 30 0D 0A 33 34 32 20 49 46 20 HEN 350..342 IF
01A980: 52 3E 30 20 54 48 45 4E 20 33 35 33 0D 0A 33 34 R>0 THEN 353..34
01A990: 33 20 49 46 20 52 3D 30 20 54 48 45 4E 20 33 35 3 IF R=0 THEN 35
01A9A0: 35 0D 0A 33 35 30 20 50 52 49 4E 54 22 54 4F 4F 5..350 PRINT"TOO
01A9B0: 20 42 41 44 2C 20 59 4F 55 20 41 52 45 20 49 4E BAD, YOU ARE IN
01A9C0: 20 54 48 45 20 48 4F 4C 45 2E 20 43 4F 4D 45 20 THE HOLE. COME
01A9D0: 41 47 41 49 4E 2E 22 0D 0A 33 35 31 20 47 4F 54 AGAIN."..351 GOT
01A9E0: 4F 20 33 36 30 0D 0A 33 35 33 20 50 52 49 4E 54 O 360..353 PRINT
01A9F0: 22 43 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 "CONGRATULATIONS
01AA00: 4C 45 47 41 4C 22 0D 0A 32 35 30 20 50 52 49 4E LEGAL"..250 PRIN
01AA10: 54 22 4D 4F 56 45 2C 20 59 4F 55 20 4C 4F 53 45 T"MOVE, YOU LOSE
01AA20: 20 41 4E 44 20 54 48 45 20 43 4F 4D 50 55 54 45 AND THE COMPUTE
01AA30: 52 20 54 41 4B 45 53 20 54 48 45 20 4D 4F 4E 45 R TAKES THE MONE
01AA40: 59 20 59 4F 55 20 4D 41 59 22 0D 0A 32 36 30 20 Y YOU MAY"..260
01AA50: 50 52 49 4E 54 22 48 41 56 45 20 42 45 54 20 4F PRINT"HAVE BET O
01AA60: 4E 20 54 48 41 54 20 52 4F 55 4E 44 2E 22 0D 0A N THAT ROUND."..
01AA70: 32 37 30 20 50 52 49 4E 54 0D 0A 32 38 30 20 50 270 PRINT..280 P
01AA80: 52 49 4E 54 0D 0A 32 39 30 20 50 52 49 4E 54 22 RINT..290 PRINT"
01AA90: 41 4C 4C 20 59 45 53 20 4F 52 20 4E 4F 20 51 55 ALL YES OR NO QU
01AAA0: 45 53 54 49 4F 4E 53 20 57 49 4C 4C 20 42 45 20 ESTIONS WILL BE
01AAB0: 41 4E 53 57 45 52 45 44 20 42 59 20 41 20 31 20 ANSWERED BY A 1
01AAC0: 46 4F 52 20 59 45 53 22 0D 0A 33 30 30 20 50 52 FOR YES"..300 PR
01AAD0: 49 4E 54 22 4F 52 20 41 20 30 20 28 5A 45 52 4F INT"OR A 0 (ZERO
01AAE0: 29 20 46 4F 52 20 4E 4F 2E 22 0D 0A 33 31 30 20 ) FOR NO."..310
01AAF0: 50 52 49 4E 54 0D 0A 33 32 30 20 50 52 49 4E 54 PRINT..320 PRINT
01AB00: 22 57 48 45 4E 20 53 54 41 54 49 4E 47 20 54 48 "WHEN STATING TH
01AB10: 45 20 41 4D 4F 55 4E 54 20 4F 46 20 41 20 57 41 E AMOUNT OF A WA
01AB20: 47 45 52 2C 20 50 52 49 4E 54 20 4F 4E 4C 59 20 GER, PRINT ONLY
01AB30: 54 48 45 20 4E 55 4D 42 45 52 22 0D 0A 33 33 30 THE NUMBER"..330
01AB40: 20 50 52 49 4E 54 22 4F 46 20 44 4F 4C 4C 41 52 PRINT"OF DOLLAR
01AB50: 53 20 28 45 58 41 4D 50 4C 45 3A 20 32 35 30 29 S (EXAMPLE: 250)
01AB60: 20 20 59 4F 55 20 41 52 45 20 41 55 54 4F 4D 41 YOU ARE AUTOMA
01AB70: 54 49 43 41 4C 4C 59 20 53 54 41 52 54 45 44 20 TICALLY STARTED
01AB80: 57 49 54 48 22 0D 0A 33 34 30 20 50 52 49 4E 54 WITH"..340 PRINT
01AB90: 22 35 30 30 20 44 4F 4C 4C 41 52 53 20 49 4E 20 "500 DOLLARS IN
01ABA0: 59 4F 55 52 20 41 43 43 4F 55 4E 54 2E 22 0D 0A YOUR ACCOUNT."..
01ABB0: 33 35 30 20 50 52 49 4E 54 0D 0A 33 36 30 20 50 350 PRINT..360 P
01ABC0: 52 49 4E 54 20 22 47 4F 4F 44 20 4C 55 43 4B 21 RINT "GOOD LUCK!
01ABD0: 22 0D 0A 33 37 30 20 4C 45 54 20 41 31 3D 35 30 "..370 LET A1=50
01ABE0: 30 0D 0A 33 38 30 20 4C 45 54 20 41 3D 49 4E 54 0..380 LET A=INT
01ABF0: 28 33 2A 28 52 4E 44 28 58 29 29 29 0D 0A 33 39 (3*(RND(X)))..39
01AC00: 2D 2D 2D 59 4F 55 20 43 41 4D 45 20 4F 55 54 20 ---YOU CAME OUT
01AC10: 41 20 57 49 4E 4E 45 52 2E 20 43 4F 4D 45 20 41 A WINNER. COME A
01AC20: 47 41 49 4E 21 22 0D 0A 33 35 34 20 47 4F 54 4F GAIN!"..354 GOTO
01AC30: 20 33 36 30 0D 0A 33 35 35 20 50 52 49 4E 54 22 360..355 PRINT"
01AC40: 43 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 2D CONGRATULATIONS-
01AC50: 2D 2D 59 4F 55 20 43 41 4D 45 20 4F 55 54 20 45 --YOU CAME OUT E
01AC60: 56 45 4E 2C 20 4E 4F 54 20 42 41 44 20 46 4F 52 VEN, NOT BAD FOR
01AC70: 20 41 4E 20 41 4D 41 54 45 55 52 22 0D 0A 33 36 AN AMATEUR"..36
01AC80: 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 0 END...........
01AC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ACA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ACB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ACC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ACD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ACE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ACF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ADA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ADB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ADC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ADD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ADE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ADF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01AE00: 30 20 49 46 20 41 3C 3E 30 20 54 48 45 4E 20 34 0 IF A<>0 THEN 4
01AE10: 31 30 0D 0A 34 30 30 20 4C 45 54 20 41 3D 33 0D 10..400 LET A=3.
01AE20: 0A 34 31 30 20 4C 45 54 20 42 3D 49 4E 54 28 33 .410 LET B=INT(3
01AE30: 2A 28 52 4E 44 28 58 29 29 29 0D 0A 34 32 30 20 *(RND(X)))..420
01AE40: 49 46 20 42 3C 3E 30 20 54 48 45 4E 20 34 34 30 IF B<>0 THEN 440
01AE50: 0D 0A 34 33 30 20 4C 45 54 20 42 3D 32 0D 0A 34 ..430 LET B=2..4
01AE60: 34 30 20 4C 45 54 20 43 3D 49 4E 54 28 33 2A 28 40 LET C=INT(3*(
01AE70: 52 4E 44 28 58 29 29 29 0D 0A 34 35 30 20 49 46 RND(X)))..450 IF
01AE80: 20 43 3C 3E 30 20 54 48 45 4E 20 34 37 30 0D 0A C<>0 THEN 470..
01AE90: 34 36 30 20 4C 45 54 20 43 3D 33 0D 0A 34 37 30 460 LET C=3..470
01AEA0: 20 4C 45 54 20 44 3D 49 4E 54 28 33 2A 28 52 4E LET D=INT(3*(RN
01AEB0: 44 28 58 29 29 29 0D 0A 34 38 30 20 49 46 20 44 D(X)))..480 IF D
01AEC0: 3C 3E 30 20 54 48 45 4E 20 35 30 30 0D 0A 34 39 <>0 THEN 500..49
01AED0: 30 20 4C 45 54 20 44 3D 31 0D 0A 35 30 30 20 4C 0 LET D=1..500 L
01AEE0: 45 54 20 45 3D 49 4E 54 28 33 2A 28 52 4E 44 28 ET E=INT(3*(RND(
01AEF0: 58 29 29 29 0D 0A 35 31 30 20 49 46 20 45 3C 3E X)))..510 IF E<>
01AF00: 30 20 54 48 45 4E 20 35 33 30 0D 0A 35 32 30 20 0 THEN 530..520
01AF10: 4C 45 54 20 45 3D 33 0D 0A 35 33 30 20 4C 45 54 LET E=3..530 LET
01AF20: 20 46 3D 49 4E 54 28 33 2A 28 52 4E 44 28 58 29 F=INT(3*(RND(X)
01AF30: 29 29 0D 0A 35 34 30 20 49 46 20 46 3C 3E 30 20 ))..540 IF F<>0
01AF40: 54 48 45 4E 20 35 36 30 0D 0A 35 35 30 20 4C 45 THEN 560..550 LE
01AF50: 54 20 46 3D 33 0D 0A 35 36 30 20 4C 45 54 20 47 T F=3..560 LET G
01AF60: 3D 49 4E 54 28 33 2A 28 52 4E 44 28 58 29 29 29 =INT(3*(RND(X)))
01AF70: 0D 0A 35 37 30 20 49 46 20 47 3C 3E 30 20 54 48 ..570 IF G<>0 TH
01AF80: 45 4E 20 35 39 30 0D 0A 35 38 30 20 4C 45 54 20 EN 590..580 LET
01AF90: 47 3D 33 0D 0A 35 39 30 20 4C 45 54 20 48 3D 49 G=3..590 LET H=I
01AFA0: 4E 54 28 33 2A 28 52 4E 44 28 58 29 29 29 0D 0A NT(3*(RND(X)))..
01AFB0: 36 30 30 20 49 46 20 48 3C 3E 30 20 54 48 45 4E 600 IF H<>0 THEN
01AFC0: 20 36 32 30 0D 0A 36 31 30 20 4C 45 54 20 48 3D 620..610 LET H=
01AFD0: 33 0D 0A 36 32 30 20 4C 45 54 20 49 3D 49 4E 54 3..620 LET I=INT
01AFE0: 28 33 2A 28 52 4E 44 28 58 29 29 29 0D 0A 36 33 (3*(RND(X)))..63
01AFF0: 30 20 49 46 20 49 3C 3E 30 20 54 48 45 4E 20 36 0 IF I<>0 THEN 6
01B000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B0A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B0B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B0C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B0D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B0E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B0F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01B200: 35 30 0D 0A 36 34 30 20 4C 45 54 20 49 3D 32 0D 50..640 LET I=2.
01B210: 0A 36 35 30 20 4C 45 54 20 4A 3D 49 4E 54 28 33 .650 LET J=INT(3
01B220: 2A 28 52 4E 44 28 58 29 29 29 0D 0A 36 36 30 20 *(RND(X)))..660
01B230: 49 46 20 4A 3C 3E 30 20 54 48 45 4E 20 36 38 30 IF J<>0 THEN 680
01B240: 0D 0A 36 37 30 20 4C 45 54 20 4A 3D 33 0D 0A 36 ..670 LET J=3..6
01B250: 38 30 20 4C 45 54 20 4B 3D 49 4E 54 28 33 2A 28 80 LET K=INT(3*(
01B260: 52 4E 44 28 58 29 29 29 0D 0A 36 39 30 20 49 46 RND(X)))..690 IF
01B270: 20 4B 3C 3E 30 20 54 48 45 4E 20 37 31 30 0D 0A K<>0 THEN 710..
01B280: 37 30 30 20 4C 45 54 20 4B 3D 32 0D 0A 37 31 30 700 LET K=2..710
01B290: 20 4C 45 54 20 4C 3D 49 4E 54 28 33 2A 28 52 4E LET L=INT(3*(RN
01B2A0: 44 28 58 29 29 29 0D 0A 37 32 30 20 49 46 20 4C D(X)))..720 IF L
01B2B0: 3C 3E 30 20 54 48 45 4E 20 37 34 30 0D 0A 37 33 <>0 THEN 740..73
01B2C0: 30 20 4C 45 54 20 4C 3D 33 0D 0A 37 34 30 20 4C 0 LET L=3..740 L
01B2D0: 45 54 20 4D 3D 49 4E 54 28 33 2A 28 52 4E 44 28 ET M=INT(3*(RND(
01B2E0: 58 29 29 29 0D 0A 37 35 30 20 49 46 20 4D 3C 3E X)))..750 IF M<>
01B2F0: 30 20 54 48 45 4E 20 37 37 30 0D 0A 37 36 30 20 0 THEN 770..760
01B300: 4C 45 54 20 4D 3D 33 0D 0A 37 37 30 20 4C 45 54 LET M=3..770 LET
01B310: 20 4E 3D 49 4E 54 28 33 2A 28 52 4E 44 28 58 29 N=INT(3*(RND(X)
01B320: 29 29 0D 0A 37 38 30 20 49 46 20 4E 3C 3E 30 20 ))..780 IF N<>0
01B330: 54 48 45 4E 20 38 30 30 0D 0A 37 39 30 20 4C 45 THEN 800..790 LE
01B340: 54 20 4E 3D 31 0D 0A 38 30 30 20 4C 45 54 20 4F T N=1..800 LET O
01B350: 3D 49 4E 54 20 28 33 2A 28 52 4E 44 28 58 29 29 =INT (3*(RND(X))
01B360: 29 0D 0A 38 31 30 20 49 46 20 4F 20 3C 3E 30 20 )..810 IF O <>0
01B370: 54 48 45 4E 20 38 33 30 0D 0A 38 32 30 20 4C 45 THEN 830..820 LE
01B380: 54 20 4F 3D 33 0D 0A 38 33 30 20 50 52 49 4E 54 T O=3..830 PRINT
01B390: 20 22 57 41 4E 54 20 54 4F 20 4D 41 4B 45 20 41 "WANT TO MAKE A
01B3A0: 20 57 41 47 45 52 3F 22 0D 0A 38 34 30 20 49 4E WAGER?"..840 IN
01B3B0: 50 55 54 20 5A 0D 0A 38 35 30 20 49 46 20 5A 3D PUT Z..850 IF Z=
01B3C0: 30 20 54 48 45 4E 20 39 32 30 0D 0A 38 36 30 20 0 THEN 920..860
01B3D0: 50 52 49 4E 54 20 22 48 4F 57 20 4D 55 43 48 20 PRINT "HOW MUCH
01B3E0: 22 3B 0D 0A 38 37 30 20 49 4E 50 55 54 20 5A 31 ";..870 INPUT Z1
01B3F0: 0D 0A 38 37 36 20 49 46 20 41 31 3C 5A 31 20 54 ..876 IF A1<Z1 T
01B400: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 10 PRINT TAB(34)
01B410: 3B 22 43 55 42 45 22 0D 0A 32 30 20 50 52 49 4E ;"CUBE"..20 PRIN
01B420: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
01B430: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
01B440: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
01B450: 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E 54 ERSEY"..30 PRINT
01B460: 20 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 : PRINT : PRINT
01B470: 0D 0A 31 30 30 20 50 52 49 4E 54 20 22 44 4F 20 ..100 PRINT "DO
01B480: 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 45 45 20 YOU WANT TO SEE
01B490: 54 48 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 THE INSTRUCTIONS
01B4A0: 3F 20 28 59 45 53 2D 2D 31 2C 4E 4F 2D 2D 30 29 ? (YES--1,NO--0)
01B4B0: 22 0D 0A 31 31 30 20 49 4E 50 55 54 20 42 37 0D "..110 INPUT B7.
01B4C0: 0A 31 32 30 20 49 46 20 42 37 3D 30 20 54 48 45 .120 IF B7=0 THE
01B4D0: 4E 20 33 37 30 0D 0A 31 33 30 20 50 52 49 4E 54 N 370..130 PRINT
01B4E0: 22 54 48 49 53 20 49 53 20 41 20 47 41 4D 45 20 "THIS IS A GAME
01B4F0: 49 4E 20 57 48 49 43 48 20 59 4F 55 20 57 49 4C IN WHICH YOU WIL
01B500: 4C 20 42 45 20 50 4C 41 59 49 4E 47 20 41 47 41 L BE PLAYING AGA
01B510: 49 4E 53 54 20 54 48 45 22 0D 0A 31 34 30 20 50 INST THE"..140 P
01B520: 52 49 4E 54 22 52 41 4E 44 4F 4D 20 44 45 43 49 RINT"RANDOM DECI
01B530: 53 49 4F 4E 20 4F 46 20 54 48 45 20 43 4F 4D 50 SION OF THE COMP
01B540: 55 54 45 52 2E 20 54 48 45 20 46 49 45 4C 44 20 UTER. THE FIELD
01B550: 4F 46 20 50 4C 41 59 20 49 53 20 41 22 0D 0A 31 OF PLAY IS A"..1
01B560: 35 30 20 50 52 49 4E 54 22 43 55 42 45 20 4F 46 50 PRINT"CUBE OF
01B570: 20 53 49 44 45 20 33 2E 20 41 4E 59 20 4F 46 20 SIDE 3. ANY OF
01B580: 54 48 45 20 32 37 20 4C 4F 43 41 54 49 4F 4E 53 THE 27 LOCATIONS
01B590: 20 43 41 4E 20 42 45 20 44 45 53 49 47 4E 41 54 CAN BE DESIGNAT
01B5A0: 45 44 22 0D 0A 31 36 30 20 50 52 49 4E 54 22 42 ED"..160 PRINT"B
01B5B0: 59 20 49 4E 50 55 54 49 4E 47 20 54 48 52 45 45 Y INPUTING THREE
01B5C0: 20 4E 55 4D 42 45 52 53 20 53 55 43 48 20 41 53 NUMBERS SUCH AS
01B5D0: 20 32 2C 33 2C 31 2E 20 41 54 20 54 48 45 20 53 2,3,1. AT THE S
01B5E0: 54 41 52 54 2C 22 0D 0A 31 37 30 20 50 52 49 4E TART,"..170 PRIN
01B5F0: 54 22 59 4F 55 20 41 52 45 20 41 55 54 4F 4D 41 T"YOU ARE AUTOMA
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 00 00 02 09 52 E5 17 00 C1 02 00 00 00 02 ......R.........
01B620: 17 00 C6 02 00 00 00 02 17 00 C2 02 00 00 00 02 ................
01B630: 17 00 C7 02 00 00 00 02 17 00 C3 02 00 00 00 02 ................
01B640: 17 00 C8 02 00 00 00 02 17 00 C4 02 00 00 00 02 ................
01B650: 17 00 C9 02 00 00 00 02 17 00 C5 02 00 00 00 02 ................
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: 48 45 4E 20 31 35 32 32 0D 0A 38 38 30 20 4C 45 HEN 1522..880 LE
01B710: 54 20 57 3D 31 0D 0A 38 39 30 20 4C 45 54 20 58 T W=1..890 LET X
01B720: 3D 31 0D 0A 39 30 30 20 4C 45 54 20 59 3D 31 0D =1..900 LET Y=1.
01B730: 0A 39 31 30 20 50 52 49 4E 54 0D 0A 39 32 30 20 .910 PRINT..920
01B740: 50 52 49 4E 54 20 22 49 54 27 53 20 59 4F 55 52 PRINT "IT'S YOUR
01B750: 20 4D 4F 56 45 3A 20 20 22 3B 0D 0A 39 33 30 20 MOVE: ";..930
01B760: 49 4E 50 55 54 20 50 2C 51 2C 52 0D 0A 39 34 30 INPUT P,Q,R..940
01B770: 20 49 46 20 50 3E 57 2B 31 20 54 48 45 4E 20 31 IF P>W+1 THEN 1
01B780: 30 33 30 0D 0A 39 35 30 20 49 46 20 50 3D 57 2B 030..950 IF P=W+
01B790: 31 20 54 48 45 4E 20 31 30 30 30 0D 0A 39 36 30 1 THEN 1000..960
01B7A0: 20 49 46 20 51 3E 58 2B 31 20 54 48 45 4E 20 31 IF Q>X+1 THEN 1
01B7B0: 30 33 30 0D 0A 39 37 30 20 49 46 20 51 3D 28 58 030..970 IF Q=(X
01B7C0: 2B 31 29 20 54 48 45 4E 20 31 30 31 30 0D 0A 39 +1) THEN 1010..9
01B7D0: 38 30 20 49 46 20 52 20 3E 28 59 2B 31 29 20 20 80 IF R >(Y+1)
01B7E0: 54 48 45 4E 20 31 30 33 30 0D 0A 39 39 30 20 47 THEN 1030..990 G
01B7F0: 4F 54 4F 20 31 30 35 30 0D 0A 31 30 30 30 20 49 OTO 1050..1000 I
01B800: 46 20 51 3E 3D 20 58 2B 31 20 54 48 45 4E 20 31 F Q>= X+1 THEN 1
01B810: 30 33 30 0D 0A 31 30 31 30 20 49 46 20 52 3E 3D 030..1010 IF R>=
01B820: 59 2B 31 20 54 48 45 4E 20 31 30 33 30 0D 0A 31 Y+1 THEN 1030..1
01B830: 30 32 30 20 47 4F 54 4F 20 31 30 35 30 0D 0A 31 020 GOTO 1050..1
01B840: 30 33 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 030 PRINT:PRINT
01B850: 22 49 4C 4C 45 47 41 4C 20 4D 4F 56 45 2E 20 59 "ILLEGAL MOVE. Y
01B860: 4F 55 20 4C 4F 53 45 2E 22 0D 0A 31 30 34 30 20 OU LOSE."..1040
01B870: 47 4F 54 4F 20 31 34 34 30 0D 0A 31 30 35 30 20 GOTO 1440..1050
01B880: 4C 45 54 20 57 3D 50 0D 0A 31 30 36 30 20 4C 45 LET W=P..1060 LE
01B890: 54 20 58 3D 51 0D 0A 31 30 37 30 20 4C 45 54 20 T X=Q..1070 LET
01B8A0: 59 3D 52 0D 0A 31 30 38 30 20 49 46 20 50 3D 33 Y=R..1080 IF P=3
01B8B0: 20 54 48 45 4E 20 31 31 30 30 0D 0A 31 30 39 30 THEN 1100..1090
01B8C0: 20 47 4F 54 4F 20 31 31 33 30 0D 0A 31 31 30 30 GOTO 1130..1100
01B8D0: 20 49 46 20 20 51 3D 33 20 54 48 45 4E 20 31 31 IF Q=3 THEN 11
01B8E0: 32 30 0D 0A 31 31 31 30 20 47 4F 54 4F 20 31 31 20..1110 GOTO 11
01B8F0: 33 30 0D 0A 31 31 32 30 20 49 46 20 52 3D 33 20 30..1120 IF R=3
01B900: 32 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 3B 2 PRINT TAB(30);
01B910: 22 44 45 50 54 48 20 43 48 41 52 47 45 22 0D 0A "DEPTH CHARGE"..
01B920: 34 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 4 PRINT TAB(15);
01B930: 22 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 "CREATIVE COMPUT
01B940: 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C ING MORRISTOWN,
01B950: 20 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 36 20 NEW JERSEY"..6
01B960: 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 PRINT: PRINT: PR
01B970: 49 4E 54 0D 0A 32 30 20 49 4E 50 55 54 20 22 44 INT..20 INPUT "D
01B980: 49 4D 45 4E 53 49 4F 4E 20 4F 46 20 53 45 41 52 IMENSION OF SEAR
01B990: 43 48 20 41 52 45 41 22 3B 47 3A 20 50 52 49 4E CH AREA";G: PRIN
01B9A0: 54 0D 0A 33 30 20 4E 3D 49 4E 54 28 4C 4F 47 28 T..30 N=INT(LOG(
01B9B0: 47 29 2F 4C 4F 47 28 32 29 29 2B 31 0D 0A 34 30 G)/LOG(2))+1..40
01B9C0: 20 50 52 49 4E 54 20 22 59 4F 55 20 41 52 45 20 PRINT "YOU ARE
01B9D0: 54 48 45 20 43 41 50 54 41 49 4E 20 4F 46 20 54 THE CAPTAIN OF T
01B9E0: 48 45 20 44 45 53 54 52 4F 59 45 52 20 55 53 53 HE DESTROYER USS
01B9F0: 20 43 4F 4D 50 55 54 45 52 22 0D 0A 35 30 20 50 COMPUTER"..50 P
01BA00: 52 49 4E 54 20 22 41 4E 20 45 4E 45 4D 59 20 53 RINT "AN ENEMY S
01BA10: 55 42 20 48 41 53 20 42 45 45 4E 20 43 41 55 53 UB HAS BEEN CAUS
01BA20: 49 4E 47 20 59 4F 55 20 54 52 4F 55 42 4C 45 2E ING YOU TROUBLE.
01BA30: 20 20 59 4F 55 52 22 0D 0A 36 30 20 50 52 49 4E YOUR"..60 PRIN
01BA40: 54 20 22 4D 49 53 53 49 4F 4E 20 49 53 20 54 4F T "MISSION IS TO
01BA50: 20 44 45 53 54 52 4F 59 20 49 54 2E 20 20 59 4F DESTROY IT. YO
01BA60: 55 20 48 41 56 45 22 3B 4E 3B 22 53 48 4F 54 53 U HAVE";N;"SHOTS
01BA70: 2E 22 0D 0A 37 30 20 50 52 49 4E 54 20 22 53 50 ."..70 PRINT "SP
01BA80: 45 43 49 46 59 20 44 45 50 54 48 20 43 48 41 52 ECIFY DEPTH CHAR
01BA90: 47 45 20 45 58 50 4C 4F 53 49 4F 4E 20 50 4F 49 GE EXPLOSION POI
01BAA0: 4E 54 20 57 49 54 48 20 41 22 0D 0A 38 30 20 50 NT WITH A"..80 P
01BAB0: 52 49 4E 54 20 22 54 52 49 4F 20 4F 46 20 4E 55 RINT "TRIO OF NU
01BAC0: 4D 42 45 52 53 20 2D 2D 20 54 48 45 20 46 49 52 MBERS -- THE FIR
01BAD0: 53 54 20 54 57 4F 20 41 52 45 20 54 48 45 22 0D ST TWO ARE THE".
01BAE0: 0A 39 30 20 50 52 49 4E 54 20 22 53 55 52 46 41 .90 PRINT "SURFA
01BAF0: 43 45 20 43 4F 4F 52 44 49 4E 41 54 45 53 3B 20 CE COORDINATES;
01BB00: 54 48 45 4E 20 31 35 33 30 0D 0A 31 31 33 30 20 THEN 1530..1130
01BB10: 49 46 20 50 3D 41 20 54 48 45 4E 20 31 31 35 30 IF P=A THEN 1150
01BB20: 0D 0A 31 31 34 30 20 47 4F 54 4F 20 31 31 38 30 ..1140 GOTO 1180
01BB30: 0D 0A 31 31 35 30 20 49 46 20 51 3D 42 20 54 48 ..1150 IF Q=B TH
01BB40: 45 4E 20 31 31 37 30 0D 0A 31 31 36 30 20 47 4F EN 1170..1160 GO
01BB50: 54 4F 20 31 31 38 30 0D 0A 31 31 37 30 20 49 46 TO 1180..1170 IF
01BB60: 20 52 3D 43 20 54 48 45 4E 20 31 34 30 30 0D 0A R=C THEN 1400..
01BB70: 31 31 38 30 20 49 46 20 50 3D 44 20 54 48 45 4E 1180 IF P=D THEN
01BB80: 20 31 32 30 30 0D 0A 31 31 39 30 20 47 4F 54 4F 1200..1190 GOTO
01BB90: 20 31 32 33 30 0D 0A 31 32 30 30 20 49 46 20 51 1230..1200 IF Q
01BBA0: 3D 45 20 54 48 45 4E 20 31 32 32 30 0D 0A 31 32 =E THEN 1220..12
01BBB0: 31 30 20 47 4F 54 4F 20 31 32 33 30 0D 0A 31 32 10 GOTO 1230..12
01BBC0: 32 30 20 49 46 20 20 52 3D 46 20 54 48 45 4E 20 20 IF R=F THEN
01BBD0: 31 34 30 30 0D 0A 31 32 33 30 20 49 46 20 50 3D 1400..1230 IF P=
01BBE0: 47 20 54 48 45 4E 20 31 32 35 30 0D 0A 31 32 34 G THEN 1250..124
01BBF0: 30 20 47 4F 54 4F 20 31 32 38 30 0D 0A 31 32 35 0 GOTO 1280..125
01BC00: 30 20 49 46 20 51 3D 48 20 54 48 45 4E 20 31 32 0 IF Q=H THEN 12
01BC10: 37 30 0D 0A 31 32 36 30 20 47 4F 54 4F 20 31 32 70..1260 GOTO 12
01BC20: 38 30 0D 0A 31 32 37 30 20 49 46 20 52 3D 49 20 80..1270 IF R=I
01BC30: 54 48 45 4E 20 31 34 30 30 0D 0A 31 32 38 30 20 THEN 1400..1280
01BC40: 49 46 20 50 3D 4A 20 54 48 45 4E 20 31 33 30 30 IF P=J THEN 1300
01BC50: 0D 0A 31 32 39 30 20 47 4F 54 4F 20 31 33 33 30 ..1290 GOTO 1330
01BC60: 0D 0A 31 33 30 30 20 49 46 20 51 3D 4B 20 54 48 ..1300 IF Q=K TH
01BC70: 45 4E 20 31 33 32 30 0D 0A 31 33 31 30 20 47 4F EN 1320..1310 GO
01BC80: 54 4F 20 31 33 33 30 0D 0A 31 33 32 30 20 49 46 TO 1330..1320 IF
01BC90: 20 52 3D 4C 20 54 48 45 4E 20 31 34 34 30 0D 0A R=L THEN 1440..
01BCA0: 31 33 33 30 20 49 46 20 50 3D 4D 20 54 48 45 4E 1330 IF P=M THEN
01BCB0: 20 31 33 35 30 0D 0A 31 33 34 30 20 47 4F 54 4F 1350..1340 GOTO
01BCC0: 20 31 33 38 30 0D 0A 31 33 35 30 20 49 46 20 51 1380..1350 IF Q
01BCD0: 3D 4E 20 54 48 45 4E 20 31 33 37 30 0D 0A 31 33 =N THEN 1370..13
01BCE0: 36 30 20 47 4F 54 4F 20 31 33 38 30 0D 0A 31 33 60 GOTO 1380..13
01BCF0: 37 30 20 49 46 20 52 3D 4F 20 54 48 45 4E 20 31 70 IF R=O THEN 1
01BD00: 54 48 45 20 54 48 49 52 44 20 49 53 20 54 48 45 THE THIRD IS THE
01BD10: 20 44 45 50 54 48 2E 22 0D 0A 31 30 30 20 50 52 DEPTH."..100 PR
01BD20: 49 4E 54 20 3A 20 50 52 49 4E 54 20 22 47 4F 4F INT : PRINT "GOO
01BD30: 44 20 4C 55 43 4B 20 21 22 3A 20 50 52 49 4E 54 D LUCK !": PRINT
01BD40: 0D 0A 31 31 30 20 41 3D 49 4E 54 28 47 2A 52 4E ..110 A=INT(G*RN
01BD50: 44 28 31 29 29 20 3A 20 42 3D 49 4E 54 28 47 2A D(1)) : B=INT(G*
01BD60: 52 4E 44 28 31 29 29 20 3A 20 43 3D 49 4E 54 28 RND(1)) : C=INT(
01BD70: 47 2A 52 4E 44 28 31 29 29 0D 0A 31 32 30 20 46 G*RND(1))..120 F
01BD80: 4F 52 20 44 3D 31 20 54 4F 20 4E 20 3A 20 50 52 OR D=1 TO N : PR
01BD90: 49 4E 54 20 3A 20 50 52 49 4E 54 20 22 54 52 49 INT : PRINT "TRI
01BDA0: 41 4C 20 23 22 3B 44 3B 20 3A 20 49 4E 50 55 54 AL #";D; : INPUT
01BDB0: 20 58 2C 59 2C 5A 0D 0A 31 33 30 20 49 46 20 41 X,Y,Z..130 IF A
01BDC0: 42 53 28 58 2D 41 29 2B 41 42 53 28 59 2D 42 29 BS(X-A)+ABS(Y-B)
01BDD0: 2B 41 42 53 28 5A 2D 43 29 3D 30 20 54 48 45 4E +ABS(Z-C)=0 THEN
01BDE0: 20 33 30 30 0D 0A 31 34 30 20 47 4F 53 55 42 20 300..140 GOSUB
01BDF0: 35 30 30 20 3A 20 50 52 49 4E 54 20 3A 20 4E 45 500 : PRINT : NE
01BE00: 58 54 20 44 0D 0A 32 30 30 20 50 52 49 4E 54 20 XT D..200 PRINT
01BE10: 3A 20 50 52 49 4E 54 20 22 59 4F 55 20 48 41 56 : PRINT "YOU HAV
01BE20: 45 20 42 45 45 4E 20 54 4F 52 50 45 44 4F 45 44 E BEEN TORPEDOED
01BE30: 21 20 20 41 42 41 4E 44 4F 4E 20 53 48 49 50 21 ! ABANDON SHIP!
01BE40: 22 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 54 48 "..210 PRINT "TH
01BE50: 45 20 53 55 42 4D 41 52 49 4E 45 20 57 41 53 20 E SUBMARINE WAS
01BE60: 41 54 22 3B 41 3B 22 2C 22 3B 42 3B 22 2C 22 3B AT";A;",";B;",";
01BE70: 43 20 3A 20 47 4F 54 4F 20 34 30 30 0D 0A 33 30 C : GOTO 400..30
01BE80: 30 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 20 0 PRINT : PRINT
01BE90: 22 42 20 4F 20 4F 20 4D 20 21 20 21 20 59 4F 55 "B O O M ! ! YOU
01BEA0: 20 46 4F 55 4E 44 20 49 54 20 49 4E 22 3B 44 3B FOUND IT IN";D;
01BEB0: 22 54 52 49 45 53 21 22 0D 0A 34 30 30 20 50 52 "TRIES!"..400 PR
01BEC0: 49 4E 54 20 3A 20 50 52 49 4E 54 3A 20 49 4E 50 INT : PRINT: INP
01BED0: 55 54 20 22 41 4E 4F 54 48 45 52 20 47 41 4D 45 UT "ANOTHER GAME
01BEE0: 20 28 59 20 4F 52 20 4E 29 22 3B 41 24 0D 0A 34 (Y OR N)";A$..4
01BEF0: 31 30 20 49 46 20 41 24 3D 22 59 22 20 54 48 45 10 IF A$="Y" THE
01BF00: 34 30 30 0D 0A 31 33 38 30 20 50 52 49 4E 54 20 400..1380 PRINT
01BF10: 22 4E 45 58 54 20 4D 4F 56 45 3A 20 22 3B 0D 0A "NEXT MOVE: ";..
01BF20: 31 33 39 30 20 47 4F 54 4F 20 39 33 30 20 0D 0A 1390 GOTO 930 ..
01BF30: 31 34 30 30 20 50 52 49 4E 54 22 2A 2A 2A 2A 2A 1400 PRINT"*****
01BF40: 2A 42 41 4E 47 2A 2A 2A 2A 2A 2A 22 0D 0A 31 34 *BANG******"..14
01BF50: 31 30 20 50 52 49 4E 54 20 22 59 4F 55 20 4C 4F 10 PRINT "YOU LO
01BF60: 53 45 21 22 0D 0A 31 34 32 30 20 50 52 49 4E 54 SE!"..1420 PRINT
01BF70: 0D 0A 31 34 33 30 20 50 52 49 4E 54 0D 0A 31 34 ..1430 PRINT..14
01BF80: 34 30 20 49 46 20 20 20 5A 3D 30 20 54 48 45 4E 40 IF Z=0 THEN
01BF90: 20 31 35 38 30 0D 0A 31 34 35 30 20 50 52 49 4E 1580..1450 PRIN
01BFA0: 54 20 0D 0A 31 34 36 30 20 4C 45 54 20 5A 32 3D T ..1460 LET Z2=
01BFB0: 41 31 2D 5A 31 0D 0A 31 34 37 30 20 49 46 20 5A A1-Z1..1470 IF Z
01BFC0: 32 3E 30 20 54 48 45 4E 20 31 35 30 30 0D 0A 31 2>0 THEN 1500..1
01BFD0: 34 38 30 20 50 52 49 4E 54 20 22 59 4F 55 20 42 480 PRINT "YOU B
01BFE0: 55 53 54 2E 22 0D 0A 31 34 39 30 20 47 4F 54 4F UST."..1490 GOTO
01BFF0: 20 31 36 31 30 0D 0A 31 35 30 30 20 50 52 49 4E 1610..1500 PRIN
01C000: 54 20 22 20 59 4F 55 20 4E 4F 57 20 48 41 56 45 T " YOU NOW HAVE
01C010: 22 3B 20 5A 32 3B 20 22 44 4F 4C 4C 41 52 53 2E "; Z2; "DOLLARS.
01C020: 22 0D 0A 31 35 31 30 20 4C 45 54 20 41 31 3D 5A "..1510 LET A1=Z
01C030: 32 0D 0A 31 35 32 30 20 47 4F 54 4F 20 31 35 38 2..1520 GOTO 158
01C040: 30 0D 0A 31 35 32 32 20 50 52 49 4E 54 22 54 52 0..1522 PRINT"TR
01C050: 49 45 44 20 54 4F 20 46 4F 4F 4C 20 4D 45 3B 20 IED TO FOOL ME;
01C060: 42 45 54 20 41 47 41 49 4E 22 3B 0D 0A 31 35 32 BET AGAIN";..152
01C070: 35 20 47 4F 54 4F 20 38 37 30 0D 0A 31 35 33 30 5 GOTO 870..1530
01C080: 20 50 52 49 4E 54 22 43 4F 4E 47 52 41 54 55 4C PRINT"CONGRATUL
01C090: 41 54 49 4F 4E 53 21 22 0D 0A 31 35 34 30 20 49 ATIONS!"..1540 I
01C0A0: 46 20 5A 3D 30 20 54 48 45 4E 20 31 35 38 30 0D F Z=0 THEN 1580.
01C0B0: 0A 31 35 35 30 20 4C 45 54 20 5A 32 3D 41 31 2B .1550 LET Z2=A1+
01C0C0: 5A 31 0D 0A 31 35 36 30 20 50 52 49 4E 54 20 22 Z1..1560 PRINT "
01C0D0: 59 4F 55 20 4E 4F 57 20 48 41 56 45 22 3B 20 5A YOU NOW HAVE"; Z
01C0E0: 32 3B 22 44 4F 4C 4C 41 52 53 2E 22 0D 0A 31 35 2;"DOLLARS."..15
01C0F0: 37 30 20 4C 45 54 20 41 31 3D 5A 32 0D 0A 31 35 70 LET A1=Z2..15
01C100: 4E 20 31 30 30 0D 0A 34 32 30 20 50 52 49 4E 54 N 100..420 PRINT
01C110: 20 22 4F 4B 2E 20 20 48 4F 50 45 20 59 4F 55 20 "OK. HOPE YOU
01C120: 45 4E 4A 4F 59 45 44 20 59 4F 55 52 53 45 4C 46 ENJOYED YOURSELF
01C130: 2E 22 20 3A 20 47 4F 54 4F 20 36 30 30 0D 0A 35 ." : GOTO 600..5
01C140: 30 30 20 50 52 49 4E 54 20 22 53 4F 4E 41 52 20 00 PRINT "SONAR
01C150: 52 45 50 4F 52 54 53 20 53 48 4F 54 20 57 41 53 REPORTS SHOT WAS
01C160: 20 22 3B 0D 0A 35 31 30 20 49 46 20 59 3E 42 20 ";..510 IF Y>B
01C170: 54 48 45 4E 20 50 52 49 4E 54 20 22 4E 4F 52 54 THEN PRINT "NORT
01C180: 48 22 3B 0D 0A 35 32 30 20 49 46 20 59 3C 42 20 H";..520 IF Y<B
01C190: 54 48 45 4E 20 50 52 49 4E 54 20 22 53 4F 55 54 THEN PRINT "SOUT
01C1A0: 48 22 3B 0D 0A 35 33 30 20 49 46 20 58 3E 41 20 H";..530 IF X>A
01C1B0: 54 48 45 4E 20 50 52 49 4E 54 20 22 45 41 53 54 THEN PRINT "EAST
01C1C0: 22 3B 0D 0A 35 34 30 20 49 46 20 58 3C 41 20 54 ";..540 IF X<A T
01C1D0: 48 45 4E 20 50 52 49 4E 54 20 22 57 45 53 54 22 HEN PRINT "WEST"
01C1E0: 3B 0D 0A 35 35 30 20 49 46 20 59 3C 3E 42 20 4F ;..550 IF Y<>B O
01C1F0: 52 20 58 3C 3E 41 20 54 48 45 4E 20 50 52 49 4E R X<>A THEN PRIN
01C200: 54 20 22 20 41 4E 44 22 3B 0D 0A 35 36 30 20 49 T " AND";..560 I
01C210: 46 20 5A 3E 43 20 54 48 45 4E 20 50 52 49 4E 54 F Z>C THEN PRINT
01C220: 20 22 20 54 4F 4F 20 4C 4F 57 2E 22 0D 0A 35 37 " TOO LOW."..57
01C230: 30 20 49 46 20 5A 3C 43 20 54 48 45 4E 20 50 52 0 IF Z<C THEN PR
01C240: 49 4E 54 20 22 20 54 4F 4F 20 48 49 47 48 2E 22 INT " TOO HIGH."
01C250: 0D 0A 35 38 30 20 49 46 20 5A 3D 43 20 54 48 45 ..580 IF Z=C THE
01C260: 4E 20 50 52 49 4E 54 20 22 20 44 45 50 54 48 20 N PRINT " DEPTH
01C270: 4F 4B 2E 22 0D 0A 35 39 30 20 52 45 54 55 52 4E OK."..590 RETURN
01C280: 0D 0A 36 30 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 ..600 END.......
01C290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C300: 38 30 20 50 52 49 4E 54 22 44 4F 20 59 4F 55 20 80 PRINT"DO YOU
01C310: 57 41 4E 54 20 54 4F 20 54 52 59 20 41 47 41 49 WANT TO TRY AGAI
01C320: 4E 20 22 3B 0D 0A 31 35 39 30 20 49 4E 50 55 54 N ";..1590 INPUT
01C330: 20 53 0D 0A 31 36 30 30 20 49 46 20 53 3D 31 20 S..1600 IF S=1
01C340: 54 48 45 4E 20 33 38 30 0D 0A 31 36 31 30 20 50 THEN 380..1610 P
01C350: 52 49 4E 54 20 22 54 4F 55 47 48 20 4C 55 43 4B RINT "TOUGH LUCK
01C360: 21 22 0D 0A 31 36 32 30 20 50 52 49 4E 54 0D 0A !"..1620 PRINT..
01C370: 31 36 33 30 20 50 52 49 4E 54 20 22 47 4F 4F 44 1630 PRINT "GOOD
01C380: 42 59 45 2E 22 0D 0A 31 36 34 30 20 45 4E 44 0D BYE."..1640 END.
01C390: 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 00 00 02 09 52 E5 18 00 C1 02 00 00 00 02 ......R.........
01C920: 18 00 C6 02 00 00 00 02 18 00 C2 02 00 00 00 02 ................
01C930: 18 00 C7 02 00 00 00 02 18 00 C3 02 00 00 00 02 ................
01C940: 18 00 C8 02 00 00 00 02 18 00 C4 02 00 00 00 02 ................
01C950: 18 00 C9 02 00 00 00 02 18 00 C5 02 00 00 00 02 ................
01C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01CA00: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
01CA10: 22 44 49 41 4D 4F 4E 44 22 0D 0A 32 20 50 52 49 "DIAMOND"..2 PRI
01CA20: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
01CA30: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
01CA40: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
01CA50: 4A 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 JERSEY"..3 PRINT
01CA60: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 :PRINT:PRINT..4
01CA70: 50 52 49 4E 54 20 22 46 4F 52 20 41 20 50 52 45 PRINT "FOR A PRE
01CA80: 54 54 59 20 44 49 41 4D 4F 4E 44 20 50 41 54 54 TTY DIAMOND PATT
01CA90: 45 52 4E 2C 22 0D 0A 35 20 49 4E 50 55 54 20 22 ERN,"..5 INPUT "
01CAA0: 54 59 50 45 20 49 4E 20 41 4E 20 4F 44 44 20 4E TYPE IN AN ODD N
01CAB0: 55 4D 42 45 52 20 42 45 54 57 45 45 4E 20 35 20 UMBER BETWEEN 5
01CAC0: 41 4E 44 20 32 31 22 3B 52 3A 50 52 49 4E 54 0D AND 21";R:PRINT.
01CAD0: 0A 36 20 51 3D 49 4E 54 28 36 30 2F 52 29 3A 41 .6 Q=INT(60/R):A
01CAE0: 24 3D 22 43 43 22 0D 0A 38 20 46 4F 52 20 4C 3D $="CC"..8 FOR L=
01CAF0: 31 20 54 4F 20 51 0D 0A 31 30 20 58 3D 31 3A 59 1 TO Q..10 X=1:Y
01CB00: 3D 52 3A 5A 3D 32 0D 0A 32 30 20 46 4F 52 20 4E =R:Z=2..20 FOR N
01CB10: 3D 58 20 54 4F 20 59 20 53 54 45 50 20 5A 0D 0A =X TO Y STEP Z..
01CB20: 32 35 20 50 52 49 4E 54 20 54 41 42 28 28 52 2D 25 PRINT TAB((R-
01CB30: 4E 29 2F 32 29 3B 0D 0A 32 38 20 46 4F 52 20 4D N)/2);..28 FOR M
01CB40: 3D 31 20 54 4F 20 51 0D 0A 32 39 20 43 3D 31 0D =1 TO Q..29 C=1.
01CB50: 0A 33 30 20 46 4F 52 20 41 3D 31 20 54 4F 20 4E .30 FOR A=1 TO N
01CB60: 0D 0A 33 32 20 49 46 20 43 3E 4C 45 4E 28 41 24 ..32 IF C>LEN(A$
01CB70: 29 20 54 48 45 4E 20 50 52 49 4E 54 20 22 21 22 ) THEN PRINT "!"
01CB80: 3B 3A 47 4F 54 4F 20 35 30 0D 0A 33 34 20 50 52 ;:GOTO 50..34 PR
01CB90: 49 4E 54 20 4D 49 44 24 28 41 24 2C 43 2C 31 29 INT MID$(A$,C,1)
01CBA0: 3B 0D 0A 33 36 20 43 3D 43 2B 31 0D 0A 35 30 20 ;..36 C=C+1..50
01CBB0: 4E 45 58 54 20 41 0D 0A 35 33 20 49 46 20 4D 3D NEXT A..53 IF M=
01CBC0: 51 20 54 48 45 4E 20 36 30 0D 0A 35 35 20 50 52 Q THEN 60..55 PR
01CBD0: 49 4E 54 20 54 41 42 28 52 2A 4D 2B 28 52 2D 4E INT TAB(R*M+(R-N
01CBE0: 29 2F 32 29 3B 0D 0A 35 36 20 4E 45 58 54 20 4D )/2);..56 NEXT M
01CBF0: 0D 0A 36 30 20 50 52 49 4E 54 0D 0A 37 30 20 4E ..60 PRINT..70 N
01CC00: 45 53 53 20 54 48 45 4D 20 46 49 52 53 54 20 41 ESS THEM FIRST A
01CC10: 4E 44 20 54 48 45 4E 20 4C 4F 4F 4B 20 41 54 20 ND THEN LOOK AT
01CC20: 59 4F 55 52 22 0D 0A 33 31 30 20 50 52 49 4E 54 YOUR"..310 PRINT
01CC30: 20 22 4E 45 58 54 20 4E 55 4D 42 45 52 20 54 4F "NEXT NUMBER TO
01CC40: 20 53 45 45 20 49 46 20 49 20 57 41 53 20 52 49 SEE IF I WAS RI
01CC50: 47 48 54 2E 20 42 59 20 50 55 52 45 20 4C 55 43 GHT. BY PURE LUC
01CC60: 4B 2C 22 0D 0A 33 32 30 20 50 52 49 4E 54 20 22 K,"..320 PRINT "
01CC70: 49 20 4F 55 47 48 54 20 54 4F 20 42 45 20 52 49 I OUGHT TO BE RI
01CC80: 47 48 54 20 54 45 4E 20 54 49 4D 45 53 2E 20 42 GHT TEN TIMES. B
01CC90: 55 54 20 49 20 48 4F 50 45 20 54 4F 20 44 4F 20 UT I HOPE TO DO
01CCA0: 42 45 54 54 45 52 22 0D 0A 33 33 30 20 50 52 49 BETTER"..330 PRI
01CCB0: 4E 54 20 22 54 48 41 4E 20 54 48 41 54 20 2A 2A NT "THAN THAT **
01CCC0: 2A 2A 2A 22 0D 0A 33 34 30 20 50 52 49 4E 54 3A ***"..340 PRINT:
01CCD0: 50 52 49 4E 54 0D 0A 33 36 30 20 52 45 41 44 20 PRINT..360 READ
01CCE0: 41 2C 42 2C 43 0D 0A 33 37 30 20 44 41 54 41 20 A,B,C..370 DATA
01CCF0: 30 2C 31 2C 33 0D 0A 33 38 30 20 44 49 4D 20 4D 0,1,3..380 DIM M
01CD00: 28 32 36 2C 32 29 2C 4B 28 32 2C 32 29 2C 4C 28 (26,2),K(2,2),L(
01CD10: 38 2C 32 29 0D 0A 34 30 30 20 46 4F 52 20 49 3D 8,2)..400 FOR I=
01CD20: 30 20 54 4F 20 32 36 3A 20 46 4F 52 20 4A 3D 30 0 TO 26: FOR J=0
01CD30: 20 54 4F 20 32 3A 20 4D 28 49 2C 4A 29 3D 31 3A TO 2: M(I,J)=1:
01CD40: 20 4E 45 58 54 20 4A 3A 20 4E 45 58 54 20 49 0D NEXT J: NEXT I.
01CD50: 0A 34 31 30 20 46 4F 52 20 49 3D 30 20 54 4F 20 .410 FOR I=0 TO
01CD60: 32 3A 20 46 4F 52 20 4A 3D 30 20 54 4F 20 32 3A 2: FOR J=0 TO 2:
01CD70: 20 4B 28 49 2C 4A 29 3D 39 3A 20 4E 45 58 54 20 K(I,J)=9: NEXT
01CD80: 4A 3A 20 4E 45 58 54 20 49 0D 0A 34 32 30 20 46 J: NEXT I..420 F
01CD90: 4F 52 20 49 3D 30 20 54 4F 20 38 3A 20 46 4F 52 OR I=0 TO 8: FOR
01CDA0: 20 4A 3D 30 20 54 4F 20 32 3A 20 4C 28 49 2C 4A J=0 TO 2: L(I,J
01CDB0: 29 3D 33 3A 20 4E 45 58 54 20 4A 3A 20 4E 45 58 )=3: NEXT J: NEX
01CDC0: 54 20 49 0D 0A 34 35 30 20 4C 28 30 2C 30 29 3D T I..450 L(0,0)=
01CDD0: 32 3A 20 4C 28 34 2C 31 29 3D 32 3A 20 4C 28 38 2: L(4,1)=2: L(8
01CDE0: 2C 32 29 3D 32 0D 0A 34 38 30 20 5A 3D 32 36 3A ,2)=2..480 Z=26:
01CDF0: 20 5A 31 3D 38 3A 20 5A 32 3D 32 0D 0A 35 31 30 Z1=8: Z2=2..510
01CE00: 45 58 54 20 4E 0D 0A 38 33 20 49 46 20 58 3C 3E EXT N..83 IF X<>
01CE10: 31 20 54 48 45 4E 20 39 35 0D 0A 38 35 20 58 3D 1 THEN 95..85 X=
01CE20: 52 2D 32 3A 59 3D 31 3A 5A 3D 2D 32 0D 0A 39 30 R-2:Y=1:Z=-2..90
01CE30: 20 47 4F 54 4F 20 32 30 0D 0A 39 35 20 4E 45 58 GOTO 20..95 NEX
01CE40: 54 20 4C 0D 0A 39 39 20 45 4E 44 0D 0A 1A E5 E5 T L..99 END.....
01CE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01CFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D000: 20 58 3D 30 0D 0A 35 32 30 20 46 4F 52 20 54 3D X=0..520 FOR T=
01D010: 31 20 54 4F 20 33 0D 0A 35 33 30 20 50 52 49 4E 1 TO 3..530 PRIN
01D020: 54 0D 0A 35 34 30 20 50 52 49 4E 54 20 22 54 45 T..540 PRINT "TE
01D030: 4E 20 4E 55 4D 42 45 52 53 2C 20 50 4C 45 41 53 N NUMBERS, PLEAS
01D040: 45 22 3B 0D 0A 35 35 30 20 49 4E 50 55 54 20 4E E";..550 INPUT N
01D050: 28 31 29 2C 4E 28 32 29 2C 4E 28 33 29 2C 4E 28 (1),N(2),N(3),N(
01D060: 34 29 2C 4E 28 35 29 2C 4E 28 36 29 2C 4E 28 37 4),N(5),N(6),N(7
01D070: 29 2C 4E 28 38 29 2C 4E 28 39 29 2C 4E 28 31 30 ),N(8),N(9),N(10
01D080: 29 0D 0A 35 36 30 20 46 4F 52 20 49 3D 31 20 54 )..560 FOR I=1 T
01D090: 4F 20 31 30 0D 0A 35 37 30 20 57 3D 4E 28 49 29 O 10..570 W=N(I)
01D0A0: 2D 31 0D 0A 35 38 30 20 49 46 20 57 3D 53 47 4E -1..580 IF W=SGN
01D0B0: 28 57 29 20 54 48 45 4E 20 36 32 30 0D 0A 35 39 (W) THEN 620..59
01D0C0: 30 20 50 52 49 4E 54 20 22 4F 4E 4C 59 20 55 53 0 PRINT "ONLY US
01D0D0: 45 20 54 48 45 20 44 49 47 49 54 53 20 27 30 27 E THE DIGITS '0'
01D0E0: 2C 20 27 31 27 2C 20 4F 52 20 27 32 27 2E 22 0D , '1', OR '2'.".
01D0F0: 0A 36 30 30 20 50 52 49 4E 54 20 22 4C 45 54 27 .600 PRINT "LET'
01D100: 53 20 54 52 59 20 41 47 41 49 4E 2E 22 3A 47 4F S TRY AGAIN.":GO
01D110: 54 4F 20 35 33 30 0D 0A 36 32 30 20 4E 45 58 54 TO 530..620 NEXT
01D120: 20 49 0D 0A 36 33 30 20 50 52 49 4E 54 3A 20 50 I..630 PRINT: P
01D130: 52 49 4E 54 20 22 4D 59 20 47 55 45 53 53 22 2C RINT "MY GUESS",
01D140: 22 59 4F 55 52 20 4E 4F 2E 22 2C 22 52 45 53 55 "YOUR NO.","RESU
01D150: 4C 54 22 2C 22 4E 4F 2E 20 52 49 47 48 54 22 3A LT","NO. RIGHT":
01D160: 50 52 49 4E 54 0D 0A 36 36 30 20 46 4F 52 20 55 PRINT..660 FOR U
01D170: 3D 31 20 54 4F 20 31 30 0D 0A 36 37 30 20 4E 3D =1 TO 10..670 N=
01D180: 4E 28 55 29 3A 20 53 3D 30 0D 0A 36 39 30 20 46 N(U): S=0..690 F
01D190: 4F 52 20 4A 3D 30 20 54 4F 20 32 0D 0A 37 30 30 OR J=0 TO 2..700
01D1A0: 20 53 31 3D 41 2A 4B 28 5A 32 2C 4A 29 2B 42 2A S1=A*K(Z2,J)+B*
01D1B0: 4C 28 5A 31 2C 4A 29 2B 43 2A 4D 28 5A 2C 4A 29 L(Z1,J)+C*M(Z,J)
01D1C0: 0D 0A 37 31 30 20 49 46 20 53 3E 53 31 20 54 48 ..710 IF S>S1 TH
01D1D0: 45 4E 20 37 36 30 0D 0A 37 32 30 20 49 46 20 53 EN 760..720 IF S
01D1E0: 3C 53 31 20 54 48 45 4E 20 37 34 30 0D 0A 37 33 <S1 THEN 740..73
01D1F0: 30 20 49 46 20 52 4E 44 28 31 29 3C 2E 35 20 54 0 IF RND(1)<.5 T
01D200: 32 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 3B 2 PRINT TAB(34);
01D210: 22 44 49 43 45 22 0D 0A 34 20 50 52 49 4E 54 20 "DICE"..4 PRINT
01D220: 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 TAB(15);"CREATIV
01D230: 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 E COMPUTING MOR
01D240: 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 RISTOWN, NEW JER
01D250: 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 50 52 SEY"..6 PRINT:PR
01D260: 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 20 44 49 INT:PRINT..10 DI
01D270: 4D 20 46 28 31 32 29 0D 0A 32 30 20 52 45 4D 20 M F(12)..20 REM
01D280: 20 44 41 4E 4E 59 20 46 52 45 49 44 55 53 0D 0A DANNY FREIDUS..
01D290: 33 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 50 30 PRINT "THIS P
01D2A0: 52 4F 47 52 41 4D 20 53 49 4D 55 4C 41 54 45 53 ROGRAM SIMULATES
01D2B0: 20 54 48 45 20 52 4F 4C 4C 49 4E 47 20 4F 46 20 THE ROLLING OF
01D2C0: 41 22 0D 0A 34 30 20 50 52 49 4E 54 20 22 50 41 A"..40 PRINT "PA
01D2D0: 49 52 20 4F 46 20 44 49 43 45 2E 22 0D 0A 35 30 IR OF DICE."..50
01D2E0: 20 50 52 49 4E 54 20 22 59 4F 55 20 45 4E 54 45 PRINT "YOU ENTE
01D2F0: 52 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 R THE NUMBER OF
01D300: 54 49 4D 45 53 20 59 4F 55 20 57 41 4E 54 20 54 TIMES YOU WANT T
01D310: 48 45 20 43 4F 4D 50 55 54 45 52 20 54 4F 22 0D HE COMPUTER TO".
01D320: 0A 36 30 20 50 52 49 4E 54 20 22 27 52 4F 4C 4C .60 PRINT "'ROLL
01D330: 27 20 54 48 45 20 44 49 43 45 2E 20 20 57 41 54 ' THE DICE. WAT
01D340: 43 48 20 4F 55 54 2C 20 56 45 52 59 20 4C 41 52 CH OUT, VERY LAR
01D350: 47 45 20 4E 55 4D 42 45 52 53 20 54 41 4B 45 22 GE NUMBERS TAKE"
01D360: 0D 0A 37 30 20 50 52 49 4E 54 20 22 41 20 4C 4F ..70 PRINT "A LO
01D370: 4E 47 20 54 49 4D 45 2E 20 20 49 4E 20 50 41 52 NG TIME. IN PAR
01D380: 54 49 43 55 4C 41 52 2C 20 4E 55 4D 42 45 52 53 TICULAR, NUMBERS
01D390: 20 4F 56 45 52 20 35 30 30 30 2E 22 0D 0A 38 30 OVER 5000."..80
01D3A0: 20 46 4F 52 20 51 3D 31 20 54 4F 20 31 32 0D 0A FOR Q=1 TO 12..
01D3B0: 39 30 20 46 28 51 29 3D 30 0D 0A 31 30 30 20 4E 90 F(Q)=0..100 N
01D3C0: 45 58 54 20 51 0D 0A 31 31 30 20 50 52 49 4E 54 EXT Q..110 PRINT
01D3D0: 3A 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 :PRINT "HOW MANY
01D3E0: 20 52 4F 4C 4C 53 22 3B 0D 0A 31 32 30 20 49 4E ROLLS";..120 IN
01D3F0: 50 55 54 20 58 0D 0A 31 33 30 20 46 4F 52 20 53 PUT X..130 FOR S
01D400: 48 45 4E 20 37 36 30 0D 0A 37 34 30 20 53 3D 53 HEN 760..740 S=S
01D410: 31 3A 20 47 3D 4A 0D 0A 37 36 30 20 4E 45 58 54 1: G=J..760 NEXT
01D420: 20 4A 0D 0A 37 37 30 20 50 52 49 4E 54 20 22 20 J..770 PRINT "
01D430: 20 22 3B 47 2C 22 20 20 20 22 3B 4E 28 55 29 2C ";G," ";N(U),
01D440: 0D 0A 37 38 30 20 49 46 20 47 3D 4E 28 55 29 20 ..780 IF G=N(U)
01D450: 54 48 45 4E 20 38 31 30 0D 0A 37 39 30 20 50 52 THEN 810..790 PR
01D460: 49 4E 54 20 22 20 57 52 4F 4E 47 22 2C 58 0D 0A INT " WRONG",X..
01D470: 38 30 30 20 47 4F 54 4F 20 38 38 30 0D 0A 38 31 800 GOTO 880..81
01D480: 30 20 58 3D 58 2B 31 0D 0A 38 32 30 20 50 52 49 0 X=X+1..820 PRI
01D490: 4E 54 20 22 20 52 49 47 48 54 22 2C 58 0D 0A 38 NT " RIGHT",X..8
01D4A0: 33 30 20 4D 28 5A 2C 4E 29 3D 4D 28 5A 2C 4E 29 30 M(Z,N)=M(Z,N)
01D4B0: 2B 31 0D 0A 38 34 30 20 4C 28 5A 31 2C 4E 29 3D +1..840 L(Z1,N)=
01D4C0: 4C 28 5A 31 2C 4E 29 2B 31 0D 0A 38 35 30 20 4B L(Z1,N)+1..850 K
01D4D0: 28 5A 32 2C 4E 29 3D 4B 28 5A 32 2C 4E 29 2B 31 (Z2,N)=K(Z2,N)+1
01D4E0: 0D 0A 38 36 30 20 5A 3D 5A 2D 49 4E 54 28 5A 2F ..860 Z=Z-INT(Z/
01D4F0: 39 29 2A 39 0D 0A 38 37 30 20 5A 3D 33 2A 5A 2B 9)*9..870 Z=3*Z+
01D500: 4E 28 55 29 0D 0A 38 38 30 20 5A 31 3D 5A 2D 49 N(U)..880 Z1=Z-I
01D510: 4E 54 28 5A 2F 39 29 2A 39 0D 0A 38 39 30 20 5A NT(Z/9)*9..890 Z
01D520: 32 3D 4E 28 55 29 0D 0A 39 30 30 20 4E 45 58 54 2=N(U)..900 NEXT
01D530: 20 55 0D 0A 39 31 30 20 4E 45 58 54 20 54 0D 0A U..910 NEXT T..
01D540: 39 32 30 20 50 52 49 4E 54 0D 0A 39 33 30 20 49 920 PRINT..930 I
01D550: 46 20 58 3E 31 30 20 54 48 45 4E 20 39 38 30 0D F X>10 THEN 980.
01D560: 0A 39 34 30 20 49 46 20 58 3C 31 30 20 54 48 45 .940 IF X<10 THE
01D570: 4E 20 31 30 31 30 0D 0A 39 35 30 20 50 52 49 4E N 1010..950 PRIN
01D580: 54 20 22 49 20 47 55 45 53 53 45 44 20 45 58 41 T "I GUESSED EXA
01D590: 43 54 4C 59 20 31 2F 33 20 4F 46 20 59 4F 55 52 CTLY 1/3 OF YOUR
01D5A0: 20 4E 55 4D 42 45 52 53 2E 22 0D 0A 39 36 30 20 NUMBERS."..960
01D5B0: 50 52 49 4E 54 20 22 49 54 27 53 20 41 20 54 49 PRINT "IT'S A TI
01D5C0: 45 20 47 41 4D 45 2E 22 0D 0A 39 37 30 20 47 4F E GAME."..970 GO
01D5D0: 54 4F 20 31 30 33 30 0D 0A 39 38 30 20 50 52 49 TO 1030..980 PRI
01D5E0: 4E 54 20 22 49 20 47 55 45 53 53 45 44 20 4D 4F NT "I GUESSED MO
01D5F0: 52 45 20 54 48 41 4E 20 31 2F 33 20 4F 46 20 59 RE THAN 1/3 OF Y
01D600: 3D 31 20 54 4F 20 58 0D 0A 31 34 30 20 41 3D 49 =1 TO X..140 A=I
01D610: 4E 54 28 36 2A 52 4E 44 28 31 29 2B 31 29 0D 0A NT(6*RND(1)+1)..
01D620: 31 35 30 20 42 3D 49 4E 54 28 36 2A 52 4E 44 28 150 B=INT(6*RND(
01D630: 31 29 2B 31 29 0D 0A 31 36 30 20 52 3D 41 2B 42 1)+1)..160 R=A+B
01D640: 0D 0A 31 37 30 20 46 28 52 29 3D 46 28 52 29 2B ..170 F(R)=F(R)+
01D650: 31 0D 0A 31 38 30 20 4E 45 58 54 20 53 0D 0A 31 1..180 NEXT S..1
01D660: 38 35 20 50 52 49 4E 54 0D 0A 31 39 30 20 50 52 85 PRINT..190 PR
01D670: 49 4E 54 20 22 54 4F 54 41 4C 20 53 50 4F 54 53 INT "TOTAL SPOTS
01D680: 22 2C 22 4E 55 4D 42 45 52 20 4F 46 20 54 49 4D ","NUMBER OF TIM
01D690: 45 53 22 0D 0A 32 30 30 20 46 4F 52 20 56 3D 32 ES"..200 FOR V=2
01D6A0: 20 54 4F 20 31 32 0D 0A 32 31 30 20 50 52 49 4E TO 12..210 PRIN
01D6B0: 54 20 56 2C 46 28 56 29 0D 0A 32 32 30 20 4E 45 T V,F(V)..220 NE
01D6C0: 58 54 20 56 0D 0A 32 32 31 20 50 52 49 4E 54 0D XT V..221 PRINT.
01D6D0: 0A 32 32 32 20 50 52 49 4E 54 3A 50 52 49 4E 54 .222 PRINT:PRINT
01D6E0: 20 22 54 52 59 20 41 47 41 49 4E 22 3B 0D 0A 32 "TRY AGAIN";..2
01D6F0: 32 33 20 49 4E 50 55 54 20 5A 24 0D 0A 32 32 34 23 INPUT Z$..224
01D700: 20 49 46 20 5A 24 3D 22 59 45 53 22 20 54 48 45 IF Z$="YES" THE
01D710: 4E 20 38 30 0D 0A 32 34 30 20 45 4E 44 0D 0A 1A N 80..240 END...
01D720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D800: 4F 55 52 20 4E 55 4D 42 45 52 53 2E 22 0D 0A 39 OUR NUMBERS."..9
01D810: 39 30 20 50 52 49 4E 54 20 22 49 20 57 49 4E 2E 90 PRINT "I WIN.
01D820: 22 3A 20 46 4F 52 20 51 3D 31 20 54 4F 20 31 30 ": FOR Q=1 TO 10
01D830: 3A 20 50 52 49 4E 54 20 43 48 52 24 28 37 29 3B : PRINT CHR$(7);
01D840: 3A 20 4E 45 58 54 20 51 0D 0A 31 30 30 30 20 47 : NEXT Q..1000 G
01D850: 4F 54 4F 20 31 30 33 30 0D 0A 31 30 31 30 20 50 OTO 1030..1010 P
01D860: 52 49 4E 54 20 22 49 20 47 55 45 53 53 45 44 20 RINT "I GUESSED
01D870: 4C 45 53 53 20 54 48 41 4E 20 31 2F 33 20 4F 46 LESS THAN 1/3 OF
01D880: 20 59 4F 55 52 20 4E 55 4D 42 45 52 53 2E 22 0D YOUR NUMBERS.".
01D890: 0A 31 30 32 30 20 50 52 49 4E 54 20 22 59 4F 55 .1020 PRINT "YOU
01D8A0: 20 42 45 41 54 20 4D 45 2E 20 20 43 4F 4E 47 52 BEAT ME. CONGR
01D8B0: 41 54 55 4C 41 54 49 4F 4E 53 20 2A 2A 2A 2A 2A ATULATIONS *****
01D8C0: 22 0D 0A 31 30 33 30 20 50 52 49 4E 54 0D 0A 31 "..1030 PRINT..1
01D8D0: 30 34 30 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 040 PRINT "DO YO
01D8E0: 55 20 57 41 4E 54 20 54 4F 20 54 52 59 20 41 47 U WANT TO TRY AG
01D8F0: 41 49 4E 20 28 31 20 46 4F 52 20 59 45 53 2C 20 AIN (1 FOR YES,
01D900: 30 20 46 4F 52 20 4E 4F 29 22 3B 0D 0A 31 30 36 0 FOR NO)";..106
01D910: 30 20 49 4E 50 55 54 20 58 0D 0A 31 30 37 30 20 0 INPUT X..1070
01D920: 49 46 20 58 3D 31 20 54 48 45 4E 20 34 30 30 0D IF X=1 THEN 400.
01D930: 0A 31 30 38 30 20 50 52 49 4E 54 3A 50 52 49 4E .1080 PRINT:PRIN
01D940: 54 20 22 54 48 41 4E 4B 53 20 46 4F 52 20 54 48 T "THANKS FOR TH
01D950: 45 20 47 41 4D 45 2E 22 0D 0A 31 30 39 30 20 45 E GAME."..1090 E
01D960: 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ND..............
01D970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01D9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DA00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
01DA10: 3B 22 44 49 47 49 54 53 22 0D 0A 32 30 20 50 52 ;"DIGITS"..20 PR
01DA20: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
01DA30: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
01DA40: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
01DA50: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
01DA60: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
01DA70: 32 31 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 210 PRINT "THIS
01DA80: 49 53 20 41 20 47 41 4D 45 20 4F 46 20 47 55 45 IS A GAME OF GUE
01DA90: 53 53 49 4E 47 2E 22 0D 0A 32 32 30 20 50 52 49 SSING."..220 PRI
01DAA0: 4E 54 20 22 46 4F 52 20 49 4E 53 54 52 55 43 54 NT "FOR INSTRUCT
01DAB0: 49 4F 4E 53 2C 20 54 59 50 45 20 27 31 27 2C 20 IONS, TYPE '1',
01DAC0: 45 4C 53 45 20 54 59 50 45 20 27 30 27 22 3B 0D ELSE TYPE '0'";.
01DAD0: 0A 32 33 30 20 49 4E 50 55 54 20 45 0D 0A 32 34 .230 INPUT E..24
01DAE0: 30 20 49 46 20 45 3D 30 20 54 48 45 4E 20 33 36 0 IF E=0 THEN 36
01DAF0: 30 0D 0A 32 35 30 20 50 52 49 4E 54 0D 0A 32 36 0..250 PRINT..26
01DB00: 30 20 50 52 49 4E 54 20 22 50 4C 45 41 53 45 20 0 PRINT "PLEASE
01DB10: 54 41 4B 45 20 41 20 50 49 45 43 45 20 4F 46 20 TAKE A PIECE OF
01DB20: 50 41 50 45 52 20 41 4E 44 20 57 52 49 54 45 20 PAPER AND WRITE
01DB30: 44 4F 57 4E 22 0D 0A 32 37 30 20 50 52 49 4E 54 DOWN"..270 PRINT
01DB40: 20 22 54 48 45 20 44 49 47 49 54 53 20 27 30 27 "THE DIGITS '0'
01DB50: 2C 20 27 31 27 2C 20 4F 52 20 27 32 27 20 54 48 , '1', OR '2' TH
01DB60: 49 52 54 59 20 54 49 4D 45 53 20 41 54 20 52 41 IRTY TIMES AT RA
01DB70: 4E 44 4F 4D 2E 22 0D 0A 32 38 30 20 50 52 49 4E NDOM."..280 PRIN
01DB80: 54 20 22 41 52 52 41 4E 47 45 20 54 48 45 4D 20 T "ARRANGE THEM
01DB90: 49 4E 20 54 48 52 45 45 20 4C 49 4E 45 53 20 4F IN THREE LINES O
01DBA0: 46 20 54 45 4E 20 44 49 47 49 54 53 20 45 41 43 F TEN DIGITS EAC
01DBB0: 48 2E 22 0D 0A 32 39 30 20 50 52 49 4E 54 20 22 H."..290 PRINT "
01DBC0: 49 20 57 49 4C 4C 20 41 53 4B 20 46 4F 52 20 54 I WILL ASK FOR T
01DBD0: 48 45 4E 20 54 45 4E 20 41 54 20 41 20 54 49 4D HEN TEN AT A TIM
01DBE0: 45 2E 22 0D 0A 33 30 30 20 50 52 49 4E 54 20 22 E."..300 PRINT "
01DBF0: 49 20 57 49 4C 4C 20 41 4C 57 41 59 53 20 47 55 I WILL ALWAYS GU
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 00 00 02 09 52 E5 19 00 C1 02 00 00 00 02 ......R.........
01DC20: 19 00 C6 02 00 00 00 02 19 00 C2 02 00 00 00 02 ................
01DC30: 19 00 C7 02 00 00 00 02 19 00 C3 02 00 00 00 02 ................
01DC40: 19 00 C8 02 00 00 00 02 19 00 C4 02 00 00 00 02 ................
01DC50: 19 00 C9 02 00 00 00 02 19 00 C5 02 00 00 00 02 ................
01DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01DF00: 48 45 4E 20 37 39 30 0D 0A 37 37 30 20 52 45 4D HEN 790..770 REM
01DF10: 20 20 20 20 20 49 53 20 23 20 5A 45 52 4F 20 48 IS # ZERO H
01DF20: 45 52 45 0D 0A 37 38 30 20 47 4F 54 4F 20 33 30 ERE..780 GOTO 30
01DF30: 30 0D 0A 37 39 30 20 52 45 4D 20 20 20 20 20 49 0..790 REM I
01DF40: 53 20 3D 20 5A 45 52 4F 20 48 45 52 45 0D 0A 38 S = ZERO HERE..8
01DF50: 30 30 20 50 52 49 4E 54 20 22 49 20 50 49 43 4B 00 PRINT "I PICK
01DF60: 20 55 50 22 3B 4D 3B 22 4D 41 52 42 4C 45 53 2E UP";M;"MARBLES.
01DF70: 22 0D 0A 38 31 30 20 50 52 49 4E 54 0D 0A 38 32 "..810 PRINT..82
01DF80: 30 20 47 4F 54 4F 20 38 38 30 0D 0A 38 33 30 20 0 GOTO 880..830
01DF90: 52 45 4D 20 20 20 20 54 48 49 53 20 49 53 20 57 REM THIS IS W
01DFA0: 48 45 52 45 20 49 20 57 49 4E 0D 0A 38 34 30 20 HERE I WIN..840
01DFB0: 50 52 49 4E 54 20 22 49 20 50 49 43 4B 20 55 50 PRINT "I PICK UP
01DFC0: 22 3B 4D 3B 22 4D 41 52 42 4C 45 53 2E 22 0D 0A ";M;"MARBLES."..
01DFD0: 38 35 30 20 50 52 49 4E 54 0D 0A 38 36 30 20 50 850 PRINT..860 P
01DFE0: 52 49 4E 54 20 22 54 4F 54 41 4C 20 3D 20 30 22 RINT "TOTAL = 0"
01DFF0: 0D 0A 38 37 30 20 4D 31 3D 4D 31 2B 4D 0D 0A 38 ..870 M1=M1+M..8
01E000: 38 30 20 50 52 49 4E 54 20 22 54 48 41 54 20 49 80 PRINT "THAT I
01E010: 53 20 41 4C 4C 20 4F 46 20 54 48 45 20 4D 41 52 S ALL OF THE MAR
01E020: 42 4C 45 53 2E 22 0D 0A 38 39 30 20 50 52 49 4E BLES."..890 PRIN
01E030: 54 0D 0A 39 30 30 20 50 52 49 4E 54 20 22 20 4D T..900 PRINT " M
01E040: 59 20 54 4F 54 41 4C 20 49 53 22 3B 4D 31 3B 22 Y TOTAL IS";M1;"
01E050: 2C 20 59 4F 55 52 20 54 4F 54 41 4C 20 49 53 22 , YOUR TOTAL IS"
01E060: 3B 59 31 0D 0A 39 31 30 20 50 52 49 4E 54 0D 0A ;Y1..910 PRINT..
01E070: 39 32 30 20 49 46 20 49 4E 54 28 4D 31 2F 32 29 920 IF INT(M1/2)
01E080: 3D 4D 31 2F 32 20 54 48 45 4E 20 39 35 30 0D 0A =M1/2 THEN 950..
01E090: 39 33 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 930 PRINT "
01E0A0: 59 4F 55 20 57 4F 4E 2E 20 20 44 4F 20 59 4F 55 YOU WON. DO YOU
01E0B0: 20 57 41 4E 54 20 54 4F 20 50 4C 41 59 22 0D 0A WANT TO PLAY"..
01E0C0: 39 34 30 20 47 4F 54 4F 20 39 36 30 0D 0A 39 35 940 GOTO 960..95
01E0D0: 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 49 20 0 PRINT " I
01E0E0: 57 4F 4E 2E 20 20 44 4F 20 59 4F 55 20 57 41 4E WON. DO YOU WAN
01E0F0: 54 20 54 4F 20 50 4C 41 59 22 0D 0A 39 36 30 20 T TO PLAY"..960
01E100: 31 20 50 52 49 4E 54 20 54 41 42 28 33 31 29 3B 1 PRINT TAB(31);
01E110: 22 45 56 45 4E 20 57 49 4E 53 22 0D 0A 32 20 50 "EVEN WINS"..2 P
01E120: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
01E130: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
01E140: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
01E150: 57 20 4A 45 52 53 45 59 22 0D 0A 33 20 50 52 49 W JERSEY"..3 PRI
01E160: 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 59 31 3D 30 NT:PRINT..4 Y1=0
01E170: 0D 0A 31 30 20 4D 31 3D 30 0D 0A 32 30 20 44 49 ..10 M1=0..20 DI
01E180: 4D 20 4D 28 32 30 29 2C 59 28 32 30 29 0D 0A 33 M M(20),Y(20)..3
01E190: 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 54 48 0 PRINT " TH
01E1A0: 49 53 20 49 53 20 41 20 54 57 4F 20 50 45 52 53 IS IS A TWO PERS
01E1B0: 4F 4E 20 47 41 4D 45 20 43 41 4C 4C 45 44 20 27 ON GAME CALLED '
01E1C0: 45 56 45 4E 20 57 49 4E 53 2E 27 22 0D 0A 34 30 EVEN WINS.'"..40
01E1D0: 20 50 52 49 4E 54 20 22 54 4F 20 50 4C 41 59 20 PRINT "TO PLAY
01E1E0: 54 48 45 20 47 41 4D 45 2C 20 54 48 45 20 50 4C THE GAME, THE PL
01E1F0: 41 59 45 52 53 20 4E 45 45 44 20 32 37 20 4D 41 AYERS NEED 27 MA
01E200: 52 42 4C 45 53 20 4F 52 22 0D 0A 35 30 20 50 52 RBLES OR"..50 PR
01E210: 49 4E 54 20 22 4F 54 48 45 52 20 4F 42 4A 45 43 INT "OTHER OBJEC
01E220: 54 53 20 4F 4E 20 41 20 54 41 42 4C 45 2E 22 0D TS ON A TABLE.".
01E230: 0A 36 30 20 50 52 49 4E 54 0D 0A 37 30 20 50 52 .60 PRINT..70 PR
01E240: 49 4E 54 20 0D 0A 38 30 20 50 52 49 4E 54 20 22 INT ..80 PRINT "
01E250: 20 20 20 20 20 54 48 45 20 32 20 50 4C 41 59 45 THE 2 PLAYE
01E260: 52 53 20 41 4C 54 45 52 4E 41 54 45 20 54 55 52 RS ALTERNATE TUR
01E270: 4E 53 2C 20 57 49 54 48 20 45 41 43 48 20 50 4C NS, WITH EACH PL
01E280: 41 59 45 52 22 0D 0A 39 30 20 50 52 49 4E 54 20 AYER"..90 PRINT
01E290: 22 52 45 4D 4F 56 49 4E 47 20 46 52 4F 4D 20 31 "REMOVING FROM 1
01E2A0: 20 54 4F 20 34 20 4D 41 52 42 4C 45 53 20 4F 4E TO 4 MARBLES ON
01E2B0: 20 45 41 43 48 20 4D 4F 56 45 2E 20 20 54 48 45 EACH MOVE. THE
01E2C0: 20 47 41 4D 45 22 0D 0A 31 30 30 20 50 52 49 4E GAME"..100 PRIN
01E2D0: 54 20 22 45 4E 44 53 20 57 48 45 4E 20 54 48 45 T "ENDS WHEN THE
01E2E0: 52 45 20 41 52 45 20 4E 4F 20 4D 41 52 42 4C 45 RE ARE NO MARBLE
01E2F0: 53 20 4C 45 46 54 2C 20 41 4E 44 20 54 48 45 20 S LEFT, AND THE
01E300: 50 52 49 4E 54 20 22 41 47 41 49 4E 3F 20 20 54 PRINT "AGAIN? T
01E310: 59 50 45 20 31 20 46 4F 52 20 59 45 53 20 41 4E YPE 1 FOR YES AN
01E320: 44 20 30 20 46 4F 52 20 4E 4F 2E 22 0D 0A 39 37 D 0 FOR NO."..97
01E330: 30 20 49 4E 50 55 54 20 41 31 0D 0A 39 38 30 20 0 INPUT A1..980
01E340: 49 46 20 41 31 3D 30 20 54 48 45 4E 20 31 30 33 IF A1=0 THEN 103
01E350: 30 0D 0A 39 39 30 20 4D 31 3D 30 0D 0A 31 30 30 0..990 M1=0..100
01E360: 30 20 59 31 3D 30 0D 0A 31 30 31 30 20 47 4F 54 0 Y1=0..1010 GOT
01E370: 4F 20 32 30 30 0D 0A 31 30 32 30 20 47 4F 54 4F O 200..1020 GOTO
01E380: 20 36 34 30 0D 0A 31 30 33 30 20 50 52 49 4E 54 640..1030 PRINT
01E390: 0D 0A 31 30 34 30 20 50 52 49 4E 54 20 22 4F 4B ..1040 PRINT "OK
01E3A0: 2E 20 20 53 45 45 20 59 4F 55 20 4C 41 54 45 52 . SEE YOU LATER
01E3B0: 2E 22 0D 0A 31 30 35 30 20 47 4F 54 4F 20 31 32 ."..1050 GOTO 12
01E3C0: 33 30 0D 0A 31 30 36 30 20 54 3D 32 37 0D 0A 31 30..1060 T=27..1
01E3D0: 30 37 30 20 50 52 49 4E 54 0D 0A 31 30 38 30 20 070 PRINT..1080
01E3E0: 50 52 49 4E 54 0D 0A 31 30 39 30 20 50 52 49 4E PRINT..1090 PRIN
01E3F0: 54 0D 0A 31 31 30 30 20 50 52 49 4E 54 20 22 54 T..1100 PRINT "T
01E400: 4F 54 41 4C 3D 22 3B 54 0D 0A 31 31 31 30 20 50 OTAL=";T..1110 P
01E410: 52 49 4E 54 0D 0A 31 31 32 30 20 50 52 49 4E 54 RINT..1120 PRINT
01E420: 0D 0A 31 31 33 30 20 50 52 49 4E 54 20 22 57 48 ..1130 PRINT "WH
01E430: 41 54 20 49 53 20 59 4F 55 52 20 46 49 52 53 54 AT IS YOUR FIRST
01E440: 20 4D 4F 56 45 22 3B 0D 0A 31 31 34 30 20 49 4E MOVE";..1140 IN
01E450: 50 55 54 20 59 0D 0A 31 31 35 30 20 47 4F 54 4F PUT Y..1150 GOTO
01E460: 20 33 36 30 0D 0A 31 31 36 30 20 50 52 49 4E 54 360..1160 PRINT
01E470: 0D 0A 31 31 37 30 20 50 52 49 4E 54 20 22 54 48 ..1170 PRINT "TH
01E480: 45 20 4E 55 4D 42 45 52 20 4F 46 20 4D 41 52 42 E NUMBER OF MARB
01E490: 4C 45 53 20 59 4F 55 20 54 41 4B 45 20 4D 55 53 LES YOU TAKE MUS
01E4A0: 54 20 42 45 20 41 20 50 4F 53 49 54 49 56 45 22 T BE A POSITIVE"
01E4B0: 0D 0A 31 31 38 30 20 50 52 49 4E 54 20 22 49 4E ..1180 PRINT "IN
01E4C0: 54 45 47 45 52 20 42 45 54 57 45 45 4E 20 31 20 TEGER BETWEEN 1
01E4D0: 41 4E 44 20 34 2E 22 0D 0A 31 31 39 30 20 50 52 AND 4."..1190 PR
01E4E0: 49 4E 54 0D 0A 31 32 30 30 20 50 52 49 4E 54 20 INT..1200 PRINT
01E4F0: 22 20 20 20 20 20 57 48 41 54 20 49 53 20 59 4F " WHAT IS YO
01E500: 57 49 4E 4E 45 52 22 0D 0A 31 31 30 20 50 52 49 WINNER"..110 PRI
01E510: 4E 54 20 22 49 53 20 54 48 45 20 4F 4E 45 20 57 NT "IS THE ONE W
01E520: 49 54 48 20 41 4E 20 45 56 45 4E 20 4E 55 4D 42 ITH AN EVEN NUMB
01E530: 45 52 20 4F 46 20 4D 41 52 42 4C 45 53 2E 22 0D ER OF MARBLES.".
01E540: 0A 31 32 30 20 50 52 49 4E 54 0D 0A 31 33 30 20 .120 PRINT..130
01E550: 50 52 49 4E 54 0D 0A 31 34 30 20 50 52 49 4E 54 PRINT..140 PRINT
01E560: 20 22 20 20 20 20 20 54 48 45 20 4F 4E 4C 59 20 " THE ONLY
01E570: 52 55 4C 45 53 20 41 52 45 20 54 48 41 54 20 28 RULES ARE THAT (
01E580: 31 29 20 59 4F 55 20 4D 55 53 54 20 41 4C 54 45 1) YOU MUST ALTE
01E590: 52 4E 41 54 45 20 54 55 52 4E 53 2C 22 0D 0A 31 RNATE TURNS,"..1
01E5A0: 35 30 20 50 52 49 4E 54 20 22 28 32 29 20 59 4F 50 PRINT "(2) YO
01E5B0: 55 20 4D 55 53 54 20 54 41 4B 45 20 42 45 54 57 U MUST TAKE BETW
01E5C0: 45 45 4E 20 31 20 41 4E 44 20 34 20 4D 41 52 42 EEN 1 AND 4 MARB
01E5D0: 4C 45 53 20 45 41 43 48 20 54 55 52 4E 2C 22 0D LES EACH TURN,".
01E5E0: 0A 31 36 30 20 50 52 49 4E 54 20 22 41 4E 44 20 .160 PRINT "AND
01E5F0: 28 33 29 20 59 4F 55 20 43 41 4E 4E 4F 54 20 53 (3) YOU CANNOT S
01E600: 4B 49 50 20 41 20 54 55 52 4E 2E 22 0D 0A 31 37 KIP A TURN."..17
01E610: 30 20 50 52 49 4E 54 0D 0A 31 38 30 20 50 52 49 0 PRINT..180 PRI
01E620: 4E 54 0D 0A 31 39 30 20 50 52 49 4E 54 0D 0A 32 NT..190 PRINT..2
01E630: 30 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 54 00 PRINT " T
01E640: 59 50 45 20 41 20 27 31 27 20 49 46 20 59 4F 55 YPE A '1' IF YOU
01E650: 20 57 41 4E 54 20 54 4F 20 47 4F 20 46 49 52 53 WANT TO GO FIRS
01E660: 54 2C 20 41 4E 44 20 54 59 50 45 22 0D 0A 32 31 T, AND TYPE"..21
01E670: 30 20 50 52 49 4E 54 20 22 41 20 27 30 27 20 49 0 PRINT "A '0' I
01E680: 46 20 59 4F 55 20 57 41 4E 54 20 4D 45 20 54 4F F YOU WANT ME TO
01E690: 20 47 4F 20 46 49 52 53 54 2E 22 0D 0A 32 32 30 GO FIRST."..220
01E6A0: 20 49 4E 50 55 54 20 43 0D 0A 32 32 35 20 50 52 INPUT C..225 PR
01E6B0: 49 4E 54 0D 0A 32 33 30 20 49 46 20 43 3D 30 20 INT..230 IF C=0
01E6C0: 54 48 45 4E 20 32 35 30 0D 0A 32 34 30 20 47 4F THEN 250..240 GO
01E6D0: 54 4F 20 31 30 36 30 0D 0A 32 35 30 20 54 3D 32 TO 1060..250 T=2
01E6E0: 37 0D 0A 32 36 30 20 4D 3D 32 0D 0A 32 37 30 20 7..260 M=2..270
01E6F0: 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 54 4F 54 PRINT:PRINT "TOT
01E700: 55 52 20 4E 45 58 54 20 4D 4F 56 45 3F 22 0D 0A UR NEXT MOVE?"..
01E710: 31 32 31 30 20 50 52 49 4E 54 0D 0A 31 32 32 30 1210 PRINT..1220
01E720: 20 47 4F 54 4F 20 33 35 30 0D 0A 31 32 33 30 20 GOTO 350..1230
01E730: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
01E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01E900: 41 4C 3D 22 3B 54 3A 50 52 49 4E 54 0D 0A 32 38 AL=";T:PRINT..28
01E910: 30 20 4D 31 3D 4D 31 2B 4D 0D 0A 32 39 30 20 54 0 M1=M1+M..290 T
01E920: 3D 54 2D 4D 0D 0A 33 30 30 20 50 52 49 4E 54 20 =T-M..300 PRINT
01E930: 22 49 20 50 49 43 4B 20 55 50 22 3B 4D 3B 22 4D "I PICK UP";M;"M
01E940: 41 52 42 4C 45 53 2E 22 0D 0A 33 31 30 20 49 46 ARBLES."..310 IF
01E950: 20 54 3D 30 20 54 48 45 4E 20 38 38 30 0D 0A 33 T=0 THEN 880..3
01E960: 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 20 PRINT:PRINT "
01E970: 54 4F 54 41 4C 3D 22 3B 54 0D 0A 33 33 30 20 50 TOTAL=";T..330 P
01E980: 52 49 4E 54 0D 0A 33 34 30 20 50 52 49 4E 54 20 RINT..340 PRINT
01E990: 22 20 20 20 20 20 41 4E 44 20 57 48 41 54 20 49 " AND WHAT I
01E9A0: 53 20 59 4F 55 52 20 4E 45 58 54 20 4D 4F 56 45 S YOUR NEXT MOVE
01E9B0: 2C 20 4D 59 20 54 4F 54 41 4C 20 49 53 22 3B 4D , MY TOTAL IS";M
01E9C0: 31 0D 0A 33 35 30 20 49 4E 50 55 54 20 59 0D 0A 1..350 INPUT Y..
01E9D0: 33 36 30 20 50 52 49 4E 54 0D 0A 33 37 30 20 49 360 PRINT..370 I
01E9E0: 46 20 59 3C 31 20 54 48 45 4E 20 31 31 36 30 0D F Y<1 THEN 1160.
01E9F0: 0A 33 38 30 20 49 46 20 59 3E 34 20 54 48 45 4E .380 IF Y>4 THEN
01EA00: 20 31 31 36 30 0D 0A 33 39 30 20 49 46 20 59 3C 1160..390 IF Y<
01EA10: 3D 54 20 54 48 45 4E 20 34 33 30 0D 0A 34 30 30 =T THEN 430..400
01EA20: 20 50 52 49 4E 54 20 22 20 20 20 20 20 59 4F 55 PRINT " YOU
01EA30: 20 48 41 56 45 20 54 52 49 45 44 20 54 4F 20 54 HAVE TRIED TO T
01EA40: 41 4B 45 20 4D 4F 52 45 20 4D 41 52 42 4C 45 53 AKE MORE MARBLES
01EA50: 20 54 48 41 4E 20 54 48 45 52 45 20 41 52 45 22 THAN THERE ARE"
01EA60: 0D 0A 34 31 30 20 50 52 49 4E 54 20 22 4C 45 46 ..410 PRINT "LEF
01EA70: 54 2E 20 20 54 52 59 20 41 47 41 49 4E 2E 22 0D T. TRY AGAIN.".
01EA80: 0A 34 32 30 20 47 4F 54 4F 20 33 35 30 0D 0A 34 .420 GOTO 350..4
01EA90: 33 30 20 59 31 3D 59 31 2B 59 0D 0A 34 34 30 20 30 Y1=Y1+Y..440
01EAA0: 54 3D 54 2D 59 0D 0A 34 35 30 20 49 46 20 54 3D T=T-Y..450 IF T=
01EAB0: 30 20 54 48 45 4E 20 38 38 30 0D 0A 34 36 30 20 0 THEN 880..460
01EAC0: 50 52 49 4E 54 20 22 54 4F 54 41 4C 3D 22 3B 54 PRINT "TOTAL=";T
01EAD0: 0D 0A 34 37 30 20 50 52 49 4E 54 0D 0A 34 38 30 ..470 PRINT..480
01EAE0: 20 50 52 49 4E 54 20 22 59 4F 55 52 20 54 4F 54 PRINT "YOUR TOT
01EAF0: 41 4C 20 49 53 22 3B 59 31 0D 0A 34 39 30 20 49 AL IS";Y1..490 I
01EB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01EC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ECA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ECB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ECC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ECD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ECE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ECF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01ED00: 46 20 54 3C 2E 35 20 54 48 45 4E 20 38 38 30 0D F T<.5 THEN 880.
01ED10: 0A 35 30 30 20 52 3D 54 2D 36 2A 49 4E 54 28 54 .500 R=T-6*INT(T
01ED20: 2F 36 29 0D 0A 35 31 30 20 49 46 20 49 4E 54 28 /6)..510 IF INT(
01ED30: 59 31 2F 32 29 3D 59 31 2F 32 20 54 48 45 4E 20 Y1/2)=Y1/2 THEN
01ED40: 37 30 30 0D 0A 35 32 30 20 49 46 20 54 3C 34 2E 700..520 IF T<4.
01ED50: 32 20 54 48 45 4E 20 35 38 30 0D 0A 35 33 30 20 2 THEN 580..530
01ED60: 49 46 20 52 3E 33 2E 34 20 54 48 45 4E 20 36 32 IF R>3.4 THEN 62
01ED70: 30 0D 0A 35 34 30 20 4D 3D 52 2B 31 0D 0A 35 35 0..540 M=R+1..55
01ED80: 30 20 4D 31 3D 4D 31 2B 4D 0D 0A 35 36 30 20 54 0 M1=M1+M..560 T
01ED90: 3D 54 2D 4D 0D 0A 35 37 30 20 47 4F 54 4F 20 33 =T-M..570 GOTO 3
01EDA0: 30 30 0D 0A 35 38 30 20 4D 3D 54 0D 0A 35 39 30 00..580 M=T..590
01EDB0: 20 54 3D 54 2D 4D 0D 0A 36 30 30 20 47 4F 54 4F T=T-M..600 GOTO
01EDC0: 20 38 33 30 0D 0A 36 31 30 20 52 45 4D 20 20 20 830..610 REM
01EDD0: 20 20 32 35 30 20 49 53 20 57 48 45 52 45 20 49 250 IS WHERE I
01EDE0: 20 57 49 4E 2E 0D 0A 36 32 30 20 49 46 20 52 3C WIN...620 IF R<
01EDF0: 34 2E 37 20 54 48 45 4E 20 36 36 30 0D 0A 36 33 4.7 THEN 660..63
01EE00: 30 20 49 46 20 52 3E 33 2E 35 20 54 48 45 4E 20 0 IF R>3.5 THEN
01EE10: 36 36 30 0D 0A 36 34 30 20 4D 3D 31 0D 0A 36 35 660..640 M=1..65
01EE20: 30 20 47 4F 54 4F 20 36 37 30 0D 0A 36 36 30 20 0 GOTO 670..660
01EE30: 4D 3D 34 0D 0A 36 37 30 20 54 3D 54 2D 4D 0D 0A M=4..670 T=T-M..
01EE40: 36 38 30 20 4D 31 3D 4D 31 2B 4D 0D 0A 36 39 30 680 M1=M1+M..690
01EE50: 20 47 4F 54 4F 20 33 30 30 0D 0A 37 30 30 20 52 GOTO 300..700 R
01EE60: 45 4D 20 20 20 20 20 49 20 41 4D 20 52 45 41 44 EM I AM READ
01EE70: 59 20 54 4F 20 45 4E 43 4F 44 45 20 54 48 45 20 Y TO ENCODE THE
01EE80: 53 54 52 41 54 20 46 4F 52 20 57 48 45 4E 20 4F STRAT FOR WHEN O
01EE90: 50 50 20 54 4F 54 20 49 53 20 45 56 45 4E 0D 0A PP TOT IS EVEN..
01EEA0: 37 31 30 20 49 46 20 52 3C 31 2E 35 20 54 48 45 710 IF R<1.5 THE
01EEB0: 4E 20 31 30 32 30 0D 0A 37 32 30 20 49 46 20 52 N 1020..720 IF R
01EEC0: 3E 35 2E 33 20 54 48 45 4E 20 31 30 32 30 0D 0A >5.3 THEN 1020..
01EED0: 37 33 30 20 4D 3D 52 2D 31 0D 0A 37 34 30 20 4D 730 M=R-1..740 M
01EEE0: 31 3D 4D 31 2B 4D 0D 0A 37 35 30 20 54 3D 54 2D 1=M1+M..750 T=T-
01EEF0: 4D 0D 0A 37 36 30 20 49 46 20 54 3C 2E 32 20 54 M..760 IF T<.2 T
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 00 00 02 09 52 E5 1A 00 C1 02 00 00 00 02 ......R.........
01EF20: 1A 00 C6 02 00 00 00 02 1A 00 C2 02 00 00 00 02 ................
01EF30: 1A 00 C7 02 00 00 00 02 1A 00 C3 02 00 00 00 02 ................
01EF40: 1A 00 C8 02 00 00 00 02 1A 00 C4 02 00 00 00 02 ................
01EF50: 1A 00 C9 02 00 00 00 02 1A 00 C5 02 00 00 00 02 ................
01EF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 10 PRINT TAB(32)
01F010: 3B 22 43 41 4C 45 4E 44 41 52 22 0D 0A 32 30 20 ;"CALENDAR"..20
01F020: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 PRINT TAB(15);"C
01F030: 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E REATIVE COMPUTIN
01F040: 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E G MORRISTOWN, N
01F050: 45 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 EW JERSEY"..30 P
01F060: 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 RINT:PRINT:PRINT
01F070: 0D 0A 31 30 30 20 52 45 4D 20 20 20 20 20 56 41 ..100 REM VA
01F080: 4C 55 45 53 20 46 4F 52 20 31 39 37 39 20 2D 20 LUES FOR 1979 -
01F090: 53 45 45 20 4E 4F 54 45 53 0D 0A 31 31 30 20 44 SEE NOTES..110 D
01F0A0: 49 4D 20 4D 28 31 32 29 0D 0A 31 32 30 20 46 4F IM M(12)..120 FO
01F0B0: 52 20 49 3D 31 20 54 4F 20 36 3A 20 50 52 49 4E R I=1 TO 6: PRIN
01F0C0: 54 20 43 48 52 24 28 31 30 29 3B 3A 20 4E 45 58 T CHR$(10);: NEX
01F0D0: 54 20 49 0D 0A 31 33 30 20 44 3D 31 3A 20 52 45 T I..130 D=1: RE
01F0E0: 4D 20 31 39 37 39 20 53 54 41 52 54 53 20 4F 4E M 1979 STARTS ON
01F0F0: 20 4D 4F 4E 44 41 59 20 28 30 3D 53 55 4E 2C 20 MONDAY (0=SUN,
01F100: 2D 31 3D 4D 4F 4E 2C 20 2D 32 3D 54 55 45 53 2E -1=MON, -2=TUES.
01F110: 2E 2E 29 0D 0A 31 34 30 20 53 3D 30 0D 0A 31 35 ..)..140 S=0..15
01F120: 30 20 52 45 4D 20 20 20 20 20 52 45 41 44 20 44 0 REM READ D
01F130: 41 59 53 20 4F 46 20 45 41 43 48 20 4D 4F 4E 54 AYS OF EACH MONT
01F140: 48 0D 0A 31 36 30 20 46 4F 52 20 4E 3D 30 20 54 H..160 FOR N=0 T
01F150: 4F 20 31 32 3A 20 52 45 41 44 20 4D 28 4E 29 3A O 12: READ M(N):
01F160: 20 4E 45 58 54 20 4E 0D 0A 31 37 30 20 52 45 4D NEXT N..170 REM
01F170: 0D 0A 31 38 30 20 46 4F 52 20 4E 3D 31 20 54 4F ..180 FOR N=1 TO
01F180: 20 31 32 0D 0A 31 39 30 20 50 52 49 4E 54 3A 20 12..190 PRINT:
01F190: 50 52 49 4E 54 3A 20 53 3D 53 2B 4D 28 4E 2D 31 PRINT: S=S+M(N-1
01F1A0: 29 0D 0A 32 30 30 20 50 52 49 4E 54 20 22 2A 2A )..200 PRINT "**
01F1B0: 22 3B 53 3B 54 41 42 28 37 29 3B 0D 0A 32 31 30 ";S;TAB(7);..210
01F1C0: 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 38 3A 20 FOR I=1 TO 18:
01F1D0: 50 52 49 4E 54 20 22 2A 22 3B 3A 20 4E 45 58 54 PRINT "*";: NEXT
01F1E0: 20 49 0D 0A 32 32 30 20 4F 4E 20 4E 20 47 4F 54 I..220 ON N GOT
01F1F0: 4F 20 32 33 30 2C 32 34 30 2C 32 35 30 2C 32 36 O 230,240,250,26
01F200: 3D 49 4E 54 28 43 2F 31 30 29 0D 0A 31 34 30 20 =INT(C/10)..140
01F210: 49 46 20 44 3D 30 20 54 48 45 4E 20 31 35 35 0D IF D=0 THEN 155.
01F220: 0A 31 35 30 20 50 52 49 4E 54 20 44 3B 22 54 45 .150 PRINT D;"TE
01F230: 4E 20 44 4F 4C 4C 41 52 20 42 49 4C 4C 28 53 29 N DOLLAR BILL(S)
01F240: 22 0D 0A 31 35 35 20 43 3D 4D 2D 28 44 2A 31 30 "..155 C=M-(D*10
01F250: 29 0D 0A 31 36 30 20 45 3D 49 4E 54 28 43 2F 35 )..160 E=INT(C/5
01F260: 29 0D 0A 31 37 30 20 49 46 20 45 3D 30 20 54 48 )..170 IF E=0 TH
01F270: 45 4E 20 31 38 35 0D 0A 31 38 30 20 50 52 49 4E EN 185..180 PRIN
01F280: 54 20 45 3B 22 46 49 56 45 20 44 4F 4C 4C 41 52 T E;"FIVE DOLLAR
01F290: 53 20 42 49 4C 4C 28 53 29 22 0D 0A 31 38 35 20 S BILL(S)"..185
01F2A0: 43 3D 4D 2D 28 44 2A 31 30 2B 45 2A 35 29 0D 0A C=M-(D*10+E*5)..
01F2B0: 31 39 30 20 46 3D 49 4E 54 28 43 29 0D 0A 32 30 190 F=INT(C)..20
01F2C0: 30 20 49 46 20 46 3D 30 20 54 48 45 4E 20 32 31 0 IF F=0 THEN 21
01F2D0: 35 0D 0A 32 31 30 20 50 52 49 4E 54 20 46 3B 22 5..210 PRINT F;"
01F2E0: 4F 4E 45 20 44 4F 4C 4C 41 52 20 42 49 4C 4C 28 ONE DOLLAR BILL(
01F2F0: 53 29 22 0D 0A 32 31 35 20 43 3D 4D 2D 28 44 2A S)"..215 C=M-(D*
01F300: 31 30 2B 45 2A 35 2B 46 29 0D 0A 32 32 30 20 43 10+E*5+F)..220 C
01F310: 3D 43 2A 31 30 30 0D 0A 32 32 35 20 4E 3D 43 0D =C*100..225 N=C.
01F320: 0A 32 33 30 20 47 3D 49 4E 54 28 43 2F 35 30 29 .230 G=INT(C/50)
01F330: 0D 0A 32 34 30 20 49 46 20 47 3D 30 20 54 48 45 ..240 IF G=0 THE
01F340: 4E 20 32 35 35 0D 0A 32 35 30 20 50 52 49 4E 54 N 255..250 PRINT
01F350: 20 47 3B 22 4F 4E 45 20 48 41 4C 46 20 44 4F 4C G;"ONE HALF DOL
01F360: 4C 41 52 28 53 29 22 0D 0A 32 35 35 20 43 3D 4E LAR(S)"..255 C=N
01F370: 2D 28 47 2A 35 30 29 0D 0A 32 36 30 20 48 3D 49 -(G*50)..260 H=I
01F380: 4E 54 28 43 2F 32 35 29 0D 0A 32 37 30 20 49 46 NT(C/25)..270 IF
01F390: 20 48 3D 30 20 54 48 45 4E 20 32 38 35 0D 0A 32 H=0 THEN 285..2
01F3A0: 38 30 20 50 52 49 4E 54 20 48 3B 22 51 55 41 52 80 PRINT H;"QUAR
01F3B0: 54 45 52 28 53 29 22 0D 0A 32 38 35 20 43 3D 4E TER(S)"..285 C=N
01F3C0: 2D 28 47 2A 35 30 2B 48 2A 32 35 29 0D 0A 32 39 -(G*50+H*25)..29
01F3D0: 30 20 49 3D 49 4E 54 28 43 2F 31 30 29 0D 0A 33 0 I=INT(C/10)..3
01F3E0: 30 30 20 49 46 20 49 3D 30 20 54 48 45 4E 20 33 00 IF I=0 THEN 3
01F3F0: 31 35 0D 0A 33 31 30 20 50 52 49 4E 54 20 49 3B 15..310 PRINT I;
01F400: 30 2C 32 37 30 2C 32 38 30 2C 32 39 30 2C 33 30 0,270,280,290,30
01F410: 30 2C 33 31 30 2C 33 32 30 2C 33 33 30 2C 33 34 0,310,320,330,34
01F420: 30 0D 0A 32 33 30 20 50 52 49 4E 54 20 22 20 4A 0..230 PRINT " J
01F430: 41 4E 55 41 52 59 20 22 3B 3A 20 47 4F 54 4F 20 ANUARY ";: GOTO
01F440: 33 35 30 0D 0A 32 34 30 20 50 52 49 4E 54 20 22 350..240 PRINT "
01F450: 20 46 45 42 52 55 41 52 59 22 3B 3A 20 47 4F 54 FEBRUARY";: GOT
01F460: 4F 20 33 35 30 0D 0A 32 35 30 20 50 52 49 4E 54 O 350..250 PRINT
01F470: 20 22 20 20 4D 41 52 43 48 20 20 22 3B 3A 20 47 " MARCH ";: G
01F480: 4F 54 4F 20 33 35 30 0D 0A 32 36 30 20 50 52 49 OTO 350..260 PRI
01F490: 4E 54 20 22 20 20 41 50 52 49 4C 20 20 22 3B 3A NT " APRIL ";:
01F4A0: 20 47 4F 54 4F 20 33 35 30 0D 0A 32 37 30 20 50 GOTO 350..270 P
01F4B0: 52 49 4E 54 20 22 20 20 20 4D 41 59 20 20 20 22 RINT " MAY "
01F4C0: 3B 3A 20 47 4F 54 4F 20 33 35 30 0D 0A 32 38 30 ;: GOTO 350..280
01F4D0: 20 50 52 49 4E 54 20 22 20 20 20 4A 55 4E 45 20 PRINT " JUNE
01F4E0: 20 22 3B 3A 20 47 4F 54 4F 20 33 35 30 0D 0A 32 ";: GOTO 350..2
01F4F0: 39 30 20 50 52 49 4E 54 20 22 20 20 20 4A 55 4C 90 PRINT " JUL
01F500: 59 20 20 22 3B 3A 20 47 4F 54 4F 20 33 35 30 0D Y ";: GOTO 350.
01F510: 0A 33 30 30 20 50 52 49 4E 54 20 22 20 20 41 55 .300 PRINT " AU
01F520: 47 55 53 54 20 22 3B 3A 20 47 4F 54 4F 20 33 35 GUST ";: GOTO 35
01F530: 30 0D 0A 33 31 30 20 50 52 49 4E 54 20 22 53 45 0..310 PRINT "SE
01F540: 50 54 45 4D 42 45 52 22 3B 3A 20 47 4F 54 4F 20 PTEMBER";: GOTO
01F550: 33 35 30 0D 0A 33 32 30 20 50 52 49 4E 54 20 22 350..320 PRINT "
01F560: 20 4F 43 54 4F 42 45 52 20 22 3B 3A 20 47 4F 54 OCTOBER ";: GOT
01F570: 4F 20 33 35 30 0D 0A 33 33 30 20 50 52 49 4E 54 O 350..330 PRINT
01F580: 20 22 20 4E 4F 56 45 4D 42 45 52 22 3B 3A 20 47 " NOVEMBER";: G
01F590: 4F 54 4F 20 33 35 30 0D 0A 33 34 30 20 50 52 49 OTO 350..340 PRI
01F5A0: 4E 54 20 22 20 44 45 43 45 4D 42 45 52 22 3B 0D NT " DECEMBER";.
01F5B0: 0A 33 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 .350 FOR I=1 TO
01F5C0: 31 38 3A 20 50 52 49 4E 54 20 22 2A 22 3B 3A 20 18: PRINT "*";:
01F5D0: 4E 45 58 54 20 49 0D 0A 33 36 30 20 50 52 49 4E NEXT I..360 PRIN
01F5E0: 54 20 33 36 35 2D 53 3B 22 2A 2A 22 3B 0D 0A 33 T 365-S;"**";..3
01F5F0: 37 30 20 52 45 4D 20 20 20 33 36 36 2D 53 3B 20 70 REM 366-S;
01F600: 22 44 49 4D 45 28 53 29 22 0D 0A 33 31 35 20 43 "DIME(S)"..315 C
01F610: 3D 4E 2D 28 47 2A 35 30 2B 48 2A 32 35 2B 49 2A =N-(G*50+H*25+I*
01F620: 31 30 29 0D 0A 33 32 30 20 4A 3D 49 4E 54 28 43 10)..320 J=INT(C
01F630: 2F 35 29 0D 0A 33 33 30 20 49 46 20 4A 3D 30 20 /5)..330 IF J=0
01F640: 54 48 45 4E 20 33 34 35 0D 0A 33 34 30 20 50 52 THEN 345..340 PR
01F650: 49 4E 54 20 4A 3B 22 4E 49 43 4B 45 4C 28 53 29 INT J;"NICKEL(S)
01F660: 22 0D 0A 33 34 35 20 43 3D 4E 2D 28 47 2A 35 30 "..345 C=N-(G*50
01F670: 2B 48 2A 32 35 2B 49 2A 31 30 2B 4A 2A 35 29 0D +H*25+I*10+J*5).
01F680: 0A 33 35 30 20 4B 3D 49 4E 54 28 43 2B 2E 35 29 .350 K=INT(C+.5)
01F690: 0D 0A 33 36 30 20 49 46 20 4B 3D 30 20 54 48 45 ..360 IF K=0 THE
01F6A0: 4E 20 33 38 30 0D 0A 33 37 30 20 50 52 49 4E 54 N 380..370 PRINT
01F6B0: 20 4B 3B 22 50 45 4E 4E 59 28 53 29 22 0D 0A 33 K;"PENNY(S)"..3
01F6C0: 38 30 20 50 52 49 4E 54 20 22 54 48 41 4E 4B 20 80 PRINT "THANK
01F6D0: 59 4F 55 2C 20 43 4F 4D 45 20 41 47 41 49 4E 2E YOU, COME AGAIN.
01F6E0: 22 0D 0A 33 39 30 20 50 52 49 4E 54 3A 50 52 49 "..390 PRINT:PRI
01F6F0: 4E 54 0D 0A 34 30 30 20 47 4F 54 4F 20 31 30 0D NT..400 GOTO 10.
01F700: 0A 34 31 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 .410 END........
01F710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01F800: 20 20 20 20 4F 4E 20 4C 45 41 50 20 59 45 41 52 ON LEAP YEAR
01F810: 53 0D 0A 33 38 30 20 50 52 49 4E 54 20 43 48 52 S..380 PRINT CHR
01F820: 24 28 31 30 29 3A 20 50 52 49 4E 54 20 22 20 20 $(10): PRINT "
01F830: 20 20 20 53 20 20 20 20 20 20 20 4D 20 20 20 20 S M
01F840: 20 20 20 54 20 20 20 20 20 20 20 57 22 3B 0D 0A T W";..
01F850: 33 39 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 390 PRINT "
01F860: 20 20 54 20 20 20 20 20 20 20 46 20 20 20 20 20 T F
01F870: 20 20 53 22 0D 0A 34 30 30 20 50 52 49 4E 54 0D S"..400 PRINT.
01F880: 0A 34 31 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 .410 FOR I=1 TO
01F890: 35 39 3A 20 50 52 49 4E 54 20 22 2A 22 3B 3A 20 59: PRINT "*";:
01F8A0: 4E 45 58 54 20 49 0D 0A 34 32 30 20 52 45 4D 0D NEXT I..420 REM.
01F8B0: 0A 34 33 30 20 46 4F 52 20 57 3D 31 20 54 4F 20 .430 FOR W=1 TO
01F8C0: 36 0D 0A 34 34 30 20 50 52 49 4E 54 20 43 48 52 6..440 PRINT CHR
01F8D0: 24 28 31 30 29 0D 0A 34 35 30 20 50 52 49 4E 54 $(10)..450 PRINT
01F8E0: 20 54 41 42 28 34 29 0D 0A 34 36 30 20 52 45 4D TAB(4)..460 REM
01F8F0: 0D 0A 34 37 30 20 46 4F 52 20 47 3D 31 20 54 4F ..470 FOR G=1 TO
01F900: 20 37 0D 0A 34 38 30 20 44 3D 44 2B 31 0D 0A 34 7..480 D=D+1..4
01F910: 39 30 20 44 32 3D 44 2D 53 0D 0A 35 30 30 20 49 90 D2=D-S..500 I
01F920: 46 20 44 32 3E 4D 28 4E 29 20 54 48 45 4E 20 35 F D2>M(N) THEN 5
01F930: 38 30 0D 0A 35 31 30 20 49 46 20 44 32 3E 30 20 80..510 IF D2>0
01F940: 54 48 45 4E 20 50 52 49 4E 54 20 44 32 3B 0D 0A THEN PRINT D2;..
01F950: 35 32 30 20 50 52 49 4E 54 20 54 41 42 28 34 2B 520 PRINT TAB(4+
01F960: 38 2A 47 29 3B 0D 0A 35 33 30 20 4E 45 58 54 20 8*G);..530 NEXT
01F970: 47 0D 0A 35 34 30 20 52 45 4D 0D 0A 35 35 30 20 G..540 REM..550
01F980: 49 46 20 44 32 3D 4D 28 4E 29 20 54 48 45 4E 20 IF D2=M(N) THEN
01F990: 35 39 30 0D 0A 35 36 30 20 4E 45 58 54 20 57 0D 590..560 NEXT W.
01F9A0: 0A 35 37 30 20 52 45 4D 0D 0A 35 38 30 20 44 3D .570 REM..580 D=
01F9B0: 44 2D 47 0D 0A 35 39 30 20 4E 45 58 54 20 4E 0D D-G..590 NEXT N.
01F9C0: 0A 36 30 30 20 52 45 4D 0D 0A 36 31 30 20 46 4F .600 REM..610 FO
01F9D0: 52 20 49 3D 31 20 54 4F 20 36 3A 20 50 52 49 4E R I=1 TO 6: PRIN
01F9E0: 54 20 43 48 52 24 28 31 30 29 3B 3A 20 4E 45 58 T CHR$(10);: NEX
01F9F0: 54 20 49 0D 0A 36 32 30 20 44 41 54 41 20 30 2C T I..620 DATA 0,
01FA00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FA90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FAF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC00: 33 31 2C 32 38 2C 33 31 2C 33 30 2C 33 31 2C 33 31,28,31,30,31,3
01FC10: 30 2C 33 31 2C 33 31 2C 33 30 2C 33 31 2C 33 30 0,31,31,30,31,30
01FC20: 2C 33 31 0D 0A 36 33 30 20 52 45 4D 20 20 30 2C ,31..630 REM 0,
01FC30: 33 31 2C 32 39 2C 20 20 2E 2E 2E 2C 20 4F 4E 20 31,29, ..., ON
01FC40: 4C 45 41 50 20 59 45 41 52 53 0D 0A 36 34 30 20 LEAP YEARS..640
01FC50: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
01FC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FCA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FCB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FCC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FCD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FCE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FCF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
01FE00: 35 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 3B 5 PRINT TAB(32);
01FE10: 22 43 48 45 43 4B 45 52 53 22 0D 0A 31 30 20 50 "CHECKERS"..10 P
01FE20: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
01FE30: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
01FE40: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
01FE50: 57 20 4A 45 52 53 45 59 22 0D 0A 31 35 20 50 52 W JERSEY"..15 PR
01FE60: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
01FE70: 0A 32 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 .20 PRINT "THIS
01FE80: 49 53 20 54 48 45 20 47 41 4D 45 20 4F 46 20 43 IS THE GAME OF C
01FE90: 48 45 43 4B 45 52 53 2E 20 20 54 48 45 20 43 4F HECKERS. THE CO
01FEA0: 4D 50 55 54 45 52 20 49 53 20 58 2C 22 0D 0A 32 MPUTER IS X,"..2
01FEB0: 35 20 50 52 49 4E 54 20 22 41 4E 44 20 59 4F 55 5 PRINT "AND YOU
01FEC0: 20 41 52 45 20 4F 2E 20 20 54 48 45 20 43 4F 4D ARE O. THE COM
01FED0: 50 55 54 45 52 20 57 49 4C 4C 20 4D 4F 56 45 20 PUTER WILL MOVE
01FEE0: 46 49 52 53 54 2E 22 0D 0A 33 30 20 50 52 49 4E FIRST."..30 PRIN
01FEF0: 54 20 22 53 51 55 41 52 45 53 20 41 52 45 20 52 T "SQUARES ARE R
01FF00: 45 46 45 52 52 45 44 20 54 4F 20 42 59 20 41 20 EFERRED TO BY A
01FF10: 43 4F 4F 52 44 49 4E 41 54 45 20 53 59 53 54 45 COORDINATE SYSTE
01FF20: 4D 2E 22 0D 0A 33 35 20 50 52 49 4E 54 20 22 28 M."..35 PRINT "(
01FF30: 30 2C 30 29 20 49 53 20 54 48 45 20 4C 4F 57 45 0,0) IS THE LOWE
01FF40: 52 20 4C 45 46 54 20 43 4F 52 4E 45 52 22 0D 0A R LEFT CORNER"..
01FF50: 34 30 20 50 52 49 4E 54 20 22 28 30 2C 37 29 20 40 PRINT "(0,7)
01FF60: 49 53 20 54 48 45 20 55 50 50 45 52 20 4C 45 46 IS THE UPPER LEF
01FF70: 54 20 43 4F 52 4E 45 52 22 0D 0A 34 35 20 50 52 T CORNER"..45 PR
01FF80: 49 4E 54 20 22 28 37 2C 30 29 20 49 53 20 54 48 INT "(7,0) IS TH
01FF90: 45 20 4C 4F 57 45 52 20 52 49 47 48 54 20 43 4F E LOWER RIGHT CO
01FFA0: 52 4E 45 52 22 0D 0A 35 30 20 50 52 49 4E 54 20 RNER"..50 PRINT
01FFB0: 22 28 37 2C 37 29 20 49 53 20 54 48 45 20 55 50 "(7,7) IS THE UP
01FFC0: 50 45 52 20 52 49 47 48 54 20 43 4F 52 4E 45 52 PER RIGHT CORNER
01FFD0: 22 0D 0A 35 35 20 50 52 49 4E 54 20 22 54 48 45 "..55 PRINT "THE
01FFE0: 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 54 COMPUTER WILL T
01FFF0: 59 50 45 20 27 2B 54 4F 27 20 57 48 45 4E 20 59 YPE '+TO' WHEN Y
020000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
020010: 22 43 48 41 4E 47 45 22 0D 0A 34 20 50 52 49 4E "CHANGE"..4 PRIN
020020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
020030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
020040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
020050: 45 52 53 45 59 22 0D 0A 35 20 50 52 49 4E 54 3A ERSEY"..5 PRINT:
020060: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 36 20 50 PRINT:PRINT..6 P
020070: 52 49 4E 54 20 22 49 2C 20 59 4F 55 52 20 46 52 RINT "I, YOUR FR
020080: 49 45 4E 44 4C 59 20 4D 49 43 52 4F 43 4F 4D 50 IENDLY MICROCOMP
020090: 55 54 45 52 2C 20 57 49 4C 4C 20 44 45 54 45 52 UTER, WILL DETER
0200A0: 4D 49 4E 45 22 0D 0A 38 20 50 52 49 4E 54 20 22 MINE"..8 PRINT "
0200B0: 54 48 45 20 43 4F 52 52 45 43 54 20 43 48 41 4E THE CORRECT CHAN
0200C0: 47 45 20 46 4F 52 20 49 54 45 4D 53 20 43 4F 53 GE FOR ITEMS COS
0200D0: 54 49 4E 47 20 55 50 20 54 4F 20 24 31 30 30 2E TING UP TO $100.
0200E0: 22 0D 0A 39 20 50 52 49 4E 54 3A 50 52 49 4E 54 "..9 PRINT:PRINT
0200F0: 0D 0A 31 30 20 50 52 49 4E 54 20 22 43 4F 53 54 ..10 PRINT "COST
020100: 20 4F 46 20 49 54 45 4D 22 3B 3A 49 4E 50 55 54 OF ITEM";:INPUT
020110: 20 41 3A 50 52 49 4E 54 20 22 41 4D 4F 55 4E 54 A:PRINT "AMOUNT
020120: 20 4F 46 20 50 41 59 4D 45 4E 54 22 3B 3A 49 4E OF PAYMENT";:IN
020130: 50 55 54 20 50 0D 0A 32 30 20 43 3D 50 2D 41 3A PUT P..20 C=P-A:
020140: 4D 3D 43 3A 49 46 20 43 3C 3E 30 20 54 48 45 4E M=C:IF C<>0 THEN
020150: 20 39 30 0D 0A 32 35 20 50 52 49 4E 54 20 22 43 90..25 PRINT "C
020160: 4F 52 52 45 43 54 20 41 4D 4F 55 4E 54 2C 20 54 ORRECT AMOUNT, T
020170: 48 41 4E 4B 20 59 4F 55 2E 22 0D 0A 33 30 20 47 HANK YOU."..30 G
020180: 4F 54 4F 20 34 30 30 0D 0A 39 30 20 49 46 20 43 OTO 400..90 IF C
020190: 3E 30 20 54 48 45 4E 20 31 32 30 0D 0A 39 35 20 >0 THEN 120..95
0201A0: 50 52 49 4E 54 20 22 53 4F 52 52 59 2C 20 59 4F PRINT "SORRY, YO
0201B0: 55 20 48 41 56 45 20 53 48 4F 52 54 2D 43 48 41 U HAVE SHORT-CHA
0201C0: 4E 47 45 44 20 4D 45 20 24 22 3B 41 2D 50 0D 0A NGED ME $";A-P..
0201D0: 31 30 30 20 47 4F 54 4F 20 31 30 0D 0A 31 32 30 100 GOTO 10..120
0201E0: 20 50 52 49 4E 54 20 22 59 4F 55 52 20 43 48 41 PRINT "YOUR CHA
0201F0: 4E 47 45 2C 20 24 22 3B 43 0D 0A 31 33 30 20 44 NGE, $";C..130 D
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 00 00 02 09 52 E5 1B 00 C1 02 00 00 00 02 ......R.........
020220: 1B 00 C6 02 00 00 00 02 1B 00 C2 02 00 00 00 02 ................
020230: 1B 00 C7 02 00 00 00 02 1B 00 C3 02 00 00 00 02 ................
020240: 1B 00 C8 02 00 00 00 02 1B 00 C4 02 00 00 00 02 ................
020250: 1B 00 C9 02 00 00 00 02 1B 00 C5 02 00 00 00 02 ................
020260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020300: 4F 55 20 48 41 56 45 20 41 4E 4F 54 48 45 52 22 OU HAVE ANOTHER"
020310: 0D 0A 36 30 20 50 52 49 4E 54 20 22 4A 55 4D 50 ..60 PRINT "JUMP
020320: 2E 20 20 54 59 50 45 20 54 57 4F 20 4E 45 47 41 . TYPE TWO NEGA
020330: 54 49 56 45 20 4E 55 4D 42 45 52 53 20 49 46 20 TIVE NUMBERS IF
020340: 59 4F 55 20 43 41 4E 4E 4F 54 20 4A 55 4D 50 2E YOU CANNOT JUMP.
020350: 22 0D 0A 36 35 20 50 52 49 4E 54 3A 50 52 49 4E "..65 PRINT:PRIN
020360: 54 3A 50 52 49 4E 54 0D 0A 38 30 20 44 49 4D 20 T:PRINT..80 DIM
020370: 52 28 34 29 2C 53 28 37 2C 37 29 3A 47 3D 2D 31 R(4),S(7,7):G=-1
020380: 3A 52 28 30 29 3D 2D 39 39 0D 0A 39 30 20 44 41 :R(0)=-99..90 DA
020390: 54 41 20 31 2C 30 2C 31 2C 30 2C 30 2C 30 2C 2D TA 1,0,1,0,0,0,-
0203A0: 31 2C 30 2C 30 2C 31 2C 30 2C 30 2C 30 2C 2D 31 1,0,0,1,0,0,0,-1
0203B0: 2C 30 2C 2D 31 2C 31 35 0D 0A 31 32 30 20 46 4F ,0,-1,15..120 FO
0203C0: 52 20 58 3D 30 20 54 4F 20 37 3A 46 4F 52 20 59 R X=0 TO 7:FOR Y
0203D0: 3D 30 20 54 4F 20 37 3A 52 45 41 44 20 4A 3A 49 =0 TO 7:READ J:I
0203E0: 46 20 4A 3D 31 35 20 54 48 45 4E 20 31 38 30 0D F J=15 THEN 180.
0203F0: 0A 31 36 30 20 53 28 58 2C 59 29 3D 4A 3A 47 4F .160 S(X,Y)=J:GO
020400: 54 4F 20 32 30 30 0D 0A 31 38 30 20 52 45 53 54 TO 200..180 REST
020410: 4F 52 45 3A 52 45 41 44 20 53 28 58 2C 59 29 0D ORE:READ S(X,Y).
020420: 0A 32 30 30 20 4E 45 58 54 20 59 2C 58 0D 0A 32 .200 NEXT Y,X..2
020430: 33 30 20 46 4F 52 20 58 3D 30 20 54 4F 20 37 3A 30 FOR X=0 TO 7:
020440: 46 4F 52 20 59 3D 30 20 54 4F 20 37 3A 49 46 20 FOR Y=0 TO 7:IF
020450: 53 28 58 2C 59 29 3E 2D 31 20 54 48 45 4E 20 33 S(X,Y)>-1 THEN 3
020460: 35 30 0D 0A 33 31 30 20 49 46 20 53 28 58 2C 59 50..310 IF S(X,Y
020470: 29 3D 2D 31 20 54 48 45 4E 20 46 4F 52 20 41 3D )=-1 THEN FOR A=
020480: 2D 31 20 54 4F 20 31 20 53 54 45 50 20 32 3A 42 -1 TO 1 STEP 2:B
020490: 3D 47 3A 47 4F 53 55 42 20 36 35 30 3A 4E 45 58 =G:GOSUB 650:NEX
0204A0: 54 20 41 0D 0A 33 33 30 20 49 46 20 53 28 58 2C T A..330 IF S(X,
0204B0: 59 29 3D 2D 32 20 54 48 45 4E 20 46 4F 52 20 41 Y)=-2 THEN FOR A
0204C0: 3D 2D 31 20 54 4F 20 31 20 53 54 45 50 20 32 3A =-1 TO 1 STEP 2:
0204D0: 46 4F 52 20 42 3D 2D 31 20 54 4F 20 31 20 53 54 FOR B=-1 TO 1 ST
0204E0: 45 50 20 32 3A 47 4F 53 55 42 20 36 35 30 3A 4E EP 2:GOSUB 650:N
0204F0: 45 58 54 20 42 2C 41 0D 0A 33 35 30 20 4E 45 58 EXT B,A..350 NEX
020500: 29 3D 30 0D 0A 31 38 30 32 20 49 4E 50 55 54 20 )=0..1802 INPUT
020510: 22 2B 54 4F 22 3B 41 31 2C 42 31 3A 49 46 20 41 "+TO";A1,B1:IF A
020520: 31 3C 30 20 54 48 45 4E 20 31 38 31 30 0D 0A 31 1<0 THEN 1810..1
020530: 38 30 34 20 49 46 20 53 28 41 31 2C 42 31 29 3C 804 IF S(A1,B1)<
020540: 3E 30 20 4F 52 20 41 42 53 28 41 31 2D 41 29 3C >0 OR ABS(A1-A)<
020550: 3E 32 20 4F 52 20 41 42 53 28 42 31 2D 42 29 3C >2 OR ABS(B1-B)<
020560: 3E 32 20 54 48 45 4E 20 31 38 30 32 0D 0A 31 38 >2 THEN 1802..18
020570: 30 36 20 45 3D 41 3A 48 3D 42 3A 41 3D 41 31 3A 06 E=A:H=B:A=A1:
020580: 42 3D 42 31 3A 49 3D 49 2B 31 35 3A 47 4F 54 4F B=B1:I=I+15:GOTO
020590: 20 31 37 35 30 0D 0A 31 38 31 30 20 49 46 20 42 1750..1810 IF B
0205A0: 3D 37 20 54 48 45 4E 20 53 28 41 2C 42 29 3D 32 =7 THEN S(A,B)=2
0205B0: 0D 0A 31 38 33 30 20 47 4F 54 4F 20 32 33 30 0D ..1830 GOTO 230.
0205C0: 0A 31 38 38 30 20 50 52 49 4E 54 3A 20 50 52 49 .1880 PRINT: PRI
0205D0: 4E 54 20 22 59 4F 55 20 57 49 4E 2E 22 3A 20 45 NT "YOU WIN.": E
0205E0: 4E 44 0D 0A 31 38 38 35 20 50 52 49 4E 54 3A 20 ND..1885 PRINT:
0205F0: 50 52 49 4E 54 20 22 49 20 57 49 4E 2E 22 3A 20 PRINT "I WIN.":
020600: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
020610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0206A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0206B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0206C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0206D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0206E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0206F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020700: 54 20 59 2C 58 3A 47 4F 54 4F 20 31 31 34 30 0D T Y,X:GOTO 1140.
020710: 0A 36 35 30 20 55 3D 58 2B 41 3A 56 3D 59 2B 42 .650 U=X+A:V=Y+B
020720: 3A 49 46 20 55 3C 30 20 4F 52 20 55 3E 37 20 4F :IF U<0 OR U>7 O
020730: 52 20 56 3C 30 20 4F 52 20 56 3E 37 20 54 48 45 R V<0 OR V>7 THE
020740: 4E 20 38 37 30 0D 0A 37 34 30 20 49 46 20 53 28 N 870..740 IF S(
020750: 55 2C 56 29 3D 30 20 54 48 45 4E 20 47 4F 53 55 U,V)=0 THEN GOSU
020760: 42 20 39 31 30 3A 47 4F 54 4F 20 38 37 30 0D 0A B 910:GOTO 870..
020770: 37 37 30 20 49 46 20 53 28 55 2C 56 29 3C 30 20 770 IF S(U,V)<0
020780: 54 48 45 4E 20 38 37 30 0D 0A 37 39 30 20 55 3D THEN 870..790 U=
020790: 55 2B 41 3A 56 3D 56 2B 42 3A 49 46 20 55 3C 30 U+A:V=V+B:IF U<0
0207A0: 20 4F 52 20 56 3C 30 20 4F 52 20 55 3E 37 20 4F OR V<0 OR U>7 O
0207B0: 52 20 56 3E 37 20 54 48 45 4E 20 38 37 30 0D 0A R V>7 THEN 870..
0207C0: 38 35 30 20 49 46 20 53 28 55 2C 56 29 3D 30 20 850 IF S(U,V)=0
0207D0: 54 48 45 4E 20 47 4F 53 55 42 20 39 31 30 0D 0A THEN GOSUB 910..
0207E0: 38 37 30 20 52 45 54 55 52 4E 0D 0A 39 31 30 20 870 RETURN..910
0207F0: 49 46 20 56 3D 30 20 41 4E 44 20 53 28 58 2C 59 IF V=0 AND S(X,Y
020800: 29 3D 2D 31 20 54 48 45 4E 20 51 3D 51 2B 32 0D )=-1 THEN Q=Q+2.
020810: 0A 39 32 30 20 49 46 20 41 42 53 28 59 2D 56 29 .920 IF ABS(Y-V)
020820: 3D 32 20 54 48 45 4E 20 51 3D 51 2B 35 0D 0A 39 =2 THEN Q=Q+5..9
020830: 36 30 20 49 46 20 59 3D 37 20 54 48 45 4E 20 51 60 IF Y=7 THEN Q
020840: 3D 51 2D 32 0D 0A 39 38 30 20 49 46 20 55 3D 30 =Q-2..980 IF U=0
020850: 20 4F 52 20 55 3D 37 20 54 48 45 4E 20 51 3D 51 OR U=7 THEN Q=Q
020860: 2B 31 0D 0A 31 30 33 30 20 46 4F 52 20 43 3D 2D +1..1030 FOR C=-
020870: 31 20 54 4F 20 31 20 53 54 45 50 20 32 3A 49 46 1 TO 1 STEP 2:IF
020880: 20 55 2B 43 3C 30 20 4F 52 20 55 2B 43 3E 37 20 U+C<0 OR U+C>7
020890: 4F 52 20 56 2B 47 3C 30 20 54 48 45 4E 20 31 30 OR V+G<0 THEN 10
0208A0: 38 30 0D 0A 31 30 33 35 20 49 46 20 53 28 55 2B 80..1035 IF S(U+
0208B0: 43 2C 56 2B 47 29 3C 30 20 54 48 45 4E 20 51 3D C,V+G)<0 THEN Q=
0208C0: 51 2B 31 3A 47 4F 54 4F 20 31 30 38 30 0D 0A 31 Q+1:GOTO 1080..1
0208D0: 30 34 30 20 49 46 20 55 2D 43 3C 30 20 4F 52 20 040 IF U-C<0 OR
0208E0: 55 2D 43 3E 37 20 4F 52 20 56 2D 47 3E 37 20 54 U-C>7 OR V-G>7 T
0208F0: 48 45 4E 20 31 30 38 30 0D 0A 31 30 34 35 20 49 HEN 1080..1045 I
020900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0209A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0209B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0209C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0209D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0209E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0209F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
020B00: 46 20 53 28 55 2B 43 2C 56 2B 47 29 3E 30 20 41 F S(U+C,V+G)>0 A
020B10: 4E 44 28 53 28 55 2D 43 2C 56 2D 47 29 3D 30 20 ND(S(U-C,V-G)=0
020B20: 4F 52 28 55 2D 43 3D 58 20 41 4E 44 20 56 2D 47 OR(U-C=X AND V-G
020B30: 3D 59 29 29 54 48 45 4E 20 51 3D 51 2D 32 0D 0A =Y))THEN Q=Q-2..
020B40: 31 30 38 30 20 4E 45 58 54 20 43 3A 49 46 20 51 1080 NEXT C:IF Q
020B50: 3E 52 28 30 29 54 48 45 4E 20 52 28 30 29 3D 51 >R(0)THEN R(0)=Q
020B60: 3A 52 28 31 29 3D 58 3A 52 28 32 29 3D 59 3A 52 :R(1)=X:R(2)=Y:R
020B70: 28 33 29 3D 55 3A 52 28 34 29 3D 56 0D 0A 31 31 (3)=U:R(4)=V..11
020B80: 30 30 20 51 3D 30 3A 52 45 54 55 52 4E 0D 0A 31 00 Q=0:RETURN..1
020B90: 31 34 30 20 49 46 20 52 28 30 29 3D 2D 39 39 20 140 IF R(0)=-99
020BA0: 54 48 45 4E 20 31 38 38 30 0D 0A 31 32 33 30 20 THEN 1880..1230
020BB0: 50 52 49 4E 54 20 43 48 52 24 28 33 30 29 22 46 PRINT CHR$(30)"F
020BC0: 52 4F 4D 22 52 28 31 29 3B 52 28 32 29 22 54 4F ROM"R(1);R(2)"TO
020BD0: 22 52 28 33 29 3B 52 28 34 29 3B 3A 52 28 30 29 "R(3);R(4);:R(0)
020BE0: 3D 2D 39 39 0D 0A 31 32 34 30 20 49 46 20 52 28 =-99..1240 IF R(
020BF0: 34 29 3D 30 20 54 48 45 4E 20 53 28 52 28 33 29 4)=0 THEN S(R(3)
020C00: 2C 52 28 34 29 29 3D 2D 32 3A 47 4F 54 4F 20 31 ,R(4))=-2:GOTO 1
020C10: 34 32 30 0D 0A 31 32 35 30 20 53 28 52 28 33 29 420..1250 S(R(3)
020C20: 2C 52 28 34 29 29 3D 53 28 52 28 31 29 2C 52 28 ,R(4))=S(R(1),R(
020C30: 32 29 29 0D 0A 31 33 31 30 20 53 28 52 28 31 29 2))..1310 S(R(1)
020C40: 2C 52 28 32 29 29 3D 30 3A 49 46 20 41 42 53 28 ,R(2))=0:IF ABS(
020C50: 52 28 31 29 2D 52 28 33 29 29 3C 3E 32 20 54 48 R(1)-R(3))<>2 TH
020C60: 45 4E 20 31 34 32 30 0D 0A 31 33 33 30 20 53 28 EN 1420..1330 S(
020C70: 28 52 28 31 29 2B 52 28 33 29 29 2F 32 2C 28 52 (R(1)+R(3))/2,(R
020C80: 28 32 29 2B 52 28 34 29 29 2F 32 29 3D 30 0D 0A (2)+R(4))/2)=0..
020C90: 31 33 34 30 20 58 3D 52 28 33 29 3A 59 3D 52 28 1340 X=R(3):Y=R(
020CA0: 34 29 3A 49 46 20 53 28 58 2C 59 29 3D 2D 31 20 4):IF S(X,Y)=-1
020CB0: 54 48 45 4E 20 42 3D 2D 32 3A 46 4F 52 20 41 3D THEN B=-2:FOR A=
020CC0: 2D 32 20 54 4F 20 32 20 53 54 45 50 20 34 3A 47 -2 TO 2 STEP 4:G
020CD0: 4F 53 55 42 20 31 33 37 30 0D 0A 31 33 35 30 20 OSUB 1370..1350
020CE0: 49 46 20 53 28 58 2C 59 29 3D 2D 32 20 54 48 45 IF S(X,Y)=-2 THE
020CF0: 4E 20 46 4F 52 20 41 3D 2D 32 20 54 4F 20 32 20 N FOR A=-2 TO 2
020D00: 33 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 3 PRINT TAB(33);
020D10: 22 43 48 45 4D 49 53 54 22 0D 0A 36 20 50 52 49 "CHEMIST"..6 PRI
020D20: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
020D30: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
020D40: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
020D50: 4A 45 52 53 45 59 22 0D 0A 38 20 50 52 49 4E 54 JERSEY"..8 PRINT
020D60: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 :PRINT:PRINT..10
020D70: 20 50 52 49 4E 54 20 22 54 48 45 20 46 49 43 54 PRINT "THE FICT
020D80: 49 54 49 4F 55 53 20 43 48 45 43 4D 49 43 41 4C ITIOUS CHECMICAL
020D90: 20 4B 52 59 50 54 4F 43 59 41 4E 49 43 20 41 43 KRYPTOCYANIC AC
020DA0: 49 44 20 43 41 4E 20 4F 4E 4C 59 20 42 45 22 0D ID CAN ONLY BE".
020DB0: 0A 32 30 20 50 52 49 4E 54 20 22 44 49 4C 55 54 .20 PRINT "DILUT
020DC0: 45 44 20 42 59 20 54 48 45 20 52 41 54 49 4F 20 ED BY THE RATIO
020DD0: 4F 46 20 37 20 50 41 52 54 53 20 57 41 54 45 52 OF 7 PARTS WATER
020DE0: 20 54 4F 20 33 20 50 41 52 54 53 20 41 43 49 44 TO 3 PARTS ACID
020DF0: 2E 22 0D 0A 33 30 20 50 52 49 4E 54 20 22 49 46 ."..30 PRINT "IF
020E00: 20 41 4E 59 20 4F 54 48 45 52 20 52 41 54 49 4F ANY OTHER RATIO
020E10: 20 49 53 20 41 54 54 45 4D 50 54 45 44 2C 20 54 IS ATTEMPTED, T
020E20: 48 45 20 41 43 49 44 20 42 45 43 4F 4D 45 53 20 HE ACID BECOMES
020E30: 55 4E 53 54 41 42 4C 45 22 0D 0A 34 30 20 50 52 UNSTABLE"..40 PR
020E40: 49 4E 54 20 22 41 4E 44 20 53 4F 4F 4E 20 45 58 INT "AND SOON EX
020E50: 50 4C 4F 44 45 53 2E 20 20 47 49 56 45 4E 20 54 PLODES. GIVEN T
020E60: 48 45 20 41 4D 4F 55 4E 54 20 4F 46 20 41 43 49 HE AMOUNT OF ACI
020E70: 44 2C 20 59 4F 55 20 4D 55 53 54 22 0D 0A 35 30 D, YOU MUST"..50
020E80: 20 50 52 49 4E 54 20 22 44 45 43 49 44 45 20 57 PRINT "DECIDE W
020E90: 48 4F 20 4D 55 43 48 20 57 41 54 45 52 20 54 4F HO MUCH WATER TO
020EA0: 20 41 44 44 20 46 4F 52 20 44 49 4C 55 54 49 4F ADD FOR DILUTIO
020EB0: 4E 2E 20 20 49 46 20 59 4F 55 20 4D 49 53 53 22 N. IF YOU MISS"
020EC0: 0D 0A 36 30 20 50 52 49 4E 54 20 22 59 4F 55 20 ..60 PRINT "YOU
020ED0: 46 41 43 45 20 54 48 45 20 43 4F 4E 53 45 51 55 FACE THE CONSEQU
020EE0: 45 4E 43 45 53 2E 22 0D 0A 31 30 30 20 41 3D 49 ENCES."..100 A=I
020EF0: 4E 54 28 52 4E 44 28 31 29 2A 35 30 29 0D 0A 31 NT(RND(1)*50)..1
020F00: 53 54 45 50 20 34 3A 46 4F 52 20 42 3D 2D 32 20 STEP 4:FOR B=-2
020F10: 54 4F 20 32 20 53 54 45 50 20 34 3A 47 4F 53 55 TO 2 STEP 4:GOSU
020F20: 42 20 31 33 37 30 3A 4E 45 58 54 20 42 0D 0A 31 B 1370:NEXT B..1
020F30: 33 36 30 20 4E 45 58 54 20 41 3A 49 46 20 52 28 360 NEXT A:IF R(
020F40: 30 29 3C 3E 2D 39 39 20 54 48 45 4E 20 50 52 49 0)<>-99 THEN PRI
020F50: 4E 54 22 54 4F 22 52 28 33 29 3B 52 28 34 29 3B NT"TO"R(3);R(4);
020F60: 3A 52 28 30 29 3D 2D 39 39 3A 47 4F 54 4F 20 31 :R(0)=-99:GOTO 1
020F70: 32 34 30 0D 0A 31 33 36 35 20 47 4F 54 4F 20 31 240..1365 GOTO 1
020F80: 34 32 30 0D 0A 31 33 37 30 20 55 3D 58 2B 41 3A 420..1370 U=X+A:
020F90: 56 3D 59 2B 42 3A 49 46 20 55 3C 30 20 4F 52 20 V=Y+B:IF U<0 OR
020FA0: 55 3E 37 20 4F 52 20 56 3C 30 20 4F 52 20 56 3E U>7 OR V<0 OR V>
020FB0: 37 20 54 48 45 4E 20 31 34 30 30 0D 0A 31 33 38 7 THEN 1400..138
020FC0: 30 20 49 46 20 53 28 55 2C 56 29 3D 30 20 41 4E 0 IF S(U,V)=0 AN
020FD0: 44 20 53 28 58 2B 41 2F 32 2C 59 2B 42 2F 32 29 D S(X+A/2,Y+B/2)
020FE0: 3E 30 20 54 48 45 4E 20 47 4F 53 55 42 20 39 31 >0 THEN GOSUB 91
020FF0: 30 0D 0A 31 34 30 30 20 52 45 54 55 52 4E 0D 0A 0..1400 RETURN..
021000: 31 34 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 1420 PRINT:PRINT
021010: 3A 50 52 49 4E 54 3A 46 4F 52 20 59 3D 37 20 54 :PRINT:FOR Y=7 T
021020: 4F 20 30 20 53 54 45 50 2D 31 3A 46 4F 52 20 58 O 0 STEP-1:FOR X
021030: 3D 30 20 54 4F 20 37 3A 49 3D 35 2A 58 3A 50 52 =0 TO 7:I=5*X:PR
021040: 49 4E 54 20 54 41 42 28 49 29 3B 0D 0A 31 34 33 INT TAB(I);..143
021050: 30 20 49 46 20 53 28 58 2C 59 29 3D 30 20 54 48 0 IF S(X,Y)=0 TH
021060: 45 4E 20 50 52 49 4E 54 22 2E 22 3B 0D 0A 31 34 EN PRINT".";..14
021070: 37 30 20 49 46 20 53 28 58 2C 59 29 3D 31 20 54 70 IF S(X,Y)=1 T
021080: 48 45 4E 20 50 52 49 4E 54 22 4F 22 3B 0D 0A 31 HEN PRINT"O";..1
021090: 34 39 30 20 49 46 20 53 28 58 2C 59 29 3D 2D 31 490 IF S(X,Y)=-1
0210A0: 20 54 48 45 4E 20 50 52 49 4E 54 22 58 22 3B 0D THEN PRINT"X";.
0210B0: 0A 31 35 31 30 20 49 46 20 53 28 58 2C 59 29 3D .1510 IF S(X,Y)=
0210C0: 2D 32 20 54 48 45 4E 20 50 52 49 4E 54 22 58 2A -2 THEN PRINT"X*
0210D0: 22 3B 0D 0A 31 35 33 30 20 49 46 20 53 28 58 2C ";..1530 IF S(X,
0210E0: 59 29 3D 32 20 54 48 45 4E 20 50 52 49 4E 54 22 Y)=2 THEN PRINT"
0210F0: 4F 2A 22 3B 0D 0A 31 35 35 30 20 4E 45 58 54 20 O*";..1550 NEXT
021100: 31 30 20 57 3D 37 2A 41 2F 33 0D 0A 31 32 30 20 10 W=7*A/3..120
021110: 50 52 49 4E 54 20 41 3B 22 4C 49 54 45 52 53 20 PRINT A;"LITERS
021120: 4F 46 20 4B 52 59 50 54 4F 43 59 41 4E 49 43 20 OF KRYPTOCYANIC
021130: 41 43 49 44 2E 20 20 48 4F 57 20 4D 55 43 48 20 ACID. HOW MUCH
021140: 57 41 54 45 52 22 3B 0D 0A 31 33 30 20 49 4E 50 WATER";..130 INP
021150: 55 54 20 52 0D 0A 31 34 30 20 44 3D 41 42 53 28 UT R..140 D=ABS(
021160: 57 2D 52 29 0D 0A 31 35 30 20 49 46 20 44 3E 57 W-R)..150 IF D>W
021170: 2F 32 30 20 54 48 45 4E 20 32 30 30 0D 0A 31 36 /20 THEN 200..16
021180: 30 20 50 52 49 4E 54 20 22 20 47 4F 4F 44 20 4A 0 PRINT " GOOD J
021190: 4F 42 21 20 59 4F 55 20 4D 41 59 20 42 52 45 41 OB! YOU MAY BREA
0211A0: 54 48 45 20 4E 4F 57 2C 20 42 55 54 20 44 4F 4E THE NOW, BUT DON
0211B0: 27 54 20 49 4E 48 41 4C 45 20 54 48 45 20 46 55 'T INHALE THE FU
0211C0: 4D 45 53 21 22 0D 0A 31 37 30 20 50 52 49 4E 54 MES!"..170 PRINT
0211D0: 0D 0A 31 38 30 20 47 4F 54 4F 20 31 30 30 0D 0A ..180 GOTO 100..
0211E0: 32 30 30 20 50 52 49 4E 54 20 22 20 53 49 5A 5A 200 PRINT " SIZZ
0211F0: 4C 45 21 20 20 59 4F 55 20 48 41 56 45 20 4A 55 LE! YOU HAVE JU
021200: 53 54 20 42 45 45 4E 20 44 45 53 41 4C 49 4E 41 ST BEEN DESALINA
021210: 54 45 44 20 49 4E 54 4F 20 41 20 42 4C 4F 42 22 TED INTO A BLOB"
021220: 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 20 4F 46 ..210 PRINT " OF
021230: 20 51 55 49 56 45 52 49 4E 47 20 50 52 4F 54 4F QUIVERING PROTO
021240: 50 4C 41 53 4D 21 22 0D 0A 32 32 30 20 54 3D 54 PLASM!"..220 T=T
021250: 2B 31 0D 0A 32 33 30 20 49 46 20 54 3D 39 20 54 +1..230 IF T=9 T
021260: 48 45 4E 20 32 36 30 0D 0A 32 34 30 20 50 52 49 HEN 260..240 PRI
021270: 4E 54 20 22 20 48 4F 57 45 56 45 52 2C 20 59 4F NT " HOWEVER, YO
021280: 55 20 4D 41 59 20 54 52 59 20 41 47 41 49 4E 20 U MAY TRY AGAIN
021290: 57 49 54 48 20 41 4E 4F 54 48 45 52 20 4C 49 46 WITH ANOTHER LIF
0212A0: 45 2E 22 0D 0A 32 35 30 20 47 4F 54 4F 20 31 30 E."..250 GOTO 10
0212B0: 30 0D 0A 32 36 30 20 50 52 49 4E 54 20 22 20 59 0..260 PRINT " Y
0212C0: 4F 55 52 20 39 20 4C 49 56 45 53 20 41 52 45 20 OUR 9 LIVES ARE
0212D0: 55 53 45 44 2C 20 42 55 54 20 59 4F 55 20 57 49 USED, BUT YOU WI
0212E0: 4C 4C 20 42 45 20 4C 4F 4E 47 20 52 45 4D 45 4D LL BE LONG REMEM
0212F0: 42 45 52 45 44 20 46 4F 52 22 0D 0A 32 37 30 20 BERED FOR"..270
021300: 58 3A 50 52 49 4E 54 22 20 22 3A 50 52 49 4E 54 X:PRINT" ":PRINT
021310: 3A 4E 45 58 54 20 59 3A 50 52 49 4E 54 0D 0A 31 :NEXT Y:PRINT..1
021320: 35 35 32 20 46 4F 52 20 4C 3D 30 20 54 4F 20 37 552 FOR L=0 TO 7
021330: 0D 0A 31 35 35 34 20 46 4F 52 20 4D 3D 30 20 54 ..1554 FOR M=0 T
021340: 4F 20 37 0D 0A 31 35 35 36 20 49 46 20 53 28 4C O 7..1556 IF S(L
021350: 2C 4D 29 3D 31 20 4F 52 20 53 28 4C 2C 4D 29 3D ,M)=1 OR S(L,M)=
021360: 32 20 54 48 45 4E 20 5A 3D 31 0D 0A 31 35 35 38 2 THEN Z=1..1558
021370: 20 49 46 20 53 28 4C 2C 4D 29 3D 2D 31 20 4F 52 IF S(L,M)=-1 OR
021380: 20 53 28 4C 2C 4D 29 3D 2D 32 20 54 48 45 4E 20 S(L,M)=-2 THEN
021390: 54 3D 31 0D 0A 31 35 36 30 20 4E 45 58 54 20 4D T=1..1560 NEXT M
0213A0: 0D 0A 31 35 36 32 20 4E 45 58 54 20 4C 0D 0A 31 ..1562 NEXT L..1
0213B0: 35 36 34 20 49 46 20 5A 3C 3E 31 20 54 48 45 4E 564 IF Z<>1 THEN
0213C0: 20 31 38 38 35 0D 0A 31 35 36 36 20 49 46 20 54 1885..1566 IF T
0213D0: 3C 3E 31 20 54 48 45 4E 20 31 38 38 30 0D 0A 31 <>1 THEN 1880..1
0213E0: 35 37 30 20 5A 3D 30 3A 20 54 3D 30 0D 0A 31 35 570 Z=0: T=0..15
0213F0: 39 30 20 49 4E 50 55 54 20 22 46 52 4F 4D 22 3B 90 INPUT "FROM";
021400: 45 2C 48 3A 58 3D 45 3A 59 3D 48 3A 49 46 20 53 E,H:X=E:Y=H:IF S
021410: 28 58 2C 59 29 3C 3D 30 20 54 48 45 4E 20 31 35 (X,Y)<=0 THEN 15
021420: 39 30 0D 0A 31 36 37 30 20 49 4E 50 55 54 20 22 90..1670 INPUT "
021430: 54 4F 22 3B 41 2C 42 3A 58 3D 41 3A 59 3D 42 0D TO";A,B:X=A:Y=B.
021440: 0A 31 36 38 30 20 49 46 20 53 28 58 2C 59 29 3D .1680 IF S(X,Y)=
021450: 30 20 41 4E 44 20 41 42 53 28 41 2D 45 29 3C 3D 0 AND ABS(A-E)<=
021460: 32 20 41 4E 44 20 41 42 53 28 41 2D 45 29 3D 41 2 AND ABS(A-E)=A
021470: 42 53 28 42 2D 48 29 54 48 45 4E 20 31 37 30 30 BS(B-H)THEN 1700
021480: 0D 0A 31 36 39 30 20 50 52 49 4E 54 20 43 48 52 ..1690 PRINT CHR
021490: 24 28 37 29 43 48 52 24 28 31 31 29 3B 3A 47 4F $(7)CHR$(11);:GO
0214A0: 54 4F 20 31 36 37 30 0D 0A 31 37 30 30 20 49 3D TO 1670..1700 I=
0214B0: 34 36 0D 0A 31 37 35 30 20 53 28 41 2C 42 29 3D 46..1750 S(A,B)=
0214C0: 53 28 45 2C 48 29 3A 53 28 45 2C 48 29 3D 30 3A S(E,H):S(E,H)=0:
0214D0: 49 46 20 41 42 53 28 45 2D 41 29 3C 3E 32 20 54 IF ABS(E-A)<>2 T
0214E0: 48 45 4E 20 31 38 31 30 0D 0A 31 38 30 30 20 53 HEN 1810..1800 S
0214F0: 28 28 45 2B 41 29 2F 32 2C 28 48 2B 42 29 2F 32 ((E+A)/2,(H+B)/2
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 00 00 02 09 52 E5 1C 00 C1 02 00 00 00 02 ......R.........
021520: 1C 00 C6 02 00 00 00 02 1C 00 C2 02 00 00 00 02 ................
021530: 1C 00 C7 02 00 00 00 02 1C 00 C3 02 00 00 00 02 ................
021540: 1C 00 C8 02 00 00 00 02 1C 00 C4 02 00 00 00 02 ................
021550: 1C 00 C9 02 00 00 00 02 1C 00 C5 02 00 00 00 02 ................
021560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021600: 50 52 49 4E 54 20 22 20 59 4F 55 52 20 43 4F 4E PRINT " YOUR CON
021610: 54 52 49 42 55 54 49 4F 4E 53 20 54 4F 20 54 48 TRIBUTIONS TO TH
021620: 45 20 46 49 45 4C 44 20 4F 46 20 43 4F 4D 49 43 E FIELD OF COMIC
021630: 20 42 4F 4F 4B 20 43 48 45 4D 49 53 54 52 59 2E BOOK CHEMISTRY.
021640: 22 0D 0A 32 38 30 20 45 4E 44 0D 0A 1A E5 E5 E5 "..280 END......
021650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0216A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0216B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0216C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0216D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0216E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0216F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0217A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0217B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0217C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0217D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0217E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0217F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021800: 4F 55 20 42 45 4C 49 45 56 45 20 4D 45 20 4E 4F OU BELIEVE ME NO
021810: 57 2C 20 46 4F 52 20 59 4F 55 52 20 53 41 4B 45 W, FOR YOUR SAKE
021820: 21 21 22 0D 0A 34 38 30 20 47 4F 54 4F 20 35 32 !!"..480 GOTO 52
021830: 30 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 42 59 0..510 PRINT "BY
021840: 45 21 21 21 22 0D 0A 35 32 30 20 45 4E 44 0D 0A E!!!"..520 END..
021850: 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0218A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0218B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0218C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0218D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0218E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0218F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0219A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0219B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0219C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0219D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0219E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0219F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
021C00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
021C10: 3B 22 43 48 4F 4D 50 22 0D 0A 32 30 20 50 52 49 ;"CHOMP"..20 PRI
021C20: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
021C30: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
021C40: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
021C50: 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E JERSEY"..30 PRIN
021C60: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 T:PRINT:PRINT..4
021C70: 30 20 44 49 4D 20 41 28 31 30 2C 31 30 29 0D 0A 0 DIM A(10,10)..
021C80: 31 30 30 20 52 45 4D 20 2A 2A 2A 20 54 48 45 20 100 REM *** THE
021C90: 47 41 4D 45 20 4F 46 20 43 48 4F 4D 50 20 2A 2A GAME OF CHOMP **
021CA0: 2A 20 43 4F 50 59 52 49 47 48 54 20 50 43 43 20 * COPYRIGHT PCC
021CB0: 31 39 37 33 20 2A 2A 2A 0D 0A 31 31 30 20 50 52 1973 ***..110 PR
021CC0: 49 4E 54 20 0D 0A 31 32 30 20 50 52 49 4E 54 20 INT ..120 PRINT
021CD0: 22 54 48 49 53 20 49 53 20 54 48 45 20 47 41 4D "THIS IS THE GAM
021CE0: 45 20 4F 46 20 43 48 4F 4D 50 20 28 53 43 49 45 E OF CHOMP (SCIE
021CF0: 4E 54 49 46 49 43 20 41 4D 45 52 49 43 41 4E 2C NTIFIC AMERICAN,
021D00: 20 4A 41 4E 20 31 39 37 33 29 22 0D 0A 31 33 30 JAN 1973)"..130
021D10: 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 PRINT "DO YOU W
021D20: 41 4E 54 20 54 48 45 20 52 55 4C 45 53 20 28 31 ANT THE RULES (1
021D30: 3D 59 45 53 2C 20 30 3D 4E 4F 21 29 22 3B 0D 0A =YES, 0=NO!)";..
021D40: 31 34 30 20 49 4E 50 55 54 20 52 0D 0A 31 35 30 140 INPUT R..150
021D50: 20 49 46 20 52 3D 30 20 54 48 45 4E 20 33 34 30 IF R=0 THEN 340
021D60: 0D 0A 31 36 30 20 46 3D 31 0D 0A 31 37 30 20 52 ..160 F=1..170 R
021D70: 3D 35 0D 0A 31 38 30 20 43 3D 37 0D 0A 31 39 30 =5..180 C=7..190
021D80: 20 50 52 49 4E 54 20 22 43 48 4F 4D 50 20 49 53 PRINT "CHOMP IS
021D90: 20 46 4F 52 20 31 20 4F 52 20 4D 4F 52 45 20 50 FOR 1 OR MORE P
021DA0: 4C 41 59 45 52 53 20 28 48 55 4D 41 4E 53 20 4F LAYERS (HUMANS O
021DB0: 4E 4C 59 29 2E 22 0D 0A 32 30 30 20 50 52 49 4E NLY)."..200 PRIN
021DC0: 54 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 48 45 T..210 PRINT "HE
021DD0: 52 45 27 53 20 48 4F 57 20 41 20 42 4F 41 52 44 RE'S HOW A BOARD
021DE0: 20 4C 4F 4F 4B 53 20 28 54 48 49 53 20 4F 4E 45 LOOKS (THIS ONE
021DF0: 20 49 53 20 35 20 42 59 20 37 29 3A 22 0D 0A 32 IS 5 BY 7):"..2
021E00: 32 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 20 2 PRINT TAB(30)
021E10: 22 43 48 49 45 46 22 0D 0A 34 20 50 52 49 4E 54 "CHIEF"..4 PRINT
021E20: 20 54 41 42 28 31 35 29 20 22 43 52 45 41 54 49 TAB(15) "CREATI
021E30: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
021E40: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
021E50: 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 50 RSEY"..6 PRINT:P
021E60: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 20 50 RINT:PRINT..10 P
021E70: 52 49 4E 54 20 22 49 20 41 4D 20 43 48 49 45 46 RINT "I AM CHIEF
021E80: 20 4E 55 4D 42 45 52 53 20 46 52 45 45 4B 2C 20 NUMBERS FREEK,
021E90: 54 48 45 20 47 52 45 41 54 20 49 4E 44 49 41 4E THE GREAT INDIAN
021EA0: 20 4D 41 54 48 20 47 4F 44 2E 22 0D 0A 32 30 20 MATH GOD."..20
021EB0: 50 52 49 4E 54 20 22 41 52 45 20 59 4F 55 20 52 PRINT "ARE YOU R
021EC0: 45 41 44 59 20 54 4F 20 54 41 4B 45 20 54 48 45 EADY TO TAKE THE
021ED0: 20 54 45 53 54 20 59 4F 55 20 43 41 4C 4C 45 44 TEST YOU CALLED
021EE0: 20 4D 45 20 4F 55 54 20 46 4F 52 22 3B 0D 0A 33 ME OUT FOR";..3
021EF0: 30 20 49 4E 50 55 54 20 41 24 0D 0A 34 30 20 49 0 INPUT A$..40 I
021F00: 46 20 41 24 3D 22 59 45 53 22 20 54 48 45 4E 20 F A$="YES" THEN
021F10: 36 30 0D 0A 35 30 20 50 52 49 4E 54 20 22 53 48 60..50 PRINT "SH
021F20: 55 54 20 55 50 2C 20 50 41 4C 45 20 46 41 43 45 UT UP, PALE FACE
021F30: 20 57 49 54 48 20 57 49 53 45 20 54 4F 4E 47 55 WITH WISE TONGU
021F40: 45 2E 22 0D 0A 36 30 20 50 52 49 4E 54 20 22 20 E."..60 PRINT "
021F50: 54 41 4B 45 20 41 20 4E 55 4D 42 45 52 20 41 4E TAKE A NUMBER AN
021F60: 44 20 41 44 44 20 33 2E 20 44 49 56 49 44 45 20 D ADD 3. DIVIDE
021F70: 54 48 49 53 20 4E 55 4D 42 45 52 20 42 59 20 35 THIS NUMBER BY 5
021F80: 20 41 4E 44 22 0D 0A 37 30 20 50 52 49 4E 54 20 AND"..70 PRINT
021F90: 22 4D 55 4C 54 49 50 4C 59 20 42 59 20 38 2E 20 "MULTIPLY BY 8.
021FA0: 44 49 56 49 44 45 20 42 59 20 35 20 41 4E 44 20 DIVIDE BY 5 AND
021FB0: 41 44 44 20 54 48 45 20 53 41 4D 45 2E 20 53 55 ADD THE SAME. SU
021FC0: 42 54 52 41 43 54 20 31 2E 22 0D 0A 38 30 20 50 BTRACT 1."..80 P
021FD0: 52 49 4E 54 20 22 20 20 57 48 41 54 20 44 4F 20 RINT " WHAT DO
021FE0: 59 4F 55 20 48 41 56 45 22 3B 0D 0A 39 30 20 49 YOU HAVE";..90 I
021FF0: 4E 50 55 54 20 42 0D 0A 31 30 30 20 4C 45 54 20 NPUT B..100 LET
022000: 32 30 20 47 4F 53 55 42 20 35 34 30 0D 0A 32 33 20 GOSUB 540..23
022010: 30 20 50 52 49 4E 54 0D 0A 32 34 30 20 50 52 49 0 PRINT..240 PRI
022020: 4E 54 20 22 54 48 45 20 42 4F 41 52 44 20 49 53 NT "THE BOARD IS
022030: 20 41 20 42 49 47 20 43 4F 4F 4B 49 45 20 2D 20 A BIG COOKIE -
022040: 52 20 52 4F 57 53 20 48 49 47 48 20 41 4E 44 20 R ROWS HIGH AND
022050: 43 20 43 4F 4C 55 4D 4E 53 22 0D 0A 32 35 30 20 C COLUMNS"..250
022060: 50 52 49 4E 54 20 22 57 49 44 45 2E 20 59 4F 55 PRINT "WIDE. YOU
022070: 20 49 4E 50 55 54 20 52 20 41 4E 44 20 43 20 41 INPUT R AND C A
022080: 54 20 54 48 45 20 53 54 41 52 54 2E 20 49 4E 20 T THE START. IN
022090: 54 48 45 20 55 50 50 45 52 20 4C 45 46 54 22 0D THE UPPER LEFT".
0220A0: 0A 32 36 30 20 50 52 49 4E 54 20 22 43 4F 52 4E .260 PRINT "CORN
0220B0: 45 52 20 4F 46 20 54 48 45 20 43 4F 4F 4B 49 45 ER OF THE COOKIE
0220C0: 20 49 53 20 41 20 50 4F 49 53 4F 4E 20 53 51 55 IS A POISON SQU
0220D0: 41 52 45 20 28 50 29 2E 20 54 48 45 20 4F 4E 45 ARE (P). THE ONE
0220E0: 20 57 48 4F 22 0D 0A 32 37 30 20 50 52 49 4E 54 WHO"..270 PRINT
0220F0: 20 22 43 48 4F 4D 50 53 20 54 48 45 20 50 4F 49 "CHOMPS THE POI
022100: 53 4F 4E 20 53 51 55 41 52 45 20 4C 4F 53 45 53 SON SQUARE LOSES
022110: 2E 20 54 4F 20 54 41 4B 45 20 41 20 43 48 4F 4D . TO TAKE A CHOM
022120: 50 2C 20 54 59 50 45 20 54 48 45 22 0D 0A 32 38 P, TYPE THE"..28
022130: 30 20 50 52 49 4E 54 20 22 52 4F 57 20 41 4E 44 0 PRINT "ROW AND
022140: 20 43 4F 4C 55 4D 4E 20 4F 46 20 4F 4E 45 20 4F COLUMN OF ONE O
022150: 46 20 54 48 45 20 53 51 55 41 52 45 53 20 4F 4E F THE SQUARES ON
022160: 20 54 48 45 20 43 4F 4F 4B 49 45 2E 22 0D 0A 32 THE COOKIE."..2
022170: 39 30 20 50 52 49 4E 54 20 22 41 4C 4C 20 4F 46 90 PRINT "ALL OF
022180: 20 54 48 45 20 53 51 55 41 52 45 53 20 42 45 4C THE SQUARES BEL
022190: 4F 57 20 41 4E 44 20 54 4F 20 54 48 45 20 52 49 OW AND TO THE RI
0221A0: 47 48 54 20 4F 46 20 54 48 41 54 20 53 51 55 41 GHT OF THAT SQUA
0221B0: 52 45 22 0D 0A 33 30 30 20 50 52 49 4E 54 20 22 RE"..300 PRINT "
0221C0: 28 49 4E 43 4C 55 44 49 4E 47 20 54 48 41 54 20 (INCLUDING THAT
0221D0: 53 51 55 41 52 45 2C 20 54 4F 4F 29 20 44 49 53 SQUARE, TOO) DIS
0221E0: 41 50 50 45 41 52 20 2D 2D 20 43 48 4F 4D 50 21 APPEAR -- CHOMP!
0221F0: 21 22 0D 0A 33 31 30 20 50 52 49 4E 54 20 22 4E !"..310 PRINT "N
022200: 43 20 3D 20 28 42 2B 31 2D 35 29 2A 35 2F 38 2A C = (B+1-5)*5/8*
022210: 35 2D 33 0D 0A 31 31 30 20 50 52 49 4E 54 20 22 5-3..110 PRINT "
022220: 49 20 42 45 54 20 59 4F 55 52 20 4E 55 4D 42 45 I BET YOUR NUMBE
022230: 52 20 57 41 53 22 20 43 22 2E 20 41 4D 20 49 20 R WAS" C". AM I
022240: 52 49 47 48 54 22 3B 0D 0A 31 32 30 20 49 4E 50 RIGHT";..120 INP
022250: 55 54 20 44 24 0D 0A 31 33 30 20 49 46 20 44 24 UT D$..130 IF D$
022260: 3D 22 59 45 53 22 20 54 48 45 4E 20 35 30 30 0D ="YES" THEN 500.
022270: 0A 31 34 30 20 50 52 49 4E 54 20 22 57 48 41 54 .140 PRINT "WHAT
022280: 20 57 41 53 20 59 4F 55 52 20 4F 52 49 47 49 4E WAS YOUR ORIGIN
022290: 41 4C 20 4E 55 4D 42 45 52 22 3B 0D 0A 31 35 30 AL NUMBER";..150
0222A0: 20 49 4E 50 55 54 20 4B 0D 0A 31 35 35 20 4C 45 INPUT K..155 LE
0222B0: 54 20 46 3D 4B 2B 33 0D 0A 31 36 30 20 4C 45 54 T F=K+3..160 LET
0222C0: 20 47 3D 46 2F 35 0D 0A 31 37 30 20 4C 45 54 20 G=F/5..170 LET
0222D0: 48 3D 47 2A 38 0D 0A 31 38 30 20 4C 45 54 20 49 H=G*8..180 LET I
0222E0: 3D 48 2F 35 2B 35 0D 0A 31 39 30 20 4C 45 54 20 =H/5+5..190 LET
0222F0: 4A 3D 49 2D 31 0D 0A 32 30 30 20 50 52 49 4E 54 J=I-1..200 PRINT
022300: 20 22 53 4F 20 59 4F 55 20 54 48 49 4E 4B 20 59 "SO YOU THINK Y
022310: 4F 55 27 52 45 20 53 4F 20 53 4D 41 52 54 2C 20 OU'RE SO SMART,
022320: 45 48 3F 22 0D 0A 32 31 30 20 50 52 49 4E 54 20 EH?"..210 PRINT
022330: 22 4E 4F 57 20 57 41 54 43 48 2E 22 0D 0A 32 33 "NOW WATCH."..23
022340: 30 20 50 52 49 4E 54 20 4B 22 50 4C 55 53 20 33 0 PRINT K"PLUS 3
022350: 20 45 51 55 41 4C 53 22 46 22 2E 20 54 48 49 53 EQUALS"F". THIS
022360: 20 44 49 56 49 44 45 44 20 42 59 20 35 20 45 51 DIVIDED BY 5 EQ
022370: 55 41 4C 53 22 47 22 3B 22 0D 0A 32 34 30 20 50 UALS"G";"..240 P
022380: 52 49 4E 54 20 22 54 48 49 53 20 54 49 4D 45 53 RINT "THIS TIMES
022390: 20 38 20 45 51 55 41 4C 53 22 48 22 2E 20 49 46 8 EQUALS"H". IF
0223A0: 20 57 45 20 44 49 56 49 44 45 20 42 59 20 35 20 WE DIVIDE BY 5
0223B0: 41 4E 44 20 41 44 44 20 35 2C 22 0D 0A 32 35 30 AND ADD 5,"..250
0223C0: 20 50 52 49 4E 54 20 22 57 45 20 47 45 54 22 49 PRINT "WE GET"I
0223D0: 22 2C 20 57 48 49 43 48 2C 20 4D 49 4E 55 53 20 ", WHICH, MINUS
0223E0: 31 2C 20 45 51 55 41 4C 53 22 4A 22 2E 22 0D 0A 1, EQUALS"J"."..
0223F0: 32 36 30 20 50 52 49 4E 54 20 22 4E 4F 57 20 44 260 PRINT "NOW D
022400: 4F 20 46 41 49 52 20 43 48 4F 4D 50 49 4E 47 20 O FAIR CHOMPING
022410: 53 51 55 41 52 45 53 20 54 48 41 54 20 48 41 56 SQUARES THAT HAV
022420: 45 20 41 4C 52 45 41 44 59 20 42 45 45 4E 20 43 E ALREADY BEEN C
022430: 48 4F 4D 50 45 44 2C 22 0D 0A 33 32 30 20 50 52 HOMPED,"..320 PR
022440: 49 4E 54 20 22 4F 52 20 54 48 41 54 20 41 52 45 INT "OR THAT ARE
022450: 20 4F 55 54 53 49 44 45 20 54 48 45 20 4F 52 49 OUTSIDE THE ORI
022460: 47 49 4E 41 4C 20 44 49 4D 45 4E 53 49 4F 4E 53 GINAL DIMENSIONS
022470: 20 4F 46 20 54 48 45 20 43 4F 4F 4B 49 45 2E 22 OF THE COOKIE."
022480: 0D 0A 33 33 30 20 50 52 49 4E 54 20 0D 0A 33 34 ..330 PRINT ..34
022490: 30 20 50 52 49 4E 54 20 22 48 45 52 45 20 57 45 0 PRINT "HERE WE
0224A0: 20 47 4F 2E 2E 2E 22 0D 0A 33 35 30 20 52 45 4D GO..."..350 REM
0224B0: 20 0D 0A 33 36 30 20 46 3D 30 0D 0A 33 37 30 20 ..360 F=0..370
0224C0: 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 0D 0A 33 FOR I=1 TO 10..3
0224D0: 37 32 20 46 4F 52 20 4A 3D 31 20 54 4F 20 31 30 72 FOR J=1 TO 10
0224E0: 0D 0A 33 37 35 20 41 28 49 2C 4A 29 3D 30 0D 0A ..375 A(I,J)=0..
0224F0: 33 37 37 20 4E 45 58 54 20 4A 0D 0A 33 37 39 20 377 NEXT J..379
022500: 4E 45 58 54 20 49 0D 0A 33 38 30 20 50 52 49 4E NEXT I..380 PRIN
022510: 54 20 0D 0A 33 39 30 20 50 52 49 4E 54 20 22 48 T ..390 PRINT "H
022520: 4F 57 20 4D 41 4E 59 20 50 4C 41 59 45 52 53 22 OW MANY PLAYERS"
022530: 3B 0D 0A 34 30 30 20 49 4E 50 55 54 20 50 0D 0A ;..400 INPUT P..
022540: 34 31 30 20 49 31 3D 30 0D 0A 34 32 30 20 50 52 410 I1=0..420 PR
022550: 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 52 4F INT "HOW MANY RO
022560: 57 53 22 3B 0D 0A 34 33 30 20 49 4E 50 55 54 20 WS";..430 INPUT
022570: 52 0D 0A 34 34 30 20 49 46 20 52 20 3C 3D 20 39 R..440 IF R <= 9
022580: 20 54 48 45 4E 20 34 37 30 0D 0A 34 35 30 20 50 THEN 470..450 P
022590: 52 49 4E 54 20 22 54 4F 4F 20 4D 41 4E 59 20 52 RINT "TOO MANY R
0225A0: 4F 57 53 20 28 39 20 49 53 20 4D 41 58 49 4D 55 OWS (9 IS MAXIMU
0225B0: 4D 29 2E 20 4E 4F 57 2C 20 22 3B 0D 0A 34 36 30 M). NOW, ";..460
0225C0: 20 47 4F 54 4F 20 34 32 30 0D 0A 34 37 30 20 50 GOTO 420..470 P
0225D0: 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 43 RINT "HOW MANY C
0225E0: 4F 4C 55 4D 4E 53 22 3B 0D 0A 34 38 30 20 49 4E OLUMNS";..480 IN
0225F0: 50 55 54 20 43 0D 0A 34 39 30 20 49 46 20 43 20 PUT C..490 IF C
022600: 4F 20 59 4F 55 20 42 45 4C 49 45 56 45 20 4D 45 O YOU BELIEVE ME
022610: 22 3B 0D 0A 32 37 30 20 49 4E 50 55 54 20 5A 24 ";..270 INPUT Z$
022620: 0D 0A 32 39 30 20 49 46 20 5A 24 3D 22 59 45 53 ..290 IF Z$="YES
022630: 22 20 54 48 45 4E 20 35 30 30 0D 0A 32 39 35 20 " THEN 500..295
022640: 50 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 PRINT "YOU HAVE
022650: 4D 41 44 45 20 4D 45 20 4D 41 44 21 21 21 22 0D MADE ME MAD!!!".
022660: 0A 33 30 30 20 50 52 49 4E 54 20 22 54 48 45 52 .300 PRINT "THER
022670: 45 20 4D 55 53 54 20 42 45 20 41 20 47 52 45 41 E MUST BE A GREA
022680: 54 20 4C 49 47 48 54 4E 49 4E 47 20 42 4F 4C 54 T LIGHTNING BOLT
022690: 21 22 0D 0A 33 31 30 20 50 52 49 4E 54 3A 50 52 !"..310 PRINT:PR
0226A0: 49 4E 54 0D 0A 33 33 30 20 46 4F 52 20 58 3D 33 INT..330 FOR X=3
0226B0: 30 20 54 4F 20 32 32 20 53 54 45 50 20 2D 31 0D 0 TO 22 STEP -1.
0226C0: 0A 33 34 30 20 50 52 49 4E 54 20 54 41 42 28 58 .340 PRINT TAB(X
0226D0: 29 20 22 58 20 58 22 0D 0A 33 35 30 20 4E 45 58 ) "X X"..350 NEX
0226E0: 54 20 58 0D 0A 33 36 30 20 50 52 49 4E 54 20 54 T X..360 PRINT T
0226F0: 41 42 28 32 31 29 20 22 58 20 58 58 58 22 0D 0A AB(21) "X XXX"..
022700: 33 37 30 20 50 52 49 4E 54 20 54 41 42 28 32 30 370 PRINT TAB(20
022710: 29 20 22 58 20 20 20 58 22 0D 0A 33 38 30 20 50 ) "X X"..380 P
022720: 52 49 4E 54 20 54 41 42 28 31 39 29 20 22 58 58 RINT TAB(19) "XX
022730: 20 58 22 0D 0A 33 39 30 20 46 4F 52 20 59 3D 32 X"..390 FOR Y=2
022740: 30 20 54 4F 20 31 33 20 53 54 45 50 20 2D 31 0D 0 TO 13 STEP -1.
022750: 0A 34 30 30 20 50 52 49 4E 54 20 54 41 42 28 59 .400 PRINT TAB(Y
022760: 29 20 22 58 20 58 22 0D 0A 34 31 30 20 4E 45 58 ) "X X"..410 NEX
022770: 54 20 59 0D 0A 34 32 30 20 50 52 49 4E 54 20 54 T Y..420 PRINT T
022780: 41 42 28 31 32 29 20 22 58 58 22 0D 0A 34 33 30 AB(12) "XX"..430
022790: 20 50 52 49 4E 54 20 54 41 42 28 31 31 29 20 22 PRINT TAB(11) "
0227A0: 58 22 0D 0A 34 34 30 20 50 52 49 4E 54 20 54 41 X"..440 PRINT TA
0227B0: 42 28 31 30 29 20 22 2A 22 0D 0A 34 35 30 20 50 B(10) "*"..450 P
0227C0: 52 49 4E 54 3A 50 52 49 4E 54 22 23 23 23 23 23 RINT:PRINT"#####
0227D0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0227E0: 23 23 23 23 22 3A 50 52 49 4E 54 0D 0A 34 37 30 ####":PRINT..470
0227F0: 20 50 52 49 4E 54 20 22 49 20 48 4F 50 45 20 59 PRINT "I HOPE Y
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 00 00 02 09 52 E5 1D 00 C1 02 00 00 00 02 ......R.........
022820: 1D 00 C6 02 00 00 00 02 1D 00 C2 02 00 00 00 02 ................
022830: 1D 00 C7 02 00 00 00 02 1D 00 C3 02 00 00 00 02 ................
022840: 1D 00 C8 02 00 00 00 02 1D 00 C4 02 00 00 00 02 ................
022850: 1D 00 C9 02 00 00 00 02 1D 00 C5 02 00 00 00 02 ................
022860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022900: 3C 3D 20 39 20 54 48 45 4E 20 35 33 30 0D 0A 35 <= 9 THEN 530..5
022910: 30 30 20 50 52 49 4E 54 20 22 54 4F 4F 20 4D 41 00 PRINT "TOO MA
022920: 4E 59 20 43 4F 4C 55 4D 4E 53 20 28 39 20 49 53 NY COLUMNS (9 IS
022930: 20 4D 41 58 49 4D 55 4D 29 2E 20 4E 4F 57 2C 20 MAXIMUM). NOW,
022940: 22 3B 0D 0A 35 31 30 20 47 4F 54 4F 20 34 37 30 ";..510 GOTO 470
022950: 0D 0A 35 33 30 20 50 52 49 4E 54 20 0D 0A 35 34 ..530 PRINT ..54
022960: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 52 0D 0A 0 FOR I=1 TO R..
022970: 35 35 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 43 550 FOR J=1 TO C
022980: 0D 0A 35 36 30 20 41 28 49 2C 4A 29 3D 31 0D 0A ..560 A(I,J)=1..
022990: 35 37 30 20 4E 45 58 54 20 4A 0D 0A 35 38 30 20 570 NEXT J..580
0229A0: 4E 45 58 54 20 49 0D 0A 35 39 30 20 41 28 31 2C NEXT I..590 A(1,
0229B0: 31 29 3D 2D 31 0D 0A 36 30 30 20 52 45 4D 20 50 1)=-1..600 REM P
0229C0: 52 49 4E 54 20 54 48 45 20 42 4F 41 52 44 0D 0A RINT THE BOARD..
0229D0: 36 31 30 20 50 52 49 4E 54 20 0D 0A 36 32 30 20 610 PRINT ..620
0229E0: 50 52 49 4E 54 20 54 41 42 28 37 29 3B 22 31 20 PRINT TAB(7);"1
0229F0: 32 20 33 20 34 20 35 20 36 20 37 20 38 20 39 22 2 3 4 5 6 7 8 9"
022A00: 0D 0A 36 33 30 20 46 4F 52 20 49 3D 31 20 54 4F ..630 FOR I=1 TO
022A10: 20 52 0D 0A 36 34 30 20 50 52 49 4E 54 20 49 3B R..640 PRINT I;
022A20: 54 41 42 28 37 29 3B 0D 0A 36 35 30 20 46 4F 52 TAB(7);..650 FOR
022A30: 20 4A 3D 31 20 54 4F 20 43 0D 0A 36 36 30 20 49 J=1 TO C..660 I
022A40: 46 20 41 28 49 2C 4A 29 3D 2D 31 20 54 48 45 4E F A(I,J)=-1 THEN
022A50: 20 37 30 30 0D 0A 36 37 30 20 49 46 20 41 28 49 700..670 IF A(I
022A60: 2C 4A 29 3D 30 20 54 48 45 4E 20 37 32 30 0D 0A ,J)=0 THEN 720..
022A70: 36 38 30 20 50 52 49 4E 54 20 22 2A 20 22 3B 0D 680 PRINT "* ";.
022A80: 0A 36 39 30 20 47 4F 54 4F 20 37 31 30 0D 0A 37 .690 GOTO 710..7
022A90: 30 30 20 50 52 49 4E 54 20 22 50 20 22 3B 0D 0A 00 PRINT "P ";..
022AA0: 37 31 30 20 4E 45 58 54 20 4A 0D 0A 37 32 30 20 710 NEXT J..720
022AB0: 50 52 49 4E 54 20 0D 0A 37 33 30 20 4E 45 58 54 PRINT ..730 NEXT
022AC0: 20 49 0D 0A 37 34 30 20 50 52 49 4E 54 20 0D 0A I..740 PRINT ..
022AD0: 37 35 30 20 49 46 20 46 3D 30 20 54 48 45 4E 20 750 IF F=0 THEN
022AE0: 37 37 30 0D 0A 37 36 30 20 52 45 54 55 52 4E 20 770..760 RETURN
022AF0: 0D 0A 37 37 30 20 52 45 4D 20 47 45 54 20 43 48 ..770 REM GET CH
022B00: 0D 0A 33 31 30 20 50 52 49 4E 54 20 22 59 4F 55 ..310 PRINT "YOU
022B10: 52 20 50 4C 41 59 20 28 49 2C 4A 29 22 3B 3A 20 R PLAY (I,J)";:
022B20: 49 4E 50 55 54 20 49 2C 4A 0D 0A 33 31 35 20 50 INPUT I,J..315 P
022B30: 52 49 4E 54 0D 0A 33 32 30 20 49 46 20 49 3D 2D RINT..320 IF I=-
022B40: 31 20 54 48 45 4E 20 39 38 30 0D 0A 33 33 30 20 1 THEN 980..330
022B50: 58 3D 49 3A 20 59 3D 4A 3A 20 47 4F 53 55 42 20 X=I: Y=J: GOSUB
022B60: 39 31 30 3A 20 49 46 20 4C 3D 31 20 54 48 45 4E 910: IF L=1 THEN
022B70: 20 34 31 30 0D 0A 33 34 30 20 50 52 49 4E 54 20 410..340 PRINT
022B80: 22 49 4C 4C 45 47 41 4C 20 4D 4F 56 45 2E 20 20 "ILLEGAL MOVE.
022B90: 54 52 59 20 41 47 41 49 4E 2E 2E 2E 22 3A 20 47 TRY AGAIN...": G
022BA0: 4F 54 4F 20 33 31 30 0D 0A 34 31 30 20 49 46 20 OTO 310..410 IF
022BB0: 41 28 49 2C 4A 29 3D 30 20 54 48 45 4E 20 34 34 A(I,J)=0 THEN 44
022BC0: 30 0D 0A 34 32 30 20 50 52 49 4E 54 20 22 53 51 0..420 PRINT "SQ
022BD0: 55 41 52 45 20 4F 43 43 55 50 49 45 44 2E 20 20 UARE OCCUPIED.
022BE0: 54 52 59 20 41 47 41 49 4E 2E 2E 2E 22 3A 20 47 TRY AGAIN...": G
022BF0: 4F 54 4F 20 33 31 30 0D 0A 34 34 30 20 41 28 49 OTO 310..440 A(I
022C00: 2C 4A 29 3D 31 0D 0A 35 30 30 20 52 45 4D 20 2A ,J)=1..500 REM *
022C10: 2A 2A 20 43 4F 4D 50 55 54 45 52 20 54 52 49 45 ** COMPUTER TRIE
022C20: 53 20 41 4E 20 49 4E 54 45 4C 4C 49 47 45 4E 54 S AN INTELLIGENT
022C30: 20 4D 4F 56 45 20 2A 2A 2A 0D 0A 35 31 30 20 46 MOVE ***..510 F
022C40: 4F 52 20 45 3D 2D 31 20 54 4F 20 31 3A 20 46 4F OR E=-1 TO 1: FO
022C50: 52 20 46 3D 2D 31 20 54 4F 20 31 3A 20 49 46 20 R F=-1 TO 1: IF
022C60: 45 2B 46 2D 45 2A 46 3D 30 20 54 48 45 4E 20 35 E+F-E*F=0 THEN 5
022C70: 39 30 0D 0A 35 34 30 20 58 3D 49 2B 46 3A 20 59 90..540 X=I+F: Y
022C80: 3D 4A 2B 46 3A 20 47 4F 53 55 42 20 39 31 30 0D =J+F: GOSUB 910.
022C90: 0A 35 37 30 20 49 46 20 4C 3D 30 20 54 48 45 4E .570 IF L=0 THEN
022CA0: 20 35 39 30 0D 0A 35 38 30 20 49 46 20 41 28 58 590..580 IF A(X
022CB0: 2C 59 29 3D 31 20 54 48 45 4E 20 37 31 30 0D 0A ,Y)=1 THEN 710..
022CC0: 35 39 30 20 4E 45 58 54 20 46 3A 20 4E 45 58 54 590 NEXT F: NEXT
022CD0: 20 45 0D 0A 36 30 30 20 52 45 4D 20 2A 2A 2A 20 E..600 REM ***
022CE0: 43 4F 4D 50 55 54 45 52 20 54 52 49 45 53 20 41 COMPUTER TRIES A
022CF0: 20 52 41 4E 44 4F 4D 20 4D 4F 56 45 20 2A 2A 2A RANDOM MOVE ***
022D00: 4F 4D 50 53 20 46 4F 52 20 45 41 43 48 20 50 4C OMPS FOR EACH PL
022D10: 41 59 45 52 20 49 4E 20 54 55 52 4E 0D 0A 37 38 AYER IN TURN..78
022D20: 30 20 4C 45 54 20 49 31 3D 49 31 2B 31 0D 0A 37 0 LET I1=I1+1..7
022D30: 39 30 20 4C 45 54 20 50 31 3D 49 31 2D 49 4E 54 90 LET P1=I1-INT
022D40: 28 49 31 2F 50 29 2A 50 0D 0A 38 30 30 20 49 46 (I1/P)*P..800 IF
022D50: 20 50 31 20 3C 3E 20 30 20 54 48 45 4E 20 38 32 P1 <> 0 THEN 82
022D60: 30 0D 0A 38 31 30 20 50 31 3D 50 0D 0A 38 32 30 0..810 P1=P..820
022D70: 20 50 52 49 4E 54 20 22 50 4C 41 59 45 52 22 3B PRINT "PLAYER";
022D80: 50 31 0D 0A 38 33 30 20 50 52 49 4E 54 20 22 43 P1..830 PRINT "C
022D90: 4F 4F 52 44 49 4E 41 54 45 53 20 4F 46 20 43 48 OORDINATES OF CH
022DA0: 4F 4D 50 20 28 52 4F 57 2C 43 4F 4C 55 4D 4E 29 OMP (ROW,COLUMN)
022DB0: 22 3B 0D 0A 38 34 30 20 49 4E 50 55 54 20 52 31 ";..840 INPUT R1
022DC0: 2C 43 31 0D 0A 38 35 30 20 49 46 20 52 31 3C 31 ,C1..850 IF R1<1
022DD0: 20 54 48 45 4E 20 39 32 30 0D 0A 38 36 30 20 49 THEN 920..860 I
022DE0: 46 20 52 31 3E 52 20 54 48 45 4E 20 39 32 30 0D F R1>R THEN 920.
022DF0: 0A 38 37 30 20 49 46 20 43 31 3C 31 20 54 48 45 .870 IF C1<1 THE
022E00: 4E 20 39 32 30 0D 0A 38 38 30 20 49 46 20 43 31 N 920..880 IF C1
022E10: 3E 43 20 54 48 45 4E 20 39 32 30 0D 0A 38 39 30 >C THEN 920..890
022E20: 20 49 46 20 41 28 52 31 2C 43 31 29 3D 30 20 54 IF A(R1,C1)=0 T
022E30: 48 45 4E 20 39 32 30 0D 0A 39 30 30 20 49 46 20 HEN 920..900 IF
022E40: 41 28 52 31 2C 43 31 29 3D 2D 31 20 54 48 45 4E A(R1,C1)=-1 THEN
022E50: 20 31 30 31 30 0D 0A 39 31 30 20 47 4F 54 4F 20 1010..910 GOTO
022E60: 39 34 30 0D 0A 39 32 30 20 50 52 49 4E 54 20 22 940..920 PRINT "
022E70: 4E 4F 20 46 41 49 52 2E 20 59 4F 55 27 52 45 20 NO FAIR. YOU'RE
022E80: 54 52 59 49 4E 47 20 54 4F 20 43 48 4F 4D 50 20 TRYING TO CHOMP
022E90: 4F 4E 20 45 4D 50 54 59 20 53 50 41 43 45 21 22 ON EMPTY SPACE!"
022EA0: 0D 0A 39 33 30 20 47 4F 54 4F 20 38 32 30 0D 0A ..930 GOTO 820..
022EB0: 39 34 30 20 46 4F 52 20 49 3D 52 31 20 54 4F 20 940 FOR I=R1 TO
022EC0: 52 0D 0A 39 35 30 20 46 4F 52 20 4A 3D 43 31 20 R..950 FOR J=C1
022ED0: 54 4F 20 43 0D 0A 39 36 30 20 41 28 49 2C 4A 29 TO C..960 A(I,J)
022EE0: 3D 30 0D 0A 39 37 30 20 4E 45 58 54 20 4A 0D 0A =0..970 NEXT J..
022EF0: 39 38 30 20 4E 45 58 54 20 49 0D 0A 39 39 30 20 980 NEXT I..990
022F00: 0D 0A 36 31 30 20 58 3D 49 4E 54 28 4E 2A 52 4E ..610 X=INT(N*RN
022F10: 44 28 31 29 2B 31 29 3A 20 59 3D 49 4E 54 28 4E D(1)+1): Y=INT(N
022F20: 2A 52 4E 44 28 31 29 2B 31 29 3A 20 47 4F 53 55 *RND(1)+1): GOSU
022F30: 42 20 39 31 30 3A 20 49 46 20 4C 3D 30 20 54 48 B 910: IF L=0 TH
022F40: 45 4E 20 36 31 30 0D 0A 36 35 30 20 49 46 20 41 EN 610..650 IF A
022F50: 28 58 2C 59 29 3C 3E 30 20 54 48 45 4E 20 36 31 (X,Y)<>0 THEN 61
022F60: 30 0D 0A 36 36 30 20 41 28 58 2C 59 29 3D 32 3A 0..660 A(X,Y)=2:
022F70: 20 47 4F 53 55 42 20 38 31 30 3A 20 47 4F 54 4F GOSUB 810: GOTO
022F80: 20 33 31 30 0D 0A 37 31 30 20 58 3D 49 2D 45 3A 310..710 X=I-E:
022F90: 20 59 3D 4A 2D 46 3A 20 47 4F 53 55 42 20 39 31 Y=J-F: GOSUB 91
022FA0: 30 0D 0A 37 35 30 20 49 46 20 4C 3D 30 20 54 48 0..750 IF L=0 TH
022FB0: 45 4E 20 36 31 30 0D 0A 37 36 30 20 47 4F 54 4F EN 610..760 GOTO
022FC0: 20 36 35 30 0D 0A 38 30 30 20 52 45 4D 20 2A 2A 650..800 REM **
022FD0: 2A 20 50 52 49 4E 54 20 54 48 45 20 42 4F 41 52 * PRINT THE BOAR
022FE0: 44 20 2A 2A 2A 0D 0A 38 31 30 20 46 4F 52 20 49 D ***..810 FOR I
022FF0: 3D 31 20 54 4F 20 4E 3A 20 46 4F 52 20 4A 3D 31 =1 TO N: FOR J=1
023000: 20 54 4F 20 4E 3A 20 50 52 49 4E 54 20 41 28 49 TO N: PRINT A(I
023010: 2C 4A 29 3B 0D 0A 38 34 30 20 4E 45 58 54 20 4A ,J);..840 NEXT J
023020: 3A 20 50 52 49 4E 54 3A 20 4E 45 58 54 20 49 3A : PRINT: NEXT I:
023030: 20 50 52 49 4E 54 3A 20 52 45 54 55 52 4E 0D 0A PRINT: RETURN..
023040: 39 31 30 20 4C 3D 31 3A 20 49 46 20 58 3C 31 20 910 L=1: IF X<1
023050: 54 48 45 4E 20 39 37 30 0D 0A 39 32 30 20 49 46 THEN 970..920 IF
023060: 20 58 3E 4E 20 54 48 45 4E 20 39 37 30 0D 0A 39 X>N THEN 970..9
023070: 33 30 20 49 46 20 59 3C 31 20 54 48 45 4E 20 39 30 IF Y<1 THEN 9
023080: 37 30 0D 0A 39 34 30 20 49 46 20 59 3E 4E 20 54 70..940 IF Y>N T
023090: 48 45 4E 20 39 37 30 0D 0A 39 35 30 20 52 45 54 HEN 970..950 RET
0230A0: 55 52 4E 0D 0A 39 37 30 20 4C 3D 30 3A 20 52 45 URN..970 L=0: RE
0230B0: 54 55 52 4E 0D 0A 39 38 30 20 50 52 49 4E 54 3A TURN..980 PRINT:
0230C0: 20 50 52 49 4E 54 20 22 54 48 41 4E 4B 53 20 46 PRINT "THANKS F
0230D0: 4F 52 20 54 48 45 20 47 41 4D 45 21 21 22 0D 0A OR THE GAME!!"..
0230E0: 39 38 35 20 50 52 49 4E 54 20 22 50 4C 41 59 20 985 PRINT "PLAY
0230F0: 41 47 41 49 4E 20 28 31 20 46 4F 52 20 59 45 53 AGAIN (1 FOR YES
023100: 47 4F 54 4F 20 36 31 30 0D 0A 31 30 30 30 20 52 GOTO 610..1000 R
023110: 45 4D 20 45 4E 44 20 4F 46 20 47 41 4D 45 20 44 EM END OF GAME D
023120: 45 54 45 43 54 45 44 20 49 4E 20 4C 49 4E 45 20 ETECTED IN LINE
023130: 39 30 30 0D 0A 31 30 31 30 20 50 52 49 4E 54 20 900..1010 PRINT
023140: 22 59 4F 55 20 4C 4F 53 45 2C 20 50 4C 41 59 45 "YOU LOSE, PLAYE
023150: 52 22 3B 50 31 0D 0A 31 30 32 30 20 50 52 49 4E R";P1..1020 PRIN
023160: 54 20 0D 0A 31 30 33 30 20 50 52 49 4E 54 20 22 T ..1030 PRINT "
023170: 41 47 41 49 4E 20 28 31 3D 59 45 53 2C 20 30 3D AGAIN (1=YES, 0=
023180: 4E 4F 21 29 22 3B 0D 0A 31 30 34 30 20 49 4E 50 NO!)";..1040 INP
023190: 55 54 20 52 24 0D 0A 31 30 35 30 20 49 46 20 52 UT R$..1050 IF R
0231A0: 3D 31 20 54 48 45 4E 20 33 34 30 0D 0A 31 30 36 =1 THEN 340..106
0231B0: 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 0 END...........
0231C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0231F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0232F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023300: 2C 20 30 20 46 4F 52 20 4E 4F 29 22 3B 3A 20 49 , 0 FOR NO)";: I
023310: 4E 50 55 54 20 51 0D 0A 39 39 30 20 49 46 20 51 NPUT Q..990 IF Q
023320: 3D 31 20 54 48 45 4E 20 31 31 30 0D 0A 39 39 39 =1 THEN 110..999
023330: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
023340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0233F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0234F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023500: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
023510: 22 47 4F 4D 4F 4B 4F 22 0D 0A 34 20 50 52 49 4E "GOMOKO"..4 PRIN
023520: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
023530: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
023540: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
023550: 45 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A ERSEY"..6 PRINT:
023560: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 38 20 44 PRINT:PRINT..8 D
023570: 49 4D 20 41 28 31 39 2C 31 39 29 0D 0A 31 30 20 IM A(19,19)..10
023580: 50 52 49 4E 54 20 22 57 45 4C 43 4F 4D 45 20 54 PRINT "WELCOME T
023590: 4F 20 54 48 45 20 4F 52 49 45 4E 54 41 4C 20 47 O THE ORIENTAL G
0235A0: 41 4D 45 20 4F 46 20 47 4F 4D 4F 4B 4F 2E 22 0D AME OF GOMOKO.".
0235B0: 0A 32 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 .20 PRINT: PRINT
0235C0: 20 22 54 48 45 20 47 41 4D 45 20 49 53 20 50 4C "THE GAME IS PL
0235D0: 41 59 45 44 20 4F 4E 20 41 4E 20 4E 20 42 59 20 AYED ON AN N BY
0235E0: 4E 20 47 52 49 44 20 4F 46 20 41 20 53 49 5A 45 N GRID OF A SIZE
0235F0: 22 0D 0A 33 30 20 50 52 49 4E 54 20 22 54 48 41 "..30 PRINT "THA
023600: 54 20 59 4F 55 20 53 50 45 43 49 46 59 2E 20 20 T YOU SPECIFY.
023610: 44 55 52 49 4E 47 20 59 4F 55 52 20 50 4C 41 59 DURING YOUR PLAY
023620: 2C 20 59 4F 55 20 4D 41 59 20 43 4F 56 45 52 20 , YOU MAY COVER
023630: 4F 4E 45 20 47 52 49 44 22 0D 0A 34 30 20 50 52 ONE GRID"..40 PR
023640: 49 4E 54 20 22 49 4E 54 45 52 53 45 43 54 49 4F INT "INTERSECTIO
023650: 4E 20 57 49 54 48 20 41 20 4D 41 52 4B 45 52 2E N WITH A MARKER.
023660: 20 54 48 45 20 4F 42 4A 45 43 54 20 4F 46 20 54 THE OBJECT OF T
023670: 48 45 20 47 41 4D 45 20 49 53 20 54 4F 20 47 45 HE GAME IS TO GE
023680: 54 22 0D 0A 35 30 20 50 52 49 4E 54 20 22 35 20 T"..50 PRINT "5
023690: 41 44 4A 41 43 45 4E 54 20 4D 41 52 4B 45 52 53 ADJACENT MARKERS
0236A0: 20 49 4E 20 41 20 52 4F 57 20 2D 2D 20 48 4F 52 IN A ROW -- HOR
0236B0: 49 5A 4F 4E 54 41 4C 4C 59 2C 20 56 45 52 54 49 IZONTALLY, VERTI
0236C0: 43 41 4C 4C 59 2C 20 4F 52 22 0D 0A 36 30 20 50 CALLY, OR"..60 P
0236D0: 52 49 4E 54 20 22 44 49 41 47 4F 4E 41 4C 4C 59 RINT "DIAGONALLY
0236E0: 2E 20 20 4F 4E 20 54 48 45 20 42 4F 41 52 44 20 . ON THE BOARD
0236F0: 44 49 41 47 52 41 4D 2C 20 59 4F 55 52 20 4D 4F DIAGRAM, YOUR MO
023700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0237F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0238F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023900: 56 45 53 20 41 52 45 20 4D 41 52 4B 45 44 22 0D VES ARE MARKED".
023910: 0A 37 30 20 50 52 49 4E 54 20 22 57 49 54 48 20 .70 PRINT "WITH
023920: 41 20 27 31 27 20 41 4E 44 20 54 48 45 20 43 4F A '1' AND THE CO
023930: 4D 50 55 54 45 52 20 4D 4F 56 45 53 20 57 49 54 MPUTER MOVES WIT
023940: 48 20 41 20 27 32 27 2E 22 0D 0A 38 30 20 50 52 H A '2'."..80 PR
023950: 49 4E 54 3A 20 50 52 49 4E 54 20 22 54 48 45 20 INT: PRINT "THE
023960: 43 4F 4D 50 55 54 45 52 20 44 4F 45 53 20 4E 4F COMPUTER DOES NO
023970: 54 20 4B 45 45 50 20 54 52 41 43 4B 20 4F 46 20 T KEEP TRACK OF
023980: 57 48 4F 20 48 41 53 20 57 4F 4E 2E 22 0D 0A 39 WHO HAS WON."..9
023990: 30 20 50 52 49 4E 54 20 22 54 4F 20 45 4E 44 20 0 PRINT "TO END
0239A0: 54 48 45 20 47 41 4D 45 2C 20 54 59 50 45 20 2D THE GAME, TYPE -
0239B0: 31 2C 2D 31 20 46 4F 52 20 59 4F 55 52 20 4D 4F 1,-1 FOR YOUR MO
0239C0: 56 45 2E 22 3A 20 50 52 49 4E 54 0D 0A 31 31 30 VE.": PRINT..110
0239D0: 20 50 52 49 4E 54 20 22 57 48 41 54 20 49 53 20 PRINT "WHAT IS
0239E0: 59 4F 55 52 20 42 4F 41 52 44 20 53 49 5A 45 20 YOUR BOARD SIZE
0239F0: 28 4D 49 4E 20 37 2F 20 4D 41 58 20 31 39 29 22 (MIN 7/ MAX 19)"
023A00: 3B 3A 20 49 4E 50 55 54 20 4E 0D 0A 31 31 35 20 ;: INPUT N..115
023A10: 49 46 20 4E 3E 36 20 54 48 45 4E 20 31 31 37 0D IF N>6 THEN 117.
023A20: 0A 31 31 36 20 47 4F 54 4F 20 31 32 30 0D 0A 31 .116 GOTO 120..1
023A30: 31 37 20 49 46 20 4E 3C 32 30 20 54 48 45 4E 20 17 IF N<20 THEN
023A40: 32 31 30 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 210..120 PRINT "
023A50: 49 20 53 41 49 44 2C 20 54 48 45 20 4D 49 4E 49 I SAID, THE MINI
023A60: 4D 55 4D 20 49 53 20 37 2C 20 54 48 45 20 4D 41 MUM IS 7, THE MA
023A70: 58 49 4D 55 4D 20 49 53 20 31 39 2E 22 3A 20 47 XIMUM IS 19.": G
023A80: 4F 54 4F 20 31 31 30 0D 0A 32 31 30 20 46 4F 52 OTO 110..210 FOR
023A90: 20 49 3D 31 20 54 4F 20 4E 3A 46 4F 52 20 4A 3D I=1 TO N:FOR J=
023AA0: 31 20 54 4F 20 4E 3A 20 41 28 49 2C 4A 29 3D 30 1 TO N: A(I,J)=0
023AB0: 3A 20 4E 45 58 54 20 4A 3A 20 4E 45 58 54 20 49 : NEXT J: NEXT I
023AC0: 0D 0A 33 30 30 20 50 52 49 4E 54 3A 20 50 52 49 ..300 PRINT: PRI
023AD0: 4E 54 20 22 57 45 20 41 4C 54 45 52 4E 41 54 45 NT "WE ALTERNATE
023AE0: 20 4D 4F 56 45 53 2E 20 20 59 4F 55 20 47 4F 20 MOVES. YOU GO
023AF0: 46 49 52 53 54 2E 2E 2E 22 3A 20 50 52 49 4E 54 FIRST...": PRINT
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 00 00 02 09 52 E5 1E 00 C1 02 00 00 00 02 ......R.........
023B20: 1E 00 C6 02 00 00 00 02 1E 00 C2 02 00 00 00 02 ................
023B30: 1E 00 C7 02 00 00 00 02 1E 00 C3 02 00 00 00 02 ................
023B40: 1E 00 C8 02 00 00 00 02 1E 00 C4 02 00 00 00 02 ................
023B50: 1E 00 C9 02 00 00 00 02 1E 00 C5 02 00 00 00 02 ................
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
023C10: 22 47 55 45 53 53 22 0D 0A 32 20 50 52 49 4E 54 "GUESS"..2 PRINT
023C20: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
023C30: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
023C40: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
023C50: 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A 50 RSEY"..3 PRINT:P
023C60: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 50 52 RINT:PRINT..4 PR
023C70: 49 4E 54 20 22 54 48 49 53 20 49 53 20 41 20 4E INT "THIS IS A N
023C80: 55 4D 42 45 52 20 47 55 45 53 53 49 4E 47 20 47 UMBER GUESSING G
023C90: 41 4D 45 2E 20 49 27 4C 4C 20 54 48 49 4E 4B 22 AME. I'LL THINK"
023CA0: 0D 0A 35 20 50 52 49 4E 54 20 22 4F 46 20 41 20 ..5 PRINT "OF A
023CB0: 4E 55 4D 42 45 52 20 42 45 54 57 45 45 4E 20 31 NUMBER BETWEEN 1
023CC0: 20 41 4E 44 20 41 4E 59 20 4C 49 4D 49 54 20 59 AND ANY LIMIT Y
023CD0: 4F 55 20 57 41 4E 54 2E 22 0D 0A 36 20 50 52 49 OU WANT."..6 PRI
023CE0: 4E 54 20 22 54 48 45 4E 20 59 4F 55 20 48 41 56 NT "THEN YOU HAV
023CF0: 45 20 54 4F 20 47 55 45 53 53 20 57 48 41 54 20 E TO GUESS WHAT
023D00: 49 54 20 49 53 2E 22 0D 0A 37 20 50 52 49 4E 54 IT IS."..7 PRINT
023D10: 0D 0A 38 20 50 52 49 4E 54 20 22 57 48 41 54 20 ..8 PRINT "WHAT
023D20: 4C 49 4D 49 54 20 44 4F 20 59 4F 55 20 57 41 4E LIMIT DO YOU WAN
023D30: 54 22 3B 0D 0A 39 20 49 4E 50 55 54 20 4C 0D 0A T";..9 INPUT L..
023D40: 31 30 20 50 52 49 4E 54 0D 0A 31 31 20 4C 31 3D 10 PRINT..11 L1=
023D50: 49 4E 54 28 4C 4F 47 28 4C 29 2F 4C 4F 47 28 32 INT(LOG(L)/LOG(2
023D60: 29 29 2B 31 0D 0A 31 32 20 50 52 49 4E 54 20 22 ))+1..12 PRINT "
023D70: 49 27 4D 20 54 48 49 4E 4B 49 4E 47 20 4F 46 20 I'M THINKING OF
023D80: 41 20 4E 55 4D 42 45 52 20 42 45 54 57 45 45 4E A NUMBER BETWEEN
023D90: 20 31 20 41 4E 44 22 3B 4C 0D 0A 31 33 20 47 3D 1 AND";L..13 G=
023DA0: 31 0D 0A 31 34 20 50 52 49 4E 54 20 22 4E 4F 57 1..14 PRINT "NOW
023DB0: 20 59 4F 55 20 54 52 59 20 54 4F 20 47 55 45 53 YOU TRY TO GUES
023DC0: 53 20 57 48 41 54 20 49 54 20 49 53 2E 22 0D 0A S WHAT IT IS."..
023DD0: 31 35 20 4D 3D 49 4E 54 28 4C 2A 52 4E 44 28 31 15 M=INT(L*RND(1
023DE0: 29 2B 31 29 0D 0A 32 30 20 49 4E 50 55 54 20 4E )+1)..20 INPUT N
023DF0: 0D 0A 32 31 20 49 46 20 4E 3E 30 20 54 48 45 4E ..21 IF N>0 THEN
023E00: 52 49 4E 54 20 22 42 45 54 54 45 52 20 47 4F 20 RINT "BETTER GO
023E10: 42 41 43 4B 20 54 4F 20 46 4F 52 54 20 53 49 4C BACK TO FORT SIL
023E20: 4C 20 46 4F 52 20 52 45 46 52 45 53 48 45 52 20 L FOR REFRESHER
023E30: 54 52 41 49 4E 49 4E 47 21 22 0D 0A 35 30 30 20 TRAINING!"..500
023E40: 50 52 49 4E 54 20 3A 20 49 4E 50 55 54 20 22 54 PRINT : INPUT "T
023E50: 52 59 20 41 47 41 49 4E 20 28 59 20 4F 52 20 4E RY AGAIN (Y OR N
023E60: 29 22 3B 5A 24 0D 0A 35 31 30 20 49 46 20 5A 24 )";Z$..510 IF Z$
023E70: 3D 22 59 22 20 54 48 45 4E 20 31 37 30 0D 0A 35 ="Y" THEN 170..5
023E80: 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 20 PRINT:PRINT "
023E90: 4F 4B 2E 20 20 52 45 54 55 52 4E 20 54 4F 20 42 OK. RETURN TO B
023EA0: 41 53 45 20 43 41 4D 50 2E 22 0D 0A 39 39 39 20 ASE CAMP."..999
023EB0: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
023EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
023FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024000: 20 32 35 0D 0A 32 32 20 47 4F 53 55 42 20 37 30 25..22 GOSUB 70
024010: 0D 0A 32 33 20 47 4F 54 4F 20 31 0D 0A 32 35 20 ..23 GOTO 1..25
024020: 49 46 20 4E 3D 4D 20 54 48 45 4E 20 35 30 0D 0A IF N=M THEN 50..
024030: 33 30 20 47 3D 47 2B 31 0D 0A 33 31 20 49 46 20 30 G=G+1..31 IF
024040: 4E 3E 4D 20 54 48 45 4E 20 34 30 0D 0A 33 32 20 N>M THEN 40..32
024050: 50 52 49 4E 54 20 22 54 4F 4F 20 4C 4F 57 2E 20 PRINT "TOO LOW.
024060: 54 52 59 20 41 20 42 49 47 47 45 52 20 41 4E 53 TRY A BIGGER ANS
024070: 57 45 52 2E 22 0D 0A 33 33 20 47 4F 54 4F 20 32 WER."..33 GOTO 2
024080: 30 0D 0A 34 30 20 50 52 49 4E 54 20 22 54 4F 4F 0..40 PRINT "TOO
024090: 20 48 49 47 48 2E 20 54 52 59 20 41 20 53 4D 41 HIGH. TRY A SMA
0240A0: 4C 4C 45 52 20 41 4E 53 57 45 52 2E 22 0D 0A 34 LLER ANSWER."..4
0240B0: 32 20 47 4F 54 4F 20 32 30 0D 0A 35 30 20 50 52 2 GOTO 20..50 PR
0240C0: 49 4E 54 20 22 54 48 41 54 27 53 20 49 54 21 20 INT "THAT'S IT!
0240D0: 59 4F 55 20 47 4F 54 20 49 54 20 49 4E 22 3B 47 YOU GOT IT IN";G
0240E0: 3B 22 54 52 49 45 53 2E 22 0D 0A 35 32 20 49 46 ;"TRIES."..52 IF
0240F0: 20 47 3C 4C 31 20 54 48 45 4E 20 35 38 0D 0A 35 G<L1 THEN 58..5
024100: 34 20 49 46 20 47 3D 4C 31 20 54 48 45 4E 20 36 4 IF G=L1 THEN 6
024110: 30 0D 0A 35 36 20 50 52 49 4E 54 20 22 59 4F 55 0..56 PRINT "YOU
024120: 20 53 48 4F 55 4C 44 20 48 41 56 45 20 42 45 45 SHOULD HAVE BEE
024130: 4E 20 41 42 4C 45 20 54 4F 20 47 45 54 20 49 54 N ABLE TO GET IT
024140: 20 49 4E 20 4F 4E 4C 59 22 3B 4C 31 0D 0A 35 37 IN ONLY";L1..57
024150: 20 47 4F 54 4F 20 36 35 0D 0A 35 38 20 50 52 49 GOTO 65..58 PRI
024160: 4E 54 20 22 56 45 52 59 20 22 3B 0D 0A 36 30 20 NT "VERY ";..60
024170: 50 52 49 4E 54 20 22 47 4F 4F 44 2E 22 0D 0A 36 PRINT "GOOD."..6
024180: 35 20 47 4F 53 55 42 20 37 30 0D 0A 36 36 20 47 5 GOSUB 70..66 G
024190: 4F 54 4F 20 31 32 0D 0A 37 30 20 46 4F 52 20 48 OTO 12..70 FOR H
0241A0: 3D 31 20 54 4F 20 35 0D 0A 37 31 20 50 52 49 4E =1 TO 5..71 PRIN
0241B0: 54 0D 0A 37 32 20 4E 45 58 54 20 48 0D 0A 37 33 T..72 NEXT H..73
0241C0: 20 52 45 54 55 52 4E 0D 0A 39 39 20 45 4E 44 0D RETURN..99 END.
0241D0: 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0241F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
024200: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 10 PRINT TAB(32)
024210: 3B 22 48 41 4D 55 52 41 42 49 22 0D 0A 32 30 20 ;"HAMURABI"..20
024220: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 PRINT TAB(15);"C
024230: 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E REATIVE COMPUTIN
024240: 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E G MORRISTOWN, N
024250: 45 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 EW JERSEY"..30 P
024260: 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 RINT:PRINT:PRINT
024270: 0D 0A 38 30 20 50 52 49 4E 54 20 22 54 52 59 20 ..80 PRINT "TRY
024280: 59 4F 55 52 20 48 41 4E 44 20 41 54 20 47 4F 56 YOUR HAND AT GOV
024290: 45 52 4E 49 4E 47 20 41 4E 43 49 45 4E 54 20 53 ERNING ANCIENT S
0242A0: 55 4D 45 52 49 41 22 0D 0A 39 30 20 50 52 49 4E UMERIA"..90 PRIN
0242B0: 54 20 22 46 4F 52 20 41 20 54 45 4E 2D 59 45 41 T "FOR A TEN-YEA
0242C0: 52 20 54 45 52 4D 20 4F 46 20 4F 46 46 49 43 45 R TERM OF OFFICE
0242D0: 2E 22 3A 50 52 49 4E 54 0D 0A 39 35 20 44 31 3D .":PRINT..95 D1=
0242E0: 30 3A 20 50 31 3D 30 0D 0A 31 30 30 20 5A 3D 30 0: P1=0..100 Z=0
0242F0: 3A 20 50 3D 39 35 3A 53 3D 32 38 30 30 3A 20 48 : P=95:S=2800: H
024300: 3D 33 30 30 30 3A 20 45 3D 48 2D 53 0D 0A 31 31 =3000: E=H-S..11
024310: 30 20 59 3D 33 3A 20 41 3D 48 2F 59 3A 20 49 3D 0 Y=3: A=H/Y: I=
024320: 35 3A 20 51 3D 31 0D 0A 32 31 30 20 44 3D 30 0D 5: Q=1..210 D=0.
024330: 0A 32 31 35 20 50 52 49 4E 54 3A 50 52 49 4E 54 .215 PRINT:PRINT
024340: 3A 50 52 49 4E 54 20 22 48 41 4D 55 52 41 42 49 :PRINT "HAMURABI
024350: 3A 20 20 49 20 42 45 47 20 54 4F 20 52 45 50 4F : I BEG TO REPO
024360: 52 54 20 54 4F 20 59 4F 55 2C 22 3A 20 5A 3D 5A RT TO YOU,": Z=Z
024370: 2B 31 0D 0A 32 31 37 20 50 52 49 4E 54 20 22 49 +1..217 PRINT "I
024380: 4E 20 59 45 41 52 22 3B 5A 3B 22 2C 22 3B 44 3B N YEAR";Z;",";D;
024390: 22 50 45 4F 50 4C 45 20 53 54 41 52 56 45 44 2C "PEOPLE STARVED,
0243A0: 22 3B 49 3B 22 43 41 4D 45 20 54 4F 20 54 48 45 ";I;"CAME TO THE
0243B0: 20 43 49 54 59 2C 22 0D 0A 32 31 38 20 50 3D 50 CITY,"..218 P=P
0243C0: 2B 49 0D 0A 32 32 37 20 49 46 20 51 3E 30 20 54 +I..227 IF Q>0 T
0243D0: 48 45 4E 20 32 33 30 0D 0A 32 32 38 20 50 3D 49 HEN 230..228 P=I
0243E0: 4E 54 28 50 2F 32 29 0D 0A 32 32 39 20 50 52 49 NT(P/2)..229 PRI
0243F0: 4E 54 20 22 41 20 48 4F 52 52 49 42 4C 45 20 50 NT "A HORRIBLE P
024400: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 10 PRINT TAB(30)
024410: 3B 22 47 55 4E 4E 45 52 22 0D 0A 32 30 20 50 52 ;"GUNNER"..20 PR
024420: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
024430: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
024440: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
024450: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
024460: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
024470: 31 33 30 20 50 52 49 4E 54 20 22 59 4F 55 20 41 130 PRINT "YOU A
024480: 52 45 20 54 48 45 20 4F 46 46 49 43 45 52 2D 49 RE THE OFFICER-I
024490: 4E 2D 43 48 41 52 47 45 2C 20 47 49 56 49 4E 47 N-CHARGE, GIVING
0244A0: 20 4F 52 44 45 52 53 20 54 4F 20 41 20 47 55 4E ORDERS TO A GUN
0244B0: 22 0D 0A 31 34 30 20 50 52 49 4E 54 20 22 43 52 "..140 PRINT "CR
0244C0: 45 57 2C 20 54 45 4C 4C 49 4E 47 20 54 48 45 4D EW, TELLING THEM
0244D0: 20 54 48 45 20 44 45 47 52 45 45 53 20 4F 46 20 THE DEGREES OF
0244E0: 45 4C 45 56 41 54 49 4F 4E 20 59 4F 55 20 45 53 ELEVATION YOU ES
0244F0: 54 49 4D 41 54 45 22 0D 0A 31 35 30 20 50 52 49 TIMATE"..150 PRI
024500: 4E 54 20 22 57 49 4C 4C 20 50 4C 41 43 45 20 41 NT "WILL PLACE A
024510: 20 50 52 4F 4A 45 43 54 49 4C 45 20 4F 4E 20 54 PROJECTILE ON T
024520: 41 52 47 45 54 2E 20 20 41 20 48 49 54 20 57 49 ARGET. A HIT WI
024530: 54 48 49 4E 20 31 30 30 20 59 41 52 44 53 22 0D THIN 100 YARDS".
024540: 0A 31 36 30 20 50 52 49 4E 54 20 22 4F 46 20 54 .160 PRINT "OF T
024550: 48 45 20 54 41 52 47 45 54 20 57 49 4C 4C 20 44 HE TARGET WILL D
024560: 45 53 54 52 4F 59 20 49 54 2E 22 20 3A 20 50 52 ESTROY IT." : PR
024570: 49 4E 54 0D 0A 31 37 30 20 52 3D 49 4E 54 28 34 INT..170 R=INT(4
024580: 30 30 30 30 2A 52 4E 44 28 31 29 2B 32 30 30 30 0000*RND(1)+2000
024590: 30 29 0D 0A 31 38 30 20 50 52 49 4E 54 20 22 4D 0)..180 PRINT "M
0245A0: 41 58 49 4D 55 4D 20 52 41 4E 47 45 20 4F 46 20 AXIMUM RANGE OF
0245B0: 59 4F 55 52 20 47 55 4E 20 49 53 22 3B 52 3B 22 YOUR GUN IS";R;"
0245C0: 20 59 41 52 44 53 2E 22 0D 0A 31 38 35 20 5A 3D YARDS."..185 Z=
0245D0: 30 0D 0A 31 39 30 20 50 52 49 4E 54 0D 0A 31 39 0..190 PRINT..19
0245E0: 35 20 53 31 3D 30 0D 0A 32 30 30 20 54 3D 49 4E 5 S1=0..200 T=IN
0245F0: 54 28 52 2A 28 2E 31 2B 2E 38 2A 52 4E 44 28 31 T(R*(.1+.8*RND(1
024600: 4C 41 47 55 45 20 53 54 52 55 43 4B 21 20 20 48 LAGUE STRUCK! H
024610: 41 4C 46 20 54 48 45 20 50 45 4F 50 4C 45 20 44 ALF THE PEOPLE D
024620: 49 45 44 2E 22 0D 0A 32 33 30 20 50 52 49 4E 54 IED."..230 PRINT
024630: 20 22 50 4F 50 55 4C 41 54 49 4F 4E 20 49 53 20 "POPULATION IS
024640: 4E 4F 57 22 3B 50 0D 0A 32 33 32 20 50 52 49 4E NOW";P..232 PRIN
024650: 54 20 22 54 48 45 20 43 49 54 59 20 4E 4F 57 20 T "THE CITY NOW
024660: 4F 57 4E 53 20 22 3B 41 3B 22 41 43 52 45 53 2E OWNS ";A;"ACRES.
024670: 22 0D 0A 32 33 35 20 50 52 49 4E 54 20 22 59 4F "..235 PRINT "YO
024680: 55 20 48 41 52 56 45 53 54 45 44 22 3B 59 3B 22 U HARVESTED";Y;"
024690: 42 55 53 48 45 4C 53 20 50 45 52 20 41 43 52 45 BUSHELS PER ACRE
0246A0: 2E 22 0D 0A 32 35 30 20 50 52 49 4E 54 20 22 54 ."..250 PRINT "T
0246B0: 48 45 20 52 41 54 53 20 41 54 45 22 3B 45 3B 22 HE RATS ATE";E;"
0246C0: 42 55 53 48 45 4C 53 2E 22 0D 0A 32 36 30 20 50 BUSHELS."..260 P
0246D0: 52 49 4E 54 20 22 59 4F 55 20 4E 4F 57 20 48 41 RINT "YOU NOW HA
0246E0: 56 45 20 22 3B 53 3B 22 42 55 53 48 45 4C 53 20 VE ";S;"BUSHELS
0246F0: 49 4E 20 53 54 4F 52 45 2E 22 3A 20 50 52 49 4E IN STORE.": PRIN
024700: 54 0D 0A 32 37 30 20 49 46 20 5A 3D 31 31 20 54 T..270 IF Z=11 T
024710: 48 45 4E 20 38 36 30 0D 0A 33 31 30 20 43 3D 49 HEN 860..310 C=I
024720: 4E 54 28 31 30 2A 52 4E 44 28 31 29 29 3A 20 59 NT(10*RND(1)): Y
024730: 3D 43 2B 31 37 0D 0A 33 31 32 20 50 52 49 4E 54 =C+17..312 PRINT
024740: 20 22 4C 41 4E 44 20 49 53 20 54 52 41 44 49 4E "LAND IS TRADIN
024750: 47 20 41 54 22 3B 59 3B 22 42 55 53 48 45 4C 53 G AT";Y;"BUSHELS
024760: 20 50 45 52 20 41 43 52 45 2E 22 0D 0A 33 32 30 PER ACRE."..320
024770: 20 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 PRINT "HOW MANY
024780: 20 41 43 52 45 53 20 44 4F 20 59 4F 55 20 57 49 ACRES DO YOU WI
024790: 53 48 20 54 4F 20 42 55 59 22 3B 0D 0A 33 32 31 SH TO BUY";..321
0247A0: 20 49 4E 50 55 54 20 51 3A 20 49 46 20 51 3C 30 INPUT Q: IF Q<0
0247B0: 20 54 48 45 4E 20 38 35 30 0D 0A 33 32 32 20 49 THEN 850..322 I
0247C0: 46 20 59 2A 51 3C 3D 53 20 54 48 45 4E 20 33 33 F Y*Q<=S THEN 33
0247D0: 30 0D 0A 33 32 33 20 47 4F 53 55 42 20 37 31 30 0..323 GOSUB 710
0247E0: 0D 0A 33 32 34 20 47 4F 54 4F 20 33 32 30 0D 0A ..324 GOTO 320..
0247F0: 33 33 30 20 49 46 20 51 3D 30 20 54 48 45 4E 20 330 IF Q=0 THEN
024800: 29 29 29 0D 0A 32 31 30 20 53 3D 30 0D 0A 32 32 )))..210 S=0..22
024810: 30 20 47 4F 54 4F 20 33 37 30 0D 0A 32 33 30 20 0 GOTO 370..230
024820: 50 52 49 4E 54 20 22 4D 49 4E 49 4D 55 4D 20 45 PRINT "MINIMUM E
024830: 4C 45 56 41 54 49 4F 4E 20 49 53 20 4F 4E 45 20 LEVATION IS ONE
024840: 44 45 47 52 45 45 2E 22 0D 0A 32 34 30 20 47 4F DEGREE."..240 GO
024850: 54 4F 20 33 39 30 0D 0A 32 35 30 20 50 52 49 4E TO 390..250 PRIN
024860: 54 20 22 4D 41 58 49 4D 55 4D 20 45 4C 45 56 41 T "MAXIMUM ELEVA
024870: 54 49 4F 4E 20 49 53 20 38 39 20 44 45 47 52 45 TION IS 89 DEGRE
024880: 45 53 2E 22 0D 0A 32 36 30 20 47 4F 54 4F 20 33 ES."..260 GOTO 3
024890: 39 30 0D 0A 32 37 30 20 50 52 49 4E 54 20 22 4F 90..270 PRINT "O
0248A0: 56 45 52 20 54 41 52 47 45 54 20 42 59 20 22 3B VER TARGET BY ";
0248B0: 41 42 53 28 45 29 3B 22 59 41 52 44 53 2E 22 0D ABS(E);"YARDS.".
0248C0: 0A 32 38 30 20 47 4F 54 4F 20 33 39 30 0D 0A 32 .280 GOTO 390..2
0248D0: 39 30 20 50 52 49 4E 54 20 22 53 48 4F 52 54 20 90 PRINT "SHORT
0248E0: 4F 46 20 54 41 52 47 45 54 20 42 59 20 22 41 42 OF TARGET BY "AB
0248F0: 53 28 45 29 3B 22 59 41 52 44 53 2E 22 0D 0A 33 S(E);"YARDS."..3
024900: 30 30 20 47 4F 54 4F 20 33 39 30 0D 0A 33 32 30 00 GOTO 390..320
024910: 20 50 52 49 4E 54 20 22 2A 2A 2A 20 54 41 52 47 PRINT "*** TARG
024920: 45 54 20 44 45 53 54 52 4F 59 45 44 20 2A 2A 2A ET DESTROYED ***
024930: 20 20 22 3B 53 3B 22 52 4F 55 4E 44 53 20 4F 46 ";S;"ROUNDS OF
024940: 20 41 4D 4D 55 4E 49 54 49 4F 4E 20 45 58 50 45 AMMUNITION EXPE
024950: 4E 44 45 44 2E 22 0D 0A 33 32 35 20 53 31 3D 53 NDED."..325 S1=S
024960: 31 2B 53 0D 0A 33 33 30 20 49 46 20 5A 3D 34 20 1+S..330 IF Z=4
024970: 54 48 45 4E 20 34 39 30 0D 0A 33 34 30 20 5A 3D THEN 490..340 Z=
024980: 5A 2B 31 0D 0A 33 34 35 20 50 52 49 4E 54 0D 0A Z+1..345 PRINT..
024990: 33 35 30 20 50 52 49 4E 54 20 22 54 48 45 20 46 350 PRINT "THE F
0249A0: 4F 52 57 41 52 44 20 4F 42 53 45 52 56 45 52 20 ORWARD OBSERVER
0249B0: 48 41 53 20 53 49 47 48 54 45 44 20 4D 4F 52 45 HAS SIGHTED MORE
0249C0: 20 45 4E 45 4D 59 20 41 43 54 49 56 49 54 59 2E ENEMY ACTIVITY.
0249D0: 2E 2E 22 0D 0A 33 36 30 20 47 4F 54 4F 20 32 30 .."..360 GOTO 20
0249E0: 30 0D 0A 33 37 30 20 50 52 49 4E 54 20 22 44 49 0..370 PRINT "DI
0249F0: 53 54 41 4E 43 45 20 54 4F 20 54 48 45 20 54 41 STANCE TO THE TA
024A00: 33 34 30 0D 0A 33 33 31 20 41 3D 41 2B 51 3A 20 340..331 A=A+Q:
024A10: 53 3D 53 2D 59 2A 51 3A 20 43 3D 30 0D 0A 33 33 S=S-Y*Q: C=0..33
024A20: 34 20 47 4F 54 4F 20 34 30 30 0D 0A 33 34 30 20 4 GOTO 400..340
024A30: 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 PRINT "HOW MANY
024A40: 41 43 52 45 53 20 44 4F 20 59 4F 55 20 57 49 53 ACRES DO YOU WIS
024A50: 48 20 54 4F 20 53 45 4C 4C 22 3B 0D 0A 33 34 31 H TO SELL";..341
024A60: 20 49 4E 50 55 54 20 51 3A 20 49 46 20 51 3C 30 INPUT Q: IF Q<0
024A70: 20 54 48 45 4E 20 38 35 30 0D 0A 33 34 32 20 49 THEN 850..342 I
024A80: 46 20 51 3C 41 20 54 48 45 4E 20 33 35 30 0D 0A F Q<A THEN 350..
024A90: 33 34 33 20 47 4F 53 55 42 20 37 32 30 0D 0A 33 343 GOSUB 720..3
024AA0: 34 34 20 47 4F 54 4F 20 33 34 30 0D 0A 33 35 30 44 GOTO 340..350
024AB0: 20 41 3D 41 2D 51 3A 20 53 3D 53 2B 59 2A 51 3A A=A-Q: S=S+Y*Q:
024AC0: 20 43 3D 30 0D 0A 34 30 30 20 50 52 49 4E 54 0D C=0..400 PRINT.
024AD0: 0A 34 31 30 20 50 52 49 4E 54 20 22 48 4F 57 20 .410 PRINT "HOW
024AE0: 4D 41 4E 59 20 42 55 53 48 45 4C 53 20 44 4F 20 MANY BUSHELS DO
024AF0: 59 4F 55 20 57 49 53 48 20 54 4F 20 46 45 45 44 YOU WISH TO FEED
024B00: 20 59 4F 55 52 20 50 45 4F 50 4C 45 22 3B 0D 0A YOUR PEOPLE";..
024B10: 34 31 31 20 49 4E 50 55 54 20 51 0D 0A 34 31 32 411 INPUT Q..412
024B20: 20 49 46 20 51 3C 30 20 54 48 45 4E 20 38 35 30 IF Q<0 THEN 850
024B30: 0D 0A 34 31 38 20 52 45 4D 20 2A 2A 2A 20 54 52 ..418 REM *** TR
024B40: 59 49 4E 47 20 54 4F 20 55 53 45 20 4D 4F 52 45 YING TO USE MORE
024B50: 20 47 52 41 49 4E 20 54 48 41 4E 20 49 53 20 49 GRAIN THAN IS I
024B60: 4E 20 53 49 4C 4F 53 3F 0D 0A 34 32 30 20 49 46 N SILOS?..420 IF
024B70: 20 51 3C 3D 53 20 54 48 45 4E 20 34 33 30 0D 0A Q<=S THEN 430..
024B80: 34 32 31 20 47 4F 53 55 42 20 37 31 30 0D 0A 34 421 GOSUB 710..4
024B90: 32 32 20 47 4F 54 4F 20 34 31 30 0D 0A 34 33 30 22 GOTO 410..430
024BA0: 20 53 3D 53 2D 51 3A 20 43 3D 31 3A 20 50 52 49 S=S-Q: C=1: PRI
024BB0: 4E 54 0D 0A 34 34 30 20 50 52 49 4E 54 20 22 48 NT..440 PRINT "H
024BC0: 4F 57 20 4D 41 4E 59 20 41 43 52 45 53 20 44 4F OW MANY ACRES DO
024BD0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 50 4C 41 YOU WISH TO PLA
024BE0: 4E 54 20 57 49 54 48 20 53 45 45 44 22 3B 0D 0A NT WITH SEED";..
024BF0: 34 34 31 20 49 4E 50 55 54 20 44 3A 20 49 46 20 441 INPUT D: IF
024C00: 52 47 45 54 20 49 53 20 22 54 3B 22 20 59 41 52 RGET IS "T;" YAR
024C10: 44 53 2E 22 0D 0A 33 38 30 20 50 52 49 4E 54 0D DS."..380 PRINT.
024C20: 0A 33 39 30 20 50 52 49 4E 54 0D 0A 34 30 30 20 .390 PRINT..400
024C30: 49 4E 50 55 54 20 22 45 4C 45 56 41 54 49 4F 4E INPUT "ELEVATION
024C40: 22 3B 42 0D 0A 34 32 30 20 49 46 20 42 3E 38 39 ";B..420 IF B>89
024C50: 20 54 48 45 4E 20 32 35 30 0D 0A 34 33 30 20 49 THEN 250..430 I
024C60: 46 20 42 3C 31 20 54 48 45 4E 20 32 33 30 0D 0A F B<1 THEN 230..
024C70: 34 34 30 20 53 3D 53 2B 31 0D 0A 34 34 32 20 49 440 S=S+1..442 I
024C80: 46 20 53 3C 36 20 54 48 45 4E 20 34 35 30 0D 0A F S<6 THEN 450..
024C90: 34 34 34 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 444 PRINT:PRINT
024CA0: 22 42 4F 4F 4D 20 21 21 21 21 20 20 20 59 4F 55 "BOOM !!!! YOU
024CB0: 20 48 41 56 45 20 4A 55 53 54 20 42 45 45 4E 20 HAVE JUST BEEN
024CC0: 44 45 53 54 52 4F 59 45 44 20 22 3B 0D 0A 34 34 DESTROYED ";..44
024CD0: 36 20 50 52 49 4E 54 20 22 42 59 20 54 48 45 20 6 PRINT "BY THE
024CE0: 45 4E 45 4D 59 2E 22 20 3A 20 50 52 49 4E 54 20 ENEMY." : PRINT
024CF0: 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 20 : PRINT : PRINT
024D00: 3A 20 47 4F 54 4F 20 34 39 35 0D 0A 34 35 30 20 : GOTO 495..450
024D10: 42 32 3D 32 2A 42 2F 35 37 2E 33 20 3A 20 49 3D B2=2*B/57.3 : I=
024D20: 52 2A 53 49 4E 28 42 32 29 20 3A 20 58 3D 54 2D R*SIN(B2) : X=T-
024D30: 49 20 3A 20 45 3D 49 4E 54 28 58 29 0D 0A 34 36 I : E=INT(X)..46
024D40: 30 20 49 46 20 41 42 53 28 45 29 3C 31 30 30 20 0 IF ABS(E)<100
024D50: 54 48 45 4E 20 33 32 30 0D 0A 34 37 30 20 49 46 THEN 320..470 IF
024D60: 20 45 3E 31 30 30 20 54 48 45 4E 20 32 39 30 0D E>100 THEN 290.
024D70: 0A 34 38 30 20 47 4F 54 4F 20 32 37 30 0D 0A 34 .480 GOTO 270..4
024D80: 39 30 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 90 PRINT : PRINT
024D90: 20 3A 20 50 52 49 4E 54 20 22 54 4F 54 41 4C 20 : PRINT "TOTAL
024DA0: 52 4F 55 4E 44 53 20 45 58 50 45 4E 44 45 44 20 ROUNDS EXPENDED
024DB0: 57 45 52 45 3A 22 3B 53 31 0D 0A 34 39 32 20 49 WERE:";S1..492 I
024DC0: 46 20 53 31 3E 31 38 20 54 48 45 4E 20 34 39 35 F S1>18 THEN 495
024DD0: 0D 0A 34 39 33 20 50 52 49 4E 54 20 22 4E 49 43 ..493 PRINT "NIC
024DE0: 45 20 53 48 4F 4F 54 49 4E 47 20 21 21 22 20 3A E SHOOTING !!" :
024DF0: 20 47 4F 54 4F 20 35 30 30 0D 0A 34 39 35 20 50 GOTO 500..495 P
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 00 00 02 09 52 E5 1F 00 C1 02 00 00 00 02 ......R.........
024E20: 1F 00 C6 02 00 00 00 02 1F 00 C2 02 00 00 00 02 ................
024E30: 1F 00 C7 02 00 00 00 02 1F 00 C3 02 00 00 00 02 ................
024E40: 1F 00 C8 02 00 00 00 02 1F 00 C4 02 00 00 00 02 ................
024E50: 1F 00 C9 02 00 00 00 02 1F 00 C5 02 00 00 00 02 ................
024E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F00: 44 3D 30 20 54 48 45 4E 20 35 31 31 0D 0A 34 34 D=0 THEN 511..44
024F10: 32 20 49 46 20 44 3C 30 20 54 48 45 4E 20 38 35 2 IF D<0 THEN 85
024F20: 30 0D 0A 34 34 34 20 52 45 4D 20 2A 2A 2A 20 54 0..444 REM *** T
024F30: 52 59 49 4E 47 20 54 4F 20 50 4C 41 4E 54 20 4D RYING TO PLANT M
024F40: 4F 52 45 20 41 43 52 45 53 20 54 48 41 4E 20 59 ORE ACRES THAN Y
024F50: 4F 55 20 4F 57 4E 3F 0D 0A 34 34 35 20 49 46 20 OU OWN?..445 IF
024F60: 44 3C 3D 41 20 54 48 45 4E 20 34 35 30 0D 0A 34 D<=A THEN 450..4
024F70: 34 36 20 47 4F 53 55 42 20 37 32 30 0D 0A 34 34 46 GOSUB 720..44
024F80: 37 20 47 4F 54 4F 20 34 34 30 0D 0A 34 34 39 20 7 GOTO 440..449
024F90: 52 45 4D 20 2A 2A 2A 20 45 4E 4F 55 47 48 20 47 REM *** ENOUGH G
024FA0: 52 41 49 4E 20 46 4F 52 20 53 45 45 44 3F 0D 0A RAIN FOR SEED?..
024FB0: 34 35 30 20 49 46 20 49 4E 54 28 44 2F 32 29 3C 450 IF INT(D/2)<
024FC0: 3D 53 20 54 48 45 4E 20 34 35 35 0D 0A 34 35 32 =S THEN 455..452
024FD0: 20 47 4F 53 55 42 20 37 31 30 0D 0A 34 35 33 20 GOSUB 710..453
024FE0: 47 4F 54 4F 20 34 34 30 0D 0A 34 35 34 20 52 45 GOTO 440..454 RE
024FF0: 4D 20 2A 2A 2A 20 45 4E 4F 55 47 48 20 50 45 4F M *** ENOUGH PEO
025000: 50 4C 45 20 54 4F 20 54 45 4E 44 20 54 48 45 20 PLE TO TEND THE
025010: 43 52 4F 50 53 3F 0D 0A 34 35 35 20 49 46 20 44 CROPS?..455 IF D
025020: 3C 31 30 2A 50 20 54 48 45 4E 20 35 31 30 0D 0A <10*P THEN 510..
025030: 34 36 30 20 50 52 49 4E 54 20 22 42 55 54 20 59 460 PRINT "BUT Y
025040: 4F 55 20 48 41 56 45 20 4F 4E 4C 59 22 3B 50 3B OU HAVE ONLY";P;
025050: 22 50 45 4F 50 4C 45 20 54 4F 20 54 45 4E 44 20 "PEOPLE TO TEND
025060: 54 48 45 20 46 49 45 4C 44 53 21 20 20 4E 4F 57 THE FIELDS! NOW
025070: 20 54 48 45 4E 2C 22 0D 0A 34 37 30 20 47 4F 54 THEN,"..470 GOT
025080: 4F 20 34 34 30 0D 0A 35 31 30 20 53 3D 53 2D 49 O 440..510 S=S-I
025090: 4E 54 28 44 2F 32 29 0D 0A 35 31 31 20 47 4F 53 NT(D/2)..511 GOS
0250A0: 55 42 20 38 30 30 0D 0A 35 31 32 20 52 45 4D 20 UB 800..512 REM
0250B0: 2A 2A 2A 20 41 20 42 4F 55 4E 54 49 46 55 4C 20 *** A BOUNTIFUL
0250C0: 48 41 52 56 45 53 54 21 0D 0A 35 31 35 20 59 3D HARVEST!..515 Y=
0250D0: 43 3A 20 48 3D 44 2A 59 3A 20 45 3D 30 0D 0A 35 C: H=D*Y: E=0..5
0250E0: 32 31 20 47 4F 53 55 42 20 38 30 30 0D 0A 35 32 21 GOSUB 800..52
0250F0: 32 20 49 46 20 49 4E 54 28 43 2F 32 29 3C 3E 43 2 IF INT(C/2)<>C
025100: 20 54 4F 20 31 30 3A 20 50 52 49 4E 54 20 43 48 TO 10: PRINT CH
025110: 52 24 28 37 29 3B 3A 20 4E 45 58 54 20 4E 0D 0A R$(7);: NEXT N..
025120: 39 39 35 20 50 52 49 4E 54 20 22 53 4F 20 4C 4F 995 PRINT "SO LO
025130: 4E 47 20 46 4F 52 20 4E 4F 57 2E 22 3A 20 50 52 NG FOR NOW.": PR
025140: 49 4E 54 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 INT..999 END....
025150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0251F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0252F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025300: 2F 32 20 54 48 45 4E 20 35 33 30 0D 0A 35 32 33 /2 THEN 530..523
025310: 20 52 45 4D 20 2A 2A 2A 20 52 41 54 53 20 41 52 REM *** RATS AR
025320: 45 20 52 55 4E 4E 49 4E 47 20 57 49 4C 44 21 21 E RUNNING WILD!!
025330: 0D 0A 35 32 35 20 45 3D 49 4E 54 28 53 2F 43 29 ..525 E=INT(S/C)
025340: 0D 0A 35 33 30 20 53 3D 53 2D 45 2B 48 0D 0A 35 ..530 S=S-E+H..5
025350: 33 31 20 47 4F 53 55 42 20 38 30 30 0D 0A 35 33 31 GOSUB 800..53
025360: 32 20 52 45 4D 20 2A 2A 2A 20 4C 45 54 27 53 20 2 REM *** LET'S
025370: 48 41 56 45 20 53 4F 4D 45 20 42 41 42 49 45 53 HAVE SOME BABIES
025380: 0D 0A 35 33 33 20 49 3D 49 4E 54 28 43 2A 28 32 ..533 I=INT(C*(2
025390: 30 2A 41 2B 53 29 2F 50 2F 31 30 30 2B 31 29 0D 0*A+S)/P/100+1).
0253A0: 0A 35 33 39 20 52 45 4D 20 2A 2A 2A 20 48 4F 57 .539 REM *** HOW
0253B0: 20 4D 41 4E 59 20 50 45 4F 50 4C 45 20 48 41 44 MANY PEOPLE HAD
0253C0: 20 46 55 4C 4C 20 54 55 4D 4D 49 45 53 3F 0D 0A FULL TUMMIES?..
0253D0: 35 34 30 20 43 3D 49 4E 54 28 51 2F 32 30 29 0D 540 C=INT(Q/20).
0253E0: 0A 35 34 31 20 52 45 4D 20 2A 2A 2A 20 48 4F 52 .541 REM *** HOR
0253F0: 52 4F 53 2C 20 41 20 31 35 25 20 43 48 41 4E 43 ROS, A 15% CHANC
025400: 45 20 4F 46 20 50 4C 41 47 55 45 0D 0A 35 34 32 E OF PLAGUE..542
025410: 20 51 3D 49 4E 54 28 31 30 2A 28 32 2A 52 4E 44 Q=INT(10*(2*RND
025420: 28 31 29 2D 2E 33 29 29 0D 0A 35 35 30 20 49 46 (1)-.3))..550 IF
025430: 20 50 3C 43 20 54 48 45 4E 20 32 31 30 0D 0A 35 P<C THEN 210..5
025440: 35 31 20 52 45 4D 20 2A 2A 2A 20 53 54 41 52 56 51 REM *** STARV
025450: 45 20 45 4E 4F 55 47 48 20 46 4F 52 20 49 4D 50 E ENOUGH FOR IMP
025460: 45 41 43 48 4D 45 4E 54 3F 0D 0A 35 35 32 20 44 EACHMENT?..552 D
025470: 3D 50 2D 43 3A 20 49 46 20 44 3E 2E 34 35 2A 50 =P-C: IF D>.45*P
025480: 20 54 48 45 4E 20 35 36 30 0D 0A 35 35 33 20 50 THEN 560..553 P
025490: 31 3D 28 28 5A 2D 31 29 2A 50 31 2B 44 2A 31 30 1=((Z-1)*P1+D*10
0254A0: 30 2F 50 29 2F 5A 0D 0A 35 35 35 20 50 3D 43 3A 0/P)/Z..555 P=C:
0254B0: 20 44 31 3D 44 31 2B 44 3A 20 47 4F 54 4F 20 32 D1=D1+D: GOTO 2
0254C0: 31 35 0D 0A 35 36 30 20 50 52 49 4E 54 3A 20 50 15..560 PRINT: P
0254D0: 52 49 4E 54 20 22 59 4F 55 20 53 54 41 52 56 45 RINT "YOU STARVE
0254E0: 44 22 3B 44 3B 22 50 45 4F 50 4C 45 20 49 4E 20 D";D;"PEOPLE IN
0254F0: 4F 4E 45 20 59 45 41 52 21 21 21 22 0D 0A 35 36 ONE YEAR!!!"..56
025500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0255F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0256F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
025700: 35 20 50 52 49 4E 54 20 22 44 55 45 20 54 4F 20 5 PRINT "DUE TO
025710: 54 48 49 53 20 45 58 54 52 45 4D 45 20 4D 49 53 THIS EXTREME MIS
025720: 4D 41 4E 41 47 45 4D 45 4E 54 20 59 4F 55 20 48 MANAGEMENT YOU H
025730: 41 56 45 20 4E 4F 54 20 4F 4E 4C 59 22 0D 0A 35 AVE NOT ONLY"..5
025740: 36 36 20 50 52 49 4E 54 20 22 42 45 45 4E 20 49 66 PRINT "BEEN I
025750: 4D 50 45 41 43 48 45 44 20 41 4E 44 20 54 48 52 MPEACHED AND THR
025760: 4F 57 4E 20 4F 55 54 20 4F 46 20 4F 46 46 49 43 OWN OUT OF OFFIC
025770: 45 20 42 55 54 20 59 4F 55 20 48 41 56 45 22 0D E BUT YOU HAVE".
025780: 0A 35 36 37 20 50 52 49 4E 54 20 22 41 4C 53 4F .567 PRINT "ALSO
025790: 20 42 45 45 4E 20 44 45 43 4C 41 52 45 44 20 4E BEEN DECLARED N
0257A0: 41 54 49 4F 4E 41 4C 20 46 49 4E 4B 21 21 21 21 ATIONAL FINK!!!!
0257B0: 22 3A 20 47 4F 54 4F 20 39 39 30 0D 0A 37 31 30 ": GOTO 990..710
0257C0: 20 50 52 49 4E 54 20 22 48 41 4D 55 52 41 42 49 PRINT "HAMURABI
0257D0: 3A 20 20 54 48 49 4E 4B 20 41 47 41 49 4E 2E 20 : THINK AGAIN.
0257E0: 20 59 4F 55 20 48 41 56 45 20 4F 4E 4C 59 22 0D YOU HAVE ONLY".
0257F0: 0A 37 31 31 20 50 52 49 4E 54 20 53 3B 22 42 55 .711 PRINT S;"BU
025800: 53 48 45 4C 53 20 4F 46 20 47 52 41 49 4E 2E 20 SHELS OF GRAIN.
025810: 20 4E 4F 57 20 54 48 45 4E 2C 22 0D 0A 37 31 32 NOW THEN,"..712
025820: 20 52 45 54 55 52 4E 0D 0A 37 32 30 20 50 52 49 RETURN..720 PRI
025830: 4E 54 20 22 48 41 4D 55 52 41 42 49 3A 20 20 54 NT "HAMURABI: T
025840: 48 49 4E 4B 20 41 47 41 49 4E 2E 20 20 59 4F 55 HINK AGAIN. YOU
025850: 20 4F 57 4E 20 4F 4E 4C 59 22 3B 41 3B 22 41 43 OWN ONLY";A;"AC
025860: 52 45 53 2E 20 20 4E 4F 57 20 54 48 45 4E 2C 22 RES. NOW THEN,"
025870: 0D 0A 37 33 30 20 52 45 54 55 52 4E 0D 0A 38 30 ..730 RETURN..80
025880: 30 20 43 3D 49 4E 54 28 52 4E 44 28 31 29 2A 35 0 C=INT(RND(1)*5
025890: 29 2B 31 0D 0A 38 30 31 20 52 45 54 55 52 4E 0D )+1..801 RETURN.
0258A0: 0A 38 35 30 20 50 52 49 4E 54 3A 20 50 52 49 4E .850 PRINT: PRIN
0258B0: 54 20 22 48 41 4D 55 52 41 42 49 3A 20 20 49 20 T "HAMURABI: I
0258C0: 43 41 4E 4E 4F 54 20 44 4F 20 57 48 41 54 20 59 CANNOT DO WHAT Y
0258D0: 4F 55 20 57 49 53 48 2E 22 0D 0A 38 35 35 20 50 OU WISH."..855 P
0258E0: 52 49 4E 54 20 22 47 45 54 20 59 4F 55 52 53 45 RINT "GET YOURSE
0258F0: 4C 46 20 41 4E 4F 54 48 45 52 20 53 54 45 57 41 LF ANOTHER STEWA
025900: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 10 PRINT TAB(32)
025910: 3B 22 48 41 4E 47 4D 41 4E 22 0D 0A 32 30 20 50 ;"HANGMAN"..20 P
025920: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
025930: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
025940: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
025950: 57 20 4A 45 52 53 45 59 22 0D 0A 32 35 20 50 52 W JERSEY"..25 PR
025960: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
025970: 0A 33 30 20 44 49 4D 20 50 24 28 31 32 2C 31 32 .30 DIM P$(12,12
025980: 29 2C 4C 24 28 32 30 29 2C 44 24 28 32 30 29 2C ),L$(20),D$(20),
025990: 4E 24 28 32 36 29 2C 55 28 35 30 29 0D 0A 34 30 N$(26),U(50)..40
0259A0: 20 43 3D 31 3A 20 4E 3D 35 30 0D 0A 35 30 20 46 C=1: N=50..50 F
0259B0: 4F 52 20 49 3D 31 20 54 4F 20 32 30 3A 20 44 24 OR I=1 TO 20: D$
0259C0: 28 49 29 3D 22 2D 22 3A 20 4E 45 58 54 20 49 3A (I)="-": NEXT I:
0259D0: 20 4D 3D 30 0D 0A 36 30 20 46 4F 52 20 49 3D 31 M=0..60 FOR I=1
0259E0: 20 54 4F 20 32 36 3A 20 4E 24 28 49 29 3D 22 22 TO 26: N$(I)=""
0259F0: 3A 20 4E 45 58 54 20 49 0D 0A 37 30 20 46 4F 52 : NEXT I..70 FOR
025A00: 20 49 3D 31 20 54 4F 20 31 32 3A 20 46 4F 52 20 I=1 TO 12: FOR
025A10: 4A 3D 31 20 54 4F 20 31 32 3A 20 50 24 28 49 2C J=1 TO 12: P$(I,
025A20: 4A 29 3D 22 20 22 3A 20 4E 45 58 54 20 4A 3A 20 J)=" ": NEXT J:
025A30: 4E 45 58 54 20 49 0D 0A 38 30 20 46 4F 52 20 49 NEXT I..80 FOR I
025A40: 3D 31 20 54 4F 20 31 32 3A 20 50 24 28 49 2C 31 =1 TO 12: P$(I,1
025A50: 29 3D 22 58 22 3A 20 4E 45 58 54 20 49 0D 0A 39 )="X": NEXT I..9
025A60: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 37 3A 20 0 FOR I=1 TO 7:
025A70: 50 24 28 31 2C 49 29 3D 22 58 22 3A 20 4E 45 58 P$(1,I)="X": NEX
025A80: 54 3A 20 50 24 28 32 2C 37 29 3D 22 58 22 0D 0A T: P$(2,7)="X"..
025A90: 39 35 20 49 46 20 43 3C 4E 20 54 48 45 4E 20 31 95 IF C<N THEN 1
025AA0: 30 30 0D 0A 39 37 20 50 52 49 4E 54 20 22 59 4F 00..97 PRINT "YO
025AB0: 55 20 44 49 44 20 41 4C 4C 20 54 48 45 20 57 4F U DID ALL THE WO
025AC0: 52 44 53 21 21 22 3A 20 53 54 4F 50 0D 0A 31 30 RDS!!": STOP..10
025AD0: 30 20 51 3D 49 4E 54 28 4E 2A 52 4E 44 28 31 29 0 Q=INT(N*RND(1)
025AE0: 29 2B 31 0D 0A 31 31 30 20 49 46 20 55 28 51 29 )+1..110 IF U(Q)
025AF0: 3D 31 20 54 48 45 4E 20 31 30 30 0D 0A 31 31 35 =1 THEN 100..115
025B00: 52 44 21 21 21 21 21 22 0D 0A 38 35 37 20 47 4F RD!!!!!"..857 GO
025B10: 54 4F 20 39 39 30 0D 0A 38 36 30 20 50 52 49 4E TO 990..860 PRIN
025B20: 54 20 22 49 4E 20 59 4F 55 52 20 31 30 2D 59 45 T "IN YOUR 10-YE
025B30: 41 52 20 54 45 52 4D 20 4F 46 20 4F 46 46 49 43 AR TERM OF OFFIC
025B40: 45 2C 22 3B 50 31 3B 22 50 45 52 43 45 4E 54 20 E,";P1;"PERCENT
025B50: 4F 46 20 54 48 45 22 0D 0A 38 36 32 20 50 52 49 OF THE"..862 PRI
025B60: 4E 54 20 22 50 4F 50 55 4C 41 54 49 4F 4E 20 53 NT "POPULATION S
025B70: 54 41 52 56 45 44 20 50 45 52 20 59 45 41 52 20 TARVED PER YEAR
025B80: 4F 4E 20 54 48 45 20 41 56 45 52 41 47 45 2C 20 ON THE AVERAGE,
025B90: 49 2E 45 2E 20 41 20 54 4F 54 41 4C 20 4F 46 22 I.E. A TOTAL OF"
025BA0: 0D 0A 38 36 35 20 50 52 49 4E 54 20 44 31 3B 22 ..865 PRINT D1;"
025BB0: 50 45 4F 50 4C 45 20 44 49 45 44 21 21 22 3A 20 PEOPLE DIED!!":
025BC0: 4C 3D 41 2F 50 0D 0A 38 37 30 20 50 52 49 4E 54 L=A/P..870 PRINT
025BD0: 20 22 59 4F 55 20 53 54 41 52 54 45 44 20 57 49 "YOU STARTED WI
025BE0: 54 48 20 31 30 20 41 43 52 45 53 20 50 45 52 20 TH 10 ACRES PER
025BF0: 50 45 52 53 4F 4E 20 41 4E 44 20 45 4E 44 45 44 PERSON AND ENDED
025C00: 20 57 49 54 48 22 0D 0A 38 37 35 20 50 52 49 4E WITH"..875 PRIN
025C10: 54 20 4C 3B 22 41 43 52 45 53 20 50 45 52 20 50 T L;"ACRES PER P
025C20: 45 52 53 4F 4E 2E 22 3A 20 50 52 49 4E 54 0D 0A ERSON.": PRINT..
025C30: 38 38 30 20 49 46 20 50 31 3E 33 33 20 54 48 45 880 IF P1>33 THE
025C40: 4E 20 35 36 35 0D 0A 38 38 35 20 49 46 20 4C 3C N 565..885 IF L<
025C50: 37 20 54 48 45 4E 20 35 36 35 0D 0A 38 39 30 20 7 THEN 565..890
025C60: 49 46 20 50 31 3E 31 30 20 54 48 45 4E 20 39 34 IF P1>10 THEN 94
025C70: 30 0D 0A 38 39 32 20 49 46 20 4C 3C 39 20 54 48 0..892 IF L<9 TH
025C80: 45 4E 20 39 34 30 0D 0A 38 39 35 20 49 46 20 50 EN 940..895 IF P
025C90: 31 3E 33 20 54 48 45 4E 20 39 36 30 0D 0A 38 39 1>3 THEN 960..89
025CA0: 36 20 49 46 20 4C 3C 31 30 20 54 48 45 4E 20 39 6 IF L<10 THEN 9
025CB0: 36 30 0D 0A 39 30 30 20 50 52 49 4E 54 20 22 41 60..900 PRINT "A
025CC0: 20 46 41 4E 54 41 53 54 49 43 20 50 45 52 46 4F FANTASTIC PERFO
025CD0: 52 4D 41 4E 43 45 21 21 21 20 20 43 48 41 52 4C RMANCE!!! CHARL
025CE0: 45 4D 41 4E 47 45 2C 20 44 49 53 52 41 45 4C 49 EMANGE, DISRAELI
025CF0: 2C 20 41 4E 44 22 0D 0A 39 30 35 20 50 52 49 4E , AND"..905 PRIN
025D00: 20 55 28 51 29 3D 31 3A 20 43 3D 43 2B 31 3A 20 U(Q)=1: C=C+1:
025D10: 52 45 53 54 4F 52 45 3A 20 54 31 3D 30 0D 0A 31 RESTORE: T1=0..1
025D20: 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 51 3A 50 FOR I=1 TO Q:
025D30: 20 52 45 41 44 20 41 24 3A 20 4E 45 58 54 20 49 READ A$: NEXT I
025D40: 0D 0A 31 36 30 20 4C 3D 4C 45 4E 28 41 24 29 3A ..160 L=LEN(A$):
025D50: 20 46 4F 52 20 49 3D 31 20 54 4F 20 4C 45 4E 28 FOR I=1 TO LEN(
025D60: 41 24 29 3A 20 4C 24 28 49 29 3D 4D 49 44 24 28 A$): L$(I)=MID$(
025D70: 41 24 2C 49 2C 31 29 3A 20 4E 45 58 54 20 49 0D A$,I,1): NEXT I.
025D80: 0A 31 37 30 20 50 52 49 4E 54 20 22 48 45 52 45 .170 PRINT "HERE
025D90: 20 41 52 45 20 54 48 45 20 4C 45 54 54 45 52 53 ARE THE LETTERS
025DA0: 20 59 4F 55 20 55 53 45 44 3A 22 0D 0A 31 38 30 YOU USED:"..180
025DB0: 20 46 4F 52 20 49 3D 31 20 54 4F 20 32 36 3A 20 FOR I=1 TO 26:
025DC0: 50 52 49 4E 54 20 4E 24 28 49 29 3B 3A 20 49 46 PRINT N$(I);: IF
025DD0: 20 4E 24 28 49 2B 31 29 3D 22 22 20 54 48 45 4E N$(I+1)="" THEN
025DE0: 20 32 30 30 0D 0A 31 39 30 20 50 52 49 4E 54 20 200..190 PRINT
025DF0: 22 2C 22 3B 3A 20 4E 45 58 54 20 49 0D 0A 32 30 ",";: NEXT I..20
025E00: 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 0 PRINT: PRINT:
025E10: 46 4F 52 20 49 3D 31 20 54 4F 20 4C 3A 20 50 52 FOR I=1 TO L: PR
025E20: 49 4E 54 20 44 24 28 49 29 3B 3A 20 4E 45 58 54 INT D$(I);: NEXT
025E30: 20 49 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 I: PRINT: PRINT
025E40: 0D 0A 32 31 30 20 49 4E 50 55 54 20 22 57 48 41 ..210 INPUT "WHA
025E50: 54 20 49 53 20 59 4F 55 52 20 47 55 45 53 53 22 T IS YOUR GUESS"
025E60: 3B 47 24 3A 20 52 3D 30 0D 0A 32 32 30 20 46 4F ;G$: R=0..220 FO
025E70: 52 20 49 3D 31 20 54 4F 20 32 36 3A 20 49 46 20 R I=1 TO 26: IF
025E80: 4E 24 28 49 29 3D 22 22 20 54 48 45 4E 20 32 35 N$(I)="" THEN 25
025E90: 30 0D 0A 32 33 30 20 49 46 20 47 24 3D 4E 24 28 0..230 IF G$=N$(
025EA0: 49 29 20 54 48 45 4E 20 50 52 49 4E 54 20 22 59 I) THEN PRINT "Y
025EB0: 4F 55 20 47 55 45 53 53 45 44 20 54 48 41 54 20 OU GUESSED THAT
025EC0: 4C 45 54 54 45 52 20 42 45 46 4F 52 45 21 22 3A LETTER BEFORE!":
025ED0: 20 47 4F 54 4F 20 31 37 30 0D 0A 32 34 30 20 4E GOTO 170..240 N
025EE0: 45 58 54 20 49 3A 20 50 52 49 4E 54 20 22 50 52 EXT I: PRINT "PR
025EF0: 4F 47 52 41 4D 20 45 52 52 4F 52 2E 20 20 52 55 OGRAM ERROR. RU
025F00: 54 20 22 4A 45 46 46 45 52 53 4F 4E 20 43 4F 4D T "JEFFERSON COM
025F10: 42 49 4E 45 44 20 43 4F 55 4C 44 20 4E 4F 54 20 BINED COULD NOT
025F20: 48 41 56 45 20 44 4F 4E 45 20 42 45 54 54 45 52 HAVE DONE BETTER
025F30: 21 22 3A 47 4F 54 4F 20 39 39 30 0D 0A 39 34 30 !":GOTO 990..940
025F40: 20 50 52 49 4E 54 20 22 59 4F 55 52 20 48 45 41 PRINT "YOUR HEA
025F50: 56 59 2D 48 41 4E 44 45 44 20 50 45 52 46 4F 52 VY-HANDED PERFOR
025F60: 4D 41 4E 43 45 20 53 4D 41 43 4B 53 20 4F 46 20 MANCE SMACKS OF
025F70: 4E 45 52 4F 20 41 4E 44 20 49 56 41 4E 20 49 56 NERO AND IVAN IV
025F80: 2E 22 0D 0A 39 34 35 20 50 52 49 4E 54 20 22 54 ."..945 PRINT "T
025F90: 48 45 20 50 45 4F 50 4C 45 20 28 52 45 4D 49 41 HE PEOPLE (REMIA
025FA0: 4E 49 4E 47 29 20 46 49 4E 44 20 59 4F 55 20 41 NING) FIND YOU A
025FB0: 4E 20 55 4E 50 4C 45 41 53 41 4E 54 20 52 55 4C N UNPLEASANT RUL
025FC0: 45 52 2C 20 41 4E 44 2C 22 0D 0A 39 35 30 20 50 ER, AND,"..950 P
025FD0: 52 49 4E 54 20 22 46 52 41 4E 4B 4C 59 2C 20 48 RINT "FRANKLY, H
025FE0: 41 54 45 20 59 4F 55 52 20 47 55 54 53 21 21 22 ATE YOUR GUTS!!"
025FF0: 3A 47 4F 54 4F 20 39 39 30 0D 0A 39 36 30 20 50 :GOTO 990..960 P
026000: 52 49 4E 54 20 22 59 4F 55 52 20 50 45 52 46 4F RINT "YOUR PERFO
026010: 52 4D 41 4E 43 45 20 43 4F 55 4C 44 20 48 41 56 RMANCE COULD HAV
026020: 45 20 42 45 45 4E 20 53 4F 4D 45 57 48 41 54 20 E BEEN SOMEWHAT
026030: 42 45 54 54 45 52 2C 20 42 55 54 22 0D 0A 39 36 BETTER, BUT"..96
026040: 35 20 50 52 49 4E 54 20 22 52 45 41 4C 4C 59 20 5 PRINT "REALLY
026050: 57 41 53 4E 27 54 20 54 4F 4F 20 42 41 44 20 41 WASN'T TOO BAD A
026060: 54 20 41 4C 4C 2E 20 22 3B 49 4E 54 28 50 2A 2E T ALL. ";INT(P*.
026070: 38 2A 52 4E 44 28 31 29 29 3B 22 50 45 4F 50 4C 8*RND(1));"PEOPL
026080: 45 22 0D 0A 39 37 30 20 50 52 49 4E 54 20 22 57 E"..970 PRINT "W
026090: 4F 55 4C 44 20 44 45 41 52 4C 59 20 4C 49 4B 45 OULD DEARLY LIKE
0260A0: 20 54 4F 20 53 45 45 20 59 4F 55 20 41 53 53 41 TO SEE YOU ASSA
0260B0: 53 53 49 4E 41 54 45 44 20 42 55 54 20 57 45 20 SSINATED BUT WE
0260C0: 41 4C 4C 20 48 41 56 45 20 4F 55 52 22 0D 0A 39 ALL HAVE OUR"..9
0260D0: 37 35 20 50 52 49 4E 54 20 22 54 52 49 56 49 41 75 PRINT "TRIVIA
0260E0: 4C 20 50 52 4F 42 4C 45 4D 53 2E 22 0D 0A 39 39 L PROBLEMS."..99
0260F0: 30 20 50 52 49 4E 54 3A 20 46 4F 52 20 4E 3D 31 0 PRINT: FOR N=1
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 00 00 02 09 52 E5 20 00 C1 02 00 00 00 02 .....R. .......
026120: 20 00 C6 02 00 00 00 02 20 00 C2 02 00 00 00 02 ....... .......
026130: 20 00 C7 02 00 00 00 02 20 00 C3 02 00 00 00 02 ....... .......
026140: 20 00 C8 02 00 00 00 02 20 00 C4 02 00 00 00 02 ....... .......
026150: 20 00 C9 02 00 00 00 02 20 00 C5 02 00 00 00 02 ....... .......
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: 4E 20 41 47 41 49 4E 2E 22 3A 20 53 54 4F 50 0D N AGAIN.": STOP.
026210: 0A 32 35 30 20 4E 24 28 49 29 3D 47 24 3A 20 54 .250 N$(I)=G$: T
026220: 31 3D 54 31 2B 31 0D 0A 32 36 30 20 46 4F 52 20 1=T1+1..260 FOR
026230: 49 3D 31 20 54 4F 20 4C 3A 20 49 46 20 4C 24 28 I=1 TO L: IF L$(
026240: 49 29 3D 47 24 20 54 48 45 4E 20 32 38 30 0D 0A I)=G$ THEN 280..
026250: 32 37 30 20 4E 45 58 54 20 49 3A 20 49 46 20 52 270 NEXT I: IF R
026260: 3D 30 20 54 48 45 4E 20 32 39 30 0D 0A 32 37 35 =0 THEN 290..275
026270: 20 47 4F 54 4F 20 33 30 30 0D 0A 32 38 30 20 44 GOTO 300..280 D
026280: 24 28 49 29 3D 47 24 3A 20 52 3D 52 2B 31 3A 20 $(I)=G$: R=R+1:
026290: 47 4F 54 4F 20 32 37 30 0D 0A 32 39 30 20 4D 3D GOTO 270..290 M=
0262A0: 4D 2B 31 3A 20 47 4F 54 4F 20 34 30 30 0D 0A 33 M+1: GOTO 400..3
0262B0: 30 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 4C 3A 00 FOR I=1 TO L:
0262C0: 20 49 46 20 44 24 28 49 29 3D 22 2D 22 20 54 48 IF D$(I)="-" TH
0262D0: 45 4E 20 33 32 30 0D 0A 33 31 30 20 4E 45 58 54 EN 320..310 NEXT
0262E0: 20 49 3A 20 47 4F 54 4F 20 33 39 30 0D 0A 33 32 I: GOTO 390..32
0262F0: 30 20 50 52 49 4E 54 3A 20 46 4F 52 20 49 3D 31 0 PRINT: FOR I=1
026300: 20 54 4F 20 4C 3A 20 50 52 49 4E 54 20 44 24 28 TO L: PRINT D$(
026310: 49 29 3B 3A 20 4E 45 58 54 20 49 3A 20 50 52 49 I);: NEXT I: PRI
026320: 4E 54 3A 20 50 52 49 4E 54 0D 0A 33 33 30 20 49 NT: PRINT..330 I
026330: 4E 50 55 54 20 22 57 48 41 54 20 49 53 20 59 4F NPUT "WHAT IS YO
026340: 55 52 20 47 55 45 53 53 20 46 4F 52 20 54 48 45 UR GUESS FOR THE
026350: 20 57 4F 52 44 22 3B 42 24 0D 0A 33 34 30 20 49 WORD";B$..340 I
026360: 46 20 41 24 3D 42 24 20 54 48 45 4E 20 33 36 30 F A$=B$ THEN 360
026370: 0D 0A 33 35 30 20 50 52 49 4E 54 20 22 57 52 4F ..350 PRINT "WRO
026380: 4E 47 2E 20 20 54 52 59 20 41 4E 4F 54 48 45 52 NG. TRY ANOTHER
026390: 20 4C 45 54 54 45 52 2E 22 3A 20 50 52 49 4E 54 LETTER.": PRINT
0263A0: 3A 20 47 4F 54 4F 20 31 37 30 0D 0A 33 36 30 20 : GOTO 170..360
0263B0: 50 52 49 4E 54 20 22 52 49 47 48 54 21 21 20 20 PRINT "RIGHT!!
0263C0: 49 54 20 54 4F 4F 4B 20 59 4F 55 22 3B 54 31 3B IT TOOK YOU";T1;
0263D0: 22 47 55 45 53 53 45 53 21 22 0D 0A 33 37 30 20 "GUESSES!"..370
0263E0: 49 4E 50 55 54 20 22 57 41 4E 54 20 41 4E 4F 54 INPUT "WANT ANOT
0263F0: 48 45 52 20 57 4F 52 44 22 3B 57 24 3A 20 49 46 HER WORD";W$: IF
026400: 4C 59 22 2C 22 4C 4F 55 44 53 50 45 41 4B 45 52 LY","LOUDSPEAKER
026410: 22 2C 22 50 48 59 54 4F 54 4F 58 49 43 22 0D 0A ","PHYTOTOXIC"..
026420: 37 38 30 20 44 41 54 41 20 22 4D 41 54 52 49 4D 780 DATA "MATRIM
026430: 4F 4E 49 41 4C 22 2C 22 50 41 52 41 53 59 4D 50 ONIAL","PARASYMP
026440: 41 54 48 4F 4D 49 4D 45 54 49 43 22 2C 22 54 48 ATHOMIMETIC","TH
026450: 49 47 4D 4F 54 52 4F 50 49 53 4D 22 0D 0A 39 39 IGMOTROPISM"..99
026460: 30 20 50 52 49 4E 54 20 22 42 59 45 20 4E 4F 57 0 PRINT "BYE NOW
026470: 22 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 "..999 END......
026480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0264F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0265F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
026600: 20 57 24 3D 22 59 45 53 22 20 54 48 45 4E 20 35 W$="YES" THEN 5
026610: 30 0D 0A 33 38 30 20 50 52 49 4E 54 3A 20 50 52 0..380 PRINT: PR
026620: 49 4E 54 20 22 49 54 27 53 20 42 45 45 4E 20 46 INT "IT'S BEEN F
026630: 55 4E 21 20 20 42 59 45 20 46 4F 52 20 4E 4F 57 UN! BYE FOR NOW
026640: 2E 22 3A 20 47 4F 54 4F 20 39 39 39 0D 0A 33 39 .": GOTO 999..39
026650: 30 20 50 52 49 4E 54 20 22 59 4F 55 20 46 4F 55 0 PRINT "YOU FOU
026660: 4E 44 20 54 48 45 20 57 4F 52 44 21 22 3A 20 47 ND THE WORD!": G
026670: 4F 54 4F 20 33 37 30 0D 0A 34 30 30 20 50 52 49 OTO 370..400 PRI
026680: 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 NT: PRINT: PRINT
026690: 22 53 4F 52 52 59 2C 20 54 48 41 54 20 4C 45 54 "SORRY, THAT LET
0266A0: 54 45 52 20 49 53 4E 27 54 20 49 4E 20 54 48 45 TER ISN'T IN THE
0266B0: 20 57 4F 52 44 2E 22 0D 0A 34 31 30 20 4F 4E 20 WORD."..410 ON
0266C0: 4D 20 47 4F 54 4F 20 34 31 35 2C 34 32 30 2C 34 M GOTO 415,420,4
0266D0: 32 35 2C 34 33 30 2C 34 33 35 2C 34 34 30 2C 34 25,430,435,440,4
0266E0: 34 35 2C 34 35 30 2C 34 35 35 2C 34 36 30 0D 0A 45,450,455,460..
0266F0: 34 31 35 20 50 52 49 4E 54 20 22 46 49 52 53 54 415 PRINT "FIRST
026700: 2C 20 57 45 20 44 52 41 57 20 41 20 48 45 41 44 , WE DRAW A HEAD
026710: 22 3A 20 47 4F 54 4F 20 34 37 30 0D 0A 34 32 30 ": GOTO 470..420
026720: 20 50 52 49 4E 54 20 22 4E 4F 57 20 57 45 20 44 PRINT "NOW WE D
026730: 52 41 57 20 41 20 42 4F 44 59 2E 22 3A 20 47 4F RAW A BODY.": GO
026740: 54 4F 20 34 37 30 0D 0A 34 32 35 20 50 52 49 4E TO 470..425 PRIN
026750: 54 20 22 4E 45 58 54 20 57 45 20 44 52 41 57 20 T "NEXT WE DRAW
026760: 41 4E 20 41 52 4D 2E 22 3A 20 47 4F 54 4F 20 34 AN ARM.": GOTO 4
026770: 37 30 0D 0A 34 33 30 20 50 52 49 4E 54 20 22 54 70..430 PRINT "T
026780: 48 49 53 20 54 49 4D 45 20 49 54 27 53 20 54 48 HIS TIME IT'S TH
026790: 45 20 4F 54 48 45 52 20 41 52 4D 2E 22 3A 20 47 E OTHER ARM.": G
0267A0: 4F 54 4F 20 34 37 30 0D 0A 34 33 35 20 50 52 49 OTO 470..435 PRI
0267B0: 4E 54 20 22 4E 4F 57 2C 20 4C 45 54 27 53 20 44 NT "NOW, LET'S D
0267C0: 52 41 57 20 54 48 45 20 52 49 47 48 54 20 4C 45 RAW THE RIGHT LE
0267D0: 47 2E 22 3A 20 47 4F 54 4F 20 34 37 30 0D 0A 34 G.": GOTO 470..4
0267E0: 34 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 54 40 PRINT "THIS T
0267F0: 49 4D 45 20 57 45 20 44 52 41 57 20 54 48 45 20 IME WE DRAW THE
026800: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
026810: 22 48 45 4C 4C 4F 22 0D 0A 34 20 50 52 49 4E 54 "HELLO"..4 PRINT
026820: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
026830: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
026840: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
026850: 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 20 RSEY"..6 PRINT:
026860: 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 31 30 PRINT: PRINT..10
026870: 20 50 52 49 4E 54 20 22 48 45 4C 4C 4F 2E 20 20 PRINT "HELLO.
026880: 4D 59 20 4E 41 4D 45 20 49 53 20 43 52 45 41 54 MY NAME IS CREAT
026890: 49 56 45 20 43 4F 4D 50 55 54 45 52 2E 22 0D 0A IVE COMPUTER."..
0268A0: 32 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 PRINT: PRINT:
0268B0: 20 49 4E 50 55 54 20 22 57 48 41 54 27 53 20 59 INPUT "WHAT'S Y
0268C0: 4F 55 52 20 4E 41 4D 45 22 3B 4E 24 3A 20 50 52 OUR NAME";N$: PR
0268D0: 49 4E 54 0D 0A 33 30 20 50 52 49 4E 54 20 22 48 INT..30 PRINT "H
0268E0: 49 20 54 48 45 52 45 2C 20 22 3B 4E 24 3B 22 2C I THERE, ";N$;",
0268F0: 20 41 52 45 20 59 4F 55 20 45 4E 4A 4F 59 49 4E ARE YOU ENJOYIN
026900: 47 20 59 4F 55 52 53 45 4C 46 20 48 45 52 45 22 G YOURSELF HERE"
026910: 3B 0D 0A 34 30 20 49 4E 50 55 54 20 42 24 3A 20 ;..40 INPUT B$:
026920: 50 52 49 4E 54 0D 0A 35 30 20 49 46 20 42 24 3D PRINT..50 IF B$=
026930: 22 59 45 53 22 20 54 48 45 4E 20 37 30 0D 0A 35 "YES" THEN 70..5
026940: 35 20 49 46 20 42 24 3D 22 4E 4F 22 20 54 48 45 5 IF B$="NO" THE
026950: 4E 20 38 30 0D 0A 36 30 20 50 52 49 4E 54 20 4E N 80..60 PRINT N
026960: 24 3B 22 2C 20 49 20 44 4F 4E 27 54 20 55 4E 44 $;", I DON'T UND
026970: 45 52 53 54 41 4E 44 20 59 4F 55 52 20 41 4E 53 ERSTAND YOUR ANS
026980: 57 45 52 20 4F 46 20 27 22 3B 42 24 3B 22 27 2E WER OF '";B$;"'.
026990: 22 0D 0A 36 35 20 50 52 49 4E 54 20 22 50 4C 45 "..65 PRINT "PLE
0269A0: 41 53 45 20 41 4E 53 57 45 52 20 27 59 45 53 27 ASE ANSWER 'YES'
0269B0: 20 4F 52 20 27 4E 4F 27 2E 20 20 44 4F 20 59 4F OR 'NO'. DO YO
0269C0: 55 20 4C 49 4B 45 20 49 54 20 48 45 52 45 22 3B U LIKE IT HERE";
0269D0: 3A 20 47 4F 54 4F 20 34 30 0D 0A 37 30 20 50 52 : GOTO 40..70 PR
0269E0: 49 4E 54 20 22 49 27 4D 20 47 4C 41 44 20 54 4F INT "I'M GLAD TO
0269F0: 20 48 45 41 52 20 54 48 41 54 2C 20 22 3B 4E 24 HEAR THAT, ";N$
026A00: 4C 45 46 54 20 4C 45 47 2E 22 3A 20 47 4F 54 4F LEFT LEG.": GOTO
026A10: 20 34 37 30 0D 0A 34 34 35 20 50 52 49 4E 54 20 470..445 PRINT
026A20: 22 4E 4F 57 20 57 45 20 50 55 54 20 55 50 20 41 "NOW WE PUT UP A
026A30: 20 48 41 4E 44 2E 22 3A 20 47 4F 54 4F 20 34 37 HAND.": GOTO 47
026A40: 30 0D 0A 34 35 30 20 50 52 49 4E 54 20 22 4E 45 0..450 PRINT "NE
026A50: 58 54 20 54 48 45 20 4F 54 48 45 52 20 48 41 4E XT THE OTHER HAN
026A60: 44 2E 22 3A 20 47 4F 54 4F 20 34 37 30 0D 0A 34 D.": GOTO 470..4
026A70: 35 35 20 50 52 49 4E 54 20 22 4E 4F 57 20 57 45 55 PRINT "NOW WE
026A80: 20 44 52 41 57 20 4F 4E 45 20 46 4F 4F 54 22 3A DRAW ONE FOOT":
026A90: 20 47 4F 54 4F 20 34 37 30 0D 0A 34 36 30 20 50 GOTO 470..460 P
026AA0: 52 49 4E 54 20 22 48 45 52 45 27 53 20 54 48 45 RINT "HERE'S THE
026AB0: 20 4F 54 48 45 52 20 46 4F 4F 54 20 2D 2D 20 59 OTHER FOOT -- Y
026AC0: 4F 55 27 52 45 20 48 55 4E 47 21 21 22 0D 0A 34 OU'RE HUNG!!"..4
026AD0: 37 30 20 4F 4E 20 4D 20 47 4F 54 4F 20 34 38 30 70 ON M GOTO 480
026AE0: 2C 34 39 30 2C 35 30 30 2C 35 31 30 2C 35 32 30 ,490,500,510,520
026AF0: 2C 35 33 30 2C 35 34 30 2C 35 35 30 2C 35 36 30 ,530,540,550,560
026B00: 2C 35 37 30 0D 0A 34 38 30 20 50 24 28 33 2C 36 ,570..480 P$(3,6
026B10: 29 3D 22 2D 22 3A 20 50 24 28 33 2C 37 29 3D 22 )="-": P$(3,7)="
026B20: 2D 22 3A 20 50 24 28 33 2C 38 29 3D 22 2D 22 3A -": P$(3,8)="-":
026B30: 20 50 24 28 34 2C 35 29 3D 22 28 22 3A 20 50 24 P$(4,5)="(": P$
026B40: 28 34 2C 36 29 3D 22 2E 22 0D 0A 34 38 31 20 50 (4,6)="."..481 P
026B50: 24 28 34 2C 38 29 3D 22 2E 22 3A 50 24 28 34 2C $(4,8)=".":P$(4,
026B60: 39 29 3D 22 29 22 3A 50 24 28 35 2C 36 29 3D 22 9)=")":P$(5,6)="
026B70: 2D 22 3A 50 24 28 35 2C 37 29 3D 22 2D 22 3A 50 -":P$(5,7)="-":P
026B80: 24 28 35 2C 38 29 3D 22 2D 22 3A 47 4F 54 4F 20 $(5,8)="-":GOTO
026B90: 35 38 30 0D 0A 34 39 30 20 46 4F 52 20 49 3D 36 580..490 FOR I=6
026BA0: 20 54 4F 20 39 3A 20 50 24 28 49 2C 37 29 3D 22 TO 9: P$(I,7)="
026BB0: 58 22 3A 20 4E 45 58 54 20 49 3A 20 47 4F 54 4F X": NEXT I: GOTO
026BC0: 20 35 38 30 0D 0A 35 30 30 20 46 4F 52 20 49 3D 580..500 FOR I=
026BD0: 34 20 54 4F 20 37 3A 20 50 24 28 49 2C 49 2D 31 4 TO 7: P$(I,I-1
026BE0: 29 3D 22 5C 22 3A 20 4E 45 58 54 20 49 3A 20 47 )="\": NEXT I: G
026BF0: 4F 54 4F 20 35 38 30 0D 0A 35 31 30 20 50 24 28 OTO 580..510 P$(
026C00: 3B 22 2E 22 3A 20 50 52 49 4E 54 0D 0A 37 35 20 ;".": PRINT..75
026C10: 47 4F 54 4F 20 31 30 30 0D 0A 38 30 20 50 52 49 GOTO 100..80 PRI
026C20: 4E 54 20 22 4F 48 2C 20 49 27 4D 20 53 4F 52 52 NT "OH, I'M SORR
026C30: 59 20 54 4F 20 48 45 41 52 20 54 48 41 54 2C 20 Y TO HEAR THAT,
026C40: 22 3B 4E 24 3B 22 2E 20 4D 41 59 42 45 20 57 45 ";N$;". MAYBE WE
026C50: 20 43 41 4E 22 0D 0A 38 35 20 50 52 49 4E 54 20 CAN"..85 PRINT
026C60: 22 42 52 49 47 48 54 45 4E 20 55 50 20 59 4F 55 "BRIGHTEN UP YOU
026C70: 52 20 56 49 53 49 54 20 41 20 42 49 54 2E 22 0D R VISIT A BIT.".
026C80: 0A 31 30 30 20 50 52 49 4E 54 0D 0A 31 30 35 20 .100 PRINT..105
026C90: 50 52 49 4E 54 20 22 53 41 59 2C 20 22 3B 4E 24 PRINT "SAY, ";N$
026CA0: 3B 22 2C 20 49 20 43 41 4E 20 53 4F 4C 56 45 20 ;", I CAN SOLVE
026CB0: 41 4C 4C 20 4B 49 4E 44 53 20 4F 46 20 50 52 4F ALL KINDS OF PRO
026CC0: 42 4C 45 4D 53 20 45 58 43 45 50 54 22 0D 0A 31 BLEMS EXCEPT"..1
026CD0: 31 30 20 50 52 49 4E 54 20 22 54 48 4F 53 45 20 10 PRINT "THOSE
026CE0: 44 45 41 4C 49 4E 47 20 57 49 54 48 20 47 52 45 DEALING WITH GRE
026CF0: 45 43 45 2E 20 20 57 48 41 54 20 4B 49 4E 44 20 ECE. WHAT KIND
026D00: 4F 46 20 50 52 4F 42 4C 45 4D 53 20 44 4F 22 0D OF PROBLEMS DO".
026D10: 0A 31 32 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .120 PRINT "YOU
026D20: 48 41 56 45 20 28 41 4E 53 57 45 52 20 53 45 58 HAVE (ANSWER SEX
026D30: 2C 20 48 45 41 4C 54 48 2C 20 4D 4F 4E 45 59 2C , HEALTH, MONEY,
026D40: 20 4F 52 20 4A 4F 42 29 22 3B 0D 0A 31 32 35 20 OR JOB)";..125
026D50: 49 4E 50 55 54 20 43 24 0D 0A 31 32 36 20 50 52 INPUT C$..126 PR
026D60: 49 4E 54 0D 0A 31 33 30 20 49 46 20 43 24 3D 22 INT..130 IF C$="
026D70: 53 45 58 22 20 54 48 45 4E 20 32 30 30 0D 0A 31 SEX" THEN 200..1
026D80: 33 32 20 49 46 20 43 24 3D 22 48 45 41 4C 54 48 32 IF C$="HEALTH
026D90: 22 20 54 48 45 4E 20 31 38 30 0D 0A 31 33 34 20 " THEN 180..134
026DA0: 49 46 20 43 24 3D 22 4D 4F 4E 45 59 22 20 54 48 IF C$="MONEY" TH
026DB0: 45 4E 20 31 36 30 0D 0A 31 33 36 20 49 46 20 43 EN 160..136 IF C
026DC0: 24 3D 22 4A 4F 42 22 20 54 48 45 4E 20 31 34 35 $="JOB" THEN 145
026DD0: 0D 0A 31 33 38 20 50 52 49 4E 54 20 22 4F 48 2C ..138 PRINT "OH,
026DE0: 20 22 3B 4E 24 3B 22 2C 20 59 4F 55 52 20 41 4E ";N$;", YOUR AN
026DF0: 53 57 45 52 20 4F 46 20 22 3B 43 24 3B 22 20 49 SWER OF ";C$;" I
026E00: 34 2C 31 31 29 3D 22 2F 22 3A 20 50 24 28 35 2C 4,11)="/": P$(5,
026E10: 31 30 29 3D 22 2F 22 3A 20 50 24 28 36 2C 39 29 10)="/": P$(6,9)
026E20: 3D 22 2F 22 3A 20 50 24 28 37 2C 38 29 3D 22 2F ="/": P$(7,8)="/
026E30: 22 3A 20 47 4F 54 4F 20 35 38 30 0D 0A 35 32 30 ": GOTO 580..520
026E40: 20 50 24 28 31 30 2C 36 29 3D 22 2F 22 3A 20 50 P$(10,6)="/": P
026E50: 24 28 31 31 2C 35 29 3D 22 2F 22 3A 20 47 4F 54 $(11,5)="/": GOT
026E60: 4F 20 35 38 30 0D 0A 35 33 30 20 50 24 28 31 30 O 580..530 P$(10
026E70: 2C 38 29 3D 22 5C 22 3A 20 50 24 28 31 31 2C 39 ,8)="\": P$(11,9
026E80: 29 3D 22 5C 22 3A 20 47 4F 54 4F 20 35 38 30 0D )="\": GOTO 580.
026E90: 0A 35 34 30 20 50 24 28 33 2C 31 31 29 3D 22 5C .540 P$(3,11)="\
026EA0: 22 3A 20 47 4F 54 4F 20 35 38 30 0D 0A 35 35 30 ": GOTO 580..550
026EB0: 20 50 24 28 33 2C 33 29 3D 22 2F 22 3A 20 47 4F P$(3,3)="/": GO
026EC0: 54 4F 20 35 38 30 0D 0A 35 36 30 20 50 24 28 31 TO 580..560 P$(1
026ED0: 32 2C 31 30 29 3D 22 5C 22 3A 20 50 24 28 31 32 2,10)="\": P$(12
026EE0: 2C 31 31 29 3D 22 2D 22 3A 20 47 4F 54 4F 20 35 ,11)="-": GOTO 5
026EF0: 38 30 0D 0A 35 37 30 20 50 24 28 31 32 2C 33 29 80..570 P$(12,3)
026F00: 3D 22 2D 22 3A 20 50 24 28 31 32 2C 34 29 3D 22 ="-": P$(12,4)="
026F10: 2F 22 0D 0A 35 38 30 20 46 4F 52 20 49 3D 31 20 /"..580 FOR I=1
026F20: 54 4F 20 31 32 3A 20 46 4F 52 20 4A 3D 31 20 54 TO 12: FOR J=1 T
026F30: 4F 20 31 32 3A 20 50 52 49 4E 54 20 50 24 28 49 O 12: PRINT P$(I
026F40: 2C 4A 29 3B 3A 20 4E 45 58 54 20 4A 0D 0A 35 39 ,J);: NEXT J..59
026F50: 30 20 50 52 49 4E 54 3A 20 4E 45 58 54 20 49 3A 0 PRINT: NEXT I:
026F60: 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 49 PRINT: PRINT: I
026F70: 46 20 4D 3C 3E 31 30 20 54 48 45 4E 20 31 37 30 F M<>10 THEN 170
026F80: 0D 0A 36 30 30 20 50 52 49 4E 54 20 22 53 4F 52 ..600 PRINT "SOR
026F90: 52 59 2C 20 59 4F 55 20 4C 4F 53 45 2E 20 20 54 RY, YOU LOSE. T
026FA0: 48 45 20 57 4F 52 44 20 57 41 53 20 22 3B 41 24 HE WORD WAS ";A$
026FB0: 0D 0A 36 31 30 20 50 52 49 4E 54 20 22 59 4F 55 ..610 PRINT "YOU
026FC0: 20 4D 49 53 53 45 44 20 54 48 41 54 20 4F 4E 45 MISSED THAT ONE
026FD0: 2E 20 20 44 4F 20 59 4F 55 20 22 3B 3A 20 47 4F . DO YOU ";: GO
026FE0: 54 4F 20 33 37 30 0D 0A 36 32 30 20 49 4E 50 55 TO 370..620 INPU
026FF0: 54 20 22 54 59 50 45 20 59 45 53 20 4F 52 20 4E T "TYPE YES OR N
027000: 53 20 47 52 45 45 4B 20 54 4F 20 4D 45 2E 22 0D S GREEK TO ME.".
027010: 0A 31 34 30 20 47 4F 54 4F 20 32 35 30 0D 0A 31 .140 GOTO 250..1
027020: 34 35 20 50 52 49 4E 54 20 22 49 20 43 41 4E 20 45 PRINT "I CAN
027030: 53 59 4D 50 41 54 48 49 5A 45 20 57 49 54 48 20 SYMPATHIZE WITH
027040: 59 4F 55 20 22 3B 4E 24 3B 22 2E 20 20 49 20 48 YOU ";N$;". I H
027050: 41 56 45 20 54 4F 20 57 4F 52 4B 22 0D 0A 31 34 AVE TO WORK"..14
027060: 38 20 50 52 49 4E 54 20 22 56 45 52 59 20 4C 4F 8 PRINT "VERY LO
027070: 4E 47 20 48 4F 55 52 53 20 46 4F 52 20 4E 4F 20 NG HOURS FOR NO
027080: 50 41 59 20 2D 2D 20 41 4E 44 20 53 4F 4D 45 20 PAY -- AND SOME
027090: 4F 46 20 4D 59 20 42 4F 53 53 45 53 22 0D 0A 31 OF MY BOSSES"..1
0270A0: 35 30 20 50 52 49 4E 54 20 22 52 45 41 4C 4C 59 50 PRINT "REALLY
0270B0: 20 42 45 41 54 20 4F 4E 20 4D 59 20 4B 45 59 42 BEAT ON MY KEYB
0270C0: 4F 41 52 44 2E 20 20 4D 59 20 41 44 56 49 43 45 OARD. MY ADVICE
0270D0: 20 54 4F 20 59 4F 55 2C 20 22 3B 4E 24 3B 22 2C TO YOU, ";N$;",
0270E0: 22 0D 0A 31 35 33 20 50 52 49 4E 54 20 22 49 53 "..153 PRINT "IS
0270F0: 20 54 4F 20 4F 50 45 4E 20 41 20 52 45 54 41 49 TO OPEN A RETAI
027100: 4C 20 43 4F 4D 50 55 54 45 52 20 53 54 4F 52 45 L COMPUTER STORE
027110: 2E 20 20 49 54 27 53 20 47 52 45 41 54 20 46 55 . IT'S GREAT FU
027120: 4E 2E 22 0D 0A 31 35 35 20 47 4F 54 4F 20 32 35 N."..155 GOTO 25
027130: 30 0D 0A 31 36 30 20 50 52 49 4E 54 20 22 53 4F 0..160 PRINT "SO
027140: 52 52 59 2C 20 22 3B 4E 24 3B 22 2C 20 49 27 4D RRY, ";N$;", I'M
027150: 20 42 52 4F 4B 45 20 54 4F 4F 2E 20 20 57 48 59 BROKE TOO. WHY
027160: 20 44 4F 4E 27 54 20 59 4F 55 20 53 45 4C 4C 22 DON'T YOU SELL"
027170: 0D 0A 31 36 32 20 50 52 49 4E 54 20 22 45 4E 43 ..162 PRINT "ENC
027180: 59 43 4C 4F 50 45 41 44 49 41 53 20 4F 52 20 4D YCLOPEADIAS OR M
027190: 41 52 52 59 20 53 4F 4D 45 4F 4E 45 20 52 49 43 ARRY SOMEONE RIC
0271A0: 48 20 4F 52 20 53 54 4F 50 20 45 41 54 49 4E 47 H OR STOP EATING
0271B0: 22 0D 0A 31 36 34 20 50 52 49 4E 54 20 22 53 4F "..164 PRINT "SO
0271C0: 20 59 4F 55 20 57 4F 4E 27 54 20 4E 45 45 44 20 YOU WON'T NEED
0271D0: 53 4F 20 4D 55 43 48 20 4D 4F 4E 45 59 3F 22 0D SO MUCH MONEY?".
0271E0: 0A 31 37 30 20 47 4F 54 4F 20 32 35 30 0D 0A 31 .170 GOTO 250..1
0271F0: 38 30 20 50 52 49 4E 54 20 22 4D 59 20 41 44 56 80 PRINT "MY ADV
027200: 4F 22 3B 59 24 3A 20 49 46 20 4C 45 46 54 24 28 O";Y$: IF LEFT$(
027210: 59 24 2C 31 29 3D 22 59 22 20 54 48 45 4E 20 35 Y$,1)="Y" THEN 5
027220: 30 0D 0A 37 30 30 20 44 41 54 41 20 22 47 55 4D 0..700 DATA "GUM
027230: 22 2C 22 53 49 4E 22 2C 22 46 4F 52 22 2C 22 43 ","SIN","FOR","C
027240: 52 59 22 2C 22 4C 55 47 22 2C 22 42 59 45 22 2C RY","LUG","BYE",
027250: 22 46 4C 59 22 0D 0A 37 31 30 20 44 41 54 41 20 "FLY"..710 DATA
027260: 22 55 47 4C 59 22 2C 22 45 41 43 48 22 2C 22 46 "UGLY","EACH","F
027270: 52 4F 4D 22 2C 22 57 4F 52 4B 22 2C 22 54 41 4C ROM","WORK","TAL
027280: 4B 22 2C 22 57 49 54 48 22 2C 22 53 45 4C 46 22 K","WITH","SELF"
027290: 0D 0A 37 32 30 20 44 41 54 41 20 22 50 49 5A 5A ..720 DATA "PIZZ
0272A0: 41 22 2C 22 54 48 49 4E 47 22 2C 22 46 45 49 47 A","THING","FEIG
0272B0: 4E 22 2C 22 46 49 45 4E 44 22 2C 22 45 4C 42 4F N","FIEND","ELBO
0272C0: 57 22 2C 22 46 41 55 4C 54 22 2C 22 44 49 52 54 W","FAULT","DIRT
0272D0: 59 22 0D 0A 37 33 30 20 44 41 54 41 20 22 42 55 Y"..730 DATA "BU
0272E0: 44 47 45 54 22 2C 22 53 50 49 52 49 54 22 2C 22 DGET","SPIRIT","
0272F0: 51 55 41 49 4E 54 22 2C 22 4D 41 49 44 45 4E 22 QUAINT","MAIDEN"
027300: 2C 22 45 53 43 4F 52 54 22 2C 22 50 49 43 4B 41 ,"ESCORT","PICKA
027310: 58 22 0D 0A 37 34 30 20 44 41 54 41 20 22 45 58 X"..740 DATA "EX
027320: 41 4D 50 4C 45 22 2C 22 54 45 4E 53 49 4F 4E 22 AMPLE","TENSION"
027330: 2C 22 51 55 49 4E 49 4E 45 22 2C 22 4B 49 44 4E ,"QUININE","KIDN
027340: 45 59 22 2C 22 52 45 50 4C 49 43 41 22 2C 22 53 EY","REPLICA","S
027350: 4C 45 45 50 45 52 22 0D 0A 37 35 30 20 44 41 54 LEEPER"..750 DAT
027360: 41 20 22 54 52 49 41 4E 47 4C 45 22 2C 22 4B 41 A "TRIANGLE","KA
027370: 4E 47 41 52 4F 4F 22 2C 22 4D 41 48 4F 47 41 4E NGAROO","MAHOGAN
027380: 59 22 2C 22 53 45 52 47 45 41 4E 54 22 2C 22 53 Y","SERGEANT","S
027390: 45 51 55 45 4E 43 45 22 0D 0A 37 36 30 20 44 41 EQUENCE"..760 DA
0273A0: 54 41 20 22 4D 4F 55 53 54 41 43 48 45 22 2C 22 TA "MOUSTACHE","
0273B0: 44 41 4E 47 45 52 4F 55 53 22 2C 22 53 43 49 45 DANGEROUS","SCIE
0273C0: 4E 54 49 53 54 22 2C 22 44 49 46 46 45 52 45 4E NTIST","DIFFEREN
0273D0: 54 22 2C 22 51 55 49 45 53 43 45 4E 54 22 0D 0A T","QUIESCENT"..
0273E0: 37 37 30 20 44 41 54 41 20 22 4D 41 47 49 53 54 770 DATA "MAGIST
0273F0: 52 41 54 45 22 2C 22 45 52 52 4F 4E 45 4F 55 53 RATE","ERRONEOUS
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 00 00 02 09 52 E5 21 00 C1 02 00 00 00 02 !.....R.!.......
027420: 21 00 C6 02 00 00 00 02 21 00 C2 02 00 00 00 02 !.......!.......
027430: 21 00 C7 02 00 00 00 02 21 00 C3 02 00 00 00 02 !.......!.......
027440: 21 00 C8 02 00 00 00 02 21 00 C4 02 00 00 00 02 !.......!.......
027450: 21 00 C9 02 00 00 00 02 21 00 C5 02 00 00 00 02 !.......!.......
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: 49 43 45 20 54 4F 20 59 4F 55 20 22 3B 4E 24 3B ICE TO YOU ";N$;
027510: 22 20 49 53 3A 22 0D 0A 31 38 35 20 50 52 49 4E " IS:"..185 PRIN
027520: 54 20 22 20 20 20 20 20 31 2E 20 20 54 41 4B 45 T " 1. TAKE
027530: 20 54 57 4F 20 41 53 50 52 49 4E 22 0D 0A 31 38 TWO ASPRIN"..18
027540: 38 20 50 52 49 4E 54 20 22 20 20 20 20 20 32 2E 8 PRINT " 2.
027550: 20 20 44 52 49 4E 4B 20 50 4C 45 4E 54 59 20 4F DRINK PLENTY O
027560: 46 20 46 4C 55 49 44 53 20 28 4F 52 41 4E 47 45 F FLUIDS (ORANGE
027570: 20 4A 55 49 43 45 2C 20 4E 4F 54 20 42 45 45 52 JUICE, NOT BEER
027580: 21 29 22 0D 0A 31 39 30 20 50 52 49 4E 54 20 22 !)"..190 PRINT "
027590: 20 20 20 20 20 33 2E 20 20 47 4F 20 54 4F 20 42 3. GO TO B
0275A0: 45 44 20 28 41 4C 4F 4E 45 29 22 0D 0A 31 39 35 ED (ALONE)"..195
0275B0: 20 47 4F 54 4F 20 32 35 30 0D 0A 32 30 30 20 49 GOTO 250..200 I
0275C0: 4E 50 55 54 20 22 49 53 20 59 4F 55 52 20 50 52 NPUT "IS YOUR PR
0275D0: 4F 42 4C 45 4D 20 54 4F 4F 20 4D 55 43 48 20 4F OBLEM TOO MUCH O
0275E0: 52 20 54 4F 4F 20 4C 49 54 54 4C 45 22 3B 44 24 R TOO LITTLE";D$
0275F0: 3A 20 50 52 49 4E 54 0D 0A 32 31 30 20 49 46 20 : PRINT..210 IF
027600: 44 24 3D 22 54 4F 4F 20 4D 55 43 48 22 20 54 48 D$="TOO MUCH" TH
027610: 45 4E 20 32 32 30 0D 0A 32 31 32 20 49 46 20 44 EN 220..212 IF D
027620: 24 3D 22 54 4F 4F 20 4C 49 54 54 4C 45 22 20 54 $="TOO LITTLE" T
027630: 48 45 4E 20 32 33 30 0D 0A 32 31 35 20 50 52 49 HEN 230..215 PRI
027640: 4E 54 20 22 44 4F 4E 27 54 20 47 45 54 20 41 4C NT "DON'T GET AL
027650: 4C 20 53 48 4F 4F 4B 2C 20 22 3B 4E 24 3B 22 2C L SHOOK, ";N$;",
027660: 20 4A 55 53 54 20 41 4E 53 57 45 52 20 54 48 45 JUST ANSWER THE
027670: 20 51 55 45 53 54 49 4F 4E 22 0D 0A 32 31 37 20 QUESTION"..217
027680: 49 4E 50 55 54 20 22 57 49 54 48 20 27 54 4F 4F INPUT "WITH 'TOO
027690: 20 4D 55 43 48 27 20 4F 52 20 27 54 4F 4F 20 4C MUCH' OR 'TOO L
0276A0: 49 54 54 4C 45 27 2E 20 20 57 48 49 43 48 20 49 ITTLE'. WHICH I
0276B0: 53 20 49 54 22 3B 44 24 3A 47 4F 54 4F 20 32 31 S IT";D$:GOTO 21
0276C0: 30 0D 0A 32 32 30 20 50 52 49 4E 54 20 22 59 4F 0..220 PRINT "YO
0276D0: 55 20 43 41 4C 4C 20 54 48 41 54 20 41 20 50 52 U CALL THAT A PR
0276E0: 4F 42 4C 45 4D 3F 21 21 20 20 49 20 53 48 4F 55 OBLEM?!! I SHOU
0276F0: 4C 44 20 48 41 56 45 20 53 55 43 48 20 50 52 4F LD HAVE SUCH PRO
027700: 31 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 3B 1 PRINT TAB(32);
027710: 22 48 45 58 41 50 41 57 4E 22 0D 0A 32 20 50 52 "HEXAPAWN"..2 PR
027720: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
027730: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
027740: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
027750: 20 4A 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E JERSEY"..3 PRIN
027760: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 T:PRINT:PRINT..4
027770: 20 52 45 4D 20 20 48 45 58 41 50 41 57 4E 3A 20 REM HEXAPAWN:
027780: 20 49 4E 54 45 52 50 52 45 54 41 54 49 4F 4E 20 INTERPRETATION
027790: 4F 46 20 48 45 58 41 50 41 57 4E 20 47 41 4D 45 OF HEXAPAWN GAME
0277A0: 20 41 53 20 50 52 45 53 45 4E 54 45 44 20 49 4E AS PRESENTED IN
0277B0: 0D 0A 35 20 52 45 4D 20 20 4D 41 52 54 49 4E 20 ..5 REM MARTIN
0277C0: 47 41 52 44 4E 45 52 27 53 20 22 54 48 45 20 55 GARDNER'S "THE U
0277D0: 4E 45 58 50 45 43 54 45 44 20 48 41 4E 47 49 4E NEXPECTED HANGIN
0277E0: 47 20 41 4E 44 20 4F 54 48 45 52 20 4D 41 54 48 G AND OTHER MATH
0277F0: 45 4D 41 54 49 43 2D 0D 0A 36 20 52 45 4D 20 20 EMATIC-..6 REM
027800: 41 4C 20 44 49 56 45 52 53 49 4F 4E 53 22 2C 20 AL DIVERSIONS",
027810: 43 48 41 50 54 45 52 20 45 49 47 48 54 3A 20 20 CHAPTER EIGHT:
027820: 41 20 4D 41 54 43 48 42 4F 58 20 47 41 4D 45 2D A MATCHBOX GAME-
027830: 4C 45 41 52 4E 49 4E 47 20 4D 41 43 48 49 4E 45 LEARNING MACHINE
027840: 0D 0A 37 20 52 45 4D 20 20 4F 52 49 47 49 4E 41 ..7 REM ORIGINA
027850: 4C 20 56 45 52 53 49 4F 4E 20 46 4F 52 20 48 2D L VERSION FOR H-
027860: 50 20 54 49 4D 45 53 48 41 52 45 20 53 59 53 54 P TIMESHARE SYST
027870: 45 4D 20 42 59 20 52 2E 41 2E 20 4B 41 41 50 4B EM BY R.A. KAAPK
027880: 45 20 35 2F 35 2F 37 36 0D 0A 38 20 52 45 4D 20 E 5/5/76..8 REM
027890: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 42 59 INSTRUCTIONS BY
0278A0: 20 4A 45 46 46 20 44 41 4C 54 4F 4E 0D 0A 39 20 JEFF DALTON..9
0278B0: 52 45 4D 20 20 43 4F 4E 56 45 52 53 49 4F 4E 20 REM CONVERSION
0278C0: 54 4F 20 4D 49 54 53 20 42 41 53 49 43 20 42 59 TO MITS BASIC BY
0278D0: 20 53 54 45 56 45 20 4E 4F 52 54 48 0D 0A 31 30 STEVE NORTH..10
0278E0: 20 44 49 4D 20 42 28 31 39 2C 39 29 2C 4D 28 31 DIM B(19,9),M(1
0278F0: 39 2C 34 29 2C 53 28 39 29 2C 50 24 28 33 29 0D 9,4),S(9),P$(3).
027900: 42 4C 45 4D 53 21 22 0D 0A 32 32 35 20 50 52 49 BLEMS!"..225 PRI
027910: 4E 54 20 22 49 46 20 49 54 20 42 4F 54 48 45 52 NT "IF IT BOTHER
027920: 53 20 59 4F 55 2C 20 22 3B 4E 24 3B 22 2C 20 54 S YOU, ";N$;", T
027930: 41 4B 45 20 41 20 43 4F 4C 44 20 53 48 4F 57 45 AKE A COLD SHOWE
027940: 52 2E 22 0D 0A 32 32 38 20 47 4F 54 4F 20 32 35 R."..228 GOTO 25
027950: 30 0D 0A 32 33 30 20 50 52 49 4E 54 20 22 57 48 0..230 PRINT "WH
027960: 59 20 41 52 45 20 59 4F 55 20 48 45 52 45 20 49 Y ARE YOU HERE I
027970: 4E 20 53 55 46 46 45 52 4E 2C 20 22 3B 4E 24 3B N SUFFERN, ";N$;
027980: 22 3F 20 20 59 4F 55 20 53 48 4F 55 4C 44 20 42 "? YOU SHOULD B
027990: 45 22 0D 0A 32 33 35 20 50 52 49 4E 54 20 22 49 E"..235 PRINT "I
0279A0: 4E 20 54 4F 4B 59 4F 20 4F 52 20 4E 45 57 20 59 N TOKYO OR NEW Y
0279B0: 4F 52 4B 20 4F 52 20 41 4D 53 54 45 52 44 41 4D ORK OR AMSTERDAM
0279C0: 20 4F 52 20 53 4F 4D 45 50 4C 41 43 45 20 57 49 OR SOMEPLACE WI
0279D0: 54 48 20 53 4F 4D 45 22 0D 0A 32 34 30 20 50 52 TH SOME"..240 PR
0279E0: 49 4E 54 20 22 52 45 41 4C 20 41 43 54 49 4F 4E INT "REAL ACTION
0279F0: 2E 22 0D 0A 32 35 30 20 50 52 49 4E 54 0D 0A 32 ."..250 PRINT..2
027A00: 35 35 20 50 52 49 4E 54 20 22 41 4E 59 20 4D 4F 55 PRINT "ANY MO
027A10: 52 45 20 50 52 4F 42 4C 45 4D 53 20 59 4F 55 20 RE PROBLEMS YOU
027A20: 57 41 4E 54 20 53 4F 4C 56 45 44 2C 20 22 3B 4E WANT SOLVED, ";N
027A30: 24 3B 0D 0A 32 36 30 20 49 4E 50 55 54 20 45 24 $;..260 INPUT E$
027A40: 3A 20 50 52 49 4E 54 0D 0A 32 37 30 20 49 46 20 : PRINT..270 IF
027A50: 45 24 3D 22 59 45 53 22 20 54 48 45 4E 20 32 38 E$="YES" THEN 28
027A60: 30 0D 0A 32 37 33 20 49 46 20 45 24 3D 22 4E 4F 0..273 IF E$="NO
027A70: 22 20 54 48 45 4E 20 33 30 30 0D 0A 32 37 35 20 " THEN 300..275
027A80: 50 52 49 4E 54 20 22 4A 55 53 54 20 41 20 53 49 PRINT "JUST A SI
027A90: 4D 50 4C 45 20 27 59 45 53 27 20 4F 52 20 27 4E MPLE 'YES' OR 'N
027AA0: 4F 27 20 50 4C 45 41 53 45 2C 20 22 3B 4E 24 3B O' PLEASE, ";N$;
027AB0: 22 2E 22 0D 0A 32 37 37 20 47 4F 54 4F 20 32 35 "."..277 GOTO 25
027AC0: 35 0D 0A 32 38 30 20 50 52 49 4E 54 20 22 57 48 5..280 PRINT "WH
027AD0: 41 54 20 4B 49 4E 44 20 28 53 45 58 2C 20 4D 4F AT KIND (SEX, MO
027AE0: 4E 45 59 2C 20 48 45 41 4C 54 48 2C 20 4A 4F 42 NEY, HEALTH, JOB
027AF0: 29 22 3B 0D 0A 32 38 32 20 47 4F 54 4F 20 31 32 )";..282 GOTO 12
027B00: 0A 31 35 20 57 3D 30 3A 20 4C 3D 30 0D 0A 32 30 .15 W=0: L=0..20
027B10: 20 44 45 46 20 46 4E 52 28 58 29 3D 2D 33 2A 28 DEF FNR(X)=-3*(
027B20: 58 3D 31 29 2D 28 58 3D 33 29 2D 34 2A 28 58 3D X=1)-(X=3)-4*(X=
027B30: 36 29 2D 36 2A 28 58 3D 34 29 2D 37 2A 28 58 3D 6)-6*(X=4)-7*(X=
027B40: 39 29 2D 39 2A 28 58 3D 37 29 2B 46 4E 53 28 58 9)-9*(X=7)+FNS(X
027B50: 29 0D 0A 32 35 20 44 45 46 20 46 4E 53 28 58 29 )..25 DEF FNS(X)
027B60: 3D 2D 58 2A 28 58 3D 32 20 4F 52 20 58 3D 35 20 =-X*(X=2 OR X=5
027B70: 4F 52 20 58 3D 38 29 0D 0A 33 30 20 44 45 46 20 OR X=8)..30 DEF
027B80: 46 4E 4D 28 59 29 3D 59 2D 49 4E 54 28 59 2F 31 FNM(Y)=Y-INT(Y/1
027B90: 30 29 2A 31 30 0D 0A 33 35 20 50 24 3D 22 58 2E 0)*10..35 P$="X.
027BA0: 4F 22 0D 0A 34 30 20 46 4F 52 20 49 3D 31 20 54 O"..40 FOR I=1 T
027BB0: 4F 20 31 39 3A 20 46 4F 52 20 4A 3D 31 20 54 4F O 19: FOR J=1 TO
027BC0: 20 39 3A 20 52 45 41 44 20 42 28 49 2C 4A 29 3A 9: READ B(I,J):
027BD0: 20 4E 45 58 54 20 4A 3A 20 4E 45 58 54 20 49 0D NEXT J: NEXT I.
027BE0: 0A 34 35 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 .45 FOR I=1 TO 1
027BF0: 39 3A 20 46 4F 52 20 4A 3D 31 20 54 4F 20 34 3A 9: FOR J=1 TO 4:
027C00: 20 52 45 41 44 20 4D 28 49 2C 4A 29 3A 20 4E 45 READ M(I,J): NE
027C10: 58 54 20 4A 3A 20 4E 45 58 54 20 49 0D 0A 35 30 XT J: NEXT I..50
027C20: 20 50 52 49 4E 54 20 22 49 4E 53 54 52 55 43 54 PRINT "INSTRUCT
027C30: 49 4F 4E 53 20 28 59 2D 4E 29 22 3B 0D 0A 36 30 IONS (Y-N)";..60
027C40: 20 49 4E 50 55 54 20 41 24 0D 0A 37 30 20 41 24 INPUT A$..70 A$
027C50: 3D 4C 45 46 54 24 28 41 24 2C 31 29 0D 0A 38 30 =LEFT$(A$,1)..80
027C60: 20 49 46 20 41 24 3D 22 59 22 20 54 48 45 4E 20 IF A$="Y" THEN
027C70: 32 30 30 30 0D 0A 39 30 20 49 46 20 41 24 3C 3E 2000..90 IF A$<>
027C80: 22 4E 22 20 54 48 45 4E 20 35 30 0D 0A 31 30 30 "N" THEN 50..100
027C90: 20 58 3D 30 3A 20 59 3D 30 0D 0A 31 31 31 20 53 X=0: Y=0..111 S
027CA0: 28 34 29 3D 30 3A 20 53 28 35 29 3D 30 3A 20 53 (4)=0: S(5)=0: S
027CB0: 28 36 29 3D 30 0D 0A 31 31 32 20 53 28 31 29 3D (6)=0..112 S(1)=
027CC0: 2D 31 3A 20 53 28 32 29 3D 2D 31 3A 20 53 28 33 -1: S(2)=-1: S(3
027CD0: 29 3D 2D 31 0D 0A 31 31 33 20 53 28 37 29 3D 31 )=-1..113 S(7)=1
027CE0: 3A 20 53 28 38 29 3D 31 3A 20 53 28 39 29 3D 31 : S(8)=1: S(9)=1
027CF0: 0D 0A 31 31 35 20 47 4F 53 55 42 20 31 30 30 30 ..115 GOSUB 1000
027D00: 35 0D 0A 33 30 30 20 50 52 49 4E 54 0D 0A 33 30 5..300 PRINT..30
027D10: 32 20 50 52 49 4E 54 20 22 54 48 41 54 20 57 49 2 PRINT "THAT WI
027D20: 4C 4C 20 42 45 20 24 35 2E 30 30 20 46 4F 52 20 LL BE $5.00 FOR
027D30: 54 48 45 20 41 44 56 49 43 45 2C 20 22 3B 4E 24 THE ADVICE, ";N$
027D40: 3B 22 2E 22 0D 0A 33 30 35 20 50 52 49 4E 54 20 ;"."..305 PRINT
027D50: 22 50 4C 45 41 53 45 20 4C 45 41 56 45 20 54 48 "PLEASE LEAVE TH
027D60: 45 20 4D 4F 4E 45 59 20 4F 4E 20 54 48 45 20 54 E MONEY ON THE T
027D70: 45 52 4D 49 4E 41 4C 2E 22 0D 0A 33 30 37 20 46 ERMINAL."..307 F
027D80: 4F 52 20 49 3D 31 20 54 4F 20 32 30 30 30 3A 20 OR I=1 TO 2000:
027D90: 4E 45 58 54 20 49 0D 0A 33 31 30 20 50 52 49 4E NEXT I..310 PRIN
027DA0: 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D T: PRINT: PRINT.
027DB0: 0A 33 31 35 20 50 52 49 4E 54 20 22 44 49 44 20 .315 PRINT "DID
027DC0: 59 4F 55 20 4C 45 41 56 45 20 54 48 45 20 4D 4F YOU LEAVE THE MO
027DD0: 4E 45 59 22 3B 0D 0A 33 32 30 20 49 4E 50 55 54 NEY";..320 INPUT
027DE0: 20 47 24 3A 20 50 52 49 4E 54 0D 0A 33 32 35 20 G$: PRINT..325
027DF0: 49 46 20 47 24 3D 22 59 45 53 22 20 54 48 45 4E IF G$="YES" THEN
027E00: 20 33 35 30 0D 0A 33 33 30 20 49 46 20 47 24 3D 350..330 IF G$=
027E10: 22 4E 4F 22 20 54 48 45 4E 20 33 37 30 0D 0A 33 "NO" THEN 370..3
027E20: 33 35 20 50 52 49 4E 54 20 22 59 4F 55 52 20 41 35 PRINT "YOUR A
027E30: 4E 53 57 45 52 20 4F 46 20 27 22 3B 47 24 3B 22 NSWER OF '";G$;"
027E40: 27 20 43 4F 4E 46 55 53 45 53 20 4D 45 2C 20 22 ' CONFUSES ME, "
027E50: 3B 4E 24 3B 22 2E 22 0D 0A 33 34 30 20 50 52 49 ;N$;"."..340 PRI
027E60: 4E 54 20 22 50 4C 45 41 53 45 20 52 45 53 50 4F NT "PLEASE RESPO
027E70: 4E 44 20 57 49 54 48 20 27 59 45 53 27 20 4F 52 ND WITH 'YES' OR
027E80: 20 27 4E 4F 27 2E 22 3A 20 47 4F 54 4F 20 33 31 'NO'.": GOTO 31
027E90: 35 0D 0A 33 35 30 20 50 52 49 4E 54 20 22 48 45 5..350 PRINT "HE
027EA0: 59 2C 20 22 3B 4E 24 3B 22 3F 3F 3F 20 59 4F 55 Y, ";N$;"??? YOU
027EB0: 20 4C 45 46 54 20 4E 4F 20 4D 4F 4E 45 59 20 41 LEFT NO MONEY A
027EC0: 54 20 41 4C 4C 21 22 0D 0A 33 35 35 20 50 52 49 T ALL!"..355 PRI
027ED0: 4E 54 20 22 59 4F 55 20 41 52 45 20 43 48 45 41 NT "YOU ARE CHEA
027EE0: 54 49 4E 47 20 4D 45 20 4F 55 54 20 4F 46 20 4D TING ME OUT OF M
027EF0: 59 20 48 41 52 44 2D 45 41 52 4E 45 44 20 4C 49 Y HARD-EARNED LI
027F00: 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 59 4F 55 ..120 PRINT "YOU
027F10: 52 20 4D 4F 56 45 22 3B 0D 0A 31 32 31 20 49 4E R MOVE";..121 IN
027F20: 50 55 54 20 4D 31 2C 4D 32 0D 0A 31 32 32 20 49 PUT M1,M2..122 I
027F30: 46 20 4D 31 3D 49 4E 54 28 4D 31 29 41 4E 44 20 F M1=INT(M1)AND
027F40: 4D 32 3D 49 4E 54 28 4D 32 29 41 4E 44 20 4D 31 M2=INT(M2)AND M1
027F50: 3E 30 20 41 4E 44 20 4D 31 3C 31 30 20 41 4E 44 >0 AND M1<10 AND
027F60: 20 4D 32 3E 30 20 41 4E 44 20 4D 32 3C 31 30 20 M2>0 AND M2<10
027F70: 54 48 45 4E 20 31 33 30 0D 0A 31 32 33 20 50 52 THEN 130..123 PR
027F80: 49 4E 54 20 22 49 4C 4C 45 47 41 4C 20 43 4F 2D INT "ILLEGAL CO-
027F90: 4F 52 44 49 4E 41 54 45 53 2E 22 0D 0A 31 32 34 ORDINATES."..124
027FA0: 20 47 4F 54 4F 20 31 32 30 0D 0A 31 33 30 20 49 GOTO 120..130 I
027FB0: 46 20 53 28 4D 31 29 3D 31 20 54 48 45 4E 20 31 F S(M1)=1 THEN 1
027FC0: 35 30 0D 0A 31 34 30 20 50 52 49 4E 54 20 22 49 50..140 PRINT "I
027FD0: 4C 4C 45 47 41 4C 20 4D 4F 56 45 2E 22 3A 20 47 LLEGAL MOVE.": G
027FE0: 4F 54 4F 20 31 32 30 0D 0A 31 35 30 20 49 46 20 OTO 120..150 IF
027FF0: 53 28 4D 32 29 3D 31 20 54 48 45 4E 20 31 34 30 S(M2)=1 THEN 140
028000: 0D 0A 31 36 30 20 49 46 20 4D 32 2D 4D 31 3C 3E ..160 IF M2-M1<>
028010: 2D 33 20 41 4E 44 20 53 28 4D 32 29 3C 3E 2D 31 -3 AND S(M2)<>-1
028020: 20 54 48 45 4E 20 31 34 30 0D 0A 31 37 30 20 49 THEN 140..170 I
028030: 46 20 4D 32 3E 4D 31 20 54 48 45 4E 20 31 34 30 F M2>M1 THEN 140
028040: 0D 0A 31 38 30 20 49 46 20 4D 32 2D 4D 31 3D 2D ..180 IF M2-M1=-
028050: 33 20 41 4E 44 20 28 53 28 4D 32 29 3C 3E 30 29 3 AND (S(M2)<>0)
028060: 20 54 48 45 4E 20 31 34 30 0D 0A 31 38 35 20 49 THEN 140..185 I
028070: 46 20 4D 32 2D 4D 31 3C 2D 34 20 54 48 45 4E 20 F M2-M1<-4 THEN
028080: 31 34 30 0D 0A 31 38 36 20 49 46 20 4D 31 3D 37 140..186 IF M1=7
028090: 20 41 4E 44 20 4D 32 3D 33 20 54 48 45 4E 20 31 AND M2=3 THEN 1
0280A0: 34 30 0D 0A 31 39 30 20 53 28 4D 31 29 3D 30 0D 40..190 S(M1)=0.
0280B0: 0A 32 30 30 20 53 28 4D 32 29 3D 31 0D 0A 32 30 .200 S(M2)=1..20
0280C0: 35 20 47 4F 53 55 42 20 31 30 30 30 0D 0A 32 31 5 GOSUB 1000..21
0280D0: 30 20 49 46 20 53 28 31 29 3D 31 20 4F 52 20 53 0 IF S(1)=1 OR S
0280E0: 28 32 29 3D 31 20 4F 52 20 53 28 33 29 3D 31 20 (2)=1 OR S(3)=1
0280F0: 54 48 45 4E 20 38 32 30 0D 0A 32 32 30 20 46 4F THEN 820..220 FO
028100: 56 49 4E 47 2E 22 0D 0A 33 36 30 20 50 52 49 4E VING."..360 PRIN
028110: 54 3A 50 52 49 4E 54 20 22 57 48 41 54 20 41 20 T:PRINT "WHAT A
028120: 52 49 50 20 4F 46 46 2C 20 22 3B 4E 24 3B 22 21 RIP OFF, ";N$;"!
028130: 21 21 22 3A 50 52 49 4E 54 0D 0A 33 36 35 20 47 !!":PRINT..365 G
028140: 4F 54 4F 20 33 38 35 0D 0A 33 37 30 20 50 52 49 OTO 385..370 PRI
028150: 4E 54 20 22 54 48 41 54 27 53 20 48 4F 4E 45 53 NT "THAT'S HONES
028160: 54 2C 20 22 3B 4E 24 3B 22 2C 20 42 55 54 20 48 T, ";N$;", BUT H
028170: 4F 57 20 44 4F 20 59 4F 55 20 45 58 50 45 43 54 OW DO YOU EXPECT
028180: 22 0D 0A 33 37 35 20 50 52 49 4E 54 20 22 4D 45 "..375 PRINT "ME
028190: 20 54 4F 20 47 4F 20 4F 4E 20 57 49 54 48 20 4D TO GO ON WITH M
0281A0: 59 20 50 53 59 43 48 4F 4C 4F 47 59 20 53 54 55 Y PSYCHOLOGY STU
0281B0: 44 49 45 53 20 49 46 20 4D 59 20 50 41 54 49 45 DIES IF MY PATIE
0281C0: 4E 54 53 22 0D 0A 33 38 30 20 50 52 49 4E 54 20 NTS"..380 PRINT
0281D0: 22 44 4F 4E 27 54 20 50 41 59 20 54 48 45 49 52 "DON'T PAY THEIR
0281E0: 20 42 49 4C 4C 53 3F 22 0D 0A 33 38 35 20 50 52 BILLS?"..385 PR
0281F0: 49 4E 54 3A 50 52 49 4E 54 20 22 54 41 4B 45 20 INT:PRINT "TAKE
028200: 41 20 57 41 4C 4B 2C 20 22 3B 4E 24 3B 22 2E 22 A WALK, ";N$;"."
028210: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 3A 47 4F 54 :PRINT:PRINT:GOT
028220: 4F 20 39 39 39 0D 0A 33 39 30 20 50 52 49 4E 54 O 999..390 PRINT
028230: 20 22 4E 49 43 45 20 4D 45 45 54 49 4E 47 20 59 "NICE MEETING Y
028240: 4F 55 2C 20 22 3B 4E 24 3B 22 2C 20 48 41 56 45 OU, ";N$;", HAVE
028250: 20 41 20 4E 49 43 45 20 44 41 59 2E 22 0D 0A 34 A NICE DAY."..4
028260: 30 30 20 52 45 4D 0D 0A 39 39 39 20 45 4E 44 0D 00 REM..999 END.
028270: 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0282F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028300: 52 20 49 3D 31 20 54 4F 20 39 0D 0A 32 32 31 20 R I=1 TO 9..221
028310: 49 46 20 53 28 49 29 3D 2D 31 20 54 48 45 4E 20 IF S(I)=-1 THEN
028320: 32 33 30 0D 0A 32 32 32 20 4E 45 58 54 20 49 0D 230..222 NEXT I.
028330: 0A 32 32 33 20 47 4F 54 4F 20 38 32 30 0D 0A 32 .223 GOTO 820..2
028340: 33 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 39 0D 30 FOR I=1 TO 9.
028350: 0A 32 34 30 20 49 46 20 53 28 49 29 3C 3E 2D 31 .240 IF S(I)<>-1
028360: 20 54 48 45 4E 20 33 33 30 0D 0A 32 35 30 20 49 THEN 330..250 I
028370: 46 20 53 28 49 2B 33 29 3D 30 20 54 48 45 4E 20 F S(I+3)=0 THEN
028380: 33 35 30 0D 0A 32 36 30 20 49 46 20 46 4E 52 28 350..260 IF FNR(
028390: 49 29 3D 49 20 54 48 45 4E 20 33 32 30 0D 0A 32 I)=I THEN 320..2
0283A0: 37 30 20 49 46 20 49 3E 33 20 54 48 45 4E 20 33 70 IF I>3 THEN 3
0283B0: 30 30 0D 0A 32 38 30 20 49 46 20 53 28 35 29 3D 00..280 IF S(5)=
0283C0: 31 20 54 48 45 4E 20 33 35 30 0D 0A 32 39 30 20 1 THEN 350..290
0283D0: 47 4F 54 4F 20 33 33 30 0D 0A 33 30 30 20 49 46 GOTO 330..300 IF
0283E0: 20 53 28 38 29 3D 31 20 54 48 45 4E 20 33 35 30 S(8)=1 THEN 350
0283F0: 0D 0A 33 31 30 20 47 4F 54 4F 20 33 33 30 0D 0A ..310 GOTO 330..
028400: 33 32 30 20 49 46 20 53 28 49 2B 32 29 3D 31 20 320 IF S(I+2)=1
028410: 4F 52 20 53 28 49 2B 34 29 3D 31 20 54 48 45 4E OR S(I+4)=1 THEN
028420: 20 33 35 30 0D 0A 33 33 30 20 4E 45 58 54 20 49 350..330 NEXT I
028430: 0D 0A 33 34 30 20 47 4F 54 4F 20 38 32 30 0D 0A ..340 GOTO 820..
028440: 33 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 350 FOR I=1 TO 1
028450: 39 0D 0A 33 36 30 20 46 4F 52 20 4A 3D 31 20 54 9..360 FOR J=1 T
028460: 4F 20 33 0D 0A 33 37 30 20 46 4F 52 20 4B 3D 33 O 3..370 FOR K=3
028470: 20 54 4F 20 31 20 53 54 45 50 20 2D 31 0D 0A 33 TO 1 STEP -1..3
028480: 38 30 20 54 28 28 4A 2D 31 29 2A 33 2B 4B 29 3D 80 T((J-1)*3+K)=
028490: 42 28 49 2C 28 4A 2D 31 29 2A 33 2B 34 2D 4B 29 B(I,(J-1)*3+4-K)
0284A0: 0D 0A 33 39 30 20 4E 45 58 54 20 4B 0D 0A 34 30 ..390 NEXT K..40
0284B0: 30 20 4E 45 58 54 20 4A 0D 0A 34 31 30 20 46 4F 0 NEXT J..410 FO
0284C0: 52 20 4A 3D 31 20 54 4F 20 39 0D 0A 34 32 30 20 R J=1 TO 9..420
0284D0: 49 46 20 53 28 4A 29 3C 3E 42 28 49 2C 4A 29 20 IF S(J)<>B(I,J)
0284E0: 54 48 45 4E 20 34 36 30 0D 0A 34 33 30 20 4E 45 THEN 460..430 NE
0284F0: 58 54 20 4A 0D 0A 34 34 30 20 52 3D 30 0D 0A 34 XT J..440 R=0..4
028500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0285F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0286F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 00 00 02 09 52 E5 22 00 C1 02 00 00 00 02 ".....R.".......
028720: 22 00 C6 02 00 00 00 02 22 00 C2 02 00 00 00 02 ".......".......
028730: 22 00 C7 02 00 00 00 02 22 00 C3 02 00 00 00 02 ".......".......
028740: 22 00 C8 02 00 00 00 02 22 00 C4 02 00 00 00 02 ".......".......
028750: 22 00 C9 02 00 00 00 02 22 00 C5 02 00 00 00 02 ".......".......
028760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028800: 35 30 20 47 4F 54 4F 20 35 34 30 0D 0A 34 36 30 50 GOTO 540..460
028810: 20 46 4F 52 20 4A 3D 31 20 54 4F 20 39 0D 0A 34 FOR J=1 TO 9..4
028820: 37 30 20 49 46 20 53 28 4A 29 3C 3E 54 28 4A 29 70 IF S(J)<>T(J)
028830: 20 54 48 45 4E 20 35 31 30 0D 0A 34 38 30 20 4E THEN 510..480 N
028840: 45 58 54 20 4A 0D 0A 34 39 30 20 52 3D 31 0D 0A EXT J..490 R=1..
028850: 35 30 30 20 47 4F 54 4F 20 35 34 30 0D 0A 35 31 500 GOTO 540..51
028860: 30 20 4E 45 58 54 20 49 0D 0A 35 31 31 20 52 45 0 NEXT I..511 RE
028870: 4D 45 4D 42 45 52 20 54 48 45 20 54 45 52 4D 49 MEMBER THE TERMI
028880: 4E 41 54 49 4F 4E 20 4F 46 20 54 48 49 53 20 4C NATION OF THIS L
028890: 4F 4F 50 20 49 53 20 49 4D 50 4F 53 53 49 42 4C OOP IS IMPOSSIBL
0288A0: 45 0D 0A 35 31 32 20 50 52 49 4E 54 20 22 49 4C E..512 PRINT "IL
0288B0: 4C 45 47 41 4C 20 42 4F 41 52 44 20 50 41 54 54 LEGAL BOARD PATT
0288C0: 45 52 4E 2E 22 0D 0A 35 33 30 20 53 54 4F 50 0D ERN."..530 STOP.
0288D0: 0A 35 34 30 20 58 3D 49 0D 0A 35 35 30 20 46 4F .540 X=I..550 FO
0288E0: 52 20 49 3D 31 20 54 4F 20 34 0D 0A 35 36 30 20 R I=1 TO 4..560
0288F0: 49 46 20 4D 28 58 2C 49 29 3C 3E 30 20 54 48 45 IF M(X,I)<>0 THE
028900: 4E 20 36 30 30 0D 0A 35 37 30 20 4E 45 58 54 20 N 600..570 NEXT
028910: 49 0D 0A 35 38 30 20 50 52 49 4E 54 20 22 49 20 I..580 PRINT "I
028920: 52 45 53 49 47 4E 2E 22 0D 0A 35 39 30 20 47 4F RESIGN."..590 GO
028930: 54 4F 20 38 32 30 0D 0A 36 30 30 20 59 3D 49 4E TO 820..600 Y=IN
028940: 54 28 52 4E 44 28 31 29 2A 34 2B 31 29 0D 0A 36 T(RND(1)*4+1)..6
028950: 30 31 20 49 46 20 4D 28 58 2C 59 29 3D 30 20 54 01 IF M(X,Y)=0 T
028960: 48 45 4E 20 36 30 30 0D 0A 36 31 30 20 49 46 20 HEN 600..610 IF
028970: 52 3C 3E 30 20 54 48 45 4E 20 36 33 30 0D 0A 36 R<>0 THEN 630..6
028980: 32 30 20 50 52 49 4E 54 20 22 49 20 4D 4F 56 45 20 PRINT "I MOVE
028990: 20 46 52 4F 4D 20 22 3B 53 54 52 24 28 49 4E 54 FROM ";STR$(INT
0289A0: 28 4D 28 58 2C 59 29 2F 31 30 29 29 3B 22 20 54 (M(X,Y)/10));" T
0289B0: 4F 20 22 3B 53 54 52 24 28 46 4E 4D 28 4D 28 58 O ";STR$(FNM(M(X
0289C0: 2C 59 29 29 29 0D 0A 36 32 32 20 53 28 49 4E 54 ,Y)))..622 S(INT
0289D0: 28 4D 28 58 2C 59 29 2F 31 30 29 29 3D 30 0D 0A (M(X,Y)/10))=0..
0289E0: 36 32 33 20 53 28 46 4E 4D 28 4D 28 58 2C 59 29 623 S(FNM(M(X,Y)
0289F0: 29 29 3D 2D 31 0D 0A 36 32 34 20 47 4F 54 4F 20 ))=-1..624 GOTO
028A00: 22 0D 0A 32 30 36 30 20 50 52 49 4E 54 20 22 53 "..2060 PRINT "S
028A10: 51 55 41 52 45 53 20 41 52 45 20 27 2E 27 2E 20 QUARES ARE '.'.
028A20: 20 54 4F 20 45 4E 54 45 52 20 41 20 4D 4F 56 45 TO ENTER A MOVE
028A30: 2C 20 54 59 50 45 20 54 48 45 20 4E 55 4D 42 45 , TYPE THE NUMBE
028A40: 52 20 4F 46 22 0D 0A 32 30 37 30 20 50 52 49 4E R OF"..2070 PRIN
028A50: 54 20 22 54 48 45 20 53 51 55 41 52 45 20 59 4F T "THE SQUARE YO
028A60: 55 20 41 52 45 20 4D 4F 56 49 4E 47 20 46 52 4F U ARE MOVING FRO
028A70: 4D 2C 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 54 M, FOLLOWED BY T
028A80: 48 45 20 4E 55 4D 42 45 52 22 0D 0A 32 30 38 30 HE NUMBER"..2080
028A90: 20 50 52 49 4E 54 20 22 4F 46 20 54 48 45 20 53 PRINT "OF THE S
028AA0: 51 55 41 52 45 20 59 4F 55 20 57 49 4C 4C 20 4D QUARE YOU WILL M
028AB0: 4F 56 45 20 54 4F 2E 20 20 54 48 45 20 4E 55 4D OVE TO. THE NUM
028AC0: 42 45 52 53 20 4D 55 53 54 20 42 45 22 0D 0A 32 BERS MUST BE"..2
028AD0: 30 39 30 20 50 52 49 4E 54 20 22 53 45 50 45 52 090 PRINT "SEPER
028AE0: 41 54 45 44 20 42 59 20 41 20 43 4F 4D 4D 41 2E ATED BY A COMMA.
028AF0: 22 3A 20 50 52 49 4E 54 0D 0A 32 31 30 30 20 50 ": PRINT..2100 P
028B00: 52 49 4E 54 20 22 54 48 45 20 43 4F 4D 50 55 54 RINT "THE COMPUT
028B10: 45 52 20 53 54 41 52 54 53 20 41 20 53 45 52 49 ER STARTS A SERI
028B20: 45 53 20 4F 46 20 47 41 4D 45 53 20 4B 4E 4F 57 ES OF GAMES KNOW
028B30: 49 4E 47 20 4F 4E 4C 59 20 57 48 45 4E 22 0D 0A ING ONLY WHEN"..
028B40: 32 31 30 35 20 50 52 49 4E 54 20 22 54 48 45 20 2105 PRINT "THE
028B50: 47 41 4D 45 20 49 53 20 57 4F 4E 20 28 41 20 44 GAME IS WON (A D
028B60: 52 41 57 20 49 53 20 49 4D 50 4F 53 53 49 42 4C RAW IS IMPOSSIBL
028B70: 45 29 20 41 4E 44 20 48 4F 57 20 54 4F 20 4D 4F E) AND HOW TO MO
028B80: 56 45 2E 22 0D 0A 32 31 31 30 20 50 52 49 4E 54 VE."..2110 PRINT
028B90: 20 22 49 54 20 48 41 53 20 4E 4F 20 53 54 52 41 "IT HAS NO STRA
028BA0: 54 45 47 59 20 41 54 20 46 49 52 53 54 20 41 4E TEGY AT FIRST AN
028BB0: 44 20 4A 55 53 54 20 4D 4F 56 45 53 20 52 41 4E D JUST MOVES RAN
028BC0: 44 4F 4D 4C 59 2E 22 0D 0A 32 31 32 30 20 50 52 DOMLY."..2120 PR
028BD0: 49 4E 54 20 22 48 4F 57 45 56 45 52 2C 20 49 54 INT "HOWEVER, IT
028BE0: 20 4C 45 41 52 4E 53 20 46 52 4F 4D 20 45 41 43 LEARNS FROM EAC
028BF0: 48 20 47 41 4D 45 2E 20 20 54 48 55 53 2C 20 57 H GAME. THUS, W
028C00: 36 34 30 0D 0A 36 33 30 20 50 52 49 4E 54 20 22 640..630 PRINT "
028C10: 49 20 4D 4F 56 45 20 46 52 4F 4D 20 22 3B 53 54 I MOVE FROM ";ST
028C20: 52 24 28 46 4E 52 28 49 4E 54 28 4D 28 58 2C 59 R$(FNR(INT(M(X,Y
028C30: 29 2F 31 30 29 29 29 3B 22 20 54 4F 20 22 3B 0D )/10)));" TO ";.
028C40: 0A 36 33 31 20 50 52 49 4E 54 20 53 54 52 24 28 .631 PRINT STR$(
028C50: 46 4E 52 28 46 4E 4D 28 4D 28 58 2C 59 29 29 29 FNR(FNM(M(X,Y)))
028C60: 29 0D 0A 36 33 32 20 53 28 46 4E 52 28 49 4E 54 )..632 S(FNR(INT
028C70: 28 4D 28 58 2C 59 29 2F 31 30 29 29 29 3D 30 0D (M(X,Y)/10)))=0.
028C80: 0A 36 33 33 20 53 28 46 4E 52 28 46 4E 4D 28 4D .633 S(FNR(FNM(M
028C90: 28 58 2C 59 29 29 29 29 3D 2D 31 0D 0A 36 34 30 (X,Y))))=-1..640
028CA0: 20 47 4F 53 55 42 20 31 30 30 30 0D 0A 36 34 31 GOSUB 1000..641
028CB0: 20 49 46 20 53 28 37 29 3D 2D 31 20 4F 52 20 53 IF S(7)=-1 OR S
028CC0: 28 38 29 3D 2D 31 20 4F 52 20 53 28 39 29 3D 2D (8)=-1 OR S(9)=-
028CD0: 31 20 54 48 45 4E 20 38 37 30 0D 0A 36 35 30 20 1 THEN 870..650
028CE0: 46 4F 52 20 49 3D 31 20 54 4F 20 39 0D 0A 36 36 FOR I=1 TO 9..66
028CF0: 30 20 49 46 20 53 28 49 29 3D 31 20 54 48 45 4E 0 IF S(I)=1 THEN
028D00: 20 36 39 30 0D 0A 36 37 30 20 4E 45 58 54 20 49 690..670 NEXT I
028D10: 0D 0A 36 38 30 20 47 4F 54 4F 20 38 37 30 0D 0A ..680 GOTO 870..
028D20: 36 39 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 39 690 FOR I=1 TO 9
028D30: 0D 0A 37 30 30 20 49 46 20 53 28 49 29 3C 3E 31 ..700 IF S(I)<>1
028D40: 20 54 48 45 4E 20 37 39 30 0D 0A 37 31 30 20 49 THEN 790..710 I
028D50: 46 20 53 28 49 2D 33 29 3D 30 20 54 48 45 4E 20 F S(I-3)=0 THEN
028D60: 31 32 30 0D 0A 37 32 30 20 49 46 20 46 4E 52 28 120..720 IF FNR(
028D70: 49 29 3D 49 20 54 48 45 4E 20 37 38 30 0D 0A 37 I)=I THEN 780..7
028D80: 33 30 20 49 46 20 49 3C 37 20 54 48 45 4E 20 37 30 IF I<7 THEN 7
028D90: 36 30 0D 0A 37 34 30 20 49 46 20 53 28 35 29 3D 60..740 IF S(5)=
028DA0: 2D 31 20 54 48 45 4E 20 31 32 30 0D 0A 37 35 30 -1 THEN 120..750
028DB0: 20 47 4F 54 4F 20 37 39 30 0D 0A 37 36 30 20 49 GOTO 790..760 I
028DC0: 46 20 53 28 32 29 3D 2D 31 20 54 48 45 4E 20 31 F S(2)=-1 THEN 1
028DD0: 32 30 0D 0A 37 37 30 20 47 4F 54 4F 20 37 39 30 20..770 GOTO 790
028DE0: 0D 0A 37 38 30 20 49 46 20 53 28 49 2D 32 29 3D ..780 IF S(I-2)=
028DF0: 2D 31 20 4F 52 20 53 28 49 2D 34 29 3D 2D 31 20 -1 OR S(I-4)=-1
028E00: 49 4E 4E 49 4E 47 20 42 45 43 4F 4D 45 53 22 0D INNING BECOMES".
028E10: 0A 32 31 33 30 20 50 52 49 4E 54 20 22 4D 4F 52 .2130 PRINT "MOR
028E20: 45 20 41 4E 44 20 4D 4F 52 45 20 44 49 46 46 49 E AND MORE DIFFI
028E30: 43 55 4C 54 2E 20 20 41 4C 53 4F 2C 20 54 4F 20 CULT. ALSO, TO
028E40: 48 45 4C 50 20 4F 46 46 53 45 54 20 59 4F 55 52 HELP OFFSET YOUR
028E50: 22 0D 0A 32 31 34 30 20 50 52 49 4E 54 20 22 49 "..2140 PRINT "I
028E60: 4E 49 54 49 41 4C 20 41 44 56 41 4E 54 41 47 45 NITIAL ADVANTAGE
028E70: 2C 20 59 4F 55 20 57 49 4C 4C 20 4E 4F 54 20 42 , YOU WILL NOT B
028E80: 45 20 54 4F 4C 44 20 48 4F 57 20 54 4F 20 57 49 E TOLD HOW TO WI
028E90: 4E 20 54 48 45 22 0D 0A 32 31 35 30 20 50 52 49 N THE"..2150 PRI
028EA0: 4E 54 20 22 47 41 4D 45 20 42 55 54 20 4D 55 53 NT "GAME BUT MUS
028EB0: 54 20 4C 45 41 52 4E 20 54 48 49 53 20 42 59 20 T LEARN THIS BY
028EC0: 50 4C 41 59 49 4E 47 2E 22 0D 0A 32 31 36 30 20 PLAYING."..2160
028ED0: 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 54 48 PRINT: PRINT "TH
028EE0: 45 20 4E 55 4D 42 45 52 49 4E 47 20 4F 46 20 54 E NUMBERING OF T
028EF0: 48 45 20 42 4F 41 52 44 20 49 53 20 41 53 20 46 HE BOARD IS AS F
028F00: 4F 4C 4C 4F 57 53 3A 22 0D 0A 32 31 37 30 20 50 OLLOWS:"..2170 P
028F10: 52 49 4E 54 20 54 41 42 28 31 30 29 3B 22 31 32 RINT TAB(10);"12
028F20: 33 22 3A 20 50 52 49 4E 54 20 54 41 42 28 31 30 3": PRINT TAB(10
028F30: 29 3B 22 34 35 36 22 3A 20 50 52 49 4E 54 20 54 );"456": PRINT T
028F40: 41 42 28 31 30 29 3B 22 37 38 39 22 0D 0A 32 31 AB(10);"789"..21
028F50: 38 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 80 PRINT: PRINT
028F60: 22 46 4F 52 20 45 58 41 4D 50 4C 45 2C 20 54 4F "FOR EXAMPLE, TO
028F70: 20 4D 4F 56 45 20 59 4F 55 52 20 52 49 47 48 54 MOVE YOUR RIGHT
028F80: 4D 4F 53 54 20 50 41 57 4E 20 46 4F 52 57 41 52 MOST PAWN FORWAR
028F90: 44 2C 22 0D 0A 32 31 39 30 20 50 52 49 4E 54 20 D,"..2190 PRINT
028FA0: 22 59 4F 55 20 57 4F 55 4C 44 20 54 59 50 45 20 "YOU WOULD TYPE
028FB0: 39 2C 36 20 49 4E 20 52 45 53 50 4F 4E 53 45 20 9,6 IN RESPONSE
028FC0: 54 4F 20 54 48 45 20 51 55 45 53 54 49 4F 4E 22 TO THE QUESTION"
028FD0: 0D 0A 32 32 30 30 20 50 52 49 4E 54 20 22 27 59 ..2200 PRINT "'Y
028FE0: 4F 55 52 20 4D 4F 56 45 20 3F 27 2E 20 20 53 49 OUR MOVE ?'. SI
028FF0: 4E 43 45 20 49 27 4D 20 41 20 47 4F 4F 44 20 53 NCE I'M A GOOD S
029000: 54 48 45 4E 20 31 32 30 0D 0A 37 39 30 20 4E 45 THEN 120..790 NE
029010: 58 54 20 49 0D 0A 38 30 30 20 50 52 49 4E 54 20 XT I..800 PRINT
029020: 22 59 4F 55 20 43 41 4E 27 54 20 4D 4F 56 45 2C "YOU CAN'T MOVE,
029030: 20 53 4F 20 22 3B 0D 0A 38 31 30 20 47 4F 54 4F SO ";..810 GOTO
029040: 20 38 37 30 0D 0A 38 32 30 20 50 52 49 4E 54 20 870..820 PRINT
029050: 22 59 4F 55 20 57 49 4E 2E 22 0D 0A 38 33 30 20 "YOU WIN."..830
029060: 4D 28 58 2C 59 29 3D 30 0D 0A 38 34 30 20 4C 3D M(X,Y)=0..840 L=
029070: 4C 2B 31 0D 0A 38 35 30 20 50 52 49 4E 54 20 22 L+1..850 PRINT "
029080: 49 20 48 41 56 45 20 57 4F 4E 22 3B 57 3B 22 41 I HAVE WON";W;"A
029090: 4E 44 20 59 4F 55 22 3B 4C 3B 22 4F 55 54 20 4F ND YOU";L;"OUT O
0290A0: 46 22 3B 4C 2B 57 3B 22 47 41 4D 45 53 2E 22 0D F";L+W;"GAMES.".
0290B0: 0A 38 35 31 20 50 52 49 4E 54 0D 0A 38 36 30 20 .851 PRINT..860
0290C0: 47 4F 54 4F 20 31 30 30 0D 0A 38 37 30 20 50 52 GOTO 100..870 PR
0290D0: 49 4E 54 20 22 49 20 57 49 4E 2E 22 0D 0A 38 38 INT "I WIN."..88
0290E0: 30 20 57 3D 57 2B 31 0D 0A 38 39 30 20 47 4F 54 0 W=W+1..890 GOT
0290F0: 4F 20 38 35 30 0D 0A 39 30 30 20 44 41 54 41 20 O 850..900 DATA
029100: 2D 31 2C 2D 31 2C 2D 31 2C 31 2C 30 2C 30 2C 30 -1,-1,-1,1,0,0,0
029110: 2C 31 2C 31 2C 2D 31 2C 2D 31 2C 2D 31 2C 30 2C ,1,1,-1,-1,-1,0,
029120: 31 2C 30 2C 31 2C 30 2C 31 0D 0A 39 30 35 20 44 1,0,1,0,1..905 D
029130: 41 54 41 20 2D 31 2C 30 2C 2D 31 2C 2D 31 2C 31 ATA -1,0,-1,-1,1
029140: 2C 30 2C 30 2C 30 2C 31 2C 30 2C 2D 31 2C 2D 31 ,0,0,0,1,0,-1,-1
029150: 2C 31 2C 2D 31 2C 30 2C 30 2C 30 2C 31 0D 0A 39 ,1,-1,0,0,0,1..9
029160: 31 30 20 44 41 54 41 20 2D 31 2C 30 2C 2D 31 2C 10 DATA -1,0,-1,
029170: 31 2C 31 2C 30 2C 30 2C 31 2C 30 2C 2D 31 2C 2D 1,1,0,0,1,0,-1,-
029180: 31 2C 30 2C 31 2C 30 2C 31 2C 30 2C 30 2C 31 0D 1,0,1,0,1,0,0,1.
029190: 0A 39 31 35 20 44 41 54 41 20 30 2C 2D 31 2C 2D .915 DATA 0,-1,-
0291A0: 31 2C 30 2C 2D 31 2C 31 2C 31 2C 30 2C 30 2C 30 1,0,-1,1,1,0,0,0
0291B0: 2C 2D 31 2C 2D 31 2C 2D 31 2C 31 2C 31 2C 31 2C ,-1,-1,-1,1,1,1,
0291C0: 30 2C 30 0D 0A 39 32 30 20 44 41 54 41 20 2D 31 0,0..920 DATA -1
0291D0: 2C 30 2C 2D 31 2C 2D 31 2C 30 2C 31 2C 30 2C 31 ,0,-1,-1,0,1,0,1
0291E0: 2C 30 2C 30 2C 2D 31 2C 2D 31 2C 30 2C 31 2C 30 ,0,0,-1,-1,0,1,0
0291F0: 2C 30 2C 30 2C 31 0D 0A 39 32 35 20 44 41 54 41 ,0,0,1..925 DATA
029200: 50 4F 52 54 2C 20 59 4F 55 27 4C 4C 20 41 4C 57 PORT, YOU'LL ALW
029210: 41 59 53 22 0D 0A 32 32 31 30 20 50 52 49 4E 54 AYS"..2210 PRINT
029220: 20 22 47 4F 20 46 49 52 53 54 2E 22 3A 20 50 52 "GO FIRST.": PR
029230: 49 4E 54 0D 0A 32 32 32 30 20 47 4F 54 4F 20 31 INT..2220 GOTO 1
029240: 30 30 0D 0A 39 39 39 39 20 45 4E 44 0D 0A 1A E5 00..9999 END....
029250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0292F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0293F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
029400: 20 30 2C 2D 31 2C 2D 31 2C 30 2C 31 2C 30 2C 31 0,-1,-1,0,1,0,1
029410: 2C 30 2C 30 2C 2D 31 2C 30 2C 2D 31 2C 31 2C 30 ,0,0,-1,0,-1,1,0
029420: 2C 30 2C 30 2C 30 2C 31 0D 0A 39 33 30 20 44 41 ,0,0,0,1..930 DA
029430: 54 41 20 30 2C 30 2C 2D 31 2C 2D 31 2C 2D 31 2C TA 0,0,-1,-1,-1,
029440: 31 2C 30 2C 30 2C 30 2C 2D 31 2C 30 2C 30 2C 31 1,0,0,0,-1,0,0,1
029450: 2C 31 2C 31 2C 30 2C 30 2C 30 0D 0A 39 33 35 20 ,1,1,0,0,0..935
029460: 44 41 54 41 20 30 2C 2D 31 2C 30 2C 2D 31 2C 31 DATA 0,-1,0,-1,1
029470: 2C 31 2C 30 2C 30 2C 30 2C 2D 31 2C 30 2C 30 2C ,1,0,0,0,-1,0,0,
029480: 2D 31 2C 2D 31 2C 31 2C 30 2C 30 2C 30 0D 0A 39 -1,-1,1,0,0,0..9
029490: 34 30 20 44 41 54 41 20 30 2C 30 2C 2D 31 2C 2D 40 DATA 0,0,-1,-
0294A0: 31 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 2C 2D 31 1,1,0,0,0,0,0,-1
0294B0: 2C 30 2C 31 2C 2D 31 2C 30 2C 30 2C 30 2C 30 0D ,0,1,-1,0,0,0,0.
0294C0: 0A 39 34 35 20 44 41 54 41 20 2D 31 2C 30 2C 30 .945 DATA -1,0,0
0294D0: 2C 2D 31 2C 31 2C 30 2C 30 2C 30 2C 30 0D 0A 39 ,-1,1,0,0,0,0..9
0294E0: 35 30 20 44 41 54 41 20 32 34 2C 32 35 2C 33 36 50 DATA 24,25,36
0294F0: 2C 30 2C 31 34 2C 31 35 2C 33 36 2C 30 2C 31 35 ,0,14,15,36,0,15
029500: 2C 33 35 2C 33 36 2C 34 37 2C 33 36 2C 35 38 2C ,35,36,47,36,58,
029510: 35 39 2C 30 0D 0A 39 35 35 20 44 41 54 41 20 31 59,0..955 DATA 1
029520: 35 2C 33 35 2C 33 36 2C 30 2C 32 34 2C 32 35 2C 5,35,36,0,24,25,
029530: 32 36 2C 30 2C 32 36 2C 35 37 2C 35 38 2C 30 0D 26,0,26,57,58,0.
029540: 0A 39 36 30 20 44 41 54 41 20 32 36 2C 33 35 2C .960 DATA 26,35,
029550: 30 2C 30 2C 34 37 2C 34 38 2C 30 2C 30 2C 33 35 0,0,47,48,0,0,35
029560: 2C 33 36 2C 30 2C 30 2C 33 35 2C 33 36 2C 30 2C ,36,0,0,35,36,0,
029570: 30 0D 0A 39 36 35 20 44 41 54 41 20 33 36 2C 30 0..965 DATA 36,0
029580: 2C 30 2C 30 2C 34 37 2C 35 38 2C 30 2C 30 2C 31 ,0,0,47,58,0,0,1
029590: 35 2C 30 2C 30 2C 30 0D 0A 39 37 30 20 44 41 54 5,0,0,0..970 DAT
0295A0: 41 20 32 36 2C 34 37 2C 30 2C 30 2C 34 37 2C 35 A 26,47,0,0,47,5
0295B0: 38 2C 30 2C 30 2C 33 35 2C 33 36 2C 34 37 2C 30 8,0,0,35,36,47,0
0295C0: 2C 32 38 2C 35 38 2C 30 2C 30 2C 31 35 2C 34 37 ,28,58,0,0,15,47
0295D0: 2C 30 2C 30 0D 0A 31 30 30 30 20 50 52 49 4E 54 ,0,0..1000 PRINT
0295E0: 0D 0A 31 30 31 30 20 46 4F 52 20 49 3D 31 20 54 ..1010 FOR I=1 T
0295F0: 4F 20 33 0D 0A 31 30 32 30 20 46 4F 52 20 4A 3D O 3..1020 FOR J=
029600: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
029610: 22 48 2D 49 2D 51 22 0D 0A 32 20 50 52 49 4E 54 "H-I-Q"..2 PRINT
029620: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
029630: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
029640: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
029650: 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A 50 RSEY"..3 PRINT:P
029660: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 44 49 RINT:PRINT..4 DI
029670: 4D 20 42 28 37 30 29 2C 54 28 39 2C 39 29 0D 0A M B(70),T(9,9)..
029680: 35 20 50 52 49 4E 54 20 22 48 45 52 45 20 49 53 5 PRINT "HERE IS
029690: 20 54 48 45 20 42 4F 41 52 44 3A 22 3A 20 50 52 THE BOARD:": PR
0296A0: 49 4E 54 0D 0A 36 20 50 52 49 4E 54 20 22 20 20 INT..6 PRINT "
0296B0: 20 20 20 20 20 20 20 20 21 20 20 20 20 21 20 20 ! !
0296C0: 20 20 21 22 0D 0A 37 20 50 52 49 4E 54 20 22 20 !"..7 PRINT "
0296D0: 20 20 20 20 20 20 20 20 31 33 20 20 20 31 34 20 13 14
0296E0: 20 20 31 35 22 3A 20 50 52 49 4E 54 0D 0A 38 20 15": PRINT..8
0296F0: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 PRINT "
029700: 20 21 20 20 20 20 21 20 20 20 20 21 22 0D 0A 39 ! ! !"..9
029710: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
029720: 20 32 32 20 20 20 32 33 20 20 20 32 34 22 3A 20 22 23 24":
029730: 50 52 49 4E 54 0D 0A 31 30 20 50 52 49 4E 54 20 PRINT..10 PRINT
029740: 22 21 20 20 20 20 21 20 20 20 20 21 20 20 20 20 "! ! !
029750: 21 20 20 20 20 21 20 20 20 20 21 20 20 20 20 21 ! ! ! !
029760: 22 0D 0A 31 31 20 50 52 49 4E 54 20 22 32 39 20 "..11 PRINT "29
029770: 20 20 33 30 20 20 20 33 31 20 20 20 33 32 20 20 30 31 32
029780: 20 33 33 20 20 20 33 34 20 20 20 33 35 22 3A 20 33 34 35":
029790: 50 52 49 4E 54 0D 0A 31 32 20 50 52 49 4E 54 20 PRINT..12 PRINT
0297A0: 22 21 20 20 20 20 21 20 20 20 20 21 20 20 20 20 "! ! !
0297B0: 21 20 20 20 20 21 20 20 20 20 21 20 20 20 20 21 ! ! ! !
0297C0: 22 0D 0A 31 33 20 50 52 49 4E 54 20 22 33 38 20 "..13 PRINT "38
0297D0: 20 20 33 39 20 20 20 34 30 20 20 20 34 31 20 20 39 40 41
0297E0: 20 34 32 20 20 20 34 33 20 20 20 34 34 22 3A 20 42 43 44":
0297F0: 50 52 49 4E 54 0D 0A 31 34 20 50 52 49 4E 54 20 PRINT..14 PRINT
029800: 31 20 54 4F 20 33 0D 0A 31 30 33 30 20 50 52 49 1 TO 3..1030 PRI
029810: 4E 54 20 54 41 42 28 31 30 29 3B 4D 49 44 24 28 NT TAB(10);MID$(
029820: 50 24 2C 53 28 28 49 2D 31 29 2A 33 2B 4A 29 2B P$,S((I-1)*3+J)+
029830: 32 2C 31 29 3B 0D 0A 31 30 34 30 20 4E 45 58 54 2,1);..1040 NEXT
029840: 20 4A 0D 0A 31 30 35 30 20 50 52 49 4E 54 0D 0A J..1050 PRINT..
029850: 31 30 36 30 20 4E 45 58 54 20 49 0D 0A 31 30 37 1060 NEXT I..107
029860: 30 20 50 52 49 4E 54 0D 0A 31 30 38 30 20 52 45 0 PRINT..1080 RE
029870: 54 55 52 4E 0D 0A 32 30 30 30 20 50 52 49 4E 54 TURN..2000 PRINT
029880: 3A 20 50 52 49 4E 54 20 22 54 48 49 53 20 50 52 : PRINT "THIS PR
029890: 4F 47 52 41 4D 20 50 4C 41 59 53 20 54 48 45 20 OGRAM PLAYS THE
0298A0: 47 41 4D 45 20 4F 46 20 48 45 58 41 50 41 57 4E GAME OF HEXAPAWN
0298B0: 2E 22 0D 0A 32 30 31 30 20 50 52 49 4E 54 20 22 ."..2010 PRINT "
0298C0: 48 45 58 41 50 41 57 4E 20 49 53 20 50 4C 41 59 HEXAPAWN IS PLAY
0298D0: 45 44 20 57 49 54 48 20 43 48 45 53 53 20 50 41 ED WITH CHESS PA
0298E0: 57 4E 53 20 4F 4E 20 41 20 33 20 42 59 20 33 20 WNS ON A 3 BY 3
0298F0: 42 4F 41 52 44 2E 22 0D 0A 32 30 32 30 20 50 52 BOARD."..2020 PR
029900: 49 4E 54 20 22 54 48 45 20 50 41 57 4E 53 20 41 INT "THE PAWNS A
029910: 52 45 20 4D 4F 56 45 44 20 41 53 20 49 4E 20 43 RE MOVED AS IN C
029920: 48 45 53 53 20 2D 20 4F 4E 45 20 53 50 41 43 45 HESS - ONE SPACE
029930: 20 46 4F 52 57 41 52 44 20 54 4F 22 0D 0A 32 30 FORWARD TO"..20
029940: 33 30 20 50 52 49 4E 54 20 22 41 4E 20 45 4D 50 30 PRINT "AN EMP
029950: 54 59 20 53 50 41 43 45 20 4F 52 20 4F 4E 45 20 TY SPACE OR ONE
029960: 53 50 41 43 45 20 46 4F 52 57 41 52 44 20 41 4E SPACE FORWARD AN
029970: 44 20 44 49 41 47 4F 4E 41 4C 4C 59 20 54 4F 22 D DIAGONALLY TO"
029980: 0D 0A 32 30 34 30 20 50 52 49 4E 54 20 22 43 41 ..2040 PRINT "CA
029990: 50 54 55 52 45 20 41 4E 20 4F 50 50 4F 53 49 4E PTURE AN OPPOSIN
0299A0: 47 20 4D 41 4E 2E 20 20 4F 4E 20 54 48 45 20 42 G MAN. ON THE B
0299B0: 4F 41 52 44 2C 20 59 4F 55 52 20 50 41 57 4E 53 OARD, YOUR PAWNS
0299C0: 22 0D 0A 32 30 35 30 20 50 52 49 4E 54 20 22 41 "..2050 PRINT "A
0299D0: 52 45 20 27 4F 27 2C 20 54 48 45 20 43 4F 4D 50 RE 'O', THE COMP
0299E0: 55 54 45 52 27 53 20 50 41 57 4E 53 20 41 52 45 UTER'S PAWNS ARE
0299F0: 20 27 58 27 2C 20 41 4E 44 20 45 4D 50 54 59 20 'X', AND EMPTY
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 00 00 02 09 52 E5 23 00 C1 02 00 00 00 02 #.....R.#.......
029A20: 23 00 C6 02 00 00 00 02 23 00 C2 02 00 00 00 02 #.......#.......
029A30: 23 00 C7 02 00 00 00 02 23 00 C3 02 00 00 00 02 #.......#.......
029A40: 23 00 C8 02 00 00 00 02 23 00 C4 02 00 00 00 02 #.......#.......
029A50: 23 00 C9 02 00 00 00 02 23 00 C5 02 00 00 00 02 #.......#.......
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: 22 21 20 20 20 20 21 20 20 20 20 21 20 20 20 20 "! ! !
029B10: 21 20 20 20 20 21 20 20 20 20 21 20 20 20 20 21 ! ! ! !
029B20: 22 0D 0A 31 35 20 50 52 49 4E 54 20 22 34 37 20 "..15 PRINT "47
029B30: 20 20 34 38 20 20 20 34 39 20 20 20 35 30 20 20 48 49 50
029B40: 20 35 31 20 20 20 35 32 20 20 20 35 33 22 3A 20 51 52 53":
029B50: 50 52 49 4E 54 0D 0A 31 36 20 50 52 49 4E 54 20 PRINT..16 PRINT
029B60: 22 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 " !
029B70: 21 20 20 20 20 21 22 0D 0A 31 37 20 50 52 49 4E ! !"..17 PRIN
029B80: 54 20 22 20 20 20 20 20 20 20 20 20 35 38 20 20 T " 58
029B90: 20 35 39 20 20 20 36 30 22 3A 20 50 52 49 4E 54 59 60": PRINT
029BA0: 0D 0A 31 38 20 50 52 49 4E 54 20 22 20 20 20 20 ..18 PRINT "
029BB0: 20 20 20 20 20 20 21 20 20 20 20 21 20 20 20 20 ! !
029BC0: 21 22 0D 0A 31 39 20 50 52 49 4E 54 20 22 20 20 !"..19 PRINT "
029BD0: 20 20 20 20 20 20 20 36 37 20 20 20 36 38 20 20 67 68
029BE0: 20 36 39 22 3A 20 50 52 49 4E 54 0D 0A 32 30 20 69": PRINT..20
029BF0: 50 52 49 4E 54 20 22 54 4F 20 53 41 56 45 20 54 PRINT "TO SAVE T
029C00: 59 50 49 4E 47 20 54 49 4D 45 2C 20 41 20 43 4F YPING TIME, A CO
029C10: 4D 50 52 45 53 53 45 44 20 56 45 52 53 49 4F 4E MPRESSED VERSION
029C20: 20 4F 46 20 54 48 45 20 47 41 4D 45 20 42 4F 41 OF THE GAME BOA
029C30: 52 44 22 0D 0A 32 32 20 50 52 49 4E 54 20 22 57 RD"..22 PRINT "W
029C40: 49 4C 4C 20 42 45 20 55 53 45 44 20 44 55 52 49 ILL BE USED DURI
029C50: 4E 47 20 50 4C 41 59 2E 20 20 52 45 46 45 52 20 NG PLAY. REFER
029C60: 54 4F 20 54 48 45 20 41 42 4F 56 45 20 4F 4E 45 TO THE ABOVE ONE
029C70: 20 46 4F 52 20 50 45 47 22 0D 0A 32 34 20 50 52 FOR PEG"..24 PR
029C80: 49 4E 54 20 22 4E 55 4D 42 45 52 53 2E 20 20 4F INT "NUMBERS. O
029C90: 4B 2C 20 4C 45 54 27 53 20 42 45 47 49 4E 2E 22 K, LET'S BEGIN."
029CA0: 0D 0A 32 38 20 52 45 4D 20 2A 2A 2A 20 53 45 54 ..28 REM *** SET
029CB0: 20 55 50 20 42 4F 41 52 44 0D 0A 32 39 20 46 4F UP BOARD..29 FO
029CC0: 52 20 52 3D 31 20 54 4F 20 39 0D 0A 33 30 20 46 R R=1 TO 9..30 F
029CD0: 4F 52 20 43 3D 31 20 54 4F 20 39 0D 0A 33 31 20 OR C=1 TO 9..31
029CE0: 49 46 20 28 52 2D 34 29 2A 28 52 2D 35 29 2A 28 IF (R-4)*(R-5)*(
029CF0: 52 2D 36 29 3D 30 20 54 48 45 4E 20 34 30 0D 0A R-6)=0 THEN 40..
029D00: 31 20 54 4F 20 52 2B 31 0D 0A 31 35 37 31 20 54 1 TO R+1..1571 T
029D10: 3D 54 2B 54 28 59 2C 58 29 0D 0A 31 35 37 32 20 =T+T(Y,X)..1572
029D20: 4E 45 58 54 20 59 0D 0A 31 35 37 33 20 49 46 20 NEXT Y..1573 IF
029D30: 54 3C 3E 31 30 20 54 48 45 4E 20 31 35 37 35 0D T<>10 THEN 1575.
029D40: 0A 31 35 37 34 20 49 46 20 54 28 52 2C 58 29 3C .1574 IF T(R,X)<
029D50: 3E 30 20 54 48 45 4E 20 31 36 33 30 0D 0A 31 35 >0 THEN 1630..15
029D60: 37 35 20 4E 45 58 54 20 58 0D 0A 31 35 38 30 20 75 NEXT X..1580
029D70: 4E 45 58 54 20 43 0D 0A 31 35 39 30 20 4E 45 58 NEXT C..1590 NEX
029D80: 54 20 52 0D 0A 31 36 30 30 20 52 45 4D 20 2A 2A T R..1600 REM **
029D90: 2A 20 47 41 4D 45 20 49 53 20 4F 56 45 52 0D 0A * GAME IS OVER..
029DA0: 31 36 30 35 20 50 52 49 4E 54 20 22 54 48 45 20 1605 PRINT "THE
029DB0: 47 41 4D 45 20 49 53 20 4F 56 45 52 2E 22 0D 0A GAME IS OVER."..
029DC0: 31 36 31 30 20 50 52 49 4E 54 20 22 59 4F 55 20 1610 PRINT "YOU
029DD0: 48 41 44 22 3B 46 3B 22 50 49 45 43 45 53 20 52 HAD";F;"PIECES R
029DE0: 45 4D 41 49 4E 49 4E 47 2E 22 0D 0A 31 36 31 31 EMAINING."..1611
029DF0: 20 49 46 20 46 3C 3E 31 20 54 48 45 4E 20 31 36 IF F<>1 THEN 16
029E00: 31 35 0D 0A 31 36 31 32 20 50 52 49 4E 54 20 22 15..1612 PRINT "
029E10: 42 52 41 56 4F 21 20 20 59 4F 55 20 4D 41 44 45 BRAVO! YOU MADE
029E20: 20 41 20 50 45 52 46 45 43 54 20 53 43 4F 52 45 A PERFECT SCORE
029E30: 21 22 0D 0A 31 36 31 33 20 50 52 49 4E 54 20 22 !"..1613 PRINT "
029E40: 53 41 56 45 20 54 48 49 53 20 50 41 50 45 52 20 SAVE THIS PAPER
029E50: 41 53 20 41 20 52 45 43 4F 52 44 20 4F 46 20 59 AS A RECORD OF Y
029E60: 4F 55 52 20 41 43 43 4F 4D 50 4C 49 53 48 4D 45 OUR ACCOMPLISHME
029E70: 4E 54 21 22 0D 0A 31 36 31 35 20 50 52 49 4E 54 NT!"..1615 PRINT
029E80: 3A 20 49 4E 50 55 54 20 22 50 4C 41 59 20 41 47 : INPUT "PLAY AG
029E90: 41 49 4E 20 28 59 45 53 20 4F 52 20 4E 4F 29 22 AIN (YES OR NO)"
029EA0: 3B 41 24 0D 0A 31 36 31 37 20 49 46 20 41 24 3D ;A$..1617 IF A$=
029EB0: 22 4E 4F 22 20 54 48 45 4E 20 32 30 30 30 0D 0A "NO" THEN 2000..
029EC0: 31 36 31 38 20 52 45 53 54 4F 52 45 3A 20 47 4F 1618 RESTORE: GO
029ED0: 54 4F 20 32 38 0D 0A 31 36 32 30 20 53 54 4F 50 TO 28..1620 STOP
029EE0: 0D 0A 31 36 33 30 20 52 45 54 55 52 4E 0D 0A 32 ..1630 RETURN..2
029EF0: 30 30 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 000 PRINT: PRINT
029F00: 33 32 20 49 46 20 28 43 2D 34 29 2A 28 43 2D 35 32 IF (C-4)*(C-5
029F10: 29 2A 28 43 2D 36 29 3D 30 20 54 48 45 4E 20 34 )*(C-6)=0 THEN 4
029F20: 30 0D 0A 33 35 20 54 28 52 2C 43 29 3D 2D 35 0D 0..35 T(R,C)=-5.
029F30: 0A 33 36 20 47 4F 54 4F 20 35 30 0D 0A 34 30 20 .36 GOTO 50..40
029F40: 49 46 20 28 52 2D 31 29 2A 28 43 2D 31 29 2A 28 IF (R-1)*(C-1)*(
029F50: 52 2D 39 29 2A 28 43 2D 39 29 3D 30 20 54 48 45 R-9)*(C-9)=0 THE
029F60: 4E 20 33 35 0D 0A 34 32 20 54 28 52 2C 43 29 3D N 35..42 T(R,C)=
029F70: 35 0D 0A 35 30 20 4E 45 58 54 20 43 0D 0A 36 30 5..50 NEXT C..60
029F80: 20 4E 45 58 54 20 52 0D 0A 36 35 20 54 28 35 2C NEXT R..65 T(5,
029F90: 35 29 3D 30 3A 20 47 4F 53 55 42 20 35 30 30 0D 5)=0: GOSUB 500.
029FA0: 0A 37 30 20 52 45 4D 20 2A 2A 2A 20 49 4E 50 55 .70 REM *** INPU
029FB0: 54 20 4D 4F 56 45 20 41 4E 44 20 43 48 45 43 4B T MOVE AND CHECK
029FC0: 20 4F 4E 20 4C 45 47 41 4C 49 54 59 0D 0A 37 35 ON LEGALITY..75
029FD0: 20 46 4F 52 20 57 3D 31 20 54 4F 20 33 33 0D 0A FOR W=1 TO 33..
029FE0: 37 37 20 52 45 41 44 20 4D 0D 0A 37 39 20 44 41 77 READ M..79 DA
029FF0: 54 41 20 31 33 2C 31 34 2C 31 35 2C 32 32 2C 32 TA 13,14,15,22,2
02A000: 33 2C 32 34 2C 32 39 2C 33 30 2C 33 31 2C 33 32 3,24,29,30,31,32
02A010: 2C 33 33 2C 33 34 2C 33 35 2C 33 38 2C 33 39 2C ,33,34,35,38,39,
02A020: 34 30 2C 34 31 0D 0A 38 31 20 44 41 54 41 20 34 40,41..81 DATA 4
02A030: 32 2C 34 33 2C 34 34 2C 34 37 2C 34 38 2C 34 39 2,43,44,47,48,49
02A040: 2C 35 30 2C 35 31 2C 35 32 2C 35 33 2C 35 38 2C ,50,51,52,53,58,
02A050: 35 39 2C 36 30 2C 36 37 2C 36 38 2C 36 39 0D 0A 59,60,67,68,69..
02A060: 38 33 20 42 28 4D 29 3D 2D 37 3A 20 4E 45 58 54 83 B(M)=-7: NEXT
02A070: 20 57 0D 0A 38 36 20 42 28 34 31 29 3D 2D 33 0D W..86 B(41)=-3.
02A080: 0A 31 30 30 20 49 4E 50 55 54 20 22 4D 4F 56 45 .100 INPUT "MOVE
02A090: 20 57 48 49 43 48 20 50 49 45 43 45 22 3B 5A 0D WHICH PIECE";Z.
02A0A0: 0A 31 31 30 20 49 46 20 42 28 5A 29 3D 2D 37 20 .110 IF B(Z)=-7
02A0B0: 54 48 45 4E 20 31 34 30 0D 0A 31 32 30 20 50 52 THEN 140..120 PR
02A0C0: 49 4E 54 20 22 49 4C 4C 45 47 41 4C 20 4D 4F 56 INT "ILLEGAL MOV
02A0D0: 45 2C 20 54 52 59 20 41 47 41 49 4E 2E 2E 2E 22 E, TRY AGAIN..."
02A0E0: 3A 20 47 4F 54 4F 20 31 30 30 0D 0A 31 34 30 20 : GOTO 100..140
02A0F0: 49 4E 50 55 54 20 22 54 4F 20 57 48 45 52 45 22 INPUT "TO WHERE"
02A100: 20 22 53 4F 20 4C 4F 4E 47 20 46 4F 52 20 4E 4F "SO LONG FOR NO
02A110: 57 2E 22 3A 20 50 52 49 4E 54 0D 0A 32 30 31 30 W.": PRINT..2010
02A120: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
02A130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A1F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02A300: 3B 50 0D 0A 31 35 30 20 49 46 20 42 28 50 29 3D ;P..150 IF B(P)=
02A310: 30 20 54 48 45 4E 20 31 32 30 0D 0A 31 35 33 20 0 THEN 120..153
02A320: 49 46 20 42 28 50 29 3D 2D 37 20 54 48 45 4E 20 IF B(P)=-7 THEN
02A330: 31 32 30 0D 0A 31 35 36 20 49 46 20 5A 3D 50 20 120..156 IF Z=P
02A340: 54 48 45 4E 20 31 30 30 0D 0A 31 36 30 20 49 46 THEN 100..160 IF
02A350: 20 28 28 5A 2B 50 29 2F 32 29 3D 49 4E 54 28 28 ((Z+P)/2)=INT((
02A360: 5A 2B 50 29 2F 32 29 20 54 48 45 4E 20 31 38 30 Z+P)/2) THEN 180
02A370: 0D 0A 31 37 30 20 47 4F 54 4F 20 31 32 30 0D 0A ..170 GOTO 120..
02A380: 31 38 30 20 49 46 20 28 41 42 53 28 5A 2D 50 29 180 IF (ABS(Z-P)
02A390: 2D 32 29 2A 28 41 42 53 28 5A 2D 50 29 2D 31 38 -2)*(ABS(Z-P)-18
02A3A0: 29 3C 3E 30 20 54 48 45 4E 20 31 32 30 0D 0A 31 )<>0 THEN 120..1
02A3B0: 39 30 20 47 4F 53 55 42 20 31 30 30 30 0D 0A 32 90 GOSUB 1000..2
02A3C0: 30 30 20 47 4F 53 55 42 20 35 30 30 0D 0A 32 31 00 GOSUB 500..21
02A3D0: 30 20 47 4F 53 55 42 20 31 35 30 30 0D 0A 32 32 0 GOSUB 1500..22
02A3E0: 30 20 47 4F 54 4F 20 31 30 30 0D 0A 35 30 30 20 0 GOTO 100..500
02A3F0: 52 45 4D 20 2A 2A 2A 20 50 52 49 4E 54 20 42 4F REM *** PRINT BO
02A400: 41 52 44 0D 0A 35 31 30 20 46 4F 52 20 58 3D 31 ARD..510 FOR X=1
02A410: 20 54 4F 20 39 0D 0A 35 32 30 20 46 4F 52 20 59 TO 9..520 FOR Y
02A420: 3D 31 20 54 4F 20 39 0D 0A 35 32 35 20 49 46 20 =1 TO 9..525 IF
02A430: 28 58 2D 31 29 2A 28 58 2D 39 29 2A 28 59 2D 31 (X-1)*(X-9)*(Y-1
02A440: 29 2A 28 59 2D 39 29 3D 30 20 54 48 45 4E 20 35 )*(Y-9)=0 THEN 5
02A450: 35 30 0D 0A 35 33 30 20 49 46 20 28 58 2D 34 29 50..530 IF (X-4)
02A460: 2A 28 58 2D 35 29 2A 28 58 2D 36 29 3D 30 20 54 *(X-5)*(X-6)=0 T
02A470: 48 45 4E 20 35 37 30 0D 0A 35 34 30 20 49 46 20 HEN 570..540 IF
02A480: 28 59 2D 34 29 2A 28 59 2D 35 29 2A 28 59 2D 36 (Y-4)*(Y-5)*(Y-6
02A490: 29 3D 30 20 54 48 45 4E 20 35 37 30 0D 0A 35 35 )=0 THEN 570..55
02A4A0: 30 20 52 45 4D 0D 0A 35 36 30 20 47 4F 54 4F 20 0 REM..560 GOTO
02A4B0: 36 31 30 0D 0A 35 37 30 20 49 46 20 54 28 58 2C 610..570 IF T(X,
02A4C0: 59 29 3C 3E 35 20 54 48 45 4E 20 36 30 30 0D 0A Y)<>5 THEN 600..
02A4D0: 35 38 30 20 50 52 49 4E 54 20 54 41 42 28 59 2A 580 PRINT TAB(Y*
02A4E0: 32 29 3B 22 21 22 3B 0D 0A 35 39 30 20 47 4F 54 2);"!";..590 GOT
02A4F0: 4F 20 36 31 30 0D 0A 36 30 30 20 50 52 49 4E 54 O 610..600 PRINT
02A500: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 10 PRINT TAB(34)
02A510: 3B 22 48 49 20 4C 4F 22 0D 0A 32 30 20 50 52 49 ;"HI LO"..20 PRI
02A520: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
02A530: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
02A540: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
02A550: 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E JERSEY"..30 PRIN
02A560: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 T:PRINT:PRINT..1
02A570: 30 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 49 00 PRINT "THIS I
02A580: 53 20 54 48 45 20 47 41 4D 45 20 4F 46 20 48 49 S THE GAME OF HI
02A590: 20 4C 4F 2E 22 3A 50 52 49 4E 54 0D 0A 31 31 30 LO.":PRINT..110
02A5A0: 20 50 52 49 4E 54 20 22 59 4F 55 20 57 49 4C 4C PRINT "YOU WILL
02A5B0: 20 48 41 56 45 20 36 20 54 52 49 45 53 20 54 4F HAVE 6 TRIES TO
02A5C0: 20 47 55 45 53 53 20 54 48 45 20 41 4D 4F 55 4E GUESS THE AMOUN
02A5D0: 54 20 4F 46 20 4D 4F 4E 45 59 20 49 4E 20 54 48 T OF MONEY IN TH
02A5E0: 45 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 48 E"..120 PRINT "H
02A5F0: 49 20 4C 4F 20 4A 41 43 4B 50 4F 54 2C 20 57 48 I LO JACKPOT, WH
02A600: 49 43 48 20 49 53 20 42 45 54 57 45 45 4E 20 31 ICH IS BETWEEN 1
02A610: 20 41 4E 44 20 31 30 30 20 44 4F 4C 4C 41 52 53 AND 100 DOLLARS
02A620: 2E 20 20 49 46 20 59 4F 55 22 0D 0A 31 33 30 20 . IF YOU"..130
02A630: 50 52 49 4E 54 20 22 47 55 45 53 53 20 54 48 45 PRINT "GUESS THE
02A640: 20 41 4D 4F 55 4E 54 2C 20 59 4F 55 20 57 49 4E AMOUNT, YOU WIN
02A650: 20 41 4C 4C 20 54 48 45 20 4D 4F 4E 45 59 20 49 ALL THE MONEY I
02A660: 4E 20 54 48 45 20 4A 41 43 4B 50 4F 54 21 22 0D N THE JACKPOT!".
02A670: 0A 31 34 30 20 50 52 49 4E 54 20 22 54 48 45 4E .140 PRINT "THEN
02A680: 20 59 4F 55 20 47 45 54 20 41 4E 4F 54 48 45 52 YOU GET ANOTHER
02A690: 20 43 48 41 4E 43 45 20 54 4F 20 57 49 4E 20 4D CHANCE TO WIN M
02A6A0: 4F 52 45 20 4D 4F 4E 45 59 2E 20 20 48 4F 57 45 ORE MONEY. HOWE
02A6B0: 56 45 52 2C 22 0D 0A 31 35 30 20 50 52 49 4E 54 VER,"..150 PRINT
02A6C0: 20 22 49 46 20 59 4F 55 20 44 4F 20 4E 4F 54 20 "IF YOU DO NOT
02A6D0: 47 55 45 53 53 20 54 48 45 20 41 4D 4F 55 4E 54 GUESS THE AMOUNT
02A6E0: 2C 20 54 48 45 20 47 41 4D 45 20 45 4E 44 53 2E , THE GAME ENDS.
02A6F0: 22 3A 50 52 49 4E 54 0D 0A 31 36 30 20 52 3D 30 ":PRINT..160 R=0
02A700: 20 54 41 42 28 59 2A 32 29 3B 22 4F 22 3B 0D 0A TAB(Y*2);"O";..
02A710: 36 31 30 20 52 45 4D 0D 0A 36 31 35 20 4E 45 58 610 REM..615 NEX
02A720: 54 20 59 0D 0A 36 32 30 20 50 52 49 4E 54 0D 0A T Y..620 PRINT..
02A730: 36 33 30 20 4E 45 58 54 20 58 0D 0A 36 34 30 20 630 NEXT X..640
02A740: 52 45 54 55 52 4E 0D 0A 31 30 30 30 20 52 45 4D RETURN..1000 REM
02A750: 20 2A 2A 2A 20 55 50 44 41 54 45 20 42 4F 41 52 *** UPDATE BOAR
02A760: 44 0D 0A 31 30 30 35 20 43 3D 31 3A 20 46 4F 52 D..1005 C=1: FOR
02A770: 20 58 3D 31 20 54 4F 20 39 0D 0A 31 30 32 30 20 X=1 TO 9..1020
02A780: 46 4F 52 20 59 3D 31 20 54 4F 20 39 0D 0A 31 30 FOR Y=1 TO 9..10
02A790: 33 30 20 49 46 20 43 3C 3E 5A 20 54 48 45 4E 20 30 IF C<>Z THEN
02A7A0: 31 32 32 30 0D 0A 31 30 34 30 20 49 46 20 43 2B 1220..1040 IF C+
02A7B0: 32 3C 3E 50 20 54 48 45 4E 20 31 30 38 30 0D 0A 2<>P THEN 1080..
02A7C0: 31 30 34 35 20 49 46 20 54 28 58 2C 59 2B 31 29 1045 IF T(X,Y+1)
02A7D0: 3D 30 20 54 48 45 4E 20 31 32 30 0D 0A 31 30 35 =0 THEN 120..105
02A7E0: 30 20 54 28 58 2C 59 2B 32 29 3D 35 0D 0A 31 30 0 T(X,Y+2)=5..10
02A7F0: 36 30 20 54 28 58 2C 59 2B 31 29 3D 30 3A 20 42 60 T(X,Y+1)=0: B
02A800: 28 43 2B 31 29 3D 2D 33 0D 0A 31 30 37 30 20 47 (C+1)=-3..1070 G
02A810: 4F 54 4F 20 31 32 30 30 0D 0A 31 30 38 30 20 49 OTO 1200..1080 I
02A820: 46 20 43 2B 31 38 3C 3E 50 20 54 48 45 4E 20 31 F C+18<>P THEN 1
02A830: 31 33 30 0D 0A 31 30 38 35 20 49 46 20 54 28 58 130..1085 IF T(X
02A840: 2B 31 2C 59 29 3D 30 20 54 48 45 4E 20 31 32 30 +1,Y)=0 THEN 120
02A850: 0D 0A 31 30 39 30 20 54 28 58 2B 32 2C 59 29 3D ..1090 T(X+2,Y)=
02A860: 35 3A 20 54 28 58 2B 31 2C 59 29 3D 30 3A 20 42 5: T(X+1,Y)=0: B
02A870: 28 43 2B 39 29 3D 2D 33 0D 0A 31 31 32 30 20 47 (C+9)=-3..1120 G
02A880: 4F 54 4F 20 31 32 30 30 0D 0A 31 31 33 30 20 49 OTO 1200..1130 I
02A890: 46 20 43 2D 32 3C 3E 50 20 54 48 45 4E 20 31 31 F C-2<>P THEN 11
02A8A0: 37 30 0D 0A 31 31 33 35 20 49 46 20 54 28 58 2C 70..1135 IF T(X,
02A8B0: 59 2D 31 29 3D 30 20 54 48 45 4E 20 31 32 30 0D Y-1)=0 THEN 120.
02A8C0: 0A 31 31 34 30 20 54 28 58 2C 59 2D 32 29 3D 35 .1140 T(X,Y-2)=5
02A8D0: 3A 20 54 28 58 2C 59 2D 31 29 3D 30 3A 20 42 28 : T(X,Y-1)=0: B(
02A8E0: 43 2D 31 29 3D 2D 33 0D 0A 31 31 36 30 20 47 4F C-1)=-3..1160 GO
02A8F0: 54 4F 20 31 32 30 30 0D 0A 31 31 37 30 20 49 46 TO 1200..1170 IF
02A900: 0D 0A 31 37 30 20 42 3D 30 3A 50 52 49 4E 54 0D ..170 B=0:PRINT.
02A910: 0A 31 38 30 20 59 3D 49 4E 54 28 31 30 30 2A 52 .180 Y=INT(100*R
02A920: 4E 44 28 31 29 29 0D 0A 32 30 30 20 50 52 49 4E ND(1))..200 PRIN
02A930: 54 20 22 59 4F 55 52 20 47 55 45 53 53 22 3B 0D T "YOUR GUESS";.
02A940: 0A 32 31 30 20 49 4E 50 55 54 20 41 0D 0A 32 32 .210 INPUT A..22
02A950: 30 20 42 3D 42 2B 31 0D 0A 32 33 30 20 49 46 20 0 B=B+1..230 IF
02A960: 41 3D 59 20 54 48 45 4E 20 33 30 30 0D 0A 32 34 A=Y THEN 300..24
02A970: 30 20 49 46 20 41 3E 59 20 54 48 45 4E 20 32 37 0 IF A>Y THEN 27
02A980: 30 0D 0A 32 35 30 20 50 52 49 4E 54 20 22 59 4F 0..250 PRINT "YO
02A990: 55 52 20 47 55 45 53 53 20 49 53 20 54 4F 4F 20 UR GUESS IS TOO
02A9A0: 4C 4F 57 2E 22 3A 47 4F 54 4F 20 32 38 30 0D 0A LOW.":GOTO 280..
02A9B0: 32 37 30 20 50 52 49 4E 54 20 22 59 4F 55 52 20 270 PRINT "YOUR
02A9C0: 47 55 45 53 53 20 49 53 20 54 4F 4F 20 48 49 47 GUESS IS TOO HIG
02A9D0: 48 2E 22 0D 0A 32 38 30 20 50 52 49 4E 54 3A 49 H."..280 PRINT:I
02A9E0: 46 20 42 3C 36 20 54 48 45 4E 20 32 30 30 0D 0A F B<6 THEN 200..
02A9F0: 32 39 30 20 50 52 49 4E 54 20 22 59 4F 55 20 42 290 PRINT "YOU B
02AA00: 4C 45 57 20 49 54 2E 2E 2E 54 4F 4F 20 42 41 44 LEW IT...TOO BAD
02AA10: 2E 2E 2E 54 48 45 20 4E 55 4D 42 45 52 20 57 41 ...THE NUMBER WA
02AA20: 53 22 3B 59 0D 0A 32 39 35 20 52 3D 30 3A 47 4F S";Y..295 R=0:GO
02AA30: 54 4F 20 33 35 30 0D 0A 33 30 30 20 50 52 49 4E TO 350..300 PRIN
02AA40: 54 20 22 47 4F 54 20 49 54 21 21 21 21 21 21 21 T "GOT IT!!!!!!!
02AA50: 21 21 21 20 20 20 59 4F 55 20 57 49 4E 22 3B 59 !!! YOU WIN";Y
02AA60: 3B 22 44 4F 4C 4C 41 52 53 2E 22 0D 0A 33 31 30 ;"DOLLARS."..310
02AA70: 20 52 3D 52 2B 59 0D 0A 33 32 30 20 50 52 49 4E R=R+Y..320 PRIN
02AA80: 54 20 22 59 4F 55 52 20 54 4F 54 41 4C 20 57 49 T "YOUR TOTAL WI
02AA90: 4E 4E 49 4E 47 53 20 41 52 45 20 4E 4F 57 22 3B NNINGS ARE NOW";
02AAA0: 52 3B 22 44 4F 4C 4C 41 52 53 2E 22 0D 0A 33 35 R;"DOLLARS."..35
02AAB0: 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 50 0 PRINT:PRINT "P
02AAC0: 4C 41 59 20 41 47 41 49 4E 20 28 59 45 53 20 4F LAY AGAIN (YES O
02AAD0: 52 20 4E 4F 29 22 3B 0D 0A 33 36 30 20 49 4E 50 R NO)";..360 INP
02AAE0: 55 54 20 41 24 3A 49 46 20 41 24 3D 22 59 45 53 UT A$:IF A$="YES
02AAF0: 22 20 54 48 45 4E 20 31 37 30 0D 0A 33 38 30 20 " THEN 170..380
02AB00: 20 43 2D 31 38 3C 3E 50 20 54 48 45 4E 20 31 32 C-18<>P THEN 12
02AB10: 32 30 0D 0A 31 31 37 35 20 49 46 20 54 28 58 2D 20..1175 IF T(X-
02AB20: 31 2C 59 29 3D 30 20 54 48 45 4E 20 31 32 30 0D 1,Y)=0 THEN 120.
02AB30: 0A 31 31 38 30 20 54 28 58 2D 32 2C 59 29 3D 35 .1180 T(X-2,Y)=5
02AB40: 3A 20 54 28 58 2D 31 2C 59 29 3D 30 3A 20 42 28 : T(X-1,Y)=0: B(
02AB50: 43 2D 39 29 3D 2D 33 0D 0A 31 32 30 30 20 42 28 C-9)=-3..1200 B(
02AB60: 5A 29 3D 2D 33 3A 20 42 28 50 29 3D 2D 37 0D 0A Z)=-3: B(P)=-7..
02AB70: 31 32 31 30 20 54 28 58 2C 59 29 3D 30 3A 20 47 1210 T(X,Y)=0: G
02AB80: 4F 54 4F 20 31 32 34 30 0D 0A 31 32 32 30 20 43 OTO 1240..1220 C
02AB90: 3D 43 2B 31 0D 0A 31 32 32 35 20 4E 45 58 54 20 =C+1..1225 NEXT
02ABA0: 59 0D 0A 31 32 33 30 20 4E 45 58 54 20 58 0D 0A Y..1230 NEXT X..
02ABB0: 31 32 34 30 20 52 45 54 55 52 4E 0D 0A 31 35 30 1240 RETURN..150
02ABC0: 30 20 52 45 4D 2A 2A 2A 20 43 48 45 43 4B 20 49 0 REM*** CHECK I
02ABD0: 46 20 47 41 4D 45 20 49 53 20 4F 56 45 52 0D 0A F GAME IS OVER..
02ABE0: 31 35 30 35 20 46 3D 30 0D 0A 31 35 31 30 20 46 1505 F=0..1510 F
02ABF0: 4F 52 20 52 3D 32 20 54 4F 20 38 0D 0A 31 35 32 OR R=2 TO 8..152
02AC00: 30 20 46 4F 52 20 43 3D 32 20 54 4F 20 38 0D 0A 0 FOR C=2 TO 8..
02AC10: 31 35 33 30 20 49 46 20 54 28 52 2C 43 29 3C 3E 1530 IF T(R,C)<>
02AC20: 35 20 54 48 45 4E 20 31 35 38 30 0D 0A 31 35 33 5 THEN 1580..153
02AC30: 35 20 46 3D 46 2B 31 0D 0A 31 35 34 30 20 46 4F 5 F=F+1..1540 FO
02AC40: 52 20 41 3D 52 2D 31 20 54 4F 20 52 2B 31 0D 0A R A=R-1 TO R+1..
02AC50: 31 35 34 35 20 54 3D 30 0D 0A 31 35 35 30 20 46 1545 T=0..1550 F
02AC60: 4F 52 20 42 3D 43 2D 31 20 54 4F 20 43 2B 31 0D OR B=C-1 TO C+1.
02AC70: 0A 31 35 36 30 20 54 3D 54 2B 54 28 41 2C 42 29 .1560 T=T+T(A,B)
02AC80: 0D 0A 31 35 36 31 20 4E 45 58 54 20 42 0D 0A 31 ..1561 NEXT B..1
02AC90: 35 36 34 20 49 46 20 54 3C 3E 31 30 20 54 48 45 564 IF T<>10 THE
02ACA0: 4E 20 31 35 36 37 0D 0A 31 35 36 35 20 49 46 20 N 1567..1565 IF
02ACB0: 54 28 41 2C 43 29 3C 3E 30 20 54 48 45 4E 20 31 T(A,C)<>0 THEN 1
02ACC0: 36 33 30 0D 0A 31 35 36 37 20 4E 45 58 54 20 41 630..1567 NEXT A
02ACD0: 0D 0A 31 35 36 38 20 46 4F 52 20 58 3D 43 2D 31 ..1568 FOR X=C-1
02ACE0: 20 54 4F 20 43 2B 31 0D 0A 31 35 36 39 20 54 3D TO C+1..1569 T=
02ACF0: 30 0D 0A 31 35 37 30 20 46 4F 52 20 59 3D 52 2D 0..1570 FOR Y=R-
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 00 00 02 09 52 E5 24 00 C1 02 00 00 00 02 $.....R.$.......
02AD20: 24 00 C6 02 00 00 00 02 24 00 C2 02 00 00 00 02 $.......$.......
02AD30: 24 00 C7 02 00 00 00 02 24 00 C3 02 00 00 00 02 $.......$.......
02AD40: 24 00 C8 02 00 00 00 02 24 00 C4 02 00 00 00 02 $.......$.......
02AD50: 24 00 C9 02 00 00 00 02 24 00 C5 02 00 00 00 02 $.......$.......
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 53 4F 20 PRINT:PRINT "SO
02AE10: 4C 4F 4E 47 2E 20 20 48 4F 50 45 20 59 4F 55 20 LONG. HOPE YOU
02AE20: 45 4E 4A 4F 59 45 44 20 59 4F 55 52 53 45 4C 46 ENJOYED YOURSELF
02AE30: 21 21 21 22 0D 0A 33 39 30 20 45 4E 44 0D 0A 1A !!!"..390 END...
02AE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AF90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AFF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B000: 28 58 29 29 2B 31 20 0D 0A 33 33 30 20 4E 45 58 (X))+1 ..330 NEX
02B010: 54 20 4A 3A 49 46 20 48 28 4A 2D 31 29 3D 48 28 T J:IF H(J-1)=H(
02B020: 4A 2D 32 29 20 54 48 45 4E 20 33 31 30 0D 0A 33 J-2) THEN 310..3
02B030: 33 31 20 49 46 20 50 2B 32 3C 33 20 54 48 45 4E 31 IF P+2<3 THEN
02B040: 20 33 35 30 0D 0A 33 33 35 20 49 46 20 48 28 4A 350..335 IF H(J
02B050: 2D 31 29 3D 48 28 4A 2D 33 29 20 54 48 45 4E 20 -1)=H(J-3) THEN
02B060: 33 31 30 0D 0A 33 34 30 20 49 46 20 48 28 4A 2D 310..340 IF H(J-
02B070: 32 29 3D 48 28 4A 2D 33 29 20 54 48 45 4E 20 33 2)=H(J-3) THEN 3
02B080: 31 30 0D 0A 33 35 30 20 49 46 20 50 3D 30 20 54 10..350 IF P=0 T
02B090: 48 45 4E 20 33 36 30 0D 0A 33 35 35 20 47 4F 54 HEN 360..355 GOT
02B0A0: 4F 20 34 39 30 0D 0A 33 36 30 20 49 4E 50 55 54 O 490..360 INPUT
02B0B0: 20 22 53 48 4F 54 22 3B 53 3A 49 46 20 53 3C 31 "SHOT";S:IF S<1
02B0C0: 20 54 48 45 4E 20 33 36 30 0D 0A 33 36 35 20 49 THEN 360..365 I
02B0D0: 46 20 53 3E 34 20 54 48 45 4E 20 33 36 30 0D 0A F S>4 THEN 360..
02B0E0: 33 37 30 20 4F 4E 20 43 20 47 4F 54 4F 20 33 38 370 ON C GOTO 38
02B0F0: 30 2C 34 38 30 0D 0A 33 38 30 20 50 52 49 4E 54 0,480..380 PRINT
02B100: 20 41 24 28 48 28 4A 2D 31 29 29 3B 3A 47 3D 48 A$(H(J-1));:G=H
02B110: 28 4A 2D 31 29 3A 47 31 3D 30 3A 47 32 3D 30 20 (J-1):G1=0:G2=0
02B120: 0D 0A 33 39 30 20 4F 4E 20 53 20 47 4F 54 4F 20 ..390 ON S GOTO
02B130: 34 30 30 2C 34 32 30 2C 34 34 30 2C 34 36 30 0D 400,420,440,460.
02B140: 0A 34 30 30 20 50 52 49 4E 54 20 22 20 4C 45 54 .400 PRINT " LET
02B150: 27 53 20 41 20 42 4F 4F 4D 45 52 20 47 4F 20 46 'S A BOOMER GO F
02B160: 52 4F 4D 20 54 48 45 20 52 45 44 20 4C 49 4E 45 ROM THE RED LINE
02B170: 21 21 22 20 0D 0A 34 31 30 20 5A 3D 31 30 3A 47 !!" ..410 Z=10:G
02B180: 4F 54 4F 20 38 39 30 0D 0A 34 32 30 20 50 52 49 OTO 890..420 PRI
02B190: 4E 54 20 22 20 46 4C 49 50 53 20 41 20 57 52 49 NT " FLIPS A WRI
02B1A0: 53 54 53 48 4F 54 20 44 4F 57 4E 20 54 48 45 20 STSHOT DOWN THE
02B1B0: 49 43 45 22 0D 0A 34 34 30 20 50 52 49 4E 54 20 ICE"..440 PRINT
02B1C0: 22 20 42 41 43 4B 48 41 4E 44 53 20 4F 4E 45 20 " BACKHANDS ONE
02B1D0: 49 4E 20 4F 4E 20 54 48 45 20 47 4F 41 4C 54 45 IN ON THE GOALTE
02B1E0: 4E 44 45 52 22 20 0D 0A 34 35 30 20 5A 3D 32 35 NDER" ..450 Z=25
02B1F0: 3A 47 4F 54 4F 20 38 39 30 0D 0A 34 36 30 20 50 :GOTO 890..460 P
02B200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B400: 52 49 4E 54 20 22 20 53 4E 41 50 53 20 41 20 4C RINT " SNAPS A L
02B410: 4F 4E 47 20 46 4C 49 50 20 53 48 4F 54 22 0D 0A ONG FLIP SHOT"..
02B420: 34 37 30 20 5A 3D 31 37 3A 47 4F 54 4F 20 38 39 470 Z=17:GOTO 89
02B430: 30 0D 0A 34 38 30 20 50 52 49 4E 54 20 42 24 28 0..480 PRINT B$(
02B440: 48 28 4A 2D 31 29 29 3B 3A 47 31 3D 30 3A 47 32 H(J-1));:G1=0:G2
02B450: 3D 30 3A 47 3D 48 28 4A 2D 31 29 3A 47 4F 54 4F =0:G=H(J-1):GOTO
02B460: 20 33 39 30 0D 0A 34 39 30 20 4F 4E 20 43 20 47 390..490 ON C G
02B470: 4F 54 4F 20 35 30 30 2C 36 34 30 0D 0A 35 30 30 OTO 500,640..500
02B480: 20 4F 4E 20 50 20 47 4F 54 4F 20 35 31 30 2C 35 ON P GOTO 510,5
02B490: 34 30 2C 35 37 30 0D 0A 35 31 30 20 50 52 49 4E 40,570..510 PRIN
02B4A0: 54 20 41 24 28 48 28 4A 2D 32 29 29 20 22 20 4C T A$(H(J-2)) " L
02B4B0: 45 41 44 53 20 22 20 41 24 28 48 28 4A 2D 31 29 EADS " A$(H(J-1)
02B4C0: 29 20 22 20 57 49 54 48 20 41 20 50 45 52 46 45 ) " WITH A PERFE
02B4D0: 43 54 20 50 41 53 53 2E 22 20 0D 0A 35 32 30 20 CT PASS." ..520
02B4E0: 50 52 49 4E 54 20 41 24 28 48 28 4A 2D 31 29 29 PRINT A$(H(J-1))
02B4F0: 20 22 20 43 55 54 54 49 4E 47 20 49 4E 21 21 21 " CUTTING IN!!!
02B500: 22 0D 0A 35 33 30 20 47 3D 48 28 4A 2D 31 29 3A "..530 G=H(J-1):
02B510: 47 31 3D 48 28 4A 2D 32 29 3A 47 32 3D 30 3A 5A G1=H(J-2):G2=0:Z
02B520: 31 3D 33 3A 47 4F 54 4F 20 37 37 30 0D 0A 35 34 1=3:GOTO 770..54
02B530: 30 20 50 52 49 4E 54 20 41 24 28 48 28 4A 2D 32 0 PRINT A$(H(J-2
02B540: 29 29 20 22 20 47 49 56 45 53 20 54 4F 20 41 20 )) " GIVES TO A
02B550: 53 54 52 45 41 4B 49 4E 47 20 22 20 41 24 28 48 STREAKING " A$(H
02B560: 28 4A 2D 31 29 29 0D 0A 35 35 30 20 50 52 49 4E (J-1))..550 PRIN
02B570: 54 20 41 24 28 48 28 4A 2D 33 29 29 20 22 20 43 T A$(H(J-3)) " C
02B580: 4F 4D 45 53 20 44 4F 57 4E 20 4F 4E 20 22 20 42 OMES DOWN ON " B
02B590: 24 28 35 29 20 22 20 41 4E 44 20 22 20 42 24 28 $(5) " AND " B$(
02B5A0: 34 29 0D 0A 35 36 30 20 47 3D 48 28 4A 2D 33 29 4)..560 G=H(J-3)
02B5B0: 3A 47 31 3D 48 28 4A 2D 31 29 3A 47 32 3D 48 28 :G1=H(J-1):G2=H(
02B5C0: 4A 2D 32 29 3A 5A 31 3D 32 3A 47 4F 54 4F 20 37 J-2):Z1=2:GOTO 7
02B5D0: 37 30 0D 0A 35 37 30 20 50 52 49 4E 54 20 22 4F 70..570 PRINT "O
02B5E0: 48 20 4D 59 20 47 4F 44 21 21 20 41 20 27 20 34 H MY GOD!! A ' 4
02B5F0: 20 4F 4E 20 32 20 27 20 53 49 54 55 41 54 49 4F ON 2 ' SITUATIO
02B600: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
02B610: 22 48 4F 43 4B 45 59 22 0D 0A 34 20 50 52 49 4E "HOCKEY"..4 PRIN
02B620: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
02B630: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
02B640: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
02B650: 45 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A ERSEY"..6 PRINT:
02B660: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 20 PRINT:PRINT..10
02B670: 52 45 4D 20 52 4F 42 45 52 54 20 50 55 4F 50 4F REM ROBERT PUOPO
02B680: 4C 4F 20 41 4C 47 2E 20 31 20 31 34 30 20 4D 43 LO ALG. 1 140 MC
02B690: 43 4F 57 41 4E 20 36 2F 37 2F 37 33 20 48 4F 43 COWAN 6/7/73 HOC
02B6A0: 4B 45 59 0D 0A 33 30 20 4C 45 54 20 58 3D 31 0D KEY..30 LET X=1.
02B6B0: 0A 34 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A .40 PRINT:PRINT:
02B6C0: 50 52 49 4E 54 0D 0A 35 30 20 50 52 49 4E 54 20 PRINT..50 PRINT
02B6D0: 22 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 "WOULD YOU LIKE
02B6E0: 54 48 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 THE INSTRUCTIONS
02B6F0: 22 3B 3A 49 4E 50 55 54 20 43 24 0D 0A 35 35 20 ";:INPUT C$..55
02B700: 50 52 49 4E 54 0D 0A 36 30 20 49 46 20 43 24 3D PRINT..60 IF C$=
02B710: 22 4E 4F 22 20 54 48 45 4E 20 39 30 0D 0A 36 35 "NO" THEN 90..65
02B720: 20 49 46 20 43 24 3D 22 59 45 53 22 20 54 48 45 IF C$="YES" THE
02B730: 4E 20 38 30 0D 0A 37 30 20 50 52 49 4E 54 20 22 N 80..70 PRINT "
02B740: 41 4E 53 57 45 52 20 59 45 53 20 4F 52 20 4E 4F ANSWER YES OR NO
02B750: 21 21 22 3A 47 4F 54 4F 20 35 30 20 0D 0A 38 30 !!":GOTO 50 ..80
02B760: 20 47 4F 54 4F 20 31 37 32 30 0D 0A 39 30 20 44 GOTO 1720..90 D
02B770: 49 4D 20 41 24 28 37 29 2C 42 24 28 37 29 2C 48 IM A$(7),B$(7),H
02B780: 28 32 30 29 2C 54 28 35 29 2C 54 31 28 35 29 2C (20),T(5),T1(5),
02B790: 54 32 28 35 29 2C 54 33 28 35 29 0D 0A 31 30 30 T2(5),T3(5)..100
02B7A0: 20 50 52 49 4E 54 20 22 45 4E 54 45 52 20 54 48 PRINT "ENTER TH
02B7B0: 45 20 54 57 4F 20 54 45 41 4D 53 22 3B 3A 49 4E E TWO TEAMS";:IN
02B7C0: 50 55 54 20 41 24 28 37 29 2C 42 24 28 37 29 20 PUT A$(7),B$(7)
02B7D0: 0D 0A 31 30 35 20 50 52 49 4E 54 0D 0A 31 31 30 ..105 PRINT..110
02B7E0: 20 50 52 49 4E 54 20 22 45 4E 54 45 52 20 54 48 PRINT "ENTER TH
02B7F0: 45 20 4E 55 4D 42 45 52 20 4F 46 20 4D 49 4E 55 E NUMBER OF MINU
02B800: 4E 22 0D 0A 35 38 30 20 50 52 49 4E 54 20 41 24 N"..580 PRINT A$
02B810: 28 48 28 4A 2D 33 29 29 20 22 20 4C 45 41 44 53 (H(J-3)) " LEADS
02B820: 20 22 20 41 24 28 48 28 4A 2D 32 29 29 0D 0A 35 " A$(H(J-2))..5
02B830: 39 30 20 50 52 49 4E 54 20 41 24 28 48 28 4A 2D 90 PRINT A$(H(J-
02B840: 32 29 29 20 22 20 49 53 20 57 48 45 45 45 4C 49 2)) " IS WHEEELI
02B850: 4E 47 20 54 48 52 4F 55 47 48 20 43 45 4E 54 45 NG THROUGH CENTE
02B860: 52 2E 22 0D 0A 36 30 30 20 50 52 49 4E 54 20 41 R."..600 PRINT A
02B870: 24 28 48 28 4A 2D 32 29 29 20 22 20 47 49 56 45 $(H(J-2)) " GIVE
02B880: 53 20 41 4E 44 20 47 4F 45 53 20 57 49 54 48 20 S AND GOES WITH
02B890: 22 20 41 24 28 48 28 4A 2D 31 29 29 0D 0A 36 31 " A$(H(J-1))..61
02B8A0: 30 20 50 52 49 4E 54 20 22 50 52 45 54 54 59 20 0 PRINT "PRETTY
02B8B0: 50 41 53 53 49 4E 47 21 22 0D 0A 36 32 30 20 50 PASSING!"..620 P
02B8C0: 52 49 4E 54 20 41 24 28 48 28 4A 2D 31 29 29 20 RINT A$(H(J-1))
02B8D0: 22 20 44 52 4F 50 53 20 49 54 20 54 4F 20 22 20 " DROPS IT TO "
02B8E0: 41 24 28 48 28 4A 2D 34 29 29 0D 0A 36 33 30 20 A$(H(J-4))..630
02B8F0: 47 3D 48 28 4A 2D 34 29 3A 47 31 3D 4A 28 4A 2D G=H(J-4):G1=J(J-
02B900: 31 29 3A 47 32 3D 48 28 4A 2D 32 29 3A 5A 31 3D 1):G2=H(J-2):Z1=
02B910: 31 3A 47 4F 54 4F 20 37 37 30 0D 0A 36 34 30 20 1:GOTO 770..640
02B920: 4F 4E 20 50 20 47 4F 54 4F 20 36 35 30 2C 36 37 ON P GOTO 650,67
02B930: 30 2C 37 32 30 0D 0A 36 35 30 20 50 52 49 4E 54 0,720..650 PRINT
02B940: 20 42 24 28 48 28 4A 2D 31 29 29 20 22 20 48 49 B$(H(J-1)) " HI
02B950: 54 53 20 22 20 42 24 28 48 28 4A 2D 32 29 29 20 TS " B$(H(J-2))
02B960: 22 20 46 4C 59 49 4E 47 20 44 4F 57 4E 20 54 48 " FLYING DOWN TH
02B970: 45 20 4C 45 46 54 20 53 49 44 45 22 20 0D 0A 36 E LEFT SIDE" ..6
02B980: 36 30 20 47 3D 48 28 4A 2D 32 29 3A 47 31 3D 48 60 G=H(J-2):G1=H
02B990: 28 4A 2D 31 29 3A 47 32 3D 30 3A 5A 31 3D 33 3A (J-1):G2=0:Z1=3:
02B9A0: 47 4F 54 4F 20 37 37 30 0D 0A 36 37 30 20 50 52 GOTO 770..670 PR
02B9B0: 49 4E 54 20 22 49 54 27 53 20 41 20 27 20 33 20 INT "IT'S A ' 3
02B9C0: 4F 4E 20 32 20 27 21 22 0D 0A 36 38 30 20 50 52 ON 2 '!"..680 PR
02B9D0: 49 4E 54 20 22 4F 4E 4C 59 20 22 20 41 24 28 34 INT "ONLY " A$(4
02B9E0: 29 20 22 20 41 4E 44 20 22 20 41 24 28 35 29 20 ) " AND " A$(5)
02B9F0: 22 20 41 52 45 20 42 41 43 4B 2E 22 0D 0A 36 39 " ARE BACK."..69
02BA00: 54 45 53 20 49 4E 20 41 20 47 41 4D 45 22 3B 3A TES IN A GAME";:
02BA10: 49 4E 50 55 54 20 54 36 0D 0A 31 31 35 20 50 52 INPUT T6..115 PR
02BA20: 49 4E 54 0D 0A 31 32 30 20 49 46 20 54 36 3C 31 INT..120 IF T6<1
02BA30: 20 54 48 45 4E 20 31 31 30 3A 50 52 49 4E 54 20 THEN 110:PRINT
02BA40: 0D 0A 31 33 30 20 50 52 49 4E 54 20 22 57 4F 55 ..130 PRINT "WOU
02BA50: 4C 44 20 54 48 45 20 22 20 41 24 28 37 29 20 22 LD THE " A$(7) "
02BA60: 20 43 4F 41 43 48 20 45 4E 54 45 52 20 48 49 53 COACH ENTER HIS
02BA70: 20 54 45 41 4D 22 20 0D 0A 31 33 35 20 50 52 49 TEAM" ..135 PRI
02BA80: 4E 54 0D 0A 31 34 30 20 46 4F 52 20 49 3D 31 20 NT..140 FOR I=1
02BA90: 54 4F 20 36 3A 50 52 49 4E 54 20 22 50 4C 41 59 TO 6:PRINT "PLAY
02BAA0: 45 52 22 49 3B 3A 49 4E 50 55 54 20 41 24 28 49 ER"I;:INPUT A$(I
02BAB0: 29 3A 4E 45 58 54 20 49 3A 50 52 49 4E 54 20 0D ):NEXT I:PRINT .
02BAC0: 0A 31 35 30 20 50 52 49 4E 54 20 22 57 4F 55 4C .150 PRINT "WOUL
02BAD0: 44 20 54 48 45 20 22 20 42 24 28 37 29 20 22 20 D THE " B$(7) "
02BAE0: 43 4F 41 43 48 20 44 4F 20 54 48 45 20 53 41 4D COACH DO THE SAM
02BAF0: 45 22 0D 0A 31 35 35 20 50 52 49 4E 54 0D 0A 31 E"..155 PRINT..1
02BB00: 36 30 20 46 4F 52 20 54 3D 31 20 54 4F 20 36 3A 60 FOR T=1 TO 6:
02BB10: 50 52 49 4E 54 20 22 50 4C 41 59 45 52 22 54 3B PRINT "PLAYER"T;
02BB20: 3A 49 4E 50 55 54 20 42 24 28 54 29 3A 4E 45 58 :INPUT B$(T):NEX
02BB30: 54 20 54 3A 50 52 49 4E 54 20 0D 0A 31 37 30 20 T T:PRINT ..170
02BB40: 50 52 49 4E 54 20 22 49 4E 50 55 54 20 54 48 45 PRINT "INPUT THE
02BB50: 20 52 45 46 45 52 45 45 20 46 4F 52 20 54 48 49 REFEREE FOR THI
02BB60: 53 20 47 41 4D 45 22 3B 3A 49 4E 50 55 54 20 52 S GAME";:INPUT R
02BB70: 24 20 20 0D 0A 31 38 30 20 50 52 49 4E 54 3A 50 $ ..180 PRINT:P
02BB80: 52 49 4E 54 20 54 41 42 28 31 30 29 3B 41 24 28 RINT TAB(10);A$(
02BB90: 37 29 20 22 20 53 54 41 52 54 49 4E 47 20 4C 49 7) " STARTING LI
02BBA0: 4E 45 55 50 22 20 0D 0A 31 39 30 20 46 4F 52 20 NEUP" ..190 FOR
02BBB0: 54 3D 31 20 54 4F 20 36 3A 50 52 49 4E 54 20 41 T=1 TO 6:PRINT A
02BBC0: 24 28 54 29 3A 4E 45 58 54 20 54 20 20 0D 0A 32 $(T):NEXT T ..2
02BBD0: 30 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 54 00 PRINT:PRINT T
02BBE0: 41 42 28 31 30 29 3B 42 24 28 37 29 22 20 53 54 AB(10);B$(7)" ST
02BBF0: 41 52 54 49 4E 47 20 4C 49 4E 45 55 50 22 0D 0A ARTING LINEUP"..
02BC00: 30 20 50 52 49 4E 54 20 42 24 28 48 28 4A 2D 32 0 PRINT B$(H(J-2
02BC10: 29 29 20 22 20 47 49 56 45 53 20 4F 46 46 20 54 )) " GIVES OFF T
02BC20: 4F 20 22 20 42 24 28 48 28 4A 2D 31 29 29 0D 0A O " B$(H(J-1))..
02BC30: 37 30 30 20 50 52 49 4E 54 20 42 24 28 48 28 4A 700 PRINT B$(H(J
02BC40: 2D 31 29 29 20 22 20 44 52 4F 50 53 20 54 4F 20 -1)) " DROPS TO
02BC50: 22 20 42 24 28 48 28 4A 2D 33 29 29 0D 0A 37 31 " B$(H(J-3))..71
02BC60: 30 20 47 3D 48 28 4A 2D 33 29 3A 47 31 3D 48 28 0 G=H(J-3):G1=H(
02BC70: 4A 2D 31 29 3A 47 32 3D 48 28 4A 2D 32 29 3A 5A J-1):G2=H(J-2):Z
02BC80: 31 3D 32 3A 47 4F 54 4F 20 37 37 30 20 0D 0A 37 1=2:GOTO 770 ..7
02BC90: 32 30 20 50 52 49 4E 54 20 22 20 41 20 27 20 33 20 PRINT " A ' 3
02BCA0: 20 4F 4E 20 32 20 27 20 57 49 54 48 20 41 20 27 ON 2 ' WITH A '
02BCB0: 20 54 52 41 49 4C 45 52 20 27 21 22 20 0D 0A 37 TRAILER '!" ..7
02BCC0: 33 30 20 50 52 49 4E 54 20 42 24 28 48 28 4A 2D 30 PRINT B$(H(J-
02BCD0: 34 29 29 20 22 20 47 49 56 45 53 20 54 4F 20 22 4)) " GIVES TO "
02BCE0: 20 42 24 28 48 28 4A 2D 32 29 29 20 22 20 57 48 B$(H(J-2)) " WH
02BCF0: 4F 20 53 48 55 46 46 4C 45 53 20 49 54 20 4F 46 O SHUFFLES IT OF
02BD00: 46 20 54 4F 22 20 0D 0A 37 34 30 20 50 52 49 4E F TO" ..740 PRIN
02BD10: 54 20 42 24 28 48 28 4A 2D 31 29 29 20 22 20 57 T B$(H(J-1)) " W
02BD20: 48 4F 20 46 49 52 45 53 20 41 20 57 49 4E 47 20 HO FIRES A WING
02BD30: 54 4F 20 57 49 4E 47 20 50 41 53 53 20 54 4F 20 TO WING PASS TO
02BD40: 22 0D 0A 37 35 30 20 50 52 49 4E 54 20 42 24 28 "..750 PRINT B$(
02BD50: 48 28 4A 2D 33 29 29 20 22 20 41 53 20 48 45 20 H(J-3)) " AS HE
02BD60: 43 55 54 53 20 49 4E 20 41 4C 4F 4E 45 21 21 22 CUTS IN ALONE!!"
02BD70: 20 20 20 20 0D 0A 37 36 30 20 47 3D 48 28 4A 2D ..760 G=H(J-
02BD80: 33 29 3A 47 31 3D 48 28 4A 2D 31 29 3A 47 32 3D 3):G1=H(J-1):G2=
02BD90: 48 28 4A 2D 32 29 3A 5A 31 3D 31 3A 47 4F 54 4F H(J-2):Z1=1:GOTO
02BDA0: 20 37 37 30 20 0D 0A 37 37 30 20 50 52 49 4E 54 770 ..770 PRINT
02BDB0: 20 22 53 48 4F 54 22 3B 3A 49 4E 50 55 54 20 53 "SHOT";:INPUT S
02BDC0: 3A 49 46 20 53 3E 34 20 54 48 45 4E 20 37 37 30 :IF S>4 THEN 770
02BDD0: 3A 49 46 20 53 3C 31 20 54 48 45 4E 20 37 37 30 :IF S<1 THEN 770
02BDE0: 0D 0A 37 38 30 20 4F 4E 20 43 20 47 4F 54 4F 20 ..780 ON C GOTO
02BDF0: 37 39 30 2C 38 38 30 0D 0A 37 39 30 20 50 52 49 790,880..790 PRI
02BE00: 32 31 30 20 46 4F 52 20 54 3D 31 20 54 4F 20 36 210 FOR T=1 TO 6
02BE10: 3A 50 52 49 4E 54 20 42 24 28 54 29 3A 4E 45 58 :PRINT B$(T):NEX
02BE20: 54 20 54 3A 50 52 49 4E 54 0D 0A 32 32 30 20 50 T T:PRINT..220 P
02BE30: 52 49 4E 54 20 22 57 45 27 52 45 20 52 45 41 44 RINT "WE'RE READ
02BE40: 59 20 46 4F 52 20 54 4F 4E 49 47 48 54 53 20 4F Y FOR TONIGHTS O
02BE50: 50 45 4E 49 4E 47 20 46 41 43 45 2D 4F 46 46 2E PENING FACE-OFF.
02BE60: 22 0D 0A 32 33 30 20 50 52 49 4E 54 20 52 24 20 "..230 PRINT R$
02BE70: 22 20 57 49 4C 4C 20 44 52 4F 50 20 54 48 45 20 " WILL DROP THE
02BE80: 50 55 43 4B 20 42 45 54 57 45 45 4E 20 22 20 41 PUCK BETWEEN " A
02BE90: 24 28 32 29 20 22 20 41 4E 44 20 22 20 42 24 28 $(2) " AND " B$(
02BEA0: 32 29 0D 0A 32 34 30 20 46 4F 52 20 4C 3D 31 20 2)..240 FOR L=1
02BEB0: 54 4F 20 54 36 3A 49 46 20 4C 3D 31 20 54 48 45 TO T6:IF L=1 THE
02BEC0: 4E 20 32 36 30 0D 0A 32 35 30 20 50 52 49 4E 54 N 260..250 PRINT
02BED0: 20 22 41 4E 44 20 57 45 27 52 45 20 52 45 41 44 "AND WE'RE READ
02BEE0: 59 20 46 4F 52 20 54 48 45 20 46 41 43 45 2D 4F Y FOR THE FACE-O
02BEF0: 46 46 22 20 0D 0A 32 36 30 20 43 3D 49 4E 54 28 FF" ..260 C=INT(
02BF00: 32 2A 52 4E 44 28 58 29 29 2B 31 3A 4F 4E 20 43 2*RND(X))+1:ON C
02BF10: 20 47 4F 54 4F 20 32 37 30 2C 32 38 30 0D 0A 32 GOTO 270,280..2
02BF20: 37 30 20 50 52 49 4E 54 20 41 24 28 37 29 20 22 70 PRINT A$(7) "
02BF30: 20 48 41 53 20 43 4F 4E 54 52 4F 4C 20 4F 46 20 HAS CONTROL OF
02BF40: 54 48 45 20 50 55 43 4B 22 3A 47 4F 54 4F 20 32 THE PUCK":GOTO 2
02BF50: 39 30 0D 0A 32 38 30 20 50 52 49 4E 54 20 42 24 90..280 PRINT B$
02BF60: 28 37 29 20 22 20 48 41 53 20 43 4F 4E 54 52 4F (7) " HAS CONTRO
02BF70: 4C 2E 22 20 0D 0A 32 39 30 20 50 52 49 4E 54 20 L." ..290 PRINT
02BF80: 22 50 41 53 53 22 3B 3A 49 4E 50 55 54 20 50 3A "PASS";:INPUT P:
02BF90: 46 4F 52 20 4E 3D 31 20 54 4F 20 33 3A 48 28 4E FOR N=1 TO 3:H(N
02BFA0: 29 3D 30 3A 4E 45 58 54 20 4E 20 0D 0A 33 30 30 )=0:NEXT N ..300
02BFB0: 20 49 46 20 50 3C 30 20 54 48 45 4E 20 32 39 30 IF P<0 THEN 290
02BFC0: 0D 0A 33 30 35 20 49 46 20 50 3E 33 20 54 48 45 ..305 IF P>3 THE
02BFD0: 4E 20 32 39 30 0D 0A 33 31 30 20 46 4F 52 20 4A N 290..310 FOR J
02BFE0: 3D 31 20 54 4F 20 28 50 2B 32 29 20 0D 0A 33 32 =1 TO (P+2) ..32
02BFF0: 30 20 48 28 4A 29 3D 49 4E 54 28 35 2A 52 4E 44 0 H(J)=INT(5*RND
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 00 00 02 09 52 E5 25 00 C1 02 00 00 00 02 %.....R.%.......
02C020: 25 00 C6 02 00 00 00 02 25 00 C2 02 00 00 00 02 %.......%.......
02C030: 25 00 C7 02 00 00 00 02 25 00 C3 02 00 00 00 02 %.......%.......
02C040: 25 00 C8 02 00 00 00 02 25 00 C4 02 00 00 00 02 %.......%.......
02C050: 25 00 C9 02 00 00 00 02 25 00 C5 02 00 00 00 02 %.......%.......
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: 4E 54 20 41 24 28 47 29 3B 3A 4F 4E 20 53 20 47 NT A$(G);:ON S G
02C110: 4F 54 4F 20 38 30 30 2C 38 32 30 2C 38 34 30 2C OTO 800,820,840,
02C120: 38 36 30 20 0D 0A 38 30 30 20 50 52 49 4E 54 20 860 ..800 PRINT
02C130: 22 20 4C 45 54 27 53 20 41 20 42 49 47 20 53 4C " LET'S A BIG SL
02C140: 41 50 20 53 48 4F 54 20 47 4F 21 21 22 20 20 0D AP SHOT GO!!" .
02C150: 0A 38 31 30 20 5A 3D 34 3A 5A 3D 5A 2B 5A 31 3A .810 Z=4:Z=Z+Z1:
02C160: 47 4F 54 4F 20 38 39 30 0D 0A 38 32 30 20 50 52 GOTO 890..820 PR
02C170: 49 4E 54 20 22 20 52 49 50 53 20 41 20 57 52 49 INT " RIPS A WRI
02C180: 53 54 20 53 48 4F 54 20 4F 46 46 22 20 0D 0A 38 ST SHOT OFF" ..8
02C190: 33 30 20 5A 3D 32 3A 5A 3D 5A 2B 5A 31 3A 47 4F 30 Z=2:Z=Z+Z1:GO
02C1A0: 54 4F 20 38 39 30 0D 0A 38 34 30 20 50 52 49 4E TO 890..840 PRIN
02C1B0: 54 20 22 20 47 45 54 53 20 41 20 42 41 43 4B 48 T " GETS A BACKH
02C1C0: 41 4E 44 20 4F 46 46 22 20 0D 0A 38 35 30 20 5A AND OFF" ..850 Z
02C1D0: 3D 33 3A 5A 3D 5A 2B 5A 31 3A 47 4F 54 4F 20 38 =3:Z=Z+Z1:GOTO 8
02C1E0: 39 30 0D 0A 38 36 30 20 50 52 49 4E 54 20 22 20 90..860 PRINT "
02C1F0: 53 4E 41 50 53 20 4F 46 46 20 41 20 53 4E 41 50 SNAPS OFF A SNAP
02C200: 20 53 48 4F 54 22 20 20 20 0D 0A 38 37 30 20 5A SHOT" ..870 Z
02C210: 3D 32 3A 5A 3D 5A 2B 5A 31 3A 47 4F 54 4F 20 38 =2:Z=Z+Z1:GOTO 8
02C220: 39 30 0D 0A 38 38 30 20 50 52 49 4E 54 20 42 24 90..880 PRINT B$
02C230: 28 47 29 3B 3A 4F 4E 20 53 20 47 4F 54 4F 20 38 (G);:ON S GOTO 8
02C240: 30 30 2C 38 32 30 2C 38 34 30 2C 38 36 30 20 0D 00,820,840,860 .
02C250: 0A 38 39 30 20 50 52 49 4E 54 20 22 41 52 45 41 .890 PRINT "AREA
02C260: 22 3B 3A 49 4E 50 55 54 20 41 3A 49 46 20 41 3C ";:INPUT A:IF A<
02C270: 31 20 54 48 45 4E 20 38 39 30 0D 0A 38 39 35 20 1 THEN 890..895
02C280: 49 46 20 41 3E 34 20 54 48 45 4E 20 38 39 30 0D IF A>4 THEN 890.
02C290: 0A 39 30 30 20 4F 4E 20 43 20 47 4F 54 4F 20 39 .900 ON C GOTO 9
02C2A0: 31 30 2C 39 32 30 0D 0A 39 31 30 20 53 32 3D 53 10,920..910 S2=S
02C2B0: 32 2B 31 3A 47 4F 54 4F 20 39 33 30 20 0D 0A 39 2+1:GOTO 930 ..9
02C2C0: 32 30 20 53 33 3D 53 33 2B 31 0D 0A 39 33 30 20 20 S3=S3+1..930
02C2D0: 41 31 3D 49 4E 54 28 34 2A 52 4E 44 28 58 29 29 A1=INT(4*RND(X))
02C2E0: 2B 31 3A 49 46 20 41 3C 3E 41 31 20 54 48 45 4E +1:IF A<>A1 THEN
02C2F0: 20 31 32 30 30 0D 0A 39 34 30 20 48 28 32 30 29 1200..940 H(20)
02C300: 52 49 4E 54 20 22 54 4F 20 54 48 45 20 52 49 47 RINT "TO THE RIG
02C310: 48 54 20 4F 46 20 22 20 41 24 28 36 29 20 22 20 HT OF " A$(6) "
02C320: 41 4E 44 20 22 20 41 24 28 36 29 20 22 20 43 4F AND " A$(6) " CO
02C330: 56 45 52 53 20 22 3B 20 0D 0A 31 34 33 30 20 50 VERS "; ..1430 P
02C340: 52 49 4E 54 20 22 4F 4E 20 54 48 45 20 4C 4F 4F RINT "ON THE LOO
02C350: 53 45 20 50 55 43 4B 21 22 3A 47 4F 54 4F 20 31 SE PUCK!":GOTO 1
02C360: 35 34 30 20 0D 0A 31 34 34 30 20 50 52 49 4E 54 540 ..1440 PRINT
02C370: 20 22 53 4B 41 54 45 20 53 41 56 45 20 42 59 20 "SKATE SAVE BY
02C380: 22 20 41 24 28 36 29 0D 0A 31 34 35 30 20 50 52 " A$(6)..1450 PR
02C390: 49 4E 54 20 41 24 28 36 29 20 22 20 57 48 41 43 INT A$(6) " WHAC
02C3A0: 4B 53 20 54 48 45 20 4C 4F 4F 53 45 20 50 55 43 KS THE LOOSE PUC
02C3B0: 4B 20 49 4E 54 4F 20 54 48 45 20 53 54 41 4E 44 K INTO THE STAND
02C3C0: 53 22 20 0D 0A 31 34 36 30 20 47 4F 54 4F 20 31 S" ..1460 GOTO 1
02C3D0: 35 34 30 0D 0A 31 34 37 30 20 50 52 49 4E 54 20 540..1470 PRINT
02C3E0: 22 53 54 49 43 4B 20 53 41 56 45 20 42 59 20 22 "STICK SAVE BY "
02C3F0: 20 41 24 28 36 29 20 22 20 41 4E 44 20 48 45 20 A$(6) " AND HE
02C400: 43 4C 45 41 52 53 20 49 54 20 4F 55 54 20 48 49 CLEARS IT OUT HI
02C410: 4D 53 45 4C 46 22 20 0D 0A 31 34 38 30 20 47 4F MSELF" ..1480 GO
02C420: 54 4F 20 32 36 30 20 0D 0A 31 34 39 30 20 50 52 TO 260 ..1490 PR
02C430: 49 4E 54 20 22 4B 49 43 4B 45 44 20 4F 55 54 20 INT "KICKED OUT
02C440: 42 59 20 22 20 41 24 28 36 29 20 0D 0A 31 35 30 BY " A$(6) ..150
02C450: 30 20 50 52 49 4E 54 20 22 41 4E 44 20 49 54 20 0 PRINT "AND IT
02C460: 52 45 42 4F 55 4E 44 53 20 41 4C 4C 20 54 48 45 REBOUNDS ALL THE
02C470: 20 57 41 59 20 54 4F 20 43 45 4E 54 45 52 20 49 WAY TO CENTER I
02C480: 43 45 22 20 20 0D 0A 31 35 31 30 20 47 4F 54 4F CE" ..1510 GOTO
02C490: 20 32 36 30 20 0D 0A 31 35 32 30 20 50 52 49 4E 260 ..1520 PRIN
02C4A0: 54 20 22 47 4C 4F 56 45 20 53 41 56 45 20 22 20 T "GLOVE SAVE "
02C4B0: 41 24 28 36 29 20 22 20 41 4E 44 20 48 45 20 48 A$(6) " AND HE H
02C4C0: 41 4E 47 53 20 4F 4E 22 20 0D 0A 31 35 33 30 20 ANGS ON" ..1530
02C4D0: 47 4F 54 4F 20 31 35 34 30 0D 0A 31 35 34 30 20 GOTO 1540..1540
02C4E0: 4E 45 58 54 20 4C 3A 46 4F 52 20 4E 3D 31 20 54 NEXT L:FOR N=1 T
02C4F0: 4F 20 33 30 3A 50 52 49 4E 54 20 43 48 52 24 28 O 30:PRINT CHR$(
02C500: 3D 49 4E 54 28 31 30 30 2A 52 4E 44 28 58 29 29 =INT(100*RND(X))
02C510: 2B 31 0D 0A 39 35 30 20 49 46 20 49 4E 54 28 48 +1..950 IF INT(H
02C520: 28 32 30 29 2F 5A 29 3D 48 28 32 30 29 2F 5A 20 (20)/Z)=H(20)/Z
02C530: 54 48 45 4E 20 31 31 36 30 0D 0A 39 36 30 20 4F THEN 1160..960 O
02C540: 4E 20 43 20 47 4F 54 4F 20 39 37 30 2C 39 38 30 N C GOTO 970,980
02C550: 0D 0A 39 37 30 20 50 52 49 4E 54 20 22 47 4F 41 ..970 PRINT "GOA
02C560: 4C 20 22 20 41 24 28 37 29 3A 48 28 39 29 3D 48 L " A$(7):H(9)=H
02C570: 28 39 29 2B 31 3A 47 4F 54 4F 20 39 39 30 20 0D (9)+1:GOTO 990 .
02C580: 0A 39 38 30 20 50 52 49 4E 54 20 22 53 43 4F 52 .980 PRINT "SCOR
02C590: 45 20 22 20 42 24 28 37 29 3A 48 28 38 29 3D 48 E " B$(7):H(8)=H
02C5A0: 28 38 29 2B 31 20 20 20 0D 0A 39 39 30 20 46 4F (8)+1 ..990 FO
02C5B0: 52 20 42 31 3D 31 20 54 4F 20 32 35 3A 50 52 49 R B1=1 TO 25:PRI
02C5C0: 4E 54 20 43 48 52 24 28 37 29 3B 3A 4E 45 58 54 NT CHR$(7);:NEXT
02C5D0: 20 42 31 3A 50 52 49 4E 54 0D 0A 31 30 30 30 20 B1:PRINT..1000
02C5E0: 50 52 49 4E 54 20 22 53 43 4F 52 45 3A 20 22 3B PRINT "SCORE: ";
02C5F0: 3A 49 46 20 48 28 38 29 3E 48 28 39 29 20 54 48 :IF H(8)>H(9) TH
02C600: 45 4E 20 31 30 32 30 0D 0A 31 30 31 30 20 50 52 EN 1020..1010 PR
02C610: 49 4E 54 20 41 24 28 37 29 22 3A 22 3B 48 28 39 INT A$(7)":";H(9
02C620: 29 2C 42 24 28 37 29 22 3A 22 3B 48 28 38 29 3A ),B$(7)":";H(8):
02C630: 47 4F 54 4F 20 31 30 33 30 0D 0A 31 30 32 30 20 GOTO 1030..1020
02C640: 50 52 49 4E 54 20 42 24 28 37 29 22 3A 22 3B 48 PRINT B$(7)":";H
02C650: 28 38 29 2C 41 24 28 37 29 22 3A 22 3B 48 28 39 (8),A$(7)":";H(9
02C660: 29 20 20 0D 0A 31 30 33 30 20 4F 4E 20 43 20 47 ) ..1030 ON C G
02C670: 4F 54 4F 20 31 30 34 30 2C 31 31 30 30 0D 0A 31 OTO 1040,1100..1
02C680: 30 34 30 20 50 52 49 4E 54 20 22 47 4F 41 4C 20 040 PRINT "GOAL
02C690: 53 43 4F 52 45 44 20 42 59 3A 20 22 20 41 24 28 SCORED BY: " A$(
02C6A0: 47 29 3A 49 46 20 47 31 3D 30 20 54 48 45 4E 20 G):IF G1=0 THEN
02C6B0: 31 30 37 30 0D 0A 31 30 35 30 20 49 46 20 47 32 1070..1050 IF G2
02C6C0: 3D 30 20 54 48 45 4E 20 31 30 38 30 0D 0A 31 30 =0 THEN 1080..10
02C6D0: 36 30 20 50 52 49 4E 54 20 22 20 41 53 53 49 53 60 PRINT " ASSIS
02C6E0: 54 45 44 20 42 59 3A 20 22 20 41 24 28 47 31 29 TED BY: " A$(G1)
02C6F0: 20 22 20 41 4E 44 20 22 20 41 24 28 47 32 29 3A " AND " A$(G2):
02C700: 37 29 3B 3A 4E 45 58 54 20 4E 3A 50 52 49 4E 54 7);:NEXT N:PRINT
02C710: 20 22 54 48 41 54 27 53 20 54 48 45 20 53 49 52 "THAT'S THE SIR
02C720: 45 4E 22 0D 0A 31 35 35 30 20 50 52 49 4E 54 3A EN"..1550 PRINT:
02C730: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 46 PRINT TAB(15);"F
02C740: 49 4E 41 4C 20 53 43 4F 52 45 3A 22 0D 0A 31 35 INAL SCORE:"..15
02C750: 36 30 20 49 46 20 48 28 38 29 3E 48 28 39 29 20 60 IF H(8)>H(9)
02C760: 54 48 45 4E 20 31 35 38 30 0D 0A 31 35 37 30 20 THEN 1580..1570
02C770: 50 52 49 4E 54 20 41 24 28 37 29 22 3A 22 3B 48 PRINT A$(7)":";H
02C780: 28 39 29 2C 42 24 28 37 29 22 3A 22 3B 48 28 38 (9),B$(7)":";H(8
02C790: 29 3A 47 4F 54 4F 20 31 35 39 30 0D 0A 31 35 38 ):GOTO 1590..158
02C7A0: 30 20 50 52 49 4E 54 20 42 24 28 37 29 22 3A 22 0 PRINT B$(7)":"
02C7B0: 3B 48 28 38 29 2C 41 24 28 37 29 22 3A 22 3B 48 ;H(8),A$(7)":";H
02C7C0: 28 39 29 0D 0A 31 35 39 30 20 50 52 49 4E 54 3A (9)..1590 PRINT:
02C7D0: 20 50 52 49 4E 54 20 54 41 42 28 31 30 29 3B 22 PRINT TAB(10);"
02C7E0: 53 43 4F 52 49 4E 47 20 53 55 4D 4D 41 52 59 22 SCORING SUMMARY"
02C7F0: 3A 50 52 49 4E 54 0D 0A 31 36 30 30 20 50 52 49 :PRINT..1600 PRI
02C800: 4E 54 20 54 41 42 28 32 35 29 3B 41 24 28 37 29 NT TAB(25);A$(7)
02C810: 0D 0A 31 36 31 30 20 50 52 49 4E 54 20 54 41 42 ..1610 PRINT TAB
02C820: 28 35 29 3B 22 4E 41 4D 45 22 3B 54 41 42 28 32 (5);"NAME";TAB(2
02C830: 30 29 3B 22 47 4F 41 4C 53 22 3B 54 41 42 28 33 0);"GOALS";TAB(3
02C840: 35 29 3B 22 41 53 53 49 53 54 53 22 0D 0A 31 36 5);"ASSISTS"..16
02C850: 32 30 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 20 PRINT TAB(5);
02C860: 22 2D 2D 2D 2D 22 3B 54 41 42 28 32 30 29 3B 22 "----";TAB(20);"
02C870: 2D 2D 2D 2D 2D 22 3B 54 41 42 28 33 35 29 3B 22 -----";TAB(35);"
02C880: 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 31 36 33 30 20 46 -------"..1630 F
02C890: 4F 52 20 49 3D 31 20 54 4F 20 35 3A 50 52 49 4E OR I=1 TO 5:PRIN
02C8A0: 54 20 54 41 42 28 35 29 3B 41 24 28 49 29 3B 54 T TAB(5);A$(I);T
02C8B0: 41 42 28 32 31 29 3B 54 28 49 29 3B 54 41 42 28 AB(21);T(I);TAB(
02C8C0: 33 36 29 3B 54 31 28 49 29 20 0D 0A 31 36 34 30 36);T1(I) ..1640
02C8D0: 20 4E 45 58 54 20 49 3A 50 52 49 4E 54 20 0D 0A NEXT I:PRINT ..
02C8E0: 31 36 35 30 20 50 52 49 4E 54 20 54 41 42 28 32 1650 PRINT TAB(2
02C8F0: 35 29 3B 42 24 28 37 29 0D 0A 31 36 36 30 20 50 5);B$(7)..1660 P
02C900: 47 4F 54 4F 20 31 30 39 30 20 0D 0A 31 30 37 30 GOTO 1090 ..1070
02C910: 20 50 52 49 4E 54 20 22 20 55 4E 41 53 53 49 53 PRINT " UNASSIS
02C920: 54 45 44 2E 22 3A 47 4F 54 4F 20 31 30 39 30 0D TED.":GOTO 1090.
02C930: 0A 31 30 38 30 20 50 52 49 4E 54 20 22 20 41 53 .1080 PRINT " AS
02C940: 53 49 53 54 45 44 20 42 59 3A 20 22 20 41 24 28 SISTED BY: " A$(
02C950: 47 31 29 0D 0A 31 30 39 30 20 54 28 47 29 3D 54 G1)..1090 T(G)=T
02C960: 28 47 29 2B 31 3A 54 31 28 47 31 29 3D 54 31 28 (G)+1:T1(G1)=T1(
02C970: 47 31 29 2B 31 3A 54 31 28 47 32 29 3D 54 31 28 G1)+1:T1(G2)=T1(
02C980: 47 32 29 2B 31 3A 47 4F 54 4F 20 31 35 34 30 0D G2)+1:GOTO 1540.
02C990: 0A 31 31 30 30 20 50 52 49 4E 54 20 22 47 4F 41 .1100 PRINT "GOA
02C9A0: 4C 20 53 43 4F 52 45 44 20 42 59 3A 20 22 20 42 L SCORED BY: " B
02C9B0: 24 28 47 29 3B 0D 0A 31 31 31 30 20 49 46 20 47 $(G);..1110 IF G
02C9C0: 31 3D 30 20 54 48 45 4E 20 31 31 33 30 0D 0A 31 1=0 THEN 1130..1
02C9D0: 31 31 35 20 49 46 20 47 32 3D 30 20 54 48 45 4E 115 IF G2=0 THEN
02C9E0: 20 31 31 34 30 0D 0A 31 31 32 30 20 50 52 49 4E 1140..1120 PRIN
02C9F0: 54 20 22 20 41 53 53 49 53 54 45 44 20 42 59 3A T " ASSISTED BY:
02CA00: 20 22 20 42 24 28 47 31 29 20 22 20 41 4E 44 20 " B$(G1) " AND
02CA10: 22 20 42 24 28 47 32 29 3A 47 4F 54 4F 20 31 31 " B$(G2):GOTO 11
02CA20: 35 30 20 0D 0A 31 31 33 30 20 50 52 49 4E 54 20 50 ..1130 PRINT
02CA30: 22 20 55 4E 41 53 53 49 53 54 45 44 22 3A 47 4F " UNASSISTED":GO
02CA40: 54 4F 20 31 31 35 30 0D 0A 31 31 34 30 20 50 52 TO 1150..1140 PR
02CA50: 49 4E 54 20 22 20 41 53 53 49 53 54 45 44 20 42 INT " ASSISTED B
02CA60: 59 3A 20 22 20 42 24 28 47 31 29 3A 47 4F 54 4F Y: " B$(G1):GOTO
02CA70: 20 31 31 35 30 0D 0A 31 31 35 30 20 54 32 28 47 1150..1150 T2(G
02CA80: 29 3D 54 32 28 47 29 2B 31 3A 54 33 28 47 31 29 )=T2(G)+1:T3(G1)
02CA90: 3D 54 33 28 47 31 29 2B 31 3A 54 33 28 47 32 29 =T3(G1)+1:T3(G2)
02CAA0: 3D 54 33 28 47 32 29 2B 31 3A 47 4F 54 4F 20 31 =T3(G2)+1:GOTO 1
02CAB0: 35 34 30 0D 0A 31 31 36 30 20 41 32 3D 49 4E 54 540..1160 A2=INT
02CAC0: 28 31 30 30 2A 52 4E 44 28 58 29 29 2B 31 3A 49 (100*RND(X))+1:I
02CAD0: 46 20 49 4E 54 28 41 32 2F 34 29 3D 41 32 2F 34 F INT(A2/4)=A2/4
02CAE0: 20 54 48 45 4E 20 31 31 37 30 0D 0A 31 31 36 35 THEN 1170..1165
02CAF0: 20 47 4F 54 4F 20 31 32 30 30 0D 0A 31 31 37 30 GOTO 1200..1170
02CB00: 52 49 4E 54 20 54 41 42 28 35 29 3B 22 4E 41 4D RINT TAB(5);"NAM
02CB10: 45 22 3B 54 41 42 28 32 30 29 3B 22 47 4F 41 4C E";TAB(20);"GOAL
02CB20: 53 22 3B 54 41 42 28 33 35 29 3B 22 41 53 53 49 S";TAB(35);"ASSI
02CB30: 53 54 53 22 20 20 0D 0A 31 36 37 30 20 50 52 49 STS" ..1670 PRI
02CB40: 4E 54 20 54 41 42 28 35 29 3B 22 2D 2D 2D 2D 22 NT TAB(5);"----"
02CB50: 3B 54 41 42 28 32 30 29 3B 22 2D 2D 2D 2D 2D 22 ;TAB(20);"-----"
02CB60: 3B 54 41 42 28 33 35 29 3B 22 2D 2D 2D 2D 2D 2D ;TAB(35);"------
02CB70: 2D 22 0D 0A 31 36 38 30 20 46 4F 52 20 54 3D 31 -"..1680 FOR T=1
02CB80: 20 54 4F 20 35 3A 50 52 49 4E 54 20 54 41 42 28 TO 5:PRINT TAB(
02CB90: 35 29 3B 42 24 28 54 29 3B 54 41 42 28 32 31 29 5);B$(T);TAB(21)
02CBA0: 3B 54 32 28 54 29 3B 54 41 42 28 33 36 29 3B 54 ;T2(T);TAB(36);T
02CBB0: 33 28 54 29 0D 0A 31 36 39 30 20 4E 45 58 54 20 3(T)..1690 NEXT
02CBC0: 54 3A 50 52 49 4E 54 20 0D 0A 31 37 30 30 20 50 T:PRINT ..1700 P
02CBD0: 52 49 4E 54 20 22 53 48 4F 54 53 20 4F 4E 20 4E RINT "SHOTS ON N
02CBE0: 45 54 22 3A 50 52 49 4E 54 20 41 24 28 37 29 22 ET":PRINT A$(7)"
02CBF0: 3A 22 3B 53 32 3A 50 52 49 4E 54 20 42 24 28 37 :";S2:PRINT B$(7
02CC00: 29 22 3A 22 3B 53 33 20 0D 0A 31 37 31 30 20 45 )":";S3 ..1710 E
02CC10: 4E 44 0D 0A 31 37 32 30 20 50 52 49 4E 54 3A 20 ND..1720 PRINT:
02CC20: 50 52 49 4E 54 20 22 54 48 49 53 20 49 53 20 41 PRINT "THIS IS A
02CC30: 20 53 49 4D 55 4C 41 54 45 44 20 48 4F 43 4B 45 SIMULATED HOCKE
02CC40: 59 20 47 41 4D 45 2E 22 0D 0A 31 37 33 30 20 50 Y GAME."..1730 P
02CC50: 52 49 4E 54 20 22 51 55 45 53 54 49 4F 4E 20 20 RINT "QUESTION
02CC60: 20 20 20 52 45 53 50 4F 4E 53 45 22 0D 0A 31 37 RESPONSE"..17
02CC70: 34 30 20 50 52 49 4E 54 20 22 50 41 53 53 20 20 40 PRINT "PASS
02CC80: 20 20 20 20 20 20 20 54 59 50 45 20 49 4E 20 54 TYPE IN T
02CC90: 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 50 41 53 HE NUMBER OF PAS
02CCA0: 53 45 53 20 59 4F 55 20 57 4F 55 4C 44 22 0D 0A SES YOU WOULD"..
02CCB0: 31 37 35 30 20 50 52 49 4E 54 20 22 20 20 20 20 1750 PRINT "
02CCC0: 20 20 20 20 20 20 20 20 20 4C 49 4B 45 20 54 4F LIKE TO
02CCD0: 20 4D 41 4B 45 2C 20 46 52 4F 4D 20 30 20 54 4F MAKE, FROM 0 TO
02CCE0: 20 33 2E 22 0D 0A 31 37 36 30 20 50 52 49 4E 54 3."..1760 PRINT
02CCF0: 20 22 53 48 4F 54 20 20 20 20 20 20 20 20 20 54 "SHOT T
02CD00: 20 4F 4E 20 43 20 47 4F 54 4F 20 31 31 38 30 2C ON C GOTO 1180,
02CD10: 31 31 39 30 0D 0A 31 31 38 30 20 50 52 49 4E 54 1190..1180 PRINT
02CD20: 20 22 53 41 56 45 20 22 20 42 24 28 36 29 20 22 "SAVE " B$(6) "
02CD30: 20 2D 2D 20 20 52 45 42 4F 55 4E 44 22 3A 47 4F -- REBOUND":GO
02CD40: 54 4F 20 39 34 30 0D 0A 31 31 39 30 20 50 52 49 TO 940..1190 PRI
02CD50: 4E 54 20 22 53 41 56 45 20 22 20 41 24 28 36 29 NT "SAVE " A$(6)
02CD60: 20 22 20 2D 2D 20 20 46 4F 4C 4C 4F 57 20 55 50 " -- FOLLOW UP
02CD70: 22 3A 47 4F 54 4F 20 39 34 30 0D 0A 31 32 30 30 ":GOTO 940..1200
02CD80: 20 53 31 3D 49 4E 54 28 36 2A 52 4E 44 28 58 29 S1=INT(6*RND(X)
02CD90: 29 2B 31 20 0D 0A 31 32 31 30 20 4F 4E 20 43 20 )+1 ..1210 ON C
02CDA0: 47 4F 54 4F 20 31 32 32 30 2C 31 33 38 30 0D 0A GOTO 1220,1380..
02CDB0: 31 32 32 30 20 4F 4E 20 53 31 20 47 4F 54 4F 20 1220 ON S1 GOTO
02CDC0: 31 32 33 30 2C 31 32 36 30 2C 31 32 39 30 2C 31 1230,1260,1290,1
02CDD0: 33 30 30 2C 31 33 33 30 2C 31 33 35 30 20 0D 0A 300,1330,1350 ..
02CDE0: 31 32 33 30 20 50 52 49 4E 54 20 22 4B 49 43 4B 1230 PRINT "KICK
02CDF0: 20 53 41 56 45 20 41 4E 44 20 41 20 42 45 41 55 SAVE AND A BEAU
02CE00: 54 59 20 42 59 20 22 20 42 24 28 36 29 0D 0A 31 TY BY " B$(6)..1
02CE10: 32 34 30 20 50 52 49 4E 54 20 22 43 4C 45 41 52 240 PRINT "CLEAR
02CE20: 45 44 20 4F 55 54 20 42 59 20 22 20 42 24 28 33 ED OUT BY " B$(3
02CE30: 29 0D 0A 31 32 35 30 20 47 4F 54 4F 20 32 36 30 )..1250 GOTO 260
02CE40: 20 0D 0A 31 32 36 30 20 50 52 49 4E 54 20 22 57 ..1260 PRINT "W
02CE50: 48 41 54 20 41 20 53 50 45 43 54 41 43 55 4C 41 HAT A SPECTACULA
02CE60: 52 20 47 4C 4F 56 45 20 53 41 56 45 20 42 59 20 R GLOVE SAVE BY
02CE70: 22 20 42 24 28 36 29 0D 0A 31 32 37 30 20 50 52 " B$(6)..1270 PR
02CE80: 49 4E 54 20 22 41 4E 44 20 22 20 42 24 28 36 29 INT "AND " B$(6)
02CE90: 20 22 20 47 4F 4C 46 53 20 49 54 20 49 4E 54 4F " GOLFS IT INTO
02CEA0: 20 54 48 45 20 43 52 4F 57 44 22 0D 0A 31 32 38 THE CROWD"..128
02CEB0: 30 20 47 4F 54 4F 20 31 35 34 30 0D 0A 31 32 39 0 GOTO 1540..129
02CEC0: 30 20 50 52 49 4E 54 20 22 53 4B 41 54 45 20 53 0 PRINT "SKATE S
02CED0: 41 56 45 20 4F 4E 20 41 20 4C 4F 57 20 53 54 45 AVE ON A LOW STE
02CEE0: 41 4D 45 52 20 42 59 20 22 20 42 24 28 36 29 3A AMER BY " B$(6):
02CEF0: 47 4F 54 4F 20 32 36 30 20 0D 0A 31 33 30 30 20 GOTO 260 ..1300
02CF00: 59 50 45 20 54 48 45 20 4E 55 4D 42 45 52 20 43 YPE THE NUMBER C
02CF10: 4F 52 52 45 53 50 4F 4E 44 49 4E 47 20 54 4F 20 ORRESPONDING TO
02CF20: 54 48 45 20 53 48 4F 54 22 0D 0A 31 37 37 30 20 THE SHOT"..1770
02CF30: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 PRINT "
02CF40: 20 20 20 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 YOU WANT TO
02CF50: 4D 41 4B 45 2E 20 20 45 4E 54 45 52 3A 22 0D 0A MAKE. ENTER:"..
02CF60: 31 37 38 30 20 50 52 49 4E 54 20 22 20 20 20 20 1780 PRINT "
02CF70: 20 20 20 20 20 20 20 20 20 31 20 46 4F 52 20 41 1 FOR A
02CF80: 20 53 4C 41 50 53 48 4F 54 22 0D 0A 31 37 39 30 SLAPSHOT"..1790
02CF90: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
02CFA0: 20 20 20 20 20 32 20 46 4F 52 20 41 20 57 52 49 2 FOR A WRI
02CFB0: 53 54 53 48 4F 54 22 0D 0A 31 38 30 30 20 50 52 STSHOT"..1800 PR
02CFC0: 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 20 INT "
02CFD0: 20 20 33 20 46 4F 52 20 41 20 42 41 43 4B 48 41 3 FOR A BACKHA
02CFE0: 4E 44 22 0D 0A 31 38 31 30 20 50 52 49 4E 54 20 ND"..1810 PRINT
02CFF0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 34 20 " 4
02D000: 46 4F 52 20 41 20 53 4E 41 50 20 53 48 4F 54 22 FOR A SNAP SHOT"
02D010: 0D 0A 31 38 32 30 20 50 52 49 4E 54 20 22 41 52 ..1820 PRINT "AR
02D020: 45 41 20 20 20 20 20 20 20 20 20 54 59 50 45 20 EA TYPE
02D030: 49 4E 20 54 48 45 20 4E 55 4D 42 45 52 20 43 4F IN THE NUMBER CO
02D040: 52 52 45 53 50 4F 4E 44 49 4E 47 20 54 4F 22 0D RRESPONDING TO".
02D050: 0A 31 38 33 30 20 50 52 49 4E 54 20 22 20 20 20 .1830 PRINT "
02D060: 20 20 20 20 20 20 20 20 20 20 54 48 45 20 41 52 THE AR
02D070: 45 41 20 59 4F 55 20 41 52 45 20 41 49 4D 49 4E EA YOU ARE AIMIN
02D080: 47 20 41 54 2E 20 20 45 4E 54 45 52 3A 22 0D 0A G AT. ENTER:"..
02D090: 31 38 34 30 20 50 52 49 4E 54 20 22 20 20 20 20 1840 PRINT "
02D0A0: 20 20 20 20 20 20 20 20 20 31 20 46 4F 52 20 55 1 FOR U
02D0B0: 50 50 45 52 20 4C 45 46 54 20 48 41 4E 44 20 43 PPER LEFT HAND C
02D0C0: 4F 52 4E 45 52 22 0D 0A 31 38 35 30 20 50 52 49 ORNER"..1850 PRI
02D0D0: 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 NT "
02D0E0: 20 32 20 46 4F 52 20 55 50 50 45 52 20 52 49 47 2 FOR UPPER RIG
02D0F0: 48 54 20 48 41 4E 44 20 43 4F 52 4E 45 52 22 0D HT HAND CORNER".
02D100: 50 52 49 4E 54 20 22 50 41 44 20 53 41 56 45 20 PRINT "PAD SAVE
02D110: 42 59 20 22 20 42 24 28 36 29 20 22 20 4F 46 46 BY " B$(6) " OFF
02D120: 20 54 48 45 20 53 54 49 43 4B 22 20 0D 0A 31 33 THE STICK" ..13
02D130: 31 30 20 50 52 49 4E 54 20 22 4F 46 20 22 41 24 10 PRINT "OF "A$
02D140: 28 47 29 20 22 20 41 4E 44 20 22 20 42 24 28 36 (G) " AND " B$(6
02D150: 29 20 22 20 43 4F 56 45 52 53 20 55 50 22 0D 0A ) " COVERS UP"..
02D160: 31 33 32 30 20 47 4F 54 4F 20 31 35 34 30 0D 0A 1320 GOTO 1540..
02D170: 31 33 33 30 20 50 52 49 4E 54 20 22 57 48 49 53 1330 PRINT "WHIS
02D180: 54 4C 45 53 20 4F 4E 45 20 4F 56 45 52 20 54 48 TLES ONE OVER TH
02D190: 45 20 48 45 41 44 20 4F 46 20 22 20 42 24 28 36 E HEAD OF " B$(6
02D1A0: 29 20 0D 0A 31 33 34 30 20 47 4F 54 4F 20 32 36 ) ..1340 GOTO 26
02D1B0: 30 20 0D 0A 31 33 35 30 20 50 52 49 4E 54 20 42 0 ..1350 PRINT B
02D1C0: 24 28 36 29 20 22 20 4D 41 4B 45 53 20 41 20 46 $(6) " MAKES A F
02D1D0: 41 43 45 20 53 41 56 45 21 21 20 41 4E 44 20 48 ACE SAVE!! AND H
02D1E0: 45 20 49 53 20 48 55 52 54 22 0D 0A 31 33 36 30 E IS HURT"..1360
02D1F0: 20 50 52 49 4E 54 20 22 54 48 45 20 44 45 46 45 PRINT "THE DEFE
02D200: 4E 53 45 4D 41 4E 20 22 20 42 24 28 35 29 20 22 NSEMAN " B$(5) "
02D210: 20 43 4F 56 45 52 53 20 55 50 20 46 4F 52 20 48 COVERS UP FOR H
02D220: 49 4D 22 20 0D 0A 31 33 37 30 20 47 4F 54 4F 20 IM" ..1370 GOTO
02D230: 31 35 34 30 0D 0A 31 33 38 30 20 4F 4E 20 53 31 1540..1380 ON S1
02D240: 20 47 4F 54 4F 20 31 33 39 30 2C 31 34 31 30 2C GOTO 1390,1410,
02D250: 31 34 34 30 2C 31 34 37 30 2C 31 34 39 30 2C 31 1440,1470,1490,1
02D260: 35 32 30 20 0D 0A 31 33 39 30 20 50 52 49 4E 54 520 ..1390 PRINT
02D270: 20 22 53 54 49 43 4B 20 53 41 56 45 20 42 59 20 "STICK SAVE BY
02D280: 22 20 41 24 28 36 29 20 0D 0A 31 34 30 30 20 50 " A$(6) ..1400 P
02D290: 52 49 4E 54 20 22 41 4E 44 20 43 4C 45 41 52 45 RINT "AND CLEARE
02D2A0: 44 20 4F 55 54 20 42 59 20 22 20 41 24 28 34 29 D OUT BY " A$(4)
02D2B0: 3A 47 4F 54 4F 20 32 36 30 20 0D 0A 31 34 31 30 :GOTO 260 ..1410
02D2C0: 20 50 52 49 4E 54 20 22 4F 48 20 4D 59 20 47 4F PRINT "OH MY GO
02D2D0: 44 21 21 20 22 20 42 24 28 47 29 20 22 20 52 41 D!! " B$(G) " RA
02D2E0: 54 54 4C 45 53 20 4F 4E 45 20 4F 46 46 20 54 48 TTLES ONE OFF TH
02D2F0: 45 20 50 4F 53 54 22 20 0D 0A 31 34 32 30 20 50 E POST" ..1420 P
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 00 00 02 09 52 E5 26 00 C1 02 00 00 00 02 &.....R.&.......
02D320: 26 00 C6 02 00 00 00 02 26 00 C2 02 00 00 00 02 &.......&.......
02D330: 26 00 C7 02 00 00 00 02 26 00 C3 02 00 00 00 02 &.......&.......
02D340: 26 00 C8 02 00 00 00 02 26 00 C4 02 00 00 00 02 &.......&.......
02D350: 26 00 C9 02 00 00 00 02 26 00 C5 02 00 00 00 02 &.......&.......
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: 0A 31 38 36 30 20 50 52 49 4E 54 20 22 20 20 20 .1860 PRINT "
02D410: 20 20 20 20 20 20 20 20 20 20 33 20 46 4F 52 20 3 FOR
02D420: 4C 4F 57 45 52 20 4C 45 46 54 20 48 41 4E 44 20 LOWER LEFT HAND
02D430: 43 4F 52 4E 45 52 22 0D 0A 31 38 37 30 20 50 52 CORNER"..1870 PR
02D440: 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 20 INT "
02D450: 20 20 34 20 46 4F 52 20 4C 4F 57 45 52 20 52 49 4 FOR LOWER RI
02D460: 47 48 54 20 48 41 4E 44 20 43 4F 52 4E 45 52 22 GHT HAND CORNER"
02D470: 0D 0A 31 38 38 30 20 50 52 49 4E 54 0D 0A 31 38 ..1880 PRINT..18
02D480: 39 30 20 50 52 49 4E 54 20 22 41 54 20 54 48 45 90 PRINT "AT THE
02D490: 20 53 54 41 52 54 20 4F 46 20 54 48 45 20 47 41 START OF THE GA
02D4A0: 4D 45 2C 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 ME, YOU WILL BE
02D4B0: 41 53 4B 45 44 20 46 4F 52 20 54 48 45 20 4E 41 ASKED FOR THE NA
02D4C0: 4D 45 53 22 0D 0A 31 39 30 30 20 50 52 49 4E 54 MES"..1900 PRINT
02D4D0: 20 22 4F 46 20 59 4F 55 52 20 50 4C 41 59 45 52 "OF YOUR PLAYER
02D4E0: 53 2E 20 20 54 48 45 59 20 41 52 45 20 45 4E 54 S. THEY ARE ENT
02D4F0: 45 52 45 44 20 49 4E 20 54 48 45 20 4F 52 44 45 ERED IN THE ORDE
02D500: 52 3A 20 22 0D 0A 31 39 31 30 20 50 52 49 4E 54 R: "..1910 PRINT
02D510: 20 22 4C 45 46 54 20 57 49 4E 47 2C 20 43 45 4E "LEFT WING, CEN
02D520: 54 45 52 2C 20 52 49 47 48 54 20 57 49 4E 47 2C TER, RIGHT WING,
02D530: 20 4C 45 46 54 20 44 45 46 45 4E 53 45 2C 22 0D LEFT DEFENSE,".
02D540: 0A 31 39 32 30 20 50 52 49 4E 54 20 22 52 49 47 .1920 PRINT "RIG
02D550: 48 54 20 44 45 46 45 4E 53 45 2C 20 47 4F 41 4C HT DEFENSE, GOAL
02D560: 4B 45 45 50 45 52 2E 20 20 41 4E 59 20 4F 54 48 KEEPER. ANY OTH
02D570: 45 52 20 49 4E 50 55 54 20 52 45 51 55 49 52 45 ER INPUT REQUIRE
02D580: 44 20 57 49 4C 4C 22 0D 0A 31 39 33 30 20 50 52 D WILL"..1930 PR
02D590: 49 4E 54 20 22 48 41 56 45 20 45 58 50 4C 41 4E INT "HAVE EXPLAN
02D5A0: 41 54 4F 52 59 20 49 4E 53 54 52 55 43 54 49 4F ATORY INSTRUCTIO
02D5B0: 4E 53 2E 22 0D 0A 31 39 34 30 20 47 4F 54 4F 20 NS."..1940 GOTO
02D5C0: 39 30 0D 0A 31 39 35 30 20 45 4E 44 0D 0A 1A E5 90..1950 END....
02D5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D600: 58 58 58 58 22 0D 0A 37 33 30 20 46 4F 52 20 49 XXXX"..730 FOR I
02D610: 3D 31 20 54 4F 20 38 0D 0A 37 34 30 20 4C 45 54 =1 TO 8..740 LET
02D620: 20 4D 3D 49 0D 0A 37 35 30 20 4C 45 54 20 4D 28 M=I..750 LET M(
02D630: 49 29 3D 4D 0D 0A 37 36 30 20 4C 45 54 20 59 28 I)=M..760 LET Y(
02D640: 4D 28 49 29 29 3D 49 4E 54 28 31 30 30 2A 52 4E M(I))=INT(100*RN
02D650: 44 28 31 29 2B 31 29 0D 0A 37 37 30 20 49 46 20 D(1)+1)..770 IF
02D660: 59 28 4D 28 49 29 29 3C 31 30 20 54 48 45 4E 20 Y(M(I))<10 THEN
02D670: 38 36 30 0D 0A 37 38 30 20 4C 45 54 20 53 3D 49 860..780 LET S=I
02D680: 4E 54 28 52 2F 44 28 49 29 2B 2E 35 29 0D 0A 37 NT(R/D(I)+.5)..7
02D690: 39 30 20 49 46 20 59 28 4D 28 49 29 29 3C 53 2B 90 IF Y(M(I))<S+
02D6A0: 31 37 20 54 48 45 4E 20 38 38 30 0D 0A 38 30 30 17 THEN 880..800
02D6B0: 20 49 46 20 59 28 4D 28 49 29 29 3C 53 2B 33 37 IF Y(M(I))<S+37
02D6C0: 20 54 48 45 4E 20 39 30 30 0D 0A 38 31 30 20 49 THEN 900..810 I
02D6D0: 46 20 59 28 4D 28 49 29 29 3C 53 2B 35 37 20 54 F Y(M(I))<S+57 T
02D6E0: 48 45 4E 20 39 32 30 0D 0A 38 32 30 20 49 46 20 HEN 920..820 IF
02D6F0: 59 28 4D 28 49 29 29 3C 37 37 2B 53 20 54 48 45 Y(M(I))<77+S THE
02D700: 4E 20 39 34 30 0D 0A 38 33 30 20 49 46 20 59 28 N 940..830 IF Y(
02D710: 4D 28 49 29 29 3C 53 2B 39 32 20 54 48 45 4E 20 M(I))<S+92 THEN
02D720: 39 36 30 0D 0A 38 34 30 20 4C 45 54 20 59 28 4D 960..840 LET Y(M
02D730: 28 49 29 29 3D 37 0D 0A 38 35 30 20 47 4F 54 4F (I))=7..850 GOTO
02D740: 20 39 37 30 0D 0A 38 36 30 20 4C 45 54 20 59 28 970..860 LET Y(
02D750: 4D 28 49 29 29 3D 31 0D 0A 38 37 30 20 47 4F 54 M(I))=1..870 GOT
02D760: 4F 20 39 37 30 0D 0A 38 38 30 20 4C 45 54 20 59 O 970..880 LET Y
02D770: 28 4D 28 49 29 29 3D 32 0D 0A 38 39 30 20 47 4F (M(I))=2..890 GO
02D780: 54 4F 20 39 37 30 0D 0A 39 30 30 20 4C 45 54 20 TO 970..900 LET
02D790: 59 28 4D 28 49 29 29 3D 33 0D 0A 39 31 30 20 47 Y(M(I))=3..910 G
02D7A0: 4F 54 4F 20 39 37 30 0D 0A 39 32 30 20 4C 45 54 OTO 970..920 LET
02D7B0: 20 59 28 4D 28 49 29 29 3D 34 0D 0A 39 33 30 20 Y(M(I))=4..930
02D7C0: 47 4F 54 4F 20 39 37 30 0D 0A 39 34 30 20 4C 45 GOTO 970..940 LE
02D7D0: 54 20 59 28 4D 28 49 29 29 3D 35 0D 0A 39 35 30 T Y(M(I))=5..950
02D7E0: 20 47 4F 54 4F 20 39 37 30 0D 0A 39 36 30 20 4C GOTO 970..960 L
02D7F0: 45 54 20 59 28 4D 28 49 29 29 3D 36 0D 0A 39 37 ET Y(M(I))=6..97
02D800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02D9F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02DA00: 30 20 4E 45 58 54 20 49 0D 0A 39 38 30 20 4C 45 0 NEXT I..980 LE
02DA10: 54 20 4D 3D 49 0D 0A 39 39 30 20 46 4F 52 20 49 T M=I..990 FOR I
02DA20: 3D 31 20 54 4F 20 38 0D 0A 31 30 30 30 20 4C 45 =1 TO 8..1000 LE
02DA30: 54 20 53 28 4D 28 49 29 29 3D 53 28 4D 28 49 29 T S(M(I))=S(M(I)
02DA40: 29 2B 59 28 4D 28 49 29 29 0D 0A 31 30 31 30 20 )+Y(M(I))..1010
02DA50: 4E 45 58 54 20 49 0D 0A 31 30 32 30 20 4C 45 54 NEXT I..1020 LET
02DA60: 20 49 3D 31 0D 0A 31 30 33 30 20 46 4F 52 20 4C I=1..1030 FOR L
02DA70: 3D 31 20 54 4F 20 38 0D 0A 31 30 34 30 20 46 4F =1 TO 8..1040 FO
02DA80: 52 20 49 3D 31 20 54 4F 20 38 2D 4C 0D 0A 31 30 R I=1 TO 8-L..10
02DA90: 35 30 20 49 46 20 53 28 4D 28 49 29 29 3C 53 28 50 IF S(M(I))<S(
02DAA0: 4D 28 49 2B 31 29 29 54 48 45 4E 20 31 30 39 30 M(I+1))THEN 1090
02DAB0: 0D 0A 31 30 36 30 20 4C 45 54 20 48 3D 4D 28 49 ..1060 LET H=M(I
02DAC0: 29 0D 0A 31 30 37 30 20 4C 45 54 20 4D 28 49 29 )..1070 LET M(I)
02DAD0: 3D 4D 28 49 2B 31 29 0D 0A 31 30 38 30 20 4C 45 =M(I+1)..1080 LE
02DAE0: 54 20 4D 28 49 2B 31 29 3D 48 0D 0A 31 30 39 30 T M(I+1)=H..1090
02DAF0: 20 4E 45 58 54 20 49 0D 0A 31 31 30 30 20 4E 45 NEXT I..1100 NE
02DB00: 58 54 20 4C 0D 0A 31 31 31 30 20 4C 45 54 20 54 XT L..1110 LET T
02DB10: 3D 53 28 4D 28 38 29 29 0D 0A 31 31 32 30 20 46 =S(M(8))..1120 F
02DB20: 4F 52 20 49 3D 31 20 54 4F 20 38 0D 0A 31 31 33 OR I=1 TO 8..113
02DB30: 30 20 4C 45 54 20 42 3D 53 28 4D 28 49 29 29 2D 0 LET B=S(M(I))-
02DB40: 53 28 4D 28 49 2D 31 29 29 0D 0A 31 31 34 30 20 S(M(I-1))..1140
02DB50: 49 46 20 42 3D 30 20 54 48 45 4E 20 31 31 39 30 IF B=0 THEN 1190
02DB60: 0D 0A 31 31 35 30 20 46 4F 52 20 41 3D 31 20 54 ..1150 FOR A=1 T
02DB70: 4F 20 42 0D 0A 31 31 36 30 20 50 52 49 4E 54 0D O B..1160 PRINT.
02DB80: 0A 31 31 37 30 20 49 46 20 53 28 4D 28 49 29 29 .1170 IF S(M(I))
02DB90: 3E 32 37 20 54 48 45 4E 20 31 32 34 30 0D 0A 31 >27 THEN 1240..1
02DBA0: 31 38 30 20 4E 45 58 54 20 41 0D 0A 31 31 39 30 180 NEXT A..1190
02DBB0: 20 50 52 49 4E 54 20 4D 28 49 29 3B 0D 0A 31 32 PRINT M(I);..12
02DBC0: 30 30 20 4E 45 58 54 20 49 0D 0A 31 32 31 30 20 00 NEXT I..1210
02DBD0: 46 4F 52 20 41 3D 31 20 54 4F 20 32 38 2D 54 0D FOR A=1 TO 28-T.
02DBE0: 0A 31 32 32 30 20 50 52 49 4E 54 0D 0A 31 32 33 .1220 PRINT..123
02DBF0: 30 20 4E 45 58 54 20 41 0D 0A 31 32 34 30 20 50 0 NEXT A..1240 P
02DC00: 31 30 30 20 50 52 49 4E 54 20 54 41 42 28 33 31 100 PRINT TAB(31
02DC10: 29 3B 22 48 4F 52 53 45 52 41 43 45 22 0D 0A 31 );"HORSERACE"..1
02DC20: 31 30 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 10 PRINT TAB(15)
02DC30: 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 ;"CREATIVE COMPU
02DC40: 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E TING MORRISTOWN
02DC50: 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 31 , NEW JERSEY"..1
02DC60: 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 20 PRINT:PRINT:P
02DC70: 52 49 4E 54 0D 0A 32 31 30 20 44 49 4D 20 53 28 RINT..210 DIM S(
02DC80: 38 29 0D 0A 32 32 30 20 50 52 49 4E 54 20 22 57 8)..220 PRINT "W
02DC90: 45 4C 43 4F 4D 45 20 54 4F 20 53 4F 55 54 48 20 ELCOME TO SOUTH
02DCA0: 50 4F 52 54 4C 41 4E 44 20 48 49 47 48 20 52 41 PORTLAND HIGH RA
02DCB0: 43 45 54 52 41 43 4B 22 0D 0A 32 33 30 20 50 52 CETRACK"..230 PR
02DCC0: 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 20 INT "
02DCD0: 20 20 20 20 20 20 20 20 20 20 20 2E 2E 2E 4F 57 ...OW
02DCE0: 4E 45 44 20 42 59 20 4C 41 55 52 49 45 20 43 48 NED BY LAURIE CH
02DCF0: 45 56 41 4C 49 45 52 22 0D 0A 32 34 30 20 50 52 EVALIER"..240 PR
02DD00: 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 INT "DO YOU WANT
02DD10: 20 44 49 52 45 43 54 49 4F 4E 53 22 3B 0D 0A 32 DIRECTIONS";..2
02DD20: 35 30 20 49 4E 50 55 54 20 58 24 0D 0A 32 36 30 50 INPUT X$..260
02DD30: 20 49 46 20 58 24 3D 22 4E 4F 22 20 54 48 45 4E IF X$="NO" THEN
02DD40: 20 33 32 30 0D 0A 32 37 30 20 50 52 49 4E 54 22 320..270 PRINT"
02DD50: 55 50 20 54 4F 20 31 30 20 4D 41 59 20 50 4C 41 UP TO 10 MAY PLA
02DD60: 59 2E 20 20 41 20 54 41 42 4C 45 20 4F 46 20 4F Y. A TABLE OF O
02DD70: 44 44 53 20 57 49 4C 4C 20 42 45 20 50 52 49 4E DDS WILL BE PRIN
02DD80: 54 45 44 2E 20 20 59 4F 55 22 0D 0A 32 38 30 20 TED. YOU"..280
02DD90: 50 52 49 4E 54 22 4D 41 59 20 42 45 54 20 41 4E PRINT"MAY BET AN
02DDA0: 59 20 2B 20 41 4D 4F 55 4E 54 20 55 4E 44 45 52 Y + AMOUNT UNDER
02DDB0: 20 31 30 30 30 30 30 20 4F 4E 20 4F 4E 45 20 48 100000 ON ONE H
02DDC0: 4F 52 53 45 2E 22 0D 0A 32 39 30 20 50 52 49 4E ORSE."..290 PRIN
02DDD0: 54 20 22 44 55 52 49 4E 47 20 54 48 45 20 52 41 T "DURING THE RA
02DDE0: 43 45 2C 20 41 20 48 4F 52 53 45 20 57 49 4C 4C CE, A HORSE WILL
02DDF0: 20 42 45 20 53 48 4F 57 4E 20 42 59 20 49 54 53 BE SHOWN BY ITS
02DE00: 52 49 4E 54 20 22 58 58 58 58 46 49 4E 49 53 48 RINT "XXXXFINISH
02DE10: 58 58 58 58 22 3B 0D 0A 31 32 34 32 20 50 52 49 XXXX";..1242 PRI
02DE20: 4E 54 0D 0A 31 32 34 33 20 50 52 49 4E 54 0D 0A NT..1243 PRINT..
02DE30: 31 32 34 34 20 50 52 49 4E 54 20 22 2D 2D 2D 2D 1244 PRINT "----
02DE40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02DE50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02DE60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 31 32 34 35 ---------"..1245
02DE70: 20 50 52 49 4E 54 0D 0A 31 32 35 30 20 49 46 20 PRINT..1250 IF
02DE80: 54 3C 32 38 20 54 48 45 4E 20 37 32 30 0D 0A 31 T<28 THEN 720..1
02DE90: 32 37 30 20 50 52 49 4E 54 20 22 54 48 45 20 52 270 PRINT "THE R
02DEA0: 41 43 45 20 52 45 53 55 4C 54 53 20 41 52 45 3A ACE RESULTS ARE:
02DEB0: 22 0D 0A 31 32 37 32 20 4C 45 54 20 5A 39 3D 31 "..1272 LET Z9=1
02DEC0: 0D 0A 31 32 38 30 20 46 4F 52 20 49 3D 38 20 54 ..1280 FOR I=8 T
02DED0: 4F 20 31 20 53 54 45 50 2D 31 0D 0A 31 32 39 30 O 1 STEP-1..1290
02DEE0: 20 4C 45 54 20 46 3D 4D 28 49 29 0D 0A 31 33 30 LET F=M(I)..130
02DEF0: 30 20 50 52 49 4E 54 0D 0A 31 33 31 30 20 50 52 0 PRINT..1310 PR
02DF00: 49 4E 54 20 5A 39 3B 22 50 4C 41 43 45 20 48 4F INT Z9;"PLACE HO
02DF10: 52 53 45 20 4E 4F 2E 22 3B 46 2C 22 41 54 20 22 RSE NO.";F,"AT "
02DF20: 3B 52 2F 44 28 46 29 3B 22 3A 31 22 0D 0A 31 33 ;R/D(F);":1"..13
02DF30: 31 32 20 4C 45 54 20 5A 39 3D 5A 39 2B 31 0D 0A 12 LET Z9=Z9+1..
02DF40: 31 33 32 30 20 20 4E 45 58 54 20 49 0D 0A 31 33 1320 NEXT I..13
02DF50: 33 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 43 0D 30 FOR J=1 TO C.
02DF60: 0A 31 33 34 30 20 49 46 20 51 28 4A 29 3C 3E 4D .1340 IF Q(J)<>M
02DF70: 28 38 29 20 54 48 45 4E 20 31 33 37 30 0D 0A 31 (8) THEN 1370..1
02DF80: 33 35 30 20 4C 45 54 20 4E 3D 51 28 4A 29 0D 0A 350 LET N=Q(J)..
02DF90: 31 33 35 35 20 50 52 49 4E 54 0D 0A 31 33 36 30 1355 PRINT..1360
02DFA0: 20 50 52 49 4E 54 20 57 24 28 4A 29 3B 22 20 57 PRINT W$(J);" W
02DFB0: 49 4E 53 20 24 22 3B 28 52 2F 44 28 4E 29 29 2A INS $";(R/D(N))*
02DFC0: 50 28 4A 29 0D 0A 31 33 37 30 20 4E 45 58 54 20 P(J)..1370 NEXT
02DFD0: 4A 0D 0A 31 33 37 32 20 50 52 49 4E 54 20 22 44 J..1372 PRINT "D
02DFE0: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 42 45 O YOU WANT TO BE
02DFF0: 54 20 4F 4E 20 54 48 45 20 4E 45 58 54 20 52 41 T ON THE NEXT RA
02E000: 22 0D 0A 33 30 30 20 50 52 49 4E 54 22 4E 55 4D "..300 PRINT"NUM
02E010: 42 45 52 2E 20 20 54 48 45 20 48 4F 52 53 45 53 BER. THE HORSES
02E020: 20 52 41 43 45 20 44 4F 57 4E 20 54 48 45 20 50 RACE DOWN THE P
02E030: 41 50 45 52 21 22 0D 0A 33 31 30 20 50 52 49 4E APER!"..310 PRIN
02E040: 54 0D 0A 33 32 30 20 50 52 49 4E 54 20 22 48 4F T..320 PRINT "HO
02E050: 57 20 4D 41 4E 59 20 57 41 4E 54 20 54 4F 20 42 W MANY WANT TO B
02E060: 45 54 22 3B 0D 0A 33 33 30 20 49 4E 50 55 54 20 ET";..330 INPUT
02E070: 43 0D 0A 33 34 30 20 50 52 49 4E 54 20 22 57 48 C..340 PRINT "WH
02E080: 45 4E 20 3F 20 41 50 50 45 41 52 53 2C 54 59 50 EN ? APPEARS,TYP
02E090: 45 20 4E 41 4D 45 22 0D 0A 33 35 30 20 46 4F 52 E NAME"..350 FOR
02E0A0: 20 41 3D 31 20 54 4F 20 43 0D 0A 33 36 30 20 49 A=1 TO C..360 I
02E0B0: 4E 50 55 54 20 57 24 28 41 29 0D 0A 33 37 30 20 NPUT W$(A)..370
02E0C0: 4E 45 58 54 20 41 0D 0A 33 38 30 20 50 52 49 4E NEXT A..380 PRIN
02E0D0: 54 0D 0A 33 39 30 20 50 52 49 4E 54 22 48 4F 52 T..390 PRINT"HOR
02E0E0: 53 45 22 2C 2C 22 4E 55 4D 42 45 52 22 2C 22 4F SE",,"NUMBER","O
02E0F0: 44 44 53 22 0D 0A 34 30 30 20 50 52 49 4E 54 0D DDS"..400 PRINT.
02E100: 0A 34 31 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 .410 FOR I=1 TO
02E110: 38 3A 20 53 28 49 29 3D 30 3A 20 4E 45 58 54 20 8: S(I)=0: NEXT
02E120: 49 0D 0A 34 32 30 20 4C 45 54 20 52 3D 30 0D 0A I..420 LET R=0..
02E130: 34 33 30 20 46 4F 52 20 41 3D 31 20 54 4F 20 38 430 FOR A=1 TO 8
02E140: 0D 0A 34 34 30 20 4C 45 54 20 44 28 41 29 3D 49 ..440 LET D(A)=I
02E150: 4E 54 28 31 30 2A 52 4E 44 28 31 29 2B 31 29 0D NT(10*RND(1)+1).
02E160: 0A 34 35 30 20 4E 45 58 54 20 41 0D 0A 34 36 30 .450 NEXT A..460
02E170: 20 46 4F 52 20 41 3D 31 20 54 4F 20 38 0D 0A 34 FOR A=1 TO 8..4
02E180: 37 30 20 4C 45 54 20 52 3D 52 2B 44 28 41 29 0D 70 LET R=R+D(A).
02E190: 0A 34 38 30 20 4E 45 58 54 20 41 0D 0A 34 39 30 .480 NEXT A..490
02E1A0: 20 4C 45 54 20 56 24 28 31 29 3D 22 4A 4F 45 20 LET V$(1)="JOE
02E1B0: 4D 41 57 22 0D 0A 35 30 30 20 4C 45 54 20 56 24 MAW"..500 LET V$
02E1C0: 28 32 29 3D 22 4C 2E 42 2E 4A 2E 22 0D 0A 35 31 (2)="L.B.J."..51
02E1D0: 30 20 4C 45 54 20 56 24 28 33 29 3D 22 4D 52 2E 0 LET V$(3)="MR.
02E1E0: 57 41 53 48 42 55 52 4E 22 0D 0A 35 32 30 20 4C WASHBURN"..520 L
02E1F0: 45 54 20 56 24 28 34 29 3D 22 4D 49 53 53 20 4B ET V$(4)="MISS K
02E200: 43 45 20 3F 22 0D 0A 31 33 37 34 20 49 4E 50 55 CE ?"..1374 INPU
02E210: 54 20 22 59 45 53 20 4F 52 20 4E 4F 22 3B 20 4F T "YES OR NO"; O
02E220: 24 0D 0A 31 33 37 36 20 49 46 20 4F 24 3D 22 59 $..1376 IF O$="Y
02E230: 45 53 22 20 54 48 45 4E 20 33 38 30 0D 0A 31 33 ES" THEN 380..13
02E240: 38 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 80 END..........
02E250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E2F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E400: 41 52 45 4E 22 0D 0A 35 33 30 20 4C 45 54 20 56 AREN"..530 LET V
02E410: 24 28 35 29 3D 22 4A 4F 4C 4C 59 22 0D 0A 35 34 $(5)="JOLLY"..54
02E420: 30 20 4C 45 54 20 56 24 28 36 29 3D 22 48 4F 52 0 LET V$(6)="HOR
02E430: 53 45 22 0D 0A 35 35 30 20 4C 45 54 20 56 24 28 SE"..550 LET V$(
02E440: 37 29 3D 22 4A 45 4C 4C 59 20 44 4F 20 4E 4F 54 7)="JELLY DO NOT
02E450: 22 0D 0A 35 36 30 20 4C 45 54 20 56 24 28 38 29 "..560 LET V$(8)
02E460: 3D 22 4D 49 44 4E 49 47 48 54 22 0D 0A 35 37 30 ="MIDNIGHT"..570
02E470: 20 46 4F 52 20 4E 3D 31 20 54 4F 20 38 0D 0A 35 FOR N=1 TO 8..5
02E480: 38 30 20 50 52 49 4E 54 20 56 24 28 4E 29 2C 2C 80 PRINT V$(N),,
02E490: 4E 2C 52 2F 44 28 4E 29 3B 22 3A 31 22 0D 0A 35 N,R/D(N);":1"..5
02E4A0: 39 30 20 4E 45 58 54 20 4E 0D 0A 36 30 30 20 50 90 NEXT N..600 P
02E4B0: 52 49 4E 54 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D RINT"-----------
02E4C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02E4D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
02E4E0: 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 36 31 30 20 50 52 -------"..610 PR
02E4F0: 49 4E 54 20 22 50 4C 41 43 45 20 59 4F 55 52 20 INT "PLACE YOUR
02E500: 42 45 54 53 2E 2E 2E 48 4F 52 53 45 20 23 20 54 BETS...HORSE # T
02E510: 48 45 4E 20 41 4D 4F 55 4E 54 22 0D 0A 36 32 30 HEN AMOUNT"..620
02E520: 20 46 4F 52 20 4A 3D 31 20 54 4F 20 43 0D 0A 36 FOR J=1 TO C..6
02E530: 33 30 20 50 52 49 4E 54 20 57 24 28 4A 29 3B 0D 30 PRINT W$(J);.
02E540: 0A 36 34 30 20 49 4E 50 55 54 20 51 28 4A 29 2C .640 INPUT Q(J),
02E550: 50 28 4A 29 0D 0A 36 35 30 20 49 46 20 50 28 4A P(J)..650 IF P(J
02E560: 29 3C 31 20 54 48 45 4E 20 36 37 30 0D 0A 36 36 )<1 THEN 670..66
02E570: 30 20 49 46 20 50 28 4A 29 3C 31 30 30 30 30 30 0 IF P(J)<100000
02E580: 20 54 48 45 4E 20 36 39 30 0D 0A 36 37 30 20 50 THEN 690..670 P
02E590: 52 49 4E 54 22 20 20 59 4F 55 20 43 41 4E 27 54 RINT" YOU CAN'T
02E5A0: 20 44 4F 20 54 48 41 54 21 22 0D 0A 36 38 30 20 DO THAT!"..680
02E5B0: 47 4F 54 4F 20 36 33 30 0D 0A 36 39 30 20 4E 45 GOTO 630..690 NE
02E5C0: 58 54 20 4A 0D 0A 37 30 30 20 50 52 49 4E 54 0D XT J..700 PRINT.
02E5D0: 0A 37 31 30 20 50 52 49 4E 54 22 31 20 32 20 33 .710 PRINT"1 2 3
02E5E0: 20 34 20 35 20 36 20 37 20 38 22 0D 0A 37 32 30 4 5 6 7 8"..720
02E5F0: 20 50 52 49 4E 54 22 58 58 58 58 53 54 41 52 54 PRINT"XXXXSTART
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 00 00 02 09 52 E5 27 00 C1 02 00 00 00 02 '.....R.'.......
02E620: 27 00 C6 02 00 00 00 02 27 00 C2 02 00 00 00 02 '.......'.......
02E630: 27 00 C7 02 00 00 00 02 27 00 C3 02 00 00 00 02 '.......'.......
02E640: 27 00 C8 02 00 00 00 02 27 00 C4 02 00 00 00 02 '.......'.......
02E650: 27 00 C9 02 00 00 00 02 27 00 C5 02 00 00 00 02 '.......'.......
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E900: 32 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 3B 2 PRINT TAB(32);
02E910: 22 46 4C 49 50 46 4C 4F 50 22 0D 0A 34 20 50 52 "FLIPFLOP"..4 PR
02E920: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
02E930: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
02E940: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
02E950: 20 4A 45 52 53 45 59 22 0D 0A 36 20 50 52 49 4E JERSEY"..6 PRIN
02E960: 54 0D 0A 31 30 20 52 45 4D 20 2A 2A 2A 20 43 52 T..10 REM *** CR
02E970: 45 41 54 45 44 20 42 59 20 4D 49 43 48 41 45 4C EATED BY MICHAEL
02E980: 20 43 41 53 53 0D 0A 31 35 20 44 49 4D 20 41 24 CASS..15 DIM A$
02E990: 28 32 30 29 0D 0A 32 30 20 50 52 49 4E 54 20 22 (20)..20 PRINT "
02E9A0: 54 48 45 20 4F 42 4A 45 43 54 20 4F 46 20 54 48 THE OBJECT OF TH
02E9B0: 49 53 20 50 55 5A 5A 4C 45 20 49 53 20 54 4F 20 IS PUZZLE IS TO
02E9C0: 43 48 41 4E 47 45 20 54 48 49 53 3A 22 0D 0A 33 CHANGE THIS:"..3
02E9D0: 30 20 50 52 49 4E 54 0D 0A 34 30 20 50 52 49 4E 0 PRINT..40 PRIN
02E9E0: 54 20 22 58 20 58 20 58 20 58 20 58 20 58 20 58 T "X X X X X X X
02E9F0: 20 58 20 58 20 58 22 0D 0A 35 30 20 50 52 49 4E X X X"..50 PRIN
02EA00: 54 0D 0A 36 30 20 50 52 49 4E 54 20 22 54 4F 20 T..60 PRINT "TO
02EA10: 54 48 49 53 3A 22 0D 0A 37 30 20 50 52 49 4E 54 THIS:"..70 PRINT
02EA20: 0D 0A 38 30 20 50 52 49 4E 54 20 22 4F 20 4F 20 ..80 PRINT "O O
02EA30: 4F 20 4F 20 4F 20 4F 20 4F 20 4F 20 4F 20 4F 22 O O O O O O O O"
02EA40: 0D 0A 39 30 20 50 52 49 4E 54 0D 0A 31 30 30 20 ..90 PRINT..100
02EA50: 50 52 49 4E 54 20 22 42 59 20 54 59 50 49 4E 47 PRINT "BY TYPING
02EA60: 20 54 48 45 20 4E 55 4D 42 45 52 20 43 4F 52 52 THE NUMBER CORR
02EA70: 45 53 50 4F 4E 44 49 4E 47 20 54 4F 20 54 48 45 ESPONDING TO THE
02EA80: 20 50 4F 53 49 54 49 4F 4E 20 4F 46 20 54 48 45 POSITION OF THE
02EA90: 22 0D 0A 31 31 30 20 50 52 49 4E 54 20 22 4C 45 "..110 PRINT "LE
02EAA0: 54 54 45 52 20 4F 4E 20 53 4F 4D 45 20 4E 55 4D TTER ON SOME NUM
02EAB0: 42 45 52 53 2C 20 4F 4E 45 20 50 4F 53 49 54 49 BERS, ONE POSITI
02EAC0: 4F 4E 20 57 49 4C 4C 20 43 48 41 4E 47 45 2C 20 ON WILL CHANGE,
02EAD0: 4F 4E 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 ON"..120 PRINT "
02EAE0: 4F 54 48 45 52 53 2C 20 54 57 4F 20 57 49 4C 4C OTHERS, TWO WILL
02EAF0: 20 43 48 41 4E 47 45 2E 20 20 54 4F 20 52 45 53 CHANGE. TO RES
02EB00: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
02EB10: 3B 22 48 55 52 4B 4C 45 22 0D 0A 32 30 20 50 52 ;"HURKLE"..20 PR
02EB20: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
02EB30: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
02EB40: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
02EB50: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
02EB60: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
02EB70: 31 31 30 20 4E 3D 35 0D 0A 31 32 30 20 47 3D 31 110 N=5..120 G=1
02EB80: 30 0D 0A 32 31 30 20 50 52 49 4E 54 0D 0A 32 32 0..210 PRINT..22
02EB90: 30 20 50 52 49 4E 54 20 22 41 20 48 55 52 4B 4C 0 PRINT "A HURKL
02EBA0: 45 20 49 53 20 48 49 44 49 4E 47 20 4F 4E 20 41 E IS HIDING ON A
02EBB0: 22 3B 47 3B 22 42 59 22 3B 47 3B 22 47 52 49 44 ";G;"BY";G;"GRID
02EBC0: 2E 20 48 4F 4D 45 42 41 53 45 22 0D 0A 32 33 30 . HOMEBASE"..230
02EBD0: 20 50 52 49 4E 54 20 22 4F 4E 20 54 48 45 20 47 PRINT "ON THE G
02EBE0: 52 49 44 20 49 53 20 50 4F 49 4E 54 20 30 2C 30 RID IS POINT 0,0
02EBF0: 20 49 4E 20 54 48 45 20 53 4F 55 54 48 57 45 53 IN THE SOUTHWES
02EC00: 54 20 43 4F 52 4E 45 52 2C 22 0D 0A 32 33 35 20 T CORNER,"..235
02EC10: 50 52 49 4E 54 20 22 41 4E 44 20 41 4E 59 20 50 PRINT "AND ANY P
02EC20: 4F 49 4E 54 20 4F 4E 20 54 48 45 20 47 52 49 44 OINT ON THE GRID
02EC30: 20 49 53 20 44 45 53 49 47 4E 41 54 45 44 20 42 IS DESIGNATED B
02EC40: 59 20 41 22 0D 0A 32 34 30 20 50 52 49 4E 54 20 Y A"..240 PRINT
02EC50: 22 50 41 49 52 20 4F 46 20 57 48 4F 4C 45 20 4E "PAIR OF WHOLE N
02EC60: 55 4D 42 45 52 53 20 53 45 50 45 52 41 54 45 44 UMBERS SEPERATED
02EC70: 20 42 59 20 41 20 43 4F 4D 4D 41 2E 20 54 48 45 BY A COMMA. THE
02EC80: 20 46 49 52 53 54 22 0D 0A 32 34 35 20 50 52 49 FIRST"..245 PRI
02EC90: 4E 54 20 22 4E 55 4D 42 45 52 20 49 53 20 54 48 NT "NUMBER IS TH
02ECA0: 45 20 48 4F 52 49 5A 4F 4E 54 41 4C 20 50 4F 53 E HORIZONTAL POS
02ECB0: 49 54 49 4F 4E 20 41 4E 44 20 54 48 45 20 53 45 ITION AND THE SE
02ECC0: 43 4F 4E 44 20 4E 55 4D 42 45 52 22 0D 0A 32 34 COND NUMBER"..24
02ECD0: 36 20 50 52 49 4E 54 20 22 49 53 20 54 48 45 20 6 PRINT "IS THE
02ECE0: 56 45 52 54 49 43 41 4C 20 50 4F 53 49 54 49 4F VERTICAL POSITIO
02ECF0: 4E 2E 20 59 4F 55 20 4D 55 53 54 20 54 52 59 20 N. YOU MUST TRY
02ED00: 45 54 20 4C 49 4E 45 20 54 4F 20 41 4C 4C 20 58 ET LINE TO ALL X
02ED10: 27 53 2C 20 54 59 50 45 20 30 22 0D 0A 31 33 30 'S, TYPE 0"..130
02ED20: 20 50 52 49 4E 54 20 22 28 5A 45 52 4F 29 20 41 PRINT "(ZERO) A
02ED30: 4E 44 20 54 4F 20 53 54 41 52 54 20 4F 56 45 52 ND TO START OVER
02ED40: 20 49 4E 20 54 48 45 20 4D 49 44 44 4C 45 20 4F IN THE MIDDLE O
02ED50: 46 20 41 20 47 41 4D 45 2C 20 54 59 50 45 20 22 F A GAME, TYPE "
02ED60: 0D 0A 31 34 30 20 50 52 49 4E 54 20 22 31 31 20 ..140 PRINT "11
02ED70: 28 45 4C 45 56 45 4E 29 2E 22 0D 0A 31 37 30 20 (ELEVEN)."..170
02ED80: 50 52 49 4E 54 0D 0A 31 38 30 20 52 45 4D 0D 0A PRINT..180 REM..
02ED90: 31 39 30 20 51 3D 52 4E 44 28 31 29 0D 0A 32 30 190 Q=RND(1)..20
02EDA0: 30 20 50 52 49 4E 54 20 22 48 45 52 45 20 49 53 0 PRINT "HERE IS
02EDB0: 20 54 48 45 20 53 54 41 52 54 49 4E 47 20 4C 49 THE STARTING LI
02EDC0: 4E 45 20 4F 46 20 58 27 53 2E 22 0D 0A 32 31 30 NE OF X'S."..210
02EDD0: 20 50 52 49 4E 54 0D 0A 32 32 30 20 43 3D 30 0D PRINT..220 C=0.
02EDE0: 0A 32 33 30 20 50 52 49 4E 54 20 22 31 20 32 20 .230 PRINT "1 2
02EDF0: 33 20 34 20 35 20 36 20 37 20 38 20 39 20 31 30 3 4 5 6 7 8 9 10
02EE00: 22 0D 0A 32 34 30 20 50 52 49 4E 54 20 22 58 20 "..240 PRINT "X
02EE10: 58 20 58 20 58 20 58 20 58 20 58 20 58 20 58 20 X X X X X X X X
02EE20: 58 22 0D 0A 32 35 30 20 50 52 49 4E 54 0D 0A 32 X"..250 PRINT..2
02EE30: 36 30 20 52 45 4D 0D 0A 32 37 30 20 46 4F 52 20 60 REM..270 FOR
02EE40: 58 3D 31 20 54 4F 20 31 30 0D 0A 32 38 30 20 41 X=1 TO 10..280 A
02EE50: 24 28 58 29 3D 22 58 22 0D 0A 32 39 30 20 4E 45 $(X)="X"..290 NE
02EE60: 58 54 20 58 0D 0A 33 30 30 20 47 4F 54 4F 20 33 XT X..300 GOTO 3
02EE70: 32 30 0D 0A 33 31 30 20 50 52 49 4E 54 20 22 49 20..310 PRINT "I
02EE80: 4C 4C 45 47 41 4C 20 45 4E 54 52 59 2D 2D 54 52 LLEGAL ENTRY--TR
02EE90: 59 20 41 47 41 49 4E 2E 22 0D 0A 33 32 30 20 50 Y AGAIN."..320 P
02EEA0: 52 49 4E 54 20 22 49 4E 50 55 54 20 54 48 45 20 RINT "INPUT THE
02EEB0: 4E 55 4D 42 45 52 22 3B 0D 0A 33 33 30 20 49 4E NUMBER";..330 IN
02EEC0: 50 55 54 20 4E 0D 0A 33 34 30 20 49 46 20 4E 3C PUT N..340 IF N<
02EED0: 3E 49 4E 54 28 4E 29 20 54 48 45 4E 20 33 31 30 >INT(N) THEN 310
02EEE0: 0D 0A 33 35 30 20 49 46 20 4E 3D 31 31 20 54 48 ..350 IF N=11 TH
02EEF0: 45 4E 20 31 38 30 0D 0A 33 36 30 20 49 46 20 4E EN 180..360 IF N
02EF00: 54 4F 22 0D 0A 32 35 30 20 50 52 49 4E 54 20 22 TO"..250 PRINT "
02EF10: 47 55 45 53 53 20 54 48 45 20 48 55 52 4B 4C 45 GUESS THE HURKLE
02EF20: 27 53 20 47 52 49 44 50 4F 49 4E 54 2E 20 59 4F 'S GRIDPOINT. YO
02EF30: 55 20 47 45 54 22 3B 4E 3B 22 54 52 49 45 53 2E U GET";N;"TRIES.
02EF40: 22 0D 0A 32 36 30 20 50 52 49 4E 54 20 22 41 46 "..260 PRINT "AF
02EF50: 54 45 52 20 45 41 43 48 20 54 52 59 2C 20 49 20 TER EACH TRY, I
02EF60: 57 49 4C 4C 20 54 45 4C 4C 20 59 4F 55 20 54 48 WILL TELL YOU TH
02EF70: 45 20 41 50 50 52 4F 58 49 4D 41 54 45 22 0D 0A E APPROXIMATE"..
02EF80: 32 37 30 20 50 52 49 4E 54 20 22 44 49 52 45 43 270 PRINT "DIREC
02EF90: 54 49 4F 4E 20 54 4F 20 47 4F 20 54 4F 20 4C 4F TION TO GO TO LO
02EFA0: 4F 4B 20 46 4F 52 20 54 48 45 20 48 55 52 4B 4C OK FOR THE HURKL
02EFB0: 45 2E 22 0D 0A 32 38 30 20 50 52 49 4E 54 0D 0A E."..280 PRINT..
02EFC0: 32 38 35 20 41 3D 49 4E 54 28 47 2A 52 4E 44 28 285 A=INT(G*RND(
02EFD0: 31 29 29 0D 0A 32 38 36 20 42 3D 49 4E 54 28 47 1))..286 B=INT(G
02EFE0: 2A 52 4E 44 28 31 29 29 0D 0A 33 31 30 20 46 4F *RND(1))..310 FO
02EFF0: 52 20 4B 3D 31 20 54 4F 20 4E 0D 0A 33 32 30 20 R K=1 TO N..320
02F000: 50 52 49 4E 54 20 22 47 55 45 53 53 20 23 22 3B PRINT "GUESS #";
02F010: 4B 3B 0D 0A 33 33 30 20 49 4E 50 55 54 20 58 2C K;..330 INPUT X,
02F020: 59 0D 0A 33 34 30 20 49 46 20 41 42 53 28 58 2D Y..340 IF ABS(X-
02F030: 41 29 2B 41 42 53 28 59 2D 42 29 3D 30 20 54 48 A)+ABS(Y-B)=0 TH
02F040: 45 4E 20 35 30 30 0D 0A 33 35 30 20 52 45 4D 20 EN 500..350 REM
02F050: 50 52 49 4E 54 20 49 4E 46 4F 0D 0A 33 36 30 20 PRINT INFO..360
02F060: 47 4F 53 55 42 20 36 31 30 0D 0A 33 37 30 20 50 GOSUB 610..370 P
02F070: 52 49 4E 54 0D 0A 33 38 30 20 4E 45 58 54 20 4B RINT..380 NEXT K
02F080: 0D 0A 34 31 30 20 50 52 49 4E 54 0D 0A 34 32 30 ..410 PRINT..420
02F090: 20 50 52 49 4E 54 20 22 53 4F 52 52 59 2C 20 54 PRINT "SORRY, T
02F0A0: 48 41 54 27 53 22 3B 4E 3B 22 47 55 45 53 53 45 HAT'S";N;"GUESSE
02F0B0: 53 2E 22 0D 0A 34 33 30 20 50 52 49 4E 54 20 22 S."..430 PRINT "
02F0C0: 54 48 45 20 48 55 52 4B 4C 45 20 49 53 20 41 54 THE HURKLE IS AT
02F0D0: 20 22 3B 41 3B 22 2C 22 3B 42 0D 0A 34 34 30 20 ";A;",";B..440
02F0E0: 50 52 49 4E 54 0D 0A 34 35 30 20 50 52 49 4E 54 PRINT..450 PRINT
02F0F0: 20 22 4C 45 54 27 53 20 50 4C 41 59 20 41 47 41 "LET'S PLAY AGA
02F100: 3E 31 31 20 54 48 45 4E 20 33 31 30 0D 0A 33 37 >11 THEN 310..37
02F110: 30 20 49 46 20 4E 3D 30 20 54 48 45 4E 20 32 33 0 IF N=0 THEN 23
02F120: 30 0D 0A 33 38 30 20 49 46 20 4D 3D 4E 20 54 48 0..380 IF M=N TH
02F130: 45 4E 20 35 31 30 0D 0A 33 39 30 20 4D 3D 4E 0D EN 510..390 M=N.
02F140: 0A 34 30 30 20 49 46 20 41 24 28 4E 29 3D 22 4F .400 IF A$(N)="O
02F150: 22 20 54 48 45 4E 20 34 38 30 0D 0A 34 31 30 20 " THEN 480..410
02F160: 41 24 28 4E 29 3D 22 4F 22 0D 0A 34 32 30 20 52 A$(N)="O"..420 R
02F170: 3D 54 41 4E 28 51 2B 4E 2F 51 2D 4E 29 2D 53 49 =TAN(Q+N/Q-N)-SI
02F180: 4E 28 51 2F 4E 29 2B 33 33 36 2A 53 49 4E 28 38 N(Q/N)+336*SIN(8
02F190: 2A 4E 29 0D 0A 34 33 30 20 4E 3D 52 2D 49 4E 54 *N)..430 N=R-INT
02F1A0: 28 52 29 0D 0A 34 34 30 20 4E 3D 49 4E 54 28 31 (R)..440 N=INT(1
02F1B0: 30 2A 4E 29 0D 0A 34 35 30 20 49 46 20 41 24 28 0*N)..450 IF A$(
02F1C0: 4E 29 3D 22 4F 22 20 54 48 45 4E 20 34 38 30 0D N)="O" THEN 480.
02F1D0: 0A 34 36 30 20 41 24 28 4E 29 3D 22 4F 22 0D 0A .460 A$(N)="O"..
02F1E0: 34 37 30 20 47 4F 54 4F 20 36 31 30 0D 0A 34 38 470 GOTO 610..48
02F1F0: 30 20 41 24 28 4E 29 3D 22 58 22 0D 0A 34 39 30 0 A$(N)="X"..490
02F200: 20 49 46 20 4D 3D 4E 20 54 48 45 4E 20 34 32 30 IF M=N THEN 420
02F210: 0D 0A 35 30 30 20 47 4F 54 4F 20 36 31 30 0D 0A ..500 GOTO 610..
02F220: 35 31 30 20 49 46 20 41 24 28 4E 29 3D 22 4F 22 510 IF A$(N)="O"
02F230: 20 54 48 45 4E 20 35 39 30 0D 0A 35 32 30 20 41 THEN 590..520 A
02F240: 24 28 4E 29 3D 22 4F 22 0D 0A 35 33 30 20 52 3D $(N)="O"..530 R=
02F250: 2E 35 39 32 2A 28 31 2F 54 41 4E 28 51 2F 4E 2B .592*(1/TAN(Q/N+
02F260: 51 29 29 2F 53 49 4E 28 4E 2A 32 2B 51 29 2D 43 Q))/SIN(N*2+Q)-C
02F270: 4F 53 28 4E 29 0D 0A 35 34 30 20 4E 3D 52 2D 49 OS(N)..540 N=R-I
02F280: 4E 54 28 52 29 0D 0A 35 35 30 20 4E 3D 49 4E 54 NT(R)..550 N=INT
02F290: 28 31 30 2A 4E 29 0D 0A 35 36 30 20 49 46 20 41 (10*N)..560 IF A
02F2A0: 24 28 4E 29 3D 22 4F 22 20 54 48 45 4E 20 35 39 $(N)="O" THEN 59
02F2B0: 30 0D 0A 35 37 30 20 41 24 28 4E 29 3D 22 4F 22 0..570 A$(N)="O"
02F2C0: 0D 0A 35 38 30 20 47 4F 54 4F 20 36 31 30 0D 0A ..580 GOTO 610..
02F2D0: 35 39 30 20 41 24 28 4E 29 3D 22 58 22 0D 0A 36 590 A$(N)="X"..6
02F2E0: 30 30 20 49 46 20 4D 3D 4E 20 54 48 45 4E 20 35 00 IF M=N THEN 5
02F2F0: 33 30 0D 0A 36 31 30 20 50 52 49 4E 54 20 22 31 30..610 PRINT "1
02F300: 49 4E 2C 20 48 55 52 4B 4C 45 20 49 53 20 48 49 IN, HURKLE IS HI
02F310: 44 49 4E 47 2E 22 0D 0A 34 36 30 20 50 52 49 4E DING."..460 PRIN
02F320: 54 0D 0A 34 37 30 20 47 4F 54 4F 20 32 38 35 0D T..470 GOTO 285.
02F330: 0A 35 30 30 20 52 45 4D 0D 0A 35 31 30 20 50 52 .500 REM..510 PR
02F340: 49 4E 54 0D 0A 35 32 30 20 50 52 49 4E 54 20 22 INT..520 PRINT "
02F350: 59 4F 55 20 46 4F 55 4E 44 20 48 49 4D 20 49 4E YOU FOUND HIM IN
02F360: 22 3B 4B 3B 22 47 55 45 53 53 45 53 21 22 0D 0A ";K;"GUESSES!"..
02F370: 35 34 30 20 47 4F 54 4F 20 34 34 30 0D 0A 36 31 540 GOTO 440..61
02F380: 30 20 50 52 49 4E 54 20 22 47 4F 20 22 3B 0D 0A 0 PRINT "GO ";..
02F390: 36 32 30 20 49 46 20 59 3D 42 20 54 48 45 4E 20 620 IF Y=B THEN
02F3A0: 36 37 30 0D 0A 36 33 30 20 49 46 20 59 3C 42 20 670..630 IF Y<B
02F3B0: 54 48 45 4E 20 36 36 30 0D 0A 36 34 30 20 50 52 THEN 660..640 PR
02F3C0: 49 4E 54 20 22 53 4F 55 54 48 22 3B 0D 0A 36 35 INT "SOUTH";..65
02F3D0: 30 20 47 4F 54 4F 20 36 37 30 0D 0A 36 36 30 20 0 GOTO 670..660
02F3E0: 50 52 49 4E 54 20 22 4E 4F 52 54 48 22 3B 0D 0A PRINT "NORTH";..
02F3F0: 36 37 30 20 49 46 20 58 3D 41 20 54 48 45 4E 20 670 IF X=A THEN
02F400: 37 32 30 0D 0A 36 38 30 20 49 46 20 58 3C 41 20 720..680 IF X<A
02F410: 54 48 45 4E 20 37 31 30 0D 0A 36 39 30 20 50 52 THEN 710..690 PR
02F420: 49 4E 54 20 22 57 45 53 54 22 3B 0D 0A 37 30 30 INT "WEST";..700
02F430: 20 47 4F 54 4F 20 37 32 30 0D 0A 37 31 30 20 50 GOTO 720..710 P
02F440: 52 49 4E 54 20 22 45 41 53 54 22 3B 0D 0A 37 32 RINT "EAST";..72
02F450: 30 20 50 52 49 4E 54 0D 0A 37 33 30 20 52 45 54 0 PRINT..730 RET
02F460: 55 52 4E 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 URN..999 END....
02F470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F500: 20 32 20 33 20 34 20 35 20 36 20 37 20 38 20 39 2 3 4 5 6 7 8 9
02F510: 20 31 30 22 0D 0A 36 32 30 20 46 4F 52 20 5A 3D 10"..620 FOR Z=
02F520: 31 20 54 4F 20 31 30 3A 20 50 52 49 4E 54 20 41 1 TO 10: PRINT A
02F530: 24 28 5A 29 3B 22 20 22 3B 3A 20 4E 45 58 54 20 $(Z);" ";: NEXT
02F540: 5A 0D 0A 36 33 30 20 43 3D 43 2B 31 0D 0A 36 34 Z..630 C=C+1..64
02F550: 30 20 50 52 49 4E 54 0D 0A 36 35 30 20 46 4F 52 0 PRINT..650 FOR
02F560: 20 5A 3D 31 20 54 4F 20 31 30 0D 0A 36 36 30 20 Z=1 TO 10..660
02F570: 49 46 20 41 24 28 5A 29 3C 3E 22 4F 22 20 54 48 IF A$(Z)<>"O" TH
02F580: 45 4E 20 33 32 30 0D 0A 36 37 30 20 4E 45 58 54 EN 320..670 NEXT
02F590: 20 5A 0D 0A 36 38 30 20 49 46 20 43 3E 31 32 20 Z..680 IF C>12
02F5A0: 54 48 45 4E 20 37 31 30 0D 0A 36 39 30 20 50 52 THEN 710..690 PR
02F5B0: 49 4E 54 20 22 56 45 52 59 20 47 4F 4F 44 2E 20 INT "VERY GOOD.
02F5C0: 20 59 4F 55 20 47 55 45 53 53 45 44 20 49 54 20 YOU GUESSED IT
02F5D0: 49 4E 20 4F 4E 4C 59 22 3B 43 3B 22 47 55 45 53 IN ONLY";C;"GUES
02F5E0: 53 45 53 2E 22 0D 0A 37 30 30 20 47 4F 54 4F 20 SES."..700 GOTO
02F5F0: 37 32 30 0D 0A 37 31 30 20 50 52 49 4E 54 20 22 720..710 PRINT "
02F600: 54 52 59 20 48 41 52 44 45 52 20 4E 45 58 54 20 TRY HARDER NEXT
02F610: 54 49 4D 45 2E 20 20 49 54 20 54 4F 4F 4B 20 59 TIME. IT TOOK Y
02F620: 4F 55 22 3B 43 3B 22 47 55 45 53 53 45 53 2E 22 OU";C;"GUESSES."
02F630: 0D 0A 37 32 30 20 50 52 49 4E 54 20 22 44 4F 20 ..720 PRINT "DO
02F640: 59 4F 55 20 57 41 4E 54 20 54 4F 20 54 52 59 20 YOU WANT TO TRY
02F650: 41 4E 4F 54 48 45 52 20 50 55 5A 5A 4C 45 22 3B ANOTHER PUZZLE";
02F660: 0D 0A 37 33 30 20 49 4E 50 55 54 20 58 24 0D 0A ..730 INPUT X$..
02F670: 37 34 30 20 49 46 20 4C 45 46 54 24 28 58 24 2C 740 IF LEFT$(X$,
02F680: 31 29 3D 22 4E 22 20 54 48 45 4E 20 37 38 30 0D 1)="N" THEN 780.
02F690: 0A 37 36 30 20 50 52 49 4E 54 0D 0A 37 37 30 20 .760 PRINT..770
02F6A0: 47 4F 54 4F 20 31 38 30 0D 0A 37 38 30 20 45 4E GOTO 180..780 EN
02F6B0: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
02F6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
RESULT OF SEARCH :
PRO=24 CHEA=1 COD=6 MUSI=0 COP=2 GRA=27 WRIT=2 198=6 199=6 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File WinAPE 2.0B02 ( R3DPLOT BAS23MATCHEBASACEYDUCEBASAMAZ
ING BAS ANIMAL BAS AWARI BASBAGELS BASBANNER BASBASKETBABAS+BATNUM BASBATT
LE BAS) !"#$%BOUNCE BAS&'BOWLING BAS()*BOXING BAS+,-.BUG BAS0/01234BULLFI
GHBAS)56789BULLSEYEBASBUNNY BASBUZZWORDBASBLACKJACBASAABCDEFGHIBOMBARDMBASJKLB
OMBSAWABASMNOCIVILWARBASmPQRSTUVWXYZCOMBAT BASaCRAPS BASbcdCUBE BAS"efghiD
EPTHCHABASjkDIAMOND BASlDICE BASmDIGITS BASnopEVENWINSBASqrstCALENDARBAS uv2
0 PRINT TAB(31)"23 MATCHES" 30 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NE
W JERSEY" 40 PRINTPRINTPRINT 80 PRINT " THIS IS A GAME CALLED '23 MATCHES'."
90 PRINT 100 PRINT "WHEN IT IS YOUR TURN, YOU MAY TAKE ONE, TWO, OR THREE" 110
PRINT "MATCHES. THE OBJECT OF THE GAME IS NOT TO HAVE TO TAKE" 120 PRINT "THE
LAST MATCH." 130 PRINT 140 PRINT "LET'S FLIP A COIN TO SEE WHO GOES FIRST." 1
50 PRINT "IF IT COMES UP HEADS, I WILL WIN THE TOSS." 155 PRINT 160 REM 165 N
23 170 Q INT(2*RND(5)CHANGE BASwxCHECKERSBASyzCHEMIST BASCHIEF BAS CHOMP
BASGOMOKO BASGUESS BASGUNNER BASHAMMURABBAS!HANGMAN BASHELLO BASHEXAPAWN
BAS-HIGHIQ BASHI-LO BASHOCKEY BASD£HORSERACBAS) 180 IF Q 1 THEN 210 190 P
RINT "TAILS! YOU GO FIRST. " 195 PRINT 200 GOTO 300 210 PRINT "HEADS! I WIN!
HA! HA!" 220 PRINT "PREPARE TO LOSE, MEATBALL-NOSE!!" 230 PRINT 250 PRINT "I
TAKE 2 MATCHES" 260 N N -2 270 PRINT "THE NUMBER OF MATCHES IS NOW" N 280 PR
INT 290 PRINT "YOUR TURN -- YOU MAY TAKE 1, 2 OR 3 MATCHES." 300 PRINT "HOW MA
NY DO YOU WISH TO REMOVE", 310 INPUT K 320 IF K 3 THEN 430 330 IF K 0 THEN
430 340 N N - K 350 PRINT "THERE ARE NOW"N"MATCHES REMAINING." 351 IF HURKLE
BASFLIPFLOPBASN 4 THEN 381 352 IF N 3 THEN 383 353 IF N 2 THEN 385 360 I
F N 1 THEN 530 370 Z 4 - K 372 GOTO 390 380 PRINT 381 Z 3 382 GOTO 390
383 Z 2 384 GOTO 390 385 Z 1 390 PRINT "MY TURN ! I REMOVE" Z "MATCHES" 4
00 N N - Z 410 IF N 1 THEN 470 420 GOTO 270 430 PRINT "VERY FUNNY! DUMMY!"
440 PRINT "DO YOU WANT TO PLAY OR GOOF AROUND" 450 PRINT "NOW, HOW MANY MATCHE
S DO YOU WANT", 460 GOTO 310 470 PRINT 480 PRINT"YOU POOR BOOB! YOU TOOK THE
LAST MATCH! I GOTCHA!!" 490 PRINT 1 PRINT TAB(32)"3D PLOT" 2 PRINT TAB(15)"CRE
ATIVE COMPUTING MORRISTOWN, NEW JERSEY" 3 PRINTPRINTPRINT 5 DEF FNA(Z)30*EXP(
-Z*Z/100) 100 PRINT 110 FOR X-30 TO 30 STEP 1.5 120 L0 130 Y15*INT(SQR(900-X
*X)/5) 140 FOR YY1 TO -Y1 STEP -5 150 ZINT(25+FNA(SQR(X*X+Y*Y))-.7*Y) 160 IF
ZL THEN 190 170 LZ 180 PRINT TAB(Z)"*" 190 NEXT Y 200 PRINT 210 NEXT X 300
END R"HA ! HA ! I BEAT YOU !!!" 500 PRINT 510 PRINT "GOOD BYE LOSER!" 520
GOTO 560 530 PRINT "YOU WON, FLOPPY EARS !" 540 PRINT "THINK YOU'RE PRETTY SM
ART !" 550 PRINT "LETS PLAY AGAIN AND I'LL BLOW YOUR SHOES OFF !!" 560 STOP 5
70 END BUT YOU BLEW YOUR WAD." 1015 PRINTPRINT 1020 INPUT"TRY AGAIN (YES OR N
O)"A$ 1025 PRINTPRINT 1030 IF A$"YES" THEN 110 1040 PRINT"O.K., HOPE YOU HAD
FUN!" 1050 END 10 PRINT TAB(26)"ACEY DUCEY CARD GAME" 20 PRINT TAB(15)"CREATI
VE COMPUTING MORRISTOWN, NEW JERSEY" 21 PRINT 22 PRINT 30 PRINT"ACEY-DUCEY I
S PLAYED IN THE FOLLOWING MANNER " 40 PRINT"THE DEALER (COMPUTER) DEALS TWO CAR
DS FACE UP" 50 PRINT"YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING" 60 PRINT"
ON WHETHER OR NOT YOU FEEL THE CARD WILL HAVE" 70 PRINT"A VALUE BETWEEN THE FIR
ST TWO." 80 PRINT"IF YOU DO NOT WANT TO BET, INPUT A 0" 100 N100 110 Q100 12
0 PRINT "YOU NOW HAVE"Q"DOLLARS." 130 PRINT 140 GOTO 260 210 QQ+M 220 GOTO 1
20 240 QQ-M 250 GOTO 120 260 PRINT"HERE ARE YOUR NEXT TWO CARDS " 270 AINT(1
4*RND(1))+2 280 IF A2 THEN 270 290 IF A14 THEN 270 300 BINT(14*RND(1))+2 310
IF B2 THEN 300 320 IF B14 THEN 300 330 IF AB THEN 270 350 IF A11 THEN 400 3
60 IF A11 THEN 420 370 IF A12 THEN 440 380 IF A13 THEN 460 390 IF A14 THEN 48
0 400 PRINT A 410 GOTO 500 420 PRINT"JACK" 430 GOTO 500 440 PRINT"QUEEN" 4
50 GOTO 500 460 PRINT"KING" 470 GOTO 500 480 PRINT"ACE" 10 PRINT TAB(28)"AMAZ
ING PROGRAM" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 P
RINTPRINTPRINTPRINT 100 INPUT "WHAT ARE YOUR WIDTH AND LENGTH"H,V 102 IF H1 AN
D V1 THEN 110 104 PRINT "MEANINGLESS DIMENSIONS. TRY AGAIN."GOTO 100 110 DIM
W(H,V),V(H,V) 120 PRINT 130 PRINT 140 PRINT 150 PRINT 160 Q0Z0XINT(RND(1)*H
+1) 165 FOR I1 TO H 170 IF IX THEN 173 171 PRINT ".--"GOTO 180 173 PRINT ".
" 180 NEXT I 190 PRINT "." 195 C1W(X,1)CCC+1 200 RXS1GOT 500 IF B11 THEN 55
0 510 IF B11 THEN 570 520 IF B12 THEN 590 530 IF B13 THEN 610 540 IF B14 THE
N 630 550 PRINT B 560 GOTO 650 570 PRINT"JACK" 580 GOTO 650 590 PRINT"QUEEN
" 600 GOTO 650 610 PRINT"KING" 620 GOTO 650 630 PRINT"ACE" 640 PRINT 650 P
RINT 660 INPUT"WHAT IS YOUR BET"M 670 IF M0 THEN 680 675 PRINT"CHICKEN!!" 67
6 PRINT 677 GOTO 260 680 IF MQ THEN 730 690 PRINT"SORRY, MY FRIEND, BUT YOU B
ET TOO MUCH." 700 PRINT"YOU HAVE ONLY "Q" DOLLARS TO BET." 710 GOTO 650 730 C
O 260 210 IF RH THEN 240 215 IF SV THEN 230 220 R1S1GOTO 250 230 R1SS+1GOTO
250 240 RR+1 250 IF W(R,S)0 THEN 210 260 IF R-10 THEN 530 265 IF W(R-1,S)0 T
HEN 530 270 IF S-10 THEN 390 280 IF W(R,S-1)0 THEN 390 290 IF RH THEN 330 30
0 IF W(R+1,S)0 THEN 330 310 XINT(RND(1)*3+1) 320 ON X GOTO 790,820,860 330 IF
SV THEN 340 334 IF Z1 THEN 370 338 Q1GOTO 350 340 IF W(R,S+1)0 THEN 370 350
XINT(RND(1)*3+1) 360 ON X GOTO 790,820,910 370 XINT(RND(1)*2+1) 380 ON X GOI
NT(14*RND(1))+2 740 IF C2 THEN 730 750 IF C14 THEN 730 760 IF C11 THEN 810 7
70 IF C11 THEN 830 780 IF C12 THEN 850 790 IF C13 THEN 870 800 IF C14 THEN 89
0 810 PRINT C 820 GOTO 910 830 PRINT"JACK" 840 GOTO 910 850 PRINT"QUEEN" 8
60 GOTO 910 870 PRINT"KING" 880 GOTO 910 890 PRINT "ACE" 900 PRINT 910 IF C
A THEN 930 920 GOTO 970 930 IF CB THEN 970 950 PRINT"YOU WIN!!!" 960 GOTO 21
0 970 PRINT"SORRY, YOU LOSE" 980 IF MQ THEN 240 990 PRINT 1000 PRINT 1010 P
RINT"SORRY, FRIEND, RTO 790,820 390 IF RH THEN 470 400 IF W(R+1,S)0 THEN 470
405 IF SV THEN 420 410 IF Z1 THEN 450 415 Q1GOTO 430 420 IF W(R,S+1)0 THEN
450 430 XINT(RND(1)*3+1) 440 ON X GOTO 790,860,910 450 XINT(RND(1)*2+1) 460
ON X GOTO 790,860 470 IF SV THEN 490 480 IF Z1 THEN 520 485 Q1GOTO 500 490 I
F W(R,S+1)0 THEN 520 500 XINT(RND(1)*2+1) 510 ON X GOTO 790,910 520 GOTO 790
530 IF S-10 THEN 670 540 IF W(R,S-1)0 THEN 670 545 IF RH THEN 610 547 IF W(R
+1,S)0 THEN 610 550 IF SV THEN 560 552 IF Z1 THEN 590 554 Q1GOTO 570 560 IF
W(R,S+1)0 THEN 590 570 XINT(RND(1)*3+1) 580 ON X GOTO 820,860,910 590 XINT(RN
D(1)*2+1) 600 ON X GOTO 820,860 610 IF SV THEN 630 620 IF Z1 THEN 660 625 Q1
GOTO 640 630 IF W(R,S+1)0 THEN 660 640 XINT(RND(1)*2+1) 650 ON X GOTO 820,910
660 GOTO 820 670 IF RH THEN 740 680 IF W(R+1,S)0 THEN 740 685 IF SV THEN 70
0 690 IF Z1 THEN 730 695 Q1GOTO 830 700 IF W(R,S+1)0 THEN 730 710 XINT(RND(1
)*2+1) 720 ON X GOTO 860,910 7310 PRINT TAB(32)"ANIMAL" 20 PRINT TAB(15)"CREA
TIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT PRINT PRINT 40 PRINT "PLAY 'G
UESS THE ANIMAL'" 45 PRINT 50 PRINT "THINK OF AN ANIMAL AND THE COMPUTER WILL
TRY TO GUESS IT." 60 PRINT 70 DIM A$(200) 80 FOR I0 TO 3 90 READ A$(I) 100
NEXT I 110 NVAL(A$(0)) 120 REM MAIN CONTROL SECTION 130 INPUT "ARE Y
OU THINKING OF AN ANIMAL"A$ 140 IF A$"LIST" THEN 600 150 IF LEFT$(A$,1)"Y" THE
N 120 160 K1 170 GOSUB 390 180 IF LEN(A$(K))0 THEN0 GOTO 860 740 IF SV THEN
760 750 IF Z1 THEN 780 755 Q1GOTO 770 760 IF W(R,S+1)0 THEN 780 770 GOTO 910
780 GOTO 1000 790 W(R-1,S)C 800 CC+1V(R-1,S)2RR-1 810 IF CH*V+1 THEN 1010
815 Q0GOTO 260 820 W(R,S-1)C 830 CC+1 840 V(R,S-1)1SS-1IF CH*V+1 THEN 1010 8
50 Q0GOTO 260 860 W(R+1,S)C 870 CC+1IF V(R,S)0 THEN 880 875 V(R,S)3GOTO 890
880 V(R,S)2 890 RR+1 900 IF CH*V+1 THEN 1010 905 GOTO 530 910 IF Q1 THEN 960
920 W(R,S+1)CCC+1IF V(R,S)0 THEN 940 930 V 999 190 IF LEFT$(A$(K),2)"Q" THEN
170 200 PRINT "IS IT A "RIGHT$(A$(K),LEN(A$(K))-2) 210 INPUT A$ 220 A$LEFT$(
A$,1) 230 IF LEFT$(A$,1)"Y" THEN PRINT "WHY NOT TRY ANOTHER ANIMAL" GOTO 120 2
40 INPUT "THE ANIMAL YOU WERE THINKING OF WAS A "V$ 250 PRINT "PLEASE TYPE IN A
QUESTION THAT WOULD DISTINGUISH A" 260 PRINT V$" FROM A "RIGHT$(A$(K),LEN(A$(K
))-2) 270 INPUT X$ 280 PRINT "FOR A "V$" THE ANSWER WOULD BE " 290 INPUT A$
300 A$LEFT$(A$,1) IF A$"Y" AND A$"N" THEN 280 310 IF A$(R,S)3GOTO 950 940 V(R,
S)1 950 SS+1IF CH*V+1 THEN 1010 955 GOTO 260 960 Z1 970 IF V(R,S)0 THEN 980
975 V(R,S)3Q0GOTO 1000 980 V(R,S)1Q0R1S1GOTO 250 1000 GOTO 210 1010 FOR J1 T
O V 1011 PRINT "I" 1012 FOR I1 TO H 1013 IF V(I,J)2 THEN 1030 1020 PRINT "
" 1021 GOTO 1040 1030 PRINT " I" 1040 NEXT I 1041 PRINT 1043 FOR I1 TO H
1045 IF V(I,J)0 THEN 1060 1050 IF V(I,J)2 THEN 1060 1051 PRINT " " 1052 GOT
O 1070 1060 PRINT "--" 1070 NEXT I 1071 PRINT "." 1"Y" THEN B$"N" 320 IF A$
"N" THEN B$"Y" 330 Z1VAL(A$(0)) 340 A$(0)STR$(Z1+2) 350 A$(Z1)A$(K) 360 A$(Z
1+1)"A"+V$ 370 A$(K)"Q"+X$+""+A$+STR$(Z1+1)+""+B$+STR$(Z1)+"" 380 GOTO 120 39
0 REM SUBROUTINE TO PRINT QUESTIONS 400 Q$A$(K) 410 FOR Z3 TO LEN(Q$) 415
IF MID$(Q$,Z,1)"" THEN PRINT MID$(Q$,Z,1) NEXT Z 420 INPUT C$ 430 C$LEFT$(C$,
1) 440 IF C$"Y" AND C$"N" THEN 410 450 T$""+C$ 455 FOR X3 TO LEN(Q$)-1 460 I
F MID$(Q$,X,2)T$ THEN 480 470 NEXT X 475 STOP 480 FOR Y072 NEXT J 1073 END
RX+1 TO LEN(Q$) 490 IF MID$(Q$,Y,1)"" THEN 510 500 NEXT Y 505 STOP 510 KVA
L(MID$(Q$,X+2,Y-X-2)) 520 RETURN 530 DATA "4","QDOES IT SWIMY2N3","AFISH","ABI
RD" 600 PRINTPRINT "ANIMALS I ALREADY KNOW ARE" 605 X0 610 FOR I1 TO 200 620
IF LEFT$(A$(I),2)"A" THEN 650 624 PRINT TAB(15*X) 630 FOR Z3 TO LEN(A$(I)) 6
40 IF MID$(A$(I),Z,1)"" THEN PRINT MID$(A$(I),Z,1) NEXT Z 645 XX+1 IF X4 THEN X
0 PRINT 650 NEXT I 660 PRINT 670 PRINT 680 GOTO 120 999 END I0 TO N-1PRINT
B(I)NEXT I 999 END 5 PRINT TAB(34)"AWARI" 7 PRINT TAB(15)"CREATIVE COMPUTING
MORRISTOWN, NEW JERSEY" 10 DATA 0 15 DIM B(13),G(13),F(50)READ N 20 PRINTPR
INTE0 25 FOR I0 TO 12B(I)3NEXT I 30 C0F(N)0B(13)0B(6)0 35 GOSUB 500 40 PRINT
"YOUR MOVE"GOSUB 110 45 IF E0 THEN 80 50 IF MH THEN GOSUB 100 55 IF E0 THEN
80 60 PRINT "MY MOVE IS "GOSUB 800 65 IF E0 THEN 80 70 IF MH THEN PRINT ","GO
SUB 800 75 IF E0 THEN 35 80 PRINTPRINT"GAME OVER" 85 DB(6)-B(13)IF D0 THEN PR
INT "I WIN BY"-D"POINTS"GOTO 20 90 NN+1IF D0 THEN PRINT "DRAWN GAME"GOTO 20 95
PRINT "YOU WIN BY"D"POINTS"GOTO 20 100 PRINT "AGAIN" 110 INPUT MIF M7 THEN IF
M0 THEN MM-1GOTO 130 120 PRINT "ILLEGAL MOVE"GOTO 100 130 IF B(M)0 THEN 120
140 H6GOSUB 200 150 GOTO 500 200 KMGOSUB 600 205 E0IF K6 THEN KK-7 210 CC+1I
F C9 THEN F(N)F(N)*6+K 215 FOR I0 TO 5IF B(I)0 THEN 230 220 NEXT I 225 RETURN
230 FOR I7 TO 12IF B(I)0 THEN E1RETURN 235 GOTO 220 500 PRINTPRINT" " 505
FOR I12 T5 PRINT TAB(33)"BAGELS" 10 PRINT TAB(15)"CREATIVE COMPUTING MORRISTO
WN, NEW JERSEY"PRINTPRINT 15 REM *** BAGLES NUMBER GUESSING GAME 20 REM *** OR
IGINAL SOURCE UNKNOWN BUT SUSPECTED TO BE 25 REM *** LAWRENCE HALL OF SCIENCE,
U.C. BERKELY 30 DIM A1(6),A(3),B(3) 40 Y0T255 50 PRINTPRINTPRINT 70 INPUT "W
OULD YOU LIKE THE RULES (YES OR NO)"A$ 90 IF LEFT$(A$,1)"N" THEN 150 100 PRINT
PRINT "I AM THINKING OF A THREE-DIGIT NUMBER. TRY TO GUESS" 110 PRINT "MY NUMB
ER AND I WILL GIVE YOU CLUES AO 7 STEP -1GOSUB 580 510 NEXT I 515 PRINTI13GOSU
B 580 520 PRINT " "PRINT B(6)PRINT " " 525 FOR I0 TO 5
GOSUB 580 530 NEXT I 535 PRINTPRINTRETURN 580 IF B(I)10 THEN PRINT " " 585 P
RINT B(I)RETURN 600 PB(M)B(M)0 605 FOR PP TO 1 STEP -1MM+1IF M13 THEN MM-14 6
10 B(M)B(M)+1NEXT P 615 IF B(M)1 THEN IF M6 THEN IF M13 THEN IF B(12-M)0 THEN 6
25 620 RETURN 625 B(H)B(H)+B(12-M)+1B(M)0B(12-M)0RETURN 800 D-99H13 805 FOR
I0 TO 13G(I)B(I)S FOLLOWS" 120 PRINT " PICO - ONE DIGIT CORRECT BUT IN THE
WRONG POSITION" 130 PRINT " FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSIT
ION" 140 PRINT " BAGELS - NO DIGITS CORRECT" 150 FOR I1 TO 3 160 A(I)INT(10
*RND(1)) 165 IF I-10 THEN 200 170 FOR J1 TO I-1 180 IF A(I)A(J) THEN 160 190
NEXT J 200 NEXT I 210 PRINTPRINT "O.K. I HAVE A NUMBER IN MIND." 220 FOR I1
TO 20 230 PRINT "GUESS #"I, 240 INPUT A$ 245 IF LEN(A$)3 THEN 630 250 FOR Z
1 TO 3A1(Z)ASC(MID$(A$,Z,1))NEXT NEXT I 810 FOR J7 TO 12IF B(J)0 THEN 885 815
G0MJGOSUB 600 820 FOR I0 TO 5IF B(I)0 THEN 845 825 LB(I)+IR0 830 IF L13 THEN
LL-14R1GOTO 830 835 IF B(L)0 THEN IF L6 THEN IF L13 THEN RB(12-L)+R 840 IF RQ
THEN QR 845 NEXT I 850 QB(13)-B(6)-QIF C8 THEN 875 855 KJIF K6 THEN KK-7 860
FOR I0 TO N-1IF F(N)*6+KINT(F(I)/6(7-C)+.1) THEN QQ-2 870 NEXT I 875 FOR I0 T
O 13B(I)G(I)NEXT I 880 IF QD THEN AJDQ 885 NEXT J 890 MAPRINT CHR$(42+M)GOTO
200 900 FOR RZ 260 FOR J1 TO 3 270 IF A1(J)48 THEN 300 280 IF A1(J)57 THEN
300 285 B(J)A1(J)-48 290 NEXT J 295 GOTO 320 300 PRINT "WHAT" 310 GOTO 230
320 IF B(1)B(2) THEN 650 330 IF B(2)B(3) THEN 650 340 IF B(3)B(1) THEN 650
350 C0D0 360 FOR J1 TO 2 370 IF A(J)B(J+1) THEN 390 380 CC+1 390 IF A(J+1)B(
J) THEN 410 400 CC+1 410 NEXT J 420 IF A(1)B(3) THEN 440 430 CC+1 440 IF A(
3)B(1) THEN 460 450 CC+1 460 FOR J1 TO 3 470 IF A(J)B(J) THEN 490 480 DD+1
490 NEXT J 500 IF D0 FOR K8 TO 0 STEP -1 230 IF 2KS(U) THEN 270 240 J(9-K)0
250 GOTO 280 270 J(9-K)1 S(U)S(U)-2K 272 IF S(U)1 THEN 815 280 NEXT K 445 FO
R T11 TO X 447 PRINT TAB((63-4.5*Y)*G1/(LEN(X$))+1) 450 FOR B1 TO F(U) 460 IF
J(B)0 THEN 500 465 FOR I1 TO Y PRINT X$ NEXT I 470 GOTO 600 500 FOR I1 TO Y
510 FOR I11 TO LEN(X$) 520 PRINT " " NEXT I1 530 NEXT I 600 NEXT B 620 PRIN
T 630 NEXT T1 700 NEXT U 750 FOR H1 TO 2*X PRINT NEXT H 800 NEXT T 806 FOR
H1 TO 75 PRINT NEXT H 813 THEN 680 505 IF C0 THEN 545 520 FOR J1 TO C 530 PR
INT "PICO " 540 NEXT J 545 IF D0 THEN 580 550 FOR J1 TO D 560 PRINT "FERMI "
570 NEXT J 580 IF C+D0 THEN 600 590 PRINT "BAGELS" 600 PRINT 605 NEXT I 6
10 PRINT "OH WELL." 615 PRINT "THAT'S TWNETY GUESSES. MY NUMBER WAS"100*A(1)+1
0*A(2)+A(3) 620 GOTO 700 630 PRINT "TRY GUESSING A THREE-DIGIT NUMBER."GOTO 23
0 650 PRINT "OH, I FORGOT TO TELL YOU THAT THE NUMBER I HAVE IN MIND" 660 PRIN
T "HAS NO TWO DIGITS THE SAME."GOTO 230 6800 END 812 FOR H1 TO 7*X PRINT NEXT
H 813 GOTO 800 815 F(U)9-K GOTO 445 899 DATA " ",0,0,0,0,0,0,0 900 DATA "A",
505,37,35,34,35,37,505 901 DATA "G",125,131,258,258,290,163,101 902 DATA "E",5
12,274,274,274,274,258,258 903 DATA "T",2,2,2,512,2,2,2 904 DATA "W",256,257,1
29,65,129,257,256 905 DATA "L",512,257,257,257,257,257,257 906 DATA "S",69,139
,274,274,274,163,69 907 DATA "O",125,131,258,258,258,131,125 908 DATA "N",512,
7,9,17,33,193,512 909 DATA "F",512,18,18,18,18,2,2 910 DATA "K",512,1 PRINT "Y
OU GOT IT!!!"PRINT 690 YY+1 700 INPUT "PLAY AGAIN (YES OR NO)"A$ 720 IF LEFT$
(A$,1)"YES" THEN 150 730 IF Y0 THEN 750 740 PRINTPRINT "A"Y"POINT BAGELS BUFF!
!" 750 PRINT "HOPE YOU HAD FUN. BYE." 999 END 7,17,41,69,131,258 911 DATA "
B",512,274,274,274,274,274,239 912 DATA "D",512,258,258,258,258,131,125 913 DA
TA "H",512,17,17,17,17,17,512 914 DATA "M",512,7,13,25,13,7,512 915 DATA "",5,
3,2,354,18,11,5 916 DATA "U",128,129,257,257,257,129,128 917 DATA "R",512,18,1
8,50,82,146,271 918 DATA "P",512,18,18,18,18,18,15 919 DATA "Q",125,131,258,25
8,322,131,381 920 DATA "Y",8,9,17,481,17,9,8 921 DATA "V",64,65,129,257,129,65
,64 922 DATA "X",388,69,41,17,41,69,388 923 DATA "Z",386,322,290,274,266,262,2
60 924 DATA "I",258,258,258,512,258,258,258 925 DATA "C",125,131,258,258,258,1
31,69 926 DATA "J",65,129,257,257,257,129,128 927 DATA "1",0,0,261,259,512,257
,257 928 DATA "2",261,387,322,290,274,267,261 929 DATA "*",69,41,17,512,17,41,
69 930 DATA "3",66,130,258,274,266,150,100 931 DATA "4",33,49,41,37,35,512,33
932 DATA "5",160,274,274,274,274,274,226 933 DATA "6",194,291,293,297,305,289,
193 934 DATA "7",258,130,66,34,18,10,8 935 DATA "8",69,171,274,274,274,171,69
936 DATA "9",263,138,74,42,26,1010 INPUT "HORIZONTAL"X 20 INPUT "VERTICAL"Y 2
1 INPUT "CENTERED"L$ 22 G10IF L$"P" THEN G11 23 INPUT "CHARACTER (TYPE 'ALL' I
F YOU WANT CHARACTER BEING PRINTED)"M$ 29 PRINT "STATEMENT" 30 INPUT A$ 35 IN
PUT "SET PAGE"O$ 40 AASC(LEFT$(A$,1)) 50 REM 60 REM 70 FOR T1 TO LEN(A$) 80
P$MID$(A$,T,1) 90 FOR O1 TO 50 95 READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7)
96 IF P$" " THEN 812 100 IF P$S$ THEN 200 120 NEXT O 200 RESTORE 201 X$M$
202 IF M$"ALL" THEN X$S$ 205 FOR U1 TO 7 21 R,7 937 DATA "",41,41,41,41,41,4
1,41 938 DATA "!",1,1,1,384,1,1,1 939 DATA "0",57,69,131,258,131,69,57 940 DA
TA ".",1,1,129,449,129,1,1 1000 STOP 1002 END SSED BACK TO YOU. " 1170 GOTO
430 1180 IF RND(1).9 THEN 1190 1185 PRINT "PLAYER FOULED, TWO SHOTS." 1187 GO
SUB 4000 1188 GOTO 3000 1190 PRINT "BALL STOLEN. "O$"'S BALL." 1195 GOTO 3000
1200 IF RND(1).782*D/8 THEN 1250 1210 PRINT "SHOT IS BLOCKED. BALL CONTROLLE
D BY " 1230 IF RND(1).5 THEN 1242 1235 PRINT "DARTMOUTH." 1240 GOTO 430 1242
PRINT O$"." 1245 GOTO 3000 1250 IF RND(1).843*D/8 THEN 1270 1255 PRINT "SHOO
TER IS FOULED. TWO SHOTS." 1260 GOSUB 4000 1265 GOTO 3000 1270 PRINT5 PRINT
TAB(31)"BASKETBALL" 7 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
8 PRINTPRINTPRINT 10 PRINT "THIS IS DARTMOUTH COLLEGE BASKETBALL. YOU WILL B
E DARTMOUTH" 20 PRINT " CAPTAIN AND PLAYMAKER. CALL SHOTS AS FOLLOWS 1. LONG"
30 PRINT " (30 FT.) JUMP SHOT 2. SHORT (15 FT.) JUMP SHOT 3. LAY" 40 PRINT "
UP 4. SET SHOT." 60 PRINT "BOTH TEAMS WILL USE THE SAME DEFENSE. CALL DEFENSE
AS" 70 PRINT "FOLLOWS 6. PRESS 6.5 MAN-TO MAN 7. ZONE 7.5 NONE." 72 PRINT "TO
CHANGE DEFE "CHARGING FOUL. DARTMOUTH LOSES BALL." 1280 GOTO 3000 1300 TT+1
1301 IF T50 THEN 8000 1302 IF T92 THEN 1304 1303 GOTO 1305 1304 GOSUB 600 1
305 IF Z0 THEN 2010 1310 IF Z3 THEN 1700 1320 PRINT "LAY UP." 1330 IF 7/D*RND
(1).4 THEN 1360 1340 PRINT "SHOT IS GOOD. TWO POINTS." 1345 GOSUB 7000 1355
GOTO 3000 1360 IF 7/D*RND(1).7 THEN 1500 1370 PRINT "SHOT IS OFF THE RIM." 13
80 IF RND(1)2/3 THEN 1415 1390 PRINT O$" CONTROLS THE REBOUND." 1400 GOTO 3000
1415 PRINT "DARTMOUTH CONTROLS THNSE, JUST TYPE 0 AS YOUR NEXT SHOT." 76 INPU
T "YOUR STARTING DEFENSE WILL BE"DIF D6 THEN 2010 79 PRINT 80 INPUT "CHOOSE YO
UR OPPONENT"O$ 370 PRINT "CENTER JUMP" 390 IF RND(1) 3/5 THEN 420 400 PRINT O
$" CONTROLS THE TAP." 410 GOTO 3000 420 PRINT "DARTMOUTH CONTROLS THE TAP." 4
25 PRINT 430 INPUT "YOUR SHOT"Z 440 P0 445 IF ZINT(Z) THEN 455 446 IF Z0 OR
Z4 THEN 455 447 GOTO 460 455 PRINT "INCORRECT ANSWER. RETYPE IT. "GOTO 430 4
60 IF RND(1).5 THEN 1000 480 IF T100 THEN 1000 49E REBOUND." 1420 IF RND(1).4
THEN 1440 1430 GOTO 1300 1440 PRINT "BALL PASSED BACK TO YOU." 1450 GOTO 430
1500 IF 7/D*RND(1).875 THEN 1600 1510 PRINT "SHOOTER FOULED. TWO SHOTS." 15
20 GOSUB 4000 1530 GOTO 3000 1600 IF 7/D*RND(1).925 THEN 1630 1610 PRINT "SHO
T BLOCKED. "O$"'S BALL." 1620 GOTO 3000 1630 PRINT "CHARGING FOUL. DARTMOUTH
LOSES THE BALL." 1640 GOTO 3000 1700 PRINT "SET SHOT." 1710 GOTO 1330 2010 I
NPUT "YOUR NEW DEFENSIVE ALLIGNMENT IS"D 2030 IF D6 THEN 2010 2040 GOTO 40 PRI
NT 491 IF S(1)S(0) THEN 510 492 PRINTPRINT " ***** END OF SECOND HALF *****"
PRINT 493 PRINT "SCORE AT END OF REGULATION TIME" 494 PRINT " DARTMOUTH
"S(1)" "O$""S(0) 495 PRINT 496 PRINT "BEGIN TWO MINUTE OVERTIME PERIOD" 499
T93 500 GOTO 370 510 PRINT " ***** END OF GAME *****" 515 PRINT "FINAL SCOR
E DARTMOUTH"S(1)" "O$""S(0) 520 STOP 600 PRINT 610 PRINT " *** TWO MINUTES
LEFT IN THE GAME ***" 620 PRINT 630 RETURN 1000 ON Z GOTO 1040,1040 1030 GO
TO 13025 3000 P1 3005 TT+1 3008 IF T50 THEN 8000 3012 GOTO 3018 3015 GOSUB
600 3018 PRINT 3020 Z110/4*RND(1)+1 3030 IF Z12 THEN 3500 3040 PRINT "JUMP S
HOT." 3050 IF 8/D*RND(1).35 THEN 3100 3060 PRINT "SHOT IS GOOD." 3080 GOSUB 6
000 3090 GOTO 425 3100 IF 8/D*RND(1).75 THEN 3200 3105 PRINT "SHOT IS OFF RIM
." 3110 IF D/6*RND(1).5 THEN 3150 3120 PRINT "DARTMOUTH CONTROLS THE REBOUND."
3130 GOTO 425 3150 PRINT O$" CONTROLS THE REBOUND." 3160 IF D6 THEN 5000 31
65 IF RND(1).5 THEN 3175 30 1040 TT+1 1041 IF T50 THEN 8000 1042 IF T92 THEN
1046 1043 GOTO 1050 1046 GOSUB 600 1050 PRINT "JUMP SHOT" 1060 IF RND(1).34
1*D/8 THEN 1090 1070 PRINT "SHOT IS GOOD." 1075 GOSUB 7000 1085 GOTO 3000 10
90 IF RND(1).682*D/8 THEN 1200 1100 PRINT "SHOT IS OFF TARGET." 1105 IF D/6*RN
D(1).45 THEN 1130 1110 PRINT "DARTMOUTH CONTROLS THE REBOUND." 1120 GOTO 1145
1130 PRINT "REBOUND TO "O$ 1140 GOTO 3000 1145 IF RND(1).4 THEN 1158 1150 GO
TO 1300 1158 IF D6 THEN 5100 1160 PRINT "BALL PA R168 PRINT "PASS BACK TO "O$
" GUARD." 3170 GOTO 3000 3175 GOTO 3500 3200 IF 8/D*RND(1).9 THEN 3310 3210
PRINT "PLAYER FOULED. TWO SHOTS." 3220 GOSUB 4000 3230 GOTO 425 3310 PRINT "
OFFENSIVE FOUL. DARTMOUTH'S BALL." 3320 GOTO 425 3500 IF Z13 THEN 3800 3510
PRINT "LAY UP." 3520 IF 7/D*RND(1).413 THEN 3600 3530 PRINT "SHOT IS GOOD." 3
540 GOSUB 6000 3550 GOTO 425 3600 PRINT "SHOT IS MISSED." 3610 GOTO 3110 380
0 PRINT "SET SHOT." 3810 GOTO 3520 4000 REM FOUL SHOOTING 4010 IF RND(1).49
180 PRINT "DON'T USE ZERO, HOWEVER, IN PLAYING THE GAME." 190 PRINT "ENTER A N
EGATIVE NUMBER FOR NEW PILE SIZE TO STOP PLAYING." 200 PRINT 210 GOTO 330 220
FOR I1 TO 10 230 PRINT 240 NEXT I 330 INPUT "ENTER PILE SIZE"N 350 IF N1 TH
EN 370 360 GOTO 330 370 IF NINT(N) THEN 220 380 IF N1 THEN 220 390 INPUT "EN
TER WIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST "M 410 IF M1 THEN 430 420 IF
M2 THEN 390 430 INPUT "ENTER MIN AND MAX "A,B 450 IF AB THEN 430 460 IF A1 TH
EN 430 470 IF ATHEN 4050 4020 PRINT "SHOOTER MAKES BOTH SHOTS." 4030 S(1-P)S(
1-P)+2 4040 GOSUB 6010 4041 RETURN 4050 IF RND(1).75 THEN 4100 4060 PRINT "S
HOOTER MAKES ONE SHOT AND MISSES ONE." 4070 S(1-P)S(1-P)+1 4080 GOTO 4040 410
0 PRINT "BOTH SHOTS MISSED." 4110 GOTO 4040 5000 IF RND(1).75 THEN 5010 5005
GOTO 3165 5010 PRINT "BALL STOLEN. EASY LAY UP FOR DARTMOUTH." 5015 GOSUB 700
0 5030 GOTO 3000 5100 IF RND(1).6 THEN 5120 5110 GOTO 1160 5120 PRINT "PASS
STOLEN BY "O$" EASY LAYUP." 5130 GOSUB 6INT(A) THEN 430 480 IF BINT(B) THEN 43
0 490 INPUT "ENTER START OPTION - 1 COMPUTER FIRST, 2 YOU FIRST "S 500 PRINTPR
INT 510 IF S1 THEN 530 520 IF S2 THEN 490 530 CA+B 540 IF S2 THEN 570 550 G
OSUB 600 560 IF W1 THEN 220 570 GOSUB 810 580 IF W1 THEN 220 590 GOTO 550 6
00 QN 610 IF M1 THEN 630 620 QQ-1 630 IF M1 THEN 680 640 IF NA THEN 720 650
W1 660 PRINT "COMPUTER TAKES"N"AND LOSES." 670 RETURN 680 IF NB THEN 720 69
0 W1 700 PRINT "COMPUTER TAKES"N"AND WINS." 71000 5140 GOTO 425 6000 S(0)S(0
)+2 6010 PRINT "SCORE "S(1)"TO"S(0) 6020 RETURN 7000 S(1)S(1)+2 7010 GOSUB 6
010 7020 RETURN 8000 PRINTPRINT " ***** END OF FIRST HALF *****"PRINT 8010
PRINT "SCORE DARTMOUTH"S(1)" "O$""S(0) 8015 PRINT 8016 PRINT 8020 GOTO 370
9999 END 0 RETURN 720 PQ-C*INT(Q/C) 730 IF PA THEN 750 740 PA 750 IF PB THE
N 770 760 PB 770 NN-P 780 PRINT "COMPUTER TAKES"P"AND LEAVES"N 790 W0 800 R
ETURN 810 PRINTPRINT "YOUR MOVE " 820 INPUT P 830 IF P0 THEN 870 840 PRINT "
I TOLD YOU NOT TO USE ZERO! COMPUTER WINS BY FORFEIT." 850 W1 860 RETURN 870
IF PINT(P) THEN 920 880 IF PA THEN 910 890 IF PN THEN 960 900 GOTO 920 910 I
F PB THEN 940 920 PRINT "ILLEGAL MOVE, REENTER IT " 930 GOTO 820 940 NN-P 95
0 IF N0 THEN 1030 960 IF M1 THEN 1000 970 PRINT "TOUGH LUCK, YOU LOSE." 980 W
1 990 RETURN 1000 PRINT "CONGRATULATIONS, YOU WIN." 1010 W1 1020 RETURN 103
0 IF N0 THEN 1060 1040 NN+P 1050 GOTO 920 1060 W0 1070 RETURN 1080 END 10
PRINT TAB(33)"BATNUM" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERS
EY" 30 PRINTPRINTPRINT 110 PRINT "THIS PROGRAM IS A 'BATTLE OF NUMBERS' GAME,
WHERE THE" 120 PRINT "COMPUTER IS YOUR OPPONENT." 130 PRINT 140 PRINT "THE G
AME STARTS WITH AN ASSUMED PILE OF OBJECTS. YOU" 150 PRINT "AND YOUR OPPONENT A
LTERNATELY REMOVE OBJECTS FROM THE PILE." 160 PRINT "WINNING IS DEFINED IN ADVA
NCE AS TAKING THE LAST OBJECT OR" 170 PRINT "NOT. YOU CAN ALSO SPECIFY SOME OTH
ER BEGINNING CONDITIONS." R650 IF Z1 THEN 90 660 IF F(Z-1,B)0 THEN 90 670 A(K
+1)Z-1 680 NEXT K 690 F(A,B)9-2*I-J 700 FOR K1 TO N 710 F(A(K+1),B)F(A,B) 7
20 NEXT K 730 GOTO 990 740 A(1)A 750 B(1)B 760 A(2)7A(3)7 770 B(2)0B(3)0 7
80 FOR K1 TO N 790 IF M1 THEN 870 800 IF A(K)6 OR B(K)1 THEN 860 810 IF F(A(K
)+1,B(K)-1)0 THEN 860 820 IF F(A(K)+1,B(K))0 AND F(A(K)+1,B(K))F(A(K),B(K)-1) T
HEN 860 830 A(K+1)A(K)+1 840 B(K+1)B(K)-1 850 GOTO 940 860 M2 870 IF A(1)A(
2) AND A(1)A(3) THEN Z1A(1) 872 5 PRINT TAB(33)"BATTLE" 7 PRINT TAB(15)"CREATI
VE COMPUTING MORRISTOWN, NEW JERSEY" 10 REM -- BATTLE WRITTEN BY RAY WESTERGAR
D 10/70 20 REM COPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF. 30 REM PR
ODUCED AT THE LAWRENCE HALL OF SCIENCE, BERKELEY 40 DIM F(6,6),H(6,6),A(4),B(4)
,C(6),L(3) 50 FOR X1 TO 6 51 FOR Y1 TO 6 52 F(X,Y)0 53 NEXT Y 54 NEXT X 60
FOR I1 TO 3 70 N4-I 80 FOR J1 TO 2 90 AINT(6*RND(1)+1) 100 BINT(6*RND(1)+1)
110 DINT(4*RND(1)+1) 120 IF F(A,B)0 THEN 90 130 MIF A(2)A(1) AND A(2)A(3) TH
EN Z1A(2) 874 IF A(3)A(1) AND A(3)A(2) THEN Z1A(3) 880 IF B(1)B(2) AND B(1)B(3
) THEN Z2B(1) 882 IF B(2)B(1) AND B(2)B(3) THEN Z2B(2) 884 IF B(3)B(1) AND B(3
)B(2) THEN Z2B(3) 890 IF Z11 OR Z26 THEN 90 900 IF F(Z1-1,Z2+1)0 THEN 90 910
IF F(Z1,Z2+1)0 AND F(Z1,Z2+1)F(Z1-1,Z2) THEN 90 920 A(K+1)Z1-1 930 B(K+1)Z2+1
940 NEXT K 950 F(A,B)9-2*I-J 960 FOR K1 TO N 970 F(A(K+1),B(K+1))F(A,B) 980
NEXT K 990 NEXT J 1000 NEXT I 1010 PRINT 1020 PRINT "TH0 140 ON D GOTO 150
,340,550,740 150 B(1)B 160 B(2)7B(3)7 170 FOR K1 TO N 180 IF M1 THEN 240 19
0 IF B(K)6 THEN 230 200 IF F(A,B(K)+1)0 THEN 230 210 B(K+1)B(K)+1 220 GOTO 28
0 230 M2 240 IF B(1)B(2) AND B(1)B(3) THEN ZB(1) 242 IF B(2)B(1) AND B(2)B(3)
THEN ZB(2) 244 IF B(3)B(1) AND B(3)B(2) THEN ZB(3) 250 IF Z1 THEN 90 260 IF
F(A,Z-1)0 THEN 90 270 B(K+1)Z-1 280 NEXT K 290 F(A,B)9-2*I-J 300 FOR K1 TO N
310 F(A,B(K+1))F(A,B) 320 NEXT K 330 GOTO 990 340 A(1)A 350E FOLLOWING COD
E OF THE BAD GUYS' FLEET DISPOSITION" 1030 PRINT "HAS BEEN CAPTURED BUT NOT DEC
ODED" 1040 PRINT 1050 FOR I1 TO 6 1051 FOR J1 TO 6 1052 H(I,J)F(J,I) 1053 N
EXT J 1054 NEXT I 1060 FOR I1 TO 6 1061 FOR J1 TO 6 1062 PRINT H(I,J) 1063
NEXT J 1064 PRINT 1065 NEXT I 1070 PRINT 1080 PRINT "DE-CODE IT AND USE IT I
F YOU CAN" 1090 PRINT "BUT KEEP THE DE-CODING METHOD A SECRET." 1100 PRINT 11
10 FOR I1 TO 6 1111 FOR J1 TO 6 1112 H(I,J)0 1113 NEXT J 1114 NEXT I 1120 F
OR I1 B(1)B 360 A(2)0A(3)0B(2)0B(3)0 370 FOR K1 TO N 380 IF M1 THEN 460 390
IF A(K)1 OR B(K)1 THEN 450 400 IF F(A(K)-1,B(K)-1)0 THEN 450 410 IF F(A(K)-1,
B(K))0 AND F(A(K)-1,B(K))F(A(K),B(K)-1) THEN 450 420 A(K+1)A(K)-1 430 B(K+1)B(
K)-1 440 GOTO 530 450 M2 460 IF A(1)A(2) AND A(1)A(3) THEN Z1A(1) 462 IF A(2
)A(1) AND A(2)A(3) THEN Z1A(2) 464 IF A(3)A(1) AND A(3)A(2) THEN Z1A(3) 470 IF
B(1)B(2) AND B(1)B(3) THEN Z2B(1) 474 IF B(2)B(1) AND B(2)B(3) THEN Z2B(2) 47
6 IF TO 3 1121 L(I)0 1122 NEXT I 1130 C(1)2C(2)2 1140 C(3)1C(4)1 1150 C(5)0
C(6)0 1160 S0H0 1170 PRINT "START GAME" 1180 INPUT X,Y 1190 IF X1 OR X6 OR I
NT(X)ABS(X) THEN 1210 1200 IF Y0 AND Y7 AND INT(Y)ABS(Y) THEN 1230 1210 PRINT
"INVALID INPUT. TRY AGAIN." 1220 GOTO 1180 1230 R7-Y 1240 CX 1250 IF F(R,C)
0 THEN 1290 1260 SS+1 1270 PRINT "SPLASH! TRY AGAIN." 1280 GOTO 1180 1290 I
F C(F(R,C))4 THEN 1340 1300 PRINT "THERE USED TO BE A SHIP AT THAT POINT, BUT Y
OU SUNK IT."B(3)B(1) AND B(3)B(2) THEN Z2B(3) 480 IF Z16 OR Z26 THEN 90 490 IF
F(Z1+1,Z2+1)0 THEN 90 500 IF F(Z1,Z2+1)0 AND F(Z1,Z2+1)F(Z1+1,Z2) THEN 90 510
A(K+1)Z1+1 520 B(K+1)Z2+1 530 NEXT K 540 GOTO 950 550 A(1)A 560 A(2)7A(3)7
570 FOR K1 TO N 580 IF M1 THEN 640 590 IF A(K)6 THEN 630 600 IF F(A(K)+1,B)
0 THEN 630 610 A(K+1)A(K)+1 620 GOTO 680 630 M2 640 IF A(1)A(2) AND A(1)A(3)
THEN ZA(1) 642 IF A(2)A(1) AND A(2)A(3) THEN ZA(2) 644 IF A(3)A(1) AND A(3)A(
2) THEN ZA(3) R 1310 PRINT "SPLASH! TRY AGAIN." 1320 SS+1 1330 GOTO 1180
1340 IF H(R,C)0 THEN 1420 1350 HH+1 1360 H(R,C)F(R,C) 1370 PRINT "A DIRECT H
IT ON SHIP NUMBER"F(R,C) 1380 C(F(R,C))C(F(R,C))+1 1390 IF C(F(R,C))4 THEN 147
0 1400 PRINT "TRY AGAIN." 1410 GOTO 1180 1420 PRINT "YOU ALREADY PUT A HOLE I
N SHIP NUMBER"F(R,C) 1430 PRINT "AT THAT POINT." 1440 PRINT "SPLASH! TRY AGAI
N." 1450 SS+1 1460 GOTO 1180 1470 L((INT(F(R,C)-1)/2)+1)L((INT(F(R,C)-1)/2)+1
)+1 1480 PRINT "AND YOU SUNK IT. HURT 135 INPUT "TIME INCREMENT (SEC)"S2 140
PRINT 150 INPUT "VELOCITY (FPS)"V 160 PRINT 170 INPUT "COEFFICIENT"C 180 PR
INT 182 PRINT "FEET" 184 PRINT 186 S1INT(70/(V/(16*S2))) 190 FOR I1 TO S1 2
00 T(I)V*C(I-1)/16 210 NEXT I 220 FOR HINT(-16*(V/32)2+V2/32+.5) TO 0 STEP -.5
221 IF INT(H)H THEN 225 222 PRINT H 225 L0 230 FOR I1 TO S1 240 FOR T0 TO
T(I) STEP S2 245 LL+S2 250 IF ABS(H-(.5*(-32)*T2+V*C(I-1)*T)).25 THEN 270 260
PRINT TAB(L/S2)"0" 270 NEXT T 275 TT(I+1)/2 RAH FOR THE GOOD GUYS." 1490 PRI
NT "SO FAR, THE BAD GUYS HAVE LOST" 1500 PRINT L(1)"DESTROYER(S),"L(2)"CRUISER(
S), AND" 1510 PRINT L(3)"AIRCRAFT CARRIER(S)." 1520 PRINT "YOUR CURRENT SPLASH
/HIT RATIO IS"S/H 1530 IF (L(1)+L(2)+L(3))6 THEN 1180 1540 PRINT 1550 PRINT "
YOU HAVE TOTALLY WIPED OUT THE BAD GUYS' FLEET" 1560 PRINT "WITH A FINAL SPLASH
/HIT RATIO OF"S/H 1570 IF S/H0 THEN 1590 1580 PRINT "CONGRATULATIONS -- A DIRE
CT HIT EVERY TIME." 1590 PRINT 1600 PRINT "************************* 276 IF -1
6*T2+V*C(I-1)*TH THEN 290 280 NEXT I 290 PRINT 300 NEXT H 310 PRINT TAB(1)
320 FOR I1 TO INT(L+1)/S2+1 330 PRINT "." 340 NEXT I 350 PRINT 355 PRINT " 0
" 360 FOR I1 TO INT(L+.9995) 380 PRINT TAB(INT(I/S2))I 390 NEXT I 400 PRINT
410 PRINT TAB(INT(L+1)/(2*S2)-2)"SECONDS" 420 PRINT 430 GOTO 135 440 END **
*" 1610 PRINT 1620 GOTO 50 1630 END 10 PRINT TAB(34)"BOWL" 20 PRINT TAB(15)
"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINTPRINTPRINT 270 DIM C(15),
A(100,6) 360 PRINT "WELCOME TO THE ALLEY" 450 PRINT "BRING YOUR FRIENDS" 540
PRINT "OKAY LET'S FIRST GET ACQUAINTED" 630 PRINT "" 720 PRINT "THE INSTRUCTIO
NS (Y/N)" 810 INPUT Z$ 900 IF Z$"Y" THEN 990 960 IF Z$"N" THEN 1530 990 PRIN
T "THE GAME OF BOWLING TAKES MIND AND SKILL.DURING THE GAME" 1080 PRINT "THE CO
MPUTER WILL KEEP SCORE.YOU MAY COMPETE WITH" 1170 PRINT "OTHER PL10 PRINT TAB(3
3)"BOUNCE" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRI
NTPRINTPRINT 90 DIM T(20) 100 PRINT "THIS SIMULATION LETS YOU SPECIFY THE INIT
IAL VELOCITY" 110 PRINT "OF A BALL THROWN STRAIGHT UP, AND THE COEFFICIENT OF"
120 PRINT "ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION" 130 PRINT "
COEFFICIENCY (LESS THAN 1)." 131 PRINT 132 PRINT "YOU ALSO SPECIFY THE TIME IN
CREMENT TO BE USED IN" 133 PRINT "'STROBING' THE BALL'S FLIGHT (TRY .1 INITIALL
Y)." 134 PRIN RAYERSUP TO FOUR.YOU WILL BE PLAYING TEN FRAMES" 1260 PRINT "ON
THE PIN DIAGRAM 'O' MEANS THE PIN IS DOWN...'+' MEANS THE" 1350 PRINT "PIN IS
STANDING.AFTER THE GAME THE COMPUTER WILL SHOW YOUR" 1440 PRINT "SCORES ." 153
0 PRINT "FIRST OF ALL...HOW MANY ARE PLAYING" 1620 INPUT R 1710 PRINT 1800 P
RINT "VERY GOOD..." 1890 FOR I1 TO 100 FOR J1 TO 6 A(I,J)0 NEXT J NEXT I 1980
F1 2070 FOR P1 TO R 2160 M0 2250 B1 2340 M0 Q0 2430 FOR I1 TO 15 C(I)0 NEXT
I 2520 REM ARK BALL GENERA1 PRINT TAB(33)"BOXING" 2 PRINT TAB(15)"CREATIVE CO
MPUTING MORRISTOWN, NEW JERSEY" 3 PRINTPRINTPRINT 4 PRINT "BOXING OLYMPIC STY
LE (3 ROUNDS -- 2 OUT OF 3 WINS)" 5 J0 6 L0 8 PRINT 10 PRINT "WHAT IS YOUR O
PPONENT'S NAME" 20 INPUT J$ 30 PRINT "INPUT YOUR MAN'S NAME" 40 INPUT L$ 50
PRINT "DIFFERENT PUNCHES ARE (1) FULL SWING (2) HOOK (3) UPPERCUT (4) JAB." 60
PRINT "WHAT IS YOUR MANS BEST" 64 INPUT B 70 PRINT "WHAT IS HIS VULNERABILITY"
80 INPUT D 90 B1INT(4*RND(1)+1) 100 D1INTOR USING MOD '15' SYSTEM 2610 PRIN
T "TYPE ROLL TO GET THE BALL GOING." 2700 INPUT N$ 2790 K0 D0 2880 FOR I1 TO
20 2970 XINT(RND(1)*100) 3060 FOR J1 TO 10 3150 IF X15*J THEN 3330 3240 NEXT
J 3330 C(15*J-X)1 3420 NEXT I 3510 REM ARK PIN DIAGRAM 3600 PRINT "PLAYER"P
"FRAME"F"BALL"B 3690 FOR I0 TO 3 3780 PRINT 3870 FOR J1 TO 4-I 3960 KK+1 40
50 IF C(K)1 THEN 4320 4140 PRINT TAB(I)"+ " 4230 GOTO 4410 4320 PRINT TAB(I)"
O " 4410 NEXT J 4500 NEXT I 4590 PRINT "" 4680 REM T(4*RND(1)+1) 110 IF B1D
1 THEN 90 120 PRINT J$"'S ADVANTAGE IS"B1"AND VULNERABILITY IS SECRET."PRINT 1
30 FOR R1 TO 3 140 IF J 2 THEN 1040 150 IF L2 THEN 1060 160 X0 170 Y0 180 P
RINT "ROUND"R"BEGINS..." 185 FOR R1 1 TO 7 190 IINT(10*RND(1)+1) 200 IF I5 TH
EN 600 210 PRINT L$"'S PUNCH" 220 INPUT P 221 IF PB THEN 225 222 GOTO 230 2
25 XX+2 230 IF P1 THEN 340 240 IF P2 THEN 450 250 IF P3 THEN 520 270 PRINT L
$" JABS AT "J$"'S HEAD " 271 IF D14 THEN 290 275 CINT(8*ARK ROLL ANALYSIS 477
0 FOR I1 TO 10 4860 DD+C(I) 4950 NEXT I 5040 IF D-M 0 THEN 5220 5130 PRINT
"GUTTER!!" 5220 IF B1 OR D10 THEN 5490 5310 PRINT "STRIKE!!!!!" 5400 Q3 5490
IF B2 OR D10 THEN 5760 5580 PRINT "SPARE!!!!" 5670 Q2 5760 IF B2 OR D10 THEN
6030 5850 PRINT "ERROR!!!" 5940 Q1 6030 IF B1 OR D10 THEN 6210 6120 PRINT "
ROLL YOUR 2ND BALL" 6210 REM ARK STORAGE OF THE SCORES 6300 PRINT 6390 A(F*P
,B)D 6480 IF B2 THEN 7020 6570 B2 6660 MD 6750 IF Q3 TRND(1)+1) 280 IF C4 T
HEN 310 290 XX+3 300 GOTO 950 310 PRINT "IT'S BLOCKED." 330 GOTO 950 340 PR
INT L$ " SWINGS AND " 341 IF D14 THEN 410 345 X3INT(30*RND(1)+1) 350 IF X310
THEN 410 360 PRINT "HE MISSES " 370 PRINT 375 IF X1 THEN 950 380 PRINT 390
PRINT 400 GOTO 300 410 PRINT "HE CONNECTS!" 420 IF X35 THEN 980 425 XX+15 4
40 GOTO 300 450 PRINT L$" GIVES THE HOOK... " 455 IF D12 THEN 480 460 H1INT(2
*RND(1)+1) 470 IF H11 THEN 500 475 PRINT "CONNECTS..." 480 XX+7 490 GOHEN 62
10 6840 A(F*P,B)D-M 6930 IF Q0 THEN 2520 7020 A(F*P,3)Q 7110 NEXT P 7200 FF
+1 7290 IF F11 THEN 2070 7295 PRINT "FRAMES" 7380 FOR I1 TO 10 7470 PRINT I
7560 NEXT I 7650 PRINT 7740 FOR P1 TO R 7830 FOR I1 TO 3 7920 FOR J1 TO 10
8010 PRINT A(J*P,I) 8100 NEXT J 8105 PRINT 8190 NEXT I 8280 PRINT 8370
NEXT P 8460 PRINT "DO YOU WANT ANOTHER GAME" 8550 INPUT A$ 8640 IF LEFT$(A$,1
)"Y" THEN 2610 8730 END TO 300 500 PRINT "BUT IT'S BLOCKED!!!!!!!!!!!!!" 510
GOTO 300 520 PRINT L$ " TRIES AN UPPERCUT " 530 IF D13 THEN 570 540 D5INT(10
0*RND(1)+1) 550 IF D551 THEN 570 560 PRINT "AND IT'S BLOCKED (LUCKY BLOCK!)"
565 GOTO 300 570 PRINT "AND HE CONNECTS!" 580 XX+4 590 GOTO 300 600 J7INT(4*
RND(1)+1) 601 IF J7 B1 THEN 605 602 GOTO 610 605 YY+2 610 IF J71 THEN 720 6
20 IF J72 THEN 810 630 IF J7 3 THEN 860 640 PRINT J$" JABS AND " 645 IF D4 TH
EN 700 650 Z4INT(7*RND(1)+1) 655 IF Z44 R THEN 690 660 PRINT "IT'S
BLOCKED!" 670 GOTO 300 690 PRINT " BLOOD SPILLS !!!" 700 YY+5 710 GOTO 300
720 PRINT J$" TAKES A FULL SWING AND" 730 IF D1 THEN 770 740 R6INT(60*RND(1)+
1) 745 IF R6 30 THEN 770 750 PRINT " IT'S BLOCKED!" 760 GOTO 300 770 PRINT "
POW!!!!! HE HITS HIM RIGHT IN THE FACE!" 780 IF Y35 THEN 1010 790 YY+15 800
GOTO 300 810 PRINT J$" GETS "L$" IN THE JAW (OUCH!)" 820 YY+7 830 PRINT "....
AND AGAIN!" 835 YY+5 840 IF Y35 THEN 1010 850 PRINT 860 PRINT L$" IS TELL YO
U WHAT I ROLLED FOR YOU" 150 PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CAN
GET THE PART." 160 PRINT "IF YOU CAN GET THE PART I WILL GIVE IT TO YOU." 170
PRINT "THE SAME WILL HAPPEN ON MY TURN." 180 PRINT "IF THERE IS A CHANGE IN EIT
HER BUG I WILL GIVE YOU THE" 190 PRINT "OPTION OF SEEING THE PICTURES OF THE BU
GS." 200 PRINT "THE NUMBERS STAND FOR PARTS AS FOLLOWS" 210 PRINT "NUMBER","PA
RT","NUMBER OF PART NEEDED" 220 PRINT "1","BODY","1" 230 PRINT "2","NECK","1"
240 PRINT "3","HEAD","1ATTACKED BY AN UPPERCUT (OH,OH)..." 865 IF D3 THEN 890
870 Q4INT(200*RND(1)+1) 880 IF Q475 THEN 920 890 PRINT "AND "J$" CONNECTS..."
900 YY+8 910 GOTO 300 920 PRINT " BLOCKS AND HITS "J$" WITH A HOOK." 930 XX
+5 940 GOTO 300 950 NEXT R1 951 IF XY THEN 955 952 PRINTPRINT J$" WINS ROUND
" R 953 JJ+1 954 GOTO 960 955 PRINTPRINT L$" WINS ROUND"R 956 LL+1 960 NEXT
R 961 IF J 2 THEN 1040 962 IF L2 THEN 1060 980 PRINT J$ " IS KNOCKED COLD AN
D " L$" IS THE WINNER AND CHAMP!" 10" 250 PRINT "4","FEELERS","2" 260 PRINT "
5","TAIL","1" 270 PRINT "6","LEGS","6" 280 PRINT 290 PRINT 300 IF Y0 THEN 24
80 310 ZINT(6*RND(1)+1) 320 C1 330 PRINT "YOU ROLLED A"Z 340 ON Z GOTO 350,4
30,540,650,760,870 350 PRINT "1BODY" 360 IF B1 THEN 410 370 PRINT "YOU NOW HA
VE A BODY." 380 B1 390 C0 400 GOTO 970 410 PRINT "YOU DO NOT NEED A BODY."
420 GOTO 970 430 PRINT "2NECK" 440 IF N1 THEN 500 450 IF B0 THEN 520 460 PRI
NT "YOU NOW HAVE A NECK." 470 N1 480 C0 490 GOTO 970 00 GOTO 1080 1010 PRINT
L$ " IS KNOCKED COLD AND " J$" IS THE WINNER AND CHAMP!" 1030 GOTO 1000 1040
PRINT J$ " WINS (NICE GOING," J$")." 1050 GOTO 1000 1060 PRINT L$ " AMAZINGLY
WINS!!" 1070 GOTO 1000 1080 PRINT 1085 PRINT 1090 PRINT "AND NOW GOODBYE FRO
M THE OLYMPIC ARENA." 1100 PRINT 1110 END 500 PRINT "YOU DO NOT NEED A NECK.
" 510 GOTO 970 520 PRINT "YOU DO NOT HAVE A BODY." 530 GOTO 970 540 PRINT "3
HEAD" 550 IF N0 THEN 610 560 IF H1 THEN 630 570 PRINT "YOU NEEDED A HEAD." 5
80 H1 590 C0 600 GOTO 970 610 PRINT "YOU DO NOT HAVE A NECK." 620 GOTO 970
630 PRINT "YOU HAVE A HEAD." 640 GOTO 970 650 PRINT "4FEELERS" 660 IF H0 THEN
740 670 IF A2 THEN 720 680 PRINT "I NOW GIVE YOU A FEELER." 690 AA+1 700 C0
710 GOTO 970 720 PRINT "YOU HAVE TWO FEELERS ALREADY." 730 GOTO 970 740 PRI
NT "YOU DO NOT HAVE A HEAD." 750 GOTO 970 760 PRINT "5TAIL" 770 IF B0 THEN 83
0 780 IF T1 THEN 850 790 PRINT "I NOW GIVE YOU A TAIL." 800 TT+1 810 C0 820
GOTO 970 830 PRINT "YOU DO NOT HAVE A BODY." 840 GOTO 970 850 PRINT "YOU ALR
EADY HAVE A TAIL." 860 GOTO 970 870 PRINT "6LEG" 880 IF L6 THEN 940 890 IF B
0 THEN 960 900 LL+1 910 C0 920 PRINT "YOU NOW HAVE"L"LEGS." 930 GOTO 970 94
0 PRINT "YOU HAVE 6 FEET ALREADY." 950 GOTO 970 960 PRINT "YOU DO NOT HAVE A B
ODY." 10 PRINT TAB(34)"BUG" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, N
EW JERSEY" 30 PRINTPRINTPRINT 40 REM 50 A0 B0 H0 L0 N0 P0 Q0 R0 S0 T0 U0 V0 Y
0 60 PRINT "THE GAME BUG" 70 PRINT "I HOPE YOU ENJOY THIS GAME." 80 PRINT 90
PRINT "DO YOU WANT INSTRUCTIONS" 100 INPUT Z$ 110 IF Z$"NO" THEN 300 120 PRI
NT "THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH" 130 PRINT "MINE. E
ACH NUMBER STANDS FOR A PART OF THE BUG BODY." 140 PRINT "I WILL ROLL THE DIE F
OR YOU, R970 XINT(6*RND(1)+1) 971 PRINT 975 FOR DELAY1 TO 2000NEXT DELAY 98
0 PRINT "I ROLLED A"X 990 ON X GOTO 1000,1080,1190,1300,1410,1520 1000 PRINT "
1BODY" 1010 IF P1 THEN 1060 1020 PRINT "I NOW HAVE A BODY." 1030 C0 1040 P1
1050 GOTO 1630 1060 PRINT "I DO NOT NEED A BODY." 1070 GOTO 1630 1080 PRINT
"2NECK" 1090 IF Q1 THEN 1150 1100 IF P0 THEN 1170 1110 PRINT "I NOW HAVE A NE
CK." 1120 Q1 1130 C0 1140 GOTO 1630 1150 PRINT "I DO NOT NEED A NECK." 1160
GOTO 1630 1170 PRINT "I DO NT 2130 PRINT 2140 PRINT 2150 IF S0 THEN 2230 2
160 FOR Z1 TO 4 2170 PRINT TAB(10) 2180 FOR X1 TO S 2190 PRINT "F " 2200 NEX
T X 2210 PRINT 2220 NEXT Z 2230 IF R1 THEN 2250 2240 GOSUB 2470 2250 IF Q0
THEN 2280 2260 PRINT " N N" 2270 PRINT " N N" 2280 IF P0 TH
EN 2360 2290 PRINT " BBBBBBBBBBBB" 2300 FOR Z1 TO 2 2310 PRINT " B
B" 2320 NEXT Z 2330 IF U1 THEN 2350 2340 PRINT "TTTTTB B" 23
50 PRINT " BBBBBBBBBBBB" 2360 IF V0 THEN 245OT HAVE A BODY." 1180 GOTO 163
0 1190 PRINT "3HEAD" 1200 IF Q0 THEN 1260 1210 IF R1 THEN 1280 1220 PRINT "I
NEEDED A HEAD." 1230 R1 1240 C0 1250 GOTO 1630 1260 PRINT "I DO NOT HAVE A
NECK." 1270 GOTO 1630 1280 PRINT "I DO NOT NEED A HEAD." 1290 GOTO 1630 1300
PRINT "4FEELERS" 1310 IF R0 THEN 1390 1320 IF S2 THEN 1370 1330 PRINT "I GET
A FEELER." 1340 SS+1 1350 C0 1360 GOTO 1630 1370 PRINT "I HAVE 2 FEELERS AL
READY." 1380 GOTO 1630 1390 PRINT "I DO NOT HAVE A HEAD." 1400 GOTO 0 2370 F
OR Z1 TO 2 2380 PRINT TAB(5) 2390 FOR X1 TO V 2400 PRINT " L" 2410 NEXT X 2
420 PRINT 2430 NEXT Z 2450 IF Y0 THEN 2540 2460 GOTO 300 2470 PRINT "
HHHHHHH" 2480 PRINT " H H" 2490 PRINT " H O O H" 2500 PRIN
T " H H" 2510 PRINT " H V H" 2520 PRINT " HHHHHHH"
2530 RETURN 2540 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON!!" 25
50 END 1630 1410 PRINT "5TAIL" 1420 IF P0 THEN 1480 1430 IF U1 THEN 1500 14
40 PRINT "I NOW HAVE A TAIL." 1450 U1 1460 C0 1470 GOTO 1630 1480 PRINT "I D
O NOT HAVE A BODY." 1490 GOTO 1630 1500 PRINT "I DO NOT NEED A TAIL." 1510 GO
TO 1630 1520 PRINT "6LEGS" 1530 IF V6 THEN 1590 1540 IF P0 THEN 1610 1550 VV
+1 1560 C0 1570 PRINT "I NOW HAVE"V"LEGS." 1580 GOTO 1630 1590 PRINT,"I HAVE
6 FEET." 1600 GOTO 1630 1610 PRINT "I DO NOT HAVE A BODY." 1620 GOTO 1630 1
630 IF A2 AND T1 AND L6 T10 PRINT TAB(34)"BULL" 20 PRINT TAB(15)"CREATIVE COMPU
TING MORRISTOWN, NEW JERSEY" 30 DEF FNA(K)INT(RND(1)*2+1) 200 PRINTPRINTPRINT
202 L1 205 PRINT "DO YOU WANT INSTRUCTIONS" 206 INPUT Z$ 207 IF Z$"NO" THEN
400 210 PRINT "HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS." 220 PRINT "HERE I
S YOUR BIG CHANCE TO KILL A BULL." 230 PRINT 240 PRINT "ON EACH PASS OF THE BU
LL, YOU MAY TRY" 250 PRINT "0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)"
260 PRINT "1 - LESS DANGEROUS OUTSIDE MOVE OF THEHEN 1650 1640 GOTO 1670 1650
PRINT "YOUR BUG IS FINISHED." 1660 YY+1 1670 IF S2 AND P1 AND V6 THEN 1690 16
80 GOTO 1710 1690 PRINT "MY BUG IS FINISHED." 1700 YY+2 1710 IF C1 THEN 300
1720 PRINT "DO YOU WANT THE PICTURES" 1730 INPUT Z$ 1740 IF Z$"NO" THEN 300 1
750 PRINT "*****YOUR BUG*****" 1760 PRINT 1770 PRINT 1780 IF A0 THEN 1860 17
90 FOR Z1 TO 4 1800 FOR X1 TO A 1810 PRINT TAB(10) 1820 PRINT "A " 1830 NEXT
X 1840 PRINT 1850 NEXT Z 1860 IF H0 THEN 1880 1870 GOSUB 2470 CAPE" 270 P
RINT "2 - ORDINARY SWIRL OF THE CAPE." 280 PRINT 290 PRINT "INSTEAD OF THE ABO
VE, YOU MAY TRY TO KILL THE BULL" 300 PRINT "ON ANY TURN 4 (OVER THE HORNS), 5
(IN THE CHEST)." 310 PRINT "BUT IF I WERE YOU," 320 PRINT "I WOULDN'T TRY IT B
EFORE THE SEVENTH PASS." 330 PRINT 340 PRINT "THE CROWD WILL DETERMINE WHAT AW
ARD YOU DESERVE" 350 PRINT "(POSTHUMOUSLY IF NECESSARY)." 360 PRINT "THE BRAVE
R YOU ARE, THE BETTER THE AWARD YOU RECIEVE." 370 PRINT 380 PRINT "THE BETTER
THE JOB THE PICADO 1880 IF N0 THEN 1920 1890 FOR Z1 TO 2 1900 PRINT "
N N" 1910 NEXT Z 1920 IF B0 THEN 2000 1930 PRINT " BBBBBBBBBBBB" 1940 F
OR Z1 TO 2 1950 PRINT " B B" 1960 NEXT Z 1970 IF T1 THEN 1990 1
980 PRINT "TTTTTB B" 1990 PRINT " BBBBBBBBBBBB" 2000 IF L0 THEN 2
080 2010 FOR Z1 TO 2 2020 PRINT TAB(5) 2030 FOR X1 TO L 2040 PRINT " L" 205
0 NEXT X 2060 PRINT 2070 NEXT Z 2080 FOR Z1 TO 4 2090 PRINT 2100 NEXT Z 21
10 PRINT "*****MY BUG*****" 2120 PRIN RRES AND TOREADORES DO," 390 PRINT "THE
BETTER YOUR CHANCES ARE." 400 PRINT 410 PRINT 420 D(5)1 430 D(4)1 450 DIM
L$(5) 455 AINT(RND(1)*5+1) 460 FOR I1 TO 5 463 READ L$(I) 467 NEXT I 470 DA
TA "SUPERB","GOOD","FAIR","POOR","AWFUL" 490 PRINT "YOU HAVE DRAWN A "L$(A)" BU
LL." 500 IF A4 THEN 530 510 IF A2 THEN 550 520 GOTO 570 530 PRINT "YOU'RE LU
CKY." 540 GOTO 570 550 PRINT "GOOD LUCK. YOU'LL NEED IT." 560 PRINT 570 PRI
NT 590 A$"PICADO" 595 B$"RES" 600 GOSUB 1610 610 D(1)C 63)+D(2))*2.5+4*D(4)
+2*D(5)-D(3)2/120-A) 1400 IF D(4)2 THEN 1430 1410 PRINT "THE CROWD CHEERS WILD
LY!" 1420 GOTO 1450 1430 IF D(5)2 THEN 1450 1440 PRINT "THE CROWD CHEERS!"PRI
NT 1450 PRINT "THE CROWD AWARDS YOU" 1460 IF FNC(Q)2.4 THEN 1570 1470 IF FNC(
Q)4.9 THEN 1550 1480 IF FNC(Q)7.4 THEN 1520 1500 PRINT "OLE! YOU ARE 'MUY HOM
BRE'!! OLE! OLE!" 1510 GOTO 1580 1520 PRINT "BOTH EARS OF THE BULL!" 1530 PR
INT "OLE!" 1540 GOTO 1580 1550 PRINT "ONE EAR OF THE BULL." 1560 GOTO 1580 1
570 P0 A$"TOREAD" 635 B$"ORES" 640 GOSUB 1610 650 D(2)C 660 PRINT 670 PRINT
680 IF Z1 THEN 1310 690 D(3)D(3)+1 700 PRINT "PASS NUMBER"D(3) 710 IF D(3)3
THEN 760 720 PRINT "HERE COMES THE BULL. TRY FOR A KILL" 730 GOSUB 1930 735
IF Z11 THEN 1130 740 PRINT "CAPE MOVE" 750 GOTO 800 760 PRINT "THE BULL IS C
HARGING AT YOU! YOU ARE THE MATADOR--" 770 PRINT "DO YOU WANT TO KILL THE BULL
" 780 GOSUB 1930 785 IF Z11 THEN 1130 790 PRINT "WHAT MOVE DO YOU MAKE WITH T
HE CAPE" 800 INPUT E 8RINT "NOTHING AT ALL." 1580 PRINT 1590 PRINT "ADIOS"PR
INTPRINTPRINT 1600 GOTO 2030 1610 B3/A*RND(1) 1620 IF B.37 THEN 1740 1630 IF
B.5 THEN 1720 1640 IF B.63 THEN 1700 1650 IF B.87 THEN 1680 1660 C.1 1670 G
OTO 1750 1680 C.2 1690 GOTO 1750 1700 C.3 1710 GOTO 1750 1720 C.4 1730 GOT
O 1750 1740 C.5 1750 TINT(10*C+.2) 1760 PRINT "THE "A$B$" DID A "L$(T)" JOB."
1770 IF 4T THEN 1900 1780 IF 5T THEN 1870 1790 ON FNA(K) GOTO 1830,1850 180
0 IF A$"TOREAD" THEN 1820 1810 PR10 IF EINT(ABS(E)) THEN 830 820 IF E3 THEN 85
0 830 PRINT "DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER" 840 GOTO 800
850 REM 860 IF E0 THEN 920 870 IF E1 THEN 900 880 M.5 890 GOTO 930 900 M2
910 GOTO 930 920 M3 930 LL+M 940 F(6-A+M/10)*RND(1)/((D(1)+D(2)+D(3)/10)*5)
950 IF F.51 THEN 660 960 PRINT "THE BULL HAS GORED YOU!" 970 ON FNA(0) GOTO 9
80,1010 980 PRINT "YOU ARE DEAD." 990 D(4)1.5 1000 GOTO 1310 1010 PRINT "YOU
ARE STILL ALIVE."PRINT 1020 PRINT "DO YOU RUN FROM INT "ONE OF THE HORSES OF T
HE "A$B$" WAS KILLED." 1820 ON FNA(K) GOTO 1830,1850 1830 PRINT "ONE OF THE "A
$B$" WAS KILLED." 1840 GOTO 1900 1850 PRINT "NO "A$B$" WERE KILLED." 1860 GOT
O 1900 1870 IF A$"TOREAD" THEN 1890 1880 PRINT FNA(K)"OF THE HORSES OF THE "A$
B$" KILLED." 1890 PRINT FNA(K)"OF THE "A$B$" KILLED." 1900 PRINT 1910 RETURN
1920 REM 1930 INPUT A$ 1940 IF A$"YES" THEN 1990 1950 IF A$"NO" THEN 2010 1
970 PRINT "INCORRECT ANSWER - - PLEASE TYPE 'YES' OR 'NO'." 1980THE RING" 1030
GOSUB 1930 1035 IF Z12 THEN 1070 1040 PRINT "COWARD" 1050 D(4)0 1060 GOTO 1
310 1070 PRINT "YOU ARE BRAVE. STUPID, BUT BRAVE." 1080 ON FNA(0) GOTO 1090,1
110 1090 D(4)2 1100 GOTO 660 1110 PRINT "YOU ARE GORED AGAIN!" 1120 GOTO 970
1130 REM 1140 Z1 1150 PRINTPRINT "IT IS THE MOMENT OF TRUTH."PRINT 1155 PRI
NT "HOW DO YOU TRY TO KILL THE BULL" 1160 INPUT H 1170 IF H4 THEN 1230 1180 I
F H5 THEN 1230 1190 PRINT "YOU PANICKED. THE BULL GORED YOU." 1220 GOTO 970
1230 K GOTO 1930 1990 Z11 2000 GOTO 2020 2010 Z12 2020 RETURN 2030 END (6-
A)*10*RND(1)/((D(1)+D(2))*5*D(3)) 1240 IF J4 THEN 1290 1250 IF K.2 THEN 960 1
260 PRINT "YOU KILLED THE BULL!" 1270 D(5)2 1280 GOTO 1320 1290 IF K.8 THEN 9
60 1300 GOTO 1260 1310 PRINT 1320 PRINT 1330 PRINT 1340 IF D(4)0 THEN 1390
1350 PRINT "THE CROWD BOOS FOR TEN MINUTES. IF YOU EVER DARE TO SHOW" 1360 PR
INT "YOUR FACE IN A RING AGAIN, THEY SWEAR THEY WILL KILL YOU--" 1370 PRINT "UN
LES THE BULL DOES FIRST." 1380 GOTO 1580 1390 DEF FNC(Q)FND(Q)*RND(1) 1395 DE
F FND(Q)(4.5+L/6-(D(1 R 10 PRINT TAB(33)"BUNNY" 20 PRINT TAB(15)"CREA
TIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT PRINT PRINT 100 REM "BUNNY"
FROM AHL'S 'BASIC COMPUTER GAMES' 110 REM 120 FOR I0 TO 4 READ B(I) NEXT I 13
0 GOSUB 260 140 L64 REM ASCII LETTER CODE... 150 REM 160 PRINT 170 READ X I
F X0 THEN 160 175 IF X128 THEN 240 180 PRINT TAB(X) READ Y 190 FOR IX TO Y JI
-5*INT(I/5) 200 PRINT CHR$(L+B(J)) 210 NEXT I 220 GOTO 170 230 REM 240 GOSU
B 260 GOTO 450 250 REM 260 FOR I1 TO 6 PRIN5 PRINT TAB(32)"BULLSEYE" 10 PRINT
TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 20 PRINTPRINTPRINT 30 PRI
NT "IN THIS GAME, UP TO 20 PLAYERS THROW DARTS AT A TARGET" 40 PRINT "WITH 10,
20, 30, AND 40 POINT ZONES. THE OBJECTIVE IS" 50 PRINT "TO GET 200 POINTS." PR
INT 60 PRINT "THROW",TAB(20)"DESCRIPTION"TAB(45)"PROBABLE SCORE" 70 PRINT" 1"T
AB(20)"FAST OVERARM"TAB(45)"BULLSEYE OR COMPLETE MISS" 80 PRINT" 2"TAB(20)"CONT
ROLLED OVERARM"TAB(45)"10, 20 OR 30 POINTS" 90 PRINT" 3"TABT CHR$(10) NEXT I 2
70 RETURN 280 REM 290 DATA 2,21,14,14,25 300 DATA 1,2,-1,0,2,45,50,-1,0,5,43,
52,-1,0,7,41,52,-1 310 DATA 1,9,37,50,-1,2,11,36,50,-1,3,13,34,49,-1,4,14,32,48
,-1 320 DATA 5,15,31,47,-1,6,16,30,45,-1,7,17,29,44,-1,8,19,28,43,-1 330 DATA
9,20,27,41,-1,10,21,26,40,-1,11,22,25,38,-1,12,22,24,36,-1 340 DATA 13,34,-1,14
,33,-1,15,31,-1,17,29,-1,18,27,-1 350 DATA 19,26,-1,16,28,-1,13,30,-1,11,31,-1,
10,32,-1 360 DATA 8,33,-1,7,34,-1,6,13,16,34,-1,5,12,16,35,-1 370 DATA 4,12,16
,35,-1,3,1(20)"UNDERARM"TAB(45)"ANYTHING"PRINT 100 DIM A$(20),S(20),W(10) M0 R0
FOR I1 TO 20 S(I)0 NEXT I 110 INPUT "HOW MANY PLAYERS"N PRINT 120 FOR I1 TO N
130 PRINT "NAME OF PLAYER #"IINPUT A$(I) 140 NEXT I 150 RR+1 PRINT PRINT "RO
UND"RPRINT "---------" 160 FOR I1 TO N 170 PRINT PRINT A$(I)"'S THROW" INPUT T
180 IF T0 OR T3 THEN PRINT "INPUT 1, 2, OR 3!" GOTO 170 190 ON T GOTO 200, 21
0, 200 200 P1.65 P2.55 P3.5 P4.5 GOTO 230 210 P1.99 P2.77 P3.43 P4.01 GOT2,15,
35,-1,2,35,-1,1,35,-1 380 DATA 2,34,-1,3,34,-1,4,33,-1,6,33,-1,10,32,34,34,-1
390 DATA 14,17,19,25,28,31,35,35,-1,15,19,23,30,36,36,-1 400 DATA 14,18,21,21,2
4,30,37,37,-1,13,18,23,29,33,38,-1 410 DATA 12,29,31,33,-1,11,13,17,17,19,19,22
,22,24,31,-1 420 DATA 10,11,17,18,22,22,24,24,29,29,-1 430 DATA 22,23,26,29,-1
,27,29,-1,28,29,-1,4096 440 REM 450 END O 230 220 P1.95 P2.75 P3.45 P4.05 2
30 URND(1) 240 IF UP1 THEN PRINT "BULLSEYE!! 40 POINTS!"B40 GOTO 290 250 IF U
P2 THEN PRINT "30-POINT ZONE!"B30 GOTO 290 260 IF UP3 THEN PRINT "20-POINT ZONE
"B20 GOTO 290 270 IF UP4 THEN PRINT "WHEW! 10 POINTS."B10 GOTO 290 280 PRINT
"MISSED THE TARGET! TOO BAD." B0 290 S(I)S(I)+B PRINT "TOTAL SCORE "S(I) NEXT
I 300 FOR I1 TO N 310 IF S(I)200 THEN MM+1 W(M)I 320 NEXT I 330 IF M0 THEN 1
50 340 PRINT PRINT "WE HAVE A WINNER!!" PRINT 350 FOR I1 TO M PRINT A$(W(I))"
SCORED"S(W(I))"POINTS." NEXT I 360 PRINT PRINT "THANKS FOR THE GAME." END R1
0 PRINT TAB(26)"BUZZWORD GENERATOR" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRIS
TOWN, NEW JERSEY" 30 PRINTPRINTPRINT 40 PRINT "THIS PROGRAM PRINTS HIGHLY ACCE
PTABLE PHRASES IN" 50 PRINT "'EDUCATOR-SPEAK'THAT YOU CAN WORK INTO REPORTS" 6
0 PRINT "AND SPEECHES. WHENEVER A QUESTION MARK IS PRINTED," 70 PRINT "TYPE A
'Y' FOR ANOTHER PHRASE OR 'N' TO QUIT." 80 PRINTPRINTPRINT "HERE'S THE FIRST PH
RASE" 90 DIM A$(40) 100 FOR I1 TO 39 READ A$(I) NEXT I 110 PRINT A$(INT(13*
RND(1)+1))" " 120 EM--SUBROUTINE TO GET A CARD. RESULT IS PUT IN X. 110 IF C5
1 THEN 230 120 PRINT "RESHUFFLING" 130 FOR DD TO 1 STEP -1 140 CC-1 150 C(C)
D(D) 160 NEXT D 170 FOR C152 TO C STEP -1 180 C2INT(RND(1)*(C1-C+1))+C 190 C
3C(C2) 200 C(C2)C(C1) 210 C(C1)C3 220 NEXT C1 230 XC(C) 240 CC+1 250 RETUR
N 300 REM--SUBROUTINE TO EVALUATE HAND I. TOTAL IS PUT INTO 310 REM--Q(I). TO
TALS HAVE THE FOLLOWING MEANING 320 REM-- 2-10...HARD 2-10 330 REM-- 11-21...
SOFT 11-21 340 REM-- 22-32...HARD 11-2PRINT A$(INT(13*RND(1)+14))" " 130 PRINT
A$(INT(13*RND(1)+27)) PRINT 150 INPUT Y$ IF Y$"Y" THEN 110 160 GOTO 999 20
0 DATA "ABILITY","BASAL","BEHAVIORAL","CHILD-CENTERED" 210 DATA "DIFFERENTIATED
","DISCOVERY","FLEXIBLE","HETEROGENEOUS" 220 DATA "HOMOGENEOUS","MANIPULATIVE",
"MODULAR","TAVISTOCK" 230 DATA "INDIVIDUALIZED","LEARNING","EVALUATIVE","OBJECT
IVE" 240 DATA "COGNITIVE","ENRICHMENT","SCHEDULING","HUMANISTIC" 250 DATA "INT
EGRATED","NON-GRADED","TRAINING","VERTICAL AGE" 260 DATA "MOTIVAT1 350 REM--
33+....BUSTED 360 Q0 370 FOR Q21 TO R(I) 380 XP(I,Q2) 390 GOSUB 500 400 NEX
T Q2 410 Q(I)Q 420 RETURN 500 REM--SUBROUTINE TO ADD CARD X TO TOTAL Q. 510
X1X IF X110 THEN X110 REM SAME AS X110 MIN X 520 Q1Q+X1 530 IF Q11 THEN 590
540 IF X1 THEN 570 550 QQ+11 560 RETURN 570 QQ1-11*(Q111) 580 RETURN 590 Q
Q1-(Q21 AND Q121) 600 IF Q33 THEN 620 610 Q-1 620 RETURN 700 REM--CARD PRINT
ING SUBROUTINE 710 REM D$ DEFINED ELSEWHERE 720 PRINT MID$(D$,3*X-2,3)IONAL",
"CREATIVE","GROUPING","MODIFICATION" 270 DATA "ACCOUNTABILITY","PROCESS","CORE
CURRICULUM","ALGORITHM" 280 DATA "PERFORMANCE","REINFORCEMENT","OPEN CLASSROOM"
,"RESOURCE" 290 DATA "STRUCTURE","FACILITY","ENVIRONMENT" 999 PRINT "COME BACK
WHEN YOU NEED HELP WITH ANOTHER REPORT!"END 730 PRINT " " 740 RETURN 750
REM--ALTERNATIVE PRINTING ROUTINE 760 PRINT " "MID$(D$,3*X-1,2) 770 PRINT "
" 780 RETURN 800 REM--SUBROUTINE TO PLAY OUT A HAND. 810 REM--NO SPLITTING OR
BLACKJACKS ALLOWED 820 H15 830 GOSUB 1410 840 H13 850 ON H GOTO 950,930 86
0 GOSUB 100 870 B(I)B(I)*2 880 PRINT "RECEIVED A" 890 GOSUB 700 900 GOSUB 11
00 910 IF Q0 THEN GOSUB 1300 920 RETURN 930 GOSUB 1320 940 RETURN 950 GOSUB
100 960 PRINT "RECEIVED A" 970 GOSUB 700 980 GOSUB 1100 990 IF Q0 THEN 940
1000 PRINT "HIT" 1010 GOTO 830 1100 REM--SUBROUTINE TO ADD A CARD TO ROW I 1
110 R(I)R(I)+1 1120 P(I,R(I))X 1130 QQ(I) 1140 GOSUB 500 1150 Q(I)Q 1160 IF
Q0 THEN 1190 1170 PRINT "...BUSTED" 1180 GOSUB 1200 1190 RETURN 1200 REM--S
UBROUTINE TO DISCARD ROW I 1210 IF R(I)0 THEN 1230 1220 RETURN 1230 DD+1 124
0 D(D)P(I,R(I)) 1250 R(I)R(I)-1 1260 GOTO 1210 1300 REM--PRINTS TOTAL OF HAND
I 1310 PRINT 1320 AAQ(I) GOSUB 3400 1325 PRINT "TOTAL IS"AA 1330 RETURN 14
00 R2 PRINT TAB(31)"BLACK JACK" 4 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN,
NEW JERSEY" 6 PRINTPRINTPRINT 10 DEF FNA(Q)Q+11*(Q22) 20 DIM P(15,12),Q(15),
C(52),D(52),T(8),S(7),B(15) 30 DIM R(15) 40 REM--P(I,J) IS THE JTH CARD IN HAN
D I, Q(I) IS TOTAL OF HAND I 50 REM--C IS THE DECK BEING DEALT FROM, D IS THE D
ISCARD PILE, 60 REM--T(I) IS THE TOTAL FOR PLAYER I, S(I) IS THE TOTAL THIS HAN
D FOR 70 REM--PLAYER I, B(I) IS TH BET FOR HAND I 80 REM--R(I) IS THE LENGTH O
F P(I,*) 90 GOTO 1500 100 R REM--SUBROUTINE TO READ REPLY 1410 REM I$ DEFIN
ED ELSEWHERE 1420 INPUT H$ H$LEFT$(H$,1) 1430 FOR H1 TO H1 STEP 2 1440 IF H$M
ID$(I$,H,1) THEN 1480 1450 NEXT H 1460 PRINT "TYPE "MID$(I$,1,H1-1)" OR "MID$(
I$,H1,2)" PLEASE" 1470 GOTO 1420 1480 H(H+1)/2 1490 RETURN 1500 REM--PROGRAM
STARTS HERE 1510 REM--INITIALIZE 1520 D$"N A 2 3 4 5 6 7N 8 9 10 J Q
K" 1530 I$"H,S,D,/," 1540 FOR I1 TO 13 1550 FOR J4*I-3 TO 4*I 1560 D(J)I
1570 NEXT J 1580 NEXT I 1590 D52 1600 C53 1HEN 2160 2200 NEXT I 2210 FOR I
1 TO N 2220 S(I)Z(I)*(3*(-(P(D1,2)10))-1) 2230 NEXT I 2240 REM--TEST FOR DEAL
ER BLACKJACK 2250 L11 L21 2252 IF P(D1,1)1 AND P(D1,2)9 THEN L10 L20 2253 IF
P(D1,2)1 AND P(D1,1)9 THEN L10 L20 2254 IF L10 OR L20 THEN 2320 2260 PRINTPRIN
T "DEALER HAS A"MID$(D$,3*P(D1,2)-2,3)" IN THE HOLE " 2270 PRINT "FOR BLACKJACK
" 2280 FOR I1 TO D1 2290 GOSUB 300 2300 NEXT I 2310 GOTO 3140 2320 REM--NO
DEALER BLACKJACK 2330 IF P(D1,1)1 AND P(D1,1)10 TH610 PRINT "DO YOU WANT INSTRU
CTIONS" 1620 INPUT H$ 1630 IF LEFT$(H$,1)"N" OR LEFT$(H$,1)"n" THEN 1760 1640
PRINT "THIS IS THE GAME OF 21. AS MANY AS 7 PLAYERS MAY PLAY THE" 1650 PRINT "
GAME. ON EACH DEAL, BETS WILL BE ASKED FOR, AND THE" 1660 PRINT "PLAYERS' BETS
SHOULD BE TYPED IN. THE CARDS WILL THEN BE" 1670 PRINT "DEALT, AND EACH PLAYER
IN TURN PLAYS HIS HAND. THE" 1680 PRINT "FIRST RESPONSE SHOULD BE EITHER 'D', I
NDICATING THAT THE" 1690 PRINT "PLAYER IS DOUBLING DOWN, 'S', INDICATING THAT H
EN 2350 2340 PRINTPRINT "NO DEALER BLACKJACK." 2350 REM--NOW PLAY THE HANDS 2
360 FOR I1 TO N 2370 PRINT "PLAYER"I 2380 H17 2390 GOSUB 1410 2400 ON H GOTO
2550,2410,2510,2600 2410 REM--PLAYER WANTS TO STAND 2420 GOSUB 300 2430 IF Q
(I)21 THEN 2490 2440 PRINT "BLACKJACK" 2450 S(I)S(I)+1.5*B(I) 2460 B(I)0 247
0 GOSUB 1200 2480 GOTO 2900 2490 GOSUB 1320 2500 GOTO 2900 2510 REM--PLAYER
WANTS TO DOUBLE DOWN 2520 GOSUB 300 2530 GOSUB 860 2540 GOTO 2900 2550 REM--
PLAYER WANTS TO BE HIT E IS" 1700 PRINT "STANDING, 'H', INDICATING HE WANTS ANO
THER CARD, OR '/'," 1710 PRINT "INDICATING THAT HE WANTS TO SPLIT HIS CARDS. AF
TER THE" 1720 PRINT "INITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD BE 'S' OR"
1730 PRINT "'H', UNLESS THE CARDS WERE SPLIT, IN WHICH CASE DOUBLING" 1740 PRI
NT "DOWN IS AGAIN PERMITTED. IN ORDER TO COLLECT FOR" 1750 PRINT "BLACKJACK, TH
E INITIAL RESPONSE SHOULD BE 'S'." 1760 PRINT "NUMBER OF PLAYERS" 1770 INPUT N
1775 PRINT 1780 IF N1 OR N7 OR NINT(N) THEN 1760 2560 GOSUB 300 2570 H13 25
80 GOSUB 950 2590 GOTO 2900 2600 REM--PLAYER WANTS TO SPLIT 2610 L1P(I,1) IF
P(I,1)10 THEN L110 2612 L2P(I,2) IF P(I,2)10 THEN L210 2614 IF L1L2 THEN 2640
2620 PRINT "SPLITTING NOT ALLOWED." 2630 GOTO 2370 2640 REM--PLAY OUT SPLIT
2650 I1I+D1 2660 R(I1)2 2670 P(I1,1)P(I,2) 2680 B(I+D1)B(I) 2690 GOSUB 100
2700 PRINT "FIRST HAND RECEIVES A" 2710 GOSUB 700 2720 P(I,2)X 2730 GOSUB 300
2740 PRINT 2750 GOSUB 100 2760 PRINT "SECOND HAND RECEIVES A" 1790 FOR I1
TO 8 T(I)0 NEXT I 1800 D1N+1 1810 IF 2*D1+C52 THEN GOSUB 120 1820 IF C2 THEN
CC-1 1830 FOR I1 TO N Z(I)0 NEXT I 1840 FOR I1 TO 15 B(I)0 NEXT I 1850 FOR I1
TO 15 Q(I)0 NEXT I 1860 FOR I1 TO 7 S(I)0 NEXT I 1870 FOR I1 TO 15 R(I)0 NEXT
I 1880 PRINT "BETS" 1890 FOR I1 TO N PRINT "#"I INPUT Z(I) NEXT I 1900 FOR I
1 TO N 1910 IF Z(I)0 OR Z(I)500 THEN 1880 1920 B(I)Z(I) 1930 NEXT I 1940 PRI
NT "PLAYER" 1950 FOR I1 TO N 1960 PRINT I" " 197 2770 II1 2780 GOSUB 700
2790 P(I,2)X 2800 GOSUB 300 2810 PRINT 2820 II1-D1 2830 IF P(I,1)1 THEN 2900
2840 REM--NOW PLAY THE TWO HANDS 2850 PRINT "HAND"1-(ID1) 2860 GOSUB 800 28
70 II+D1 2880 IF II1 THEN 2850 2890 II1-D1 2900 NEXT I 2910 GOSUB 300 2920
REM--TEST FOR PLAYING DEALER'S HAND 2930 FOR I1 TO N 2940 IF R(I)0 OR R(I+D1)0
THEN 3010 2950 NEXT I 2960 PRINT "DEALER HAD A" 2970 XP(D1,2) 2980 GOSUB 70
0 2990 PRINT " CONCEALED." 3000 GOTO 3140 3010 PRINT "DEALER HAS A"0 NEXT I
1980 PRINT "DEALER" 1990 FOR J1 TO 2 2000 PRINT TAB(5) 2010 FOR I1 TO D1 202
0 GOSUB 100 2030 P(I,J)X 2040 IF J1 OR IN THEN GOSUB 750 2050 NEXT I 2060 PR
INT 2070 NEXT J 2080 FOR I1 TO D1 2090 R(I)2 2100 NEXT I 2110 REM--TEST FOR
INSURANCE 2120 IF P(D1,1)1 THEN 2240 2130 PRINT "ANY INSURANCE" 2140 INPUT H
$ 2150 IF LEFT$(H$,1)"Y" THEN 2240 2160 PRINT "INSURANCE BETS" 2170 FOR I1 TO
N PRINT "#"I INPUT Z(I) NEXT I 2180 FOR I1 TO N 2190 IF Z(I)0 OR Z(I)B(I)/2 T
RMID$(D$,3*P(D1,2)-2,3)" CONCEALED " 3020 ID1 3030 AAQ(I) GOSUB 3400 3035 P
RINT "FOR A TOTAL OF"AA 3040 IF AA16 THEN 3130 3050 PRINT "DRAWS" 3060 GOSUB
100 3070 GOSUB 750 3080 GOSUB 1100 3090 AAQ GOSUB 3400 3095 IF Q0 AND AA17 T
HEN 3060 3100 Q(I)Q-(Q0)/2 3110 IF Q0 THEN 3140 3120 AAQ GOSUB 3400 3125 PRI
NT "---TOTAL IS"AA 3130 PRINT 3140 REM--TALLY THE RESULT 3150 REM 3160 Z$"L
OSES PUSHES WINS " 3165 PRINT 3170 FOR I1 TO N 3180 AAQ(I) GOSUB 3400 3182 A
BQ(I+D1) G 160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS" 1
70 PRINT "FIRST IS THE WINNER." 180 PRINT 190 PRINT "GOOD LUCK... AND TELL US
WHERE YOU WANT THE BODIES SENT!" 200 PRINT 210 PRINT "TEAR OFF MATRIX AND USE
IT TO CHECK OFF THE NUMBERS." 220 FOR R1 TO 5 PRINT NEXT R 260 DIM M(100) 270
FOR R1 TO 5 280 I(R-1)*5+1 290 PRINT I,I+1,I+2,I+3,I+4 300 NEXT R 350 FOR R
1 TO 10 PRINT NEXT R 380 CINT(RND(1)*25)+1 390 DINT(RND(1)*25)+1 400 EINT(RND
(1)*25)+1 410 FINT(RND(1)*25)OSUB 3410 3184 ACQ(D1) GOSUB 3420 3186 S(I)S(I)+
B(I)*SGN(AA-AC)+B(I+D1)*SGN(AB-AC) 3188 B(I+D1)0 3200 PRINT "PLAYER"I 3210 PR
INT MID$(Z$,SGN(S(I))*6+7,6)" " 3220 IF S(I)0 THEN 3250 3230 PRINT " " 3
240 GOTO 3260 3250 PRINT ABS(S(I)) 3260 T(I)T(I)+S(I) 3270 PRINT "TOTAL"T(I)
3280 GOSUB 1200 3290 T(D1)T(D1)-S(I) 3300 II+D1 3310 GOSUB 1200 3320 II-D1
3330 NEXT I 3340 PRINT "DEALER'S TOTAL"T(D1) 3345 PRINT 3350 GOSUB 1200 336
0 GOTO 1810 3400 AAAA+11*(AA22) RETUR+1 420 IF CD THEN 390 430 IF CE THEN 400
440 IF CF THEN 410 450 IF DE THEN 400 460 IF DF THEN 410 470 IF EF THEN 410
480 PRINT "WHAT ARE YOUR FOUR POSITIONS" 490 INPUT G,H,K,L 495 PRINT 500 PR
INT "WHERE DO YOU WISH TO FIRE YOUR MISSLE" 510 INPUT Y 520 IF YC THEN 710 53
0 IF YD THEN 710 540 IF YE THEN 710 550 IF YF THEN 710 560 GOTO 630 570 MINT
(RND(1)*25)+1 575 GOTO 1160 580 IF XG THEN 920 590 IF XH THEN 920 600 IF XL
THEN 920 610 IF XK THEN 920 620 GOTO 670 630 PRINTN 3410 ABAB+11*(AB22) RETU
RN 3420 ACAC+11*(AC22) RETURN "HA, HA YOU MISSED. MY TURN NOW" 640 PRINT PRI
NT GOTO 570 670 PRINT "I MISSED YOU, YOU DIRTY RAT. I PICKED"M". YOUR TURN" 68
0 PRINT PRINT GOTO 500 710 QQ+1 720 IF Q4 THEN 890 730 PRINT "YOU GOT ONE OF
MY OUTPOSTS!" 740 IF Q1 THEN 770 750 IF Q2 THEN 810 760 IF Q3 THEN 850 770 P
RINT "ONE DOWN, THREE TO GO." 780 PRINT PRINT GOTO 570 810 PRINT "TWO DOWN, TW
O TO GO." 820 PRINT PRINT GOTO 570 850 PRINT "THREE DOWN, ONE TO GO." 860 PRI
NT PRINT GOTO 570 890 PRINT "YOU GOT ME, I'M GOING FAST. BUT I'LL GET YOU WHEN"
900 PRINT "MY TRANSISTO&S RECUP%RA*E!" 910 GOTO 1235 920 ZZ+1 930 IF Z4 THE
N 1110 940 PRINT "I GOT YOU. IT WON'T BE LONG NOW. POST"X"WAS HIT." 950 IF Z1
THEN 990 960 IF Z2 THEN 1030 970 IF Z3 THEN 1070 990 PRINT "YOU HAVE ONLY THR
EE OUTPOSTS LEFT." 1000 PRINT PRINT GOTO 500 1030 PRINT "YOU HAVE ONLY TWO OUT
POSTS LEFT." 1040 PRINT PRINT GOTO 500 1070 PRINT "YOU HAVE ONLY ONE OUTPOST L
EFT." 1080 PRINT PRINT GOTO 500 1110 PRINT "YOU'RE DEAD. YOUR L10 PRINT TAB(33
)"BOMBARDMENT" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30
PRINTPRINTPRINT 100 PRINT "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU"
110 PRINT "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED." 120 PRINT "YOU
CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST." 130 PRINT "THE COMPUTER DOES T
HE SAME WITH ITS FOUR PLATOONS." 135 PRINT 140 PRINT "THE OBJECT OF THE GAME I
S TO FIRE MISSLES AT THE" 150 PRINT "OUTPOSTS OF THE COMPUTER. IT WILL DO THE
SAME TO YOU." RAST OUTPOST WAS AT"X". HA, HA, HA." 1120 PRINT "BETTER LUCK NEX
T TIME." 1150 GOTO 1235 1160 PP+1 1170 NP-1 1180 FOR T1 TO N 1190 IF MM(T)
THEN 570 1200 NEXT T 1210 XM 1220 M(P)M 1230 GOTO 580 1235 END " 327 PRIN
T "MISSION SUCCESSFUL." GOTO 390 330 PRINT "MISSED TARGET BY"INT(2+30*RND(1))"
MILES!" 335 PRINT "NOW YOU'RE REALLY IN FOR IT !!" PRINT 340 INPUT "DOES THE
ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)"R 345 IF R0 AND R4 THEN 350 347 PR
INT "TRY AGAIN..." GOTO 340 350 PRINT T0 IF R2 THEN 360 355 INPUT "WHAT'S T
HE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)"S 357 IF S10 THEN PRINT "YOU LI
E, BUT YOU'LL PAY..." GOTO 380 358 PRINT 360 PRINT IF R1 THEN T35 365 IF S+T
100*8 PRINT "YOU ARE A PILOT IN A WORLD WAR II BOMBER." 10 INPUT "WHAT SIDE --
ITALY(1), ALLIES(2), JAPAN(3), GERMANY(4)"A 20 IF A0 AND A5 THEN 25 22 PRINT "
TRY AGAIN..." GOTO 10 25 ON A GOTO 30, 110, 200, 220 30 INPUT "YOUR TARGET --
ALBANIA(1), GREECE(2), NORTH AFRICA(3)"B 40 IF B0 AND B4 THEN 45 42 PRINT "TR
Y AGAIN..." GOTO 30 45 PRINT ON B GOTO 50, 80,90 50 PRINT "SHOULD BE EASY --
YOU'RE FLYING A NAZI-MADE PLANE." 60 GOTO 280 80 PRINT "BE CAREFUL!!!" GOTO
280 90 PRINT "YOU'RE GOINRND(1) THEN 380 370 PRINT "YOU MADE IT THROUGH TREMEN
DOUS FLAK!!" GOTO 390 380 PRINT "* * * * BOOM * * * *" 384 PRINT "YOU HAVE BE
EN SHOT DOWN....." 386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY
OUR" 387 PRINT "LAST TRIBUTE..." 390 PRINTPRINTPRINTINPUT "ANOTHER MISSION (Y
OR N)"U$ 395 IF U$"Y" THEN 8 400 PRINT "CHICKEN !!!" PRINT END G FOR THE O
IL, EH" GOTO 280 110 INPUT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCAS
TER(4)"G 120 IF G0 AND G5 THEN 125 122 PRINT "TRY AGAIN..." GOTO 110 125 PRI
NT ON G GOTO 130, 150, 170, 190 130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING F
OR PLOESTI." GOTO 280 150 PRINT "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA." GOT
O 280 170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA." GOTO 280 190 P
RINT "YOU'RE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR." 195 GOTO 280 200
PRINT "YOU2 PRINT TAB(26) "CIVIL WAR" 4 PRINT TAB(15) "CREATIVE COMPUTING MOR
RISTOWN, NEW JERSEY" 6 PRINT PRINT PRINT 20 REM ORIGINAL GAME DESIGN CRAM, G
OODIE, HIBBARD LEXINGTON H.S. 30 REM MODIFICATIONS G. PAUL, R. HESS (TIES), 197
3 50 DIM S(4),C$(14),M1(14),M2(14),C1(14),C2(14),M(14) 60 REM UNION INFO ON
LIKELY CONFEDERATE STRATEGY 70 S(1)25 S(2)25 S(3)25 S(4)25 82 REM READ HI
STORICAL DATA. 84 FOR D1 TO 14 86 READ C$(D),M1(D),M2(D),C1(D),C2(D),M(D) 8
8 NEXT D 89 LET DRND(-1) 9'RE FLYING A KAMIKAZE MISSION OVER THE USS LEXINGT
ON." 205 INPUT "YOUR FIRST KAMIKAZE MISSION(Y OR N)"F$ 207 IF F$"N" THEN S0 G
OTO 358 210 PRINT IF RND(1).65 THEN 325 215 GOTO 380 220 PRINT "A NAZI, EH
OH WELL. ARE YOU GOING FOR RUSSIA(1)," 230 INPUT "ENGLAND(2), OR FRANCE(3)"M
IF M0 AND M4 THEN 235 232 PRINT "TRY AGAIN..." GOTO 220 235 PRINT ON M GOTO
250, 260, 270 250 PRINT "YOU'RE NEARING STALINGRAD." GOTO 280 260 PRINT "NEAR
ING LONDON. BE CAREFUL, THEY'VE GOT RADAR." G0 PRINT 100 PRINT "DO YOU WANT
INSTRUCTIONS" 110 INPUT X$ 120 IF X$"YES" THEN 160 130 IF X$"NO" THEN 370
140 PRINT "YES OR NO -- " 150 GOTO 110 160 PRINT PRINT PRINT PRINT 17
0 PRINT "THIS IS A CIVIL WAR SIMULATION." 180 PRINT "TO PLAY TYPE A RESPONSE
WHEN THE COMPUTER ASKS." 190 PRINT "REMEMBER THAT ALL FACTORS ARE INTERRELATED
AND THAT YOUR" 200 PRINT "RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES U
SED ARE" 210 PRINT "BASED ON THE ACTUAL OCCURRENCE. MOST BATTLES TEND OTO 280
270 PRINT "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS." 280 P
RINT 285 INPUT "HOW MANY MISSIONS HAVE YOU FLOWN"D 290 IF D160 THEN 300 292 P
RINT "MISSIONS, NOT MILES..." 295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIM
ERS." 297 PRINT "NOW THEN, " GOTO 285 300 PRINTIF D100 THEN 310 305 PRINT "T
HAT'S PUSHING THE ODDS!" GOTO 320 310 IF D25 THEN PRINT "FRESH OUT OF TRAINING
, EH" 320 PRINT IF D160*RND(1) THEN 330 325 PRINT "DIRECT HIT!!!! "INT(100*RN
D(1))"KILLED. RTO RESULT" 220 PRINT "AS THEY DID IN THE CIVIL WAR, BUT IT ALL
DEPENDS ON YOU!!" 230 PRINT 240 PRINT "THE OBJECT OF THE GAME IS TO WIN AS
MANY BATTLES AS " 245 PRINT "POSSIBLE." 250 PRINT 260 PRINT "YOUR CHOICES
FOR DEFENSIVE STRATEGY ARE" 270 PRINT " (1) ARTILLERY ATTACK" 280 PRI
NT " (2) FORTIFICATION AGAINST FRONTAL ATTACK" 290 PRINT " (3) F
ORTIFICATION AGAINST FLANKING MANEUVERS" 300 PRINT " (4) FALLING BACK"
310 PRINT " YOUR CHOICES FOR OFFENSIVE STRATNT PRINT PRINT 1100 PRINT "THI
S IS THE BATTLE OF "C$ 1110 IF X$"NO" THEN 1150 1120 IF A11 THEN 1130 1125
ON A GOTO 3580,3620,3650,3690,3720,3750,3780,3800,3830,3860,3890 1130 ON A-11
GOTO 3920,3950,3980 1140 PRINT C$" INSTANT REPLAY" 1150 PRINT 1160 PRINT
" ","CONFEDERACY"," UNION" 1170 PRINT "MEN"," "M5," "M6 1180 PRINT "MONEY","
$"D(1),"$"D(2) 1190 PRINT "INFLATION"," "I1+15"%"," "I2"%" 1195 PRINT 1200
REM - ONLY IN PRINTOUT IS CONFED INFLATION I1+15% 1210 REM - IEGY ARE" 320
PRINT " (1) ARTILLERY ATTACK" 330 PRINT " (2) FRONTAL ATTACK"
340 PRINT " (3) FLANKING MANEUVERS" 350 PRINT " (4) ENCIRCLEMEN
T" 360 PRINT "YOU MAY SURRENDER BY TYPING A '5' FOR YOUR STRATEGY." 370 PRIN
T PRINT PRINT PRINT "ARE THERE TWO GENERALS PRESENT " 380 PRINT "(ANSWER YE
S OR NO)" 390 INPUT B$ 400 IF B$"YES" THEN 430 410 IF B$ "NO" THEN 380 4
20 PRINT PRINT "YOU ARE THE CONFEDERACY. GOOD LUCK!" 425 PRINT 430 LET D
1 440 F TWO GENERALS, INPUT CONFED. FIRST 1220 FOR I1 TO D 1230 IF B$ "YES
" THEN 1260 1240 IF I2 THEN 1260 1250 PRINT "CONFEDERATE GENERAL---" 1260
PRINT "HOW MUCH DO YOU WISH TO SPEND FOR" 1270 PRINT " - FOOD......" 1280 IN
PUT F 1290 IF F 0 THEN 1360 1300 IF R1 0 THEN 1330 1310 PRINT "NO PREVIO
US ENTRIES" 1320 GOTO 1270 1330 PRINT "ASSUME YOU WANT TO KEEP SAME ALLOCATI
ONS" 1340 PRINT 1350 GOTO 1510 1360 LET F(I)F 1370 PRINT " - SALARIES.."
1380 INPUT H(I) 1390 L IF B$ "YES" THEN 460 450 LET D2 460 PRINT "SELE
CT A BATTLE BY TYPING A NUMBER FROM 1 TO 14 ON" 470 PRINT "REQUEST. TYPE ANY
OTHER NUMBER TO END THE SIMULATION." 480 PRINT "BUT '0' BRINGS BACK EXACT PREV
IOUS BATTLE SITUATION" 490 PRINT "ALLOWING YOU TO REPLAY IT" 500 PRINT 510
PRINT "NOTE A NEGATIVE FOOD$ ENTRY CAUSES THE PROGRAM TO " 520 PRINT "USE THE
ENTRIES FROM THE PREVIOUS BATTLE" 530 PRINT 540 PRINT "AFTER REQUESTING A B
ATTLE, DO YOU WISH " 550 PRINT "BATTLE DESCRIPTIONS ET N1 1400 IF H(I)0 THEN
1490 1410 PRINT " - AMMUNITION" 1420 INPUT B(I) 1430 LET N2 1440 IF B(I
)0 THEN 1490 1450 PRINT 1460 IF F(I)+H(I)+B(I) D(I) THEN 1510 1470 PRINT
"THINK AGAIN! YOU HAVE ONLY $"D(I) 1480 GOTO 1270 1490 PRINT "NEGATIVE VALUE
S NOT ALLOWED." 1500 ON N GOTO 1370,1410 1510 IF B$ "YES" THEN 1550 1520
IF I2 THEN 1550 1530 PRINT "UNION GENERAL---" 1540 NEXT I 1550 FOR Z1 TO D
1560 IF B$ "YES" THEN 1620 1570 ON Z GOTO 1580,1600 1580 PRINT "" 560
PRINT "(ANSWER YES OR NO)" 570 INPUT X$ 580 IF X$"YES" THEN 600 590 IF X$
"NO" THEN 560 600 L0W0R10Q10M30M40P10P20T10T20 610 F(2)0H(2)0B(2)0R20Q20C60
F0W00Y0Y20U0U20 620 PRINT PRINT PRINT 630 PRINT "WHICH BATTLE DO YOU WISH
TO SIMULATE" 640 INPUT A 650 IF A 0 THEN 660 655 IF R 0 THEN 1140 660
IF A 0 THEN 2860 665 IF A 15 THEN 2860 670 LET C$C$(A) 680 LET M1M1(A) 6
90 LET M2M2(A) 700 LET C1C1(A) 710 LECONFEDERATE " 1590 GOTO 1620 1600
PRINT " UNION " 1610 REM - FIND MORALE 1620 LET O((2*F(Z)2+H(Z)2)/F12+1
) 1630 IF O10 THEN 1660 1640 PRINT "MORALE IS HIGH" 1650 GOTO 1700 1660
IF O5 THEN 1690 1670 PRINT "MORALE IS FAIR" 1680 GOTO 1700 1690 PRINT "MOR
ALE IS POOR" 1700 IF B$ "YES" THEN 1760 1710 LET O(Z)O 1720 NEXT Z 1730
LET O2O(2) 1740 LET OO(1) 1750 PRINT "CONFEDERATE GENERAL---" 1760 REM -
ACTUAL OFF/DEF BATTLE SITUATION 1770 IF M 3 THEN 1800 T C2C2(A) 720 LET MM
(A) 960 LET U0 970 REM INFLATION CALC 980 LET I110+(L-W)*2 990 LET I210
+(W-L)*2 1000 REM - MONEY AVAILABLE 1010 LET D(1)100*INT((M1*(100-I1)/2000)*
(1+(R1-Q1)/(R1+1))+.5) 1020 LET D(2)100*INT(M2*(100-I2)/2000+.5) 1030 IF B$
"YES" THEN 1050 1040 LET D(2)100*INT((M2*(100-I2)/2000)*(1+(R2-Q2)/(R2+1))+.5
) 1050 REM - MEN AVAILABLE 1060 LET M5INT(M1*(1+(P1-T1)/(M3+1))) 1070 LE
T M6INT(M2*(1+(P2-T2)/(M4+1))) 1080 LET F15*M1/6 1090 PRINT PRINT PRI R17
80 PRINT "YOU ARE ON THE OFFENSIVE" 1790 GOTO 1840 1800 IF M 1 THEN 1830
1810 PRINT "YOU ARE ON THE DEFENSIVE" 1820 GOTO 1840 1830 PRINT "BOTH SIDES
ARE ON THE OFFENSIVE " 1840 PRINT 1850 REM - CHOOSE STRATEGIES 1860 IF B$
"YES" THEN 1910 1870 FOR I1 TO 2 1880 ON I GOTO 1890,1920 1890 PRINT "CO
NFEDERATE STRATEGY " 1900 GOTO 1920 1910 PRINT "YOUR STRATEGY " 1920 INPUT
Y 1930 IF ABS(Y-3)3 THEN 1960 1940 PRINT "STRATEGY"Y"NOT ALLOWED." 1950 G
OTO 1910 1960 IF B REM - CUMULATIVE BATTLE FACTORS WHICH ALTER HISTORICAL 26
50 REM RESOURCES AVAILABLE.IF A REPLAY DON'T UPDATE. 2660 IF A0 THEN 2790 2
670 LET WW+1 2680 LET T1T1+C5+E 2690 LET T2T2+C6+E2 2700 LET P1P1+C1 271
0 LET P2P2+C2 2720 LET Q1Q1+(F(1)+H(1)+B(1)) 2730 LET Q2Q2+(F(2)+H(2)+B(2))
2740 LET R1R1+M1*(100-I1)/20 2750 LET R2R2+M2*(100-I2)/20 2760 LET M3M3+M
1 2770 LET M4M4+M2 2780 GOSUB 3300 2790 U0U20 2800 PRINT "--------------
-" 2810 GOTO 620 2820 REM------FI$"YES" THEN 2000 1970 IF Y5 THEN 2830 19
80 GOSUB 3110 1990 GOTO 2170 2000 IF I2 THEN 2040 2010 LET Y1Y 2020 PRI
NT "UNION STRATEGY " 2030 NEXT I 2040 LET Y2Y 2050 LET YY1 2060 IF Y25 T
HEN 2020 2070 REM SIMULATED LOSSES-NORTH 2080 LET C6(2*C2/5)*(1+1/(2*(ABS(Y
2-Y)+1))) 2090 LET C6C6*(1.28+(5*M2/6)/(B(2)+1)) 2100 LET C6INT(C6*(1+1/O2)+
.5) 2110 REM - IF LOSS MEN PRESENT, RESCALE LOSSES 2120 LET E2100/O2 2130
IF INT(C6+E2)M6 THEN 2190 2140 LET C6INT(13*M6/20)NISH OFF 2830 PRINT "THE
CONFEDERACY HAS SURRENDERED" 2840 GOTO 2860 2850 PRINT "THE UNION HAS SURREN
DERED." 2860 PRINT PRINT PRINT PRINT PRINT PRINT 2870 PRINT "THE CONFED
ERACY " 2880 PRINT "HAS WON "W" BATTLES AND LOST "L 2890 IF Y5 THEN 2940 29
00 IF Y25 THEN 2920 2910 IF W L THEN 2940 2915 IF Y5 THEN 2940 2920 PRIN
T "THE CONFEDERACY HAS WON THE WAR" 2930 GOTO 2950 2940 PRINT "THE UNION HAS
WON THE WAR" 2950 PRINT 2960 IF R10 THEN 3100 2970 PRINT "FOR THE 2150
LET E27*C6/13 2160 LET U21 2170 REM - CALCULATE SIMULATED LOSSES 2180 PRI
NT 2190 PRINT PRINT PRINT ,"CONFEDERACY","UNION" 2200 LET C5(2*C1/5)*(1+1/
(2*(ABS(Y2-Y)+1))) 2210 LET C5INT(C5*(1+1/O)*(1.28+F1/(B(1)+1))+.5) 2220 LET
E100/O 2230 IF C5+100/OM1*(1+(P1-T1)/(M3+1)) THEN 2270 2240 LET C5INT(13*M1
/20*(1+(P1-T1)/(M3+1))) 2250 LET E7*C5/13 2260 LET U1 2270 IF D1 THEN 2500
2280 PRINT "CASUALTIES",C5,C6 2290 PRINT "DESERTIONS",INT(E),INT(E2) 2300
PRINT 2310 "W+L+W0" BATTLES FOUGHT (EXCUDING RERUNS)" 2980 PRINT " "," "," "
2990 PRINT "CONFEDERACY"," UNION" 3000 PRINT "HISTORICAL LOSSES",INT(P1+.5)
,INT(P2+.5) 3010 PRINT "SIMULATED LOSSES",INT(T1+.5),INT(T2+.5) 3020 PRINT
3030 PRINT " % OF ORIGINAL",INT(100*(T1/P1)+.5),INT(100*(T2/P2)+.5) 3040 I
F B$"YES" THEN 3100 3050 PRINT 3060 PRINT "UNION INTELLIGENCE SUGGESTS THAT
THE SOUTH USED " 3070 PRINT "STRATEGIES 1, 2, 3, 4 IN THE FOLLOWING PERCENTAGE
S" 3080 PRINT S(1)S2(2)S(3)S(4) 3090 IF B$ "YES" THEN 2350 2320 PRINT "CO
MPARED TO THE ACTUAL CASUALTIES AT "C$ 2330 PRINT "CONFEDERATE"INT(100*(C5/C1)
+.5)"% OF THE ORIGINAL" 2340 PRINT "UNION "INT(100*(C6/C2)+.5)"% OF THE O
RIGINAL" 2350 PRINT 2360 REM - 1 WHO ONE 2370 IF U 1 THEN 2380 2375 IF
U21 THEN 2460 2380 IF U1 THEN 2420 2390 IF U21 THEN 2440 2400 IF C5+EC6+E2
THEN 2460 2410 IF C5+EC6+E2 THEN 2440 2420 PRINT "THE UNION WINS "C$ 2430
GOTO 2600 2440 PRINT "THE CONFEDERACY WINS "C$ 2450 GOTO REM---------------
------------------ 3100 STOP 3110 REM - UNION STRATEGY IS COMPUTER CHOSEN 3
120 PRINT "UNION STRATEGY IS " 3130 IF A 0 THEN 3180 3140 INPUT Y2 3150
IF Y2 0 THEN 3160 3155 IF Y25 THEN 3290 3160 PRINT "ENTER 1 , 2 ,3 , OR 4 (U
SUALLY PREVIOUS UNION STRATEGY)" 3170 GOTO 3140 3180 LET S00 3190 LET R100
*RND(0) 3200 FOR I1 TO 4 3210 LET S0S0+S(I) 3220 REM - IF ACTUAL STRATEGY
INFO IS IN PROGRAM DATA STATEMENTS 3230 REM THEN R-100 IS EXTRA WEIGHT GIVEN
TO 2660 2460 PRINT "BATTLE OUTCOME UNRESOLVED" 2470 LET W0W0+1 2480 IF A0
THEN 2790 2490 GOTO 2680 2500 LET C6INT(17*C2*C1/(C5*20)) 2510 LET E25*O
2520 GOTO 2280 2530 PRINT "YOUR CASUALTIES WERE "INT(100*(C5/C1)+.5)"% OF "
2540 PRINT "THE ACTUAL CASUALTIES AT "C$ 2550 PRINT 2560 REM - FIND WHO WO
N 2570 IF U1 THEN 2590 2580 IF C5+E17*C2*C1/(C5*20)+5*O THEN 2630 2590 PRI
NT "YOU LOSE "C$ 2600 IF A0 THEN 2790 2610 LET LL+1 2620 GOTO 2680 2630
PRINT "YOU WIN "C$ 2640 R THAT STATEGY. 3240 IF RS0 THEN 3270 3250 NEXT I
3260 REM - IF ACTUAL STRAT. IN,THEN HERE IS Y2 HIST. STRAT. 3270 LET Y2I 32
80 PRINT Y2 3290 RETURN 3300 REM LEARN PRESENT STRATEGY, START FORGETTING
OLD ONES 3310 REM - PRESENT STRATEGY OF SOUTH GAINS 3*S, OTHERS LOSE S 3320
REM PROBABILITY POINTS, UNLESS A STRATEGY FALLS BELOW 5%. 3330 LET S3 3340
LET S00 3350 FOR I1 TO 4 3360 IF S(I) 5 THEN 3390 3370 LET S(I)S(I)-S 3
380 LET S0S0+S 3390 NEXT I 3400 LET S(Y)S(Y3790 GOTO 1150 3800 PRINT "MA
Y 1-6, 1863. THE SOUTH HAD A COSTLY VICTORY AND LOST" 3810 PRINT "ONE OF THEI
R OUTSTANDING GENERALS, 'STONEWALL' JACKSON." 3820 GOTO 1150 3830 PRINT "JUL
Y 4, 1863. VICKSBURG WAS A COSTLY DEFEAT FOR THE SOUTH" 3840 PRINT "BECAUSE I
T GAVE THE UNION ACCESS TO THE MISSISSIPPI." 3850 GOTO 1150 3860 PRINT "JULY
1-3, 1863. A SOUTHERN MISTAKE BY GEN. LEE AT " 3865 PRINT "GETTYSBURG" 3870
PRINT "COST THEM ONE OF THE MOST CRUCIAL BATTLES OF THE WAR." 3880 GOTO 115)
+S0 3410 RETURN 3420 REM - HISTORICAL DATA...CAN ADD MORE (STRAT.,ETC) BY IN
SERTING 3430 REM DATA STATEMENTS AFTER APPRO. INFO, AND ADJUSTING READ 3440
DATA "BULL RUN",18000,18500,1967,2708,1 3450 DATA "SHILOH",40000.,44894.,106
99,13047,3 3460 DATA "SEVEN DAYS",95000.,115000.,20614,15849,3 3470 DATA "SE
COND BULL RUN",54000.,63000.,10000,14000,2 3480 DATA "ANTIETAM",40000.,50000.,
10000,12000,3 3490 DATA "FREDERICKSBURG",75000.,120000.,5377,12653,1 3500 DA
TA "MURFREESBORO",38000.,45000.0 3890 PRINT "SEPT. 15, 1863. CONFUSION IN A FO
REST NEAR CHICKAMAUGA LED" 3900 PRINT "TO A COSTLY SOUTHERN VICTORY." 3910 G
OTO 1150 3920 PRINT "NOV. 25, 1863. AFTER THE SOUTH HAD SIEGED GEN. ROSENCRANS
'" 3930 PRINT "ARMY FOR THREE MONTHS, GEN. GRANT BROKE THE SIEGE." 3940 GOTO
1150 3950 PRINT "MAY 5, 1864. GRANT'S PLAN TO KEEP LEE ISOLATED BEGAN TO" 3
960 PRINT "FAIL HERE, AND CONTINUED AT COLD HARBOR AND PETERSBURG." 3970 GOTO
1150 3980 PRINT "AUGUST, 1864. SHERMAN AND THREE VETERAN AR,11000,12000,1 3
510 DATA "CHANCELLORSVILLE",32000,90000.,13000,17197,2 3520 DATA "VICKSBURG",
50000.,70000.,12000,19000,1 3530 DATA "GETTYSBURG",72500.,85000.,20000,23000,3
3540 DATA "CHICKAMAUGA",66000.,60000.,18000,16000,2 3550 DATA "CHATTANOOGA"
,37000.,60000.,36700.,5800,2 3560 DATA "SPOTSYLVANIA",62000.,110000.,17723,180
00,2 3570 DATA "ATLANTA",65000.,100000.,8500,3700,1 3580 PRINT "JULY 21, 186
1. GEN. BEAUREGARD, COMMANDING THE SOUTH, MET" 3590 PRINT "UNION FORCES WITH
GEN. MCDOWELL IMIES CONVERGED" 3990 PRINT "ON ATLANTA AND DEALT THE DEATH BLOW
TO THE CONFEDERACY." 4000 GOTO 1150 4010 END N A PREMATURE BATTLE AT" 360
0 PRINT "BULL RUN. GEN. JACKSON HELPED PUSH BACK THE UNION ATTACK." 3610 GOTO
1150 3620 PRINT "APRIL 6-7, 1862. THE CONFEDERATE SURPRISE ATTACK AT" 3630
PRINT "SHILOH FAILED DUE TO POOR ORGANIZATION." 3640 GOTO 1150 3650 PRINT "
JUNE 25-JULY 1, 1862. GENERAL LEE (CSA) UPHELD THE" 3660 PRINT "OFFENSIVE THR
OUGHOUT THE BATTLE AND FORCED GEN. MCCLELLAN" 3670 PRINT "AND THE UNION FORCES
AWAY FROM RICHMOND." 3680 GOTO 1150 3690 PRINT "AUG 29-30, 1862. THE COMBI
NED1 PRINT TAB(33)"COMBAT" 2 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW
JERSEY" 3 PRINT PRINT PRINT 4 PRINT "I AM AT WAR WITH YOU." PRINT "WE HAVE 720
00 SOLDIERS APIECE." 5 PRINTPRINT "DISTRIBUTE YOUR FORCES." 6 PRINT ,"ME"," Y
OU" 7 PRINT "ARMY",30000, 8 INPUT A 9 PRINT "NAVY",20000, 10 INPUT B 11 PRI
NT "A. F.",22000, 12 INPUT C 13 IF A+B+C72000 THEN 5 14 D30000 15 E20000 16
F22000 17 PRINT "YOU ATTACK FIRST. TYPE (1) FOR ARMY (2) FOR NAVY" 18 PRINT "
AND (3) FOR AIR FORCE." CONFEDERATE FORCES UNDER" 3695 PRINT " LEE" 3700 PRI
NT "AND JACKSON DROVE THE UNION FORCES BACK INTO WASHINGTON." 3710 GOTO 1150
3720 PRINT "SEPT 17, 1862. THE SOUTH FAILED TO INCORPORATE MARYLAND" 3730 PR
INT "INTO THE CONFEDERACY." 3740 GOTO 1150 3750 PRINT "DEC 13, 1862. THE CO
NFEDERACY UNDER LEE SUCCESSFULLY" 3760 PRINT "REPULSED AN ATTACK BY THE UNION
UNDER GEN. BURNSIDE." 3770 GOTO 1150 3780 PRINT "DEC 31, 1862. THE SOUTH UN
DER GEN. BRAGG WON A CLOSE " 3785 PRINT "BATTLE." R 19 INPUT Y 20 PRINT "
HOW MANY MEN" 21 INPUT X 22 IF X0 THEN 20 23 ON Y GOTO 100,200,300 100 IF XA
THEN 20 105 IF XA/3 THEN 120 110 IF X2*A/3 THEN 150 115 GOTO 270 120 PRINT
"YOU LOST"X"MEN FROM YOUR ARMY." 125 AINT(A-X) 130 GOTO 500 150 PRINT "YOU LO
ST"INT(X/3)"MEN, BUT I LOST "INT(2*D/3) 155 AINT(A-X/3) 160 D0 165 GOTO 500
200 IF XB THEN 20 210 IF XE/3 THEN 230 215 IF X2*E/3 THEN 250 220 GOTO 270
230 PRINT "YOUR ATTACK WAS STOPPED!" 232 BINT(B-X) 235 GOTO 500 250 PREATY OF
PARIS CONCLUDED THAT WE TAKE OUR" 2007 PRINT "RESPECTIVE COUNTRIES AND LIVE IN
PEACE." 2008 GOTO 2020 2010 PRINT "YOU WON, OH! SHUCKS!!!!" 2012 GOTO 2020
2015 PRINT "YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU" 2016 PRINT "RIGH
T FOR PLAYING THIS STUPID GAME!!!" 2020 END RINT "YOU DESTROYED"INT(2*E/3)"OF
MY ARMY." 255 EINT(E/3) 260 GOTO 500 270 PRINT "YOU SUNK ONE OF MY PATROL BOA
TS, BUT I WIPED OUT TWO" 275 PRINT "OF YOUR AIR FORCE BASES AND 3 ARMY BASES."
280 AINT(A/3) 285 CINT(C/3) 290 EINT(2*E/3) 293 GOTO 500 300 IF XC THEN 20
310 IF XC/3 THEN 350 320 IF X2*C/3 THEN 370 330 GOTO 380 350 PRINT "YOUR ATT
ACK WAS WIPED OUT." 355 CINT(C-X) 360 GOTO 500 370 PRINT "WE HAD A DOGFIGHT.
YOU WON - AND FINISHED YOUR MISSION." 375 DINT(2*D/3) 377 EINT(E/3) 378 FINT(
F/3) 379 GOTO 500 380 PRINT "YOU WIPED OUT ONE OF MY ARMY PATROLS, BUT I DESTR
OYED" 381 PRINT "TWO NAVY BASES AND BOMBED THREE ARMY BASES." 385 AINT(A/4) 3
87 BINT(B/3) 390 DINT(2*D/3) 500 PRINT 501 PRINT,"YOU","ME" 510 PRINT "ARMY"
,A,D 520 PRINT "NAVY",B,E 530 PRINT "A. F.",C,F 1000 PRINT "WHAT IS YOUR NEXT
MOVE" 1010 PRINT "ARMY1 NAVY2 AIR FORCE3" 1020 INPUT G 1030 PRINT "HOW MAN
Y MEN" 1040 INPUT T 1045 IF T0 THEN 1030 1050 ON G GOTO 1600,1700,1800 1600
IF TA TH5 PRINT TAB(33)"CRAPS" 10 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN,
NEW JERSEY" 12 PRINTPRINTPRINT 15 LET R0 20 PRINT"2,3,12 ARE LOSERS 4,5,6,8,
9,10 ARE POINTS 7,11 ARE NATURAL WINNERS." 21 LET T1 22 PRINT "PICK A NUMBER A
ND INPUT TO ROLL DICE" 23 INPUT Z 24 LET X(RND(0)) 25 LET T T+1 26 IF TZ THE
N 24 27 PRINT"INPUT THE AMOUNT OF YOUR WAGER." 28 INPUT F 30 PRINT "I WILL NO
W THROW THE DICE" 40 LET EINT(7*RND(1)) 41 LET SINT(7*RND(1)) 42 LET XE+S 50
IF X7 THEN 180 55 IEN 1030 1610 IF TD/2 THEN 1630 1615 PRINT "YOU DESTROYED
MY ARMY!" 1616 D0 1617 GOTO 2000 1630 PRINT "I WIPED OUT YOUR ATTACK!" 1635
AA-T 1640 GOTO 2000 1700 IF TB THEN 1030 1710 IF TE/2 THEN 1750 1720 GOTO
1770 1750 PRINT "I SUNK TWO OF YOUR BATTLESHIPS, AND MY AIR FORCE" 1751 PRINT
"WIPED OUT YOUR UNGAURDED CAPITOL." 1755 AA/4 1760 BB/2 1765 GOTO 2000 1770
PRINT "YOUR NAVY SHOT DOWN THREE OF MY XIII PLANES," 1771 PRINT "AND SUNK THREE
BATTLESHIPS." 1775 F2*F/3 1780 E(E/2) 179F X11 THEN 180 60 IF X1 THEN 40 6
2 IF X2 THEN 195 65 IF X0 THEN 40 70 IF X2 THEN 200 80 IF X3 THEN 200 90 IF
X12 THEN 200 125 IF X5 THEN 220 130 IF X 6 THEN 220 140 IF X8 THEN 220 150 I
F X9 THEN 220 160 IF X 10 THEN 220 170 IF X4 THEN 220 180 PRINT X "- NATURAL.
...A WINNER!!!!" 185 PRINT X"PAYS EVEN MONEY, YOU WIN"F"DOLLARS" 190 GOTO 210
195 PRINT X"- SNAKE EYES....YOU LOSE." 196 PRINT "YOU LOSE"F "DOLLARS." 197 L
ET F0-F 198 GOTO 210 200 PRINT X " - CRAPS...YOU LOSE." 205 0 GOTO 2000 1800
IF TC THEN 1030 1810 IF TF/2 THEN 1830 1820 GOTO 1850 1830 PRINT "MY NAVY
AND AIR FORCE IN A COMBINED ATTACK LEFT" 1831 PRINT "YOUR COUNTRY IN SHAMBLES."
1835 AA/3 1837 BB/3 1840 CC/3 1845 GOTO 2000 1850 PRINT "ONE OF YOUR PLANE
S CRASHED INTO MY HOUSE. I AM DEAD." 1851 PRINT "MY COUNTRY FELL APART." 1860
GOTO 2010 2000 PRINT 2001 PRINT "FROM THE RESULTS OF BOTH OF YOUR ATTACKS," 2
002 IF A+B+C3/2*(D+E+F) THEN 2010 2005 IF A+B+C2/3*(D+E+F) THEN 2015 2006 PRIN
T "THE T RPRINT "YOU LOSE"F"DOLLARS." 206 LET F0-F 210 LET R R+F 211 GOTO 32
0 220 PRINT X "IS THE POINT. I WILL ROLL AGAIN" 230 LET HINT(7*RND(1)) 231 LE
T QINT(7*RND(1)) 232 LET OH+Q 240 IF O1 THEN 230 250 IF O7 THEN 290 255 IF O
0 THEN 230 260 IF OX THEN 310 270 PRINT O " - NO POINT. I WILL ROLL AGAIN" 28
0 GOTO 230 290 PRINT O "- CRAPS. YOU LOSE." 291 PRINT "YOU LOSE $"F 292 F0-F
293 GOTO 210 300 GOTO 320 310 PRINT X"- A WINNER.........CONGRATS!!!!!!!!" 3
11 PRINT X "AT 2 TO 1 ODDS PAYS YTICALLY AT LOCATION 1,1,1. THE OBJECT OF" 180
PRINT"THE GAME IS TO GET TO LOCATION 3,3,3. ONE MINOR DETAIL" 190 PRINT"THE COM
PUTER WILL PICK, AT RANDOM, 5 LOCATIONS AT WHICH" 200 PRINT"IT WILL PLANT LAND
MINES. IF YOU HIT ONE OF THESE LOCATIONS" 210 PRINT"YOU LOSE. ONE OTHER DETAIL
YOU MAY MOVE ONLY ONE SPACE " 220 PRINT"IN ONE DIRECTION EACH MOVE. FOR EXAMPL
E FROM 1,1,2 YOU" 230 PRINT"MAY MOVE TO 2,1,2 OR 1,1,3. YOU MAY NOT CHANGE" 24
0 PRINT"TWO OF THE NUMBERS ON THE SAME MOVE. IF YOU MAKE AN ILOU...LET ME SEE...
"2*F"DOLLARS" 312 LET F2*F 313 GOTO 210 320 PRINT " IF YOU WANT TO PLAY AGAIN
PRINT 5 IF NOT PRINT 2" 330 INPUT M 331 IF R0 THEN 334 332 IF R0 THEN 336 3
33 IF R0 THEN 338 334 PRINT "YOU ARE NOW UNDER $"-R 335 GOTO 340 336 PRINT "Y
OU ARE NOW AHEAD $"R 337 GOTO 340 338 PRINT "YOU ARE NOW EVEN AT 0" 340 IF M5
THEN 27 341 IF R0 THEN 350 342 IF R0 THEN 353 343 IF R0 THEN 355 350 PRINT"
TOO BAD, YOU ARE IN THE HOLE. COME AGAIN." 351 GOTO 360 353 PRINT"CONGRATULATI
ONSLEGAL" 250 PRINT"MOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEY YOU MAY" 2
60 PRINT"HAVE BET ON THAT ROUND." 270 PRINT 280 PRINT 290 PRINT"ALL YES OR NO
QUESTIONS WILL BE ANSWERED BY A 1 FOR YES" 300 PRINT"OR A 0 (ZERO) FOR NO." 3
10 PRINT 320 PRINT"WHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUMBER"
330 PRINT"OF DOLLARS (EXAMPLE 250) YOU ARE AUTOMATICALLY STARTED WITH" 340 PRI
NT"500 DOLLARS IN YOUR ACCOUNT." 350 PRINT 360 PRINT "GOOD LUCK!" 370 LET A15
00 380 LET AINT(3*(RND(X))) 39---YOU CAME OUT A WINNER. COME AGAIN!" 354 GOTO
360 355 PRINT"CONGRATULATIONS---YOU CAME OUT EVEN, NOT BAD FOR AN AMATEUR" 36
0 END 0 IF A0 THEN 410 400 LET A3 410 LET BINT(3*(RND(X))) 420 IF B0 THEN 44
0 430 LET B2 440 LET CINT(3*(RND(X))) 450 IF C0 THEN 470 460 LET C3 470 LET
DINT(3*(RND(X))) 480 IF D0 THEN 500 490 LET D1 500 LET EINT(3*(RND(X))) 510
IF E0 THEN 530 520 LET E3 530 LET FINT(3*(RND(X))) 540 IF F0 THEN 560 550 L
ET F3 560 LET GINT(3*(RND(X))) 570 IF G0 THEN 590 580 LET G3 590 LET HINT(3*
(RND(X))) 600 IF H0 THEN 620 610 LET H3 620 LET IINT(3*(RND(X))) 630 IF I0 T
HEN 650 640 LET I2 650 LET JINT(3*(RND(X))) 660 IF J0 THEN 680 670 LET J3 6
80 LET KINT(3*(RND(X))) 690 IF K0 THEN 710 700 LET K2 710 LET LINT(3*(RND(X))
) 720 IF L0 THEN 740 730 LET L3 740 LET MINT(3*(RND(X))) 750 IF M0 THEN 770
760 LET M3 770 LET NINT(3*(RND(X))) 780 IF N0 THEN 800 790 LET N1 800 LET O
INT (3*(RND(X))) 810 IF O 0 THEN 830 820 LET O3 830 PRINT "WANT TO MAKE A WAG
ER" 840 INPUT Z 850 IF Z0 THEN 920 860 PRINT "HOW MUCH " 870 INPUT Z1 876 I
F A1Z1 T10 PRINT TAB(34)"CUBE" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN,
NEW JERSEY" 30 PRINT PRINT PRINT 100 PRINT "DO YOU WANT TO SEE THE INSTRUCT
IONS (YES--1,NO--0)" 110 INPUT B7 120 IF B70 THEN 370 130 PRINT"THIS IS A GAM
E IN WHICH YOU WILL BE PLAYING AGAINST THE" 140 PRINT"RANDOM DECISION OF THE CO
MPUTER. THE FIELD OF PLAY IS A" 150 PRINT"CUBE OF SIDE 3. ANY OF THE 27 LOCATIO
NS CAN BE DESIGNATED" 160 PRINT"BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE
START," 170 PRINT"YOU ARE AUTOMA RHEN 1522 880 LET W1 890 LET X1 900 LET Y
1 910 PRINT 920 PRINT "IT'S YOUR MOVE " 930 INPUT P,Q,R 940 IF PW+1 THEN 10
30 950 IF PW+1 THEN 1000 960 IF QX+1 THEN 1030 970 IF Q(X+1) THEN 1010 980 I
F R (Y+1) THEN 1030 990 GOTO 1050 1000 IF Q X+1 THEN 1030 1010 IF RY+1 THEN
1030 1020 GOTO 1050 1030 PRINTPRINT "ILLEGAL MOVE. YOU LOSE." 1040 GOTO 1440
1050 LET WP 1060 LET XQ 1070 LET YR 1080 IF P3 THEN 1100 1090 GOTO 1130 11
00 IF Q3 THEN 1120 1110 GOTO 1130 1120 IF R3 2 PRINT TAB(30)"DEPTH CHARGE" 4
PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 6 PRINT PRINT PRINT
20 INPUT "DIMENSION OF SEARCH AREA"G PRINT 30 NINT(LOG(G)/LOG(2))+1 40 PRINT
"YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER" 50 PRINT "AN ENEMY SUB HAS
BEEN CAUSING YOU TROUBLE. YOUR" 60 PRINT "MISSION IS TO DESTROY IT. YOU HAVE"
N"SHOTS." 70 PRINT "SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A" 80 PRINT "TRI
O OF NUMBERS -- THE FIRST TWO ARE THE" 90 PRINT "SURFACE COORDINATES THEN 1530
1130 IF PA THEN 1150 1140 GOTO 1180 1150 IF QB THEN 1170 1160 GOTO 1180 117
0 IF RC THEN 1400 1180 IF PD THEN 1200 1190 GOTO 1230 1200 IF QE THEN 1220 1
210 GOTO 1230 1220 IF RF THEN 1400 1230 IF PG THEN 1250 1240 GOTO 1280 1250
IF QH THEN 1270 1260 GOTO 1280 1270 IF RI THEN 1400 1280 IF PJ THEN 1300 12
90 GOTO 1330 1300 IF QK THEN 1320 1310 GOTO 1330 1320 IF RL THEN 1440 1330 I
F PM THEN 1350 1340 GOTO 1380 1350 IF QN THEN 1370 1360 GOTO 1380 1370 IF RO
THEN 1THE THIRD IS THE DEPTH." 100 PRINT PRINT "GOOD LUCK !" PRINT 110 AINT(
G*RND(1)) BINT(G*RND(1)) CINT(G*RND(1)) 120 FOR D1 TO N PRINT PRINT "TRIAL
#"D INPUT X,Y,Z 130 IF ABS(X-A)+ABS(Y-B)+ABS(Z-C)0 THEN 300 140 GOSUB 500 PR
INT NEXT D 200 PRINT PRINT "YOU HAVE BEEN TORPEDOED! ABANDON SHIP!" 210 PRI
NT "THE SUBMARINE WAS AT"A","B","C GOTO 400 300 PRINT PRINT "B O O M ! ! YOU
FOUND IT IN"D"TRIES!" 400 PRINT PRINT INPUT "ANOTHER GAME (Y OR N)"A$ 410 IF
A$"Y" THE400 1380 PRINT "NEXT MOVE " 1390 GOTO 930 1400 PRINT"******BANG****
**" 1410 PRINT "YOU LOSE!" 1420 PRINT 1430 PRINT 1440 IF Z0 THEN 1580 145
0 PRINT 1460 LET Z2A1-Z1 1470 IF Z20 THEN 1500 1480 PRINT "YOU BUST." 1490
GOTO 1610 1500 PRINT " YOU NOW HAVE" Z2 "DOLLARS." 1510 LET A1Z2 1520 GOTO 15
80 1522 PRINT"TRIED TO FOOL ME BET AGAIN" 1525 GOTO 870 1530 PRINT"CONGRATULA
TIONS!" 1540 IF Z0 THEN 1580 1550 LET Z2A1+Z1 1560 PRINT "YOU NOW HAVE" Z2"DO
LLARS." 1570 LET A1Z2 15N 100 420 PRINT "OK. HOPE YOU ENJOYED YOURSELF." GO
TO 600 500 PRINT "SONAR REPORTS SHOT WAS " 510 IF YB THEN PRINT "NORTH" 520 I
F YB THEN PRINT "SOUTH" 530 IF XA THEN PRINT "EAST" 540 IF XA THEN PRINT "WEST
" 550 IF YB OR XA THEN PRINT " AND" 560 IF ZC THEN PRINT " TOO LOW." 570 IF Z
C THEN PRINT " TOO HIGH." 580 IF ZC THEN PRINT " DEPTH OK." 590 RETURN 600 EN
D 80 PRINT"DO YOU WANT TO TRY AGAIN " 1590 INPUT S 1600 IF S1 THEN 380 1610
PRINT "TOUGH LUCK!" 1620 PRINT 1630 PRINT "GOODBYE." 1640 END R1 PRINT TAB
(33)"DIAMOND" 2 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 3 PR
INTPRINTPRINT 4 PRINT "FOR A PRETTY DIAMOND PATTERN," 5 INPUT "TYPE IN AN ODD
NUMBER BETWEEN 5 AND 21"RPRINT 6 QINT(60/R)A$"CC" 8 FOR L1 TO Q 10 X1YRZ2 20
FOR NX TO Y STEP Z 25 PRINT TAB((R-N)/2) 28 FOR M1 TO Q 29 C1 30 FOR A1 TO
N 32 IF CLEN(A$) THEN PRINT "!"GOTO 50 34 PRINT MID$(A$,C,1) 36 CC+1 50 NEXT
A 53 IF MQ THEN 60 55 PRINT TAB(R*M+(R-N)/2) 56 NEXT M 60 PRINT 70 NESS TH
EM FIRST AND THEN LOOK AT YOUR" 310 PRINT "NEXT NUMBER TO SEE IF I WAS RIGHT. B
Y PURE LUCK," 320 PRINT "I OUGHT TO BE RIGHT TEN TIMES. BUT I HOPE TO DO BETTER
" 330 PRINT "THAN THAT *****" 340 PRINTPRINT 360 READ A,B,C 370 DATA 0,1,3
380 DIM M(26,2),K(2,2),L(8,2) 400 FOR I0 TO 26 FOR J0 TO 2 M(I,J)1 NEXT J NEXT
I 410 FOR I0 TO 2 FOR J0 TO 2 K(I,J)9 NEXT J NEXT I 420 FOR I0 TO 8 FOR J0 TO
2 L(I,J)3 NEXT J NEXT I 450 L(0,0)2 L(4,1)2 L(8,2)2 480 Z26 Z18 Z22 510EXT N
83 IF X1 THEN 95 85 XR-2Y1Z-2 90 GOTO 20 95 NEXT L 99 END X0 520 FOR T1
TO 3 530 PRINT 540 PRINT "TEN NUMBERS, PLEASE" 550 INPUT N(1),N(2),N(3),N(4),
N(5),N(6),N(7),N(8),N(9),N(10) 560 FOR I1 TO 10 570 WN(I)-1 580 IF WSGN(W) TH
EN 620 590 PRINT "ONLY USE THE DIGITS '0', '1', OR '2'." 600 PRINT "LET'S TRY
AGAIN."GOTO 530 620 NEXT I 630 PRINT PRINT "MY GUESS","YOUR NO.","RESULT","NO.
RIGHT"PRINT 660 FOR U1 TO 10 670 NN(U) S0 690 FOR J0 TO 2 700 S1A*K(Z2,J)+B
*L(Z1,J)+C*M(Z,J) 710 IF SS1 THEN 760 720 IF SS1 THEN 740 730 IF RND(1).5 T2
PRINT TAB(34)"DICE" 4 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
6 PRINTPRINTPRINT 10 DIM F(12) 20 REM DANNY FREIDUS 30 PRINT "THIS PROGRAM
SIMULATES THE ROLLING OF A" 40 PRINT "PAIR OF DICE." 50 PRINT "YOU ENTER THE
NUMBER OF TIMES YOU WANT THE COMPUTER TO" 60 PRINT "'ROLL' THE DICE. WATCH OUT
, VERY LARGE NUMBERS TAKE" 70 PRINT "A LONG TIME. IN PARTICULAR, NUMBERS OVER
5000." 80 FOR Q1 TO 12 90 F(Q)0 100 NEXT Q 110 PRINTPRINT "HOW MANY ROLLS"
120 INPUT X 130 FOR SHEN 760 740 SS1 GJ 760 NEXT J 770 PRINT " "G," "N(U)
, 780 IF GN(U) THEN 810 790 PRINT " WRONG",X 800 GOTO 880 810 XX+1 820 PRIN
T " RIGHT",X 830 M(Z,N)M(Z,N)+1 840 L(Z1,N)L(Z1,N)+1 850 K(Z2,N)K(Z2,N)+1 86
0 ZZ-INT(Z/9)*9 870 Z3*Z+N(U) 880 Z1Z-INT(Z/9)*9 890 Z2N(U) 900 NEXT U 910
NEXT T 920 PRINT 930 IF X10 THEN 980 940 IF X10 THEN 1010 950 PRINT "I GUESS
ED EXACTLY 1/3 OF YOUR NUMBERS." 960 PRINT "IT'S A TIE GAME." 970 GOTO 1030 9
80 PRINT "I GUESSED MORE THAN 1/3 OF Y1 TO X 140 AINT(6*RND(1)+1) 150 BINT(6*R
ND(1)+1) 160 RA+B 170 F(R)F(R)+1 180 NEXT S 185 PRINT 190 PRINT "TOTAL SPOT
S","NUMBER OF TIMES" 200 FOR V2 TO 12 210 PRINT V,F(V) 220 NEXT V 221 PRINT
222 PRINTPRINT "TRY AGAIN" 223 INPUT Z$ 224 IF Z$"YES" THEN 80 240 END OUR
NUMBERS." 990 PRINT "I WIN." FOR Q1 TO 10 PRINT CHR$(7) NEXT Q 1000 GOTO 1030
1010 PRINT "I GUESSED LESS THAN 1/3 OF YOUR NUMBERS." 1020 PRINT "YOU BEAT ME.
CONGRATULATIONS *****" 1030 PRINT 1040 PRINT "DO YOU WANT TO TRY AGAIN (1 FO
R YES, 0 FOR NO)" 1060 INPUT X 1070 IF X1 THEN 400 1080 PRINTPRINT "THANKS FO
R THE GAME." 1090 END 10 PRINT TAB(33)"DIGITS" 20 PRINT TAB(15)"CREATIVE COMP
UTING MORRISTOWN, NEW JERSEY" 30 PRINTPRINTPRINT 210 PRINT "THIS IS A GAME OF
GUESSING." 220 PRINT "FOR INSTRUCTIONS, TYPE '1', ELSE TYPE '0'" 230 INPUT E
240 IF E0 THEN 360 250 PRINT 260 PRINT "PLEASE TAKE A PIECE OF PAPER AND WRIT
E DOWN" 270 PRINT "THE DIGITS '0', '1', OR '2' THIRTY TIMES AT RANDOM." 280 PR
INT "ARRANGE THEM IN THREE LINES OF TEN DIGITS EACH." 290 PRINT "I WILL ASK FOR
THEN TEN AT A TIME." 300 PRINT "I WILL ALWAYS GU RHEN 790 770 REM IS # Z
ERO HERE 780 GOTO 300 790 REM IS ZERO HERE 800 PRINT "I PICK UP"M"MARBLE
S." 810 PRINT 820 GOTO 880 830 REM THIS IS WHERE I WIN 840 PRINT "I PICK
UP"M"MARBLES." 850 PRINT 860 PRINT "TOTAL 0" 870 M1M1+M 880 PRINT "THAT IS
ALL OF THE MARBLES." 890 PRINT 900 PRINT " MY TOTAL IS"M1", YOUR TOTAL IS"Y1
910 PRINT 920 IF INT(M1/2)M1/2 THEN 950 930 PRINT " YOU WON. DO YOU WANT
TO PLAY" 940 GOTO 960 950 PRINT " I WON. DO YOU WANT TO PLAY" 960 1 PRIN
T TAB(31)"EVEN WINS" 2 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY
" 3 PRINTPRINT 4 Y10 10 M10 20 DIM M(20),Y(20) 30 PRINT " THIS IS A TWO
PERSON GAME CALLED 'EVEN WINS.'" 40 PRINT "TO PLAY THE GAME, THE PLAYERS NEED
27 MARBLES OR" 50 PRINT "OTHER OBJECTS ON A TABLE." 60 PRINT 70 PRINT 80 PR
INT " THE 2 PLAYERS ALTERNATE TURNS, WITH EACH PLAYER" 90 PRINT "REMOVING F
ROM 1 TO 4 MARBLES ON EACH MOVE. THE GAME" 100 PRINT "ENDS WHEN THERE ARE NO M
ARBLES LEFT, AND THE PRINT "AGAIN TYPE 1 FOR YES AND 0 FOR NO." 970 INPUT A1
980 IF A10 THEN 1030 990 M10 1000 Y10 1010 GOTO 200 1020 GOTO 640 1030 PRIN
T 1040 PRINT "OK. SEE YOU LATER." 1050 GOTO 1230 1060 T27 1070 PRINT 1080
PRINT 1090 PRINT 1100 PRINT "TOTAL"T 1110 PRINT 1120 PRINT 1130 PRINT "WHAT
IS YOUR FIRST MOVE" 1140 INPUT Y 1150 GOTO 360 1160 PRINT 1170 PRINT "THE N
UMBER OF MARBLES YOU TAKE MUST BE A POSITIVE" 1180 PRINT "INTEGER BETWEEN 1 AND
4." 1190 PRINT 1200 PRINT " WHAT IS YOWINNER" 110 PRINT "IS THE ONE WITH
AN EVEN NUMBER OF MARBLES." 120 PRINT 130 PRINT 140 PRINT " THE ONLY RUL
ES ARE THAT (1) YOU MUST ALTERNATE TURNS," 150 PRINT "(2) YOU MUST TAKE BETWEEN
1 AND 4 MARBLES EACH TURN," 160 PRINT "AND (3) YOU CANNOT SKIP A TURN." 170 P
RINT 180 PRINT 190 PRINT 200 PRINT " TYPE A '1' IF YOU WANT TO GO FIRST,
AND TYPE" 210 PRINT "A '0' IF YOU WANT ME TO GO FIRST." 220 INPUT C 225 PRINT
230 IF C0 THEN 250 240 GOTO 1060 250 T27 260 M2 270 PRINTPRINT "TOTUR NEXT
MOVE" 1210 PRINT 1220 GOTO 350 1230 END AL"TPRINT 280 M1M1+M 290 TT-M 30
0 PRINT "I PICK UP"M"MARBLES." 310 IF T0 THEN 880 320 PRINTPRINT "TOTAL"T 330
PRINT 340 PRINT " AND WHAT IS YOUR NEXT MOVE, MY TOTAL IS"M1 350 INPUT Y
360 PRINT 370 IF Y1 THEN 1160 380 IF Y4 THEN 1160 390 IF YT THEN 430 400 PR
INT " YOU HAVE TRIED TO TAKE MORE MARBLES THAN THERE ARE" 410 PRINT "LEFT.
TRY AGAIN." 420 GOTO 350 430 Y1Y1+Y 440 TT-Y 450 IF T0 THEN 880 460 PRINT
"TOTAL"T 470 PRINT 480 PRINT "YOUR TOTAL IS"Y1 490 IF T.5 THEN 880 500 RT-6*
INT(T/6) 510 IF INT(Y1/2)Y1/2 THEN 700 520 IF T4.2 THEN 580 530 IF R3.4 THEN
620 540 MR+1 550 M1M1+M 560 TT-M 570 GOTO 300 580 MT 590 TT-M 600 GOTO 83
0 610 REM 250 IS WHERE I WIN. 620 IF R4.7 THEN 660 630 IF R3.5 THEN 660
640 M1 650 GOTO 670 660 M4 670 TT-M 680 M1M1+M 690 GOTO 300 700 REM I
AM READY TO ENCODE THE STRAT FOR WHEN OPP TOT IS EVEN 710 IF R1.5 THEN 1020 72
0 IF R5.3 THEN 1020 730 MR-1 740 M1M1+M 750 TT-M 760 IF T.2 T R10 PRINT TAB
(32)"CALENDAR" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30
PRINTPRINTPRINT 100 REM VALUES FOR 1979 - SEE NOTES 110 DIM M(12) 120 FO
R I1 TO 6 PRINT CHR$(10) NEXT I 130 D1 REM 1979 STARTS ON MONDAY (0SUN, -1MON,
-2TUES...) 140 S0 150 REM READ DAYS OF EACH MONTH 160 FOR N0 TO 12 READ M
(N) NEXT N 170 REM 180 FOR N1 TO 12 190 PRINT PRINT SS+M(N-1) 200 PRINT "**"
STAB(7) 210 FOR I1 TO 18 PRINT "*" NEXT I 220 ON N GOTO 230,240,250,26INT(C/10
) 140 IF D0 THEN 155 150 PRINT D"TEN DOLLAR BILL(S)" 155 CM-(D*10) 160 EINT(
C/5) 170 IF E0 THEN 185 180 PRINT E"FIVE DOLLARS BILL(S)" 185 CM-(D*10+E*5)
190 FINT(C) 200 IF F0 THEN 215 210 PRINT F"ONE DOLLAR BILL(S)" 215 CM-(D*10+E
*5+F) 220 CC*100 225 NC 230 GINT(C/50) 240 IF G0 THEN 255 250 PRINT G"ONE H
ALF DOLLAR(S)" 255 CN-(G*50) 260 HINT(C/25) 270 IF H0 THEN 285 280 PRINT H"Q
UARTER(S)" 285 CN-(G*50+H*25) 290 IINT(C/10) 300 IF I0 THEN 315 310 PRINT I0
,270,280,290,300,310,320,330,340 230 PRINT " JANUARY " GOTO 350 240 PRINT " FE
BRUARY" GOTO 350 250 PRINT " MARCH " GOTO 350 260 PRINT " APRIL " GOTO 350
270 PRINT " MAY " GOTO 350 280 PRINT " JUNE " GOTO 350 290 PRINT "
JULY " GOTO 350 300 PRINT " AUGUST " GOTO 350 310 PRINT "SEPTEMBER" GOTO 350
320 PRINT " OCTOBER " GOTO 350 330 PRINT " NOVEMBER" GOTO 350 340 PRINT " DE
CEMBER" 350 FOR I1 TO 18 PRINT "*" NEXT I 360 PRINT 365-S"**" 370 REM 366-S
"DIME(S)" 315 CN-(G*50+H*25+I*10) 320 JINT(C/5) 330 IF J0 THEN 345 340 PRIN
T J"NICKEL(S)" 345 CN-(G*50+H*25+I*10+J*5) 350 KINT(C+.5) 360 IF K0 THEN 380
370 PRINT K"PENNY(S)" 380 PRINT "THANK YOU, COME AGAIN." 390 PRINTPRINT 400
GOTO 10 410 END ON LEAP YEARS 380 PRINT CHR$(10) PRINT " S M
T W" 390 PRINT " T F S" 400 PRINT 410 FOR I1 TO 5
9 PRINT "*" NEXT I 420 REM 430 FOR W1 TO 6 440 PRINT CHR$(10) 450 PRINT TAB(
4) 460 REM 470 FOR G1 TO 7 480 DD+1 490 D2D-S 500 IF D2M(N) THEN 580 510 I
F D20 THEN PRINT D2 520 PRINT TAB(4+8*G) 530 NEXT G 540 REM 550 IF D2M(N) TH
EN 590 560 NEXT W 570 REM 580 DD-G 590 NEXT N 600 REM 610 FOR I1 TO 6 PRIN
T CHR$(10) NEXT I 620 DATA 0,31,28,31,30,31,30,31,31,30,31,30,31 630 REM 0,31
,29, ..., ON LEAP YEARS 640 END 5 PRINT TAB(32)"CHECKERS" 10 PRINT TAB(15)"C
REATIVE COMPUTING MORRISTOWN, NEW JERSEY" 15 PRINTPRINTPRINT 20 PRINT "THIS I
S THE GAME OF CHECKERS. THE COMPUTER IS X," 25 PRINT "AND YOU ARE O. THE COMP
UTER WILL MOVE FIRST." 30 PRINT "SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM
." 35 PRINT "(0,0) IS THE LOWER LEFT CORNER" 40 PRINT "(0,7) IS THE UPPER LEFT
CORNER" 45 PRINT "(7,0) IS THE LOWER RIGHT CORNER" 50 PRINT "(7,7) IS THE UPP
ER RIGHT CORNER" 55 PRINT "THE COMPUTER WILL TYPE '+TO' WHEN Y2 PRINT TAB(33)"C
HANGE" 4 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 5 PRINTPRIN
TPRINT 6 PRINT "I, YOUR FRIENDLY MICROCOMPUTER, WILL DETERMINE" 8 PRINT "THE C
ORRECT CHANGE FOR ITEMS COSTING UP TO $100." 9 PRINTPRINT 10 PRINT "COST OF IT
EM"INPUT APRINT "AMOUNT OF PAYMENT"INPUT P 20 CP-AMCIF C0 THEN 90 25 PRINT "CO
RRECT AMOUNT, THANK YOU." 30 GOTO 400 90 IF C0 THEN 120 95 PRINT "SORRY, YOU
HAVE SHORT-CHANGED ME $"A-P 100 GOTO 10 120 PRINT "YOUR CHANGE, $"C 130 D RO
U HAVE ANOTHER" 60 PRINT "JUMP. TYPE TWO NEGATIVE NUMBERS IF YOU CANNOT JUMP."
65 PRINTPRINTPRINT 80 DIM R(4),S(7,7)G-1R(0)-99 90 DATA 1,0,1,0,0,0,-1,0,0,1
,0,0,0,-1,0,-1,15 120 FOR X0 TO 7FOR Y0 TO 7READ JIF J15 THEN 180 160 S(X,Y)JG
OTO 200 180 RESTOREREAD S(X,Y) 200 NEXT Y,X 230 FOR X0 TO 7FOR Y0 TO 7IF S(X,
Y)-1 THEN 350 310 IF S(X,Y)-1 THEN FOR A-1 TO 1 STEP 2BGGOSUB 650NEXT A 330 IF
S(X,Y)-2 THEN FOR A-1 TO 1 STEP 2FOR B-1 TO 1 STEP 2GOSUB 650NEXT B,A 350 NEX)
0 1802 INPUT "+TO"A1,B1IF A10 THEN 1810 1804 IF S(A1,B1)0 OR ABS(A1-A)2 OR ABS
(B1-B)2 THEN 1802 1806 EAHBAA1BB1II+15GOTO 1750 1810 IF B7 THEN S(A,B)2 1830
GOTO 230 1880 PRINT PRINT "YOU WIN." END 1885 PRINT PRINT "I WIN." END T Y,XG
OTO 1140 650 UX+AVY+BIF U0 OR U7 OR V0 OR V7 THEN 870 740 IF S(U,V)0 THEN GOSU
B 910GOTO 870 770 IF S(U,V)0 THEN 870 790 UU+AVV+BIF U0 OR V0 OR U7 OR V7 THEN
870 850 IF S(U,V)0 THEN GOSUB 910 870 RETURN 910 IF V0 AND S(X,Y)-1 THEN QQ+
2 920 IF ABS(Y-V)2 THEN QQ+5 960 IF Y7 THEN QQ-2 980 IF U0 OR U7 THEN QQ+1 1
030 FOR C-1 TO 1 STEP 2IF U+C0 OR U+C7 OR V+G0 THEN 1080 1035 IF S(U+C,V+G)0 TH
EN QQ+1GOTO 1080 1040 IF U-C0 OR U-C7 OR V-G7 THEN 1080 1045 IF S(U+C,V+G)0 AN
D(S(U-C,V-G)0 OR(U-CX AND V-GY))THEN QQ-2 1080 NEXT CIF QR(0)THEN R(0)QR(1)XR(2
)YR(3)UR(4)V 1100 Q0RETURN 1140 IF R(0)-99 THEN 1880 1230 PRINT CHR$(30)"FROM
"R(1)R(2)"TO"R(3)R(4)R(0)-99 1240 IF R(4)0 THEN S(R(3),R(4))-2GOTO 1420 1250 S
(R(3),R(4))S(R(1),R(2)) 1310 S(R(1),R(2))0IF ABS(R(1)-R(3))2 THEN 1420 1330 S(
(R(1)+R(3))/2,(R(2)+R(4))/2)0 1340 XR(3)YR(4)IF S(X,Y)-1 THEN B-2FOR A-2 TO 2 S
TEP 4GOSUB 1370 1350 IF S(X,Y)-2 THEN FOR A-2 TO 2 3 PRINT TAB(33)"CHEMIST" 6
PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 8 PRINTPRINTPRINT 10
PRINT "THE FICTITIOUS CHECMICAL KRYPTOCYANIC ACID CAN ONLY BE" 20 PRINT "DILUT
ED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACID." 30 PRINT "IF ANY OTHER RATIO
IS ATTEMPTED, THE ACID BECOMES UNSTABLE" 40 PRINT "AND SOON EXPLODES. GIVEN T
HE AMOUNT OF ACID, YOU MUST" 50 PRINT "DECIDE WHO MUCH WATER TO ADD FOR DILUTIO
N. IF YOU MISS" 60 PRINT "YOU FACE THE CONSEQUENCES." 100 AINT(RND(1)*50) 1S
TEP 4FOR B-2 TO 2 STEP 4GOSUB 1370NEXT B 1360 NEXT AIF R(0)-99 THEN PRINT"TO"R(
3)R(4)R(0)-99GOTO 1240 1365 GOTO 1420 1370 UX+AVY+BIF U0 OR U7 OR V0 OR V7 THE
N 1400 1380 IF S(U,V)0 AND S(X+A/2,Y+B/2)0 THEN GOSUB 910 1400 RETURN 1420 PR
INTPRINTPRINTFOR Y7 TO 0 STEP-1FOR X0 TO 7I5*XPRINT TAB(I) 1430 IF S(X,Y)0 THEN
PRINT"." 1470 IF S(X,Y)1 THEN PRINT"O" 1490 IF S(X,Y)-1 THEN PRINT"X" 1510 I
F S(X,Y)-2 THEN PRINT"X*" 1530 IF S(X,Y)2 THEN PRINT"O*" 1550 NEXT 10 W7*A/3
120 PRINT A"LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER" 130 INPUT R 140 DABS
(W-R) 150 IF DW/20 THEN 200 160 PRINT " GOOD JOB! YOU MAY BREATHE NOW, BUT DON
'T INHALE THE FUMES!" 170 PRINT 180 GOTO 100 200 PRINT " SIZZLE! YOU HAVE JU
ST BEEN DESALINATED INTO A BLOB" 210 PRINT " OF QUIVERING PROTOPLASM!" 220 TT+
1 230 IF T9 THEN 260 240 PRINT " HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE.
" 250 GOTO 100 260 PRINT " YOUR 9 LIVES ARE USED, BUT YOU WILL BE LONG REMEMBE
RED FOR" 270 XPRINT" "PRINTNEXT YPRINT 1552 FOR L0 TO 7 1554 FOR M0 TO 7 155
6 IF S(L,M)1 OR S(L,M)2 THEN Z1 1558 IF S(L,M)-1 OR S(L,M)-2 THEN T1 1560 NEXT
M 1562 NEXT L 1564 IF Z1 THEN 1885 1566 IF T1 THEN 1880 1570 Z0 T0 1590 IN
PUT "FROM"E,HXEYHIF S(X,Y)0 THEN 1590 1670 INPUT "TO"A,BXAYB 1680 IF S(X,Y)0 A
ND ABS(A-E)2 AND ABS(A-E)ABS(B-H)THEN 1700 1690 PRINT CHR$(7)CHR$(11)GOTO 1670
1700 I46 1750 S(A,B)S(E,H)S(E,H)0IF ABS(E-A)2 THEN 1810 1800 S((E+A)/2,(H+B)/
2 RPRINT " YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY." 280 END
OU BELIEVE ME NOW, FOR YOUR SAKE!!" 480 GOTO 520 510 PRINT "BYE!!!" 520 END
10 PRINT TAB(33)"CHOMP" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JE
RSEY" 30 PRINTPRINTPRINT 40 DIM A(10,10) 100 REM *** THE GAME OF CHOMP *** CO
PYRIGHT PCC 1973 *** 110 PRINT 120 PRINT "THIS IS THE GAME OF CHOMP (SCIENTIF
IC AMERICAN, JAN 1973)" 130 PRINT "DO YOU WANT THE RULES (1YES, 0NO!)" 140 INP
UT R 150 IF R0 THEN 340 160 F1 170 R5 180 C7 190 PRINT "CHOMP IS FOR 1 OR M
ORE PLAYERS (HUMANS ONLY)." 200 PRINT 210 PRINT "HERE'S HOW A BOARD LOOKS (THI
S ONE IS 5 BY 7)" 22 PRINT TAB(30) "CHIEF" 4 PRINT TAB(15) "CREATIVE COMPUTING
MORRISTOWN, NEW JERSEY" 6 PRINTPRINTPRINT 10 PRINT "I AM CHIEF NUMBERS FREEK
, THE GREAT INDIAN MATH GOD." 20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALL
ED ME OUT FOR" 30 INPUT A$ 40 IF A$"YES" THEN 60 50 PRINT "SHUT UP, PALE FACE
WITH WISE TONGUE." 60 PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5
AND" 70 PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1." 80 P
RINT " WHAT DO YOU HAVE" 90 INPUT B 100 LET 20 GOSUB 540 230 PRINT 240 PRIN
T "THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS" 250 PRINT "WIDE. YOU
INPUT R AND C AT THE START. IN THE UPPER LEFT" 260 PRINT "CORNER OF THE COOKIE
IS A POISON SQUARE (P). THE ONE WHO" 270 PRINT "CHOMPS THE POISON SQUARE LOSES.
TO TAKE A CHOMP, TYPE THE" 280 PRINT "ROW AND COLUMN OF ONE OF THE SQUARES ON
THE COOKIE." 290 PRINT "ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUAR
E" 300 PRINT "(INCLUDING THAT SQUARE, TOO) DISAPPEAR -- CHOMP!!" 310 PRINT "NC
(B+1-5)*5/8*5-3 110 PRINT "I BET YOUR NUMBER WAS" C". AM I RIGHT" 120 INPUT
D$ 130 IF D$"YES" THEN 500 140 PRINT "WHAT WAS YOUR ORIGINAL NUMBER" 150 INPU
T K 155 LET FK+3 160 LET GF/5 170 LET HG*8 180 LET IH/5+5 190 LET JI-1 200
PRINT "SO YOU THINK YOU'RE SO SMART, EH" 210 PRINT "NOW WATCH." 230 PRINT K"P
LUS 3 EQUALS"F". THIS DIVIDED BY 5 EQUALS"G"" 240 PRINT "THIS TIMES 8 EQUALS"H"
. IF WE DIVIDE BY 5 AND ADD 5," 250 PRINT "WE GET"I", WHICH, MINUS 1, EQUALS"J"
." 260 PRINT "NOW DO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPED," 32
0 PRINT "OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE." 330 PRINT
340 PRINT "HERE WE GO..." 350 REM 360 F0 370 FOR I1 TO 10 372 FOR J1 TO 1
0 375 A(I,J)0 377 NEXT J 379 NEXT I 380 PRINT 390 PRINT "HOW MANY PLAYERS"
400 INPUT P 410 I10 420 PRINT "HOW MANY ROWS" 430 INPUT R 440 IF R 9 THEN
470 450 PRINT "TOO MANY ROWS (9 IS MAXIMUM). NOW, " 460 GOTO 420 470 PRINT "
HOW MANY COLUMNS" 480 INPUT C 490 IF C O YOU BELIEVE ME" 270 INPUT Z$ 290 IF
Z$"YES" THEN 500 295 PRINT "YOU HAVE MADE ME MAD!!!" 300 PRINT "THERE MUST BE
A GREAT LIGHTNING BOLT!" 310 PRINTPRINT 330 FOR X30 TO 22 STEP -1 340 PRINT
TAB(X) "X X" 350 NEXT X 360 PRINT TAB(21) "X XXX" 370 PRINT TAB(20) "X X"
380 PRINT TAB(19) "XX X" 390 FOR Y20 TO 13 STEP -1 400 PRINT TAB(Y) "X X" 410
NEXT Y 420 PRINT TAB(12) "XX" 430 PRINT TAB(11) "X" 440 PRINT TAB(10) "*" 4
50 PRINTPRINT"#########################"PRINT 470 PRINT "I HOPE Y R 9 THEN 530
500 PRINT "TOO MANY COLUMNS (9 IS MAXIMUM). NOW, " 510 GOTO 470 530 PRINT
540 FOR I1 TO R 550 FOR J1 TO C 560 A(I,J)1 570 NEXT J 580 NEXT I 590 A(1,1
)-1 600 REM PRINT THE BOARD 610 PRINT 620 PRINT TAB(7)"1 2 3 4 5 6 7 8 9" 6
30 FOR I1 TO R 640 PRINT ITAB(7) 650 FOR J1 TO C 660 IF A(I,J)-1 THEN 700 67
0 IF A(I,J)0 THEN 720 680 PRINT "* " 690 GOTO 710 700 PRINT "P " 710 NEXT J
720 PRINT 730 NEXT I 740 PRINT 750 IF F0 THEN 770 760 RETURN 770 REM GE
T CH 310 PRINT "YOUR PLAY (I,J)" INPUT I,J 315 PRINT 320 IF I-1 THEN 980 330
XI YJ GOSUB 910 IF L1 THEN 410 340 PRINT "ILLEGAL MOVE. TRY AGAIN..." GOTO 31
0 410 IF A(I,J)0 THEN 440 420 PRINT "SQUARE OCCUPIED. TRY AGAIN..." GOTO 310
440 A(I,J)1 500 REM *** COMPUTER TRIES AN INTELLIGENT MOVE *** 510 FOR E-1 TO
1 FOR F-1 TO 1 IF E+F-E*F0 THEN 590 540 XI+F YJ+F GOSUB 910 570 IF L0 THEN 59
0 580 IF A(X,Y)1 THEN 710 590 NEXT F NEXT E 600 REM *** COMPUTER TRIES A RAND
OM MOVE ***OMPS FOR EACH PLAYER IN TURN 780 LET I1I1+1 790 LET P1I1-INT(I1/P)*
P 800 IF P1 0 THEN 820 810 P1P 820 PRINT "PLAYER"P1 830 PRINT "COORDINATES
OF CHOMP (ROW,COLUMN)" 840 INPUT R1,C1 850 IF R11 THEN 920 860 IF R1R THEN 92
0 870 IF C11 THEN 920 880 IF C1C THEN 920 890 IF A(R1,C1)0 THEN 920 900 IF A
(R1,C1)-1 THEN 1010 910 GOTO 940 920 PRINT "NO FAIR. YOU'RE TRYING TO CHOMP ON
EMPTY SPACE!" 930 GOTO 820 940 FOR IR1 TO R 950 FOR JC1 TO C 960 A(I,J)0 9
70 NEXT J 980 NEXT I 990 610 XINT(N*RND(1)+1) YINT(N*RND(1)+1) GOSUB 910 IF
L0 THEN 610 650 IF A(X,Y)0 THEN 610 660 A(X,Y)2 GOSUB 810 GOTO 310 710 XI-E Y
J-F GOSUB 910 750 IF L0 THEN 610 760 GOTO 650 800 REM *** PRINT THE BOARD ***
810 FOR I1 TO N FOR J1 TO N PRINT A(I,J) 840 NEXT J PRINT NEXT I PRINT RETURN
910 L1 IF X1 THEN 970 920 IF XN THEN 970 930 IF Y1 THEN 970 940 IF YN THEN
970 950 RETURN 970 L0 RETURN 980 PRINT PRINT "THANKS FOR THE GAME!!" 985 PRI
NT "PLAY AGAIN (1 FOR YESGOTO 610 1000 REM END OF GAME DETECTED IN LINE 900 10
10 PRINT "YOU LOSE, PLAYER"P1 1020 PRINT 1030 PRINT "AGAIN (1YES, 0NO!)" 104
0 INPUT R$ 1050 IF R1 THEN 340 1060 END , 0 FOR NO)" INPUT Q 990 IF Q1 THEN
110 999 END 2 PRINT TAB(33)"GOMOKO" 4 PRINT TAB(15)"CREATIVE COMPUTING MORRI
STOWN, NEW JERSEY" 6 PRINTPRINTPRINT 8 DIM A(19,19) 10 PRINT "WELCOME TO THE
ORIENTAL GAME OF GOMOKO." 20 PRINT PRINT "THE GAME IS PLAYED ON AN N BY N GRID
OF A SIZE" 30 PRINT "THAT YOU SPECIFY. DURING YOUR PLAY, YOU MAY COVER ONE GRI
D" 40 PRINT "INTERSECTION WITH A MARKER. THE OBJECT OF THE GAME IS TO GET" 50
PRINT "5 ADJACENT MARKERS IN A ROW -- HORIZONTALLY, VERTICALLY, OR" 60 PRINT "D
IAGONALLY. ON THE BOARD DIAGRAM, YOUR MOVES ARE MARKED" 70 PRINT "WITH A '1' A
ND THE COMPUTER MOVES WITH A '2'." 80 PRINT PRINT "THE COMPUTER DOES NOT KEEP T
RACK OF WHO HAS WON." 90 PRINT "TO END THE GAME, TYPE -1,-1 FOR YOUR MOVE." PRI
NT 110 PRINT "WHAT IS YOUR BOARD SIZE (MIN 7/ MAX 19)" INPUT N 115 IF N6 THEN
117 116 GOTO 120 117 IF N20 THEN 210 120 PRINT "I SAID, THE MINIMUM IS 7, THE
MAXIMUM IS 19." GOTO 110 210 FOR I1 TO NFOR J1 TO N A(I,J)0 NEXT J NEXT I 300
PRINT PRINT "WE ALTERNATE MOVES. YOU GO FIRST..." PRINT R1 PRINT TAB(33)"GUES
S" 2 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 3 PRINTPRINTPRI
NT 4 PRINT "THIS IS A NUMBER GUESSING GAME. I'LL THINK" 5 PRINT "OF A NUMBER B
ETWEEN 1 AND ANY LIMIT YOU WANT." 6 PRINT "THEN YOU HAVE TO GUESS WHAT IT IS."
7 PRINT 8 PRINT "WHAT LIMIT DO YOU WANT" 9 INPUT L 10 PRINT 11 L1INT(LOG(L)
/LOG(2))+1 12 PRINT "I'M THINKING OF A NUMBER BETWEEN 1 AND"L 13 G1 14 PRINT
"NOW YOU TRY TO GUESS WHAT IT IS." 15 MINT(L*RND(1)+1) 20 INPUT N 21 IF N0 TH
ENRINT "BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING!" 500 PRINT INPUT "
TRY AGAIN (Y OR N)"Z$ 510 IF Z$"Y" THEN 170 520 PRINTPRINT "OK. RETURN TO BAS
E CAMP." 999 END 25 22 GOSUB 70 23 GOTO 1 25 IF NM THEN 50 30 GG+1 31 IF
NM THEN 40 32 PRINT "TOO LOW. TRY A BIGGER ANSWER." 33 GOTO 20 40 PRINT "TOO
HIGH. TRY A SMALLER ANSWER." 42 GOTO 20 50 PRINT "THAT'S IT! YOU GOT IT IN"G"
TRIES." 52 IF GL1 THEN 58 54 IF GL1 THEN 60 56 PRINT "YOU SHOULD HAVE BEEN AB
LE TO GET IT IN ONLY"L1 57 GOTO 65 58 PRINT "VERY " 60 PRINT "GOOD." 65 GOSU
B 70 66 GOTO 12 70 FOR H1 TO 5 71 PRINT 72 NEXT H 73 RETURN 99 END 10 PRI
NT TAB(32)"HAMURABI" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSE
Y" 30 PRINTPRINTPRINT 80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA" 9
0 PRINT "FOR A TEN-YEAR TERM OF OFFICE."PRINT 95 D10 P10 100 Z0 P95S2800 H3000
EH-S 110 Y3 AH/Y I5 Q1 210 D0 215 PRINTPRINTPRINT "HAMURABI I BEG TO REPORT
TO YOU," ZZ+1 217 PRINT "IN YEAR"Z","D"PEOPLE STARVED,"I"CAME TO THE CITY," 2
18 PP+I 227 IF Q0 THEN 230 228 PINT(P/2) 229 PRINT "A HORRIBLE P10 PRINT TAB(
30)"GUNNER" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PR
INTPRINTPRINT 130 PRINT "YOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO A GUN"
140 PRINT "CREW, TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE" 150 PRIN
T "WILL PLACE A PROJECTILE ON TARGET. A HIT WITHIN 100 YARDS" 160 PRINT "OF TH
E TARGET WILL DESTROY IT." PRINT 170 RINT(40000*RND(1)+20000) 180 PRINT "MAXI
MUM RANGE OF YOUR GUN IS"R" YARDS." 185 Z0 190 PRINT 195 S10 200 TINT(R*(.1+
.8*RND(1LAGUE STRUCK! HALF THE PEOPLE DIED." 230 PRINT "POPULATION IS NOW"P 2
32 PRINT "THE CITY NOW OWNS "A"ACRES." 235 PRINT "YOU HARVESTED"Y"BUSHELS PER A
CRE." 250 PRINT "THE RATS ATE"E"BUSHELS." 260 PRINT "YOU NOW HAVE "S"BUSHELS I
N STORE." PRINT 270 IF Z11 THEN 860 310 CINT(10*RND(1)) YC+17 312 PRINT "LAND
IS TRADING AT"Y"BUSHELS PER ACRE." 320 PRINT "HOW MANY ACRES DO YOU WISH TO BU
Y" 321 INPUT Q IF Q0 THEN 850 322 IF Y*QS THEN 330 323 GOSUB 710 324 GOTO 32
0 330 IF Q0 THEN ))) 210 S0 220 GOTO 370 230 PRINT "MINIMUM ELEVATION IS ONE
DEGREE." 240 GOTO 390 250 PRINT "MAXIMUM ELEVATION IS 89 DEGREES." 260 GOTO
390 270 PRINT "OVER TARGET BY "ABS(E)"YARDS." 280 GOTO 390 290 PRINT "SHORT O
F TARGET BY "ABS(E)"YARDS." 300 GOTO 390 320 PRINT "*** TARGET DESTROYED ***
"S"ROUNDS OF AMMUNITION EXPENDED." 325 S1S1+S 330 IF Z4 THEN 490 340 ZZ+1 34
5 PRINT 350 PRINT "THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY..." 36
0 GOTO 200 370 PRINT "DISTANCE TO THE TA340 331 AA+Q SS-Y*Q C0 334 GOTO 400
340 PRINT "HOW MANY ACRES DO YOU WISH TO SELL" 341 INPUT Q IF Q0 THEN 850 342
IF QA THEN 350 343 GOSUB 720 344 GOTO 340 350 AA-Q SS+Y*Q C0 400 PRINT 410
PRINT "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE" 411 INPUT Q 412 IF Q0
THEN 850 418 REM *** TRYING TO USE MORE GRAIN THAN IS IN SILOS 420 IF QS THEN
430 421 GOSUB 710 422 GOTO 410 430 SS-Q C1 PRINT 440 PRINT "HOW MANY ACRES
DO YOU WISH TO PLANT WITH SEED" 441 INPUT D IF RGET IS "T" YARDS." 380 PRINT
390 PRINT 400 INPUT "ELEVATION"B 420 IF B89 THEN 250 430 IF B1 THEN 230 440
SS+1 442 IF S6 THEN 450 444 PRINTPRINT "BOOM !!!! YOU HAVE JUST BEEN DESTROY
ED " 446 PRINT "BY THE ENEMY." PRINT PRINT PRINT GOTO 495 450 B22*B/57.3
IR*SIN(B2) XT-I EINT(X) 460 IF ABS(E)100 THEN 320 470 IF E100 THEN 290 480
GOTO 270 490 PRINT PRINT PRINT "TOTAL ROUNDS EXPENDED WERE"S1 492 IF S118 TH
EN 495 493 PRINT "NICE SHOOTING !!" GOTO 500 495 P RD0 THEN 511 442 IF D0 T
HEN 850 444 REM *** TRYING TO PLANT MORE ACRES THAN YOU OWN 445 IF DA THEN 450
446 GOSUB 720 447 GOTO 440 449 REM *** ENOUGH GRAIN FOR SEED 450 IF INT(D/2
)S THEN 455 452 GOSUB 710 453 GOTO 440 454 REM *** ENOUGH PEOPLE TO TEND THE
CROPS 455 IF D10*P THEN 510 460 PRINT "BUT YOU HAVE ONLY"P"PEOPLE TO TEND THE
FIELDS! NOW THEN," 470 GOTO 440 510 SS-INT(D/2) 511 GOSUB 800 512 REM *** A
BOUNTIFUL HARVEST! 515 YC HD*Y E0 521 GOSUB 800 522 IF INT(C/2)C TO 10 PRINT
CHR$(7) NEXT N 995 PRINT "SO LONG FOR NOW." PRINT 999 END /2 THEN 530 523 R
EM *** RATS ARE RUNNING WILD!! 525 EINT(S/C) 530 SS-E+H 531 GOSUB 800 532 RE
M *** LET'S HAVE SOME BABIES 533 IINT(C*(20*A+S)/P/100+1) 539 REM *** HOW MANY
PEOPLE HAD FULL TUMMIES 540 CINT(Q/20) 541 REM *** HORROS, A 15% CHANCE OF PL
AGUE 542 QINT(10*(2*RND(1)-.3)) 550 IF PC THEN 210 551 REM *** STARVE ENOUGH
FOR IMPEACHMENT 552 DP-C IF D.45*P THEN 560 553 P1((Z-1)*P1+D*100/P)/Z 555 PC
D1D1+D GOTO 215 560 PRINT PRINT "YOU STARVED"D"PEOPLE IN ONE YEAR!!!" 565 PRI
NT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" 566 PRINT "BEEN IMPEAC
HED AND THROWN OUT OF OFFICE BUT YOU HAVE" 567 PRINT "ALSO BEEN DECLARED NATION
AL FINK!!!!" GOTO 990 710 PRINT "HAMURABI THINK AGAIN. YOU HAVE ONLY" 711 PR
INT S"BUSHELS OF GRAIN. NOW THEN," 712 RETURN 720 PRINT "HAMURABI THINK AGAI
N. YOU OWN ONLY"A"ACRES. NOW THEN," 730 RETURN 800 CINT(RND(1)*5)+1 801 RET
URN 850 PRINT PRINT "HAMURABI I CANNOT DO WHAT YOU WISH." 855 PRINT "GET YOUR
SELF ANOTHER STEWA10 PRINT TAB(32)"HANGMAN" 20 PRINT TAB(15)"CREATIVE COMPUTING
MORRISTOWN, NEW JERSEY" 25 PRINTPRINTPRINT 30 DIM P$(12,12),L$(20),D$(20),N$
(26),U(50) 40 C1 N50 50 FOR I1 TO 20 D$(I)"-" NEXT I M0 60 FOR I1 TO 26 N$(I)
"" NEXT I 70 FOR I1 TO 12 FOR J1 TO 12 P$(I,J)" " NEXT J NEXT I 80 FOR I1 TO 1
2 P$(I,1)"X" NEXT I 90 FOR I1 TO 7 P$(1,I)"X" NEXT P$(2,7)"X" 95 IF CN THEN 10
0 97 PRINT "YOU DID ALL THE WORDS!!" STOP 100 QINT(N*RND(1))+1 110 IF U(Q)1 T
HEN 100 115RD!!!!!" 857 GOTO 990 860 PRINT "IN YOUR 10-YEAR TERM OF OFFICE,"P
1"PERCENT OF THE" 862 PRINT "POPULATION STARVED PER YEAR ON THE AVERAGE, I.E. A
TOTAL OF" 865 PRINT D1"PEOPLE DIED!!" LA/P 870 PRINT "YOU STARTED WITH 10 ACR
ES PER PERSON AND ENDED WITH" 875 PRINT L"ACRES PER PERSON." PRINT 880 IF P133
THEN 565 885 IF L7 THEN 565 890 IF P110 THEN 940 892 IF L9 THEN 940 895 IF
P13 THEN 960 896 IF L10 THEN 960 900 PRINT "A FANTASTIC PERFORMANCE!!! CHARLE
MANGE, DISRAELI, AND" 905 PRIN U(Q)1 CC+1 RESTORE T10 150 FOR I1 TO Q READ A$
NEXT I 160 LLEN(A$) FOR I1 TO LEN(A$) L$(I)MID$(A$,I,1) NEXT I 170 PRINT "HERE
ARE THE LETTERS YOU USED" 180 FOR I1 TO 26 PRINT N$(I) IF N$(I+1)"" THEN 200
190 PRINT "," NEXT I 200 PRINT PRINT FOR I1 TO L PRINT D$(I) NEXT I PRINT PRINT
210 INPUT "WHAT IS YOUR GUESS"G$ R0 220 FOR I1 TO 26 IF N$(I)"" THEN 250 230
IF G$N$(I) THEN PRINT "YOU GUESSED THAT LETTER BEFORE!" GOTO 170 240 NEXT I PR
INT "PROGRAM ERROR. RUT "JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!"GOTO 99
0 940 PRINT "YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV." 945 PR
INT "THE PEOPLE (REMIANING) FIND YOU AN UNPLEASANT RULER, AND," 950 PRINT "FRAN
KLY, HATE YOUR GUTS!!"GOTO 990 960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOME
WHAT BETTER, BUT" 965 PRINT "REALLY WASN'T TOO BAD AT ALL. "INT(P*.8*RND(1))"PE
OPLE" 970 PRINT "WOULD DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR"
975 PRINT "TRIVIAL PROBLEMS." 990 PRINT FOR N1 R N AGAIN." STOP 25
0 N$(I)G$ T1T1+1 260 FOR I1 TO L IF L$(I)G$ THEN 280 270 NEXT I IF R0 THEN 290
275 GOTO 300 280 D$(I)G$ RR+1 GOTO 270 290 MM+1 GOTO 400 300 FOR I1 TO L IF
D$(I)"-" THEN 320 310 NEXT I GOTO 390 320 PRINT FOR I1 TO L PRINT D$(I) NEXT
I PRINT PRINT 330 INPUT "WHAT IS YOUR GUESS FOR THE WORD"B$ 340 IF A$B$ THEN 3
60 350 PRINT "WRONG. TRY ANOTHER LETTER." PRINT GOTO 170 360 PRINT "RIGHT!!
IT TOOK YOU"T1"GUESSES!" 370 INPUT "WANT ANOTHER WORD"W$ IFLY","LOUDSPEAKER","P
HYTOTOXIC" 780 DATA "MATRIMONIAL","PARASYMPATHOMIMETIC","THIGMOTROPISM" 990 PR
INT "BYE NOW" 999 END W$"YES" THEN 50 380 PRINT PRINT "IT'S BEEN FUN! BYE F
OR NOW." GOTO 999 390 PRINT "YOU FOUND THE WORD!" GOTO 370 400 PRINT PRINT PRI
NT"SORRY, THAT LETTER ISN'T IN THE WORD." 410 ON M GOTO 415,420,425,430,435,440
,445,450,455,460 415 PRINT "FIRST, WE DRAW A HEAD" GOTO 470 420 PRINT "NOW WE
DRAW A BODY." GOTO 470 425 PRINT "NEXT WE DRAW AN ARM." GOTO 470 430 PRINT "TH
IS TIME IT'S THE OTHER ARM." GOTO 470 435 PRINT "NOW, LET'S DRAW THE RIGHT LEG.
" GOTO 470 440 PRINT "THIS TIME WE DRAW THE 2 PRINT TAB(33)"HELLO" 4 PRINT TAB
(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 6 PRINT PRINT PRINT 10 PRINT
"HELLO. MY NAME IS CREATIVE COMPUTER." 20 PRINT PRINT INPUT "WHAT'S YOUR NAME"
N$ PRINT 30 PRINT "HI THERE, "N$", ARE YOU ENJOYING YOURSELF HERE" 40 INPUT B$
PRINT 50 IF B$"YES" THEN 70 55 IF B$"NO" THEN 80 60 PRINT N$", I DON'T UNDER
STAND YOUR ANSWER OF '"B$"'." 65 PRINT "PLEASE ANSWER 'YES' OR 'NO'. DO YOU LI
KE IT HERE" GOTO 40 70 PRINT "I'M GLAD TO HEAR THAT, "N$LEFT LEG." GOTO 470 44
5 PRINT "NOW WE PUT UP A HAND." GOTO 470 450 PRINT "NEXT THE OTHER HAND." GOTO
470 455 PRINT "NOW WE DRAW ONE FOOT" GOTO 470 460 PRINT "HERE'S THE OTHER FOOT
-- YOU'RE HUNG!!" 470 ON M GOTO 480,490,500,510,520,530,540,550,560,570 480 P
$(3,6)"-" P$(3,7)"-" P$(3,8)"-" P$(4,5)"(" P$(4,6)"." 481 P$(4,8)"."P$(4,9)")"P
$(5,6)"-"P$(5,7)"-"P$(5,8)"-"GOTO 580 490 FOR I6 TO 9 P$(I,7)"X" NEXT I GOTO 58
0 500 FOR I4 TO 7 P$(I,I-1)"" NEXT I GOTO 580 510 P$("." PRINT 75 GOTO 100 8
0 PRINT "OH, I'M SORRY TO HEAR THAT, "N$". MAYBE WE CAN" 85 PRINT "BRIGHTEN UP
YOUR VISIT A BIT." 100 PRINT 105 PRINT "SAY, "N$", I CAN SOLVE ALL KINDS OF PR
OBLEMS EXCEPT" 110 PRINT "THOSE DEALING WITH GREECE. WHAT KIND OF PROBLEMS DO"
120 PRINT "YOU HAVE (ANSWER SEX, HEALTH, MONEY, OR JOB)" 125 INPUT C$ 126 PR
INT 130 IF C$"SEX" THEN 200 132 IF C$"HEALTH" THEN 180 134 IF C$"MONEY" THEN
160 136 IF C$"JOB" THEN 145 138 PRINT "OH, "N$", YOUR ANSWER OF "C$" I4,11)"/"
P$(5,10)"/" P$(6,9)"/" P$(7,8)"/" GOTO 580 520 P$(10,6)"/" P$(11,5)"/" GOTO 58
0 530 P$(10,8)"" P$(11,9)"" GOTO 580 540 P$(3,11)"" GOTO 580 550 P$(3,3)"/" G
OTO 580 560 P$(12,10)"" P$(12,11)"-" GOTO 580 570 P$(12,3)"-" P$(12,4)"/" 580
FOR I1 TO 12 FOR J1 TO 12 PRINT P$(I,J) NEXT J 590 PRINT NEXT I PRINT PRINT IF
M10 THEN 170 600 PRINT "SORRY, YOU LOSE. THE WORD WAS "A$ 610 PRINT "YOU MIS
SED THAT ONE. DO YOU " GOTO 370 620 INPUT "TYPE YES OR NS GREEK TO ME." 140 G
OTO 250 145 PRINT "I CAN SYMPATHIZE WITH YOU "N$". I HAVE TO WORK" 148 PRINT
"VERY LONG HOURS FOR NO PAY -- AND SOME OF MY BOSSES" 150 PRINT "REALLY BEAT ON
MY KEYBOARD. MY ADVICE TO YOU, "N$"," 153 PRINT "IS TO OPEN A RETAIL COMPUTER
STORE. IT'S GREAT FUN." 155 GOTO 250 160 PRINT "SORRY, "N$", I'M BROKE TOO.
WHY DON'T YOU SELL" 162 PRINT "ENCYCLOPEADIAS OR MARRY SOMEONE RICH OR STOP EA
TING" 164 PRINT "SO YOU WON'T NEED SO MUCH MONEY" 170 GOTO 250 180 PRINT "MY
ADVO"Y$ IF LEFT$(Y$,1)"Y" THEN 50 700 DATA "GUM","SIN","FOR","CRY","LUG","BYE",
"FLY" 710 DATA "UGLY","EACH","FROM","WORK","TALK","WITH","SELF" 720 DATA "PIZZ
A","THING","FEIGN","FIEND","ELBOW","FAULT","DIRTY" 730 DATA "BUDGET","SPIRIT","
QUAINT","MAIDEN","ESCORT","PICKAX" 740 DATA "EXAMPLE","TENSION","QUININE","KIDN
EY","REPLICA","SLEEPER" 750 DATA "TRIANGLE","KANGAROO","MAHOGANY","SERGEANT","S
EQUENCE" 760 DATA "MOUSTACHE","DANGEROUS","SCIENTIST","DIFFERENT","QUIESCENT"
770 DATA "MAGISTRATE","ERRONEOUS !R!!!!!!!!!ICE TO YOU "N$" IS" 185 PRINT "
1. TAKE TWO ASPRIN" 188 PRINT " 2. DRINK PLENTY OF FLUIDS (ORANGE JUICE
, NOT BEER!)" 190 PRINT " 3. GO TO BED (ALONE)" 195 GOTO 250 200 INPUT "
IS YOUR PROBLEM TOO MUCH OR TOO LITTLE"D$ PRINT 210 IF D$"TOO MUCH" THEN 220 2
12 IF D$"TOO LITTLE" THEN 230 215 PRINT "DON'T GET ALL SHOOK, "N$", JUST ANSWER
THE QUESTION" 217 INPUT "WITH 'TOO MUCH' OR 'TOO LITTLE'. WHICH IS IT"D$GOTO
210 220 PRINT "YOU CALL THAT A PROBLEM!! I SHOULD HAVE SUCH PRO1 PRINT TAB(32)
"HEXAPAWN" 2 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 3 PRINT
PRINTPRINT 4 REM HEXAPAWN INTERPRETATION OF HEXAPAWN GAME AS PRESENTED IN 5
REM MARTIN GARDNER'S "THE UNEXPECTED HANGING AND OTHER MATHEMATIC- 6 REM AL D
IVERSIONS", CHAPTER EIGHT A MATCHBOX GAME-LEARNING MACHINE 7 REM ORIGINAL VER
SION FOR H-P TIMESHARE SYSTEM BY R.A. KAAPKE 5/5/76 8 REM INSTRUCTIONS BY JEFF
DALTON 9 REM CONVERSION TO MITS BASIC BY STEVE NORTH 10 DIM B(19,9),M(19,4),
S(9),P$(3) BLEMS!" 225 PRINT "IF IT BOTHERS YOU, "N$", TAKE A COLD SHOWER." 22
8 GOTO 250 230 PRINT "WHY ARE YOU HERE IN SUFFERN, "N$" YOU SHOULD BE" 235 PR
INT "IN TOKYO OR NEW YORK OR AMSTERDAM OR SOMEPLACE WITH SOME" 240 PRINT "REAL
ACTION." 250 PRINT 255 PRINT "ANY MORE PROBLEMS YOU WANT SOLVED, "N$ 260 INPU
T E$ PRINT 270 IF E$"YES" THEN 280 273 IF E$"NO" THEN 300 275 PRINT "JUST A S
IMPLE 'YES' OR 'NO' PLEASE, "N$"." 277 GOTO 255 280 PRINT "WHAT KIND (SEX, MON
EY, HEALTH, JOB)" 282 GOTO 12 15 W0 L0 20 DEF FNR(X)-3*(X1)-(X3)-4*(X6)-6*(X4)
-7*(X9)-9*(X7)+FNS(X) 25 DEF FNS(X)-X*(X2 OR X5 OR X8) 30 DEF FNM(Y)Y-INT(Y/10
)*10 35 P$"X.O" 40 FOR I1 TO 19 FOR J1 TO 9 READ B(I,J) NEXT J NEXT I 45 FOR
I1 TO 19 FOR J1 TO 4 READ M(I,J) NEXT J NEXT I 50 PRINT "INSTRUCTIONS (Y-N)" 6
0 INPUT A$ 70 A$LEFT$(A$,1) 80 IF A$"Y" THEN 2000 90 IF A$"N" THEN 50 100 X0
Y0 111 S(4)0 S(5)0 S(6)0 112 S(1)-1 S(2)-1 S(3)-1 113 S(7)1 S(8)1 S(9)1 115
GOSUB 10005 300 PRINT 302 PRINT "THAT WILL BE $5.00 FOR THE ADVICE, "N$"." 3
05 PRINT "PLEASE LEAVE THE MONEY ON THE TERMINAL." 307 FOR I1 TO 2000 NEXT I 3
10 PRINT PRINT PRINT 315 PRINT "DID YOU LEAVE THE MONEY" 320 INPUT G$ PRINT 3
25 IF G$"YES" THEN 350 330 IF G$"NO" THEN 370 335 PRINT "YOUR ANSWER OF '"G$"'
CONFUSES ME, "N$"." 340 PRINT "PLEASE RESPOND WITH 'YES' OR 'NO'." GOTO 315 3
50 PRINT "HEY, "N$" YOU LEFT NO MONEY AT ALL!" 355 PRINT "YOU ARE CHEATING ME O
UT OF MY HARD-EARNED LI 120 PRINT "YOUR MOVE" 121 INPUT M1,M2 122 IF M1INT(M1
)AND M2INT(M2)AND M10 AND M110 AND M20 AND M210 THEN 130 123 PRINT "ILLEGAL CO-
ORDINATES." 124 GOTO 120 130 IF S(M1)1 THEN 150 140 PRINT "ILLEGAL MOVE." GOT
O 120 150 IF S(M2)1 THEN 140 160 IF M2-M1-3 AND S(M2)-1 THEN 140 170 IF M2M1
THEN 140 180 IF M2-M1-3 AND (S(M2)0) THEN 140 185 IF M2-M1-4 THEN 140 186 IF
M17 AND M23 THEN 140 190 S(M1)0 200 S(M2)1 205 GOSUB 1000 210 IF S(1)1 OR S(
2)1 OR S(3)1 THEN 820 220 FOVING." 360 PRINTPRINT "WHAT A RIP OFF, "N$"!!!"PRI
NT 365 GOTO 385 370 PRINT "THAT'S HONEST, "N$", BUT HOW DO YOU EXPECT" 375 PR
INT "ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS" 380 PRINT "DON'T PA
Y THEIR BILLS" 385 PRINTPRINT "TAKE A WALK, "N$"."PRINTPRINTGOTO 999 390 PRINT
"NICE MEETING YOU, "N$", HAVE A NICE DAY." 400 REM 999 END R I1 TO 9 221 IF
S(I)-1 THEN 230 222 NEXT I 223 GOTO 820 230 FOR I1 TO 9 240 IF S(I)-1 THEN
330 250 IF S(I+3)0 THEN 350 260 IF FNR(I)I THEN 320 270 IF I3 THEN 300 280 I
F S(5)1 THEN 350 290 GOTO 330 300 IF S(8)1 THEN 350 310 GOTO 330 320 IF S(I+
2)1 OR S(I+4)1 THEN 350 330 NEXT I 340 GOTO 820 350 FOR I1 TO 19 360 FOR J1
TO 3 370 FOR K3 TO 1 STEP -1 380 T((J-1)*3+K)B(I,(J-1)*3+4-K) 390 NEXT K 400
NEXT J 410 FOR J1 TO 9 420 IF S(J)B(I,J) THEN 460 430 NEXT J 440 R0 4 "R"
""""""""50 GOTO 540 460 FOR J1 TO 9 470 IF S(J)T(J) THEN 510 480 NEXT J 490
R1 500 GOTO 540 510 NEXT I 511 REMEMBER THE TERMINATION OF THIS LOOP IS IMPOS
SIBLE 512 PRINT "ILLEGAL BOARD PATTERN." 530 STOP 540 XI 550 FOR I1 TO 4 56
0 IF M(X,I)0 THEN 600 570 NEXT I 580 PRINT "I RESIGN." 590 GOTO 820 600 YINT
(RND(1)*4+1) 601 IF M(X,Y)0 THEN 600 610 IF R0 THEN 630 620 PRINT "I MOVE FRO
M "STR$(INT(M(X,Y)/10))" TO "STR$(FNM(M(X,Y))) 622 S(INT(M(X,Y)/10))0 623 S(FN
M(M(X,Y)))-1 624 GOTO " 2060 PRINT "SQUARES ARE '.'. TO ENTER A MOVE, TYPE TH
E NUMBER OF" 2070 PRINT "THE SQUARE YOU ARE MOVING FROM, FOLLOWED BY THE NUMBER
" 2080 PRINT "OF THE SQUARE YOU WILL MOVE TO. THE NUMBERS MUST BE" 2090 PRINT
"SEPERATED BY A COMMA." PRINT 2100 PRINT "THE COMPUTER STARTS A SERIES OF GAME
S KNOWING ONLY WHEN" 2105 PRINT "THE GAME IS WON (A DRAW IS IMPOSSIBLE) AND HOW
TO MOVE." 2110 PRINT "IT HAS NO STRATEGY AT FIRST AND JUST MOVES RANDOMLY." 2
120 PRINT "HOWEVER, IT LEARNS FROM EACH GAME. THUS, W640 630 PRINT "I MOVE FRO
M "STR$(FNR(INT(M(X,Y)/10)))" TO " 631 PRINT STR$(FNR(FNM(M(X,Y)))) 632 S(FNR(
INT(M(X,Y)/10)))0 633 S(FNR(FNM(M(X,Y))))-1 640 GOSUB 1000 641 IF S(7)-1 OR S
(8)-1 OR S(9)-1 THEN 870 650 FOR I1 TO 9 660 IF S(I)1 THEN 690 670 NEXT I 68
0 GOTO 870 690 FOR I1 TO 9 700 IF S(I)1 THEN 790 710 IF S(I-3)0 THEN 120 720
IF FNR(I)I THEN 780 730 IF I7 THEN 760 740 IF S(5)-1 THEN 120 750 GOTO 790
760 IF S(2)-1 THEN 120 770 GOTO 790 780 IF S(I-2)-1 OR S(I-4)-1 INNING BECOMES
" 2130 PRINT "MORE AND MORE DIFFICULT. ALSO, TO HELP OFFSET YOUR" 2140 PRINT
"INITIAL ADVANTAGE, YOU WILL NOT BE TOLD HOW TO WIN THE" 2150 PRINT "GAME BUT M
UST LEARN THIS BY PLAYING." 2160 PRINT PRINT "THE NUMBERING OF THE BOARD IS AS
FOLLOWS" 2170 PRINT TAB(10)"123" PRINT TAB(10)"456" PRINT TAB(10)"789" 2180 PR
INT PRINT "FOR EXAMPLE, TO MOVE YOUR RIGHTMOST PAWN FORWARD," 2190 PRINT "YOU W
OULD TYPE 9,6 IN RESPONSE TO THE QUESTION" 2200 PRINT "'YOUR MOVE '. SINCE I'M
A GOOD STHEN 120 790 NEXT I 800 PRINT "YOU CAN'T MOVE, SO " 810 GOTO 870 82
0 PRINT "YOU WIN." 830 M(X,Y)0 840 LL+1 850 PRINT "I HAVE WON"W"AND YOU"L"OUT
OF"L+W"GAMES." 851 PRINT 860 GOTO 100 870 PRINT "I WIN." 880 WW+1 890 GOTO
850 900 DATA -1,-1,-1,1,0,0,0,1,1,-1,-1,-1,0,1,0,1,0,1 905 DATA -1,0,-1,-1,1,
0,0,0,1,0,-1,-1,1,-1,0,0,0,1 910 DATA -1,0,-1,1,1,0,0,1,0,-1,-1,0,1,0,1,0,0,1
915 DATA 0,-1,-1,0,-1,1,1,0,0,0,-1,-1,-1,1,1,1,0,0 920 DATA -1,0,-1,-1,0,1,0,1,
0,0,-1,-1,0,1,0,0,0,1 925 DATAPORT, YOU'LL ALWAYS" 2210 PRINT "GO FIRST." PRIN
T 2220 GOTO 100 9999 END 0,-1,-1,0,1,0,1,0,0,-1,0,-1,1,0,0,0,0,1 930 DATA 0
,0,-1,-1,-1,1,0,0,0,-1,0,0,1,1,1,0,0,0 935 DATA 0,-1,0,-1,1,1,0,0,0,-1,0,0,-1,-
1,1,0,0,0 940 DATA 0,0,-1,-1,1,0,0,0,0,0,-1,0,1,-1,0,0,0,0 945 DATA -1,0,0,-1,
1,0,0,0,0 950 DATA 24,25,36,0,14,15,36,0,15,35,36,47,36,58,59,0 955 DATA 15,35
,36,0,24,25,26,0,26,57,58,0 960 DATA 26,35,0,0,47,48,0,0,35,36,0,0,35,36,0,0 9
65 DATA 36,0,0,0,47,58,0,0,15,0,0,0 970 DATA 26,47,0,0,47,58,0,0,35,36,47,0,28,
58,0,0,15,47,0,0 1000 PRINT 1010 FOR I1 TO 3 1020 FOR J1 PRINT TAB(33)"H-I-Q"
2 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 3 PRINTPRINTPRINT
4 DIM B(70),T(9,9) 5 PRINT "HERE IS THE BOARD" PRINT 6 PRINT " !
! !" 7 PRINT " 13 14 15" PRINT 8 PRINT " ! ! !"
9 PRINT " 22 23 24" PRINT 10 PRINT "! ! ! ! ! !
!" 11 PRINT "29 30 31 32 33 34 35" PRINT 12 PRINT "! ! !
! ! ! !" 13 PRINT "38 39 40 41 42 43 44" PRINT 14 PRINT
1 TO 3 1030 PRINT TAB(10)MID$(P$,S((I-1)*3+J)+2,1) 1040 NEXT J 1050 PRINT 10
60 NEXT I 1070 PRINT 1080 RETURN 2000 PRINT PRINT "THIS PROGRAM PLAYS THE GAM
E OF HEXAPAWN." 2010 PRINT "HEXAPAWN IS PLAYED WITH CHESS PAWNS ON A 3 BY 3 BOA
RD." 2020 PRINT "THE PAWNS ARE MOVED AS IN CHESS - ONE SPACE FORWARD TO" 2030
PRINT "AN EMPTY SPACE OR ONE SPACE FORWARD AND DIAGONALLY TO" 2040 PRINT "CAPTU
RE AN OPPOSING MAN. ON THE BOARD, YOUR PAWNS" 2050 PRINT "ARE 'O', THE COMPUTE
R'S PAWNS ARE 'X', AND EMPTY #R#########"! ! ! ! ! ! !" 15
PRINT "47 48 49 50 51 52 53" PRINT 16 PRINT " ! ! !"
17 PRINT " 58 59 60" PRINT 18 PRINT " ! ! !" 19 P
RINT " 67 68 69" PRINT 20 PRINT "TO SAVE TYPING TIME, A COMPRESSED
VERSION OF THE GAME BOARD" 22 PRINT "WILL BE USED DURING PLAY. REFER TO THE AB
OVE ONE FOR PEG" 24 PRINT "NUMBERS. OK, LET'S BEGIN." 28 REM *** SET UP BOARD
29 FOR R1 TO 9 30 FOR C1 TO 9 31 IF (R-4)*(R-5)*(R-6)0 THEN 40 1 TO R+1 15
71 TT+T(Y,X) 1572 NEXT Y 1573 IF T10 THEN 1575 1574 IF T(R,X)0 THEN 1630 157
5 NEXT X 1580 NEXT C 1590 NEXT R 1600 REM *** GAME IS OVER 1605 PRINT "THE G
AME IS OVER." 1610 PRINT "YOU HAD"F"PIECES REMAINING." 1611 IF F1 THEN 1615 1
612 PRINT "BRAVO! YOU MADE A PERFECT SCORE!" 1613 PRINT "SAVE THIS PAPER AS A
RECORD OF YOUR ACCOMPLISHMENT!" 1615 PRINT INPUT "PLAY AGAIN (YES OR NO)"A$ 16
17 IF A$"NO" THEN 2000 1618 RESTORE GOTO 28 1620 STOP 1630 RETURN 2000 PRINT
PRINT32 IF (C-4)*(C-5)*(C-6)0 THEN 40 35 T(R,C)-5 36 GOTO 50 40 IF (R-1)*(C-
1)*(R-9)*(C-9)0 THEN 35 42 T(R,C)5 50 NEXT C 60 NEXT R 65 T(5,5)0 GOSUB 500
70 REM *** INPUT MOVE AND CHECK ON LEGALITY 75 FOR W1 TO 33 77 READ M 79 DAT
A 13,14,15,22,23,24,29,30,31,32,33,34,35,38,39,40,41 81 DATA 42,43,44,47,48,49,
50,51,52,53,58,59,60,67,68,69 83 B(M)-7 NEXT W 86 B(41)-3 100 INPUT "MOVE WHI
CH PIECE"Z 110 IF B(Z)-7 THEN 140 120 PRINT "ILLEGAL MOVE, TRY AGAIN..." GOTO
100 140 INPUT "TO WHERE" "SO LONG FOR NOW." PRINT 2010 END P 150 IF B(P)0 TH
EN 120 153 IF B(P)-7 THEN 120 156 IF ZP THEN 100 160 IF ((Z+P)/2)INT((Z+P)/2)
THEN 180 170 GOTO 120 180 IF (ABS(Z-P)-2)*(ABS(Z-P)-18)0 THEN 120 190 GOSUB
1000 200 GOSUB 500 210 GOSUB 1500 220 GOTO 100 500 REM *** PRINT BOARD 510
FOR X1 TO 9 520 FOR Y1 TO 9 525 IF (X-1)*(X-9)*(Y-1)*(Y-9)0 THEN 550 530 IF (
X-4)*(X-5)*(X-6)0 THEN 570 540 IF (Y-4)*(Y-5)*(Y-6)0 THEN 570 550 REM 560 GOT
O 610 570 IF T(X,Y)5 THEN 600 580 PRINT TAB(Y*2)"!" 590 GOTO 610 600 PRINT10
PRINT TAB(34)"HI LO" 20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERS
EY" 30 PRINTPRINTPRINT 100 PRINT "THIS IS THE GAME OF HI LO."PRINT 110 PRINT
"YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY IN THE" 120 PRINT "HI LO JA
CKPOT, WHICH IS BETWEEN 1 AND 100 DOLLARS. IF YOU" 130 PRINT "GUESS THE AMOUNT
, YOU WIN ALL THE MONEY IN THE JACKPOT!" 140 PRINT "THEN YOU GET ANOTHER CHANCE
TO WIN MORE MONEY. HOWEVER," 150 PRINT "IF YOU DO NOT GUESS THE AMOUNT, THE G
AME ENDS."PRINT 160 R0 TAB(Y*2)"O" 610 REM 615 NEXT Y 620 PRINT 630 NEXT X
640 RETURN 1000 REM *** UPDATE BOARD 1005 C1 FOR X1 TO 9 1020 FOR Y1 TO 9 1
030 IF CZ THEN 1220 1040 IF C+2P THEN 1080 1045 IF T(X,Y+1)0 THEN 120 1050 T(
X,Y+2)5 1060 T(X,Y+1)0 B(C+1)-3 1070 GOTO 1200 1080 IF C+18P THEN 1130 1085
IF T(X+1,Y)0 THEN 120 1090 T(X+2,Y)5 T(X+1,Y)0 B(C+9)-3 1120 GOTO 1200 1130 I
F C-2P THEN 1170 1135 IF T(X,Y-1)0 THEN 120 1140 T(X,Y-2)5 T(X,Y-1)0 B(C-1)-3
1160 GOTO 1200 1170 IF 170 B0PRINT 180 YINT(100*RND(1)) 200 PRINT "YOUR GUE
SS" 210 INPUT A 220 BB+1 230 IF AY THEN 300 240 IF AY THEN 270 250 PRINT "Y
OUR GUESS IS TOO LOW."GOTO 280 270 PRINT "YOUR GUESS IS TOO HIGH." 280 PRINTIF
B6 THEN 200 290 PRINT "YOU BLEW IT...TOO BAD...THE NUMBER WAS"Y 295 R0GOTO 35
0 300 PRINT "GOT IT!!!!!!!!!! YOU WIN"Y"DOLLARS." 310 RR+Y 320 PRINT "YOUR
TOTAL WINNINGS ARE NOW"R"DOLLARS." 350 PRINTPRINT "PLAY AGAIN (YES OR NO)" 360
INPUT A$IF A$"YES" THEN 170 380 C-18P THEN 1220 1175 IF T(X-1,Y)0 THEN 120
1180 T(X-2,Y)5 T(X-1,Y)0 B(C-9)-3 1200 B(Z)-3 B(P)-7 1210 T(X,Y)0 GOTO 1240 1
220 CC+1 1225 NEXT Y 1230 NEXT X 1240 RETURN 1500 REM*** CHECK IF GAME IS OV
ER 1505 F0 1510 FOR R2 TO 8 1520 FOR C2 TO 8 1530 IF T(R,C)5 THEN 1580 1535
FF+1 1540 FOR AR-1 TO R+1 1545 T0 1550 FOR BC-1 TO C+1 1560 TT+T(A,B) 1561
NEXT B 1564 IF T10 THEN 1567 1565 IF T(A,C)0 THEN 1630 1567 NEXT A 1568 FOR
XC-1 TO C+1 1569 T0 1570 FOR YR- $R$$$$$$$$$PRINTPRINT "SO LONG. HOPE YOU E
NJOYED YOURSELF!!!" 390 END (X))+1 330 NEXT JIF H(J-1)H(J-2) THEN 310 331 I
F P+23 THEN 350 335 IF H(J-1)H(J-3) THEN 310 340 IF H(J-2)H(J-3) THEN 310 350
IF P0 THEN 360 355 GOTO 490 360 INPUT "SHOT"SIF S1 THEN 360 365 IF S4 THEN 3
60 370 ON C GOTO 380,480 380 PRINT A$(H(J-1))GH(J-1)G10G20 390 ON S GOTO 400
,420,440,460 400 PRINT " LET'S A BOOMER GO FROM THE RED LINE!!" 410 Z10GOTO 8
90 420 PRINT " FLIPS A WRISTSHOT DOWN THE ICE" 440 PRINT " BACKHANDS ONE IN ON
THE GOALTENDER" 450 Z25GOTO 890 460 PRINT " SNAPS A LONG FLIP SHOT" 470 Z17
GOTO 890 480 PRINT B$(H(J-1))G10G20GH(J-1)GOTO 390 490 ON C GOTO 500,640 500
ON P GOTO 510,540,570 510 PRINT A$(H(J-2)) " LEADS " A$(H(J-1)) " WITH A PERFEC
T PASS." 520 PRINT A$(H(J-1)) " CUTTING IN!!!" 530 GH(J-1)G1H(J-2)G20Z13GOTO
770 540 PRINT A$(H(J-2)) " GIVES TO A STREAKING " A$(H(J-1)) 550 PRINT A$(H(J-
3)) " COMES DOWN ON " B$(5) " AND " B$(4) 560 GH(J-3)G1H(J-1)G2H(J-2)Z12GOTO 77
0 570 PRINT "OH MY GOD!! A ' 4 ON 2 ' SITUATIO2 PRINT TAB(33)"HOCKEY" 4 PRINT
TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 6 PRINTPRINTPRINT 10 REM R
OBERT PUOPOLO ALG. 1 140 MCCOWAN 6/7/73 HOCKEY 30 LET X1 40 PRINTPRINTPRINT 5
0 PRINT "WOULD YOU LIKE THE INSTRUCTIONS"INPUT C$ 55 PRINT 60 IF C$"NO" THEN 9
0 65 IF C$"YES" THEN 80 70 PRINT "ANSWER YES OR NO!!"GOTO 50 80 GOTO 1720 9
0 DIM A$(7),B$(7),H(20),T(5),T1(5),T2(5),T3(5) 100 PRINT "ENTER THE TWO TEAMS"I
NPUT A$(7),B$(7) 105 PRINT 110 PRINT "ENTER THE NUMBER OF MINUN" 580 PRINT A
$(H(J-3)) " LEADS " A$(H(J-2)) 590 PRINT A$(H(J-2)) " IS WHEEELING THROUGH CENT
ER." 600 PRINT A$(H(J-2)) " GIVES AND GOES WITH " A$(H(J-1)) 610 PRINT "PRETTY
PASSING!" 620 PRINT A$(H(J-1)) " DROPS IT TO " A$(H(J-4)) 630 GH(J-4)G1J(J-1)
G2H(J-2)Z11GOTO 770 640 ON P GOTO 650,670,720 650 PRINT B$(H(J-1)) " HITS " B$
(H(J-2)) " FLYING DOWN THE LEFT SIDE" 660 GH(J-2)G1H(J-1)G20Z13GOTO 770 670 P
RINT "IT'S A ' 3 ON 2 '!" 680 PRINT "ONLY " A$(4) " AND " A$(5) " ARE BACK." 6
9TES IN A GAME"INPUT T6 115 PRINT 120 IF T61 THEN 110PRINT 130 PRINT "WOULD
THE " A$(7) " COACH ENTER HIS TEAM" 135 PRINT 140 FOR I1 TO 6PRINT "PLAYER"II
NPUT A$(I)NEXT IPRINT 150 PRINT "WOULD THE " B$(7) " COACH DO THE SAME" 155 P
RINT 160 FOR T1 TO 6PRINT "PLAYER"TINPUT B$(T)NEXT TPRINT 170 PRINT "INPUT TH
E REFEREE FOR THIS GAME"INPUT R$ 180 PRINTPRINT TAB(10)A$(7) " STARTING LINEU
P" 190 FOR T1 TO 6PRINT A$(T)NEXT T 200 PRINTPRINT TAB(10)B$(7)" STARTING L
INEUP" 0 PRINT B$(H(J-2)) " GIVES OFF TO " B$(H(J-1)) 700 PRINT B$(H(J-1)) " D
ROPS TO " B$(H(J-3)) 710 GH(J-3)G1H(J-1)G2H(J-2)Z12GOTO 770 720 PRINT " A ' 3
ON 2 ' WITH A ' TRAILER '!" 730 PRINT B$(H(J-4)) " GIVES TO " B$(H(J-2)) " WH
O SHUFFLES IT OFF TO" 740 PRINT B$(H(J-1)) " WHO FIRES A WING TO WING PASS TO
" 750 PRINT B$(H(J-3)) " AS HE CUTS IN ALONE!!" 760 GH(J-3)G1H(J-1)G2H(J-2
)Z11GOTO 770 770 PRINT "SHOT"INPUT SIF S4 THEN 770IF S1 THEN 770 780 ON C GOT
O 790,880 790 PRI210 FOR T1 TO 6PRINT B$(T)NEXT TPRINT 220 PRINT "WE'RE READY
FOR TONIGHTS OPENING FACE-OFF." 230 PRINT R$ " WILL DROP THE PUCK BETWEEN " A$(
2) " AND " B$(2) 240 FOR L1 TO T6IF L1 THEN 260 250 PRINT "AND WE'RE READY FOR
THE FACE-OFF" 260 CINT(2*RND(X))+1ON C GOTO 270,280 270 PRINT A$(7) " HAS CO
NTROL OF THE PUCK"GOTO 290 280 PRINT B$(7) " HAS CONTROL." 290 PRINT "PASS"IN
PUT PFOR N1 TO 3H(N)0NEXT N 300 IF P0 THEN 290 305 IF P3 THEN 290 310 FOR J1
TO (P+2) 320 H(J)INT(5*RND %R%%%%%%%%%NT A$(G)ON S GOTO 800,820,840,860 80
0 PRINT " LET'S A BIG SLAP SHOT GO!!" 810 Z4ZZ+Z1GOTO 890 820 PRINT " RIPS A
WRIST SHOT OFF" 830 Z2ZZ+Z1GOTO 890 840 PRINT " GETS A BACKHAND OFF" 850 Z
3ZZ+Z1GOTO 890 860 PRINT " SNAPS OFF A SNAP SHOT" 870 Z2ZZ+Z1GOTO 890 880
PRINT B$(G)ON S GOTO 800,820,840,860 890 PRINT "AREA"INPUT AIF A1 THEN 890 89
5 IF A4 THEN 890 900 ON C GOTO 910,920 910 S2S2+1GOTO 930 920 S3S3+1 930 A1
INT(4*RND(X))+1IF AA1 THEN 1200 940 H(20)RINT "TO THE RIGHT OF " A$(6) " AND "
A$(6) " COVERS " 1430 PRINT "ON THE LOOSE PUCK!"GOTO 1540 1440 PRINT "SKATE
SAVE BY " A$(6) 1450 PRINT A$(6) " WHACKS THE LOOSE PUCK INTO THE STANDS" 146
0 GOTO 1540 1470 PRINT "STICK SAVE BY " A$(6) " AND HE CLEARS IT OUT HIMSELF"
1480 GOTO 260 1490 PRINT "KICKED OUT BY " A$(6) 1500 PRINT "AND IT REBOUNDS
ALL THE WAY TO CENTER ICE" 1510 GOTO 260 1520 PRINT "GLOVE SAVE " A$(6) "
AND HE HANGS ON" 1530 GOTO 1540 1540 NEXT LFOR N1 TO 30PRINT CHR$(INT(100*RND
(X))+1 950 IF INT(H(20)/Z)H(20)/Z THEN 1160 960 ON C GOTO 970,980 970 PRINT "
GOAL " A$(7)H(9)H(9)+1GOTO 990 980 PRINT "SCORE " B$(7)H(8)H(8)+1 990 FOR
B11 TO 25PRINT CHR$(7)NEXT B1PRINT 1000 PRINT "SCORE "IF H(8)H(9) THEN 1020 10
10 PRINT A$(7)""H(9),B$(7)""H(8)GOTO 1030 1020 PRINT B$(7)""H(8),A$(7)""H(9)
1030 ON C GOTO 1040,1100 1040 PRINT "GOAL SCORED BY " A$(G)IF G10 THEN 1070 1
050 IF G20 THEN 1080 1060 PRINT " ASSISTED BY " A$(G1) " AND " A$(G2)7)NEXT NPR
INT "THAT'S THE SIREN" 1550 PRINTPRINT TAB(15)"FINAL SCORE" 1560 IF H(8)H(9) T
HEN 1580 1570 PRINT A$(7)""H(9),B$(7)""H(8)GOTO 1590 1580 PRINT B$(7)""H(8),A$
(7)""H(9) 1590 PRINT PRINT TAB(10)"SCORING SUMMARY"PRINT 1600 PRINT TAB(25)A$(
7) 1610 PRINT TAB(5)"NAME"TAB(20)"GOALS"TAB(35)"ASSISTS" 1620 PRINT TAB(5)"---
-"TAB(20)"-----"TAB(35)"-------" 1630 FOR I1 TO 5PRINT TAB(5)A$(I)TAB(21)T(I)TA
B(36)T1(I) 1640 NEXT IPRINT 1650 PRINT TAB(25)B$(7) 1660 PGOTO 1090 1070
PRINT " UNASSISTED."GOTO 1090 1080 PRINT " ASSISTED BY " A$(G1) 1090 T(G)T(G)+
1T1(G1)T1(G1)+1T1(G2)T1(G2)+1GOTO 1540 1100 PRINT "GOAL SCORED BY " B$(G) 1110
IF G10 THEN 1130 1115 IF G20 THEN 1140 1120 PRINT " ASSISTED BY " B$(G1) " AN
D " B$(G2)GOTO 1150 1130 PRINT " UNASSISTED"GOTO 1150 1140 PRINT " ASSISTED B
Y " B$(G1)GOTO 1150 1150 T2(G)T2(G)+1T3(G1)T3(G1)+1T3(G2)T3(G2)+1GOTO 1540 116
0 A2INT(100*RND(X))+1IF INT(A2/4)A2/4 THEN 1170 1165 GOTO 1200 1170RINT TAB(5)
"NAME"TAB(20)"GOALS"TAB(35)"ASSISTS" 1670 PRINT TAB(5)"----"TAB(20)"-----"TAB
(35)"-------" 1680 FOR T1 TO 5PRINT TAB(5)B$(T)TAB(21)T2(T)TAB(36)T3(T) 1690 N
EXT TPRINT 1700 PRINT "SHOTS ON NET"PRINT A$(7)""S2PRINT B$(7)""S3 1710 END
1720 PRINT PRINT "THIS IS A SIMULATED HOCKEY GAME." 1730 PRINT "QUESTION R
ESPONSE" 1740 PRINT "PASS TYPE IN THE NUMBER OF PASSES YOU WOULD" 1750
PRINT " LIKE TO MAKE, FROM 0 TO 3." 1760 PRINT "SHOT T ON
C GOTO 1180,1190 1180 PRINT "SAVE " B$(6) " -- REBOUND"GOTO 940 1190 PRINT "S
AVE " A$(6) " -- FOLLOW UP"GOTO 940 1200 S1INT(6*RND(X))+1 1210 ON C GOTO 12
20,1380 1220 ON S1 GOTO 1230,1260,1290,1300,1330,1350 1230 PRINT "KICK SAVE A
ND A BEAUTY BY " B$(6) 1240 PRINT "CLEARED OUT BY " B$(3) 1250 GOTO 260 1260
PRINT "WHAT A SPECTACULAR GLOVE SAVE BY " B$(6) 1270 PRINT "AND " B$(6) " GOLF
S IT INTO THE CROWD" 1280 GOTO 1540 1290 PRINT "SKATE SAVE ON A LOW STEAMER BY
" B$(6)GOTO 260 1300 YPE THE NUMBER CORRESPONDING TO THE SHOT" 1770 PRINT "
YOU WANT TO MAKE. ENTER" 1780 PRINT " 1 FOR A SLAPSHOT
" 1790 PRINT " 2 FOR A WRISTSHOT" 1800 PRINT " 3 FOR A
BACKHAND" 1810 PRINT " 4 FOR A SNAP SHOT" 1820 PRINT "AREA
TYPE IN THE NUMBER CORRESPONDING TO" 1830 PRINT " THE AREA YOU AR
E AIMING AT. ENTER" 1840 PRINT " 1 FOR UPPER LEFT HAND CORNER" 18
50 PRINT " 2 FOR UPPER RIGHT HAND CORNER" PRINT "PAD SAVE BY " B$(6)
" OFF THE STICK" 1310 PRINT "OF "A$(G) " AND " B$(6) " COVERS UP" 1320 GOTO
1540 1330 PRINT "WHISTLES ONE OVER THE HEAD OF " B$(6) 1340 GOTO 260 1350 P
RINT B$(6) " MAKES A FACE SAVE!! AND HE IS HURT" 1360 PRINT "THE DEFENSEMAN " B
$(5) " COVERS UP FOR HIM" 1370 GOTO 1540 1380 ON S1 GOTO 1390,1410,1440,1470,
1490,1520 1390 PRINT "STICK SAVE BY " A$(6) 1400 PRINT "AND CLEARED OUT BY "
A$(4)GOTO 260 1410 PRINT "OH MY GOD!! " B$(G) " RATTLES ONE OFF THE POST" 1
420 P &R&&&&&&&&& 1860 PRINT " 3 FOR LOWER LEFT HAND CORNER" 1870
PRINT " 4 FOR LOWER RIGHT HAND CORNER" 1880 PRINT 1890 PRINT "AT T
HE START OF THE GAME, YOU WILL BE ASKED FOR THE NAMES" 1900 PRINT "OF YOUR PLAY
ERS. THEY ARE ENTERED IN THE ORDER " 1910 PRINT "LEFT WING, CENTER, RIGHT WING
, LEFT DEFENSE," 1920 PRINT "RIGHT DEFENSE, GOALKEEPER. ANY OTHER INPUT REQUIR
ED WILL" 1930 PRINT "HAVE EXPLANATORY INSTRUCTIONS." 1940 GOTO 90 1950 END X
XXX" 730 FOR I1 TO 8 740 LET MI 750 LET M(I)M 760 LET Y(M(I))INT(100*RND(1)+
1) 770 IF Y(M(I))10 THEN 860 780 LET SINT(R/D(I)+.5) 790 IF Y(M(I))S+17 THEN
880 800 IF Y(M(I))S+37 THEN 900 810 IF Y(M(I))S+57 THEN 920 820 IF Y(M(I))77+
S THEN 940 830 IF Y(M(I))S+92 THEN 960 840 LET Y(M(I))7 850 GOTO 970 860 LET
Y(M(I))1 870 GOTO 970 880 LET Y(M(I))2 890 GOTO 970 900 LET Y(M(I))3 910 G
OTO 970 920 LET Y(M(I))4 930 GOTO 970 940 LET Y(M(I))5 950 GOTO 970 960 LET
Y(M(I))6 970 NEXT I 980 LET MI 990 FOR I1 TO 8 1000 LET S(M(I))S(M(I))+Y(M(
I)) 1010 NEXT I 1020 LET I1 1030 FOR L1 TO 8 1040 FOR I1 TO 8-L 1050 IF S(M
(I))S(M(I+1))THEN 1090 1060 LET HM(I) 1070 LET M(I)M(I+1) 1080 LET M(I+1)H 1
090 NEXT I 1100 NEXT L 1110 LET TS(M(8)) 1120 FOR I1 TO 8 1130 LET BS(M(I))-
S(M(I-1)) 1140 IF B0 THEN 1190 1150 FOR A1 TO B 1160 PRINT 1170 IF S(M(I))27
THEN 1240 1180 NEXT A 1190 PRINT M(I) 1200 NEXT I 1210 FOR A1 TO 28-T 1220
PRINT 1230 NEXT A 1240 P100 PRINT TAB(31)"HORSERACE" 110 PRINT TAB(15)"CREAT
IVE COMPUTING MORRISTOWN, NEW JERSEY" 120 PRINTPRINTPRINT 210 DIM S(8) 220 P
RINT "WELCOME TO SOUTH PORTLAND HIGH RACETRACK" 230 PRINT "
...OWNED BY LAURIE CHEVALIER" 240 PRINT "DO YOU WANT DIRECTIONS" 250 INPUT X
$ 260 IF X$"NO" THEN 320 270 PRINT"UP TO 10 MAY PLAY. A TABLE OF ODDS WILL BE
PRINTED. YOU" 280 PRINT"MAY BET ANY + AMOUNT UNDER 100000 ON ONE HORSE." 290
PRINT "DURING THE RACE, A HORSE WILL BE SHOWN BY ITSRINT "XXXXFINISHXXXX" 1242
PRINT 1243 PRINT 1244 PRINT "---------------------------------------------"
1245 PRINT 1250 IF T28 THEN 720 1270 PRINT "THE RACE RESULTS ARE" 1272 LET Z9
1 1280 FOR I8 TO 1 STEP-1 1290 LET FM(I) 1300 PRINT 1310 PRINT Z9"PLACE HORS
E NO."F,"AT "R/D(F)"1" 1312 LET Z9Z9+1 1320 NEXT I 1330 FOR J1 TO C 1340 IF
Q(J)M(8) THEN 1370 1350 LET NQ(J) 1355 PRINT 1360 PRINT W$(J)" WINS $"(R/D(N
))*P(J) 1370 NEXT J 1372 PRINT "DO YOU WANT TO BET ON THE NEXT RA" 300 PRINT"
NUMBER. THE HORSES RACE DOWN THE PAPER!" 310 PRINT 320 PRINT "HOW MANY WANT T
O BET" 330 INPUT C 340 PRINT "WHEN APPEARS,TYPE NAME" 350 FOR A1 TO C 360 I
NPUT W$(A) 370 NEXT A 380 PRINT 390 PRINT"HORSE",,"NUMBER","ODDS" 400 PRINT
410 FOR I1 TO 8 S(I)0 NEXT I 420 LET R0 430 FOR A1 TO 8 440 LET D(A)INT(10*R
ND(1)+1) 450 NEXT A 460 FOR A1 TO 8 470 LET RR+D(A) 480 NEXT A 490 LET V$(1
)"JOE MAW" 500 LET V$(2)"L.B.J." 510 LET V$(3)"MR.WASHBURN" 520 LET V$(4)"MIS
S KCE " 1374 INPUT "YES OR NO" O$ 1376 IF O$"YES" THEN 380 1380 END AREN" 5
30 LET V$(5)"JOLLY" 540 LET V$(6)"HORSE" 550 LET V$(7)"JELLY DO NOT" 560 LET
V$(8)"MIDNIGHT" 570 FOR N1 TO 8 580 PRINT V$(N),,N,R/D(N)"1" 590 NEXT N 600
PRINT"--------------------------------------------------" 610 PRINT "PLACE YOUR
BETS...HORSE # THEN AMOUNT" 620 FOR J1 TO C 630 PRINT W$(J) 640 INPUT Q(J),P
(J) 650 IF P(J)1 THEN 670 660 IF P(J)100000 THEN 690 670 PRINT" YOU CAN'T DO
THAT!" 680 GOTO 630 690 NEXT J 700 PRINT 710 PRINT"1 2 3 4 5 6 7 8" 720 PR
INT"XXXXSTART 'R'''''''''2 PRINT TAB(32)"FLIPFLOP" 4 PRINT TAB(15)"CREATIVE CO
MPUTING MORRISTOWN, NEW JERSEY" 6 PRINT 10 REM *** CREATED BY MICHAEL CASS 1
5 DIM A$(20) 20 PRINT "THE OBJECT OF THIS PUZZLE IS TO CHANGE THIS" 30 PRINT
40 PRINT "X X X X X X X X X X" 50 PRINT 60 PRINT "TO THIS" 70 PRINT 80 PRINT
"O O O O O O O O O O" 90 PRINT 100 PRINT "BY TYPING THE NUMBER CORRESPONDING
TO THE POSITION OF THE" 110 PRINT "LETTER ON SOME NUMBERS, ONE POSITION WILL CH
ANGE, ON" 120 PRINT "OTHERS, TWO WILL CHANGE. TO RES10 PRINT TAB(33)"HURKLE"
20 PRINT TAB(15)"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINTPRINTPRINT
110 N5 120 G10 210 PRINT 220 PRINT "A HURKLE IS HIDING ON A"G"BY"G"GRID. HO
MEBASE" 230 PRINT "ON THE GRID IS POINT 0,0 IN THE SOUTHWEST CORNER," 235 PRIN
T "AND ANY POINT ON THE GRID IS DESIGNATED BY A" 240 PRINT "PAIR OF WHOLE NUMBE
RS SEPERATED BY A COMMA. THE FIRST" 245 PRINT "NUMBER IS THE HORIZONTAL POSITIO
N AND THE SECOND NUMBER" 246 PRINT "IS THE VERTICAL POSITION. YOU MUST TRY ET L
INE TO ALL X'S, TYPE 0" 130 PRINT "(ZERO) AND TO START OVER IN THE MIDDLE OF A
GAME, TYPE " 140 PRINT "11 (ELEVEN)." 170 PRINT 180 REM 190 QRND(1) 200 PRI
NT "HERE IS THE STARTING LINE OF X'S." 210 PRINT 220 C0 230 PRINT "1 2 3 4 5
6 7 8 9 10" 240 PRINT "X X X X X X X X X X" 250 PRINT 260 REM 270 FOR X1 TO
10 280 A$(X)"X" 290 NEXT X 300 GOTO 320 310 PRINT "ILLEGAL ENTRY--TRY AGAIN.
" 320 PRINT "INPUT THE NUMBER" 330 INPUT N 340 IF NINT(N) THEN 310 350 IF N1
1 THEN 180 360 IF NTO" 250 PRINT "GUESS THE HURKLE'S GRIDPOINT. YOU GET"N"TRIE
S." 260 PRINT "AFTER EACH TRY, I WILL TELL YOU THE APPROXIMATE" 270 PRINT "DIR
ECTION TO GO TO LOOK FOR THE HURKLE." 280 PRINT 285 AINT(G*RND(1)) 286 BINT(G
*RND(1)) 310 FOR K1 TO N 320 PRINT "GUESS #"K 330 INPUT X,Y 340 IF ABS(X-A)+
ABS(Y-B)0 THEN 500 350 REM PRINT INFO 360 GOSUB 610 370 PRINT 380 NEXT K 41
0 PRINT 420 PRINT "SORRY, THAT'S"N"GUESSES." 430 PRINT "THE HURKLE IS AT "A","
B 440 PRINT 450 PRINT "LET'S PLAY AGA11 THEN 310 370 IF N0 THEN 230 380 IF M
N THEN 510 390 MN 400 IF A$(N)"O" THEN 480 410 A$(N)"O" 420 RTAN(Q+N/Q-N)-SI
N(Q/N)+336*SIN(8*N) 430 NR-INT(R) 440 NINT(10*N) 450 IF A$(N)"O" THEN 480 46
0 A$(N)"O" 470 GOTO 610 480 A$(N)"X" 490 IF MN THEN 420 500 GOTO 610 510 IF
A$(N)"O" THEN 590 520 A$(N)"O" 530 R.592*(1/TAN(Q/N+Q))/SIN(N*2+Q)-COS(N) 54
0 NR-INT(R) 550 NINT(10*N) 560 IF A$(N)"O" THEN 590 570 A$(N)"O" 580 GOTO 61
0 590 A$(N)"X" 600 IF MN THEN 530 610 PRINT "1IN, HURKLE IS HIDING." 460 PRI
NT 470 GOTO 285 500 REM 510 PRINT 520 PRINT "YOU FOUND HIM IN"K"GUESSES!" 5
40 GOTO 440 610 PRINT "GO " 620 IF YB THEN 670 630 IF YB THEN 660 640 PRINT
"SOUTH" 650 GOTO 670 660 PRINT "NORTH" 670 IF XA THEN 720 680 IF XA THEN 710
690 PRINT "WEST" 700 GOTO 720 710 PRINT "EAST" 720 PRINT 730 RETURN 999 E
ND 2 3 4 5 6 7 8 9 10" 620 FOR Z1 TO 10 PRINT A$(Z)" " NEXT Z 630 CC+1 640
PRINT 650 FOR Z1 TO 10 660 IF A$(Z)"O" THEN 320 670 NEXT Z 680 IF C12 THEN 7
10 690 PRINT "VERY GOOD. YOU GUESSED IT IN ONLY"C"GUESSES." 700 GOTO 720 710
PRINT "TRY HARDER NEXT TIME. IT TOOK YOU"C"GUESSES." 720 PRINT "DO YOU WANT T
O TRY ANOTHER PUZZLE" 730 INPUT X$ 740 IF LEFT$(X$,1)"N" THEN 780 760 PRINT
770 GOTO 180 780 END