BASIC Computer Games - 101 Great Games To Play On Your Home Computer (UK) (Face 1) (2018) [COMPILATION].dsk
Size : 512 (Real : 512)
000000: 00 33 44 50 4C 4F 54 20 20 42 41 53 00 00 00 04 .3DPLOT BAS....
000010: 02 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 32 33 4D 41 54 43 48 45 42 41 53 00 00 00 0E .23MATCHEBAS....
000030: 03 04 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: 00 41 43 45 59 44 55 43 45 42 41 53 00 00 00 12 .ACEYDUCEBAS....
000050: 05 06 07 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000060: 00 41 4D 41 5A 49 4E 47 20 42 41 53 00 00 00 19 .AMAZING BAS....
000070: 08 09 0A 0B 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 41 4E 49 4D 41 4C 20 20 42 41 53 00 00 00 10 .ANIMAL BAS....
000090: 0C 0D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 41 57 41 52 49 20 20 20 42 41 53 00 00 00 11 .AWARI BAS....
0000B0: 0E 0F 10 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 42 41 47 45 4C 53 20 20 42 41 53 00 00 00 12 .BAGELS BAS....
0000D0: 11 12 13 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 42 41 4E 4E 45 52 20 20 42 41 53 00 00 00 16 .BANNER BAS....
0000F0: 14 15 16 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 42 41 53 4B 45 54 42 41 42 41 53 00 00 00 2B .BASKETBABAS...+
000110: 17 18 19 1A 1B 1C 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 42 41 54 4E 55 4D 20 20 42 41 53 00 00 00 12 .BATNUM BAS....
000130: 1D 1E 1F 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 42 41 54 54 4C 45 20 20 42 41 53 00 00 00 29 .BATTLE BAS...)
000150: 20 21 22 23 24 25 00 00 00 00 00 00 00 00 00 00 !"#$%..........
000160: 00 42 4F 55 4E 43 45 20 20 42 41 53 00 00 00 0B .BOUNCE BAS....
000170: 26 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 &'..............
000180: 00 42 4F 57 4C 49 4E 47 20 42 41 53 00 00 00 14 .BOWLING BAS....
000190: 28 29 2A 00 00 00 00 00 00 00 00 00 00 00 00 00 ()*.............
0001A0: 00 42 4F 58 49 4E 47 20 20 42 41 53 00 00 00 1B .BOXING BAS....
0001B0: 2B 2C 2D 2E 00 00 00 00 00 00 00 00 00 00 00 00 +,-.............
0001C0: 00 42 55 47 20 20 20 20 20 42 41 53 00 00 00 30 .BUG BAS...0
0001D0: 2F 30 31 32 33 34 00 00 00 00 00 00 00 00 00 00 /01234..........
0001E0: 00 42 55 4C 4C 46 49 47 48 42 41 53 00 00 00 29 .BULLFIGHBAS...)
0001F0: 35 36 37 38 39 3A 00 00 00 00 00 00 00 00 00 00 56789:..........
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 00 42 55 4C 4C 53 45 59 45 42 41 53 00 00 00 0E .BULLSEYEBAS....
000010: 3B 3C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;<..............
000020: 00 42 55 4E 4E 59 20 20 20 42 41 53 00 00 00 0B .BUNNY BAS....
000030: 3D 3E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 =>..............
000040: 00 42 55 5A 5A 57 4F 52 44 42 41 53 00 00 00 0B .BUZZWORDBAS....
000050: 3F 40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ?@..............
000060: 00 42 4C 41 43 4B 4A 41 43 42 41 53 00 00 00 41 .BLACKJACBAS...A
000070: 41 42 43 44 45 46 47 48 49 00 00 00 00 00 00 00 ABCDEFGHI.......
000080: 00 42 4F 4D 42 41 52 44 4D 42 41 53 00 00 00 16 .BOMBARDMBAS....
000090: 4A 4B 4C 00 00 00 00 00 00 00 00 00 00 00 00 00 JKL.............
0000A0: 00 42 4F 4D 42 53 41 57 41 42 41 53 00 00 00 17 .BOMBSAWABAS....
0000B0: 4D 4E 4F 00 00 00 00 00 00 00 00 00 00 00 00 00 MNO.............
0000C0: 00 43 49 56 49 4C 57 41 52 42 41 53 00 00 00 6D .CIVILWARBAS...m
0000D0: 50 51 52 53 54 55 56 57 58 59 5A 5B 5C 5D 00 00 PQRSTUVWXYZ[\]..
0000E0: 00 43 4F 4D 42 41 54 20 20 42 41 53 00 00 00 1B .COMBAT BAS....
0000F0: 5E 5F 60 61 00 00 00 00 00 00 00 00 00 00 00 00 ^_`a............
000100: 00 43 52 41 50 53 20 20 20 42 41 53 00 00 00 12 .CRAPS BAS....
000110: 62 63 64 00 00 00 00 00 00 00 00 00 00 00 00 00 bcd.............
000120: 00 43 55 42 45 20 20 20 20 42 41 53 00 00 00 22 .CUBE BAS..."
000130: 65 66 67 68 69 00 00 00 00 00 00 00 00 00 00 00 efghi...........
000140: 00 44 45 50 54 48 43 48 41 42 41 53 00 00 00 0C .DEPTHCHABAS....
000150: 6A 6B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 jk..............
000160: 00 44 49 41 4D 4F 4E 44 20 42 41 53 00 00 00 05 .DIAMOND BAS....
000170: 6C 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 l...............
000180: 00 44 49 43 45 20 20 20 20 42 41 53 00 00 00 07 .DICE BAS....
000190: 6D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 m...............
0001A0: 00 44 49 47 49 54 53 20 20 42 41 53 00 00 00 13 .DIGITS BAS....
0001B0: 6E 6F 70 00 00 00 00 00 00 00 00 00 00 00 00 00 nop.............
0001C0: 00 45 56 45 4E 57 49 4E 53 42 41 53 00 00 00 19 .EVENWINSBAS....
0001D0: 71 72 73 74 00 00 00 00 00 00 00 00 00 00 00 00 qrst............
0001E0: 00 43 41 4C 45 4E 44 41 52 42 41 53 00 00 00 0D .CALENDARBAS....
0001F0: 75 76 00 00 00 00 00 00 00 00 00 00 00 00 00 00 uv..............
Size : 512 (Real : 512)
000000: 32 30 20 50 52 49 4E 54 20 54 41 42 28 33 31 29 20 PRINT TAB(31)
000010: 3B 22 32 33 20 4D 41 54 43 48 45 53 22 0D 0A 33 ;"23 MATCHES"..3
000020: 30 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 0 PRINT TAB(15);
000030: 22 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 "CREATIVE COMPUT
000040: 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C ING MORRISTOWN,
000050: 20 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 34 30 NEW JERSEY"..40
000060: 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 PRINT:PRINT:PRI
000070: 4E 54 0D 0A 38 30 20 50 52 49 4E 54 20 22 20 54 NT..80 PRINT " T
000080: 48 49 53 20 49 53 20 41 20 47 41 4D 45 20 43 41 HIS IS A GAME CA
000090: 4C 4C 45 44 20 27 32 33 20 4D 41 54 43 48 45 53 LLED '23 MATCHES
0000A0: 27 2E 22 0D 0A 39 30 20 50 52 49 4E 54 0D 0A 31 '."..90 PRINT..1
0000B0: 30 30 20 50 52 49 4E 54 20 22 57 48 45 4E 20 49 00 PRINT "WHEN I
0000C0: 54 20 49 53 20 59 4F 55 52 20 54 55 52 4E 2C 20 T IS YOUR TURN,
0000D0: 59 4F 55 20 4D 41 59 20 54 41 4B 45 20 4F 4E 45 YOU MAY TAKE ONE
0000E0: 2C 20 54 57 4F 2C 20 4F 52 20 54 48 52 45 45 22 , TWO, OR THREE"
0000F0: 0D 0A 31 31 30 20 50 52 49 4E 54 20 22 4D 41 54 ..110 PRINT "MAT
000100: 43 48 45 53 2E 20 54 48 45 20 4F 42 4A 45 43 54 CHES. THE OBJECT
000110: 20 4F 46 20 54 48 45 20 47 41 4D 45 20 49 53 20 OF THE GAME IS
000120: 4E 4F 54 20 54 4F 20 48 41 56 45 20 54 4F 20 54 NOT TO HAVE TO T
000130: 41 4B 45 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 AKE"..120 PRINT
000140: 22 54 48 45 20 4C 41 53 54 20 4D 41 54 43 48 2E "THE LAST MATCH.
000150: 22 0D 0A 31 33 30 20 50 52 49 4E 54 0D 0A 31 34 "..130 PRINT..14
000160: 30 20 50 52 49 4E 54 20 22 4C 45 54 27 53 20 46 0 PRINT "LET'S F
000170: 4C 49 50 20 41 20 43 4F 49 4E 20 54 4F 20 53 45 LIP A COIN TO SE
000180: 45 20 57 48 4F 20 47 4F 45 53 20 46 49 52 53 54 E WHO GOES FIRST
000190: 2E 22 0D 0A 31 35 30 20 50 52 49 4E 54 20 22 49 ."..150 PRINT "I
0001A0: 46 20 49 54 20 43 4F 4D 45 53 20 55 50 20 48 45 F IT COMES UP HE
0001B0: 41 44 53 2C 20 49 20 57 49 4C 4C 20 57 49 4E 20 ADS, I WILL WIN
0001C0: 54 48 45 20 54 4F 53 53 2E 22 0D 0A 31 35 35 20 THE TOSS."..155
0001D0: 50 52 49 4E 54 0D 0A 31 36 30 20 52 45 4D 0D 0A PRINT..160 REM..
0001E0: 31 36 35 20 4E 20 3D 20 32 33 0D 0A 31 37 30 20 165 N = 23..170
0001F0: 51 20 3D 20 49 4E 54 28 32 2A 52 4E 44 28 35 29 Q = INT(2*RND(5)
Size : 512 (Real : 512)
000000: 00 43 48 41 4E 47 45 20 20 42 41 53 00 00 00 0B .CHANGE BAS....
000010: 77 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 wx..............
000020: 00 43 48 45 43 4B 45 52 53 42 41 53 00 00 00 1B .CHECKERSBAS....
000030: 79 7A 7B 7C 00 00 00 00 00 00 00 00 00 00 00 00 yz{|............
000040: 00 43 48 45 4D 49 53 54 20 42 41 53 00 00 00 09 .CHEMIST BAS....
000050: 7D 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 }~..............
000060: 00 43 48 49 45 46 20 20 20 42 41 53 00 00 00 0D .CHIEF BAS....
000070: 7F 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 43 48 4F 4D 50 20 20 20 42 41 53 00 00 00 16 .CHOMP BAS....
000090: 81 82 83 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 47 4F 4D 4F 4B 4F 20 20 42 41 53 00 00 00 11 .GOMOKO BAS....
0000B0: 84 85 86 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 47 55 45 53 53 20 20 20 42 41 53 00 00 00 08 .GUESS BAS....
0000D0: 87 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 47 55 4E 4E 45 52 20 20 42 41 53 00 00 00 0E .GUNNER BAS....
0000F0: 88 89 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 00 48 41 4D 4D 55 52 41 42 42 41 53 00 00 00 21 .HAMMURABBAS...!
000110: 8A 8B 8C 8D 8E 00 00 00 00 00 00 00 00 00 00 00 ................
000120: 00 48 41 4E 47 4D 41 4E 20 42 41 53 00 00 00 1D .HANGMAN BAS....
000130: 8F 90 91 92 00 00 00 00 00 00 00 00 00 00 00 00 ................
000140: 00 48 45 4C 4C 4F 20 20 20 42 41 53 00 00 00 1B .HELLO BAS....
000150: 93 94 95 96 00 00 00 00 00 00 00 00 00 00 00 00 ................
000160: 00 48 45 58 41 50 41 57 4E 42 41 53 00 00 00 2D .HEXAPAWNBAS...-
000170: 97 98 99 9A 9B 9C 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 48 49 47 48 49 51 20 20 42 41 53 00 00 00 1D .HIGHIQ BAS....
000190: 9D 9E 9F A0 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 48 49 2D 4C 4F 20 20 20 42 41 53 00 00 00 09 .HI-LO BAS....
0001B0: A1 A2 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 48 4F 43 4B 45 59 20 20 42 41 53 00 00 00 44 .HOCKEY BAS...D
0001D0: A3 A4 A5 A6 A7 A8 A9 AA AB 00 00 00 00 00 00 00 ................
0001E0: 00 48 4F 52 53 45 52 41 43 42 41 53 00 00 00 19 .HORSERACBAS....
0001F0: AC AD AE AF 00 00 00 00 00 00 00 00 00 00 00 00 ................
Size : 512 (Real : 512)
000000: 29 0D 0A 31 38 30 20 49 46 20 51 20 3D 20 31 20 )..180 IF Q = 1
000010: 54 48 45 4E 20 32 31 30 0D 0A 31 39 30 20 50 52 THEN 210..190 PR
000020: 49 4E 54 20 22 54 41 49 4C 53 21 20 59 4F 55 20 INT "TAILS! YOU
000030: 47 4F 20 46 49 52 53 54 2E 20 22 0D 0A 31 39 35 GO FIRST. "..195
000040: 20 50 52 49 4E 54 0D 0A 32 30 30 20 47 4F 54 4F PRINT..200 GOTO
000050: 20 33 30 30 0D 0A 32 31 30 20 50 52 49 4E 54 20 300..210 PRINT
000060: 22 48 45 41 44 53 21 20 49 20 57 49 4E 21 20 48 "HEADS! I WIN! H
000070: 41 21 20 48 41 21 22 0D 0A 32 32 30 20 50 52 49 A! HA!"..220 PRI
000080: 4E 54 20 22 50 52 45 50 41 52 45 20 54 4F 20 4C NT "PREPARE TO L
000090: 4F 53 45 2C 20 4D 45 41 54 42 41 4C 4C 2D 4E 4F OSE, MEATBALL-NO
0000A0: 53 45 21 21 22 0D 0A 32 33 30 20 50 52 49 4E 54 SE!!"..230 PRINT
0000B0: 0D 0A 32 35 30 20 50 52 49 4E 54 20 22 49 20 54 ..250 PRINT "I T
0000C0: 41 4B 45 20 32 20 4D 41 54 43 48 45 53 22 0D 0A AKE 2 MATCHES"..
0000D0: 32 36 30 20 4E 20 3D 20 4E 20 2D 32 0D 0A 32 37 260 N = N -2..27
0000E0: 30 20 50 52 49 4E 54 20 22 54 48 45 20 4E 55 4D 0 PRINT "THE NUM
0000F0: 42 45 52 20 4F 46 20 4D 41 54 43 48 45 53 20 49 BER OF MATCHES I
000100: 53 20 4E 4F 57 22 20 4E 0D 0A 32 38 30 20 50 52 S NOW" N..280 PR
000110: 49 4E 54 0D 0A 32 39 30 20 50 52 49 4E 54 20 22 INT..290 PRINT "
000120: 59 4F 55 52 20 54 55 52 4E 20 2D 2D 20 59 4F 55 YOUR TURN -- YOU
000130: 20 4D 41 59 20 54 41 4B 45 20 31 2C 20 32 20 4F MAY TAKE 1, 2 O
000140: 52 20 33 20 4D 41 54 43 48 45 53 2E 22 0D 0A 33 R 3 MATCHES."..3
000150: 30 30 20 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 00 PRINT "HOW MA
000160: 4E 59 20 44 4F 20 59 4F 55 20 57 49 53 48 20 54 NY DO YOU WISH T
000170: 4F 20 52 45 4D 4F 56 45 22 2C 0D 0A 33 31 30 20 O REMOVE",..310
000180: 49 4E 50 55 54 20 4B 0D 0A 33 32 30 20 49 46 20 INPUT K..320 IF
000190: 4B 20 3E 20 33 20 54 48 45 4E 20 34 33 30 0D 0A K > 3 THEN 430..
0001A0: 33 33 30 20 49 46 20 4B 20 3C 3D 20 30 20 54 48 330 IF K <= 0 TH
0001B0: 45 4E 20 34 33 30 0D 0A 33 34 30 20 4E 20 3D 20 EN 430..340 N =
0001C0: 4E 20 2D 20 4B 0D 0A 33 35 30 20 50 52 49 4E 54 N - K..350 PRINT
0001D0: 20 22 54 48 45 52 45 20 41 52 45 20 4E 4F 57 22 "THERE ARE NOW"
0001E0: 3B 4E 3B 22 4D 41 54 43 48 45 53 20 52 45 4D 41 ;N;"MATCHES REMA
0001F0: 49 4E 49 4E 47 2E 22 0D 0A 33 35 31 20 49 46 20 INING."..351 IF
Size : 512 (Real : 512)
000000: 00 48 55 52 4B 4C 45 20 20 42 41 53 00 00 00 0B .HURKLE BAS....
000010: B0 B1 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000020: 00 46 4C 49 50 46 4C 4F 50 42 41 53 00 00 00 10 .FLIPFLOPBAS....
000030: B2 B3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 4E 20 3D 20 34 20 54 48 45 4E 20 33 38 31 0D 0A N = 4 THEN 381..
000010: 33 35 32 20 49 46 20 4E 20 3D 20 33 20 54 48 45 352 IF N = 3 THE
000020: 4E 20 33 38 33 0D 0A 33 35 33 20 49 46 20 4E 20 N 383..353 IF N
000030: 3D 20 32 20 54 48 45 4E 20 33 38 35 0D 0A 33 36 = 2 THEN 385..36
000040: 30 20 49 46 20 4E 20 3C 3D 20 31 20 54 48 45 4E 0 IF N <= 1 THEN
000050: 20 20 35 33 30 0D 0A 33 37 30 20 5A 20 3D 20 34 530..370 Z = 4
000060: 20 2D 20 4B 0D 0A 33 37 32 20 47 4F 54 4F 20 33 - K..372 GOTO 3
000070: 39 30 0D 0A 33 38 30 20 50 52 49 4E 54 0D 0A 33 90..380 PRINT..3
000080: 38 31 20 5A 20 3D 20 33 0D 0A 33 38 32 20 47 4F 81 Z = 3..382 GO
000090: 54 4F 20 33 39 30 0D 0A 33 38 33 20 5A 20 3D 20 TO 390..383 Z =
0000A0: 32 0D 0A 33 38 34 20 47 4F 54 4F 20 33 39 30 0D 2..384 GOTO 390.
0000B0: 0A 33 38 35 20 5A 20 3D 20 31 0D 0A 33 39 30 20 .385 Z = 1..390
0000C0: 50 52 49 4E 54 20 22 4D 59 20 54 55 52 4E 20 21 PRINT "MY TURN !
0000D0: 20 49 20 52 45 4D 4F 56 45 22 20 5A 20 22 4D 41 I REMOVE" Z "MA
0000E0: 54 43 48 45 53 22 0D 0A 34 30 30 20 4E 20 3D 20 TCHES"..400 N =
0000F0: 4E 20 2D 20 5A 0D 0A 34 31 30 20 49 46 20 4E 20 N - Z..410 IF N
000100: 3C 3D 20 31 20 54 48 45 4E 20 34 37 30 0D 0A 34 <= 1 THEN 470..4
000110: 32 30 20 47 4F 54 4F 20 32 37 30 0D 0A 34 33 30 20 GOTO 270..430
000120: 20 50 52 49 4E 54 20 22 56 45 52 59 20 46 55 4E PRINT "VERY FUN
000130: 4E 59 21 20 44 55 4D 4D 59 21 22 0D 0A 34 34 30 NY! DUMMY!"..440
000140: 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 PRINT "DO YOU W
000150: 41 4E 54 20 54 4F 20 50 4C 41 59 20 4F 52 20 47 ANT TO PLAY OR G
000160: 4F 4F 46 20 41 52 4F 55 4E 44 3F 22 0D 0A 34 35 OOF AROUND?"..45
000170: 30 20 50 52 49 4E 54 20 22 4E 4F 57 2C 20 48 4F 0 PRINT "NOW, HO
000180: 57 20 4D 41 4E 59 20 4D 41 54 43 48 45 53 20 44 W MANY MATCHES D
000190: 4F 20 59 4F 55 20 57 41 4E 54 22 2C 0D 0A 34 36 O YOU WANT",..46
0001A0: 30 20 47 4F 54 4F 20 33 31 30 0D 0A 34 37 30 20 0 GOTO 310..470
0001B0: 50 52 49 4E 54 0D 0A 34 38 30 20 50 52 49 4E 54 PRINT..480 PRINT
0001C0: 22 59 4F 55 20 50 4F 4F 52 20 42 4F 4F 42 21 20 "YOU POOR BOOB!
0001D0: 59 4F 55 20 54 4F 4F 4B 20 54 48 45 20 4C 41 53 YOU TOOK THE LAS
0001E0: 54 20 4D 41 54 43 48 21 20 49 20 47 4F 54 43 48 T MATCH! I GOTCH
0001F0: 41 21 21 22 0D 0A 34 39 30 20 50 52 49 4E 54 20 A!!"..490 PRINT
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 3B 1 PRINT TAB(32);
000010: 22 33 44 20 50 4C 4F 54 22 0D 0A 32 20 50 52 49 "3D PLOT"..2 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 JERSEY"..3 PRINT
000060: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 35 20 :PRINT:PRINT..5
000070: 44 45 46 20 46 4E 41 28 5A 29 3D 33 30 2A 45 58 DEF FNA(Z)=30*EX
000080: 50 28 2D 5A 2A 5A 2F 31 30 30 29 0D 0A 31 30 30 P(-Z*Z/100)..100
000090: 20 50 52 49 4E 54 0D 0A 31 31 30 20 46 4F 52 20 PRINT..110 FOR
0000A0: 58 3D 2D 33 30 20 54 4F 20 33 30 20 53 54 45 50 X=-30 TO 30 STEP
0000B0: 20 31 2E 35 0D 0A 31 32 30 20 4C 3D 30 0D 0A 31 1.5..120 L=0..1
0000C0: 33 30 20 59 31 3D 35 2A 49 4E 54 28 53 51 52 28 30 Y1=5*INT(SQR(
0000D0: 39 30 30 2D 58 2A 58 29 2F 35 29 0D 0A 31 34 30 900-X*X)/5)..140
0000E0: 20 46 4F 52 20 59 3D 59 31 20 54 4F 20 2D 59 31 FOR Y=Y1 TO -Y1
0000F0: 20 53 54 45 50 20 2D 35 0D 0A 31 35 30 20 5A 3D STEP -5..150 Z=
000100: 49 4E 54 28 32 35 2B 46 4E 41 28 53 51 52 28 58 INT(25+FNA(SQR(X
000110: 2A 58 2B 59 2A 59 29 29 2D 2E 37 2A 59 29 0D 0A *X+Y*Y))-.7*Y)..
000120: 31 36 30 20 49 46 20 5A 3C 3D 4C 20 54 48 45 4E 160 IF Z<=L THEN
000130: 20 31 39 30 0D 0A 31 37 30 20 4C 3D 5A 0D 0A 31 190..170 L=Z..1
000140: 38 30 20 50 52 49 4E 54 20 54 41 42 28 5A 29 3B 80 PRINT TAB(Z);
000150: 22 2A 22 3B 0D 0A 31 39 30 20 4E 45 58 54 20 59 "*";..190 NEXT Y
000160: 0D 0A 32 30 30 20 50 52 49 4E 54 0D 0A 32 31 30 ..200 PRINT..210
000170: 20 4E 45 58 54 20 58 0D 0A 33 30 30 20 45 4E 44 NEXT X..300 END
000180: 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 22 48 41 20 21 20 48 41 20 21 20 49 20 42 45 41 "HA ! HA ! I BEA
000010: 54 20 59 4F 55 20 21 21 21 22 0D 0A 35 30 30 20 T YOU !!!"..500
000020: 50 52 49 4E 54 0D 0A 35 31 30 20 50 52 49 4E 54 PRINT..510 PRINT
000030: 20 22 47 4F 4F 44 20 42 59 45 20 4C 4F 53 45 52 "GOOD BYE LOSER
000040: 21 22 0D 0A 35 32 30 20 47 4F 54 4F 20 35 36 30 !"..520 GOTO 560
000050: 0D 0A 35 33 30 20 50 52 49 4E 54 20 22 59 4F 55 ..530 PRINT "YOU
000060: 20 57 4F 4E 2C 20 46 4C 4F 50 50 59 20 45 41 52 WON, FLOPPY EAR
000070: 53 20 21 22 0D 0A 35 34 30 20 50 52 49 4E 54 20 S !"..540 PRINT
000080: 22 54 48 49 4E 4B 20 59 4F 55 27 52 45 20 50 52 "THINK YOU'RE PR
000090: 45 54 54 59 20 53 4D 41 52 54 20 21 22 0D 0A 35 ETTY SMART !"..5
0000A0: 35 30 20 50 52 49 4E 54 20 22 4C 45 54 53 20 50 50 PRINT "LETS P
0000B0: 4C 41 59 20 41 47 41 49 4E 20 41 4E 44 20 49 27 LAY AGAIN AND I'
0000C0: 4C 4C 20 42 4C 4F 57 20 59 4F 55 52 20 53 48 4F LL BLOW YOUR SHO
0000D0: 45 53 20 4F 46 46 20 21 21 22 0D 0A 35 36 30 20 ES OFF !!"..560
0000E0: 53 54 4F 50 0D 0A 35 37 30 20 45 4E 44 0D 0A 1A STOP..570 END...
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 42 55 54 20 59 4F 55 20 42 4C 45 57 20 59 4F 55 BUT YOU BLEW YOU
000010: 52 20 57 41 44 2E 22 0D 0A 31 30 31 35 20 50 52 R WAD."..1015 PR
000020: 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 32 30 20 INT:PRINT..1020
000030: 49 4E 50 55 54 22 54 52 59 20 41 47 41 49 4E 20 INPUT"TRY AGAIN
000040: 28 59 45 53 20 4F 52 20 4E 4F 29 22 3B 41 24 0D (YES OR NO)";A$.
000050: 0A 31 30 32 35 20 50 52 49 4E 54 3A 50 52 49 4E .1025 PRINT:PRIN
000060: 54 0D 0A 31 30 33 30 20 49 46 20 41 24 3D 22 59 T..1030 IF A$="Y
000070: 45 53 22 20 54 48 45 4E 20 31 31 30 0D 0A 31 30 ES" THEN 110..10
000080: 34 30 20 50 52 49 4E 54 22 4F 2E 4B 2E 2C 20 48 40 PRINT"O.K., H
000090: 4F 50 45 20 59 4F 55 20 48 41 44 20 46 55 4E 21 OPE YOU HAD FUN!
0000A0: 22 0D 0A 31 30 35 30 20 45 4E 44 0D 0A 1A E5 E5 "..1050 END.....
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 32 36 29 10 PRINT TAB(26)
000010: 3B 22 41 43 45 59 20 44 55 43 45 59 20 43 41 52 ;"ACEY DUCEY CAR
000020: 44 20 47 41 4D 45 22 0D 0A 32 30 20 50 52 49 4E D GAME"..20 PRIN
000030: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000040: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000050: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000060: 45 52 53 45 59 22 0D 0A 32 31 20 50 52 49 4E 54 ERSEY"..21 PRINT
000070: 0D 0A 32 32 20 50 52 49 4E 54 0D 0A 33 30 20 50 ..22 PRINT..30 P
000080: 52 49 4E 54 22 41 43 45 59 2D 44 55 43 45 59 20 RINT"ACEY-DUCEY
000090: 49 53 20 50 4C 41 59 45 44 20 49 4E 20 54 48 45 IS PLAYED IN THE
0000A0: 20 46 4F 4C 4C 4F 57 49 4E 47 20 4D 41 4E 4E 45 FOLLOWING MANNE
0000B0: 52 20 22 0D 0A 34 30 20 50 52 49 4E 54 22 54 48 R "..40 PRINT"TH
0000C0: 45 20 44 45 41 4C 45 52 20 28 43 4F 4D 50 55 54 E DEALER (COMPUT
0000D0: 45 52 29 20 44 45 41 4C 53 20 54 57 4F 20 43 41 ER) DEALS TWO CA
0000E0: 52 44 53 20 46 41 43 45 20 55 50 22 0D 0A 35 30 RDS FACE UP"..50
0000F0: 20 50 52 49 4E 54 22 59 4F 55 20 48 41 56 45 20 PRINT"YOU HAVE
000100: 41 4E 20 4F 50 54 49 4F 4E 20 54 4F 20 42 45 54 AN OPTION TO BET
000110: 20 4F 52 20 4E 4F 54 20 42 45 54 20 44 45 50 45 OR NOT BET DEPE
000120: 4E 44 49 4E 47 22 0D 0A 36 30 20 50 52 49 4E 54 NDING"..60 PRINT
000130: 22 4F 4E 20 57 48 45 54 48 45 52 20 4F 52 20 4E "ON WHETHER OR N
000140: 4F 54 20 59 4F 55 20 46 45 45 4C 20 54 48 45 20 OT YOU FEEL THE
000150: 43 41 52 44 20 57 49 4C 4C 20 48 41 56 45 22 0D CARD WILL HAVE".
000160: 0A 37 30 20 50 52 49 4E 54 22 41 20 56 41 4C 55 .70 PRINT"A VALU
000170: 45 20 42 45 54 57 45 45 4E 20 54 48 45 20 46 49 E BETWEEN THE FI
000180: 52 53 54 20 54 57 4F 2E 22 0D 0A 38 30 20 50 52 RST TWO."..80 PR
000190: 49 4E 54 22 49 46 20 59 4F 55 20 44 4F 20 4E 4F INT"IF YOU DO NO
0001A0: 54 20 57 41 4E 54 20 54 4F 20 42 45 54 2C 20 49 T WANT TO BET, I
0001B0: 4E 50 55 54 20 41 20 30 22 0D 0A 31 30 30 20 4E NPUT A 0"..100 N
0001C0: 3D 31 30 30 0D 0A 31 31 30 20 51 3D 31 30 30 0D =100..110 Q=100.
0001D0: 0A 31 32 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .120 PRINT "YOU
0001E0: 4E 4F 57 20 48 41 56 45 22 3B 51 3B 22 44 4F 4C NOW HAVE";Q;"DOL
0001F0: 4C 41 52 53 2E 22 0D 0A 31 33 30 20 50 52 49 4E LARS."..130 PRIN
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 54 0D 0A 31 34 30 20 47 4F 54 4F 20 32 36 30 0D T..140 GOTO 260.
000010: 0A 32 31 30 20 51 3D 51 2B 4D 0D 0A 32 32 30 20 .210 Q=Q+M..220
000020: 47 4F 54 4F 20 31 32 30 0D 0A 32 34 30 20 51 3D GOTO 120..240 Q=
000030: 51 2D 4D 0D 0A 32 35 30 20 47 4F 54 4F 20 31 32 Q-M..250 GOTO 12
000040: 30 0D 0A 32 36 30 20 50 52 49 4E 54 22 48 45 52 0..260 PRINT"HER
000050: 45 20 41 52 45 20 59 4F 55 52 20 4E 45 58 54 20 E ARE YOUR NEXT
000060: 54 57 4F 20 43 41 52 44 53 3A 20 22 0D 0A 32 37 TWO CARDS: "..27
000070: 30 20 41 3D 49 4E 54 28 31 34 2A 52 4E 44 28 31 0 A=INT(14*RND(1
000080: 29 29 2B 32 0D 0A 32 38 30 20 49 46 20 41 3C 32 ))+2..280 IF A<2
000090: 20 54 48 45 4E 20 32 37 30 0D 0A 32 39 30 20 49 THEN 270..290 I
0000A0: 46 20 41 3E 31 34 20 54 48 45 4E 20 32 37 30 0D F A>14 THEN 270.
0000B0: 0A 33 30 30 20 42 3D 49 4E 54 28 31 34 2A 52 4E .300 B=INT(14*RN
0000C0: 44 28 31 29 29 2B 32 0D 0A 33 31 30 20 49 46 20 D(1))+2..310 IF
0000D0: 42 3C 32 20 54 48 45 4E 20 33 30 30 0D 0A 33 32 B<2 THEN 300..32
0000E0: 30 20 49 46 20 42 3E 31 34 20 54 48 45 4E 20 33 0 IF B>14 THEN 3
0000F0: 30 30 0D 0A 33 33 30 20 49 46 20 41 3E 3D 42 20 00..330 IF A>=B
000100: 54 48 45 4E 20 32 37 30 0D 0A 33 35 30 20 49 46 THEN 270..350 IF
000110: 20 41 3C 31 31 20 54 48 45 4E 20 34 30 30 0D 0A A<11 THEN 400..
000120: 33 36 30 20 49 46 20 41 3D 31 31 20 54 48 45 4E 360 IF A=11 THEN
000130: 20 34 32 30 0D 0A 33 37 30 20 49 46 20 41 3D 31 420..370 IF A=1
000140: 32 20 54 48 45 4E 20 34 34 30 0D 0A 33 38 30 20 2 THEN 440..380
000150: 49 46 20 41 3D 31 33 20 54 48 45 4E 20 34 36 30 IF A=13 THEN 460
000160: 0D 0A 33 39 30 20 49 46 20 41 3D 31 34 20 54 48 ..390 IF A=14 TH
000170: 45 4E 20 34 38 30 0D 0A 34 30 30 20 50 52 49 4E EN 480..400 PRIN
000180: 54 20 41 0D 0A 34 31 30 20 47 4F 54 4F 20 35 30 T A..410 GOTO 50
000190: 30 0D 0A 34 32 30 20 50 52 49 4E 54 22 4A 41 43 0..420 PRINT"JAC
0001A0: 4B 22 0D 0A 34 33 30 20 47 4F 54 4F 20 35 30 30 K"..430 GOTO 500
0001B0: 0D 0A 34 34 30 20 50 52 49 4E 54 22 51 55 45 45 ..440 PRINT"QUEE
0001C0: 4E 22 0D 0A 34 35 30 20 47 4F 54 4F 20 35 30 30 N"..450 GOTO 500
0001D0: 0D 0A 34 36 30 20 50 52 49 4E 54 22 4B 49 4E 47 ..460 PRINT"KING
0001E0: 22 0D 0A 34 37 30 20 47 4F 54 4F 20 35 30 30 0D "..470 GOTO 500.
0001F0: 0A 34 38 30 20 50 52 49 4E 54 22 41 43 45 22 0D .480 PRINT"ACE".
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 32 38 29 10 PRINT TAB(28)
000010: 3B 22 41 4D 41 5A 49 4E 47 20 50 52 4F 47 52 41 ;"AMAZING PROGRA
000020: 4D 22 0D 0A 32 30 20 50 52 49 4E 54 20 54 41 42 M"..20 PRINT TAB
000030: 28 31 35 29 3B 22 43 52 45 41 54 49 56 45 20 43 (15);"CREATIVE C
000040: 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 52 49 53 OMPUTING MORRIS
000050: 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 TOWN, NEW JERSEY
000060: 22 0D 0A 33 30 20 50 52 49 4E 54 3A 50 52 49 4E "..30 PRINT:PRIN
000070: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 T:PRINT:PRINT..1
000080: 30 30 20 49 4E 50 55 54 20 22 57 48 41 54 20 41 00 INPUT "WHAT A
000090: 52 45 20 59 4F 55 52 20 57 49 44 54 48 20 41 4E RE YOUR WIDTH AN
0000A0: 44 20 4C 45 4E 47 54 48 22 3B 48 2C 56 0D 0A 31 D LENGTH";H,V..1
0000B0: 30 32 20 49 46 20 48 3C 3E 31 20 41 4E 44 20 56 02 IF H<>1 AND V
0000C0: 3C 3E 31 20 54 48 45 4E 20 31 31 30 0D 0A 31 30 <>1 THEN 110..10
0000D0: 34 20 50 52 49 4E 54 20 22 4D 45 41 4E 49 4E 47 4 PRINT "MEANING
0000E0: 4C 45 53 53 20 44 49 4D 45 4E 53 49 4F 4E 53 2E LESS DIMENSIONS.
0000F0: 20 20 54 52 59 20 41 47 41 49 4E 2E 22 3A 47 4F TRY AGAIN.":GO
000100: 54 4F 20 31 30 30 0D 0A 31 31 30 20 44 49 4D 20 TO 100..110 DIM
000110: 57 28 48 2C 56 29 2C 56 28 48 2C 56 29 0D 0A 31 W(H,V),V(H,V)..1
000120: 32 30 20 50 52 49 4E 54 0D 0A 31 33 30 20 50 52 20 PRINT..130 PR
000130: 49 4E 54 0D 0A 31 34 30 20 50 52 49 4E 54 0D 0A INT..140 PRINT..
000140: 31 35 30 20 50 52 49 4E 54 0D 0A 31 36 30 20 51 150 PRINT..160 Q
000150: 3D 30 3A 5A 3D 30 3A 58 3D 49 4E 54 28 52 4E 44 =0:Z=0:X=INT(RND
000160: 28 31 29 2A 48 2B 31 29 0D 0A 31 36 35 20 46 4F (1)*H+1)..165 FO
000170: 52 20 49 3D 31 20 54 4F 20 48 0D 0A 31 37 30 20 R I=1 TO H..170
000180: 49 46 20 49 3D 58 20 54 48 45 4E 20 31 37 33 0D IF I=X THEN 173.
000190: 0A 31 37 31 20 50 52 49 4E 54 20 22 2E 2D 2D 22 .171 PRINT ".--"
0001A0: 3B 3A 47 4F 54 4F 20 31 38 30 0D 0A 31 37 33 20 ;:GOTO 180..173
0001B0: 50 52 49 4E 54 20 22 2E 20 20 22 3B 0D 0A 31 38 PRINT ". ";..18
0001C0: 30 20 4E 45 58 54 20 49 0D 0A 31 39 30 20 50 52 0 NEXT I..190 PR
0001D0: 49 4E 54 20 22 2E 22 0D 0A 31 39 35 20 43 3D 31 INT "."..195 C=1
0001E0: 3A 57 28 58 2C 31 29 3D 43 3A 43 3D 43 2B 31 0D :W(X,1)=C:C=C+1.
0001F0: 0A 32 30 30 20 52 3D 58 3A 53 3D 31 3A 47 4F 54 .200 R=X:S=1:GOT
Size : 512 (Real : 512)
000000: 0A 35 30 30 20 49 46 20 42 3C 31 31 20 54 48 45 .500 IF B<11 THE
000010: 4E 20 35 35 30 0D 0A 35 31 30 20 49 46 20 42 3D N 550..510 IF B=
000020: 31 31 20 54 48 45 4E 20 35 37 30 0D 0A 35 32 30 11 THEN 570..520
000030: 20 49 46 20 42 3D 31 32 20 54 48 45 4E 20 35 39 IF B=12 THEN 59
000040: 30 0D 0A 35 33 30 20 49 46 20 42 3D 31 33 20 54 0..530 IF B=13 T
000050: 48 45 4E 20 36 31 30 0D 0A 35 34 30 20 49 46 20 HEN 610..540 IF
000060: 42 3D 31 34 20 54 48 45 4E 20 36 33 30 0D 0A 35 B=14 THEN 630..5
000070: 35 30 20 50 52 49 4E 54 20 42 0D 0A 35 36 30 20 50 PRINT B..560
000080: 47 4F 54 4F 20 36 35 30 0D 0A 35 37 30 20 50 52 GOTO 650..570 PR
000090: 49 4E 54 22 4A 41 43 4B 22 0D 0A 35 38 30 20 47 INT"JACK"..580 G
0000A0: 4F 54 4F 20 36 35 30 0D 0A 35 39 30 20 50 52 49 OTO 650..590 PRI
0000B0: 4E 54 22 51 55 45 45 4E 22 0D 0A 36 30 30 20 47 NT"QUEEN"..600 G
0000C0: 4F 54 4F 20 36 35 30 0D 0A 36 31 30 20 50 52 49 OTO 650..610 PRI
0000D0: 4E 54 22 4B 49 4E 47 22 0D 0A 36 32 30 20 47 4F NT"KING"..620 GO
0000E0: 54 4F 20 36 35 30 0D 0A 36 33 30 20 50 52 49 4E TO 650..630 PRIN
0000F0: 54 22 41 43 45 22 0D 0A 36 34 30 20 50 52 49 4E T"ACE"..640 PRIN
000100: 54 0D 0A 36 35 30 20 50 52 49 4E 54 0D 0A 36 36 T..650 PRINT..66
000110: 30 20 49 4E 50 55 54 22 57 48 41 54 20 49 53 20 0 INPUT"WHAT IS
000120: 59 4F 55 52 20 42 45 54 22 3B 4D 0D 0A 36 37 30 YOUR BET";M..670
000130: 20 49 46 20 4D 3C 3E 30 20 54 48 45 4E 20 36 38 IF M<>0 THEN 68
000140: 30 0D 0A 36 37 35 20 50 52 49 4E 54 22 43 48 49 0..675 PRINT"CHI
000150: 43 4B 45 4E 21 21 22 0D 0A 36 37 36 20 50 52 49 CKEN!!"..676 PRI
000160: 4E 54 0D 0A 36 37 37 20 47 4F 54 4F 20 32 36 30 NT..677 GOTO 260
000170: 0D 0A 36 38 30 20 49 46 20 4D 3C 3D 51 20 54 48 ..680 IF M<=Q TH
000180: 45 4E 20 37 33 30 0D 0A 36 39 30 20 50 52 49 4E EN 730..690 PRIN
000190: 54 22 53 4F 52 52 59 2C 20 4D 59 20 46 52 49 45 T"SORRY, MY FRIE
0001A0: 4E 44 2C 20 42 55 54 20 59 4F 55 20 42 45 54 20 ND, BUT YOU BET
0001B0: 54 4F 4F 20 4D 55 43 48 2E 22 0D 0A 37 30 30 20 TOO MUCH."..700
0001C0: 50 52 49 4E 54 22 59 4F 55 20 48 41 56 45 20 4F PRINT"YOU HAVE O
0001D0: 4E 4C 59 20 22 3B 51 3B 22 20 44 4F 4C 4C 41 52 NLY ";Q;" DOLLAR
0001E0: 53 20 54 4F 20 42 45 54 2E 22 0D 0A 37 31 30 20 S TO BET."..710
0001F0: 47 4F 54 4F 20 36 35 30 0D 0A 37 33 30 20 43 3D GOTO 650..730 C=
Size : 512 (Real : 512)
000000: 4F 20 32 36 30 0D 0A 32 31 30 20 49 46 20 52 3C O 260..210 IF R<
000010: 3E 48 20 54 48 45 4E 20 32 34 30 0D 0A 32 31 35 >H THEN 240..215
000020: 20 49 46 20 53 3C 3E 56 20 54 48 45 4E 20 32 33 IF S<>V THEN 23
000030: 30 0D 0A 32 32 30 20 52 3D 31 3A 53 3D 31 3A 47 0..220 R=1:S=1:G
000040: 4F 54 4F 20 32 35 30 0D 0A 32 33 30 20 52 3D 31 OTO 250..230 R=1
000050: 3A 53 3D 53 2B 31 3A 47 4F 54 4F 20 32 35 30 0D :S=S+1:GOTO 250.
000060: 0A 32 34 30 20 52 3D 52 2B 31 0D 0A 32 35 30 20 .240 R=R+1..250
000070: 49 46 20 57 28 52 2C 53 29 3D 30 20 54 48 45 4E IF W(R,S)=0 THEN
000080: 20 32 31 30 0D 0A 32 36 30 20 49 46 20 52 2D 31 210..260 IF R-1
000090: 3D 30 20 54 48 45 4E 20 35 33 30 0D 0A 32 36 35 =0 THEN 530..265
0000A0: 20 49 46 20 57 28 52 2D 31 2C 53 29 3C 3E 30 20 IF W(R-1,S)<>0
0000B0: 54 48 45 4E 20 35 33 30 0D 0A 32 37 30 20 49 46 THEN 530..270 IF
0000C0: 20 53 2D 31 3D 30 20 54 48 45 4E 20 33 39 30 0D S-1=0 THEN 390.
0000D0: 0A 32 38 30 20 49 46 20 57 28 52 2C 53 2D 31 29 .280 IF W(R,S-1)
0000E0: 3C 3E 30 20 54 48 45 4E 20 33 39 30 0D 0A 32 39 <>0 THEN 390..29
0000F0: 30 20 49 46 20 52 3D 48 20 54 48 45 4E 20 33 33 0 IF R=H THEN 33
000100: 30 0D 0A 33 30 30 20 49 46 20 57 28 52 2B 31 2C 0..300 IF W(R+1,
000110: 53 29 3C 3E 30 20 54 48 45 4E 20 33 33 30 0D 0A S)<>0 THEN 330..
000120: 33 31 30 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 310 X=INT(RND(1)
000130: 2A 33 2B 31 29 0D 0A 33 32 30 20 4F 4E 20 58 20 *3+1)..320 ON X
000140: 47 4F 54 4F 20 37 39 30 2C 38 32 30 2C 38 36 30 GOTO 790,820,860
000150: 0D 0A 33 33 30 20 49 46 20 53 3C 3E 56 20 54 48 ..330 IF S<>V TH
000160: 45 4E 20 33 34 30 0D 0A 33 33 34 20 49 46 20 5A EN 340..334 IF Z
000170: 3D 31 20 54 48 45 4E 20 33 37 30 0D 0A 33 33 38 =1 THEN 370..338
000180: 20 51 3D 31 3A 47 4F 54 4F 20 33 35 30 0D 0A 33 Q=1:GOTO 350..3
000190: 34 30 20 49 46 20 57 28 52 2C 53 2B 31 29 3C 3E 40 IF W(R,S+1)<>
0001A0: 30 20 54 48 45 4E 20 33 37 30 0D 0A 33 35 30 20 0 THEN 370..350
0001B0: 58 3D 49 4E 54 28 52 4E 44 28 31 29 2A 33 2B 31 X=INT(RND(1)*3+1
0001C0: 29 0D 0A 33 36 30 20 4F 4E 20 58 20 47 4F 54 4F )..360 ON X GOTO
0001D0: 20 37 39 30 2C 38 32 30 2C 39 31 30 0D 0A 33 37 790,820,910..37
0001E0: 30 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 2A 32 0 X=INT(RND(1)*2
0001F0: 2B 31 29 0D 0A 33 38 30 20 4F 4E 20 58 20 47 4F +1)..380 ON X GO
Size : 512 (Real : 512)
000000: 49 4E 54 28 31 34 2A 52 4E 44 28 31 29 29 2B 32 INT(14*RND(1))+2
000010: 0D 0A 37 34 30 20 49 46 20 43 3C 32 20 54 48 45 ..740 IF C<2 THE
000020: 4E 20 37 33 30 0D 0A 37 35 30 20 49 46 20 43 3E N 730..750 IF C>
000030: 31 34 20 54 48 45 4E 20 37 33 30 0D 0A 37 36 30 14 THEN 730..760
000040: 20 49 46 20 43 3C 31 31 20 54 48 45 4E 20 38 31 IF C<11 THEN 81
000050: 30 0D 0A 37 37 30 20 49 46 20 43 3D 31 31 20 54 0..770 IF C=11 T
000060: 48 45 4E 20 38 33 30 0D 0A 37 38 30 20 49 46 20 HEN 830..780 IF
000070: 43 3D 31 32 20 54 48 45 4E 20 38 35 30 0D 0A 37 C=12 THEN 850..7
000080: 39 30 20 49 46 20 43 3D 31 33 20 54 48 45 4E 20 90 IF C=13 THEN
000090: 38 37 30 0D 0A 38 30 30 20 49 46 20 43 3D 31 34 870..800 IF C=14
0000A0: 20 54 48 45 4E 20 38 39 30 0D 0A 38 31 30 20 50 THEN 890..810 P
0000B0: 52 49 4E 54 20 43 0D 0A 38 32 30 20 47 4F 54 4F RINT C..820 GOTO
0000C0: 20 39 31 30 0D 0A 38 33 30 20 50 52 49 4E 54 22 910..830 PRINT"
0000D0: 4A 41 43 4B 22 0D 0A 38 34 30 20 47 4F 54 4F 20 JACK"..840 GOTO
0000E0: 39 31 30 0D 0A 38 35 30 20 50 52 49 4E 54 22 51 910..850 PRINT"Q
0000F0: 55 45 45 4E 22 0D 0A 38 36 30 20 47 4F 54 4F 20 UEEN"..860 GOTO
000100: 39 31 30 0D 0A 38 37 30 20 50 52 49 4E 54 22 4B 910..870 PRINT"K
000110: 49 4E 47 22 0D 0A 38 38 30 20 47 4F 54 4F 20 39 ING"..880 GOTO 9
000120: 31 30 0D 0A 38 39 30 20 50 52 49 4E 54 20 22 41 10..890 PRINT "A
000130: 43 45 22 0D 0A 39 30 30 20 50 52 49 4E 54 0D 0A CE"..900 PRINT..
000140: 39 31 30 20 49 46 20 43 3E 41 20 54 48 45 4E 20 910 IF C>A THEN
000150: 39 33 30 0D 0A 39 32 30 20 47 4F 54 4F 20 39 37 930..920 GOTO 97
000160: 30 0D 0A 39 33 30 20 49 46 20 43 3E 3D 42 20 54 0..930 IF C>=B T
000170: 48 45 4E 20 39 37 30 0D 0A 39 35 30 20 50 52 49 HEN 970..950 PRI
000180: 4E 54 22 59 4F 55 20 57 49 4E 21 21 21 22 0D 0A NT"YOU WIN!!!"..
000190: 39 36 30 20 47 4F 54 4F 20 32 31 30 0D 0A 39 37 960 GOTO 210..97
0001A0: 30 20 50 52 49 4E 54 22 53 4F 52 52 59 2C 20 59 0 PRINT"SORRY, Y
0001B0: 4F 55 20 4C 4F 53 45 22 0D 0A 39 38 30 20 49 46 OU LOSE"..980 IF
0001C0: 20 4D 3C 51 20 54 48 45 4E 20 32 34 30 0D 0A 39 M<Q THEN 240..9
0001D0: 39 30 20 50 52 49 4E 54 0D 0A 31 30 30 30 20 50 90 PRINT..1000 P
0001E0: 52 49 4E 54 0D 0A 31 30 31 30 20 50 52 49 4E 54 RINT..1010 PRINT
0001F0: 22 53 4F 52 52 59 2C 20 46 52 49 45 4E 44 2C 20 "SORRY, FRIEND,
Size : 512 (Real : 512)
000000: 54 4F 20 37 39 30 2C 38 32 30 0D 0A 33 39 30 20 TO 790,820..390
000010: 49 46 20 52 3D 48 20 54 48 45 4E 20 34 37 30 0D IF R=H THEN 470.
000020: 0A 34 30 30 20 49 46 20 57 28 52 2B 31 2C 53 29 .400 IF W(R+1,S)
000030: 3C 3E 30 20 54 48 45 4E 20 34 37 30 0D 0A 34 30 <>0 THEN 470..40
000040: 35 20 49 46 20 53 3C 3E 56 20 54 48 45 4E 20 34 5 IF S<>V THEN 4
000050: 32 30 0D 0A 34 31 30 20 49 46 20 5A 3D 31 20 54 20..410 IF Z=1 T
000060: 48 45 4E 20 34 35 30 0D 0A 34 31 35 20 51 3D 31 HEN 450..415 Q=1
000070: 3A 47 4F 54 4F 20 34 33 30 0D 0A 34 32 30 20 49 :GOTO 430..420 I
000080: 46 20 57 28 52 2C 53 2B 31 29 3C 3E 30 20 54 48 F W(R,S+1)<>0 TH
000090: 45 4E 20 34 35 30 0D 0A 34 33 30 20 58 3D 49 4E EN 450..430 X=IN
0000A0: 54 28 52 4E 44 28 31 29 2A 33 2B 31 29 0D 0A 34 T(RND(1)*3+1)..4
0000B0: 34 30 20 4F 4E 20 58 20 47 4F 54 4F 20 37 39 30 40 ON X GOTO 790
0000C0: 2C 38 36 30 2C 39 31 30 0D 0A 34 35 30 20 58 3D ,860,910..450 X=
0000D0: 49 4E 54 28 52 4E 44 28 31 29 2A 32 2B 31 29 0D INT(RND(1)*2+1).
0000E0: 0A 34 36 30 20 4F 4E 20 58 20 47 4F 54 4F 20 37 .460 ON X GOTO 7
0000F0: 39 30 2C 38 36 30 0D 0A 34 37 30 20 49 46 20 53 90,860..470 IF S
000100: 3C 3E 56 20 54 48 45 4E 20 34 39 30 0D 0A 34 38 <>V THEN 490..48
000110: 30 20 49 46 20 5A 3D 31 20 54 48 45 4E 20 35 32 0 IF Z=1 THEN 52
000120: 30 0D 0A 34 38 35 20 51 3D 31 3A 47 4F 54 4F 20 0..485 Q=1:GOTO
000130: 35 30 30 0D 0A 34 39 30 20 49 46 20 57 28 52 2C 500..490 IF W(R,
000140: 53 2B 31 29 3C 3E 30 20 54 48 45 4E 20 35 32 30 S+1)<>0 THEN 520
000150: 0D 0A 35 30 30 20 58 3D 49 4E 54 28 52 4E 44 28 ..500 X=INT(RND(
000160: 31 29 2A 32 2B 31 29 0D 0A 35 31 30 20 4F 4E 20 1)*2+1)..510 ON
000170: 58 20 47 4F 54 4F 20 37 39 30 2C 39 31 30 0D 0A X GOTO 790,910..
000180: 35 32 30 20 47 4F 54 4F 20 37 39 30 0D 0A 35 33 520 GOTO 790..53
000190: 30 20 49 46 20 53 2D 31 3D 30 20 54 48 45 4E 20 0 IF S-1=0 THEN
0001A0: 36 37 30 0D 0A 35 34 30 20 49 46 20 57 28 52 2C 670..540 IF W(R,
0001B0: 53 2D 31 29 3C 3E 30 20 54 48 45 4E 20 36 37 30 S-1)<>0 THEN 670
0001C0: 0D 0A 35 34 35 20 49 46 20 52 3D 48 20 54 48 45 ..545 IF R=H THE
0001D0: 4E 20 36 31 30 0D 0A 35 34 37 20 49 46 20 57 28 N 610..547 IF W(
0001E0: 52 2B 31 2C 53 29 3C 3E 30 20 54 48 45 4E 20 36 R+1,S)<>0 THEN 6
0001F0: 31 30 0D 0A 35 35 30 20 49 46 20 53 3C 3E 56 20 10..550 IF S<>V
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 54 48 45 4E 20 35 36 30 0D 0A 35 35 32 20 49 46 THEN 560..552 IF
000010: 20 5A 3D 31 20 54 48 45 4E 20 35 39 30 0D 0A 35 Z=1 THEN 590..5
000020: 35 34 20 51 3D 31 3A 47 4F 54 4F 20 35 37 30 0D 54 Q=1:GOTO 570.
000030: 0A 35 36 30 20 49 46 20 57 28 52 2C 53 2B 31 29 .560 IF W(R,S+1)
000040: 3C 3E 30 20 54 48 45 4E 20 35 39 30 0D 0A 35 37 <>0 THEN 590..57
000050: 30 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 2A 33 0 X=INT(RND(1)*3
000060: 2B 31 29 0D 0A 35 38 30 20 4F 4E 20 58 20 47 4F +1)..580 ON X GO
000070: 54 4F 20 38 32 30 2C 38 36 30 2C 39 31 30 0D 0A TO 820,860,910..
000080: 35 39 30 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 590 X=INT(RND(1)
000090: 2A 32 2B 31 29 0D 0A 36 30 30 20 4F 4E 20 58 20 *2+1)..600 ON X
0000A0: 47 4F 54 4F 20 38 32 30 2C 38 36 30 0D 0A 36 31 GOTO 820,860..61
0000B0: 30 20 49 46 20 53 3C 3E 56 20 54 48 45 4E 20 36 0 IF S<>V THEN 6
0000C0: 33 30 0D 0A 36 32 30 20 49 46 20 5A 3D 31 20 54 30..620 IF Z=1 T
0000D0: 48 45 4E 20 36 36 30 0D 0A 36 32 35 20 51 3D 31 HEN 660..625 Q=1
0000E0: 3A 47 4F 54 4F 20 36 34 30 0D 0A 36 33 30 20 49 :GOTO 640..630 I
0000F0: 46 20 57 28 52 2C 53 2B 31 29 3C 3E 30 20 54 48 F W(R,S+1)<>0 TH
000100: 45 4E 20 36 36 30 0D 0A 36 34 30 20 58 3D 49 4E EN 660..640 X=IN
000110: 54 28 52 4E 44 28 31 29 2A 32 2B 31 29 0D 0A 36 T(RND(1)*2+1)..6
000120: 35 30 20 4F 4E 20 58 20 47 4F 54 4F 20 38 32 30 50 ON X GOTO 820
000130: 2C 39 31 30 0D 0A 36 36 30 20 47 4F 54 4F 20 38 ,910..660 GOTO 8
000140: 32 30 0D 0A 36 37 30 20 49 46 20 52 3D 48 20 54 20..670 IF R=H T
000150: 48 45 4E 20 37 34 30 0D 0A 36 38 30 20 49 46 20 HEN 740..680 IF
000160: 57 28 52 2B 31 2C 53 29 3C 3E 30 20 54 48 45 4E W(R+1,S)<>0 THEN
000170: 20 37 34 30 0D 0A 36 38 35 20 49 46 20 53 3C 3E 740..685 IF S<>
000180: 56 20 54 48 45 4E 20 37 30 30 0D 0A 36 39 30 20 V THEN 700..690
000190: 49 46 20 5A 3D 31 20 54 48 45 4E 20 37 33 30 0D IF Z=1 THEN 730.
0001A0: 0A 36 39 35 20 51 3D 31 3A 47 4F 54 4F 20 38 33 .695 Q=1:GOTO 83
0001B0: 30 0D 0A 37 30 30 20 49 46 20 57 28 52 2C 53 2B 0..700 IF W(R,S+
0001C0: 31 29 3C 3E 30 20 54 48 45 4E 20 37 33 30 0D 0A 1)<>0 THEN 730..
0001D0: 37 31 30 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 710 X=INT(RND(1)
0001E0: 2A 32 2B 31 29 0D 0A 37 32 30 20 4F 4E 20 58 20 *2+1)..720 ON X
0001F0: 47 4F 54 4F 20 38 36 30 2C 39 31 30 0D 0A 37 33 GOTO 860,910..73
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 10 PRINT TAB(32)
000010: 3B 22 41 4E 49 4D 41 4C 22 0D 0A 32 30 20 50 52 ;"ANIMAL"..20 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
000060: 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 NT: PRINT: PRINT
000070: 0D 0A 34 30 20 50 52 49 4E 54 20 22 50 4C 41 59 ..40 PRINT "PLAY
000080: 20 27 47 55 45 53 53 20 54 48 45 20 41 4E 49 4D 'GUESS THE ANIM
000090: 41 4C 27 22 0D 0A 34 35 20 50 52 49 4E 54 0D 0A AL'"..45 PRINT..
0000A0: 35 30 20 50 52 49 4E 54 20 22 54 48 49 4E 4B 20 50 PRINT "THINK
0000B0: 4F 46 20 41 4E 20 41 4E 49 4D 41 4C 20 41 4E 44 OF AN ANIMAL AND
0000C0: 20 54 48 45 20 43 4F 4D 50 55 54 45 52 20 57 49 THE COMPUTER WI
0000D0: 4C 4C 20 54 52 59 20 54 4F 20 47 55 45 53 53 20 LL TRY TO GUESS
0000E0: 49 54 2E 22 0D 0A 36 30 20 50 52 49 4E 54 0D 0A IT."..60 PRINT..
0000F0: 37 30 20 44 49 4D 20 41 24 28 32 30 30 29 0D 0A 70 DIM A$(200)..
000100: 38 30 20 46 4F 52 20 49 3D 30 20 54 4F 20 33 0D 80 FOR I=0 TO 3.
000110: 0A 39 30 20 52 45 41 44 20 41 24 28 49 29 0D 0A .90 READ A$(I)..
000120: 31 30 30 20 4E 45 58 54 20 49 0D 0A 31 31 30 20 100 NEXT I..110
000130: 4E 3D 56 41 4C 28 41 24 28 30 29 29 0D 0A 31 32 N=VAL(A$(0))..12
000140: 30 20 52 45 4D 20 20 20 20 20 20 20 20 20 20 4D 0 REM M
000150: 41 49 4E 20 43 4F 4E 54 52 4F 4C 20 53 45 43 54 AIN CONTROL SECT
000160: 49 4F 4E 0D 0A 31 33 30 20 49 4E 50 55 54 20 22 ION..130 INPUT "
000170: 41 52 45 20 59 4F 55 20 54 48 49 4E 4B 49 4E 47 ARE YOU THINKING
000180: 20 4F 46 20 41 4E 20 41 4E 49 4D 41 4C 22 3B 41 OF AN ANIMAL";A
000190: 24 0D 0A 31 34 30 20 49 46 20 41 24 3D 22 4C 49 $..140 IF A$="LI
0001A0: 53 54 22 20 54 48 45 4E 20 36 30 30 0D 0A 31 35 ST" THEN 600..15
0001B0: 30 20 49 46 20 4C 45 46 54 24 28 41 24 2C 31 29 0 IF LEFT$(A$,1)
0001C0: 3C 3E 22 59 22 20 54 48 45 4E 20 31 32 30 0D 0A <>"Y" THEN 120..
0001D0: 31 36 30 20 4B 3D 31 0D 0A 31 37 30 20 47 4F 53 160 K=1..170 GOS
0001E0: 55 42 20 33 39 30 0D 0A 31 38 30 20 49 46 20 4C UB 390..180 IF L
0001F0: 45 4E 28 41 24 28 4B 29 29 3D 30 20 54 48 45 4E EN(A$(K))=0 THEN
Size : 512 (Real : 512)
000000: 30 20 47 4F 54 4F 20 38 36 30 0D 0A 37 34 30 20 0 GOTO 860..740
000010: 49 46 20 53 3C 3E 56 20 54 48 45 4E 20 37 36 30 IF S<>V THEN 760
000020: 0D 0A 37 35 30 20 49 46 20 5A 3D 31 20 54 48 45 ..750 IF Z=1 THE
000030: 4E 20 37 38 30 0D 0A 37 35 35 20 51 3D 31 3A 47 N 780..755 Q=1:G
000040: 4F 54 4F 20 37 37 30 0D 0A 37 36 30 20 49 46 20 OTO 770..760 IF
000050: 57 28 52 2C 53 2B 31 29 3C 3E 30 20 54 48 45 4E W(R,S+1)<>0 THEN
000060: 20 37 38 30 0D 0A 37 37 30 20 47 4F 54 4F 20 39 780..770 GOTO 9
000070: 31 30 0D 0A 37 38 30 20 47 4F 54 4F 20 31 30 30 10..780 GOTO 100
000080: 30 0D 0A 37 39 30 20 57 28 52 2D 31 2C 53 29 3D 0..790 W(R-1,S)=
000090: 43 0D 0A 38 30 30 20 43 3D 43 2B 31 3A 56 28 52 C..800 C=C+1:V(R
0000A0: 2D 31 2C 53 29 3D 32 3A 52 3D 52 2D 31 0D 0A 38 -1,S)=2:R=R-1..8
0000B0: 31 30 20 49 46 20 43 3D 48 2A 56 2B 31 20 54 48 10 IF C=H*V+1 TH
0000C0: 45 4E 20 31 30 31 30 0D 0A 38 31 35 20 51 3D 30 EN 1010..815 Q=0
0000D0: 3A 47 4F 54 4F 20 32 36 30 0D 0A 38 32 30 20 57 :GOTO 260..820 W
0000E0: 28 52 2C 53 2D 31 29 3D 43 0D 0A 38 33 30 20 43 (R,S-1)=C..830 C
0000F0: 3D 43 2B 31 0D 0A 38 34 30 20 56 28 52 2C 53 2D =C+1..840 V(R,S-
000100: 31 29 3D 31 3A 53 3D 53 2D 31 3A 49 46 20 43 3D 1)=1:S=S-1:IF C=
000110: 48 2A 56 2B 31 20 54 48 45 4E 20 31 30 31 30 0D H*V+1 THEN 1010.
000120: 0A 38 35 30 20 51 3D 30 3A 47 4F 54 4F 20 32 36 .850 Q=0:GOTO 26
000130: 30 0D 0A 38 36 30 20 57 28 52 2B 31 2C 53 29 3D 0..860 W(R+1,S)=
000140: 43 0D 0A 38 37 30 20 43 3D 43 2B 31 3A 49 46 20 C..870 C=C+1:IF
000150: 56 28 52 2C 53 29 3D 30 20 54 48 45 4E 20 38 38 V(R,S)=0 THEN 88
000160: 30 0D 0A 38 37 35 20 56 28 52 2C 53 29 3D 33 3A 0..875 V(R,S)=3:
000170: 47 4F 54 4F 20 38 39 30 0D 0A 38 38 30 20 56 28 GOTO 890..880 V(
000180: 52 2C 53 29 3D 32 0D 0A 38 39 30 20 52 3D 52 2B R,S)=2..890 R=R+
000190: 31 0D 0A 39 30 30 20 49 46 20 43 3D 48 2A 56 2B 1..900 IF C=H*V+
0001A0: 31 20 54 48 45 4E 20 31 30 31 30 0D 0A 39 30 35 1 THEN 1010..905
0001B0: 20 47 4F 54 4F 20 35 33 30 0D 0A 39 31 30 20 49 GOTO 530..910 I
0001C0: 46 20 51 3D 31 20 54 48 45 4E 20 39 36 30 0D 0A F Q=1 THEN 960..
0001D0: 39 32 30 20 57 28 52 2C 53 2B 31 29 3D 43 3A 43 920 W(R,S+1)=C:C
0001E0: 3D 43 2B 31 3A 49 46 20 56 28 52 2C 53 29 3D 30 =C+1:IF V(R,S)=0
0001F0: 20 54 48 45 4E 20 39 34 30 0D 0A 39 33 30 20 56 THEN 940..930 V
Size : 512 (Real : 512)
000000: 20 39 39 39 0D 0A 31 39 30 20 49 46 20 4C 45 46 999..190 IF LEF
000010: 54 24 28 41 24 28 4B 29 2C 32 29 3D 22 5C 51 22 T$(A$(K),2)="\Q"
000020: 20 54 48 45 4E 20 31 37 30 0D 0A 32 30 30 20 50 THEN 170..200 P
000030: 52 49 4E 54 20 22 49 53 20 49 54 20 41 20 22 3B RINT "IS IT A ";
000040: 52 49 47 48 54 24 28 41 24 28 4B 29 2C 4C 45 4E RIGHT$(A$(K),LEN
000050: 28 41 24 28 4B 29 29 2D 32 29 3B 0D 0A 32 31 30 (A$(K))-2);..210
000060: 20 49 4E 50 55 54 20 41 24 0D 0A 32 32 30 20 41 INPUT A$..220 A
000070: 24 3D 4C 45 46 54 24 28 41 24 2C 31 29 0D 0A 32 $=LEFT$(A$,1)..2
000080: 33 30 20 49 46 20 4C 45 46 54 24 28 41 24 2C 31 30 IF LEFT$(A$,1
000090: 29 3D 22 59 22 20 54 48 45 4E 20 50 52 49 4E 54 )="Y" THEN PRINT
0000A0: 20 22 57 48 59 20 4E 4F 54 20 54 52 59 20 41 4E "WHY NOT TRY AN
0000B0: 4F 54 48 45 52 20 41 4E 49 4D 41 4C 3F 22 3A 20 OTHER ANIMAL?":
0000C0: 47 4F 54 4F 20 31 32 30 0D 0A 32 34 30 20 49 4E GOTO 120..240 IN
0000D0: 50 55 54 20 22 54 48 45 20 41 4E 49 4D 41 4C 20 PUT "THE ANIMAL
0000E0: 59 4F 55 20 57 45 52 45 20 54 48 49 4E 4B 49 4E YOU WERE THINKIN
0000F0: 47 20 4F 46 20 57 41 53 20 41 20 22 3B 56 24 0D G OF WAS A ";V$.
000100: 0A 32 35 30 20 50 52 49 4E 54 20 22 50 4C 45 41 .250 PRINT "PLEA
000110: 53 45 20 54 59 50 45 20 49 4E 20 41 20 51 55 45 SE TYPE IN A QUE
000120: 53 54 49 4F 4E 20 54 48 41 54 20 57 4F 55 4C 44 STION THAT WOULD
000130: 20 44 49 53 54 49 4E 47 55 49 53 48 20 41 22 0D DISTINGUISH A".
000140: 0A 32 36 30 20 50 52 49 4E 54 20 56 24 3B 22 20 .260 PRINT V$;"
000150: 46 52 4F 4D 20 41 20 22 3B 52 49 47 48 54 24 28 FROM A ";RIGHT$(
000160: 41 24 28 4B 29 2C 4C 45 4E 28 41 24 28 4B 29 29 A$(K),LEN(A$(K))
000170: 2D 32 29 0D 0A 32 37 30 20 49 4E 50 55 54 20 58 -2)..270 INPUT X
000180: 24 0D 0A 32 38 30 20 50 52 49 4E 54 20 22 46 4F $..280 PRINT "FO
000190: 52 20 41 20 22 3B 56 24 3B 22 20 54 48 45 20 41 R A ";V$;" THE A
0001A0: 4E 53 57 45 52 20 57 4F 55 4C 44 20 42 45 20 22 NSWER WOULD BE "
0001B0: 3B 0D 0A 32 39 30 20 49 4E 50 55 54 20 41 24 0D ;..290 INPUT A$.
0001C0: 0A 33 30 30 20 41 24 3D 4C 45 46 54 24 28 41 24 .300 A$=LEFT$(A$
0001D0: 2C 31 29 3A 20 49 46 20 41 24 3C 3E 22 59 22 20 ,1): IF A$<>"Y"
0001E0: 41 4E 44 20 41 24 3C 3E 22 4E 22 20 54 48 45 4E AND A$<>"N" THEN
0001F0: 20 32 38 30 0D 0A 33 31 30 20 49 46 20 41 24 3D 280..310 IF A$=
Size : 512 (Real : 512)
000000: 28 52 2C 53 29 3D 33 3A 47 4F 54 4F 20 39 35 30 (R,S)=3:GOTO 950
000010: 0D 0A 39 34 30 20 56 28 52 2C 53 29 3D 31 0D 0A ..940 V(R,S)=1..
000020: 39 35 30 20 53 3D 53 2B 31 3A 49 46 20 43 3D 48 950 S=S+1:IF C=H
000030: 2A 56 2B 31 20 54 48 45 4E 20 31 30 31 30 0D 0A *V+1 THEN 1010..
000040: 39 35 35 20 47 4F 54 4F 20 32 36 30 0D 0A 39 36 955 GOTO 260..96
000050: 30 20 5A 3D 31 0D 0A 39 37 30 20 49 46 20 56 28 0 Z=1..970 IF V(
000060: 52 2C 53 29 3D 30 20 54 48 45 4E 20 39 38 30 0D R,S)=0 THEN 980.
000070: 0A 39 37 35 20 56 28 52 2C 53 29 3D 33 3A 51 3D .975 V(R,S)=3:Q=
000080: 30 3A 47 4F 54 4F 20 31 30 30 30 0D 0A 39 38 30 0:GOTO 1000..980
000090: 20 56 28 52 2C 53 29 3D 31 3A 51 3D 30 3A 52 3D V(R,S)=1:Q=0:R=
0000A0: 31 3A 53 3D 31 3A 47 4F 54 4F 20 32 35 30 0D 0A 1:S=1:GOTO 250..
0000B0: 31 30 30 30 20 47 4F 54 4F 20 32 31 30 0D 0A 31 1000 GOTO 210..1
0000C0: 30 31 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 56 010 FOR J=1 TO V
0000D0: 0D 0A 31 30 31 31 20 50 52 49 4E 54 20 22 49 22 ..1011 PRINT "I"
0000E0: 3B 0D 0A 31 30 31 32 20 46 4F 52 20 49 3D 31 20 ;..1012 FOR I=1
0000F0: 54 4F 20 48 0D 0A 31 30 31 33 20 49 46 20 56 28 TO H..1013 IF V(
000100: 49 2C 4A 29 3C 32 20 54 48 45 4E 20 31 30 33 30 I,J)<2 THEN 1030
000110: 0D 0A 31 30 32 30 20 50 52 49 4E 54 20 22 20 20 ..1020 PRINT "
000120: 20 22 3B 0D 0A 31 30 32 31 20 47 4F 54 4F 20 31 ";..1021 GOTO 1
000130: 30 34 30 0D 0A 31 30 33 30 20 50 52 49 4E 54 20 040..1030 PRINT
000140: 22 20 20 49 22 3B 0D 0A 31 30 34 30 20 4E 45 58 " I";..1040 NEX
000150: 54 20 49 0D 0A 31 30 34 31 20 50 52 49 4E 54 0D T I..1041 PRINT.
000160: 0A 31 30 34 33 20 46 4F 52 20 49 3D 31 20 54 4F .1043 FOR I=1 TO
000170: 20 48 0D 0A 31 30 34 35 20 49 46 20 56 28 49 2C H..1045 IF V(I,
000180: 4A 29 3D 30 20 54 48 45 4E 20 31 30 36 30 0D 0A J)=0 THEN 1060..
000190: 31 30 35 30 20 49 46 20 56 28 49 2C 4A 29 3D 32 1050 IF V(I,J)=2
0001A0: 20 54 48 45 4E 20 31 30 36 30 0D 0A 31 30 35 31 THEN 1060..1051
0001B0: 20 50 52 49 4E 54 20 22 3A 20 20 22 3B 0D 0A 31 PRINT ": ";..1
0001C0: 30 35 32 20 47 4F 54 4F 20 31 30 37 30 0D 0A 31 052 GOTO 1070..1
0001D0: 30 36 30 20 50 52 49 4E 54 20 22 3A 2D 2D 22 3B 060 PRINT ":--";
0001E0: 0D 0A 31 30 37 30 20 4E 45 58 54 20 49 0D 0A 31 ..1070 NEXT I..1
0001F0: 30 37 31 20 50 52 49 4E 54 20 22 2E 22 0D 0A 31 071 PRINT "."..1
Size : 512 (Real : 512)
000000: 22 59 22 20 54 48 45 4E 20 42 24 3D 22 4E 22 0D "Y" THEN B$="N".
000010: 0A 33 32 30 20 49 46 20 41 24 3D 22 4E 22 20 54 .320 IF A$="N" T
000020: 48 45 4E 20 42 24 3D 22 59 22 0D 0A 33 33 30 20 HEN B$="Y"..330
000030: 5A 31 3D 56 41 4C 28 41 24 28 30 29 29 0D 0A 33 Z1=VAL(A$(0))..3
000040: 34 30 20 41 24 28 30 29 3D 53 54 52 24 28 5A 31 40 A$(0)=STR$(Z1
000050: 2B 32 29 0D 0A 33 35 30 20 41 24 28 5A 31 29 3D +2)..350 A$(Z1)=
000060: 41 24 28 4B 29 0D 0A 33 36 30 20 41 24 28 5A 31 A$(K)..360 A$(Z1
000070: 2B 31 29 3D 22 5C 41 22 2B 56 24 0D 0A 33 37 30 +1)="\A"+V$..370
000080: 20 41 24 28 4B 29 3D 22 5C 51 22 2B 58 24 2B 22 A$(K)="\Q"+X$+"
000090: 5C 22 2B 41 24 2B 53 54 52 24 28 5A 31 2B 31 29 \"+A$+STR$(Z1+1)
0000A0: 2B 22 5C 22 2B 42 24 2B 53 54 52 24 28 5A 31 29 +"\"+B$+STR$(Z1)
0000B0: 2B 22 5C 22 0D 0A 33 38 30 20 47 4F 54 4F 20 31 +"\"..380 GOTO 1
0000C0: 32 30 0D 0A 33 39 30 20 52 45 4D 20 20 20 20 20 20..390 REM
0000D0: 53 55 42 52 4F 55 54 49 4E 45 20 54 4F 20 50 52 SUBROUTINE TO PR
0000E0: 49 4E 54 20 51 55 45 53 54 49 4F 4E 53 0D 0A 34 INT QUESTIONS..4
0000F0: 30 30 20 51 24 3D 41 24 28 4B 29 0D 0A 34 31 30 00 Q$=A$(K)..410
000100: 20 46 4F 52 20 5A 3D 33 20 54 4F 20 4C 45 4E 28 FOR Z=3 TO LEN(
000110: 51 24 29 0D 0A 34 31 35 20 49 46 20 4D 49 44 24 Q$)..415 IF MID$
000120: 28 51 24 2C 5A 2C 31 29 3C 3E 22 5C 22 20 54 48 (Q$,Z,1)<>"\" TH
000130: 45 4E 20 50 52 49 4E 54 20 4D 49 44 24 28 51 24 EN PRINT MID$(Q$
000140: 2C 5A 2C 31 29 3B 3A 20 4E 45 58 54 20 5A 0D 0A ,Z,1);: NEXT Z..
000150: 34 32 30 20 49 4E 50 55 54 20 43 24 0D 0A 34 33 420 INPUT C$..43
000160: 30 20 43 24 3D 4C 45 46 54 24 28 43 24 2C 31 29 0 C$=LEFT$(C$,1)
000170: 0D 0A 34 34 30 20 49 46 20 43 24 3C 3E 22 59 22 ..440 IF C$<>"Y"
000180: 20 41 4E 44 20 43 24 3C 3E 22 4E 22 20 54 48 45 AND C$<>"N" THE
000190: 4E 20 34 31 30 0D 0A 34 35 30 20 54 24 3D 22 5C N 410..450 T$="\
0001A0: 22 2B 43 24 0D 0A 34 35 35 20 46 4F 52 20 58 3D "+C$..455 FOR X=
0001B0: 33 20 54 4F 20 4C 45 4E 28 51 24 29 2D 31 0D 0A 3 TO LEN(Q$)-1..
0001C0: 34 36 30 20 49 46 20 4D 49 44 24 28 51 24 2C 58 460 IF MID$(Q$,X
0001D0: 2C 32 29 3D 54 24 20 54 48 45 4E 20 34 38 30 0D ,2)=T$ THEN 480.
0001E0: 0A 34 37 30 20 4E 45 58 54 20 58 0D 0A 34 37 35 .470 NEXT X..475
0001F0: 20 53 54 4F 50 0D 0A 34 38 30 20 46 4F 52 20 59 STOP..480 FOR Y
Size : 512 (Real : 512)
000000: 30 37 32 20 4E 45 58 54 20 4A 0D 0A 31 30 37 33 072 NEXT J..1073
000010: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 3D 58 2B 31 20 54 4F 20 4C 45 4E 28 51 24 29 0D =X+1 TO LEN(Q$).
000010: 0A 34 39 30 20 49 46 20 4D 49 44 24 28 51 24 2C .490 IF MID$(Q$,
000020: 59 2C 31 29 3D 22 5C 22 20 54 48 45 4E 20 35 31 Y,1)="\" THEN 51
000030: 30 0D 0A 35 30 30 20 4E 45 58 54 20 59 0D 0A 35 0..500 NEXT Y..5
000040: 30 35 20 53 54 4F 50 0D 0A 35 31 30 20 4B 3D 56 05 STOP..510 K=V
000050: 41 4C 28 4D 49 44 24 28 51 24 2C 58 2B 32 2C 59 AL(MID$(Q$,X+2,Y
000060: 2D 58 2D 32 29 29 0D 0A 35 32 30 20 52 45 54 55 -X-2))..520 RETU
000070: 52 4E 0D 0A 35 33 30 20 44 41 54 41 20 22 34 22 RN..530 DATA "4"
000080: 2C 22 5C 51 44 4F 45 53 20 49 54 20 53 57 49 4D ,"\QDOES IT SWIM
000090: 5C 59 32 5C 4E 33 5C 22 2C 22 5C 41 46 49 53 48 \Y2\N3\","\AFISH
0000A0: 22 2C 22 5C 41 42 49 52 44 22 0D 0A 36 30 30 20 ","\ABIRD"..600
0000B0: 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 41 4E 49 PRINT:PRINT "ANI
0000C0: 4D 41 4C 53 20 49 20 41 4C 52 45 41 44 59 20 4B MALS I ALREADY K
0000D0: 4E 4F 57 20 41 52 45 3A 22 0D 0A 36 30 35 20 58 NOW ARE:"..605 X
0000E0: 3D 30 0D 0A 36 31 30 20 46 4F 52 20 49 3D 31 20 =0..610 FOR I=1
0000F0: 54 4F 20 32 30 30 0D 0A 36 32 30 20 49 46 20 4C TO 200..620 IF L
000100: 45 46 54 24 28 41 24 28 49 29 2C 32 29 3C 3E 22 EFT$(A$(I),2)<>"
000110: 5C 41 22 20 54 48 45 4E 20 36 35 30 0D 0A 36 32 \A" THEN 650..62
000120: 34 20 50 52 49 4E 54 20 54 41 42 28 31 35 2A 58 4 PRINT TAB(15*X
000130: 29 3B 0D 0A 36 33 30 20 46 4F 52 20 5A 3D 33 20 );..630 FOR Z=3
000140: 54 4F 20 4C 45 4E 28 41 24 28 49 29 29 0D 0A 36 TO LEN(A$(I))..6
000150: 34 30 20 49 46 20 4D 49 44 24 28 41 24 28 49 29 40 IF MID$(A$(I)
000160: 2C 5A 2C 31 29 3C 3E 22 5C 22 20 54 48 45 4E 20 ,Z,1)<>"\" THEN
000170: 50 52 49 4E 54 20 4D 49 44 24 28 41 24 28 49 29 PRINT MID$(A$(I)
000180: 2C 5A 2C 31 29 3B 3A 20 4E 45 58 54 20 5A 0D 0A ,Z,1);: NEXT Z..
000190: 36 34 35 20 58 3D 58 2B 31 3A 20 49 46 20 58 3D 645 X=X+1: IF X=
0001A0: 34 20 54 48 45 4E 20 58 3D 30 3A 20 50 52 49 4E 4 THEN X=0: PRIN
0001B0: 54 0D 0A 36 35 30 20 4E 45 58 54 20 49 0D 0A 36 T..650 NEXT I..6
0001C0: 36 30 20 50 52 49 4E 54 0D 0A 36 37 30 20 50 52 60 PRINT..670 PR
0001D0: 49 4E 54 0D 0A 36 38 30 20 47 4F 54 4F 20 31 32 INT..680 GOTO 12
0001E0: 30 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 0..999 END......
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 49 3D 30 20 54 4F 20 4E 2D 31 3A 50 52 49 4E 54 I=0 TO N-1:PRINT
000010: 20 42 28 49 29 3A 4E 45 58 54 20 49 0D 0A 39 39 B(I):NEXT I..99
000020: 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 9 END...........
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 35 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 3B 5 PRINT TAB(34);
000010: 22 41 57 41 52 49 22 0D 0A 37 20 50 52 49 4E 54 "AWARI"..7 PRINT
000020: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
000030: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
000040: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
000050: 52 53 45 59 22 0D 0A 31 30 20 44 41 54 41 20 30 RSEY"..10 DATA 0
000060: 0D 0A 31 35 20 44 49 4D 20 42 28 31 33 29 2C 47 ..15 DIM B(13),G
000070: 28 31 33 29 2C 46 28 35 30 29 3A 52 45 41 44 20 (13),F(50):READ
000080: 4E 0D 0A 32 30 20 50 52 49 4E 54 3A 50 52 49 4E N..20 PRINT:PRIN
000090: 54 3A 45 3D 30 0D 0A 32 35 20 46 4F 52 20 49 3D T:E=0..25 FOR I=
0000A0: 30 20 54 4F 20 31 32 3A 42 28 49 29 3D 33 3A 4E 0 TO 12:B(I)=3:N
0000B0: 45 58 54 20 49 0D 0A 33 30 20 43 3D 30 3A 46 28 EXT I..30 C=0:F(
0000C0: 4E 29 3D 30 3A 42 28 31 33 29 3D 30 3A 42 28 36 N)=0:B(13)=0:B(6
0000D0: 29 3D 30 0D 0A 33 35 20 47 4F 53 55 42 20 35 30 )=0..35 GOSUB 50
0000E0: 30 0D 0A 34 30 20 50 52 49 4E 54 20 22 59 4F 55 0..40 PRINT "YOU
0000F0: 52 20 4D 4F 56 45 22 3B 3A 47 4F 53 55 42 20 31 R MOVE";:GOSUB 1
000100: 31 30 0D 0A 34 35 20 49 46 20 45 3D 30 20 54 48 10..45 IF E=0 TH
000110: 45 4E 20 38 30 0D 0A 35 30 20 49 46 20 4D 3D 48 EN 80..50 IF M=H
000120: 20 54 48 45 4E 20 47 4F 53 55 42 20 31 30 30 0D THEN GOSUB 100.
000130: 0A 35 35 20 49 46 20 45 3D 30 20 54 48 45 4E 20 .55 IF E=0 THEN
000140: 38 30 0D 0A 36 30 20 50 52 49 4E 54 20 22 4D 59 80..60 PRINT "MY
000150: 20 4D 4F 56 45 20 49 53 20 22 3B 3A 47 4F 53 55 MOVE IS ";:GOSU
000160: 42 20 38 30 30 0D 0A 36 35 20 49 46 20 45 3D 30 B 800..65 IF E=0
000170: 20 54 48 45 4E 20 38 30 0D 0A 37 30 20 49 46 20 THEN 80..70 IF
000180: 4D 3D 48 20 54 48 45 4E 20 50 52 49 4E 54 20 22 M=H THEN PRINT "
000190: 2C 22 3B 3A 47 4F 53 55 42 20 38 30 30 0D 0A 37 ,";:GOSUB 800..7
0001A0: 35 20 49 46 20 45 3E 30 20 54 48 45 4E 20 33 35 5 IF E>0 THEN 35
0001B0: 0D 0A 38 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 ..80 PRINT:PRINT
0001C0: 22 47 41 4D 45 20 4F 56 45 52 22 0D 0A 38 35 20 "GAME OVER"..85
0001D0: 44 3D 42 28 36 29 2D 42 28 31 33 29 3A 49 46 20 D=B(6)-B(13):IF
0001E0: 44 3C 30 20 54 48 45 4E 20 50 52 49 4E 54 20 22 D<0 THEN PRINT "
0001F0: 49 20 57 49 4E 20 42 59 22 3B 2D 44 3B 22 50 4F I WIN BY";-D;"PO
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 49 4E 54 53 22 3A 47 4F 54 4F 20 32 30 0D 0A 39 INTS":GOTO 20..9
000010: 30 20 4E 3D 4E 2B 31 3A 49 46 20 44 3D 30 20 54 0 N=N+1:IF D=0 T
000020: 48 45 4E 20 50 52 49 4E 54 20 22 44 52 41 57 4E HEN PRINT "DRAWN
000030: 20 47 41 4D 45 22 3A 47 4F 54 4F 20 32 30 0D 0A GAME":GOTO 20..
000040: 39 35 20 50 52 49 4E 54 20 22 59 4F 55 20 57 49 95 PRINT "YOU WI
000050: 4E 20 42 59 22 3B 44 3B 22 50 4F 49 4E 54 53 22 N BY";D;"POINTS"
000060: 3A 47 4F 54 4F 20 32 30 0D 0A 31 30 30 20 50 52 :GOTO 20..100 PR
000070: 49 4E 54 20 22 41 47 41 49 4E 22 3B 0D 0A 31 31 INT "AGAIN";..11
000080: 30 20 49 4E 50 55 54 20 4D 3A 49 46 20 4D 3C 37 0 INPUT M:IF M<7
000090: 20 54 48 45 4E 20 49 46 20 4D 3E 30 20 54 48 45 THEN IF M>0 THE
0000A0: 4E 20 4D 3D 4D 2D 31 3A 47 4F 54 4F 20 31 33 30 N M=M-1:GOTO 130
0000B0: 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 49 4C 4C ..120 PRINT "ILL
0000C0: 45 47 41 4C 20 4D 4F 56 45 22 3A 47 4F 54 4F 20 EGAL MOVE":GOTO
0000D0: 31 30 30 0D 0A 31 33 30 20 49 46 20 42 28 4D 29 100..130 IF B(M)
0000E0: 3D 30 20 54 48 45 4E 20 31 32 30 0D 0A 31 34 30 =0 THEN 120..140
0000F0: 20 48 3D 36 3A 47 4F 53 55 42 20 32 30 30 0D 0A H=6:GOSUB 200..
000100: 31 35 30 20 47 4F 54 4F 20 35 30 30 0D 0A 32 30 150 GOTO 500..20
000110: 30 20 4B 3D 4D 3A 47 4F 53 55 42 20 36 30 30 0D 0 K=M:GOSUB 600.
000120: 0A 32 30 35 20 45 3D 30 3A 49 46 20 4B 3E 36 20 .205 E=0:IF K>6
000130: 54 48 45 4E 20 4B 3D 4B 2D 37 0D 0A 32 31 30 20 THEN K=K-7..210
000140: 43 3D 43 2B 31 3A 49 46 20 43 3C 39 20 54 48 45 C=C+1:IF C<9 THE
000150: 4E 20 46 28 4E 29 3D 46 28 4E 29 2A 36 2B 4B 0D N F(N)=F(N)*6+K.
000160: 0A 32 31 35 20 46 4F 52 20 49 3D 30 20 54 4F 20 .215 FOR I=0 TO
000170: 35 3A 49 46 20 42 28 49 29 3C 3E 30 20 54 48 45 5:IF B(I)<>0 THE
000180: 4E 20 32 33 30 0D 0A 32 32 30 20 4E 45 58 54 20 N 230..220 NEXT
000190: 49 0D 0A 32 32 35 20 52 45 54 55 52 4E 0D 0A 32 I..225 RETURN..2
0001A0: 33 30 20 46 4F 52 20 49 3D 37 20 54 4F 20 31 32 30 FOR I=7 TO 12
0001B0: 3A 49 46 20 42 28 49 29 3C 3E 30 20 54 48 45 4E :IF B(I)<>0 THEN
0001C0: 20 45 3D 31 3A 52 45 54 55 52 4E 0D 0A 32 33 35 E=1:RETURN..235
0001D0: 20 47 4F 54 4F 20 32 32 30 0D 0A 35 30 30 20 50 GOTO 220..500 P
0001E0: 52 49 4E 54 3A 50 52 49 4E 54 22 20 20 20 22 3B RINT:PRINT" ";
0001F0: 0D 0A 35 30 35 20 46 4F 52 20 49 3D 31 32 20 54 ..505 FOR I=12 T
Size : 512 (Real : 512)
000000: 35 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 5 PRINT TAB(33);
000010: 22 42 41 47 45 4C 53 22 0D 0A 31 30 20 50 52 49 "BAGELS"..10 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 3A 50 52 49 4E 54 3A 50 52 JERSEY":PRINT:PR
000060: 49 4E 54 0D 0A 31 35 20 52 45 4D 20 2A 2A 2A 20 INT..15 REM ***
000070: 42 41 47 4C 45 53 20 4E 55 4D 42 45 52 20 47 55 BAGLES NUMBER GU
000080: 45 53 53 49 4E 47 20 47 41 4D 45 0D 0A 32 30 20 ESSING GAME..20
000090: 52 45 4D 20 2A 2A 2A 20 4F 52 49 47 49 4E 41 4C REM *** ORIGINAL
0000A0: 20 53 4F 55 52 43 45 20 55 4E 4B 4E 4F 57 4E 20 SOURCE UNKNOWN
0000B0: 42 55 54 20 53 55 53 50 45 43 54 45 44 20 54 4F BUT SUSPECTED TO
0000C0: 20 42 45 0D 0A 32 35 20 52 45 4D 20 2A 2A 2A 20 BE..25 REM ***
0000D0: 4C 41 57 52 45 4E 43 45 20 48 41 4C 4C 20 4F 46 LAWRENCE HALL OF
0000E0: 20 53 43 49 45 4E 43 45 2C 20 55 2E 43 2E 20 42 SCIENCE, U.C. B
0000F0: 45 52 4B 45 4C 59 0D 0A 33 30 20 44 49 4D 20 41 ERKELY..30 DIM A
000100: 31 28 36 29 2C 41 28 33 29 2C 42 28 33 29 0D 0A 1(6),A(3),B(3)..
000110: 34 30 20 59 3D 30 3A 54 3D 32 35 35 0D 0A 35 30 40 Y=0:T=255..50
000120: 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 PRINT:PRINT:PRI
000130: 4E 54 0D 0A 37 30 20 49 4E 50 55 54 20 22 57 4F NT..70 INPUT "WO
000140: 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 54 48 45 ULD YOU LIKE THE
000150: 20 52 55 4C 45 53 20 28 59 45 53 20 4F 52 20 4E RULES (YES OR N
000160: 4F 29 22 3B 41 24 0D 0A 39 30 20 49 46 20 4C 45 O)";A$..90 IF LE
000170: 46 54 24 28 41 24 2C 31 29 3D 22 4E 22 20 54 48 FT$(A$,1)="N" TH
000180: 45 4E 20 31 35 30 0D 0A 31 30 30 20 50 52 49 4E EN 150..100 PRIN
000190: 54 3A 50 52 49 4E 54 20 22 49 20 41 4D 20 54 48 T:PRINT "I AM TH
0001A0: 49 4E 4B 49 4E 47 20 4F 46 20 41 20 54 48 52 45 INKING OF A THRE
0001B0: 45 2D 44 49 47 49 54 20 4E 55 4D 42 45 52 2E 20 E-DIGIT NUMBER.
0001C0: 20 54 52 59 20 54 4F 20 47 55 45 53 53 22 0D 0A TRY TO GUESS"..
0001D0: 31 31 30 20 50 52 49 4E 54 20 22 4D 59 20 4E 55 110 PRINT "MY NU
0001E0: 4D 42 45 52 20 41 4E 44 20 49 20 57 49 4C 4C 20 MBER AND I WILL
0001F0: 47 49 56 45 20 59 4F 55 20 43 4C 55 45 53 20 41 GIVE YOU CLUES A
Size : 512 (Real : 512)
000000: 4F 20 37 20 53 54 45 50 20 2D 31 3A 47 4F 53 55 O 7 STEP -1:GOSU
000010: 42 20 35 38 30 0D 0A 35 31 30 20 4E 45 58 54 20 B 580..510 NEXT
000020: 49 0D 0A 35 31 35 20 50 52 49 4E 54 3A 49 3D 31 I..515 PRINT:I=1
000030: 33 3A 47 4F 53 55 42 20 35 38 30 0D 0A 35 32 30 3:GOSUB 580..520
000040: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 "
000060: 3B 3A 50 52 49 4E 54 20 42 28 36 29 3A 50 52 49 ;:PRINT B(6):PRI
000070: 4E 54 20 22 20 20 20 22 3B 0D 0A 35 32 35 20 46 NT " ";..525 F
000080: 4F 52 20 49 3D 30 20 54 4F 20 35 3A 47 4F 53 55 OR I=0 TO 5:GOSU
000090: 42 20 35 38 30 0D 0A 35 33 30 20 4E 45 58 54 20 B 580..530 NEXT
0000A0: 49 0D 0A 35 33 35 20 50 52 49 4E 54 3A 50 52 49 I..535 PRINT:PRI
0000B0: 4E 54 3A 52 45 54 55 52 4E 0D 0A 35 38 30 20 49 NT:RETURN..580 I
0000C0: 46 20 42 28 49 29 3C 31 30 20 54 48 45 4E 20 50 F B(I)<10 THEN P
0000D0: 52 49 4E 54 20 22 20 22 3B 0D 0A 35 38 35 20 50 RINT " ";..585 P
0000E0: 52 49 4E 54 20 42 28 49 29 3B 3A 52 45 54 55 52 RINT B(I);:RETUR
0000F0: 4E 0D 0A 36 30 30 20 50 3D 42 28 4D 29 3A 42 28 N..600 P=B(M):B(
000100: 4D 29 3D 30 0D 0A 36 30 35 20 46 4F 52 20 50 3D M)=0..605 FOR P=
000110: 50 20 54 4F 20 31 20 53 54 45 50 20 2D 31 3A 4D P TO 1 STEP -1:M
000120: 3D 4D 2B 31 3A 49 46 20 4D 3E 31 33 20 54 48 45 =M+1:IF M>13 THE
000130: 4E 20 4D 3D 4D 2D 31 34 0D 0A 36 31 30 20 42 28 N M=M-14..610 B(
000140: 4D 29 3D 42 28 4D 29 2B 31 3A 4E 45 58 54 20 50 M)=B(M)+1:NEXT P
000150: 0D 0A 36 31 35 20 49 46 20 42 28 4D 29 3D 31 20 ..615 IF B(M)=1
000160: 54 48 45 4E 20 49 46 20 4D 3C 3E 36 20 54 48 45 THEN IF M<>6 THE
000170: 4E 20 49 46 20 4D 3C 3E 31 33 20 54 48 45 4E 20 N IF M<>13 THEN
000180: 49 46 20 42 28 31 32 2D 4D 29 3C 3E 30 20 54 48 IF B(12-M)<>0 TH
000190: 45 4E 20 36 32 35 0D 0A 36 32 30 20 52 45 54 55 EN 625..620 RETU
0001A0: 52 4E 0D 0A 36 32 35 20 42 28 48 29 3D 42 28 48 RN..625 B(H)=B(H
0001B0: 29 2B 42 28 31 32 2D 4D 29 2B 31 3A 42 28 4D 29 )+B(12-M)+1:B(M)
0001C0: 3D 30 3A 42 28 31 32 2D 4D 29 3D 30 3A 52 45 54 =0:B(12-M)=0:RET
0001D0: 55 52 4E 0D 0A 38 30 30 20 44 3D 2D 39 39 3A 48 URN..800 D=-99:H
0001E0: 3D 31 33 0D 0A 38 30 35 20 46 4F 52 20 49 3D 30 =13..805 FOR I=0
0001F0: 20 54 4F 20 31 33 3A 47 28 49 29 3D 42 28 49 29 TO 13:G(I)=B(I)
Size : 512 (Real : 512)
000000: 53 20 46 4F 4C 4C 4F 57 53 3A 22 0D 0A 31 32 30 S FOLLOWS:"..120
000010: 20 50 52 49 4E 54 20 22 20 20 20 50 49 43 4F 20 PRINT " PICO
000020: 20 20 2D 20 4F 4E 45 20 44 49 47 49 54 20 43 4F - ONE DIGIT CO
000030: 52 52 45 43 54 20 42 55 54 20 49 4E 20 54 48 45 RRECT BUT IN THE
000040: 20 57 52 4F 4E 47 20 50 4F 53 49 54 49 4F 4E 22 WRONG POSITION"
000050: 0D 0A 31 33 30 20 50 52 49 4E 54 20 22 20 20 20 ..130 PRINT "
000060: 46 45 52 4D 49 20 20 2D 20 4F 4E 45 20 44 49 47 FERMI - ONE DIG
000070: 49 54 20 43 4F 52 52 45 43 54 20 41 4E 44 20 49 IT CORRECT AND I
000080: 4E 20 54 48 45 20 52 49 47 48 54 20 50 4F 53 49 N THE RIGHT POSI
000090: 54 49 4F 4E 22 0D 0A 31 34 30 20 50 52 49 4E 54 TION"..140 PRINT
0000A0: 20 22 20 20 20 42 41 47 45 4C 53 20 2D 20 4E 4F " BAGELS - NO
0000B0: 20 44 49 47 49 54 53 20 43 4F 52 52 45 43 54 22 DIGITS CORRECT"
0000C0: 0D 0A 31 35 30 20 46 4F 52 20 49 3D 31 20 54 4F ..150 FOR I=1 TO
0000D0: 20 33 0D 0A 31 36 30 20 41 28 49 29 3D 49 4E 54 3..160 A(I)=INT
0000E0: 28 31 30 2A 52 4E 44 28 31 29 29 0D 0A 31 36 35 (10*RND(1))..165
0000F0: 20 49 46 20 49 2D 31 3D 30 20 54 48 45 4E 20 32 IF I-1=0 THEN 2
000100: 30 30 0D 0A 31 37 30 20 46 4F 52 20 4A 3D 31 20 00..170 FOR J=1
000110: 54 4F 20 49 2D 31 0D 0A 31 38 30 20 49 46 20 41 TO I-1..180 IF A
000120: 28 49 29 3D 41 28 4A 29 20 54 48 45 4E 20 31 36 (I)=A(J) THEN 16
000130: 30 0D 0A 31 39 30 20 4E 45 58 54 20 4A 0D 0A 32 0..190 NEXT J..2
000140: 30 30 20 4E 45 58 54 20 49 0D 0A 32 31 30 20 50 00 NEXT I..210 P
000150: 52 49 4E 54 3A 50 52 49 4E 54 20 22 4F 2E 4B 2E RINT:PRINT "O.K.
000160: 20 20 49 20 48 41 56 45 20 41 20 4E 55 4D 42 45 I HAVE A NUMBE
000170: 52 20 49 4E 20 4D 49 4E 44 2E 22 0D 0A 32 32 30 R IN MIND."..220
000180: 20 46 4F 52 20 49 3D 31 20 54 4F 20 32 30 0D 0A FOR I=1 TO 20..
000190: 32 33 30 20 50 52 49 4E 54 20 22 47 55 45 53 53 230 PRINT "GUESS
0001A0: 20 23 22 3B 49 2C 0D 0A 32 34 30 20 49 4E 50 55 #";I,..240 INPU
0001B0: 54 20 41 24 0D 0A 32 34 35 20 49 46 20 4C 45 4E T A$..245 IF LEN
0001C0: 28 41 24 29 3C 3E 33 20 54 48 45 4E 20 36 33 30 (A$)<>3 THEN 630
0001D0: 0D 0A 32 35 30 20 46 4F 52 20 5A 3D 31 20 54 4F ..250 FOR Z=1 TO
0001E0: 20 33 3A 41 31 28 5A 29 3D 41 53 43 28 4D 49 44 3:A1(Z)=ASC(MID
0001F0: 24 28 41 24 2C 5A 2C 31 29 29 3A 4E 45 58 54 20 $(A$,Z,1)):NEXT
Size : 512 (Real : 512)
000000: 3A 4E 45 58 54 20 49 0D 0A 38 31 30 20 46 4F 52 :NEXT I..810 FOR
000010: 20 4A 3D 37 20 54 4F 20 31 32 3A 49 46 20 42 28 J=7 TO 12:IF B(
000020: 4A 29 3D 30 20 54 48 45 4E 20 38 38 35 0D 0A 38 J)=0 THEN 885..8
000030: 31 35 20 47 3D 30 3A 4D 3D 4A 3A 47 4F 53 55 42 15 G=0:M=J:GOSUB
000040: 20 36 30 30 0D 0A 38 32 30 20 46 4F 52 20 49 3D 600..820 FOR I=
000050: 30 20 54 4F 20 35 3A 49 46 20 42 28 49 29 3D 30 0 TO 5:IF B(I)=0
000060: 20 54 48 45 4E 20 38 34 35 0D 0A 38 32 35 20 4C THEN 845..825 L
000070: 3D 42 28 49 29 2B 49 3A 52 3D 30 0D 0A 38 33 30 =B(I)+I:R=0..830
000080: 20 49 46 20 4C 3E 31 33 20 54 48 45 4E 20 4C 3D IF L>13 THEN L=
000090: 4C 2D 31 34 3A 52 3D 31 3A 47 4F 54 4F 20 38 33 L-14:R=1:GOTO 83
0000A0: 30 0D 0A 38 33 35 20 49 46 20 42 28 4C 29 3D 30 0..835 IF B(L)=0
0000B0: 20 54 48 45 4E 20 49 46 20 4C 3C 3E 36 20 54 48 THEN IF L<>6 TH
0000C0: 45 4E 20 49 46 20 4C 3C 3E 31 33 20 54 48 45 4E EN IF L<>13 THEN
0000D0: 20 52 3D 42 28 31 32 2D 4C 29 2B 52 0D 0A 38 34 R=B(12-L)+R..84
0000E0: 30 20 49 46 20 52 3E 51 20 54 48 45 4E 20 51 3D 0 IF R>Q THEN Q=
0000F0: 52 0D 0A 38 34 35 20 4E 45 58 54 20 49 0D 0A 38 R..845 NEXT I..8
000100: 35 30 20 51 3D 42 28 31 33 29 2D 42 28 36 29 2D 50 Q=B(13)-B(6)-
000110: 51 3A 49 46 20 43 3E 38 20 54 48 45 4E 20 38 37 Q:IF C>8 THEN 87
000120: 35 0D 0A 38 35 35 20 4B 3D 4A 3A 49 46 20 4B 3E 5..855 K=J:IF K>
000130: 36 20 54 48 45 4E 20 4B 3D 4B 2D 37 0D 0A 38 36 6 THEN K=K-7..86
000140: 30 20 46 4F 52 20 49 3D 30 20 54 4F 20 4E 2D 31 0 FOR I=0 TO N-1
000150: 3A 49 46 20 46 28 4E 29 2A 36 2B 4B 3D 49 4E 54 :IF F(N)*6+K=INT
000160: 28 46 28 49 29 2F 36 5E 28 37 2D 43 29 2B 2E 31 (F(I)/6^(7-C)+.1
000170: 29 20 54 48 45 4E 20 51 3D 51 2D 32 0D 0A 38 37 ) THEN Q=Q-2..87
000180: 30 20 4E 45 58 54 20 49 0D 0A 38 37 35 20 46 4F 0 NEXT I..875 FO
000190: 52 20 49 3D 30 20 54 4F 20 31 33 3A 42 28 49 29 R I=0 TO 13:B(I)
0001A0: 3D 47 28 49 29 3A 4E 45 58 54 20 49 0D 0A 38 38 =G(I):NEXT I..88
0001B0: 30 20 49 46 20 51 3E 3D 44 20 54 48 45 4E 20 41 0 IF Q>=D THEN A
0001C0: 3D 4A 3A 44 3D 51 0D 0A 38 38 35 20 4E 45 58 54 =J:D=Q..885 NEXT
0001D0: 20 4A 0D 0A 38 39 30 20 4D 3D 41 3A 50 52 49 4E J..890 M=A:PRIN
0001E0: 54 20 43 48 52 24 28 34 32 2B 4D 29 3B 3A 47 4F T CHR$(42+M);:GO
0001F0: 54 4F 20 32 30 30 0D 0A 39 30 30 20 46 4F 52 20 TO 200..900 FOR
Size : 512 (Real : 512)
000000: 5A 0D 0A 32 36 30 20 46 4F 52 20 4A 3D 31 20 54 Z..260 FOR J=1 T
000010: 4F 20 33 0D 0A 32 37 30 20 49 46 20 41 31 28 4A O 3..270 IF A1(J
000020: 29 3C 34 38 20 54 48 45 4E 20 33 30 30 0D 0A 32 )<48 THEN 300..2
000030: 38 30 20 49 46 20 41 31 28 4A 29 3E 35 37 20 54 80 IF A1(J)>57 T
000040: 48 45 4E 20 33 30 30 0D 0A 32 38 35 20 42 28 4A HEN 300..285 B(J
000050: 29 3D 41 31 28 4A 29 2D 34 38 0D 0A 32 39 30 20 )=A1(J)-48..290
000060: 4E 45 58 54 20 4A 0D 0A 32 39 35 20 47 4F 54 4F NEXT J..295 GOTO
000070: 20 33 32 30 0D 0A 33 30 30 20 50 52 49 4E 54 20 320..300 PRINT
000080: 22 57 48 41 54 3F 22 0D 0A 33 31 30 20 47 4F 54 "WHAT?"..310 GOT
000090: 4F 20 32 33 30 0D 0A 33 32 30 20 49 46 20 42 28 O 230..320 IF B(
0000A0: 31 29 3D 42 28 32 29 20 54 48 45 4E 20 36 35 30 1)=B(2) THEN 650
0000B0: 0D 0A 33 33 30 20 49 46 20 42 28 32 29 3D 42 28 ..330 IF B(2)=B(
0000C0: 33 29 20 54 48 45 4E 20 36 35 30 0D 0A 33 34 30 3) THEN 650..340
0000D0: 20 49 46 20 42 28 33 29 3D 42 28 31 29 20 54 48 IF B(3)=B(1) TH
0000E0: 45 4E 20 36 35 30 0D 0A 33 35 30 20 43 3D 30 3A EN 650..350 C=0:
0000F0: 44 3D 30 0D 0A 33 36 30 20 46 4F 52 20 4A 3D 31 D=0..360 FOR J=1
000100: 20 54 4F 20 32 0D 0A 33 37 30 20 49 46 20 41 28 TO 2..370 IF A(
000110: 4A 29 3C 3E 42 28 4A 2B 31 29 20 54 48 45 4E 20 J)<>B(J+1) THEN
000120: 33 39 30 0D 0A 33 38 30 20 43 3D 43 2B 31 0D 0A 390..380 C=C+1..
000130: 33 39 30 20 49 46 20 41 28 4A 2B 31 29 3C 3E 42 390 IF A(J+1)<>B
000140: 28 4A 29 20 54 48 45 4E 20 34 31 30 0D 0A 34 30 (J) THEN 410..40
000150: 30 20 43 3D 43 2B 31 0D 0A 34 31 30 20 4E 45 58 0 C=C+1..410 NEX
000160: 54 20 4A 0D 0A 34 32 30 20 49 46 20 41 28 31 29 T J..420 IF A(1)
000170: 3C 3E 42 28 33 29 20 54 48 45 4E 20 34 34 30 0D <>B(3) THEN 440.
000180: 0A 34 33 30 20 43 3D 43 2B 31 0D 0A 34 34 30 20 .430 C=C+1..440
000190: 49 46 20 41 28 33 29 3C 3E 42 28 31 29 20 54 48 IF A(3)<>B(1) TH
0001A0: 45 4E 20 34 36 30 0D 0A 34 35 30 20 43 3D 43 2B EN 460..450 C=C+
0001B0: 31 0D 0A 34 36 30 20 46 4F 52 20 4A 3D 31 20 54 1..460 FOR J=1 T
0001C0: 4F 20 33 0D 0A 34 37 30 20 49 46 20 41 28 4A 29 O 3..470 IF A(J)
0001D0: 3C 3E 42 28 4A 29 20 54 48 45 4E 20 34 39 30 0D <>B(J) THEN 490.
0001E0: 0A 34 38 30 20 44 3D 44 2B 31 0D 0A 34 39 30 20 .480 D=D+1..490
0001F0: 4E 45 58 54 20 4A 0D 0A 35 30 30 20 49 46 20 44 NEXT J..500 IF D
Size : 512 (Real : 512)
000000: 30 20 46 4F 52 20 4B 3D 38 20 54 4F 20 30 20 53 0 FOR K=8 TO 0 S
000010: 54 45 50 20 2D 31 0D 0A 32 33 30 20 49 46 20 32 TEP -1..230 IF 2
000020: 5E 4B 3C 53 28 55 29 20 54 48 45 4E 20 32 37 30 ^K<S(U) THEN 270
000030: 0D 0A 32 34 30 20 4A 28 39 2D 4B 29 3D 30 0D 0A ..240 J(9-K)=0..
000040: 32 35 30 20 47 4F 54 4F 20 32 38 30 0D 0A 32 37 250 GOTO 280..27
000050: 30 20 4A 28 39 2D 4B 29 3D 31 3A 20 53 28 55 29 0 J(9-K)=1: S(U)
000060: 3D 53 28 55 29 2D 32 5E 4B 0D 0A 32 37 32 20 49 =S(U)-2^K..272 I
000070: 46 20 53 28 55 29 3D 31 20 54 48 45 4E 20 38 31 F S(U)=1 THEN 81
000080: 35 0D 0A 32 38 30 20 4E 45 58 54 20 4B 0D 0A 34 5..280 NEXT K..4
000090: 34 35 20 46 4F 52 20 54 31 3D 31 20 54 4F 20 58 45 FOR T1=1 TO X
0000A0: 0D 0A 34 34 37 20 50 52 49 4E 54 20 54 41 42 28 ..447 PRINT TAB(
0000B0: 28 36 33 2D 34 2E 35 2A 59 29 2A 47 31 2F 28 4C (63-4.5*Y)*G1/(L
0000C0: 45 4E 28 58 24 29 29 2B 31 29 3B 0D 0A 34 35 30 EN(X$))+1);..450
0000D0: 20 46 4F 52 20 42 3D 31 20 54 4F 20 46 28 55 29 FOR B=1 TO F(U)
0000E0: 0D 0A 34 36 30 20 49 46 20 4A 28 42 29 3D 30 20 ..460 IF J(B)=0
0000F0: 54 48 45 4E 20 35 30 30 0D 0A 34 36 35 20 46 4F THEN 500..465 FO
000100: 52 20 49 3D 31 20 54 4F 20 59 3A 20 50 52 49 4E R I=1 TO Y: PRIN
000110: 54 20 58 24 3B 3A 20 4E 45 58 54 20 49 0D 0A 34 T X$;: NEXT I..4
000120: 37 30 20 47 4F 54 4F 20 36 30 30 0D 0A 35 30 30 70 GOTO 600..500
000130: 20 46 4F 52 20 49 3D 31 20 54 4F 20 59 0D 0A 35 FOR I=1 TO Y..5
000140: 31 30 20 46 4F 52 20 49 31 3D 31 20 54 4F 20 4C 10 FOR I1=1 TO L
000150: 45 4E 28 58 24 29 0D 0A 35 32 30 20 50 52 49 4E EN(X$)..520 PRIN
000160: 54 20 22 20 22 3B 3A 20 4E 45 58 54 20 49 31 0D T " ";: NEXT I1.
000170: 0A 35 33 30 20 4E 45 58 54 20 49 0D 0A 36 30 30 .530 NEXT I..600
000180: 20 4E 45 58 54 20 42 0D 0A 36 32 30 20 50 52 49 NEXT B..620 PRI
000190: 4E 54 0D 0A 36 33 30 20 4E 45 58 54 20 54 31 0D NT..630 NEXT T1.
0001A0: 0A 37 30 30 20 4E 45 58 54 20 55 0D 0A 37 35 30 .700 NEXT U..750
0001B0: 20 46 4F 52 20 48 3D 31 20 54 4F 20 32 2A 58 3A FOR H=1 TO 2*X:
0001C0: 20 50 52 49 4E 54 3A 20 4E 45 58 54 20 48 0D 0A PRINT: NEXT H..
0001D0: 38 30 30 20 4E 45 58 54 20 54 0D 0A 38 30 36 20 800 NEXT T..806
0001E0: 46 4F 52 20 48 3D 31 20 54 4F 20 37 35 3A 20 50 FOR H=1 TO 75: P
0001F0: 52 49 4E 54 3A 20 4E 45 58 54 20 48 0D 0A 38 31 RINT: NEXT H..81
Size : 512 (Real : 512)
000000: 3D 33 20 54 48 45 4E 20 36 38 30 0D 0A 35 30 35 =3 THEN 680..505
000010: 20 49 46 20 43 3D 30 20 54 48 45 4E 20 35 34 35 IF C=0 THEN 545
000020: 0D 0A 35 32 30 20 46 4F 52 20 4A 3D 31 20 54 4F ..520 FOR J=1 TO
000030: 20 43 0D 0A 35 33 30 20 50 52 49 4E 54 20 22 50 C..530 PRINT "P
000040: 49 43 4F 20 22 3B 0D 0A 35 34 30 20 4E 45 58 54 ICO ";..540 NEXT
000050: 20 4A 0D 0A 35 34 35 20 49 46 20 44 3D 30 20 54 J..545 IF D=0 T
000060: 48 45 4E 20 35 38 30 0D 0A 35 35 30 20 46 4F 52 HEN 580..550 FOR
000070: 20 4A 3D 31 20 54 4F 20 44 0D 0A 35 36 30 20 50 J=1 TO D..560 P
000080: 52 49 4E 54 20 22 46 45 52 4D 49 20 22 3B 0D 0A RINT "FERMI ";..
000090: 35 37 30 20 4E 45 58 54 20 4A 0D 0A 35 38 30 20 570 NEXT J..580
0000A0: 49 46 20 43 2B 44 3C 3E 30 20 54 48 45 4E 20 36 IF C+D<>0 THEN 6
0000B0: 30 30 0D 0A 35 39 30 20 50 52 49 4E 54 20 22 42 00..590 PRINT "B
0000C0: 41 47 45 4C 53 22 3B 0D 0A 36 30 30 20 50 52 49 AGELS";..600 PRI
0000D0: 4E 54 0D 0A 36 30 35 20 4E 45 58 54 20 49 0D 0A NT..605 NEXT I..
0000E0: 36 31 30 20 50 52 49 4E 54 20 22 4F 48 20 57 45 610 PRINT "OH WE
0000F0: 4C 4C 2E 22 0D 0A 36 31 35 20 50 52 49 4E 54 20 LL."..615 PRINT
000100: 22 54 48 41 54 27 53 20 54 57 4E 45 54 59 20 47 "THAT'S TWNETY G
000110: 55 45 53 53 45 53 2E 20 20 4D 59 20 4E 55 4D 42 UESSES. MY NUMB
000120: 45 52 20 57 41 53 22 3B 31 30 30 2A 41 28 31 29 ER WAS";100*A(1)
000130: 2B 31 30 2A 41 28 32 29 2B 41 28 33 29 0D 0A 36 +10*A(2)+A(3)..6
000140: 32 30 20 47 4F 54 4F 20 37 30 30 0D 0A 36 33 30 20 GOTO 700..630
000150: 20 50 52 49 4E 54 20 22 54 52 59 20 47 55 45 53 PRINT "TRY GUES
000160: 53 49 4E 47 20 41 20 54 48 52 45 45 2D 44 49 47 SING A THREE-DIG
000170: 49 54 20 4E 55 4D 42 45 52 2E 22 3A 47 4F 54 4F IT NUMBER.":GOTO
000180: 20 32 33 30 0D 0A 36 35 30 20 50 52 49 4E 54 20 230..650 PRINT
000190: 22 4F 48 2C 20 49 20 46 4F 52 47 4F 54 20 54 4F "OH, I FORGOT TO
0001A0: 20 54 45 4C 4C 20 59 4F 55 20 54 48 41 54 20 54 TELL YOU THAT T
0001B0: 48 45 20 4E 55 4D 42 45 52 20 49 20 48 41 56 45 HE NUMBER I HAVE
0001C0: 20 49 4E 20 4D 49 4E 44 22 0D 0A 36 36 30 20 50 IN MIND"..660 P
0001D0: 52 49 4E 54 20 22 48 41 53 20 4E 4F 20 54 57 4F RINT "HAS NO TWO
0001E0: 20 44 49 47 49 54 53 20 54 48 45 20 53 41 4D 45 DIGITS THE SAME
0001F0: 2E 22 3A 47 4F 54 4F 20 32 33 30 0D 0A 36 38 30 .":GOTO 230..680
Size : 512 (Real : 512)
000000: 30 20 45 4E 44 0D 0A 38 31 32 20 46 4F 52 20 48 0 END..812 FOR H
000010: 3D 31 20 54 4F 20 37 2A 58 3A 20 50 52 49 4E 54 =1 TO 7*X: PRINT
000020: 3A 20 4E 45 58 54 20 48 0D 0A 38 31 33 20 47 4F : NEXT H..813 GO
000030: 54 4F 20 38 30 30 0D 0A 38 31 35 20 46 28 55 29 TO 800..815 F(U)
000040: 3D 39 2D 4B 3A 20 47 4F 54 4F 20 34 34 35 0D 0A =9-K: GOTO 445..
000050: 38 39 39 20 44 41 54 41 20 22 20 22 2C 30 2C 30 899 DATA " ",0,0
000060: 2C 30 2C 30 2C 30 2C 30 2C 30 0D 0A 39 30 30 20 ,0,0,0,0,0..900
000070: 44 41 54 41 20 22 41 22 2C 35 30 35 2C 33 37 2C DATA "A",505,37,
000080: 33 35 2C 33 34 2C 33 35 2C 33 37 2C 35 30 35 0D 35,34,35,37,505.
000090: 0A 39 30 31 20 44 41 54 41 20 22 47 22 2C 31 32 .901 DATA "G",12
0000A0: 35 2C 31 33 31 2C 32 35 38 2C 32 35 38 2C 32 39 5,131,258,258,29
0000B0: 30 2C 31 36 33 2C 31 30 31 0D 0A 39 30 32 20 44 0,163,101..902 D
0000C0: 41 54 41 20 22 45 22 2C 35 31 32 2C 32 37 34 2C ATA "E",512,274,
0000D0: 32 37 34 2C 32 37 34 2C 32 37 34 2C 32 35 38 2C 274,274,274,258,
0000E0: 32 35 38 0D 0A 39 30 33 20 44 41 54 41 20 22 54 258..903 DATA "T
0000F0: 22 2C 32 2C 32 2C 32 2C 35 31 32 2C 32 2C 32 2C ",2,2,2,512,2,2,
000100: 32 0D 0A 39 30 34 20 44 41 54 41 20 22 57 22 2C 2..904 DATA "W",
000110: 32 35 36 2C 32 35 37 2C 31 32 39 2C 36 35 2C 31 256,257,129,65,1
000120: 32 39 2C 32 35 37 2C 32 35 36 0D 0A 39 30 35 20 29,257,256..905
000130: 44 41 54 41 20 22 4C 22 2C 35 31 32 2C 32 35 37 DATA "L",512,257
000140: 2C 32 35 37 2C 32 35 37 2C 32 35 37 2C 32 35 37 ,257,257,257,257
000150: 2C 32 35 37 0D 0A 39 30 36 20 44 41 54 41 20 22 ,257..906 DATA "
000160: 53 22 2C 36 39 2C 31 33 39 2C 32 37 34 2C 32 37 S",69,139,274,27
000170: 34 2C 32 37 34 2C 31 36 33 2C 36 39 0D 0A 39 30 4,274,163,69..90
000180: 37 20 44 41 54 41 20 22 4F 22 2C 31 32 35 2C 31 7 DATA "O",125,1
000190: 33 31 2C 32 35 38 2C 32 35 38 2C 32 35 38 2C 31 31,258,258,258,1
0001A0: 33 31 2C 31 32 35 0D 0A 39 30 38 20 44 41 54 41 31,125..908 DATA
0001B0: 20 22 4E 22 2C 35 31 32 2C 37 2C 39 2C 31 37 2C "N",512,7,9,17,
0001C0: 33 33 2C 31 39 33 2C 35 31 32 0D 0A 39 30 39 20 33,193,512..909
0001D0: 44 41 54 41 20 22 46 22 2C 35 31 32 2C 31 38 2C DATA "F",512,18,
0001E0: 31 38 2C 31 38 2C 31 38 2C 32 2C 32 0D 0A 39 31 18,18,18,2,2..91
0001F0: 30 20 44 41 54 41 20 22 4B 22 2C 35 31 32 2C 31 0 DATA "K",512,1
Size : 512 (Real : 512)
000000: 20 50 52 49 4E 54 20 22 59 4F 55 20 47 4F 54 20 PRINT "YOU GOT
000010: 49 54 21 21 21 22 3A 50 52 49 4E 54 0D 0A 36 39 IT!!!":PRINT..69
000020: 30 20 59 3D 59 2B 31 0D 0A 37 30 30 20 49 4E 50 0 Y=Y+1..700 INP
000030: 55 54 20 22 50 4C 41 59 20 41 47 41 49 4E 20 28 UT "PLAY AGAIN (
000040: 59 45 53 20 4F 52 20 4E 4F 29 22 3B 41 24 0D 0A YES OR NO)";A$..
000050: 37 32 30 20 49 46 20 4C 45 46 54 24 28 41 24 2C 720 IF LEFT$(A$,
000060: 31 29 3D 22 59 45 53 22 20 54 48 45 4E 20 31 35 1)="YES" THEN 15
000070: 30 0D 0A 37 33 30 20 49 46 20 59 3D 30 20 54 48 0..730 IF Y=0 TH
000080: 45 4E 20 37 35 30 0D 0A 37 34 30 20 50 52 49 4E EN 750..740 PRIN
000090: 54 3A 50 52 49 4E 54 20 22 41 22 3B 59 3B 22 50 T:PRINT "A";Y;"P
0000A0: 4F 49 4E 54 20 42 41 47 45 4C 53 20 42 55 46 46 OINT BAGELS BUFF
0000B0: 21 21 22 0D 0A 37 35 30 20 50 52 49 4E 54 20 22 !!"..750 PRINT "
0000C0: 48 4F 50 45 20 59 4F 55 20 48 41 44 20 46 55 4E HOPE YOU HAD FUN
0000D0: 2E 20 20 42 59 45 2E 22 0D 0A 39 39 39 20 45 4E . BYE."..999 EN
0000E0: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 37 2C 31 37 2C 34 31 2C 36 39 2C 31 33 31 2C 32 7,17,41,69,131,2
000010: 35 38 0D 0A 39 31 31 20 44 41 54 41 20 22 42 22 58..911 DATA "B"
000020: 2C 35 31 32 2C 32 37 34 2C 32 37 34 2C 32 37 34 ,512,274,274,274
000030: 2C 32 37 34 2C 32 37 34 2C 32 33 39 0D 0A 39 31 ,274,274,239..91
000040: 32 20 44 41 54 41 20 22 44 22 2C 35 31 32 2C 32 2 DATA "D",512,2
000050: 35 38 2C 32 35 38 2C 32 35 38 2C 32 35 38 2C 31 58,258,258,258,1
000060: 33 31 2C 31 32 35 0D 0A 39 31 33 20 44 41 54 41 31,125..913 DATA
000070: 20 22 48 22 2C 35 31 32 2C 31 37 2C 31 37 2C 31 "H",512,17,17,1
000080: 37 2C 31 37 2C 31 37 2C 35 31 32 0D 0A 39 31 34 7,17,17,512..914
000090: 20 44 41 54 41 20 22 4D 22 2C 35 31 32 2C 37 2C DATA "M",512,7,
0000A0: 31 33 2C 32 35 2C 31 33 2C 37 2C 35 31 32 0D 0A 13,25,13,7,512..
0000B0: 39 31 35 20 44 41 54 41 20 22 3F 22 2C 35 2C 33 915 DATA "?",5,3
0000C0: 2C 32 2C 33 35 34 2C 31 38 2C 31 31 2C 35 0D 0A ,2,354,18,11,5..
0000D0: 39 31 36 20 44 41 54 41 20 22 55 22 2C 31 32 38 916 DATA "U",128
0000E0: 2C 31 32 39 2C 32 35 37 2C 32 35 37 2C 32 35 37 ,129,257,257,257
0000F0: 2C 31 32 39 2C 31 32 38 0D 0A 39 31 37 20 44 41 ,129,128..917 DA
000100: 54 41 20 22 52 22 2C 35 31 32 2C 31 38 2C 31 38 TA "R",512,18,18
000110: 2C 35 30 2C 38 32 2C 31 34 36 2C 32 37 31 0D 0A ,50,82,146,271..
000120: 39 31 38 20 44 41 54 41 20 22 50 22 2C 35 31 32 918 DATA "P",512
000130: 2C 31 38 2C 31 38 2C 31 38 2C 31 38 2C 31 38 2C ,18,18,18,18,18,
000140: 31 35 0D 0A 39 31 39 20 44 41 54 41 20 22 51 22 15..919 DATA "Q"
000150: 2C 31 32 35 2C 31 33 31 2C 32 35 38 2C 32 35 38 ,125,131,258,258
000160: 2C 33 32 32 2C 31 33 31 2C 33 38 31 0D 0A 39 32 ,322,131,381..92
000170: 30 20 44 41 54 41 20 22 59 22 2C 38 2C 39 2C 31 0 DATA "Y",8,9,1
000180: 37 2C 34 38 31 2C 31 37 2C 39 2C 38 0D 0A 39 32 7,481,17,9,8..92
000190: 31 20 44 41 54 41 20 22 56 22 2C 36 34 2C 36 35 1 DATA "V",64,65
0001A0: 2C 31 32 39 2C 32 35 37 2C 31 32 39 2C 36 35 2C ,129,257,129,65,
0001B0: 36 34 0D 0A 39 32 32 20 44 41 54 41 20 22 58 22 64..922 DATA "X"
0001C0: 2C 33 38 38 2C 36 39 2C 34 31 2C 31 37 2C 34 31 ,388,69,41,17,41
0001D0: 2C 36 39 2C 33 38 38 0D 0A 39 32 33 20 44 41 54 ,69,388..923 DAT
0001E0: 41 20 22 5A 22 2C 33 38 36 2C 33 32 32 2C 32 39 A "Z",386,322,29
0001F0: 30 2C 32 37 34 2C 32 36 36 2C 32 36 32 2C 32 36 0,274,266,262,26
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 30 0D 0A 39 32 34 20 44 41 54 41 20 22 49 22 2C 0..924 DATA "I",
000010: 32 35 38 2C 32 35 38 2C 32 35 38 2C 35 31 32 2C 258,258,258,512,
000020: 32 35 38 2C 32 35 38 2C 32 35 38 0D 0A 39 32 35 258,258,258..925
000030: 20 44 41 54 41 20 22 43 22 2C 31 32 35 2C 31 33 DATA "C",125,13
000040: 31 2C 32 35 38 2C 32 35 38 2C 32 35 38 2C 31 33 1,258,258,258,13
000050: 31 2C 36 39 0D 0A 39 32 36 20 44 41 54 41 20 22 1,69..926 DATA "
000060: 4A 22 2C 36 35 2C 31 32 39 2C 32 35 37 2C 32 35 J",65,129,257,25
000070: 37 2C 32 35 37 2C 31 32 39 2C 31 32 38 0D 0A 39 7,257,129,128..9
000080: 32 37 20 44 41 54 41 20 22 31 22 2C 30 2C 30 2C 27 DATA "1",0,0,
000090: 32 36 31 2C 32 35 39 2C 35 31 32 2C 32 35 37 2C 261,259,512,257,
0000A0: 32 35 37 0D 0A 39 32 38 20 44 41 54 41 20 22 32 257..928 DATA "2
0000B0: 22 2C 32 36 31 2C 33 38 37 2C 33 32 32 2C 32 39 ",261,387,322,29
0000C0: 30 2C 32 37 34 2C 32 36 37 2C 32 36 31 0D 0A 39 0,274,267,261..9
0000D0: 32 39 20 44 41 54 41 20 22 2A 22 2C 36 39 2C 34 29 DATA "*",69,4
0000E0: 31 2C 31 37 2C 35 31 32 2C 31 37 2C 34 31 2C 36 1,17,512,17,41,6
0000F0: 39 0D 0A 39 33 30 20 44 41 54 41 20 22 33 22 2C 9..930 DATA "3",
000100: 36 36 2C 31 33 30 2C 32 35 38 2C 32 37 34 2C 32 66,130,258,274,2
000110: 36 36 2C 31 35 30 2C 31 30 30 0D 0A 39 33 31 20 66,150,100..931
000120: 44 41 54 41 20 22 34 22 2C 33 33 2C 34 39 2C 34 DATA "4",33,49,4
000130: 31 2C 33 37 2C 33 35 2C 35 31 32 2C 33 33 0D 0A 1,37,35,512,33..
000140: 39 33 32 20 44 41 54 41 20 22 35 22 2C 31 36 30 932 DATA "5",160
000150: 2C 32 37 34 2C 32 37 34 2C 32 37 34 2C 32 37 34 ,274,274,274,274
000160: 2C 32 37 34 2C 32 32 36 0D 0A 39 33 33 20 44 41 ,274,226..933 DA
000170: 54 41 20 22 36 22 2C 31 39 34 2C 32 39 31 2C 32 TA "6",194,291,2
000180: 39 33 2C 32 39 37 2C 33 30 35 2C 32 38 39 2C 31 93,297,305,289,1
000190: 39 33 0D 0A 39 33 34 20 44 41 54 41 20 22 37 22 93..934 DATA "7"
0001A0: 2C 32 35 38 2C 31 33 30 2C 36 36 2C 33 34 2C 31 ,258,130,66,34,1
0001B0: 38 2C 31 30 2C 38 0D 0A 39 33 35 20 44 41 54 41 8,10,8..935 DATA
0001C0: 20 22 38 22 2C 36 39 2C 31 37 31 2C 32 37 34 2C "8",69,171,274,
0001D0: 32 37 34 2C 32 37 34 2C 31 37 31 2C 36 39 0D 0A 274,274,171,69..
0001E0: 39 33 36 20 44 41 54 41 20 22 39 22 2C 32 36 33 936 DATA "9",263
0001F0: 2C 31 33 38 2C 37 34 2C 34 32 2C 32 36 2C 31 30 ,138,74,42,26,10
Size : 512 (Real : 512)
000000: 31 30 20 49 4E 50 55 54 20 22 48 4F 52 49 5A 4F 10 INPUT "HORIZO
000010: 4E 54 41 4C 22 3B 58 0D 0A 32 30 20 49 4E 50 55 NTAL";X..20 INPU
000020: 54 20 22 56 45 52 54 49 43 41 4C 22 3B 59 0D 0A T "VERTICAL";Y..
000030: 32 31 20 49 4E 50 55 54 20 22 43 45 4E 54 45 52 21 INPUT "CENTER
000040: 45 44 22 3B 4C 24 0D 0A 32 32 20 47 31 3D 30 3A ED";L$..22 G1=0:
000050: 49 46 20 4C 24 3E 22 50 22 20 54 48 45 4E 20 47 IF L$>"P" THEN G
000060: 31 3D 31 0D 0A 32 33 20 49 4E 50 55 54 20 22 43 1=1..23 INPUT "C
000070: 48 41 52 41 43 54 45 52 20 28 54 59 50 45 20 27 HARACTER (TYPE '
000080: 41 4C 4C 27 20 49 46 20 59 4F 55 20 57 41 4E 54 ALL' IF YOU WANT
000090: 20 43 48 41 52 41 43 54 45 52 20 42 45 49 4E 47 CHARACTER BEING
0000A0: 20 50 52 49 4E 54 45 44 29 22 3B 4D 24 0D 0A 32 PRINTED)";M$..2
0000B0: 39 20 50 52 49 4E 54 20 22 53 54 41 54 45 4D 45 9 PRINT "STATEME
0000C0: 4E 54 22 3B 0D 0A 33 30 20 49 4E 50 55 54 20 41 NT";..30 INPUT A
0000D0: 24 0D 0A 33 35 20 49 4E 50 55 54 20 22 53 45 54 $..35 INPUT "SET
0000E0: 20 50 41 47 45 22 3B 4F 24 0D 0A 34 30 20 41 3D PAGE";O$..40 A=
0000F0: 41 53 43 28 4C 45 46 54 24 28 41 24 2C 31 29 29 ASC(LEFT$(A$,1))
000100: 0D 0A 35 30 20 52 45 4D 0D 0A 36 30 20 52 45 4D ..50 REM..60 REM
000110: 0D 0A 37 30 20 46 4F 52 20 54 3D 31 20 54 4F 20 ..70 FOR T=1 TO
000120: 4C 45 4E 28 41 24 29 0D 0A 38 30 20 50 24 3D 4D LEN(A$)..80 P$=M
000130: 49 44 24 28 41 24 2C 54 2C 31 29 0D 0A 39 30 20 ID$(A$,T,1)..90
000140: 46 4F 52 20 4F 3D 31 20 54 4F 20 35 30 0D 0A 39 FOR O=1 TO 50..9
000150: 35 20 52 45 41 44 20 53 24 2C 53 28 31 29 2C 53 5 READ S$,S(1),S
000160: 28 32 29 2C 53 28 33 29 2C 53 28 34 29 2C 53 28 (2),S(3),S(4),S(
000170: 35 29 2C 53 28 36 29 2C 53 28 37 29 0D 0A 39 36 5),S(6),S(7)..96
000180: 20 49 46 20 50 24 3D 22 20 22 20 54 48 45 4E 20 IF P$=" " THEN
000190: 38 31 32 0D 0A 31 30 30 20 49 46 20 50 24 3D 53 812..100 IF P$=S
0001A0: 24 20 54 48 45 4E 20 32 30 30 0D 0A 31 32 30 20 $ THEN 200..120
0001B0: 4E 45 58 54 20 4F 0D 0A 32 30 30 20 52 45 53 54 NEXT O..200 REST
0001C0: 4F 52 45 0D 0A 32 30 31 20 58 24 3D 4D 24 0D 0A ORE..201 X$=M$..
0001D0: 32 30 32 20 49 46 20 4D 24 3D 22 41 4C 4C 22 20 202 IF M$="ALL"
0001E0: 54 48 45 4E 20 58 24 3D 53 24 0D 0A 32 30 35 20 THEN X$=S$..205
0001F0: 46 4F 52 20 55 3D 31 20 54 4F 20 37 0D 0A 32 31 FOR U=1 TO 7..21
Size : 512 (Real : 512)
000000: 2C 37 0D 0A 39 33 37 20 44 41 54 41 20 22 3D 22 ,7..937 DATA "="
000010: 2C 34 31 2C 34 31 2C 34 31 2C 34 31 2C 34 31 2C ,41,41,41,41,41,
000020: 34 31 2C 34 31 0D 0A 39 33 38 20 44 41 54 41 20 41,41..938 DATA
000030: 22 21 22 2C 31 2C 31 2C 31 2C 33 38 34 2C 31 2C "!",1,1,1,384,1,
000040: 31 2C 31 0D 0A 39 33 39 20 44 41 54 41 20 22 30 1,1..939 DATA "0
000050: 22 2C 35 37 2C 36 39 2C 31 33 31 2C 32 35 38 2C ",57,69,131,258,
000060: 31 33 31 2C 36 39 2C 35 37 0D 0A 39 34 30 20 44 131,69,57..940 D
000070: 41 54 41 20 22 2E 22 2C 31 2C 31 2C 31 32 39 2C ATA ".",1,1,129,
000080: 34 34 39 2C 31 32 39 2C 31 2C 31 0D 0A 31 30 30 449,129,1,1..100
000090: 30 20 53 54 4F 50 0D 0A 31 30 30 32 20 45 4E 44 0 STOP..1002 END
0000A0: 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 53 53 45 44 20 42 41 43 4B 20 54 4F 20 59 4F 55 SSED BACK TO YOU
000010: 2E 20 22 3B 0D 0A 31 31 37 30 20 47 4F 54 4F 20 . ";..1170 GOTO
000020: 34 33 30 0D 0A 31 31 38 30 20 49 46 20 52 4E 44 430..1180 IF RND
000030: 28 31 29 3E 2E 39 20 54 48 45 4E 20 31 31 39 30 (1)>.9 THEN 1190
000040: 0D 0A 31 31 38 35 20 50 52 49 4E 54 20 22 50 4C ..1185 PRINT "PL
000050: 41 59 45 52 20 46 4F 55 4C 45 44 2C 20 54 57 4F AYER FOULED, TWO
000060: 20 53 48 4F 54 53 2E 22 0D 0A 31 31 38 37 20 47 SHOTS."..1187 G
000070: 4F 53 55 42 20 34 30 30 30 0D 0A 31 31 38 38 20 OSUB 4000..1188
000080: 47 4F 54 4F 20 33 30 30 30 0D 0A 31 31 39 30 20 GOTO 3000..1190
000090: 50 52 49 4E 54 20 22 42 41 4C 4C 20 53 54 4F 4C PRINT "BALL STOL
0000A0: 45 4E 2E 20 22 3B 4F 24 3B 22 27 53 20 42 41 4C EN. ";O$;"'S BAL
0000B0: 4C 2E 22 0D 0A 31 31 39 35 20 47 4F 54 4F 20 33 L."..1195 GOTO 3
0000C0: 30 30 30 0D 0A 31 32 30 30 20 49 46 20 52 4E 44 000..1200 IF RND
0000D0: 28 31 29 3E 2E 37 38 32 2A 44 2F 38 20 54 48 45 (1)>.782*D/8 THE
0000E0: 4E 20 31 32 35 30 0D 0A 31 32 31 30 20 50 52 49 N 1250..1210 PRI
0000F0: 4E 54 20 22 53 48 4F 54 20 49 53 20 42 4C 4F 43 NT "SHOT IS BLOC
000100: 4B 45 44 2E 20 20 42 41 4C 4C 20 43 4F 4E 54 52 KED. BALL CONTR
000110: 4F 4C 4C 45 44 20 42 59 20 22 3B 0D 0A 31 32 33 OLLED BY ";..123
000120: 30 20 49 46 20 52 4E 44 28 31 29 3E 2E 35 20 54 0 IF RND(1)>.5 T
000130: 48 45 4E 20 31 32 34 32 0D 0A 31 32 33 35 20 50 HEN 1242..1235 P
000140: 52 49 4E 54 20 22 44 41 52 54 4D 4F 55 54 48 2E RINT "DARTMOUTH.
000150: 22 0D 0A 31 32 34 30 20 47 4F 54 4F 20 34 33 30 "..1240 GOTO 430
000160: 0D 0A 31 32 34 32 20 50 52 49 4E 54 20 4F 24 3B ..1242 PRINT O$;
000170: 22 2E 22 0D 0A 31 32 34 35 20 47 4F 54 4F 20 33 "."..1245 GOTO 3
000180: 30 30 30 0D 0A 31 32 35 30 20 49 46 20 52 4E 44 000..1250 IF RND
000190: 28 31 29 3E 2E 38 34 33 2A 44 2F 38 20 54 48 45 (1)>.843*D/8 THE
0001A0: 4E 20 31 32 37 30 0D 0A 31 32 35 35 20 50 52 49 N 1270..1255 PRI
0001B0: 4E 54 20 22 53 48 4F 4F 54 45 52 20 49 53 20 46 NT "SHOOTER IS F
0001C0: 4F 55 4C 45 44 2E 20 20 54 57 4F 20 53 48 4F 54 OULED. TWO SHOT
0001D0: 53 2E 22 0D 0A 31 32 36 30 20 47 4F 53 55 42 20 S."..1260 GOSUB
0001E0: 34 30 30 30 0D 0A 31 32 36 35 20 47 4F 54 4F 20 4000..1265 GOTO
0001F0: 33 30 30 30 0D 0A 31 32 37 30 20 50 52 49 4E 54 3000..1270 PRINT
Size : 512 (Real : 512)
000000: 35 20 50 52 49 4E 54 20 54 41 42 28 33 31 29 3B 5 PRINT TAB(31);
000010: 22 42 41 53 4B 45 54 42 41 4C 4C 22 0D 0A 37 20 "BASKETBALL"..7
000020: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 PRINT TAB(15);"C
000030: 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E REATIVE COMPUTIN
000040: 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E G MORRISTOWN, N
000050: 45 57 20 4A 45 52 53 45 59 22 0D 0A 38 20 50 52 EW JERSEY"..8 PR
000060: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
000070: 0A 31 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 .10 PRINT "THIS
000080: 49 53 20 44 41 52 54 4D 4F 55 54 48 20 43 4F 4C IS DARTMOUTH COL
000090: 4C 45 47 45 20 42 41 53 4B 45 54 42 41 4C 4C 2E LEGE BASKETBALL.
0000A0: 20 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 44 41 YOU WILL BE DA
0000B0: 52 54 4D 4F 55 54 48 22 0D 0A 32 30 20 50 52 49 RTMOUTH"..20 PRI
0000C0: 4E 54 20 22 20 43 41 50 54 41 49 4E 20 41 4E 44 NT " CAPTAIN AND
0000D0: 20 50 4C 41 59 4D 41 4B 45 52 2E 20 20 43 41 4C PLAYMAKER. CAL
0000E0: 4C 20 53 48 4F 54 53 20 41 53 20 46 4F 4C 4C 4F L SHOTS AS FOLLO
0000F0: 57 53 3A 20 20 31 2E 20 4C 4F 4E 47 22 0D 0A 33 WS: 1. LONG"..3
000100: 30 20 50 52 49 4E 54 20 22 20 28 33 30 20 46 54 0 PRINT " (30 FT
000110: 2E 29 20 4A 55 4D 50 20 53 48 4F 54 3B 20 32 2E .) JUMP SHOT; 2.
000120: 20 53 48 4F 52 54 20 28 31 35 20 46 54 2E 29 20 SHORT (15 FT.)
000130: 4A 55 4D 50 20 53 48 4F 54 3B 20 33 2E 20 4C 41 JUMP SHOT; 3. LA
000140: 59 22 0D 0A 34 30 20 50 52 49 4E 54 20 22 20 55 Y"..40 PRINT " U
000150: 50 3B 20 34 2E 20 53 45 54 20 53 48 4F 54 2E 22 P; 4. SET SHOT."
000160: 0D 0A 36 30 20 50 52 49 4E 54 20 22 42 4F 54 48 ..60 PRINT "BOTH
000170: 20 54 45 41 4D 53 20 57 49 4C 4C 20 55 53 45 20 TEAMS WILL USE
000180: 54 48 45 20 53 41 4D 45 20 44 45 46 45 4E 53 45 THE SAME DEFENSE
000190: 2E 20 20 43 41 4C 4C 20 44 45 46 45 4E 53 45 20 . CALL DEFENSE
0001A0: 41 53 22 0D 0A 37 30 20 50 52 49 4E 54 20 22 46 AS"..70 PRINT "F
0001B0: 4F 4C 4C 4F 57 53 3A 20 20 36 2E 20 50 52 45 53 OLLOWS: 6. PRES
0001C0: 53 3B 20 36 2E 35 20 4D 41 4E 2D 54 4F 20 4D 41 S; 6.5 MAN-TO MA
0001D0: 4E 3B 20 37 2E 20 5A 4F 4E 45 3B 20 37 2E 35 20 N; 7. ZONE; 7.5
0001E0: 4E 4F 4E 45 2E 22 0D 0A 37 32 20 50 52 49 4E 54 NONE."..72 PRINT
0001F0: 20 22 54 4F 20 43 48 41 4E 47 45 20 44 45 46 45 "TO CHANGE DEFE
Size : 512 (Real : 512)
000000: 20 22 43 48 41 52 47 49 4E 47 20 46 4F 55 4C 2E "CHARGING FOUL.
000010: 20 20 44 41 52 54 4D 4F 55 54 48 20 4C 4F 53 45 DARTMOUTH LOSE
000020: 53 20 42 41 4C 4C 2E 22 0D 0A 31 32 38 30 20 47 S BALL."..1280 G
000030: 4F 54 4F 20 33 30 30 30 0D 0A 31 33 30 30 20 54 OTO 3000..1300 T
000040: 3D 54 2B 31 0D 0A 31 33 30 31 20 49 46 20 54 3D =T+1..1301 IF T=
000050: 35 30 20 54 48 45 4E 20 38 30 30 30 0D 0A 31 33 50 THEN 8000..13
000060: 30 32 20 49 46 20 54 3D 39 32 20 54 48 45 4E 20 02 IF T=92 THEN
000070: 31 33 30 34 0D 0A 31 33 30 33 20 47 4F 54 4F 20 1304..1303 GOTO
000080: 31 33 30 35 0D 0A 31 33 30 34 20 47 4F 53 55 42 1305..1304 GOSUB
000090: 20 36 30 30 0D 0A 31 33 30 35 20 49 46 20 5A 3D 600..1305 IF Z=
0000A0: 30 20 54 48 45 4E 20 32 30 31 30 0D 0A 31 33 31 0 THEN 2010..131
0000B0: 30 20 49 46 20 5A 3E 33 20 54 48 45 4E 20 31 37 0 IF Z>3 THEN 17
0000C0: 30 30 0D 0A 31 33 32 30 20 50 52 49 4E 54 20 22 00..1320 PRINT "
0000D0: 4C 41 59 20 55 50 2E 22 0D 0A 31 33 33 30 20 49 LAY UP."..1330 I
0000E0: 46 20 37 2F 44 2A 52 4E 44 28 31 29 3E 2E 34 20 F 7/D*RND(1)>.4
0000F0: 54 48 45 4E 20 31 33 36 30 0D 0A 31 33 34 30 20 THEN 1360..1340
000100: 50 52 49 4E 54 20 22 53 48 4F 54 20 49 53 20 47 PRINT "SHOT IS G
000110: 4F 4F 44 2E 20 20 54 57 4F 20 50 4F 49 4E 54 53 OOD. TWO POINTS
000120: 2E 22 0D 0A 31 33 34 35 20 47 4F 53 55 42 20 37 ."..1345 GOSUB 7
000130: 30 30 30 0D 0A 31 33 35 35 20 47 4F 54 4F 20 33 000..1355 GOTO 3
000140: 30 30 30 0D 0A 31 33 36 30 20 49 46 20 37 2F 44 000..1360 IF 7/D
000150: 2A 52 4E 44 28 31 29 3E 2E 37 20 54 48 45 4E 20 *RND(1)>.7 THEN
000160: 31 35 30 30 0D 0A 31 33 37 30 20 50 52 49 4E 54 1500..1370 PRINT
000170: 20 22 53 48 4F 54 20 49 53 20 4F 46 46 20 54 48 "SHOT IS OFF TH
000180: 45 20 52 49 4D 2E 22 0D 0A 31 33 38 30 20 49 46 E RIM."..1380 IF
000190: 20 52 4E 44 28 31 29 3E 32 2F 33 20 54 48 45 4E RND(1)>2/3 THEN
0001A0: 20 31 34 31 35 0D 0A 31 33 39 30 20 50 52 49 4E 1415..1390 PRIN
0001B0: 54 20 4F 24 3B 22 20 43 4F 4E 54 52 4F 4C 53 20 T O$;" CONTROLS
0001C0: 54 48 45 20 52 45 42 4F 55 4E 44 2E 22 0D 0A 31 THE REBOUND."..1
0001D0: 34 30 30 20 47 4F 54 4F 20 33 30 30 30 0D 0A 31 400 GOTO 3000..1
0001E0: 34 31 35 20 50 52 49 4E 54 20 22 44 41 52 54 4D 415 PRINT "DARTM
0001F0: 4F 55 54 48 20 43 4F 4E 54 52 4F 4C 53 20 54 48 OUTH CONTROLS TH
Size : 512 (Real : 512)
000000: 4E 53 45 2C 20 4A 55 53 54 20 54 59 50 45 20 30 NSE, JUST TYPE 0
000010: 20 41 53 20 59 4F 55 52 20 4E 45 58 54 20 53 48 AS YOUR NEXT SH
000020: 4F 54 2E 22 0D 0A 37 36 20 49 4E 50 55 54 20 22 OT."..76 INPUT "
000030: 59 4F 55 52 20 53 54 41 52 54 49 4E 47 20 44 45 YOUR STARTING DE
000040: 46 45 4E 53 45 20 57 49 4C 4C 20 42 45 22 3B 44 FENSE WILL BE";D
000050: 3A 49 46 20 44 3C 36 20 54 48 45 4E 20 32 30 31 :IF D<6 THEN 201
000060: 30 0D 0A 37 39 20 50 52 49 4E 54 0D 0A 38 30 20 0..79 PRINT..80
000070: 49 4E 50 55 54 20 22 43 48 4F 4F 53 45 20 59 4F INPUT "CHOOSE YO
000080: 55 52 20 4F 50 50 4F 4E 45 4E 54 22 3B 4F 24 0D UR OPPONENT";O$.
000090: 0A 33 37 30 20 50 52 49 4E 54 20 22 43 45 4E 54 .370 PRINT "CENT
0000A0: 45 52 20 4A 55 4D 50 22 0D 0A 33 39 30 20 49 46 ER JUMP"..390 IF
0000B0: 20 52 4E 44 28 31 29 3E 20 33 2F 35 20 54 48 45 RND(1)> 3/5 THE
0000C0: 4E 20 34 32 30 0D 0A 34 30 30 20 50 52 49 4E 54 N 420..400 PRINT
0000D0: 20 4F 24 3B 22 20 43 4F 4E 54 52 4F 4C 53 20 54 O$;" CONTROLS T
0000E0: 48 45 20 54 41 50 2E 22 0D 0A 34 31 30 20 47 4F HE TAP."..410 GO
0000F0: 54 4F 20 33 30 30 30 0D 0A 34 32 30 20 50 52 49 TO 3000..420 PRI
000100: 4E 54 20 22 44 41 52 54 4D 4F 55 54 48 20 43 4F NT "DARTMOUTH CO
000110: 4E 54 52 4F 4C 53 20 54 48 45 20 54 41 50 2E 22 NTROLS THE TAP."
000120: 0D 0A 34 32 35 20 50 52 49 4E 54 0D 0A 34 33 30 ..425 PRINT..430
000130: 20 49 4E 50 55 54 20 22 59 4F 55 52 20 53 48 4F INPUT "YOUR SHO
000140: 54 22 3B 5A 0D 0A 34 34 30 20 50 3D 30 0D 0A 34 T";Z..440 P=0..4
000150: 34 35 20 49 46 20 5A 3C 3E 49 4E 54 28 5A 29 20 45 IF Z<>INT(Z)
000160: 54 48 45 4E 20 34 35 35 0D 0A 34 34 36 20 49 46 THEN 455..446 IF
000170: 20 5A 3C 30 20 4F 52 20 5A 3E 34 20 54 48 45 4E Z<0 OR Z>4 THEN
000180: 20 34 35 35 0D 0A 34 34 37 20 47 4F 54 4F 20 34 455..447 GOTO 4
000190: 36 30 0D 0A 34 35 35 20 50 52 49 4E 54 20 22 49 60..455 PRINT "I
0001A0: 4E 43 4F 52 52 45 43 54 20 41 4E 53 57 45 52 2E NCORRECT ANSWER.
0001B0: 20 20 52 45 54 59 50 45 20 49 54 2E 20 22 3B 3A RETYPE IT. ";:
0001C0: 47 4F 54 4F 20 34 33 30 0D 0A 34 36 30 20 49 46 GOTO 430..460 IF
0001D0: 20 52 4E 44 28 31 29 3C 2E 35 20 54 48 45 4E 20 RND(1)<.5 THEN
0001E0: 31 30 30 30 0D 0A 34 38 30 20 49 46 20 54 3C 31 1000..480 IF T<1
0001F0: 30 30 20 54 48 45 4E 20 31 30 30 30 0D 0A 34 39 00 THEN 1000..49
Size : 512 (Real : 512)
000000: 45 20 52 45 42 4F 55 4E 44 2E 22 0D 0A 31 34 32 E REBOUND."..142
000010: 30 20 49 46 20 52 4E 44 28 31 29 3E 2E 34 20 54 0 IF RND(1)>.4 T
000020: 48 45 4E 20 31 34 34 30 0D 0A 31 34 33 30 20 47 HEN 1440..1430 G
000030: 4F 54 4F 20 31 33 30 30 0D 0A 31 34 34 30 20 50 OTO 1300..1440 P
000040: 52 49 4E 54 20 22 42 41 4C 4C 20 50 41 53 53 45 RINT "BALL PASSE
000050: 44 20 42 41 43 4B 20 54 4F 20 59 4F 55 2E 22 3B D BACK TO YOU.";
000060: 0D 0A 31 34 35 30 20 47 4F 54 4F 20 34 33 30 0D ..1450 GOTO 430.
000070: 0A 31 35 30 30 20 49 46 20 37 2F 44 2A 52 4E 44 .1500 IF 7/D*RND
000080: 28 31 29 3E 2E 38 37 35 20 54 48 45 4E 20 31 36 (1)>.875 THEN 16
000090: 30 30 0D 0A 31 35 31 30 20 50 52 49 4E 54 20 22 00..1510 PRINT "
0000A0: 53 48 4F 4F 54 45 52 20 46 4F 55 4C 45 44 2E 20 SHOOTER FOULED.
0000B0: 20 54 57 4F 20 53 48 4F 54 53 2E 22 0D 0A 31 35 TWO SHOTS."..15
0000C0: 32 30 20 47 4F 53 55 42 20 34 30 30 30 0D 0A 31 20 GOSUB 4000..1
0000D0: 35 33 30 20 47 4F 54 4F 20 33 30 30 30 0D 0A 31 530 GOTO 3000..1
0000E0: 36 30 30 20 49 46 20 37 2F 44 2A 52 4E 44 28 31 600 IF 7/D*RND(1
0000F0: 29 3E 2E 39 32 35 20 54 48 45 4E 20 31 36 33 30 )>.925 THEN 1630
000100: 0D 0A 31 36 31 30 20 50 52 49 4E 54 20 22 53 48 ..1610 PRINT "SH
000110: 4F 54 20 42 4C 4F 43 4B 45 44 2E 20 22 3B 4F 24 OT BLOCKED. ";O$
000120: 3B 22 27 53 20 42 41 4C 4C 2E 22 0D 0A 31 36 32 ;"'S BALL."..162
000130: 30 20 47 4F 54 4F 20 33 30 30 30 0D 0A 31 36 33 0 GOTO 3000..163
000140: 30 20 50 52 49 4E 54 20 22 43 48 41 52 47 49 4E 0 PRINT "CHARGIN
000150: 47 20 46 4F 55 4C 2E 20 20 44 41 52 54 4D 4F 55 G FOUL. DARTMOU
000160: 54 48 20 4C 4F 53 45 53 20 54 48 45 20 42 41 4C TH LOSES THE BAL
000170: 4C 2E 22 0D 0A 31 36 34 30 20 47 4F 54 4F 20 33 L."..1640 GOTO 3
000180: 30 30 30 0D 0A 31 37 30 30 20 50 52 49 4E 54 20 000..1700 PRINT
000190: 22 53 45 54 20 53 48 4F 54 2E 22 0D 0A 31 37 31 "SET SHOT."..171
0001A0: 30 20 47 4F 54 4F 20 31 33 33 30 0D 0A 32 30 31 0 GOTO 1330..201
0001B0: 30 20 49 4E 50 55 54 20 22 59 4F 55 52 20 4E 45 0 INPUT "YOUR NE
0001C0: 57 20 44 45 46 45 4E 53 49 56 45 20 41 4C 4C 49 W DEFENSIVE ALLI
0001D0: 47 4E 4D 45 4E 54 20 49 53 22 3B 44 0D 0A 32 30 GNMENT IS";D..20
0001E0: 33 30 20 49 46 20 44 3C 36 20 54 48 45 4E 20 32 30 IF D<6 THEN 2
0001F0: 30 31 30 0D 0A 32 30 34 30 20 47 4F 54 4F 20 34 010..2040 GOTO 4
Size : 512 (Real : 512)
000000: 30 20 50 52 49 4E 54 0D 0A 34 39 31 20 49 46 20 0 PRINT..491 IF
000010: 53 28 31 29 3C 3E 53 28 30 29 20 54 48 45 4E 20 S(1)<>S(0) THEN
000020: 35 31 30 0D 0A 34 39 32 20 50 52 49 4E 54 3A 50 510..492 PRINT:P
000030: 52 49 4E 54 20 22 20 20 20 2A 2A 2A 2A 2A 20 45 RINT " ***** E
000040: 4E 44 20 4F 46 20 53 45 43 4F 4E 44 20 48 41 4C ND OF SECOND HAL
000050: 46 20 2A 2A 2A 2A 2A 22 3A 50 52 49 4E 54 0D 0A F *****":PRINT..
000060: 34 39 33 20 50 52 49 4E 54 20 22 53 43 4F 52 45 493 PRINT "SCORE
000070: 20 41 54 20 45 4E 44 20 4F 46 20 52 45 47 55 4C AT END OF REGUL
000080: 41 54 49 4F 4E 20 54 49 4D 45 3A 22 0D 0A 34 39 ATION TIME:"..49
000090: 34 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 4 PRINT "
0000A0: 20 44 41 52 54 4D 4F 55 54 48 3A 22 3B 53 28 31 DARTMOUTH:";S(1
0000B0: 29 3B 22 20 20 22 3B 4F 24 3B 22 3A 22 3B 53 28 );" ";O$;":";S(
0000C0: 30 29 0D 0A 34 39 35 20 50 52 49 4E 54 0D 0A 34 0)..495 PRINT..4
0000D0: 39 36 20 50 52 49 4E 54 20 22 42 45 47 49 4E 20 96 PRINT "BEGIN
0000E0: 54 57 4F 20 4D 49 4E 55 54 45 20 4F 56 45 52 54 TWO MINUTE OVERT
0000F0: 49 4D 45 20 50 45 52 49 4F 44 22 0D 0A 34 39 39 IME PERIOD"..499
000100: 20 54 3D 39 33 0D 0A 35 30 30 20 47 4F 54 4F 20 T=93..500 GOTO
000110: 33 37 30 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 370..510 PRINT "
000120: 20 20 20 2A 2A 2A 2A 2A 20 45 4E 44 20 4F 46 20 ***** END OF
000130: 47 41 4D 45 20 2A 2A 2A 2A 2A 22 0D 0A 35 31 35 GAME *****"..515
000140: 20 50 52 49 4E 54 20 22 46 49 4E 41 4C 20 53 43 PRINT "FINAL SC
000150: 4F 52 45 3A 20 44 41 52 54 4D 4F 55 54 48 3A 22 ORE: DARTMOUTH:"
000160: 3B 53 28 31 29 3B 22 20 20 22 3B 4F 24 3B 22 3A ;S(1);" ";O$;":
000170: 22 3B 53 28 30 29 0D 0A 35 32 30 20 53 54 4F 50 ";S(0)..520 STOP
000180: 0D 0A 36 30 30 20 50 52 49 4E 54 0D 0A 36 31 30 ..600 PRINT..610
000190: 20 50 52 49 4E 54 20 22 20 20 20 2A 2A 2A 20 54 PRINT " *** T
0001A0: 57 4F 20 4D 49 4E 55 54 45 53 20 4C 45 46 54 20 WO MINUTES LEFT
0001B0: 49 4E 20 54 48 45 20 47 41 4D 45 20 2A 2A 2A 22 IN THE GAME ***"
0001C0: 0D 0A 36 32 30 20 50 52 49 4E 54 0D 0A 36 33 30 ..620 PRINT..630
0001D0: 20 52 45 54 55 52 4E 0D 0A 31 30 30 30 20 4F 4E RETURN..1000 ON
0001E0: 20 5A 20 47 4F 54 4F 20 31 30 34 30 2C 31 30 34 Z GOTO 1040,104
0001F0: 30 0D 0A 31 30 33 30 20 47 4F 54 4F 20 31 33 30 0..1030 GOTO 130
Size : 512 (Real : 512)
000000: 32 35 0D 0A 33 30 30 30 20 50 3D 31 0D 0A 33 30 25..3000 P=1..30
000010: 30 35 20 54 3D 54 2B 31 0D 0A 33 30 30 38 20 49 05 T=T+1..3008 I
000020: 46 20 54 3D 35 30 20 54 48 45 4E 20 38 30 30 30 F T=50 THEN 8000
000030: 0D 0A 33 30 31 32 20 47 4F 54 4F 20 33 30 31 38 ..3012 GOTO 3018
000040: 0D 0A 33 30 31 35 20 47 4F 53 55 42 20 36 30 30 ..3015 GOSUB 600
000050: 0D 0A 33 30 31 38 20 50 52 49 4E 54 0D 0A 33 30 ..3018 PRINT..30
000060: 32 30 20 5A 31 3D 31 30 2F 34 2A 52 4E 44 28 31 20 Z1=10/4*RND(1
000070: 29 2B 31 0D 0A 33 30 33 30 20 49 46 20 5A 31 3E )+1..3030 IF Z1>
000080: 32 20 54 48 45 4E 20 33 35 30 30 0D 0A 33 30 34 2 THEN 3500..304
000090: 30 20 50 52 49 4E 54 20 22 4A 55 4D 50 20 53 48 0 PRINT "JUMP SH
0000A0: 4F 54 2E 22 0D 0A 33 30 35 30 20 49 46 20 38 2F OT."..3050 IF 8/
0000B0: 44 2A 52 4E 44 28 31 29 3E 2E 33 35 20 54 48 45 D*RND(1)>.35 THE
0000C0: 4E 20 33 31 30 30 0D 0A 33 30 36 30 20 50 52 49 N 3100..3060 PRI
0000D0: 4E 54 20 22 53 48 4F 54 20 49 53 20 47 4F 4F 44 NT "SHOT IS GOOD
0000E0: 2E 22 0D 0A 33 30 38 30 20 47 4F 53 55 42 20 36 ."..3080 GOSUB 6
0000F0: 30 30 30 0D 0A 33 30 39 30 20 47 4F 54 4F 20 34 000..3090 GOTO 4
000100: 32 35 0D 0A 33 31 30 30 20 49 46 20 38 2F 44 2A 25..3100 IF 8/D*
000110: 52 4E 44 28 31 29 3E 2E 37 35 20 54 48 45 4E 20 RND(1)>.75 THEN
000120: 33 32 30 30 0D 0A 33 31 30 35 20 50 52 49 4E 54 3200..3105 PRINT
000130: 20 22 53 48 4F 54 20 49 53 20 4F 46 46 20 52 49 "SHOT IS OFF RI
000140: 4D 2E 22 0D 0A 33 31 31 30 20 49 46 20 44 2F 36 M."..3110 IF D/6
000150: 2A 52 4E 44 28 31 29 3E 2E 35 20 54 48 45 4E 20 *RND(1)>.5 THEN
000160: 33 31 35 30 0D 0A 33 31 32 30 20 50 52 49 4E 54 3150..3120 PRINT
000170: 20 22 44 41 52 54 4D 4F 55 54 48 20 43 4F 4E 54 "DARTMOUTH CONT
000180: 52 4F 4C 53 20 54 48 45 20 52 45 42 4F 55 4E 44 ROLS THE REBOUND
000190: 2E 22 0D 0A 33 31 33 30 20 47 4F 54 4F 20 34 32 ."..3130 GOTO 42
0001A0: 35 0D 0A 33 31 35 30 20 50 52 49 4E 54 20 4F 24 5..3150 PRINT O$
0001B0: 3B 22 20 43 4F 4E 54 52 4F 4C 53 20 54 48 45 20 ;" CONTROLS THE
0001C0: 52 45 42 4F 55 4E 44 2E 22 0D 0A 33 31 36 30 20 REBOUND."..3160
0001D0: 49 46 20 44 3D 36 20 54 48 45 4E 20 35 30 30 30 IF D=6 THEN 5000
0001E0: 0D 0A 33 31 36 35 20 49 46 20 52 4E 44 28 31 29 ..3165 IF RND(1)
0001F0: 3E 2E 35 20 54 48 45 4E 20 33 31 37 35 0D 0A 33 >.5 THEN 3175..3
Size : 512 (Real : 512)
000000: 30 0D 0A 31 30 34 30 20 54 3D 54 2B 31 0D 0A 31 0..1040 T=T+1..1
000010: 30 34 31 20 49 46 20 54 3D 35 30 20 54 48 45 4E 041 IF T=50 THEN
000020: 20 38 30 30 30 0D 0A 31 30 34 32 20 49 46 20 54 8000..1042 IF T
000030: 3D 39 32 20 54 48 45 4E 20 31 30 34 36 0D 0A 31 =92 THEN 1046..1
000040: 30 34 33 20 47 4F 54 4F 20 31 30 35 30 0D 0A 31 043 GOTO 1050..1
000050: 30 34 36 20 47 4F 53 55 42 20 36 30 30 0D 0A 31 046 GOSUB 600..1
000060: 30 35 30 20 50 52 49 4E 54 20 22 4A 55 4D 50 20 050 PRINT "JUMP
000070: 53 48 4F 54 22 0D 0A 31 30 36 30 20 49 46 20 52 SHOT"..1060 IF R
000080: 4E 44 28 31 29 3E 2E 33 34 31 2A 44 2F 38 20 54 ND(1)>.341*D/8 T
000090: 48 45 4E 20 31 30 39 30 0D 0A 31 30 37 30 20 50 HEN 1090..1070 P
0000A0: 52 49 4E 54 20 22 53 48 4F 54 20 49 53 20 47 4F RINT "SHOT IS GO
0000B0: 4F 44 2E 22 0D 0A 31 30 37 35 20 47 4F 53 55 42 OD."..1075 GOSUB
0000C0: 20 37 30 30 30 0D 0A 31 30 38 35 20 47 4F 54 4F 7000..1085 GOTO
0000D0: 20 33 30 30 30 0D 0A 31 30 39 30 20 49 46 20 52 3000..1090 IF R
0000E0: 4E 44 28 31 29 3E 2E 36 38 32 2A 44 2F 38 20 54 ND(1)>.682*D/8 T
0000F0: 48 45 4E 20 31 32 30 30 0D 0A 31 31 30 30 20 50 HEN 1200..1100 P
000100: 52 49 4E 54 20 22 53 48 4F 54 20 49 53 20 4F 46 RINT "SHOT IS OF
000110: 46 20 54 41 52 47 45 54 2E 22 0D 0A 31 31 30 35 F TARGET."..1105
000120: 20 49 46 20 44 2F 36 2A 52 4E 44 28 31 29 3E 2E IF D/6*RND(1)>.
000130: 34 35 20 54 48 45 4E 20 31 31 33 30 0D 0A 31 31 45 THEN 1130..11
000140: 31 30 20 50 52 49 4E 54 20 22 44 41 52 54 4D 4F 10 PRINT "DARTMO
000150: 55 54 48 20 43 4F 4E 54 52 4F 4C 53 20 54 48 45 UTH CONTROLS THE
000160: 20 52 45 42 4F 55 4E 44 2E 22 0D 0A 31 31 32 30 REBOUND."..1120
000170: 20 47 4F 54 4F 20 31 31 34 35 0D 0A 31 31 33 30 GOTO 1145..1130
000180: 20 50 52 49 4E 54 20 22 52 45 42 4F 55 4E 44 20 PRINT "REBOUND
000190: 54 4F 20 22 3B 4F 24 0D 0A 31 31 34 30 20 47 4F TO ";O$..1140 GO
0001A0: 54 4F 20 33 30 30 30 0D 0A 31 31 34 35 20 49 46 TO 3000..1145 IF
0001B0: 20 52 4E 44 28 31 29 3E 2E 34 20 54 48 45 4E 20 RND(1)>.4 THEN
0001C0: 31 31 35 38 0D 0A 31 31 35 30 20 47 4F 54 4F 20 1158..1150 GOTO
0001D0: 31 33 30 30 0D 0A 31 31 35 38 20 49 46 20 44 3D 1300..1158 IF D=
0001E0: 36 20 54 48 45 4E 20 35 31 30 30 0D 0A 31 31 36 6 THEN 5100..116
0001F0: 30 20 50 52 49 4E 54 20 22 42 41 4C 4C 20 50 41 0 PRINT "BALL PA
Size : 512 (Real : 512)
000000: 31 36 38 20 50 52 49 4E 54 20 22 50 41 53 53 20 168 PRINT "PASS
000010: 42 41 43 4B 20 54 4F 20 22 3B 4F 24 3B 22 20 47 BACK TO ";O$;" G
000020: 55 41 52 44 2E 22 0D 0A 33 31 37 30 20 47 4F 54 UARD."..3170 GOT
000030: 4F 20 33 30 30 30 0D 0A 33 31 37 35 20 47 4F 54 O 3000..3175 GOT
000040: 4F 20 33 35 30 30 0D 0A 33 32 30 30 20 49 46 20 O 3500..3200 IF
000050: 38 2F 44 2A 52 4E 44 28 31 29 3E 2E 39 20 54 48 8/D*RND(1)>.9 TH
000060: 45 4E 20 33 33 31 30 0D 0A 33 32 31 30 20 50 52 EN 3310..3210 PR
000070: 49 4E 54 20 22 50 4C 41 59 45 52 20 46 4F 55 4C INT "PLAYER FOUL
000080: 45 44 2E 20 20 54 57 4F 20 53 48 4F 54 53 2E 22 ED. TWO SHOTS."
000090: 0D 0A 33 32 32 30 20 47 4F 53 55 42 20 34 30 30 ..3220 GOSUB 400
0000A0: 30 0D 0A 33 32 33 30 20 47 4F 54 4F 20 34 32 35 0..3230 GOTO 425
0000B0: 0D 0A 33 33 31 30 20 50 52 49 4E 54 20 22 4F 46 ..3310 PRINT "OF
0000C0: 46 45 4E 53 49 56 45 20 46 4F 55 4C 2E 20 20 44 FENSIVE FOUL. D
0000D0: 41 52 54 4D 4F 55 54 48 27 53 20 42 41 4C 4C 2E ARTMOUTH'S BALL.
0000E0: 22 0D 0A 33 33 32 30 20 47 4F 54 4F 20 34 32 35 "..3320 GOTO 425
0000F0: 0D 0A 33 35 30 30 20 49 46 20 5A 31 3E 33 20 54 ..3500 IF Z1>3 T
000100: 48 45 4E 20 33 38 30 30 0D 0A 33 35 31 30 20 50 HEN 3800..3510 P
000110: 52 49 4E 54 20 22 4C 41 59 20 55 50 2E 22 0D 0A RINT "LAY UP."..
000120: 33 35 32 30 20 49 46 20 37 2F 44 2A 52 4E 44 28 3520 IF 7/D*RND(
000130: 31 29 3E 2E 34 31 33 20 54 48 45 4E 20 33 36 30 1)>.413 THEN 360
000140: 30 0D 0A 33 35 33 30 20 50 52 49 4E 54 20 22 53 0..3530 PRINT "S
000150: 48 4F 54 20 49 53 20 47 4F 4F 44 2E 22 0D 0A 33 HOT IS GOOD."..3
000160: 35 34 30 20 47 4F 53 55 42 20 36 30 30 30 0D 0A 540 GOSUB 6000..
000170: 33 35 35 30 20 47 4F 54 4F 20 34 32 35 0D 0A 33 3550 GOTO 425..3
000180: 36 30 30 20 50 52 49 4E 54 20 22 53 48 4F 54 20 600 PRINT "SHOT
000190: 49 53 20 4D 49 53 53 45 44 2E 22 0D 0A 33 36 31 IS MISSED."..361
0001A0: 30 20 47 4F 54 4F 20 33 31 31 30 0D 0A 33 38 30 0 GOTO 3110..380
0001B0: 30 20 50 52 49 4E 54 20 22 53 45 54 20 53 48 4F 0 PRINT "SET SHO
0001C0: 54 2E 22 0D 0A 33 38 31 30 20 47 4F 54 4F 20 33 T."..3810 GOTO 3
0001D0: 35 32 30 0D 0A 34 30 30 30 20 52 45 4D 20 46 4F 520..4000 REM FO
0001E0: 55 4C 20 53 48 4F 4F 54 49 4E 47 0D 0A 34 30 31 UL SHOOTING..401
0001F0: 30 20 49 46 20 52 4E 44 28 31 29 3E 2E 34 39 20 0 IF RND(1)>.49
Size : 512 (Real : 512)
000000: 0D 0A 31 38 30 20 50 52 49 4E 54 20 22 44 4F 4E ..180 PRINT "DON
000010: 27 54 20 55 53 45 20 5A 45 52 4F 2C 20 48 4F 57 'T USE ZERO, HOW
000020: 45 56 45 52 2C 20 49 4E 20 50 4C 41 59 49 4E 47 EVER, IN PLAYING
000030: 20 54 48 45 20 47 41 4D 45 2E 22 0D 0A 31 39 30 THE GAME."..190
000040: 20 50 52 49 4E 54 20 22 45 4E 54 45 52 20 41 20 PRINT "ENTER A
000050: 4E 45 47 41 54 49 56 45 20 4E 55 4D 42 45 52 20 NEGATIVE NUMBER
000060: 46 4F 52 20 4E 45 57 20 50 49 4C 45 20 53 49 5A FOR NEW PILE SIZ
000070: 45 20 54 4F 20 53 54 4F 50 20 50 4C 41 59 49 4E E TO STOP PLAYIN
000080: 47 2E 22 0D 0A 32 30 30 20 50 52 49 4E 54 0D 0A G."..200 PRINT..
000090: 32 31 30 20 47 4F 54 4F 20 33 33 30 0D 0A 32 32 210 GOTO 330..22
0000A0: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 0D 0 FOR I=1 TO 10.
0000B0: 0A 32 33 30 20 50 52 49 4E 54 0D 0A 32 34 30 20 .230 PRINT..240
0000C0: 4E 45 58 54 20 49 0D 0A 33 33 30 20 49 4E 50 55 NEXT I..330 INPU
0000D0: 54 20 22 45 4E 54 45 52 20 50 49 4C 45 20 53 49 T "ENTER PILE SI
0000E0: 5A 45 22 3B 4E 0D 0A 33 35 30 20 49 46 20 4E 3E ZE";N..350 IF N>
0000F0: 3D 31 20 54 48 45 4E 20 33 37 30 0D 0A 33 36 30 =1 THEN 370..360
000100: 20 47 4F 54 4F 20 33 33 30 0D 0A 33 37 30 20 49 GOTO 330..370 I
000110: 46 20 4E 3C 3E 49 4E 54 28 4E 29 20 54 48 45 4E F N<>INT(N) THEN
000120: 20 32 32 30 0D 0A 33 38 30 20 49 46 20 4E 3C 31 220..380 IF N<1
000130: 20 54 48 45 4E 20 32 32 30 0D 0A 33 39 30 20 49 THEN 220..390 I
000140: 4E 50 55 54 20 22 45 4E 54 45 52 20 57 49 4E 20 NPUT "ENTER WIN
000150: 4F 50 54 49 4F 4E 20 2D 20 31 20 54 4F 20 54 41 OPTION - 1 TO TA
000160: 4B 45 20 4C 41 53 54 2C 20 32 20 54 4F 20 41 56 KE LAST, 2 TO AV
000170: 4F 49 44 20 4C 41 53 54 3A 20 22 3B 4D 0D 0A 34 OID LAST: ";M..4
000180: 31 30 20 49 46 20 4D 3D 31 20 54 48 45 4E 20 34 10 IF M=1 THEN 4
000190: 33 30 0D 0A 34 32 30 20 49 46 20 4D 3C 3E 32 20 30..420 IF M<>2
0001A0: 54 48 45 4E 20 33 39 30 0D 0A 34 33 30 20 49 4E THEN 390..430 IN
0001B0: 50 55 54 20 22 45 4E 54 45 52 20 4D 49 4E 20 41 PUT "ENTER MIN A
0001C0: 4E 44 20 4D 41 58 20 22 3B 41 2C 42 0D 0A 34 35 ND MAX ";A,B..45
0001D0: 30 20 49 46 20 41 3E 42 20 54 48 45 4E 20 34 33 0 IF A>B THEN 43
0001E0: 30 0D 0A 34 36 30 20 49 46 20 41 3C 31 20 54 48 0..460 IF A<1 TH
0001F0: 45 4E 20 34 33 30 0D 0A 34 37 30 20 49 46 20 41 EN 430..470 IF A
Size : 512 (Real : 512)
000000: 54 48 45 4E 20 34 30 35 30 0D 0A 34 30 32 30 20 THEN 4050..4020
000010: 50 52 49 4E 54 20 22 53 48 4F 4F 54 45 52 20 4D PRINT "SHOOTER M
000020: 41 4B 45 53 20 42 4F 54 48 20 53 48 4F 54 53 2E AKES BOTH SHOTS.
000030: 22 0D 0A 34 30 33 30 20 53 28 31 2D 50 29 3D 53 "..4030 S(1-P)=S
000040: 28 31 2D 50 29 2B 32 0D 0A 34 30 34 30 20 47 4F (1-P)+2..4040 GO
000050: 53 55 42 20 36 30 31 30 0D 0A 34 30 34 31 20 52 SUB 6010..4041 R
000060: 45 54 55 52 4E 0D 0A 34 30 35 30 20 49 46 20 52 ETURN..4050 IF R
000070: 4E 44 28 31 29 3E 2E 37 35 20 54 48 45 4E 20 34 ND(1)>.75 THEN 4
000080: 31 30 30 0D 0A 34 30 36 30 20 50 52 49 4E 54 20 100..4060 PRINT
000090: 22 53 48 4F 4F 54 45 52 20 4D 41 4B 45 53 20 4F "SHOOTER MAKES O
0000A0: 4E 45 20 53 48 4F 54 20 41 4E 44 20 4D 49 53 53 NE SHOT AND MISS
0000B0: 45 53 20 4F 4E 45 2E 22 0D 0A 34 30 37 30 20 53 ES ONE."..4070 S
0000C0: 28 31 2D 50 29 3D 53 28 31 2D 50 29 2B 31 0D 0A (1-P)=S(1-P)+1..
0000D0: 34 30 38 30 20 47 4F 54 4F 20 34 30 34 30 0D 0A 4080 GOTO 4040..
0000E0: 34 31 30 30 20 50 52 49 4E 54 20 22 42 4F 54 48 4100 PRINT "BOTH
0000F0: 20 53 48 4F 54 53 20 4D 49 53 53 45 44 2E 22 0D SHOTS MISSED.".
000100: 0A 34 31 31 30 20 47 4F 54 4F 20 34 30 34 30 0D .4110 GOTO 4040.
000110: 0A 35 30 30 30 20 49 46 20 52 4E 44 28 31 29 3E .5000 IF RND(1)>
000120: 2E 37 35 20 54 48 45 4E 20 35 30 31 30 0D 0A 35 .75 THEN 5010..5
000130: 30 30 35 20 47 4F 54 4F 20 33 31 36 35 0D 0A 35 005 GOTO 3165..5
000140: 30 31 30 20 50 52 49 4E 54 20 22 42 41 4C 4C 20 010 PRINT "BALL
000150: 53 54 4F 4C 45 4E 2E 20 20 45 41 53 59 20 4C 41 STOLEN. EASY LA
000160: 59 20 55 50 20 46 4F 52 20 44 41 52 54 4D 4F 55 Y UP FOR DARTMOU
000170: 54 48 2E 22 0D 0A 35 30 31 35 20 47 4F 53 55 42 TH."..5015 GOSUB
000180: 20 37 30 30 30 0D 0A 35 30 33 30 20 47 4F 54 4F 7000..5030 GOTO
000190: 20 33 30 30 30 0D 0A 35 31 30 30 20 49 46 20 52 3000..5100 IF R
0001A0: 4E 44 28 31 29 3E 2E 36 20 54 48 45 4E 20 35 31 ND(1)>.6 THEN 51
0001B0: 32 30 0D 0A 35 31 31 30 20 47 4F 54 4F 20 31 31 20..5110 GOTO 11
0001C0: 36 30 0D 0A 35 31 32 30 20 50 52 49 4E 54 20 22 60..5120 PRINT "
0001D0: 50 41 53 53 20 53 54 4F 4C 45 4E 20 42 59 20 22 PASS STOLEN BY "
0001E0: 3B 4F 24 3B 22 20 45 41 53 59 20 4C 41 59 55 50 ;O$;" EASY LAYUP
0001F0: 2E 22 0D 0A 35 31 33 30 20 47 4F 53 55 42 20 36 ."..5130 GOSUB 6
Size : 512 (Real : 512)
000000: 3C 3E 49 4E 54 28 41 29 20 54 48 45 4E 20 34 33 <>INT(A) THEN 43
000010: 30 0D 0A 34 38 30 20 49 46 20 42 3C 3E 49 4E 54 0..480 IF B<>INT
000020: 28 42 29 20 54 48 45 4E 20 34 33 30 0D 0A 34 39 (B) THEN 430..49
000030: 30 20 49 4E 50 55 54 20 22 45 4E 54 45 52 20 53 0 INPUT "ENTER S
000040: 54 41 52 54 20 4F 50 54 49 4F 4E 20 2D 20 31 20 TART OPTION - 1
000050: 43 4F 4D 50 55 54 45 52 20 46 49 52 53 54 2C 20 COMPUTER FIRST,
000060: 32 20 59 4F 55 20 46 49 52 53 54 20 22 3B 53 0D 2 YOU FIRST ";S.
000070: 0A 35 30 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 .500 PRINT:PRINT
000080: 0D 0A 35 31 30 20 49 46 20 53 3D 31 20 54 48 45 ..510 IF S=1 THE
000090: 4E 20 35 33 30 0D 0A 35 32 30 20 49 46 20 53 3C N 530..520 IF S<
0000A0: 3E 32 20 54 48 45 4E 20 34 39 30 0D 0A 35 33 30 >2 THEN 490..530
0000B0: 20 43 3D 41 2B 42 0D 0A 35 34 30 20 49 46 20 53 C=A+B..540 IF S
0000C0: 3D 32 20 54 48 45 4E 20 35 37 30 0D 0A 35 35 30 =2 THEN 570..550
0000D0: 20 47 4F 53 55 42 20 36 30 30 0D 0A 35 36 30 20 GOSUB 600..560
0000E0: 49 46 20 57 3D 31 20 54 48 45 4E 20 32 32 30 0D IF W=1 THEN 220.
0000F0: 0A 35 37 30 20 47 4F 53 55 42 20 38 31 30 0D 0A .570 GOSUB 810..
000100: 35 38 30 20 49 46 20 57 3D 31 20 54 48 45 4E 20 580 IF W=1 THEN
000110: 32 32 30 0D 0A 35 39 30 20 47 4F 54 4F 20 35 35 220..590 GOTO 55
000120: 30 0D 0A 36 30 30 20 51 3D 4E 0D 0A 36 31 30 20 0..600 Q=N..610
000130: 49 46 20 4D 3D 31 20 54 48 45 4E 20 36 33 30 0D IF M=1 THEN 630.
000140: 0A 36 32 30 20 51 3D 51 2D 31 0D 0A 36 33 30 20 .620 Q=Q-1..630
000150: 49 46 20 4D 3D 31 20 54 48 45 4E 20 36 38 30 0D IF M=1 THEN 680.
000160: 0A 36 34 30 20 49 46 20 4E 3E 41 20 54 48 45 4E .640 IF N>A THEN
000170: 20 37 32 30 0D 0A 36 35 30 20 57 3D 31 0D 0A 36 720..650 W=1..6
000180: 36 30 20 50 52 49 4E 54 20 22 43 4F 4D 50 55 54 60 PRINT "COMPUT
000190: 45 52 20 54 41 4B 45 53 22 3B 4E 3B 22 41 4E 44 ER TAKES";N;"AND
0001A0: 20 4C 4F 53 45 53 2E 22 0D 0A 36 37 30 20 52 45 LOSES."..670 RE
0001B0: 54 55 52 4E 0D 0A 36 38 30 20 49 46 20 4E 3E 42 TURN..680 IF N>B
0001C0: 20 54 48 45 4E 20 37 32 30 0D 0A 36 39 30 20 57 THEN 720..690 W
0001D0: 3D 31 0D 0A 37 30 30 20 50 52 49 4E 54 20 22 43 =1..700 PRINT "C
0001E0: 4F 4D 50 55 54 45 52 20 54 41 4B 45 53 22 3B 4E OMPUTER TAKES";N
0001F0: 3B 22 41 4E 44 20 57 49 4E 53 2E 22 0D 0A 37 31 ;"AND WINS."..71
Size : 512 (Real : 512)
000000: 30 30 30 0D 0A 35 31 34 30 20 47 4F 54 4F 20 34 000..5140 GOTO 4
000010: 32 35 0D 0A 36 30 30 30 20 53 28 30 29 3D 53 28 25..6000 S(0)=S(
000020: 30 29 2B 32 0D 0A 36 30 31 30 20 50 52 49 4E 54 0)+2..6010 PRINT
000030: 20 22 53 43 4F 52 45 3A 20 22 3B 53 28 31 29 3B "SCORE: ";S(1);
000040: 22 54 4F 22 3B 53 28 30 29 0D 0A 36 30 32 30 20 "TO";S(0)..6020
000050: 52 45 54 55 52 4E 0D 0A 37 30 30 30 20 53 28 31 RETURN..7000 S(1
000060: 29 3D 53 28 31 29 2B 32 0D 0A 37 30 31 30 20 47 )=S(1)+2..7010 G
000070: 4F 53 55 42 20 36 30 31 30 0D 0A 37 30 32 30 20 OSUB 6010..7020
000080: 52 45 54 55 52 4E 0D 0A 38 30 30 30 20 50 52 49 RETURN..8000 PRI
000090: 4E 54 3A 50 52 49 4E 54 20 22 20 20 20 2A 2A 2A NT:PRINT " ***
0000A0: 2A 2A 20 45 4E 44 20 4F 46 20 46 49 52 53 54 20 ** END OF FIRST
0000B0: 48 41 4C 46 20 2A 2A 2A 2A 2A 22 3A 50 52 49 4E HALF *****":PRIN
0000C0: 54 0D 0A 38 30 31 30 20 50 52 49 4E 54 20 22 53 T..8010 PRINT "S
0000D0: 43 4F 52 45 3A 20 44 41 52 54 4D 4F 55 54 48 3A CORE: DARTMOUTH:
0000E0: 22 3B 53 28 31 29 3B 22 20 20 22 3B 4F 24 3B 22 ";S(1);" ";O$;"
0000F0: 3A 22 3B 53 28 30 29 0D 0A 38 30 31 35 20 50 52 :";S(0)..8015 PR
000100: 49 4E 54 0D 0A 38 30 31 36 20 50 52 49 4E 54 0D INT..8016 PRINT.
000110: 0A 38 30 32 30 20 47 4F 54 4F 20 33 37 30 0D 0A .8020 GOTO 370..
000120: 39 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 9999 END........
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 30 20 52 45 54 55 52 4E 0D 0A 37 32 30 20 50 3D 0 RETURN..720 P=
000010: 51 2D 43 2A 49 4E 54 28 51 2F 43 29 0D 0A 37 33 Q-C*INT(Q/C)..73
000020: 30 20 49 46 20 50 3E 3D 41 20 54 48 45 4E 20 37 0 IF P>=A THEN 7
000030: 35 30 0D 0A 37 34 30 20 50 3D 41 0D 0A 37 35 30 50..740 P=A..750
000040: 20 49 46 20 50 3C 3D 42 20 54 48 45 4E 20 37 37 IF P<=B THEN 77
000050: 30 0D 0A 37 36 30 20 50 3D 42 0D 0A 37 37 30 20 0..760 P=B..770
000060: 4E 3D 4E 2D 50 0D 0A 37 38 30 20 50 52 49 4E 54 N=N-P..780 PRINT
000070: 20 22 43 4F 4D 50 55 54 45 52 20 54 41 4B 45 53 "COMPUTER TAKES
000080: 22 3B 50 3B 22 41 4E 44 20 4C 45 41 56 45 53 22 ";P;"AND LEAVES"
000090: 3B 4E 0D 0A 37 39 30 20 57 3D 30 0D 0A 38 30 30 ;N..790 W=0..800
0000A0: 20 52 45 54 55 52 4E 0D 0A 38 31 30 20 50 52 49 RETURN..810 PRI
0000B0: 4E 54 3A 50 52 49 4E 54 20 22 59 4F 55 52 20 4D NT:PRINT "YOUR M
0000C0: 4F 56 45 20 22 3B 0D 0A 38 32 30 20 49 4E 50 55 OVE ";..820 INPU
0000D0: 54 20 50 0D 0A 38 33 30 20 49 46 20 50 3C 3E 30 T P..830 IF P<>0
0000E0: 20 54 48 45 4E 20 38 37 30 0D 0A 38 34 30 20 50 THEN 870..840 P
0000F0: 52 49 4E 54 20 22 49 20 54 4F 4C 44 20 59 4F 55 RINT "I TOLD YOU
000100: 20 4E 4F 54 20 54 4F 20 55 53 45 20 5A 45 52 4F NOT TO USE ZERO
000110: 21 20 43 4F 4D 50 55 54 45 52 20 57 49 4E 53 20 ! COMPUTER WINS
000120: 42 59 20 46 4F 52 46 45 49 54 2E 22 0D 0A 38 35 BY FORFEIT."..85
000130: 30 20 57 3D 31 0D 0A 38 36 30 20 52 45 54 55 52 0 W=1..860 RETUR
000140: 4E 0D 0A 38 37 30 20 49 46 20 50 3C 3E 49 4E 54 N..870 IF P<>INT
000150: 28 50 29 20 54 48 45 4E 20 39 32 30 0D 0A 38 38 (P) THEN 920..88
000160: 30 20 49 46 20 50 3E 3D 41 20 54 48 45 4E 20 39 0 IF P>=A THEN 9
000170: 31 30 0D 0A 38 39 30 20 49 46 20 50 3D 4E 20 54 10..890 IF P=N T
000180: 48 45 4E 20 39 36 30 0D 0A 39 30 30 20 47 4F 54 HEN 960..900 GOT
000190: 4F 20 39 32 30 0D 0A 39 31 30 20 49 46 20 50 3C O 920..910 IF P<
0001A0: 3D 42 20 54 48 45 4E 20 39 34 30 0D 0A 39 32 30 =B THEN 940..920
0001B0: 20 50 52 49 4E 54 20 22 49 4C 4C 45 47 41 4C 20 PRINT "ILLEGAL
0001C0: 4D 4F 56 45 2C 20 52 45 45 4E 54 45 52 20 49 54 MOVE, REENTER IT
0001D0: 20 22 3B 0D 0A 39 33 30 20 47 4F 54 4F 20 38 32 ";..930 GOTO 82
0001E0: 30 0D 0A 39 34 30 20 4E 3D 4E 2D 50 0D 0A 39 35 0..940 N=N-P..95
0001F0: 30 20 49 46 20 4E 3C 3E 30 20 54 48 45 4E 20 31 0 IF N<>0 THEN 1
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 30 33 30 0D 0A 39 36 30 20 49 46 20 4D 3D 31 20 030..960 IF M=1
000010: 54 48 45 4E 20 31 30 30 30 0D 0A 39 37 30 20 50 THEN 1000..970 P
000020: 52 49 4E 54 20 22 54 4F 55 47 48 20 4C 55 43 4B RINT "TOUGH LUCK
000030: 2C 20 59 4F 55 20 4C 4F 53 45 2E 22 0D 0A 39 38 , YOU LOSE."..98
000040: 30 20 57 3D 31 0D 0A 39 39 30 20 52 45 54 55 52 0 W=1..990 RETUR
000050: 4E 0D 0A 31 30 30 30 20 50 52 49 4E 54 20 22 43 N..1000 PRINT "C
000060: 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 2C 20 ONGRATULATIONS,
000070: 59 4F 55 20 57 49 4E 2E 22 0D 0A 31 30 31 30 20 YOU WIN."..1010
000080: 57 3D 31 0D 0A 31 30 32 30 20 52 45 54 55 52 4E W=1..1020 RETURN
000090: 0D 0A 31 30 33 30 20 49 46 20 4E 3E 3D 30 20 54 ..1030 IF N>=0 T
0000A0: 48 45 4E 20 31 30 36 30 0D 0A 31 30 34 30 20 4E HEN 1060..1040 N
0000B0: 3D 4E 2B 50 0D 0A 31 30 35 30 20 47 4F 54 4F 20 =N+P..1050 GOTO
0000C0: 39 32 30 0D 0A 31 30 36 30 20 57 3D 30 0D 0A 31 920..1060 W=0..1
0000D0: 30 37 30 20 52 45 54 55 52 4E 0D 0A 31 30 38 30 070 RETURN..1080
0000E0: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 42 41 54 4E 55 4D 22 0D 0A 32 30 20 50 52 ;"BATNUM"..20 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
000060: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
000070: 31 31 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 110 PRINT "THIS
000080: 50 52 4F 47 52 41 4D 20 49 53 20 41 20 27 42 41 PROGRAM IS A 'BA
000090: 54 54 4C 45 20 4F 46 20 4E 55 4D 42 45 52 53 27 TTLE OF NUMBERS'
0000A0: 20 47 41 4D 45 2C 20 57 48 45 52 45 20 54 48 45 GAME, WHERE THE
0000B0: 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 43 4F "..120 PRINT "CO
0000C0: 4D 50 55 54 45 52 20 49 53 20 59 4F 55 52 20 4F MPUTER IS YOUR O
0000D0: 50 50 4F 4E 45 4E 54 2E 22 0D 0A 31 33 30 20 50 PPONENT."..130 P
0000E0: 52 49 4E 54 20 0D 0A 31 34 30 20 50 52 49 4E 54 RINT ..140 PRINT
0000F0: 20 22 54 48 45 20 47 41 4D 45 20 53 54 41 52 54 "THE GAME START
000100: 53 20 57 49 54 48 20 41 4E 20 41 53 53 55 4D 45 S WITH AN ASSUME
000110: 44 20 50 49 4C 45 20 4F 46 20 4F 42 4A 45 43 54 D PILE OF OBJECT
000120: 53 2E 20 59 4F 55 22 0D 0A 31 35 30 20 50 52 49 S. YOU"..150 PRI
000130: 4E 54 20 22 41 4E 44 20 59 4F 55 52 20 4F 50 50 NT "AND YOUR OPP
000140: 4F 4E 45 4E 54 20 41 4C 54 45 52 4E 41 54 45 4C ONENT ALTERNATEL
000150: 59 20 52 45 4D 4F 56 45 20 4F 42 4A 45 43 54 53 Y REMOVE OBJECTS
000160: 20 46 52 4F 4D 20 54 48 45 20 50 49 4C 45 2E 22 FROM THE PILE."
000170: 0D 0A 31 36 30 20 50 52 49 4E 54 20 22 57 49 4E ..160 PRINT "WIN
000180: 4E 49 4E 47 20 49 53 20 44 45 46 49 4E 45 44 20 NING IS DEFINED
000190: 49 4E 20 41 44 56 41 4E 43 45 20 41 53 20 54 41 IN ADVANCE AS TA
0001A0: 4B 49 4E 47 20 54 48 45 20 4C 41 53 54 20 4F 42 KING THE LAST OB
0001B0: 4A 45 43 54 20 4F 52 22 0D 0A 31 37 30 20 50 52 JECT OR"..170 PR
0001C0: 49 4E 54 20 22 4E 4F 54 2E 20 59 4F 55 20 43 41 INT "NOT. YOU CA
0001D0: 4E 20 41 4C 53 4F 20 53 50 45 43 49 46 59 20 53 N ALSO SPECIFY S
0001E0: 4F 4D 45 20 4F 54 48 45 52 20 42 45 47 49 4E 4E OME OTHER BEGINN
0001F0: 49 4E 47 20 43 4F 4E 44 49 54 49 4F 4E 53 2E 22 ING CONDITIONS."
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 36 35 30 20 49 46 20 5A 3D 31 20 54 48 45 4E 20 650 IF Z=1 THEN
000010: 39 30 0D 0A 36 36 30 20 49 46 20 46 28 5A 2D 31 90..660 IF F(Z-1
000020: 2C 42 29 3E 30 20 54 48 45 4E 20 39 30 0D 0A 36 ,B)>0 THEN 90..6
000030: 37 30 20 41 28 4B 2B 31 29 3D 5A 2D 31 0D 0A 36 70 A(K+1)=Z-1..6
000040: 38 30 20 4E 45 58 54 20 4B 0D 0A 36 39 30 20 46 80 NEXT K..690 F
000050: 28 41 2C 42 29 3D 39 2D 32 2A 49 2D 4A 0D 0A 37 (A,B)=9-2*I-J..7
000060: 30 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 4E 0D 00 FOR K=1 TO N.
000070: 0A 37 31 30 20 46 28 41 28 4B 2B 31 29 2C 42 29 .710 F(A(K+1),B)
000080: 3D 46 28 41 2C 42 29 0D 0A 37 32 30 20 4E 45 58 =F(A,B)..720 NEX
000090: 54 20 4B 0D 0A 37 33 30 20 47 4F 54 4F 20 39 39 T K..730 GOTO 99
0000A0: 30 0D 0A 37 34 30 20 41 28 31 29 3D 41 0D 0A 37 0..740 A(1)=A..7
0000B0: 35 30 20 42 28 31 29 3D 42 0D 0A 37 36 30 20 41 50 B(1)=B..760 A
0000C0: 28 32 29 3D 37 3A 41 28 33 29 3D 37 0D 0A 37 37 (2)=7:A(3)=7..77
0000D0: 30 20 42 28 32 29 3D 30 3A 42 28 33 29 3D 30 0D 0 B(2)=0:B(3)=0.
0000E0: 0A 37 38 30 20 46 4F 52 20 4B 3D 31 20 54 4F 20 .780 FOR K=1 TO
0000F0: 4E 0D 0A 37 39 30 20 49 46 20 4D 3E 31 20 54 48 N..790 IF M>1 TH
000100: 45 4E 20 38 37 30 0D 0A 38 30 30 20 49 46 20 41 EN 870..800 IF A
000110: 28 4B 29 3D 36 20 4F 52 20 42 28 4B 29 3D 31 20 (K)=6 OR B(K)=1
000120: 54 48 45 4E 20 38 36 30 0D 0A 38 31 30 20 49 46 THEN 860..810 IF
000130: 20 46 28 41 28 4B 29 2B 31 2C 42 28 4B 29 2D 31 F(A(K)+1,B(K)-1
000140: 29 3E 30 20 54 48 45 4E 20 38 36 30 0D 0A 38 32 )>0 THEN 860..82
000150: 30 20 49 46 20 46 28 41 28 4B 29 2B 31 2C 42 28 0 IF F(A(K)+1,B(
000160: 4B 29 29 3E 30 20 41 4E 44 20 46 28 41 28 4B 29 K))>0 AND F(A(K)
000170: 2B 31 2C 42 28 4B 29 29 3D 46 28 41 28 4B 29 2C +1,B(K))=F(A(K),
000180: 42 28 4B 29 2D 31 29 20 54 48 45 4E 20 38 36 30 B(K)-1) THEN 860
000190: 0D 0A 38 33 30 20 41 28 4B 2B 31 29 3D 41 28 4B ..830 A(K+1)=A(K
0001A0: 29 2B 31 0D 0A 38 34 30 20 42 28 4B 2B 31 29 3D )+1..840 B(K+1)=
0001B0: 42 28 4B 29 2D 31 0D 0A 38 35 30 20 47 4F 54 4F B(K)-1..850 GOTO
0001C0: 20 39 34 30 0D 0A 38 36 30 20 4D 3D 32 0D 0A 38 940..860 M=2..8
0001D0: 37 30 20 49 46 20 41 28 31 29 3C 41 28 32 29 20 70 IF A(1)<A(2)
0001E0: 41 4E 44 20 41 28 31 29 3C 41 28 33 29 20 54 48 AND A(1)<A(3) TH
0001F0: 45 4E 20 5A 31 3D 41 28 31 29 0D 0A 38 37 32 20 EN Z1=A(1)..872
Size : 512 (Real : 512)
000000: 35 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 5 PRINT TAB(33);
000010: 22 42 41 54 54 4C 45 22 0D 0A 37 20 50 52 49 4E "BATTLE"..7 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 31 30 20 52 45 4D 20 2D ERSEY"..10 REM -
000060: 2D 20 42 41 54 54 4C 45 20 57 52 49 54 54 45 4E - BATTLE WRITTEN
000070: 20 42 59 20 52 41 59 20 57 45 53 54 45 52 47 41 BY RAY WESTERGA
000080: 52 44 20 20 31 30 2F 37 30 0D 0A 32 30 20 52 45 RD 10/70..20 RE
000090: 4D 20 43 4F 50 59 52 49 47 48 54 20 31 39 37 31 M COPYRIGHT 1971
0000A0: 20 42 59 20 54 48 45 20 52 45 47 45 4E 54 53 20 BY THE REGENTS
0000B0: 4F 46 20 54 48 45 20 55 4E 49 56 2E 20 4F 46 20 OF THE UNIV. OF
0000C0: 43 41 4C 49 46 2E 0D 0A 33 30 20 52 45 4D 20 50 CALIF...30 REM P
0000D0: 52 4F 44 55 43 45 44 20 41 54 20 54 48 45 20 4C RODUCED AT THE L
0000E0: 41 57 52 45 4E 43 45 20 48 41 4C 4C 20 4F 46 20 AWRENCE HALL OF
0000F0: 53 43 49 45 4E 43 45 2C 20 42 45 52 4B 45 4C 45 SCIENCE, BERKELE
000100: 59 0D 0A 34 30 20 44 49 4D 20 46 28 36 2C 36 29 Y..40 DIM F(6,6)
000110: 2C 48 28 36 2C 36 29 2C 41 28 34 29 2C 42 28 34 ,H(6,6),A(4),B(4
000120: 29 2C 43 28 36 29 2C 4C 28 33 29 0D 0A 35 30 20 ),C(6),L(3)..50
000130: 46 4F 52 20 58 3D 31 20 54 4F 20 36 0D 0A 35 31 FOR X=1 TO 6..51
000140: 20 46 4F 52 20 59 3D 31 20 54 4F 20 36 0D 0A 35 FOR Y=1 TO 6..5
000150: 32 20 46 28 58 2C 59 29 3D 30 0D 0A 35 33 20 4E 2 F(X,Y)=0..53 N
000160: 45 58 54 20 59 0D 0A 35 34 20 4E 45 58 54 20 58 EXT Y..54 NEXT X
000170: 0D 0A 36 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 ..60 FOR I=1 TO
000180: 33 0D 0A 37 30 20 4E 3D 34 2D 49 0D 0A 38 30 20 3..70 N=4-I..80
000190: 46 4F 52 20 4A 3D 31 20 54 4F 20 32 0D 0A 39 30 FOR J=1 TO 2..90
0001A0: 20 41 3D 49 4E 54 28 36 2A 52 4E 44 28 31 29 2B A=INT(6*RND(1)+
0001B0: 31 29 0D 0A 31 30 30 20 42 3D 49 4E 54 28 36 2A 1)..100 B=INT(6*
0001C0: 52 4E 44 28 31 29 2B 31 29 0D 0A 31 31 30 20 44 RND(1)+1)..110 D
0001D0: 3D 49 4E 54 28 34 2A 52 4E 44 28 31 29 2B 31 29 =INT(4*RND(1)+1)
0001E0: 0D 0A 31 32 30 20 49 46 20 46 28 41 2C 42 29 3E ..120 IF F(A,B)>
0001F0: 30 20 54 48 45 4E 20 39 30 0D 0A 31 33 30 20 4D 0 THEN 90..130 M
Size : 512 (Real : 512)
000000: 49 46 20 41 28 32 29 3C 41 28 31 29 20 41 4E 44 IF A(2)<A(1) AND
000010: 20 41 28 32 29 3C 41 28 33 29 20 54 48 45 4E 20 A(2)<A(3) THEN
000020: 5A 31 3D 41 28 32 29 0D 0A 38 37 34 20 49 46 20 Z1=A(2)..874 IF
000030: 41 28 33 29 3C 41 28 31 29 20 41 4E 44 20 41 28 A(3)<A(1) AND A(
000040: 33 29 3C 41 28 32 29 20 54 48 45 4E 20 5A 31 3D 3)<A(2) THEN Z1=
000050: 41 28 33 29 0D 0A 38 38 30 20 49 46 20 42 28 31 A(3)..880 IF B(1
000060: 29 3E 42 28 32 29 20 41 4E 44 20 42 28 31 29 3E )>B(2) AND B(1)>
000070: 42 28 33 29 20 54 48 45 4E 20 5A 32 3D 42 28 31 B(3) THEN Z2=B(1
000080: 29 0D 0A 38 38 32 20 49 46 20 42 28 32 29 3E 42 )..882 IF B(2)>B
000090: 28 31 29 20 41 4E 44 20 42 28 32 29 3E 42 28 33 (1) AND B(2)>B(3
0000A0: 29 20 54 48 45 4E 20 5A 32 3D 42 28 32 29 0D 0A ) THEN Z2=B(2)..
0000B0: 38 38 34 20 49 46 20 42 28 33 29 3E 42 28 31 29 884 IF B(3)>B(1)
0000C0: 20 41 4E 44 20 42 28 33 29 3E 42 28 32 29 20 54 AND B(3)>B(2) T
0000D0: 48 45 4E 20 5A 32 3D 42 28 33 29 0D 0A 38 39 30 HEN Z2=B(3)..890
0000E0: 20 49 46 20 5A 31 3D 31 20 4F 52 20 5A 32 3D 36 IF Z1=1 OR Z2=6
0000F0: 20 54 48 45 4E 20 39 30 0D 0A 39 30 30 20 49 46 THEN 90..900 IF
000100: 20 46 28 5A 31 2D 31 2C 5A 32 2B 31 29 3E 30 20 F(Z1-1,Z2+1)>0
000110: 54 48 45 4E 20 39 30 0D 0A 39 31 30 20 49 46 20 THEN 90..910 IF
000120: 46 28 5A 31 2C 5A 32 2B 31 29 3E 30 20 41 4E 44 F(Z1,Z2+1)>0 AND
000130: 20 46 28 5A 31 2C 5A 32 2B 31 29 3D 46 28 5A 31 F(Z1,Z2+1)=F(Z1
000140: 2D 31 2C 5A 32 29 20 54 48 45 4E 20 39 30 0D 0A -1,Z2) THEN 90..
000150: 39 32 30 20 41 28 4B 2B 31 29 3D 5A 31 2D 31 0D 920 A(K+1)=Z1-1.
000160: 0A 39 33 30 20 42 28 4B 2B 31 29 3D 5A 32 2B 31 .930 B(K+1)=Z2+1
000170: 0D 0A 39 34 30 20 4E 45 58 54 20 4B 0D 0A 39 35 ..940 NEXT K..95
000180: 30 20 46 28 41 2C 42 29 3D 39 2D 32 2A 49 2D 4A 0 F(A,B)=9-2*I-J
000190: 0D 0A 39 36 30 20 46 4F 52 20 4B 3D 31 20 54 4F ..960 FOR K=1 TO
0001A0: 20 4E 0D 0A 39 37 30 20 46 28 41 28 4B 2B 31 29 N..970 F(A(K+1)
0001B0: 2C 42 28 4B 2B 31 29 29 3D 46 28 41 2C 42 29 0D ,B(K+1))=F(A,B).
0001C0: 0A 39 38 30 20 4E 45 58 54 20 4B 0D 0A 39 39 30 .980 NEXT K..990
0001D0: 20 4E 45 58 54 20 4A 0D 0A 31 30 30 30 20 4E 45 NEXT J..1000 NE
0001E0: 58 54 20 49 0D 0A 31 30 31 30 20 50 52 49 4E 54 XT I..1010 PRINT
0001F0: 0D 0A 31 30 32 30 20 50 52 49 4E 54 20 22 54 48 ..1020 PRINT "TH
Size : 512 (Real : 512)
000000: 3D 30 0D 0A 31 34 30 20 4F 4E 20 44 20 47 4F 54 =0..140 ON D GOT
000010: 4F 20 31 35 30 2C 33 34 30 2C 35 35 30 2C 37 34 O 150,340,550,74
000020: 30 0D 0A 31 35 30 20 42 28 31 29 3D 42 0D 0A 31 0..150 B(1)=B..1
000030: 36 30 20 42 28 32 29 3D 37 3A 42 28 33 29 3D 37 60 B(2)=7:B(3)=7
000040: 0D 0A 31 37 30 20 46 4F 52 20 4B 3D 31 20 54 4F ..170 FOR K=1 TO
000050: 20 4E 0D 0A 31 38 30 20 49 46 20 4D 3E 31 20 54 N..180 IF M>1 T
000060: 48 45 4E 20 32 34 30 0D 0A 31 39 30 20 49 46 20 HEN 240..190 IF
000070: 42 28 4B 29 3D 36 20 54 48 45 4E 20 32 33 30 0D B(K)=6 THEN 230.
000080: 0A 32 30 30 20 49 46 20 46 28 41 2C 42 28 4B 29 .200 IF F(A,B(K)
000090: 2B 31 29 3E 30 20 54 48 45 4E 20 32 33 30 0D 0A +1)>0 THEN 230..
0000A0: 32 31 30 20 42 28 4B 2B 31 29 3D 42 28 4B 29 2B 210 B(K+1)=B(K)+
0000B0: 31 0D 0A 32 32 30 20 47 4F 54 4F 20 32 38 30 0D 1..220 GOTO 280.
0000C0: 0A 32 33 30 20 4D 3D 32 0D 0A 32 34 30 20 49 46 .230 M=2..240 IF
0000D0: 20 42 28 31 29 3C 42 28 32 29 20 41 4E 44 20 42 B(1)<B(2) AND B
0000E0: 28 31 29 3C 42 28 33 29 20 54 48 45 4E 20 5A 3D (1)<B(3) THEN Z=
0000F0: 42 28 31 29 0D 0A 32 34 32 20 49 46 20 42 28 32 B(1)..242 IF B(2
000100: 29 3C 42 28 31 29 20 41 4E 44 20 42 28 32 29 3C )<B(1) AND B(2)<
000110: 42 28 33 29 20 54 48 45 4E 20 5A 3D 42 28 32 29 B(3) THEN Z=B(2)
000120: 0D 0A 32 34 34 20 49 46 20 42 28 33 29 3C 42 28 ..244 IF B(3)<B(
000130: 31 29 20 41 4E 44 20 42 28 33 29 3C 42 28 32 29 1) AND B(3)<B(2)
000140: 20 54 48 45 4E 20 5A 3D 42 28 33 29 0D 0A 32 35 THEN Z=B(3)..25
000150: 30 20 49 46 20 5A 3D 31 20 54 48 45 4E 20 39 30 0 IF Z=1 THEN 90
000160: 0D 0A 32 36 30 20 49 46 20 46 28 41 2C 5A 2D 31 ..260 IF F(A,Z-1
000170: 29 3E 30 20 54 48 45 4E 20 39 30 0D 0A 32 37 30 )>0 THEN 90..270
000180: 20 42 28 4B 2B 31 29 3D 5A 2D 31 0D 0A 32 38 30 B(K+1)=Z-1..280
000190: 20 4E 45 58 54 20 4B 0D 0A 32 39 30 20 46 28 41 NEXT K..290 F(A
0001A0: 2C 42 29 3D 39 2D 32 2A 49 2D 4A 0D 0A 33 30 30 ,B)=9-2*I-J..300
0001B0: 20 46 4F 52 20 4B 3D 31 20 54 4F 20 4E 0D 0A 33 FOR K=1 TO N..3
0001C0: 31 30 20 46 28 41 2C 42 28 4B 2B 31 29 29 3D 46 10 F(A,B(K+1))=F
0001D0: 28 41 2C 42 29 0D 0A 33 32 30 20 4E 45 58 54 20 (A,B)..320 NEXT
0001E0: 4B 0D 0A 33 33 30 20 47 4F 54 4F 20 39 39 30 0D K..330 GOTO 990.
0001F0: 0A 33 34 30 20 41 28 31 29 3D 41 0D 0A 33 35 30 .340 A(1)=A..350
Size : 512 (Real : 512)
000000: 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 43 4F 44 45 E FOLLOWING CODE
000010: 20 4F 46 20 54 48 45 20 42 41 44 20 47 55 59 53 OF THE BAD GUYS
000020: 27 20 46 4C 45 45 54 20 44 49 53 50 4F 53 49 54 ' FLEET DISPOSIT
000030: 49 4F 4E 22 0D 0A 31 30 33 30 20 50 52 49 4E 54 ION"..1030 PRINT
000040: 20 22 48 41 53 20 42 45 45 4E 20 43 41 50 54 55 "HAS BEEN CAPTU
000050: 52 45 44 20 42 55 54 20 4E 4F 54 20 44 45 43 4F RED BUT NOT DECO
000060: 44 45 44 3A 22 0D 0A 31 30 34 30 20 50 52 49 4E DED:"..1040 PRIN
000070: 54 0D 0A 31 30 35 30 20 46 4F 52 20 49 3D 31 20 T..1050 FOR I=1
000080: 54 4F 20 36 0D 0A 31 30 35 31 20 46 4F 52 20 4A TO 6..1051 FOR J
000090: 3D 31 20 54 4F 20 36 0D 0A 31 30 35 32 20 48 28 =1 TO 6..1052 H(
0000A0: 49 2C 4A 29 3D 46 28 4A 2C 49 29 0D 0A 31 30 35 I,J)=F(J,I)..105
0000B0: 33 20 4E 45 58 54 20 4A 0D 0A 31 30 35 34 20 4E 3 NEXT J..1054 N
0000C0: 45 58 54 20 49 0D 0A 31 30 36 30 20 46 4F 52 20 EXT I..1060 FOR
0000D0: 49 3D 31 20 54 4F 20 36 0D 0A 31 30 36 31 20 46 I=1 TO 6..1061 F
0000E0: 4F 52 20 4A 3D 31 20 54 4F 20 36 0D 0A 31 30 36 OR J=1 TO 6..106
0000F0: 32 20 50 52 49 4E 54 20 48 28 49 2C 4A 29 3B 0D 2 PRINT H(I,J);.
000100: 0A 31 30 36 33 20 4E 45 58 54 20 4A 0D 0A 31 30 .1063 NEXT J..10
000110: 36 34 20 50 52 49 4E 54 0D 0A 31 30 36 35 20 4E 64 PRINT..1065 N
000120: 45 58 54 20 49 0D 0A 31 30 37 30 20 50 52 49 4E EXT I..1070 PRIN
000130: 54 0D 0A 31 30 38 30 20 50 52 49 4E 54 20 22 44 T..1080 PRINT "D
000140: 45 2D 43 4F 44 45 20 49 54 20 41 4E 44 20 55 53 E-CODE IT AND US
000150: 45 20 49 54 20 49 46 20 59 4F 55 20 43 41 4E 22 E IT IF YOU CAN"
000160: 0D 0A 31 30 39 30 20 50 52 49 4E 54 20 22 42 55 ..1090 PRINT "BU
000170: 54 20 4B 45 45 50 20 54 48 45 20 44 45 2D 43 4F T KEEP THE DE-CO
000180: 44 49 4E 47 20 4D 45 54 48 4F 44 20 41 20 53 45 DING METHOD A SE
000190: 43 52 45 54 2E 22 0D 0A 31 31 30 30 20 50 52 49 CRET."..1100 PRI
0001A0: 4E 54 0D 0A 31 31 31 30 20 46 4F 52 20 49 3D 31 NT..1110 FOR I=1
0001B0: 20 54 4F 20 36 0D 0A 31 31 31 31 20 46 4F 52 20 TO 6..1111 FOR
0001C0: 4A 3D 31 20 54 4F 20 36 0D 0A 31 31 31 32 20 48 J=1 TO 6..1112 H
0001D0: 28 49 2C 4A 29 3D 30 0D 0A 31 31 31 33 20 4E 45 (I,J)=0..1113 NE
0001E0: 58 54 20 4A 0D 0A 31 31 31 34 20 4E 45 58 54 20 XT J..1114 NEXT
0001F0: 49 0D 0A 31 31 32 30 20 46 4F 52 20 49 3D 31 20 I..1120 FOR I=1
Size : 512 (Real : 512)
000000: 20 42 28 31 29 3D 42 0D 0A 33 36 30 20 41 28 32 B(1)=B..360 A(2
000010: 29 3D 30 3A 41 28 33 29 3D 30 3A 42 28 32 29 3D )=0:A(3)=0:B(2)=
000020: 30 3A 42 28 33 29 3D 30 0D 0A 33 37 30 20 46 4F 0:B(3)=0..370 FO
000030: 52 20 4B 3D 31 20 54 4F 20 4E 0D 0A 33 38 30 20 R K=1 TO N..380
000040: 49 46 20 4D 3E 31 20 54 48 45 4E 20 34 36 30 0D IF M>1 THEN 460.
000050: 0A 33 39 30 20 49 46 20 41 28 4B 29 3D 31 20 4F .390 IF A(K)=1 O
000060: 52 20 42 28 4B 29 3D 31 20 54 48 45 4E 20 34 35 R B(K)=1 THEN 45
000070: 30 0D 0A 34 30 30 20 49 46 20 46 28 41 28 4B 29 0..400 IF F(A(K)
000080: 2D 31 2C 42 28 4B 29 2D 31 29 3E 30 20 54 48 45 -1,B(K)-1)>0 THE
000090: 4E 20 34 35 30 0D 0A 34 31 30 20 49 46 20 46 28 N 450..410 IF F(
0000A0: 41 28 4B 29 2D 31 2C 42 28 4B 29 29 3E 30 20 41 A(K)-1,B(K))>0 A
0000B0: 4E 44 20 46 28 41 28 4B 29 2D 31 2C 42 28 4B 29 ND F(A(K)-1,B(K)
0000C0: 29 3D 46 28 41 28 4B 29 2C 42 28 4B 29 2D 31 29 )=F(A(K),B(K)-1)
0000D0: 20 54 48 45 4E 20 34 35 30 0D 0A 34 32 30 20 41 THEN 450..420 A
0000E0: 28 4B 2B 31 29 3D 41 28 4B 29 2D 31 0D 0A 34 33 (K+1)=A(K)-1..43
0000F0: 30 20 42 28 4B 2B 31 29 3D 42 28 4B 29 2D 31 0D 0 B(K+1)=B(K)-1.
000100: 0A 34 34 30 20 47 4F 54 4F 20 35 33 30 0D 0A 34 .440 GOTO 530..4
000110: 35 30 20 4D 3D 32 0D 0A 34 36 30 20 49 46 20 41 50 M=2..460 IF A
000120: 28 31 29 3E 41 28 32 29 20 41 4E 44 20 41 28 31 (1)>A(2) AND A(1
000130: 29 3E 41 28 33 29 20 54 48 45 4E 20 5A 31 3D 41 )>A(3) THEN Z1=A
000140: 28 31 29 0D 0A 34 36 32 20 49 46 20 41 28 32 29 (1)..462 IF A(2)
000150: 3E 41 28 31 29 20 41 4E 44 20 41 28 32 29 3E 41 >A(1) AND A(2)>A
000160: 28 33 29 20 54 48 45 4E 20 5A 31 3D 41 28 32 29 (3) THEN Z1=A(2)
000170: 0D 0A 34 36 34 20 49 46 20 41 28 33 29 3E 41 28 ..464 IF A(3)>A(
000180: 31 29 20 41 4E 44 20 41 28 33 29 3E 41 28 32 29 1) AND A(3)>A(2)
000190: 20 54 48 45 4E 20 5A 31 3D 41 28 33 29 0D 0A 34 THEN Z1=A(3)..4
0001A0: 37 30 20 49 46 20 42 28 31 29 3E 42 28 32 29 20 70 IF B(1)>B(2)
0001B0: 41 4E 44 20 42 28 31 29 3E 42 28 33 29 20 54 48 AND B(1)>B(3) TH
0001C0: 45 4E 20 5A 32 3D 42 28 31 29 0D 0A 34 37 34 20 EN Z2=B(1)..474
0001D0: 49 46 20 42 28 32 29 3E 42 28 31 29 20 41 4E 44 IF B(2)>B(1) AND
0001E0: 20 42 28 32 29 3E 42 28 33 29 20 54 48 45 4E 20 B(2)>B(3) THEN
0001F0: 5A 32 3D 42 28 32 29 0D 0A 34 37 36 20 49 46 20 Z2=B(2)..476 IF
Size : 512 (Real : 512)
000000: 54 4F 20 33 0D 0A 31 31 32 31 20 4C 28 49 29 3D TO 3..1121 L(I)=
000010: 30 0D 0A 31 31 32 32 20 4E 45 58 54 20 49 0D 0A 0..1122 NEXT I..
000020: 31 31 33 30 20 43 28 31 29 3D 32 3A 43 28 32 29 1130 C(1)=2:C(2)
000030: 3D 32 0D 0A 31 31 34 30 20 43 28 33 29 3D 31 3A =2..1140 C(3)=1:
000040: 43 28 34 29 3D 31 0D 0A 31 31 35 30 20 43 28 35 C(4)=1..1150 C(5
000050: 29 3D 30 3A 43 28 36 29 3D 30 0D 0A 31 31 36 30 )=0:C(6)=0..1160
000060: 20 53 3D 30 3A 48 3D 30 0D 0A 31 31 37 30 20 50 S=0:H=0..1170 P
000070: 52 49 4E 54 20 22 53 54 41 52 54 20 47 41 4D 45 RINT "START GAME
000080: 22 0D 0A 31 31 38 30 20 49 4E 50 55 54 20 58 2C "..1180 INPUT X,
000090: 59 0D 0A 31 31 39 30 20 49 46 20 58 3C 31 20 4F Y..1190 IF X<1 O
0000A0: 52 20 58 3E 36 20 4F 52 20 49 4E 54 28 58 29 3C R X>6 OR INT(X)<
0000B0: 3E 41 42 53 28 58 29 20 54 48 45 4E 20 31 32 31 >ABS(X) THEN 121
0000C0: 30 0D 0A 31 32 30 30 20 49 46 20 59 3E 30 20 41 0..1200 IF Y>0 A
0000D0: 4E 44 20 59 3C 37 20 41 4E 44 20 49 4E 54 28 59 ND Y<7 AND INT(Y
0000E0: 29 3D 41 42 53 28 59 29 20 54 48 45 4E 20 31 32 )=ABS(Y) THEN 12
0000F0: 33 30 0D 0A 31 32 31 30 20 50 52 49 4E 54 20 22 30..1210 PRINT "
000100: 49 4E 56 41 4C 49 44 20 49 4E 50 55 54 2E 20 20 INVALID INPUT.
000110: 54 52 59 20 41 47 41 49 4E 2E 22 0D 0A 31 32 32 TRY AGAIN."..122
000120: 30 20 47 4F 54 4F 20 31 31 38 30 0D 0A 31 32 33 0 GOTO 1180..123
000130: 30 20 52 3D 37 2D 59 0D 0A 31 32 34 30 20 43 3D 0 R=7-Y..1240 C=
000140: 58 0D 0A 31 32 35 30 20 49 46 20 46 28 52 2C 43 X..1250 IF F(R,C
000150: 29 3E 30 20 54 48 45 4E 20 31 32 39 30 0D 0A 31 )>0 THEN 1290..1
000160: 32 36 30 20 53 3D 53 2B 31 0D 0A 31 32 37 30 20 260 S=S+1..1270
000170: 50 52 49 4E 54 20 22 53 50 4C 41 53 48 21 20 20 PRINT "SPLASH!
000180: 54 52 59 20 41 47 41 49 4E 2E 22 0D 0A 31 32 38 TRY AGAIN."..128
000190: 30 20 47 4F 54 4F 20 31 31 38 30 0D 0A 31 32 39 0 GOTO 1180..129
0001A0: 30 20 49 46 20 43 28 46 28 52 2C 43 29 29 3C 34 0 IF C(F(R,C))<4
0001B0: 20 54 48 45 4E 20 31 33 34 30 0D 0A 31 33 30 30 THEN 1340..1300
0001C0: 20 50 52 49 4E 54 20 22 54 48 45 52 45 20 55 53 PRINT "THERE US
0001D0: 45 44 20 54 4F 20 42 45 20 41 20 53 48 49 50 20 ED TO BE A SHIP
0001E0: 41 54 20 54 48 41 54 20 50 4F 49 4E 54 2C 20 42 AT THAT POINT, B
0001F0: 55 54 20 59 4F 55 20 53 55 4E 4B 20 49 54 2E 22 UT YOU SUNK IT."
Size : 512 (Real : 512)
000000: 42 28 33 29 3E 42 28 31 29 20 41 4E 44 20 42 28 B(3)>B(1) AND B(
000010: 33 29 3E 42 28 32 29 20 54 48 45 4E 20 5A 32 3D 3)>B(2) THEN Z2=
000020: 42 28 33 29 0D 0A 34 38 30 20 49 46 20 5A 31 3D B(3)..480 IF Z1=
000030: 36 20 4F 52 20 5A 32 3D 36 20 54 48 45 4E 20 39 6 OR Z2=6 THEN 9
000040: 30 0D 0A 34 39 30 20 49 46 20 46 28 5A 31 2B 31 0..490 IF F(Z1+1
000050: 2C 5A 32 2B 31 29 3E 30 20 54 48 45 4E 20 39 30 ,Z2+1)>0 THEN 90
000060: 0D 0A 35 30 30 20 49 46 20 46 28 5A 31 2C 5A 32 ..500 IF F(Z1,Z2
000070: 2B 31 29 3E 30 20 41 4E 44 20 46 28 5A 31 2C 5A +1)>0 AND F(Z1,Z
000080: 32 2B 31 29 3D 46 28 5A 31 2B 31 2C 5A 32 29 20 2+1)=F(Z1+1,Z2)
000090: 54 48 45 4E 20 39 30 0D 0A 35 31 30 20 41 28 4B THEN 90..510 A(K
0000A0: 2B 31 29 3D 5A 31 2B 31 0D 0A 35 32 30 20 42 28 +1)=Z1+1..520 B(
0000B0: 4B 2B 31 29 3D 5A 32 2B 31 0D 0A 35 33 30 20 4E K+1)=Z2+1..530 N
0000C0: 45 58 54 20 4B 0D 0A 35 34 30 20 47 4F 54 4F 20 EXT K..540 GOTO
0000D0: 39 35 30 0D 0A 35 35 30 20 41 28 31 29 3D 41 0D 950..550 A(1)=A.
0000E0: 0A 35 36 30 20 41 28 32 29 3D 37 3A 41 28 33 29 .560 A(2)=7:A(3)
0000F0: 3D 37 0D 0A 35 37 30 20 46 4F 52 20 4B 3D 31 20 =7..570 FOR K=1
000100: 54 4F 20 4E 0D 0A 35 38 30 20 49 46 20 4D 3E 31 TO N..580 IF M>1
000110: 20 54 48 45 4E 20 36 34 30 0D 0A 35 39 30 20 49 THEN 640..590 I
000120: 46 20 41 28 4B 29 3D 36 20 54 48 45 4E 20 36 33 F A(K)=6 THEN 63
000130: 30 0D 0A 36 30 30 20 49 46 20 46 28 41 28 4B 29 0..600 IF F(A(K)
000140: 2B 31 2C 42 29 3E 30 20 54 48 45 4E 20 36 33 30 +1,B)>0 THEN 630
000150: 0D 0A 36 31 30 20 41 28 4B 2B 31 29 3D 41 28 4B ..610 A(K+1)=A(K
000160: 29 2B 31 0D 0A 36 32 30 20 47 4F 54 4F 20 36 38 )+1..620 GOTO 68
000170: 30 0D 0A 36 33 30 20 4D 3D 32 0D 0A 36 34 30 20 0..630 M=2..640
000180: 49 46 20 41 28 31 29 3C 41 28 32 29 20 41 4E 44 IF A(1)<A(2) AND
000190: 20 41 28 31 29 3C 41 28 33 29 20 54 48 45 4E 20 A(1)<A(3) THEN
0001A0: 5A 3D 41 28 31 29 0D 0A 36 34 32 20 49 46 20 41 Z=A(1)..642 IF A
0001B0: 28 32 29 3C 41 28 31 29 20 41 4E 44 20 41 28 32 (2)<A(1) AND A(2
0001C0: 29 3C 41 28 33 29 20 54 48 45 4E 20 5A 3D 41 28 )<A(3) THEN Z=A(
0001D0: 32 29 0D 0A 36 34 34 20 49 46 20 41 28 33 29 3C 2)..644 IF A(3)<
0001E0: 41 28 31 29 20 41 4E 44 20 41 28 33 29 3C 41 28 A(1) AND A(3)<A(
0001F0: 32 29 20 54 48 45 4E 20 5A 3D 41 28 33 29 0D 0A 2) THEN Z=A(3)..
Size : 512 (Real : 512)
000000: 0D 0A 31 33 31 30 20 50 52 49 4E 54 20 22 53 50 ..1310 PRINT "SP
000010: 4C 41 53 48 21 20 20 54 52 59 20 41 47 41 49 4E LASH! TRY AGAIN
000020: 2E 22 0D 0A 31 33 32 30 20 53 3D 53 2B 31 0D 0A ."..1320 S=S+1..
000030: 31 33 33 30 20 47 4F 54 4F 20 31 31 38 30 0D 0A 1330 GOTO 1180..
000040: 31 33 34 30 20 49 46 20 48 28 52 2C 43 29 3E 30 1340 IF H(R,C)>0
000050: 20 54 48 45 4E 20 31 34 32 30 0D 0A 31 33 35 30 THEN 1420..1350
000060: 20 48 3D 48 2B 31 0D 0A 31 33 36 30 20 48 28 52 H=H+1..1360 H(R
000070: 2C 43 29 3D 46 28 52 2C 43 29 0D 0A 31 33 37 30 ,C)=F(R,C)..1370
000080: 20 50 52 49 4E 54 20 22 41 20 44 49 52 45 43 54 PRINT "A DIRECT
000090: 20 48 49 54 20 4F 4E 20 53 48 49 50 20 4E 55 4D HIT ON SHIP NUM
0000A0: 42 45 52 22 3B 46 28 52 2C 43 29 0D 0A 31 33 38 BER";F(R,C)..138
0000B0: 30 20 43 28 46 28 52 2C 43 29 29 3D 43 28 46 28 0 C(F(R,C))=C(F(
0000C0: 52 2C 43 29 29 2B 31 0D 0A 31 33 39 30 20 49 46 R,C))+1..1390 IF
0000D0: 20 43 28 46 28 52 2C 43 29 29 3E 3D 34 20 54 48 C(F(R,C))>=4 TH
0000E0: 45 4E 20 31 34 37 30 0D 0A 31 34 30 30 20 50 52 EN 1470..1400 PR
0000F0: 49 4E 54 20 22 54 52 59 20 41 47 41 49 4E 2E 22 INT "TRY AGAIN."
000100: 0D 0A 31 34 31 30 20 47 4F 54 4F 20 31 31 38 30 ..1410 GOTO 1180
000110: 0D 0A 31 34 32 30 20 50 52 49 4E 54 20 22 59 4F ..1420 PRINT "YO
000120: 55 20 41 4C 52 45 41 44 59 20 50 55 54 20 41 20 U ALREADY PUT A
000130: 48 4F 4C 45 20 49 4E 20 53 48 49 50 20 4E 55 4D HOLE IN SHIP NUM
000140: 42 45 52 22 3B 46 28 52 2C 43 29 3B 0D 0A 31 34 BER";F(R,C);..14
000150: 33 30 20 50 52 49 4E 54 20 22 41 54 20 54 48 41 30 PRINT "AT THA
000160: 54 20 50 4F 49 4E 54 2E 22 0D 0A 31 34 34 30 20 T POINT."..1440
000170: 50 52 49 4E 54 20 22 53 50 4C 41 53 48 21 20 20 PRINT "SPLASH!
000180: 54 52 59 20 41 47 41 49 4E 2E 22 0D 0A 31 34 35 TRY AGAIN."..145
000190: 30 20 53 3D 53 2B 31 0D 0A 31 34 36 30 20 47 4F 0 S=S+1..1460 GO
0001A0: 54 4F 20 31 31 38 30 0D 0A 31 34 37 30 20 4C 28 TO 1180..1470 L(
0001B0: 28 49 4E 54 28 46 28 52 2C 43 29 2D 31 29 2F 32 (INT(F(R,C)-1)/2
0001C0: 29 2B 31 29 3D 4C 28 28 49 4E 54 28 46 28 52 2C )+1)=L((INT(F(R,
0001D0: 43 29 2D 31 29 2F 32 29 2B 31 29 2B 31 0D 0A 31 C)-1)/2)+1)+1..1
0001E0: 34 38 30 20 50 52 49 4E 54 20 22 41 4E 44 20 59 480 PRINT "AND Y
0001F0: 4F 55 20 53 55 4E 4B 20 49 54 2E 20 20 48 55 52 OU SUNK IT. HUR
Size : 512 (Real : 512)
000000: 54 0D 0A 31 33 35 20 49 4E 50 55 54 20 22 54 49 T..135 INPUT "TI
000010: 4D 45 20 49 4E 43 52 45 4D 45 4E 54 20 28 53 45 ME INCREMENT (SE
000020: 43 29 22 3B 53 32 0D 0A 31 34 30 20 50 52 49 4E C)";S2..140 PRIN
000030: 54 0D 0A 31 35 30 20 49 4E 50 55 54 20 22 56 45 T..150 INPUT "VE
000040: 4C 4F 43 49 54 59 20 28 46 50 53 29 22 3B 56 0D LOCITY (FPS)";V.
000050: 0A 31 36 30 20 50 52 49 4E 54 0D 0A 31 37 30 20 .160 PRINT..170
000060: 49 4E 50 55 54 20 22 43 4F 45 46 46 49 43 49 45 INPUT "COEFFICIE
000070: 4E 54 22 3B 43 0D 0A 31 38 30 20 50 52 49 4E 54 NT";C..180 PRINT
000080: 0D 0A 31 38 32 20 50 52 49 4E 54 20 22 46 45 45 ..182 PRINT "FEE
000090: 54 22 0D 0A 31 38 34 20 50 52 49 4E 54 0D 0A 31 T"..184 PRINT..1
0000A0: 38 36 20 53 31 3D 49 4E 54 28 37 30 2F 28 56 2F 86 S1=INT(70/(V/
0000B0: 28 31 36 2A 53 32 29 29 29 0D 0A 31 39 30 20 46 (16*S2)))..190 F
0000C0: 4F 52 20 49 3D 31 20 54 4F 20 53 31 0D 0A 32 30 OR I=1 TO S1..20
0000D0: 30 20 54 28 49 29 3D 56 2A 43 5E 28 49 2D 31 29 0 T(I)=V*C^(I-1)
0000E0: 2F 31 36 0D 0A 32 31 30 20 4E 45 58 54 20 49 0D /16..210 NEXT I.
0000F0: 0A 32 32 30 20 46 4F 52 20 48 3D 49 4E 54 28 2D .220 FOR H=INT(-
000100: 31 36 2A 28 56 2F 33 32 29 5E 32 2B 56 5E 32 2F 16*(V/32)^2+V^2/
000110: 33 32 2B 2E 35 29 20 54 4F 20 30 20 53 54 45 50 32+.5) TO 0 STEP
000120: 20 2D 2E 35 0D 0A 32 32 31 20 49 46 20 49 4E 54 -.5..221 IF INT
000130: 28 48 29 3C 3E 48 20 54 48 45 4E 20 32 32 35 0D (H)<>H THEN 225.
000140: 0A 32 32 32 20 50 52 49 4E 54 20 48 3B 0D 0A 32 .222 PRINT H;..2
000150: 32 35 20 4C 3D 30 0D 0A 32 33 30 20 46 4F 52 20 25 L=0..230 FOR
000160: 49 3D 31 20 54 4F 20 53 31 0D 0A 32 34 30 20 46 I=1 TO S1..240 F
000170: 4F 52 20 54 3D 30 20 54 4F 20 54 28 49 29 20 53 OR T=0 TO T(I) S
000180: 54 45 50 20 53 32 0D 0A 32 34 35 20 4C 3D 4C 2B TEP S2..245 L=L+
000190: 53 32 0D 0A 32 35 30 20 49 46 20 41 42 53 28 48 S2..250 IF ABS(H
0001A0: 2D 28 2E 35 2A 28 2D 33 32 29 2A 54 5E 32 2B 56 -(.5*(-32)*T^2+V
0001B0: 2A 43 5E 28 49 2D 31 29 2A 54 29 29 3E 2E 32 35 *C^(I-1)*T))>.25
0001C0: 20 54 48 45 4E 20 32 37 30 0D 0A 32 36 30 20 50 THEN 270..260 P
0001D0: 52 49 4E 54 20 54 41 42 28 4C 2F 53 32 29 3B 22 RINT TAB(L/S2);"
0001E0: 30 22 3B 0D 0A 32 37 30 20 4E 45 58 54 20 54 0D 0";..270 NEXT T.
0001F0: 0A 32 37 35 20 54 3D 54 28 49 2B 31 29 2F 32 0D .275 T=T(I+1)/2.
Size : 512 (Real : 512)
000000: 52 41 48 20 46 4F 52 20 54 48 45 20 47 4F 4F 44 RAH FOR THE GOOD
000010: 20 47 55 59 53 2E 22 0D 0A 31 34 39 30 20 50 52 GUYS."..1490 PR
000020: 49 4E 54 20 22 53 4F 20 46 41 52 2C 20 54 48 45 INT "SO FAR, THE
000030: 20 42 41 44 20 47 55 59 53 20 48 41 56 45 20 4C BAD GUYS HAVE L
000040: 4F 53 54 22 0D 0A 31 35 30 30 20 50 52 49 4E 54 OST"..1500 PRINT
000050: 20 4C 28 31 29 3B 22 44 45 53 54 52 4F 59 45 52 L(1);"DESTROYER
000060: 28 53 29 2C 22 3B 4C 28 32 29 3B 22 43 52 55 49 (S),";L(2);"CRUI
000070: 53 45 52 28 53 29 2C 20 41 4E 44 22 3B 0D 0A 31 SER(S), AND";..1
000080: 35 31 30 20 50 52 49 4E 54 20 4C 28 33 29 3B 22 510 PRINT L(3);"
000090: 41 49 52 43 52 41 46 54 20 43 41 52 52 49 45 52 AIRCRAFT CARRIER
0000A0: 28 53 29 2E 22 0D 0A 31 35 32 30 20 50 52 49 4E (S)."..1520 PRIN
0000B0: 54 20 22 59 4F 55 52 20 43 55 52 52 45 4E 54 20 T "YOUR CURRENT
0000C0: 53 50 4C 41 53 48 2F 48 49 54 20 52 41 54 49 4F SPLASH/HIT RATIO
0000D0: 20 49 53 22 3B 53 2F 48 0D 0A 31 35 33 30 20 49 IS";S/H..1530 I
0000E0: 46 20 28 4C 28 31 29 2B 4C 28 32 29 2B 4C 28 33 F (L(1)+L(2)+L(3
0000F0: 29 29 3C 36 20 54 48 45 4E 20 31 31 38 30 0D 0A ))<6 THEN 1180..
000100: 31 35 34 30 20 50 52 49 4E 54 0D 0A 31 35 35 30 1540 PRINT..1550
000110: 20 50 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 PRINT "YOU HAVE
000120: 20 54 4F 54 41 4C 4C 59 20 57 49 50 45 44 20 4F TOTALLY WIPED O
000130: 55 54 20 54 48 45 20 42 41 44 20 47 55 59 53 27 UT THE BAD GUYS'
000140: 20 46 4C 45 45 54 22 0D 0A 31 35 36 30 20 50 52 FLEET"..1560 PR
000150: 49 4E 54 20 22 57 49 54 48 20 41 20 46 49 4E 41 INT "WITH A FINA
000160: 4C 20 53 50 4C 41 53 48 2F 48 49 54 20 52 41 54 L SPLASH/HIT RAT
000170: 49 4F 20 4F 46 22 3B 53 2F 48 0D 0A 31 35 37 30 IO OF";S/H..1570
000180: 20 49 46 20 53 2F 48 3E 30 20 54 48 45 4E 20 31 IF S/H>0 THEN 1
000190: 35 39 30 0D 0A 31 35 38 30 20 50 52 49 4E 54 20 590..1580 PRINT
0001A0: 22 43 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 "CONGRATULATIONS
0001B0: 20 2D 2D 20 41 20 44 49 52 45 43 54 20 48 49 54 -- A DIRECT HIT
0001C0: 20 45 56 45 52 59 20 54 49 4D 45 2E 22 0D 0A 31 EVERY TIME."..1
0001D0: 35 39 30 20 50 52 49 4E 54 0D 0A 31 36 30 30 20 590 PRINT..1600
0001E0: 50 52 49 4E 54 20 22 2A 2A 2A 2A 2A 2A 2A 2A 2A PRINT "*********
0001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
Size : 512 (Real : 512)
000000: 0A 32 37 36 20 49 46 20 2D 31 36 2A 54 5E 32 2B .276 IF -16*T^2+
000010: 56 2A 43 5E 28 49 2D 31 29 2A 54 3C 48 20 54 48 V*C^(I-1)*T<H TH
000020: 45 4E 20 32 39 30 0D 0A 32 38 30 20 4E 45 58 54 EN 290..280 NEXT
000030: 20 49 0D 0A 32 39 30 20 50 52 49 4E 54 0D 0A 33 I..290 PRINT..3
000040: 30 30 20 4E 45 58 54 20 48 0D 0A 33 31 30 20 50 00 NEXT H..310 P
000050: 52 49 4E 54 20 54 41 42 28 31 29 3B 0D 0A 33 32 RINT TAB(1);..32
000060: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 49 4E 54 0 FOR I=1 TO INT
000070: 28 4C 2B 31 29 2F 53 32 2B 31 0D 0A 33 33 30 20 (L+1)/S2+1..330
000080: 50 52 49 4E 54 20 22 2E 22 3B 0D 0A 33 34 30 20 PRINT ".";..340
000090: 4E 45 58 54 20 49 0D 0A 33 35 30 20 50 52 49 4E NEXT I..350 PRIN
0000A0: 54 0D 0A 33 35 35 20 50 52 49 4E 54 20 22 20 30 T..355 PRINT " 0
0000B0: 22 3B 0D 0A 33 36 30 20 46 4F 52 20 49 3D 31 20 ";..360 FOR I=1
0000C0: 54 4F 20 49 4E 54 28 4C 2B 2E 39 39 39 35 29 0D TO INT(L+.9995).
0000D0: 0A 33 38 30 20 50 52 49 4E 54 20 54 41 42 28 49 .380 PRINT TAB(I
0000E0: 4E 54 28 49 2F 53 32 29 29 3B 49 3B 0D 0A 33 39 NT(I/S2));I;..39
0000F0: 30 20 4E 45 58 54 20 49 0D 0A 34 30 30 20 50 52 0 NEXT I..400 PR
000100: 49 4E 54 0D 0A 34 31 30 20 50 52 49 4E 54 20 54 INT..410 PRINT T
000110: 41 42 28 49 4E 54 28 4C 2B 31 29 2F 28 32 2A 53 AB(INT(L+1)/(2*S
000120: 32 29 2D 32 29 3B 22 53 45 43 4F 4E 44 53 22 0D 2)-2);"SECONDS".
000130: 0A 34 32 30 20 50 52 49 4E 54 0D 0A 34 33 30 20 .420 PRINT..430
000140: 47 4F 54 4F 20 31 33 35 0D 0A 34 34 30 20 45 4E GOTO 135..440 EN
000150: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 2A 2A 2A 22 0D 0A 31 36 31 30 20 50 52 49 4E 54 ***"..1610 PRINT
000010: 0D 0A 31 36 32 30 20 47 4F 54 4F 20 35 30 0D 0A ..1620 GOTO 50..
000020: 31 36 33 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 1630 END........
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 10 PRINT TAB(34)
000010: 3B 22 42 4F 57 4C 22 0D 0A 32 30 20 50 52 49 4E ;"BOWL"..20 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E 54 ERSEY"..30 PRINT
000060: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 32 37 :PRINT:PRINT..27
000070: 30 20 44 49 4D 20 43 28 31 35 29 2C 41 28 31 30 0 DIM C(15),A(10
000080: 30 2C 36 29 0D 0A 33 36 30 20 50 52 49 4E 54 20 0,6)..360 PRINT
000090: 22 57 45 4C 43 4F 4D 45 20 54 4F 20 54 48 45 20 "WELCOME TO THE
0000A0: 41 4C 4C 45 59 22 0D 0A 34 35 30 20 50 52 49 4E ALLEY"..450 PRIN
0000B0: 54 20 22 42 52 49 4E 47 20 59 4F 55 52 20 46 52 T "BRING YOUR FR
0000C0: 49 45 4E 44 53 22 0D 0A 35 34 30 20 50 52 49 4E IENDS"..540 PRIN
0000D0: 54 20 22 4F 4B 41 59 20 4C 45 54 27 53 20 46 49 T "OKAY LET'S FI
0000E0: 52 53 54 20 47 45 54 20 41 43 51 55 41 49 4E 54 RST GET ACQUAINT
0000F0: 45 44 22 0D 0A 36 33 30 20 50 52 49 4E 54 20 22 ED"..630 PRINT "
000100: 22 0D 0A 37 32 30 20 50 52 49 4E 54 20 22 54 48 "..720 PRINT "TH
000110: 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 28 E INSTRUCTIONS (
000120: 59 2F 4E 29 22 0D 0A 38 31 30 20 49 4E 50 55 54 Y/N)"..810 INPUT
000130: 20 5A 24 0D 0A 39 30 30 20 49 46 20 5A 24 3D 22 Z$..900 IF Z$="
000140: 59 22 20 54 48 45 4E 20 39 39 30 0D 0A 39 36 30 Y" THEN 990..960
000150: 20 49 46 20 5A 24 3D 22 4E 22 20 54 48 45 4E 20 IF Z$="N" THEN
000160: 31 35 33 30 0D 0A 39 39 30 20 50 52 49 4E 54 20 1530..990 PRINT
000170: 22 54 48 45 20 47 41 4D 45 20 4F 46 20 42 4F 57 "THE GAME OF BOW
000180: 4C 49 4E 47 20 54 41 4B 45 53 20 4D 49 4E 44 20 LING TAKES MIND
000190: 41 4E 44 20 53 4B 49 4C 4C 2E 44 55 52 49 4E 47 AND SKILL.DURING
0001A0: 20 54 48 45 20 47 41 4D 45 22 0D 0A 31 30 38 30 THE GAME"..1080
0001B0: 20 50 52 49 4E 54 20 22 54 48 45 20 43 4F 4D 50 PRINT "THE COMP
0001C0: 55 54 45 52 20 57 49 4C 4C 20 4B 45 45 50 20 53 UTER WILL KEEP S
0001D0: 43 4F 52 45 2E 59 4F 55 20 4D 41 59 20 43 4F 4D CORE.YOU MAY COM
0001E0: 50 45 54 45 20 57 49 54 48 22 0D 0A 31 31 37 30 PETE WITH"..1170
0001F0: 20 50 52 49 4E 54 20 22 4F 54 48 45 52 20 50 4C PRINT "OTHER PL
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 42 4F 55 4E 43 45 22 0D 0A 32 30 20 50 52 ;"BOUNCE"..20 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
000060: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
000070: 39 30 20 44 49 4D 20 54 28 32 30 29 0D 0A 31 30 90 DIM T(20)..10
000080: 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 53 49 0 PRINT "THIS SI
000090: 4D 55 4C 41 54 49 4F 4E 20 4C 45 54 53 20 59 4F MULATION LETS YO
0000A0: 55 20 53 50 45 43 49 46 59 20 54 48 45 20 49 4E U SPECIFY THE IN
0000B0: 49 54 49 41 4C 20 56 45 4C 4F 43 49 54 59 22 0D ITIAL VELOCITY".
0000C0: 0A 31 31 30 20 50 52 49 4E 54 20 22 4F 46 20 41 .110 PRINT "OF A
0000D0: 20 42 41 4C 4C 20 54 48 52 4F 57 4E 20 53 54 52 BALL THROWN STR
0000E0: 41 49 47 48 54 20 55 50 2C 20 41 4E 44 20 54 48 AIGHT UP, AND TH
0000F0: 45 20 43 4F 45 46 46 49 43 49 45 4E 54 20 4F 46 E COEFFICIENT OF
000100: 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 45 4C "..120 PRINT "EL
000110: 41 53 54 49 43 49 54 59 20 4F 46 20 54 48 45 20 ASTICITY OF THE
000120: 42 41 4C 4C 2E 20 20 50 4C 45 41 53 45 20 55 53 BALL. PLEASE US
000130: 45 20 41 20 44 45 43 49 4D 41 4C 20 46 52 41 43 E A DECIMAL FRAC
000140: 54 49 4F 4E 22 0D 0A 31 33 30 20 50 52 49 4E 54 TION"..130 PRINT
000150: 20 22 43 4F 45 46 46 49 43 49 45 4E 43 59 20 28 "COEFFICIENCY (
000160: 4C 45 53 53 20 54 48 41 4E 20 31 29 2E 22 0D 0A LESS THAN 1)."..
000170: 31 33 31 20 50 52 49 4E 54 0D 0A 31 33 32 20 50 131 PRINT..132 P
000180: 52 49 4E 54 20 22 59 4F 55 20 41 4C 53 4F 20 53 RINT "YOU ALSO S
000190: 50 45 43 49 46 59 20 54 48 45 20 54 49 4D 45 20 PECIFY THE TIME
0001A0: 49 4E 43 52 45 4D 45 4E 54 20 54 4F 20 42 45 20 INCREMENT TO BE
0001B0: 55 53 45 44 20 49 4E 22 0D 0A 31 33 33 20 50 52 USED IN"..133 PR
0001C0: 49 4E 54 20 22 27 53 54 52 4F 42 49 4E 47 27 20 INT "'STROBING'
0001D0: 54 48 45 20 42 41 4C 4C 27 53 20 46 4C 49 47 48 THE BALL'S FLIGH
0001E0: 54 20 28 54 52 59 20 2E 31 20 49 4E 49 54 49 41 T (TRY .1 INITIA
0001F0: 4C 4C 59 29 2E 22 0D 0A 31 33 34 20 50 52 49 4E LLY)."..134 PRIN
Size : 512 (Real : 512)
000000: 41 59 45 52 53 5B 55 50 20 54 4F 20 46 4F 55 52 AYERS[UP TO FOUR
000010: 5D 2E 59 4F 55 20 57 49 4C 4C 20 42 45 20 50 4C ].YOU WILL BE PL
000020: 41 59 49 4E 47 20 54 45 4E 20 46 52 41 4D 45 53 AYING TEN FRAMES
000030: 22 0D 0A 31 32 36 30 20 50 52 49 4E 54 20 22 4F "..1260 PRINT "O
000040: 4E 20 54 48 45 20 50 49 4E 20 44 49 41 47 52 41 N THE PIN DIAGRA
000050: 4D 20 27 4F 27 20 4D 45 41 4E 53 20 54 48 45 20 M 'O' MEANS THE
000060: 50 49 4E 20 49 53 20 44 4F 57 4E 2E 2E 2E 27 2B PIN IS DOWN...'+
000070: 27 20 4D 45 41 4E 53 20 54 48 45 22 0D 0A 31 33 ' MEANS THE"..13
000080: 35 30 20 50 52 49 4E 54 20 22 50 49 4E 20 49 53 50 PRINT "PIN IS
000090: 20 53 54 41 4E 44 49 4E 47 2E 41 46 54 45 52 20 STANDING.AFTER
0000A0: 54 48 45 20 47 41 4D 45 20 54 48 45 20 43 4F 4D THE GAME THE COM
0000B0: 50 55 54 45 52 20 57 49 4C 4C 20 53 48 4F 57 20 PUTER WILL SHOW
0000C0: 59 4F 55 52 22 0D 0A 31 34 34 30 20 50 52 49 4E YOUR"..1440 PRIN
0000D0: 54 20 22 53 43 4F 52 45 53 20 2E 22 0D 0A 31 35 T "SCORES ."..15
0000E0: 33 30 20 50 52 49 4E 54 20 22 46 49 52 53 54 20 30 PRINT "FIRST
0000F0: 4F 46 20 41 4C 4C 2E 2E 2E 48 4F 57 20 4D 41 4E OF ALL...HOW MAN
000100: 59 20 41 52 45 20 50 4C 41 59 49 4E 47 22 3B 0D Y ARE PLAYING";.
000110: 0A 31 36 32 30 20 49 4E 50 55 54 20 52 0D 0A 31 .1620 INPUT R..1
000120: 37 31 30 20 50 52 49 4E 54 20 0D 0A 31 38 30 30 710 PRINT ..1800
000130: 20 50 52 49 4E 54 20 22 56 45 52 59 20 47 4F 4F PRINT "VERY GOO
000140: 44 2E 2E 2E 22 0D 0A 31 38 39 30 20 46 4F 52 20 D..."..1890 FOR
000150: 49 3D 31 20 54 4F 20 31 30 30 3A 20 46 4F 52 20 I=1 TO 100: FOR
000160: 4A 3D 31 20 54 4F 20 36 3A 20 41 28 49 2C 4A 29 J=1 TO 6: A(I,J)
000170: 3D 30 3A 20 4E 45 58 54 20 4A 3A 20 4E 45 58 54 =0: NEXT J: NEXT
000180: 20 49 0D 0A 31 39 38 30 20 46 3D 31 0D 0A 32 30 I..1980 F=1..20
000190: 37 30 20 46 4F 52 20 50 3D 31 20 54 4F 20 52 0D 70 FOR P=1 TO R.
0001A0: 0A 32 31 36 30 20 4D 3D 30 0D 0A 32 32 35 30 20 .2160 M=0..2250
0001B0: 42 3D 31 0D 0A 32 33 34 30 20 4D 3D 30 3A 20 51 B=1..2340 M=0: Q
0001C0: 3D 30 0D 0A 32 34 33 30 20 46 4F 52 20 49 3D 31 =0..2430 FOR I=1
0001D0: 20 54 4F 20 31 35 3A 20 43 28 49 29 3D 30 3A 20 TO 15: C(I)=0:
0001E0: 4E 45 58 54 20 49 0D 0A 32 35 32 30 20 52 45 4D NEXT I..2520 REM
0001F0: 20 41 52 4B 20 42 41 4C 4C 20 47 45 4E 45 52 41 ARK BALL GENERA
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
000010: 22 42 4F 58 49 4E 47 22 0D 0A 32 20 50 52 49 4E "BOXING"..2 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A ERSEY"..3 PRINT:
000060: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 50 PRINT:PRINT..4 P
000070: 52 49 4E 54 20 22 42 4F 58 49 4E 47 20 4F 4C 59 RINT "BOXING OLY
000080: 4D 50 49 43 20 53 54 59 4C 45 20 28 33 20 52 4F MPIC STYLE (3 RO
000090: 55 4E 44 53 20 2D 2D 20 32 20 4F 55 54 20 4F 46 UNDS -- 2 OUT OF
0000A0: 20 33 20 57 49 4E 53 29 22 0D 0A 35 20 4A 3D 30 3 WINS)"..5 J=0
0000B0: 0D 0A 36 20 4C 3D 30 0D 0A 38 20 50 52 49 4E 54 ..6 L=0..8 PRINT
0000C0: 0D 0A 31 30 20 50 52 49 4E 54 20 22 57 48 41 54 ..10 PRINT "WHAT
0000D0: 20 49 53 20 59 4F 55 52 20 4F 50 50 4F 4E 45 4E IS YOUR OPPONEN
0000E0: 54 27 53 20 4E 41 4D 45 22 3B 0D 0A 32 30 20 49 T'S NAME";..20 I
0000F0: 4E 50 55 54 20 4A 24 0D 0A 33 30 20 50 52 49 4E NPUT J$..30 PRIN
000100: 54 20 22 49 4E 50 55 54 20 59 4F 55 52 20 4D 41 T "INPUT YOUR MA
000110: 4E 27 53 20 4E 41 4D 45 22 3B 0D 0A 34 30 20 49 N'S NAME";..40 I
000120: 4E 50 55 54 20 4C 24 0D 0A 35 30 20 50 52 49 4E NPUT L$..50 PRIN
000130: 54 20 22 44 49 46 46 45 52 45 4E 54 20 50 55 4E T "DIFFERENT PUN
000140: 43 48 45 53 20 41 52 45 3A 20 28 31 29 20 46 55 CHES ARE: (1) FU
000150: 4C 4C 20 53 57 49 4E 47 3B 20 28 32 29 20 48 4F LL SWING; (2) HO
000160: 4F 4B 3B 20 28 33 29 20 55 50 50 45 52 43 55 54 OK; (3) UPPERCUT
000170: 3B 20 28 34 29 20 4A 41 42 2E 22 0D 0A 36 30 20 ; (4) JAB."..60
000180: 50 52 49 4E 54 20 22 57 48 41 54 20 49 53 20 59 PRINT "WHAT IS Y
000190: 4F 55 52 20 4D 41 4E 53 20 42 45 53 54 22 3B 0D OUR MANS BEST";.
0001A0: 0A 36 34 20 49 4E 50 55 54 20 42 0D 0A 37 30 20 .64 INPUT B..70
0001B0: 50 52 49 4E 54 20 22 57 48 41 54 20 49 53 20 48 PRINT "WHAT IS H
0001C0: 49 53 20 56 55 4C 4E 45 52 41 42 49 4C 49 54 59 IS VULNERABILITY
0001D0: 22 3B 0D 0A 38 30 20 49 4E 50 55 54 20 44 0D 0A ";..80 INPUT D..
0001E0: 39 30 20 42 31 3D 49 4E 54 28 34 2A 52 4E 44 28 90 B1=INT(4*RND(
0001F0: 31 29 2B 31 29 0D 0A 31 30 30 20 44 31 3D 49 4E 1)+1)..100 D1=IN
Size : 512 (Real : 512)
000000: 54 4F 52 20 55 53 49 4E 47 20 4D 4F 44 20 27 31 TOR USING MOD '1
000010: 35 27 20 53 59 53 54 45 4D 0D 0A 32 36 31 30 20 5' SYSTEM..2610
000020: 50 52 49 4E 54 20 22 54 59 50 45 20 52 4F 4C 4C PRINT "TYPE ROLL
000030: 20 54 4F 20 47 45 54 20 54 48 45 20 42 41 4C 4C TO GET THE BALL
000040: 20 47 4F 49 4E 47 2E 22 0D 0A 32 37 30 30 20 49 GOING."..2700 I
000050: 4E 50 55 54 20 4E 24 0D 0A 32 37 39 30 20 4B 3D NPUT N$..2790 K=
000060: 30 3A 20 44 3D 30 0D 0A 32 38 38 30 20 46 4F 52 0: D=0..2880 FOR
000070: 20 49 3D 31 20 54 4F 20 32 30 0D 0A 32 39 37 30 I=1 TO 20..2970
000080: 20 58 3D 49 4E 54 28 52 4E 44 28 31 29 2A 31 30 X=INT(RND(1)*10
000090: 30 29 0D 0A 33 30 36 30 20 46 4F 52 20 4A 3D 31 0)..3060 FOR J=1
0000A0: 20 54 4F 20 31 30 0D 0A 33 31 35 30 20 49 46 20 TO 10..3150 IF
0000B0: 58 3C 31 35 2A 4A 20 54 48 45 4E 20 33 33 33 30 X<15*J THEN 3330
0000C0: 0D 0A 33 32 34 30 20 4E 45 58 54 20 4A 0D 0A 33 ..3240 NEXT J..3
0000D0: 33 33 30 20 43 28 31 35 2A 4A 2D 58 29 3D 31 0D 330 C(15*J-X)=1.
0000E0: 0A 33 34 32 30 20 4E 45 58 54 20 49 0D 0A 33 35 .3420 NEXT I..35
0000F0: 31 30 20 52 45 4D 20 41 52 4B 20 50 49 4E 20 44 10 REM ARK PIN D
000100: 49 41 47 52 41 4D 0D 0A 33 36 30 30 20 50 52 49 IAGRAM..3600 PRI
000110: 4E 54 20 22 50 4C 41 59 45 52 3A 22 50 3B 22 46 NT "PLAYER:"P;"F
000120: 52 41 4D 45 3A 22 3B 46 22 42 41 4C 4C 3A 22 42 RAME:";F"BALL:"B
000130: 0D 0A 33 36 39 30 20 46 4F 52 20 49 3D 30 20 54 ..3690 FOR I=0 T
000140: 4F 20 33 0D 0A 33 37 38 30 20 50 52 49 4E 54 0D O 3..3780 PRINT.
000150: 0A 33 38 37 30 20 46 4F 52 20 4A 3D 31 20 54 4F .3870 FOR J=1 TO
000160: 20 34 2D 49 0D 0A 33 39 36 30 20 4B 3D 4B 2B 31 4-I..3960 K=K+1
000170: 0D 0A 34 30 35 30 20 49 46 20 43 28 4B 29 3D 31 ..4050 IF C(K)=1
000180: 20 54 48 45 4E 20 34 33 32 30 0D 0A 34 31 34 30 THEN 4320..4140
000190: 20 50 52 49 4E 54 20 54 41 42 28 49 29 3B 22 2B PRINT TAB(I);"+
0001A0: 20 22 3B 0D 0A 34 32 33 30 20 47 4F 54 4F 20 34 ";..4230 GOTO 4
0001B0: 34 31 30 0D 0A 34 33 32 30 20 50 52 49 4E 54 20 410..4320 PRINT
0001C0: 54 41 42 28 49 29 3B 22 4F 20 22 3B 0D 0A 34 34 TAB(I);"O ";..44
0001D0: 31 30 20 4E 45 58 54 20 4A 0D 0A 34 35 30 30 20 10 NEXT J..4500
0001E0: 4E 45 58 54 20 49 0D 0A 34 35 39 30 20 50 52 49 NEXT I..4590 PRI
0001F0: 4E 54 20 22 22 0D 0A 34 36 38 30 20 52 45 4D 20 NT ""..4680 REM
Size : 512 (Real : 512)
000000: 54 28 34 2A 52 4E 44 28 31 29 2B 31 29 0D 0A 31 T(4*RND(1)+1)..1
000010: 31 30 20 49 46 20 42 31 3D 44 31 20 54 48 45 4E 10 IF B1=D1 THEN
000020: 20 39 30 0D 0A 31 32 30 20 50 52 49 4E 54 20 4A 90..120 PRINT J
000030: 24 3B 22 27 53 20 41 44 56 41 4E 54 41 47 45 20 $;"'S ADVANTAGE
000040: 49 53 22 3B 42 31 3B 22 41 4E 44 20 56 55 4C 4E IS";B1;"AND VULN
000050: 45 52 41 42 49 4C 49 54 59 20 49 53 20 53 45 43 ERABILITY IS SEC
000060: 52 45 54 2E 22 3A 50 52 49 4E 54 0D 0A 31 33 30 RET.":PRINT..130
000070: 20 46 4F 52 20 52 3D 31 20 54 4F 20 33 0D 0A 31 FOR R=1 TO 3..1
000080: 34 30 20 49 46 20 4A 3E 3D 20 32 20 54 48 45 4E 40 IF J>= 2 THEN
000090: 20 31 30 34 30 0D 0A 31 35 30 20 49 46 20 4C 3E 1040..150 IF L>
0000A0: 3D 32 20 54 48 45 4E 20 31 30 36 30 0D 0A 31 36 =2 THEN 1060..16
0000B0: 30 20 58 3D 30 0D 0A 31 37 30 20 59 3D 30 0D 0A 0 X=0..170 Y=0..
0000C0: 31 38 30 20 50 52 49 4E 54 20 22 52 4F 55 4E 44 180 PRINT "ROUND
0000D0: 22 3B 52 3B 22 42 45 47 49 4E 53 2E 2E 2E 22 0D ";R;"BEGINS...".
0000E0: 0A 31 38 35 20 46 4F 52 20 52 31 3D 20 31 20 54 .185 FOR R1= 1 T
0000F0: 4F 20 37 0D 0A 31 39 30 20 49 3D 49 4E 54 28 31 O 7..190 I=INT(1
000100: 30 2A 52 4E 44 28 31 29 2B 31 29 0D 0A 32 30 30 0*RND(1)+1)..200
000110: 20 49 46 20 49 3E 35 20 54 48 45 4E 20 36 30 30 IF I>5 THEN 600
000120: 0D 0A 32 31 30 20 50 52 49 4E 54 20 4C 24 3B 22 ..210 PRINT L$;"
000130: 27 53 20 50 55 4E 43 48 22 3B 0D 0A 32 32 30 20 'S PUNCH";..220
000140: 49 4E 50 55 54 20 50 0D 0A 32 32 31 20 49 46 20 INPUT P..221 IF
000150: 50 3D 42 20 54 48 45 4E 20 32 32 35 0D 0A 32 32 P=B THEN 225..22
000160: 32 20 47 4F 54 4F 20 32 33 30 0D 0A 32 32 35 20 2 GOTO 230..225
000170: 58 3D 58 2B 32 0D 0A 32 33 30 20 49 46 20 50 3D X=X+2..230 IF P=
000180: 31 20 54 48 45 4E 20 33 34 30 0D 0A 32 34 30 20 1 THEN 340..240
000190: 49 46 20 50 3D 32 20 54 48 45 4E 20 34 35 30 0D IF P=2 THEN 450.
0001A0: 0A 32 35 30 20 49 46 20 50 3D 33 20 54 48 45 4E .250 IF P=3 THEN
0001B0: 20 35 32 30 0D 0A 32 37 30 20 50 52 49 4E 54 20 520..270 PRINT
0001C0: 4C 24 3B 22 20 4A 41 42 53 20 41 54 20 22 3B 4A L$;" JABS AT ";J
0001D0: 24 22 27 53 20 48 45 41 44 20 22 3B 0D 0A 32 37 $"'S HEAD ";..27
0001E0: 31 20 49 46 20 44 31 3D 34 20 54 48 45 4E 20 32 1 IF D1=4 THEN 2
0001F0: 39 30 0D 0A 32 37 35 20 43 3D 49 4E 54 28 38 2A 90..275 C=INT(8*
Size : 512 (Real : 512)
000000: 41 52 4B 20 52 4F 4C 4C 20 41 4E 41 4C 59 53 49 ARK ROLL ANALYSI
000010: 53 0D 0A 34 37 37 30 20 46 4F 52 20 49 3D 31 20 S..4770 FOR I=1
000020: 54 4F 20 31 30 0D 0A 34 38 36 30 20 44 3D 44 2B TO 10..4860 D=D+
000030: 43 28 49 29 0D 0A 34 39 35 30 20 4E 45 58 54 20 C(I)..4950 NEXT
000040: 49 0D 0A 35 30 34 30 20 49 46 20 44 2D 4D 20 3C I..5040 IF D-M <
000050: 3E 20 30 20 54 48 45 4E 20 35 32 32 30 0D 0A 35 > 0 THEN 5220..5
000060: 31 33 30 20 50 52 49 4E 54 20 22 47 55 54 54 45 130 PRINT "GUTTE
000070: 52 21 21 22 0D 0A 35 32 32 30 20 49 46 20 42 3C R!!"..5220 IF B<
000080: 3E 31 20 4F 52 20 44 3C 3E 31 30 20 54 48 45 4E >1 OR D<>10 THEN
000090: 20 35 34 39 30 0D 0A 35 33 31 30 20 50 52 49 4E 5490..5310 PRIN
0000A0: 54 20 22 53 54 52 49 4B 45 21 21 21 21 21 07 07 T "STRIKE!!!!!..
0000B0: 07 07 22 0D 0A 35 34 30 30 20 51 3D 33 0D 0A 35 .."..5400 Q=3..5
0000C0: 34 39 30 20 49 46 20 42 3C 3E 32 20 4F 52 20 44 490 IF B<>2 OR D
0000D0: 3C 3E 31 30 20 54 48 45 4E 20 35 37 36 30 0D 0A <>10 THEN 5760..
0000E0: 35 35 38 30 20 50 52 49 4E 54 20 22 53 50 41 52 5580 PRINT "SPAR
0000F0: 45 21 21 21 21 22 0D 0A 35 36 37 30 20 51 3D 32 E!!!!"..5670 Q=2
000100: 0D 0A 35 37 36 30 20 49 46 20 42 3C 3E 32 20 4F ..5760 IF B<>2 O
000110: 52 20 44 3E 3D 31 30 20 54 48 45 4E 20 36 30 33 R D>=10 THEN 603
000120: 30 0D 0A 35 38 35 30 20 50 52 49 4E 54 20 22 45 0..5850 PRINT "E
000130: 52 52 4F 52 21 21 21 22 0D 0A 35 39 34 30 20 51 RROR!!!"..5940 Q
000140: 3D 31 0D 0A 36 30 33 30 20 49 46 20 42 3C 3E 31 =1..6030 IF B<>1
000150: 20 4F 52 20 44 3E 3D 31 30 20 54 48 45 4E 20 36 OR D>=10 THEN 6
000160: 32 31 30 0D 0A 36 31 32 30 20 50 52 49 4E 54 20 210..6120 PRINT
000170: 22 52 4F 4C 4C 20 59 4F 55 52 20 32 4E 44 20 42 "ROLL YOUR 2ND B
000180: 41 4C 4C 22 0D 0A 36 32 31 30 20 52 45 4D 20 41 ALL"..6210 REM A
000190: 52 4B 20 53 54 4F 52 41 47 45 20 4F 46 20 54 48 RK STORAGE OF TH
0001A0: 45 20 53 43 4F 52 45 53 0D 0A 36 33 30 30 20 50 E SCORES..6300 P
0001B0: 52 49 4E 54 20 0D 0A 36 33 39 30 20 41 28 46 2A RINT ..6390 A(F*
0001C0: 50 2C 42 29 3D 44 0D 0A 36 34 38 30 20 49 46 20 P,B)=D..6480 IF
0001D0: 42 3D 32 20 54 48 45 4E 20 37 30 32 30 0D 0A 36 B=2 THEN 7020..6
0001E0: 35 37 30 20 42 3D 32 0D 0A 36 36 36 30 20 4D 3D 570 B=2..6660 M=
0001F0: 44 0D 0A 36 37 35 30 20 49 46 20 51 3D 33 20 54 D..6750 IF Q=3 T
Size : 512 (Real : 512)
000000: 52 4E 44 28 31 29 2B 31 29 0D 0A 32 38 30 20 49 RND(1)+1)..280 I
000010: 46 20 43 3C 34 20 54 48 45 4E 20 33 31 30 0D 0A F C<4 THEN 310..
000020: 32 39 30 20 58 3D 58 2B 33 0D 0A 33 30 30 20 47 290 X=X+3..300 G
000030: 4F 54 4F 20 39 35 30 0D 0A 33 31 30 20 50 52 49 OTO 950..310 PRI
000040: 4E 54 20 22 49 54 27 53 20 42 4C 4F 43 4B 45 44 NT "IT'S BLOCKED
000050: 2E 22 0D 0A 33 33 30 20 47 4F 54 4F 20 39 35 30 ."..330 GOTO 950
000060: 0D 0A 33 34 30 20 50 52 49 4E 54 20 4C 24 20 22 ..340 PRINT L$ "
000070: 20 53 57 49 4E 47 53 20 41 4E 44 20 22 3B 0D 0A SWINGS AND ";..
000080: 33 34 31 20 49 46 20 44 31 3D 34 20 54 48 45 4E 341 IF D1=4 THEN
000090: 20 34 31 30 0D 0A 33 34 35 20 58 33 3D 49 4E 54 410..345 X3=INT
0000A0: 28 33 30 2A 52 4E 44 28 31 29 2B 31 29 0D 0A 33 (30*RND(1)+1)..3
0000B0: 35 30 20 49 46 20 58 33 3C 31 30 20 54 48 45 4E 50 IF X3<10 THEN
0000C0: 20 34 31 30 0D 0A 33 36 30 20 50 52 49 4E 54 20 410..360 PRINT
0000D0: 22 48 45 20 4D 49 53 53 45 53 20 22 3B 0D 0A 33 "HE MISSES ";..3
0000E0: 37 30 20 50 52 49 4E 54 0D 0A 33 37 35 20 49 46 70 PRINT..375 IF
0000F0: 20 58 3D 31 20 54 48 45 4E 20 39 35 30 0D 0A 33 X=1 THEN 950..3
000100: 38 30 20 50 52 49 4E 54 0D 0A 33 39 30 20 50 52 80 PRINT..390 PR
000110: 49 4E 54 0D 0A 34 30 30 20 47 4F 54 4F 20 33 30 INT..400 GOTO 30
000120: 30 0D 0A 34 31 30 20 50 52 49 4E 54 20 22 48 45 0..410 PRINT "HE
000130: 20 43 4F 4E 4E 45 43 54 53 21 22 0D 0A 34 32 30 CONNECTS!"..420
000140: 20 49 46 20 58 3E 33 35 20 54 48 45 4E 20 39 38 IF X>35 THEN 98
000150: 30 0D 0A 34 32 35 20 58 3D 58 2B 31 35 0D 0A 34 0..425 X=X+15..4
000160: 34 30 20 47 4F 54 4F 20 33 30 30 0D 0A 34 35 30 40 GOTO 300..450
000170: 20 50 52 49 4E 54 20 4C 24 3B 22 20 47 49 56 45 PRINT L$;" GIVE
000180: 53 20 54 48 45 20 48 4F 4F 4B 2E 2E 2E 20 22 3B S THE HOOK... ";
000190: 0D 0A 34 35 35 20 49 46 20 44 31 3D 32 20 54 48 ..455 IF D1=2 TH
0001A0: 45 4E 20 34 38 30 0D 0A 34 36 30 20 48 31 3D 49 EN 480..460 H1=I
0001B0: 4E 54 28 32 2A 52 4E 44 28 31 29 2B 31 29 0D 0A NT(2*RND(1)+1)..
0001C0: 34 37 30 20 49 46 20 48 31 3D 31 20 54 48 45 4E 470 IF H1=1 THEN
0001D0: 20 35 30 30 0D 0A 34 37 35 20 50 52 49 4E 54 20 500..475 PRINT
0001E0: 22 43 4F 4E 4E 45 43 54 53 2E 2E 2E 22 0D 0A 34 "CONNECTS..."..4
0001F0: 38 30 20 58 3D 58 2B 37 0D 0A 34 39 30 20 47 4F 80 X=X+7..490 GO
Size : 512 (Real : 512)
000000: 48 45 4E 20 36 32 31 30 0D 0A 36 38 34 30 20 41 HEN 6210..6840 A
000010: 28 46 2A 50 2C 42 29 3D 44 2D 4D 0D 0A 36 39 33 (F*P,B)=D-M..693
000020: 30 20 49 46 20 51 3D 30 20 54 48 45 4E 20 32 35 0 IF Q=0 THEN 25
000030: 32 30 0D 0A 37 30 32 30 20 41 28 46 2A 50 2C 33 20..7020 A(F*P,3
000040: 29 3D 51 0D 0A 37 31 31 30 20 4E 45 58 54 20 50 )=Q..7110 NEXT P
000050: 0D 0A 37 32 30 30 20 46 3D 46 2B 31 0D 0A 37 32 ..7200 F=F+1..72
000060: 39 30 20 49 46 20 46 3C 31 31 20 54 48 45 4E 20 90 IF F<11 THEN
000070: 32 30 37 30 0D 0A 37 32 39 35 20 50 52 49 4E 54 2070..7295 PRINT
000080: 20 22 46 52 41 4D 45 53 22 0D 0A 37 33 38 30 20 "FRAMES"..7380
000090: 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 0D 0A 37 FOR I=1 TO 10..7
0000A0: 34 37 30 20 50 52 49 4E 54 20 49 3B 0D 0A 37 35 470 PRINT I;..75
0000B0: 36 30 20 4E 45 58 54 20 49 0D 0A 37 36 35 30 20 60 NEXT I..7650
0000C0: 50 52 49 4E 54 20 0D 0A 37 37 34 30 20 46 4F 52 PRINT ..7740 FOR
0000D0: 20 50 3D 31 20 54 4F 20 52 0D 0A 37 38 33 30 20 P=1 TO R..7830
0000E0: 46 4F 52 20 49 3D 31 20 54 4F 20 33 0D 0A 37 39 FOR I=1 TO 3..79
0000F0: 32 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 31 30 20 FOR J=1 TO 10
000100: 0D 0A 38 30 31 30 20 50 52 49 4E 54 20 41 28 4A ..8010 PRINT A(J
000110: 2A 50 2C 49 29 3B 0D 0A 38 31 30 30 20 4E 45 58 *P,I);..8100 NEX
000120: 54 20 4A 0D 0A 38 31 30 35 20 50 52 49 4E 54 20 T J..8105 PRINT
000130: 0D 0A 38 31 39 30 20 4E 45 58 54 20 49 0D 0A 38 ..8190 NEXT I..8
000140: 32 38 30 20 50 52 49 4E 54 20 0D 0A 38 33 37 30 280 PRINT ..8370
000150: 20 4E 45 58 54 20 50 0D 0A 38 34 36 30 20 50 52 NEXT P..8460 PR
000160: 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 INT "DO YOU WANT
000170: 20 41 4E 4F 54 48 45 52 20 47 41 4D 45 22 0D 0A ANOTHER GAME"..
000180: 38 35 35 30 20 49 4E 50 55 54 20 41 24 0D 0A 38 8550 INPUT A$..8
000190: 36 34 30 20 49 46 20 4C 45 46 54 24 28 41 24 2C 640 IF LEFT$(A$,
0001A0: 31 29 3D 22 59 22 20 54 48 45 4E 20 32 36 31 30 1)="Y" THEN 2610
0001B0: 0D 0A 38 37 33 30 20 45 4E 44 0D 0A 1A E5 E5 E5 ..8730 END......
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 54 4F 20 33 30 30 0D 0A 35 30 30 20 50 52 49 4E TO 300..500 PRIN
000010: 54 20 22 42 55 54 20 49 54 27 53 20 42 4C 4F 43 T "BUT IT'S BLOC
000020: 4B 45 44 21 21 21 21 21 21 21 21 21 21 21 21 21 KED!!!!!!!!!!!!!
000030: 22 0D 0A 35 31 30 20 47 4F 54 4F 20 33 30 30 0D "..510 GOTO 300.
000040: 0A 35 32 30 20 50 52 49 4E 54 20 4C 24 20 22 20 .520 PRINT L$ "
000050: 54 52 49 45 53 20 41 4E 20 55 50 50 45 52 43 55 TRIES AN UPPERCU
000060: 54 20 22 3B 0D 0A 35 33 30 20 49 46 20 44 31 3D T ";..530 IF D1=
000070: 33 20 54 48 45 4E 20 35 37 30 0D 0A 35 34 30 20 3 THEN 570..540
000080: 44 35 3D 49 4E 54 28 31 30 30 2A 52 4E 44 28 31 D5=INT(100*RND(1
000090: 29 2B 31 29 0D 0A 35 35 30 20 49 46 20 44 35 3C )+1)..550 IF D5<
0000A0: 35 31 20 54 48 45 4E 20 35 37 30 0D 0A 35 36 30 51 THEN 570..560
0000B0: 20 50 52 49 4E 54 20 22 41 4E 44 20 49 54 27 53 PRINT "AND IT'S
0000C0: 20 42 4C 4F 43 4B 45 44 20 28 4C 55 43 4B 59 20 BLOCKED (LUCKY
0000D0: 42 4C 4F 43 4B 21 29 22 0D 0A 35 36 35 20 47 4F BLOCK!)"..565 GO
0000E0: 54 4F 20 33 30 30 0D 0A 35 37 30 20 50 52 49 4E TO 300..570 PRIN
0000F0: 54 20 22 41 4E 44 20 48 45 20 43 4F 4E 4E 45 43 T "AND HE CONNEC
000100: 54 53 21 22 0D 0A 35 38 30 20 58 3D 58 2B 34 0D TS!"..580 X=X+4.
000110: 0A 35 39 30 20 47 4F 54 4F 20 33 30 30 0D 0A 36 .590 GOTO 300..6
000120: 30 30 20 4A 37 3D 49 4E 54 28 34 2A 52 4E 44 28 00 J7=INT(4*RND(
000130: 31 29 2B 31 29 0D 0A 36 30 31 20 49 46 20 4A 37 1)+1)..601 IF J7
000140: 20 3D 42 31 20 54 48 45 4E 20 36 30 35 0D 0A 36 =B1 THEN 605..6
000150: 30 32 20 47 4F 54 4F 20 36 31 30 0D 0A 36 30 35 02 GOTO 610..605
000160: 20 59 3D 59 2B 32 0D 0A 36 31 30 20 49 46 20 4A Y=Y+2..610 IF J
000170: 37 3D 31 20 54 48 45 4E 20 37 32 30 0D 0A 36 32 7=1 THEN 720..62
000180: 30 20 49 46 20 4A 37 3D 32 20 54 48 45 4E 20 38 0 IF J7=2 THEN 8
000190: 31 30 0D 0A 36 33 30 20 49 46 20 4A 37 20 3D 33 10..630 IF J7 =3
0001A0: 20 54 48 45 4E 20 38 36 30 0D 0A 36 34 30 20 50 THEN 860..640 P
0001B0: 52 49 4E 54 20 4A 24 3B 22 20 4A 41 42 53 20 41 RINT J$;" JABS A
0001C0: 4E 44 20 22 3B 0D 0A 36 34 35 20 49 46 20 44 3D ND ";..645 IF D=
0001D0: 34 20 54 48 45 4E 20 37 30 30 0D 0A 36 35 30 20 4 THEN 700..650
0001E0: 5A 34 3D 49 4E 54 28 37 2A 52 4E 44 28 31 29 2B Z4=INT(7*RND(1)+
0001F0: 31 29 0D 0A 36 35 35 20 49 46 20 5A 34 3E 34 20 1)..655 IF Z4>4
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 54 48 45 4E 20 36 39 30 0D 0A 36 36 30 20 50 52 THEN 690..660 PR
000010: 49 4E 54 20 22 49 54 27 53 20 42 4C 4F 43 4B 45 INT "IT'S BLOCKE
000020: 44 21 22 0D 0A 36 37 30 20 47 4F 54 4F 20 33 30 D!"..670 GOTO 30
000030: 30 0D 0A 36 39 30 20 50 52 49 4E 54 20 22 20 42 0..690 PRINT " B
000040: 4C 4F 4F 44 20 53 50 49 4C 4C 53 20 21 21 21 22 LOOD SPILLS !!!"
000050: 0D 0A 37 30 30 20 59 3D 59 2B 35 0D 0A 37 31 30 ..700 Y=Y+5..710
000060: 20 47 4F 54 4F 20 33 30 30 0D 0A 37 32 30 20 50 GOTO 300..720 P
000070: 52 49 4E 54 20 4A 24 22 20 54 41 4B 45 53 20 41 RINT J$" TAKES A
000080: 20 46 55 4C 4C 20 53 57 49 4E 47 20 41 4E 44 22 FULL SWING AND"
000090: 3B 0D 0A 37 33 30 20 49 46 20 44 3D 31 20 54 48 ;..730 IF D=1 TH
0000A0: 45 4E 20 37 37 30 0D 0A 37 34 30 20 52 36 3D 49 EN 770..740 R6=I
0000B0: 4E 54 28 36 30 2A 52 4E 44 28 31 29 2B 31 29 0D NT(60*RND(1)+1).
0000C0: 0A 37 34 35 20 49 46 20 52 36 20 3C 33 30 20 54 .745 IF R6 <30 T
0000D0: 48 45 4E 20 37 37 30 0D 0A 37 35 30 20 50 52 49 HEN 770..750 PRI
0000E0: 4E 54 20 22 20 49 54 27 53 20 42 4C 4F 43 4B 45 NT " IT'S BLOCKE
0000F0: 44 21 22 0D 0A 37 36 30 20 47 4F 54 4F 20 33 30 D!"..760 GOTO 30
000100: 30 0D 0A 37 37 30 20 50 52 49 4E 54 20 22 20 50 0..770 PRINT " P
000110: 4F 57 21 21 21 21 21 20 48 45 20 48 49 54 53 20 OW!!!!! HE HITS
000120: 48 49 4D 20 52 49 47 48 54 20 49 4E 20 54 48 45 HIM RIGHT IN THE
000130: 20 46 41 43 45 21 22 0D 0A 37 38 30 20 49 46 20 FACE!"..780 IF
000140: 59 3E 33 35 20 54 48 45 4E 20 31 30 31 30 0D 0A Y>35 THEN 1010..
000150: 37 39 30 20 59 3D 59 2B 31 35 0D 0A 38 30 30 20 790 Y=Y+15..800
000160: 47 4F 54 4F 20 33 30 30 0D 0A 38 31 30 20 50 52 GOTO 300..810 PR
000170: 49 4E 54 20 4A 24 3B 22 20 47 45 54 53 20 22 3B INT J$;" GETS ";
000180: 4C 24 3B 22 20 49 4E 20 54 48 45 20 4A 41 57 20 L$;" IN THE JAW
000190: 28 4F 55 43 48 21 29 22 0D 0A 38 32 30 20 59 3D (OUCH!)"..820 Y=
0001A0: 59 2B 37 0D 0A 38 33 30 20 50 52 49 4E 54 20 22 Y+7..830 PRINT "
0001B0: 2E 2E 2E 2E 41 4E 44 20 41 47 41 49 4E 21 22 0D ....AND AGAIN!".
0001C0: 0A 38 33 35 20 59 3D 59 2B 35 0D 0A 38 34 30 20 .835 Y=Y+5..840
0001D0: 49 46 20 59 3E 33 35 20 54 48 45 4E 20 31 30 31 IF Y>35 THEN 101
0001E0: 30 0D 0A 38 35 30 20 50 52 49 4E 54 0D 0A 38 36 0..850 PRINT..86
0001F0: 30 20 50 52 49 4E 54 20 4C 24 3B 22 20 49 53 20 0 PRINT L$;" IS
Size : 512 (Real : 512)
000000: 54 45 4C 4C 20 59 4F 55 20 57 48 41 54 20 49 20 TELL YOU WHAT I
000010: 52 4F 4C 4C 45 44 20 46 4F 52 20 59 4F 55 22 0D ROLLED FOR YOU".
000020: 0A 31 35 30 20 50 52 49 4E 54 20 22 57 48 41 54 .150 PRINT "WHAT
000030: 20 54 48 45 20 4E 55 4D 42 45 52 20 53 54 41 4E THE NUMBER STAN
000040: 44 53 20 46 4F 52 2C 20 41 4E 44 20 49 46 20 59 DS FOR, AND IF Y
000050: 4F 55 20 43 41 4E 20 47 45 54 20 54 48 45 20 50 OU CAN GET THE P
000060: 41 52 54 2E 22 0D 0A 31 36 30 20 50 52 49 4E 54 ART."..160 PRINT
000070: 20 22 49 46 20 59 4F 55 20 43 41 4E 20 47 45 54 "IF YOU CAN GET
000080: 20 54 48 45 20 50 41 52 54 20 49 20 57 49 4C 4C THE PART I WILL
000090: 20 47 49 56 45 20 49 54 20 54 4F 20 59 4F 55 2E GIVE IT TO YOU.
0000A0: 22 0D 0A 31 37 30 20 50 52 49 4E 54 20 22 54 48 "..170 PRINT "TH
0000B0: 45 20 53 41 4D 45 20 57 49 4C 4C 20 48 41 50 50 E SAME WILL HAPP
0000C0: 45 4E 20 4F 4E 20 4D 59 20 54 55 52 4E 2E 22 0D EN ON MY TURN.".
0000D0: 0A 31 38 30 20 50 52 49 4E 54 20 22 49 46 20 54 .180 PRINT "IF T
0000E0: 48 45 52 45 20 49 53 20 41 20 43 48 41 4E 47 45 HERE IS A CHANGE
0000F0: 20 49 4E 20 45 49 54 48 45 52 20 42 55 47 20 49 IN EITHER BUG I
000100: 20 57 49 4C 4C 20 47 49 56 45 20 59 4F 55 20 54 WILL GIVE YOU T
000110: 48 45 22 0D 0A 31 39 30 20 50 52 49 4E 54 20 22 HE"..190 PRINT "
000120: 4F 50 54 49 4F 4E 20 4F 46 20 53 45 45 49 4E 47 OPTION OF SEEING
000130: 20 54 48 45 20 50 49 43 54 55 52 45 53 20 4F 46 THE PICTURES OF
000140: 20 54 48 45 20 42 55 47 53 2E 22 0D 0A 32 30 30 THE BUGS."..200
000150: 20 50 52 49 4E 54 20 22 54 48 45 20 4E 55 4D 42 PRINT "THE NUMB
000160: 45 52 53 20 53 54 41 4E 44 20 46 4F 52 20 50 41 ERS STAND FOR PA
000170: 52 54 53 20 41 53 20 46 4F 4C 4C 4F 57 53 3A 22 RTS AS FOLLOWS:"
000180: 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 4E 55 4D ..210 PRINT "NUM
000190: 42 45 52 22 2C 22 50 41 52 54 22 2C 22 4E 55 4D BER","PART","NUM
0001A0: 42 45 52 20 4F 46 20 50 41 52 54 20 4E 45 45 44 BER OF PART NEED
0001B0: 45 44 22 0D 0A 32 32 30 20 50 52 49 4E 54 20 22 ED"..220 PRINT "
0001C0: 31 22 2C 22 42 4F 44 59 22 2C 22 31 22 0D 0A 32 1","BODY","1"..2
0001D0: 33 30 20 50 52 49 4E 54 20 22 32 22 2C 22 4E 45 30 PRINT "2","NE
0001E0: 43 4B 22 2C 22 31 22 0D 0A 32 34 30 20 50 52 49 CK","1"..240 PRI
0001F0: 4E 54 20 22 33 22 2C 22 48 45 41 44 22 2C 22 31 NT "3","HEAD","1
Size : 512 (Real : 512)
000000: 41 54 54 41 43 4B 45 44 20 42 59 20 41 4E 20 55 ATTACKED BY AN U
000010: 50 50 45 52 43 55 54 20 28 4F 48 2C 4F 48 29 2E PPERCUT (OH,OH).
000020: 2E 2E 22 0D 0A 38 36 35 20 49 46 20 44 3D 33 20 .."..865 IF D=3
000030: 54 48 45 4E 20 38 39 30 0D 0A 38 37 30 20 51 34 THEN 890..870 Q4
000040: 3D 49 4E 54 28 32 30 30 2A 52 4E 44 28 31 29 2B =INT(200*RND(1)+
000050: 31 29 0D 0A 38 38 30 20 49 46 20 51 34 3E 37 35 1)..880 IF Q4>75
000060: 20 54 48 45 4E 20 39 32 30 0D 0A 38 39 30 20 50 THEN 920..890 P
000070: 52 49 4E 54 20 22 41 4E 44 20 22 3B 4A 24 3B 22 RINT "AND ";J$;"
000080: 20 43 4F 4E 4E 45 43 54 53 2E 2E 2E 22 0D 0A 39 CONNECTS..."..9
000090: 30 30 20 59 3D 59 2B 38 0D 0A 39 31 30 20 47 4F 00 Y=Y+8..910 GO
0000A0: 54 4F 20 33 30 30 0D 0A 39 32 30 20 50 52 49 4E TO 300..920 PRIN
0000B0: 54 20 22 20 42 4C 4F 43 4B 53 20 41 4E 44 20 48 T " BLOCKS AND H
0000C0: 49 54 53 20 22 3B 4A 24 3B 22 20 57 49 54 48 20 ITS ";J$;" WITH
0000D0: 41 20 48 4F 4F 4B 2E 22 0D 0A 39 33 30 20 58 3D A HOOK."..930 X=
0000E0: 58 2B 35 0D 0A 39 34 30 20 47 4F 54 4F 20 33 30 X+5..940 GOTO 30
0000F0: 30 0D 0A 39 35 30 20 4E 45 58 54 20 52 31 0D 0A 0..950 NEXT R1..
000100: 39 35 31 20 49 46 20 58 3E 59 20 54 48 45 4E 20 951 IF X>Y THEN
000110: 39 35 35 0D 0A 39 35 32 20 50 52 49 4E 54 3A 50 955..952 PRINT:P
000120: 52 49 4E 54 20 4A 24 22 20 57 49 4E 53 20 52 4F RINT J$" WINS RO
000130: 55 4E 44 22 20 52 0D 0A 39 35 33 20 4A 3D 4A 2B UND" R..953 J=J+
000140: 31 0D 0A 39 35 34 20 47 4F 54 4F 20 39 36 30 0D 1..954 GOTO 960.
000150: 0A 39 35 35 20 50 52 49 4E 54 3A 50 52 49 4E 54 .955 PRINT:PRINT
000160: 20 4C 24 22 20 57 49 4E 53 20 52 4F 55 4E 44 22 L$" WINS ROUND"
000170: 52 0D 0A 39 35 36 20 4C 3D 4C 2B 31 0D 0A 39 36 R..956 L=L+1..96
000180: 30 20 4E 45 58 54 20 52 0D 0A 39 36 31 20 49 46 0 NEXT R..961 IF
000190: 20 4A 3E 3D 20 32 20 54 48 45 4E 20 31 30 34 30 J>= 2 THEN 1040
0001A0: 0D 0A 39 36 32 20 49 46 20 4C 3E 3D 32 20 54 48 ..962 IF L>=2 TH
0001B0: 45 4E 20 31 30 36 30 0D 0A 39 38 30 20 50 52 49 EN 1060..980 PRI
0001C0: 4E 54 20 4A 24 20 22 20 49 53 20 4B 4E 4F 43 4B NT J$ " IS KNOCK
0001D0: 45 44 20 43 4F 4C 44 20 41 4E 44 20 22 20 4C 24 ED COLD AND " L$
0001E0: 22 20 49 53 20 54 48 45 20 57 49 4E 4E 45 52 20 " IS THE WINNER
0001F0: 41 4E 44 20 43 48 41 4D 50 21 22 3B 0D 0A 31 30 AND CHAMP!";..10
Size : 512 (Real : 512)
000000: 22 0D 0A 32 35 30 20 50 52 49 4E 54 20 22 34 22 "..250 PRINT "4"
000010: 2C 22 46 45 45 4C 45 52 53 22 2C 22 32 22 0D 0A ,"FEELERS","2"..
000020: 32 36 30 20 50 52 49 4E 54 20 22 35 22 2C 22 54 260 PRINT "5","T
000030: 41 49 4C 22 2C 22 31 22 0D 0A 32 37 30 20 50 52 AIL","1"..270 PR
000040: 49 4E 54 20 22 36 22 2C 22 4C 45 47 53 22 2C 22 INT "6","LEGS","
000050: 36 22 0D 0A 32 38 30 20 50 52 49 4E 54 0D 0A 32 6"..280 PRINT..2
000060: 39 30 20 50 52 49 4E 54 0D 0A 33 30 30 20 49 46 90 PRINT..300 IF
000070: 20 59 3E 30 20 54 48 45 4E 20 32 34 38 30 0D 0A Y>0 THEN 2480..
000080: 33 31 30 20 5A 3D 49 4E 54 28 36 2A 52 4E 44 28 310 Z=INT(6*RND(
000090: 31 29 2B 31 29 0D 0A 33 32 30 20 43 3D 31 0D 0A 1)+1)..320 C=1..
0000A0: 33 33 30 20 50 52 49 4E 54 20 22 59 4F 55 20 52 330 PRINT "YOU R
0000B0: 4F 4C 4C 45 44 20 41 22 3B 5A 0D 0A 33 34 30 20 OLLED A";Z..340
0000C0: 4F 4E 20 5A 20 47 4F 54 4F 20 33 35 30 2C 34 33 ON Z GOTO 350,43
0000D0: 30 2C 35 34 30 2C 36 35 30 2C 37 36 30 2C 38 37 0,540,650,760,87
0000E0: 30 0D 0A 33 35 30 20 50 52 49 4E 54 20 22 31 3D 0..350 PRINT "1=
0000F0: 42 4F 44 59 22 0D 0A 33 36 30 20 49 46 20 42 3D BODY"..360 IF B=
000100: 31 20 54 48 45 4E 20 34 31 30 0D 0A 33 37 30 20 1 THEN 410..370
000110: 50 52 49 4E 54 20 22 59 4F 55 20 4E 4F 57 20 48 PRINT "YOU NOW H
000120: 41 56 45 20 41 20 42 4F 44 59 2E 22 0D 0A 33 38 AVE A BODY."..38
000130: 30 20 42 3D 31 0D 0A 33 39 30 20 43 3D 30 0D 0A 0 B=1..390 C=0..
000140: 34 30 30 20 47 4F 54 4F 20 39 37 30 0D 0A 34 31 400 GOTO 970..41
000150: 30 20 50 52 49 4E 54 20 22 59 4F 55 20 44 4F 20 0 PRINT "YOU DO
000160: 4E 4F 54 20 4E 45 45 44 20 41 20 42 4F 44 59 2E NOT NEED A BODY.
000170: 22 0D 0A 34 32 30 20 47 4F 54 4F 20 39 37 30 0D "..420 GOTO 970.
000180: 0A 34 33 30 20 50 52 49 4E 54 20 22 32 3D 4E 45 .430 PRINT "2=NE
000190: 43 4B 22 0D 0A 34 34 30 20 49 46 20 4E 3D 31 20 CK"..440 IF N=1
0001A0: 54 48 45 4E 20 35 30 30 0D 0A 34 35 30 20 49 46 THEN 500..450 IF
0001B0: 20 42 3D 30 20 54 48 45 4E 20 35 32 30 0D 0A 34 B=0 THEN 520..4
0001C0: 36 30 20 50 52 49 4E 54 20 22 59 4F 55 20 4E 4F 60 PRINT "YOU NO
0001D0: 57 20 48 41 56 45 20 41 20 4E 45 43 4B 2E 22 0D W HAVE A NECK.".
0001E0: 0A 34 37 30 20 4E 3D 31 0D 0A 34 38 30 20 43 3D .470 N=1..480 C=
0001F0: 30 0D 0A 34 39 30 20 47 4F 54 4F 20 39 37 30 0D 0..490 GOTO 970.
Size : 512 (Real : 512)
000000: 30 30 20 47 4F 54 4F 20 31 30 38 30 0D 0A 31 30 00 GOTO 1080..10
000010: 31 30 20 50 52 49 4E 54 20 4C 24 20 22 20 49 53 10 PRINT L$ " IS
000020: 20 4B 4E 4F 43 4B 45 44 20 43 4F 4C 44 20 41 4E KNOCKED COLD AN
000030: 44 20 22 20 4A 24 22 20 49 53 20 54 48 45 20 57 D " J$" IS THE W
000040: 49 4E 4E 45 52 20 41 4E 44 20 43 48 41 4D 50 21 INNER AND CHAMP!
000050: 22 3B 0D 0A 31 30 33 30 20 47 4F 54 4F 20 31 30 ";..1030 GOTO 10
000060: 30 30 0D 0A 31 30 34 30 20 50 52 49 4E 54 20 4A 00..1040 PRINT J
000070: 24 20 22 20 57 49 4E 53 20 28 4E 49 43 45 20 47 $ " WINS (NICE G
000080: 4F 49 4E 47 2C 22 20 4A 24 3B 22 29 2E 22 0D 0A OING," J$;")."..
000090: 31 30 35 30 20 47 4F 54 4F 20 31 30 30 30 0D 0A 1050 GOTO 1000..
0000A0: 31 30 36 30 20 50 52 49 4E 54 20 4C 24 20 22 20 1060 PRINT L$ "
0000B0: 41 4D 41 5A 49 4E 47 4C 59 20 57 49 4E 53 21 21 AMAZINGLY WINS!!
0000C0: 22 0D 0A 31 30 37 30 20 47 4F 54 4F 20 31 30 30 "..1070 GOTO 100
0000D0: 30 0D 0A 31 30 38 30 20 50 52 49 4E 54 0D 0A 31 0..1080 PRINT..1
0000E0: 30 38 35 20 50 52 49 4E 54 0D 0A 31 30 39 30 20 085 PRINT..1090
0000F0: 50 52 49 4E 54 20 22 41 4E 44 20 4E 4F 57 20 47 PRINT "AND NOW G
000100: 4F 4F 44 42 59 45 20 46 52 4F 4D 20 54 48 45 20 OODBYE FROM THE
000110: 4F 4C 59 4D 50 49 43 20 41 52 45 4E 41 2E 22 0D OLYMPIC ARENA.".
000120: 0A 31 31 30 30 20 50 52 49 4E 54 0D 0A 31 31 31 .1100 PRINT..111
000130: 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 0 END...........
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 0A 35 30 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .500 PRINT "YOU
000010: 44 4F 20 4E 4F 54 20 4E 45 45 44 20 41 20 4E 45 DO NOT NEED A NE
000020: 43 4B 2E 22 0D 0A 35 31 30 20 47 4F 54 4F 20 39 CK."..510 GOTO 9
000030: 37 30 0D 0A 35 32 30 20 50 52 49 4E 54 20 22 59 70..520 PRINT "Y
000040: 4F 55 20 44 4F 20 4E 4F 54 20 48 41 56 45 20 41 OU DO NOT HAVE A
000050: 20 42 4F 44 59 2E 22 0D 0A 35 33 30 20 47 4F 54 BODY."..530 GOT
000060: 4F 20 39 37 30 0D 0A 35 34 30 20 50 52 49 4E 54 O 970..540 PRINT
000070: 20 22 33 3D 48 45 41 44 22 0D 0A 35 35 30 20 49 "3=HEAD"..550 I
000080: 46 20 4E 3D 30 20 54 48 45 4E 20 36 31 30 0D 0A F N=0 THEN 610..
000090: 35 36 30 20 49 46 20 48 3D 31 20 54 48 45 4E 20 560 IF H=1 THEN
0000A0: 36 33 30 0D 0A 35 37 30 20 50 52 49 4E 54 20 22 630..570 PRINT "
0000B0: 59 4F 55 20 4E 45 45 44 45 44 20 41 20 48 45 41 YOU NEEDED A HEA
0000C0: 44 2E 22 0D 0A 35 38 30 20 48 3D 31 0D 0A 35 39 D."..580 H=1..59
0000D0: 30 20 43 3D 30 0D 0A 36 30 30 20 47 4F 54 4F 20 0 C=0..600 GOTO
0000E0: 39 37 30 0D 0A 36 31 30 20 50 52 49 4E 54 20 22 970..610 PRINT "
0000F0: 59 4F 55 20 44 4F 20 4E 4F 54 20 48 41 56 45 20 YOU DO NOT HAVE
000100: 41 20 4E 45 43 4B 2E 22 0D 0A 36 32 30 20 47 4F A NECK."..620 GO
000110: 54 4F 20 39 37 30 0D 0A 36 33 30 20 50 52 49 4E TO 970..630 PRIN
000120: 54 20 22 59 4F 55 20 48 41 56 45 20 41 20 48 45 T "YOU HAVE A HE
000130: 41 44 2E 22 0D 0A 36 34 30 20 47 4F 54 4F 20 39 AD."..640 GOTO 9
000140: 37 30 0D 0A 36 35 30 20 50 52 49 4E 54 20 22 34 70..650 PRINT "4
000150: 3D 46 45 45 4C 45 52 53 22 0D 0A 36 36 30 20 49 =FEELERS"..660 I
000160: 46 20 48 3D 30 20 54 48 45 4E 20 37 34 30 0D 0A F H=0 THEN 740..
000170: 36 37 30 20 49 46 20 41 3D 32 20 54 48 45 4E 20 670 IF A=2 THEN
000180: 37 32 30 0D 0A 36 38 30 20 50 52 49 4E 54 20 22 720..680 PRINT "
000190: 49 20 4E 4F 57 20 47 49 56 45 20 59 4F 55 20 41 I NOW GIVE YOU A
0001A0: 20 46 45 45 4C 45 52 2E 22 0D 0A 36 39 30 20 41 FEELER."..690 A
0001B0: 3D 41 2B 31 0D 0A 37 30 30 20 43 3D 30 0D 0A 37 =A+1..700 C=0..7
0001C0: 31 30 20 47 4F 54 4F 20 39 37 30 0D 0A 37 32 30 10 GOTO 970..720
0001D0: 20 50 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 PRINT "YOU HAVE
0001E0: 20 54 57 4F 20 46 45 45 4C 45 52 53 20 41 4C 52 TWO FEELERS ALR
0001F0: 45 41 44 59 2E 22 0D 0A 37 33 30 20 47 4F 54 4F EADY."..730 GOTO
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 39 37 30 0D 0A 37 34 30 20 50 52 49 4E 54 20 970..740 PRINT
000010: 22 59 4F 55 20 44 4F 20 4E 4F 54 20 48 41 56 45 "YOU DO NOT HAVE
000020: 20 41 20 48 45 41 44 2E 22 0D 0A 37 35 30 20 47 A HEAD."..750 G
000030: 4F 54 4F 20 39 37 30 0D 0A 37 36 30 20 50 52 49 OTO 970..760 PRI
000040: 4E 54 20 22 35 3D 54 41 49 4C 22 0D 0A 37 37 30 NT "5=TAIL"..770
000050: 20 49 46 20 42 3D 30 20 54 48 45 4E 20 38 33 30 IF B=0 THEN 830
000060: 0D 0A 37 38 30 20 49 46 20 54 3D 31 20 54 48 45 ..780 IF T=1 THE
000070: 4E 20 38 35 30 0D 0A 37 39 30 20 50 52 49 4E 54 N 850..790 PRINT
000080: 20 22 49 20 4E 4F 57 20 47 49 56 45 20 59 4F 55 "I NOW GIVE YOU
000090: 20 41 20 54 41 49 4C 2E 22 0D 0A 38 30 30 20 54 A TAIL."..800 T
0000A0: 3D 54 2B 31 0D 0A 38 31 30 20 43 3D 30 0D 0A 38 =T+1..810 C=0..8
0000B0: 32 30 20 47 4F 54 4F 20 39 37 30 0D 0A 38 33 30 20 GOTO 970..830
0000C0: 20 50 52 49 4E 54 20 22 59 4F 55 20 44 4F 20 4E PRINT "YOU DO N
0000D0: 4F 54 20 48 41 56 45 20 41 20 42 4F 44 59 2E 22 OT HAVE A BODY."
0000E0: 0D 0A 38 34 30 20 47 4F 54 4F 20 39 37 30 0D 0A ..840 GOTO 970..
0000F0: 38 35 30 20 50 52 49 4E 54 20 22 59 4F 55 20 41 850 PRINT "YOU A
000100: 4C 52 45 41 44 59 20 48 41 56 45 20 41 20 54 41 LREADY HAVE A TA
000110: 49 4C 2E 22 0D 0A 38 36 30 20 47 4F 54 4F 20 39 IL."..860 GOTO 9
000120: 37 30 0D 0A 38 37 30 20 50 52 49 4E 54 20 22 36 70..870 PRINT "6
000130: 3D 4C 45 47 22 0D 0A 38 38 30 20 49 46 20 4C 3D =LEG"..880 IF L=
000140: 36 20 54 48 45 4E 20 39 34 30 0D 0A 38 39 30 20 6 THEN 940..890
000150: 49 46 20 42 3D 30 20 54 48 45 4E 20 39 36 30 0D IF B=0 THEN 960.
000160: 0A 39 30 30 20 4C 3D 4C 2B 31 0D 0A 39 31 30 20 .900 L=L+1..910
000170: 43 3D 30 0D 0A 39 32 30 20 50 52 49 4E 54 20 22 C=0..920 PRINT "
000180: 59 4F 55 20 4E 4F 57 20 48 41 56 45 22 3B 4C 3B YOU NOW HAVE";L;
000190: 22 4C 45 47 53 2E 22 0D 0A 39 33 30 20 47 4F 54 "LEGS."..930 GOT
0001A0: 4F 20 39 37 30 0D 0A 39 34 30 20 50 52 49 4E 54 O 970..940 PRINT
0001B0: 20 22 59 4F 55 20 48 41 56 45 20 36 20 46 45 45 "YOU HAVE 6 FEE
0001C0: 54 20 41 4C 52 45 41 44 59 2E 22 0D 0A 39 35 30 T ALREADY."..950
0001D0: 20 47 4F 54 4F 20 39 37 30 0D 0A 39 36 30 20 50 GOTO 970..960 P
0001E0: 52 49 4E 54 20 22 59 4F 55 20 44 4F 20 4E 4F 54 RINT "YOU DO NOT
0001F0: 20 48 41 56 45 20 41 20 42 4F 44 59 2E 22 0D 0A HAVE A BODY."..
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 10 PRINT TAB(34)
000010: 3B 22 42 55 47 22 0D 0A 32 30 20 50 52 49 4E 54 ;"BUG"..20 PRINT
000020: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
000030: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
000040: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
000050: 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E 54 3A RSEY"..30 PRINT:
000060: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 30 20 PRINT:PRINT..40
000070: 52 45 4D 0D 0A 35 30 20 41 3D 30 3A 20 42 3D 30 REM..50 A=0: B=0
000080: 3A 20 48 3D 30 3A 20 4C 3D 30 3A 20 4E 3D 30 3A : H=0: L=0: N=0:
000090: 20 50 3D 30 3A 20 51 3D 30 3A 20 52 3D 30 3A 20 P=0: Q=0: R=0:
0000A0: 53 3D 30 3A 20 54 3D 30 3A 20 55 3D 30 3A 20 56 S=0: T=0: U=0: V
0000B0: 3D 30 3A 20 59 3D 30 0D 0A 36 30 20 50 52 49 4E =0: Y=0..60 PRIN
0000C0: 54 20 22 54 48 45 20 47 41 4D 45 20 42 55 47 22 T "THE GAME BUG"
0000D0: 0D 0A 37 30 20 50 52 49 4E 54 20 22 49 20 48 4F ..70 PRINT "I HO
0000E0: 50 45 20 59 4F 55 20 45 4E 4A 4F 59 20 54 48 49 PE YOU ENJOY THI
0000F0: 53 20 47 41 4D 45 2E 22 0D 0A 38 30 20 50 52 49 S GAME."..80 PRI
000100: 4E 54 0D 0A 39 30 20 50 52 49 4E 54 20 22 44 4F NT..90 PRINT "DO
000110: 20 59 4F 55 20 57 41 4E 54 20 49 4E 53 54 52 55 YOU WANT INSTRU
000120: 43 54 49 4F 4E 53 22 3B 0D 0A 31 30 30 20 49 4E CTIONS";..100 IN
000130: 50 55 54 20 5A 24 0D 0A 31 31 30 20 49 46 20 5A PUT Z$..110 IF Z
000140: 24 3D 22 4E 4F 22 20 54 48 45 4E 20 33 30 30 0D $="NO" THEN 300.
000150: 0A 31 32 30 20 50 52 49 4E 54 20 22 54 48 45 20 .120 PRINT "THE
000160: 4F 42 4A 45 43 54 20 4F 46 20 42 55 47 20 49 53 OBJECT OF BUG IS
000170: 20 54 4F 20 46 49 4E 49 53 48 20 59 4F 55 52 20 TO FINISH YOUR
000180: 42 55 47 20 42 45 46 4F 52 45 20 49 20 46 49 4E BUG BEFORE I FIN
000190: 49 53 48 22 0D 0A 31 33 30 20 50 52 49 4E 54 20 ISH"..130 PRINT
0001A0: 22 4D 49 4E 45 2E 20 45 41 43 48 20 4E 55 4D 42 "MINE. EACH NUMB
0001B0: 45 52 20 53 54 41 4E 44 53 20 46 4F 52 20 41 20 ER STANDS FOR A
0001C0: 50 41 52 54 20 4F 46 20 54 48 45 20 42 55 47 20 PART OF THE BUG
0001D0: 42 4F 44 59 2E 22 0D 0A 31 34 30 20 50 52 49 4E BODY."..140 PRIN
0001E0: 54 20 22 49 20 57 49 4C 4C 20 52 4F 4C 4C 20 54 T "I WILL ROLL T
0001F0: 48 45 20 44 49 45 20 46 4F 52 20 59 4F 55 2C 20 HE DIE FOR YOU,
Size : 512 (Real : 512)
000000: 39 37 30 20 58 3D 49 4E 54 28 36 2A 52 4E 44 28 970 X=INT(6*RND(
000010: 31 29 2B 31 29 0D 0A 39 37 31 20 50 52 49 4E 54 1)+1)..971 PRINT
000020: 0D 0A 39 37 35 20 46 4F 52 20 44 45 4C 41 59 3D ..975 FOR DELAY=
000030: 31 20 54 4F 20 32 30 30 30 3A 4E 45 58 54 20 44 1 TO 2000:NEXT D
000040: 45 4C 41 59 0D 0A 39 38 30 20 50 52 49 4E 54 20 ELAY..980 PRINT
000050: 22 49 20 52 4F 4C 4C 45 44 20 41 22 3B 58 0D 0A "I ROLLED A";X..
000060: 39 39 30 20 4F 4E 20 58 20 47 4F 54 4F 20 31 30 990 ON X GOTO 10
000070: 30 30 2C 31 30 38 30 2C 31 31 39 30 2C 31 33 30 00,1080,1190,130
000080: 30 2C 31 34 31 30 2C 31 35 32 30 0D 0A 31 30 30 0,1410,1520..100
000090: 30 20 50 52 49 4E 54 20 22 31 3D 42 4F 44 59 22 0 PRINT "1=BODY"
0000A0: 0D 0A 31 30 31 30 20 49 46 20 50 3D 31 20 54 48 ..1010 IF P=1 TH
0000B0: 45 4E 20 31 30 36 30 0D 0A 31 30 32 30 20 50 52 EN 1060..1020 PR
0000C0: 49 4E 54 20 22 49 20 4E 4F 57 20 48 41 56 45 20 INT "I NOW HAVE
0000D0: 41 20 42 4F 44 59 2E 22 0D 0A 31 30 33 30 20 43 A BODY."..1030 C
0000E0: 3D 30 0D 0A 31 30 34 30 20 50 3D 31 0D 0A 31 30 =0..1040 P=1..10
0000F0: 35 30 20 47 4F 54 4F 20 31 36 33 30 0D 0A 31 30 50 GOTO 1630..10
000100: 36 30 20 50 52 49 4E 54 20 22 49 20 44 4F 20 4E 60 PRINT "I DO N
000110: 4F 54 20 4E 45 45 44 20 41 20 42 4F 44 59 2E 22 OT NEED A BODY."
000120: 0D 0A 31 30 37 30 20 47 4F 54 4F 20 31 36 33 30 ..1070 GOTO 1630
000130: 0D 0A 31 30 38 30 20 50 52 49 4E 54 20 22 32 3D ..1080 PRINT "2=
000140: 4E 45 43 4B 22 0D 0A 31 30 39 30 20 49 46 20 51 NECK"..1090 IF Q
000150: 3D 31 20 54 48 45 4E 20 31 31 35 30 0D 0A 31 31 =1 THEN 1150..11
000160: 30 30 20 49 46 20 50 3D 30 20 54 48 45 4E 20 31 00 IF P=0 THEN 1
000170: 31 37 30 0D 0A 31 31 31 30 20 50 52 49 4E 54 20 170..1110 PRINT
000180: 22 49 20 4E 4F 57 20 48 41 56 45 20 41 20 4E 45 "I NOW HAVE A NE
000190: 43 4B 2E 22 0D 0A 31 31 32 30 20 51 3D 31 0D 0A CK."..1120 Q=1..
0001A0: 31 31 33 30 20 43 3D 30 0D 0A 31 31 34 30 20 47 1130 C=0..1140 G
0001B0: 4F 54 4F 20 31 36 33 30 0D 0A 31 31 35 30 20 50 OTO 1630..1150 P
0001C0: 52 49 4E 54 20 22 49 20 44 4F 20 4E 4F 54 20 4E RINT "I DO NOT N
0001D0: 45 45 44 20 41 20 4E 45 43 4B 2E 22 0D 0A 31 31 EED A NECK."..11
0001E0: 36 30 20 47 4F 54 4F 20 31 36 33 30 0D 0A 31 31 60 GOTO 1630..11
0001F0: 37 30 20 50 52 49 4E 54 20 22 49 20 44 4F 20 4E 70 PRINT "I DO N
Size : 512 (Real : 512)
000000: 54 0D 0A 32 31 33 30 20 50 52 49 4E 54 0D 0A 32 T..2130 PRINT..2
000010: 31 34 30 20 50 52 49 4E 54 0D 0A 32 31 35 30 20 140 PRINT..2150
000020: 49 46 20 53 3D 30 20 54 48 45 4E 20 32 32 33 30 IF S=0 THEN 2230
000030: 0D 0A 32 31 36 30 20 46 4F 52 20 5A 3D 31 20 54 ..2160 FOR Z=1 T
000040: 4F 20 34 0D 0A 32 31 37 30 20 50 52 49 4E 54 20 O 4..2170 PRINT
000050: 54 41 42 28 31 30 29 3B 0D 0A 32 31 38 30 20 46 TAB(10);..2180 F
000060: 4F 52 20 58 3D 31 20 54 4F 20 53 0D 0A 32 31 39 OR X=1 TO S..219
000070: 30 20 50 52 49 4E 54 20 22 46 20 22 3B 0D 0A 32 0 PRINT "F ";..2
000080: 32 30 30 20 4E 45 58 54 20 58 0D 0A 32 32 31 30 200 NEXT X..2210
000090: 20 50 52 49 4E 54 0D 0A 32 32 32 30 20 4E 45 58 PRINT..2220 NEX
0000A0: 54 20 5A 0D 0A 32 32 33 30 20 49 46 20 52 3C 3E T Z..2230 IF R<>
0000B0: 31 20 54 48 45 4E 20 32 32 35 30 0D 0A 32 32 34 1 THEN 2250..224
0000C0: 30 20 47 4F 53 55 42 20 32 34 37 30 0D 0A 32 32 0 GOSUB 2470..22
0000D0: 35 30 20 49 46 20 51 3D 30 20 54 48 45 4E 20 32 50 IF Q=0 THEN 2
0000E0: 32 38 30 0D 0A 32 32 36 30 20 50 52 49 4E 54 20 280..2260 PRINT
0000F0: 22 20 20 20 20 20 20 20 20 20 20 4E 20 4E 22 0D " N N".
000100: 0A 32 32 37 30 20 50 52 49 4E 54 20 22 20 20 20 .2270 PRINT "
000110: 20 20 20 20 20 20 20 4E 20 4E 22 0D 0A 32 32 38 N N"..228
000120: 30 20 49 46 20 50 3D 30 20 54 48 45 4E 20 32 33 0 IF P=0 THEN 23
000130: 36 30 0D 0A 32 32 39 30 20 50 52 49 4E 54 20 22 60..2290 PRINT "
000140: 20 20 20 20 20 42 42 42 42 42 42 42 42 42 42 42 BBBBBBBBBBB
000150: 42 22 0D 0A 32 33 30 30 20 46 4F 52 20 5A 3D 31 B"..2300 FOR Z=1
000160: 20 54 4F 20 32 0D 0A 32 33 31 30 20 50 52 49 4E TO 2..2310 PRIN
000170: 54 20 22 20 20 20 20 20 42 20 20 20 20 20 20 20 T " B
000180: 20 20 20 42 22 0D 0A 32 33 32 30 20 4E 45 58 54 B"..2320 NEXT
000190: 20 5A 0D 0A 32 33 33 30 20 49 46 20 55 3C 3E 31 Z..2330 IF U<>1
0001A0: 20 54 48 45 4E 20 32 33 35 30 0D 0A 32 33 34 30 THEN 2350..2340
0001B0: 20 50 52 49 4E 54 20 22 54 54 54 54 54 42 20 20 PRINT "TTTTTB
0001C0: 20 20 20 20 20 20 20 20 42 22 0D 0A 32 33 35 30 B"..2350
0001D0: 20 50 52 49 4E 54 20 22 20 20 20 20 20 42 42 42 PRINT " BBB
0001E0: 42 42 42 42 42 42 42 42 42 22 0D 0A 32 33 36 30 BBBBBBBBB"..2360
0001F0: 20 49 46 20 56 3D 30 20 54 48 45 4E 20 32 34 35 IF V=0 THEN 245
Size : 512 (Real : 512)
000000: 4F 54 20 48 41 56 45 20 41 20 42 4F 44 59 2E 22 OT HAVE A BODY."
000010: 0D 0A 31 31 38 30 20 47 4F 54 4F 20 31 36 33 30 ..1180 GOTO 1630
000020: 0D 0A 31 31 39 30 20 50 52 49 4E 54 20 22 33 3D ..1190 PRINT "3=
000030: 48 45 41 44 22 0D 0A 31 32 30 30 20 49 46 20 51 HEAD"..1200 IF Q
000040: 3D 30 20 54 48 45 4E 20 31 32 36 30 0D 0A 31 32 =0 THEN 1260..12
000050: 31 30 20 49 46 20 52 3D 31 20 54 48 45 4E 20 31 10 IF R=1 THEN 1
000060: 32 38 30 0D 0A 31 32 32 30 20 50 52 49 4E 54 20 280..1220 PRINT
000070: 22 49 20 4E 45 45 44 45 44 20 41 20 48 45 41 44 "I NEEDED A HEAD
000080: 2E 22 0D 0A 31 32 33 30 20 52 3D 31 0D 0A 31 32 ."..1230 R=1..12
000090: 34 30 20 43 3D 30 0D 0A 31 32 35 30 20 47 4F 54 40 C=0..1250 GOT
0000A0: 4F 20 31 36 33 30 0D 0A 31 32 36 30 20 50 52 49 O 1630..1260 PRI
0000B0: 4E 54 20 22 49 20 44 4F 20 4E 4F 54 20 48 41 56 NT "I DO NOT HAV
0000C0: 45 20 41 20 4E 45 43 4B 2E 22 0D 0A 31 32 37 30 E A NECK."..1270
0000D0: 20 47 4F 54 4F 20 31 36 33 30 0D 0A 31 32 38 30 GOTO 1630..1280
0000E0: 20 50 52 49 4E 54 20 22 49 20 44 4F 20 4E 4F 54 PRINT "I DO NOT
0000F0: 20 4E 45 45 44 20 41 20 48 45 41 44 2E 22 0D 0A NEED A HEAD."..
000100: 31 32 39 30 20 47 4F 54 4F 20 31 36 33 30 0D 0A 1290 GOTO 1630..
000110: 31 33 30 30 20 50 52 49 4E 54 20 22 34 3D 46 45 1300 PRINT "4=FE
000120: 45 4C 45 52 53 22 0D 0A 31 33 31 30 20 49 46 20 ELERS"..1310 IF
000130: 52 3D 30 20 54 48 45 4E 20 31 33 39 30 0D 0A 31 R=0 THEN 1390..1
000140: 33 32 30 20 49 46 20 53 3D 32 20 54 48 45 4E 20 320 IF S=2 THEN
000150: 31 33 37 30 0D 0A 31 33 33 30 20 50 52 49 4E 54 1370..1330 PRINT
000160: 20 22 49 20 47 45 54 20 41 20 46 45 45 4C 45 52 "I GET A FEELER
000170: 2E 22 0D 0A 31 33 34 30 20 53 3D 53 2B 31 0D 0A ."..1340 S=S+1..
000180: 31 33 35 30 20 43 3D 30 0D 0A 31 33 36 30 20 47 1350 C=0..1360 G
000190: 4F 54 4F 20 31 36 33 30 0D 0A 31 33 37 30 20 50 OTO 1630..1370 P
0001A0: 52 49 4E 54 20 22 49 20 48 41 56 45 20 32 20 46 RINT "I HAVE 2 F
0001B0: 45 45 4C 45 52 53 20 41 4C 52 45 41 44 59 2E 22 EELERS ALREADY."
0001C0: 0D 0A 31 33 38 30 20 47 4F 54 4F 20 31 36 33 30 ..1380 GOTO 1630
0001D0: 0D 0A 31 33 39 30 20 50 52 49 4E 54 20 22 49 20 ..1390 PRINT "I
0001E0: 44 4F 20 4E 4F 54 20 48 41 56 45 20 41 20 48 45 DO NOT HAVE A HE
0001F0: 41 44 2E 22 0D 0A 31 34 30 30 20 47 4F 54 4F 20 AD."..1400 GOTO
Size : 512 (Real : 512)
000000: 30 0D 0A 32 33 37 30 20 46 4F 52 20 5A 3D 31 20 0..2370 FOR Z=1
000010: 54 4F 20 32 0D 0A 32 33 38 30 20 50 52 49 4E 54 TO 2..2380 PRINT
000020: 20 54 41 42 28 35 29 3B 0D 0A 32 33 39 30 20 46 TAB(5);..2390 F
000030: 4F 52 20 58 3D 31 20 54 4F 20 56 0D 0A 32 34 30 OR X=1 TO V..240
000040: 30 20 50 52 49 4E 54 20 22 20 4C 22 3B 0D 0A 32 0 PRINT " L";..2
000050: 34 31 30 20 4E 45 58 54 20 58 0D 0A 32 34 32 30 410 NEXT X..2420
000060: 20 50 52 49 4E 54 0D 0A 32 34 33 30 20 4E 45 58 PRINT..2430 NEX
000070: 54 20 5A 0D 0A 32 34 35 30 20 49 46 20 59 3C 3E T Z..2450 IF Y<>
000080: 30 20 54 48 45 4E 20 32 35 34 30 0D 0A 32 34 36 0 THEN 2540..246
000090: 30 20 47 4F 54 4F 20 33 30 30 0D 0A 32 34 37 30 0 GOTO 300..2470
0000A0: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
0000B0: 48 48 48 48 48 48 48 22 0D 0A 32 34 38 30 20 50 HHHHHHH"..2480 P
0000C0: 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 48 20 RINT " H
0000D0: 20 20 20 20 48 22 0D 0A 32 34 39 30 20 50 52 49 H"..2490 PRI
0000E0: 4E 54 20 22 20 20 20 20 20 20 20 20 48 20 4F 20 NT " H O
0000F0: 4F 20 48 22 0D 0A 32 35 30 30 20 50 52 49 4E 54 O H"..2500 PRINT
000100: 20 22 20 20 20 20 20 20 20 20 48 20 20 20 20 20 " H
000110: 48 22 0D 0A 32 35 31 30 20 50 52 49 4E 54 20 22 H"..2510 PRINT "
000120: 20 20 20 20 20 20 20 20 48 20 20 56 20 20 48 22 H V H"
000130: 0D 0A 32 35 32 30 20 50 52 49 4E 54 20 22 20 20 ..2520 PRINT "
000140: 20 20 20 20 20 20 48 48 48 48 48 48 48 22 0D 0A HHHHHHH"..
000150: 32 35 33 30 20 52 45 54 55 52 4E 0D 0A 32 35 34 2530 RETURN..254
000160: 30 20 50 52 49 4E 54 20 22 49 20 48 4F 50 45 20 0 PRINT "I HOPE
000170: 59 4F 55 20 45 4E 4A 4F 59 45 44 20 54 48 45 20 YOU ENJOYED THE
000180: 47 41 4D 45 2C 20 50 4C 41 59 20 49 54 20 41 47 GAME, PLAY IT AG
000190: 41 49 4E 20 53 4F 4F 4E 21 21 22 0D 0A 32 35 35 AIN SOON!!"..255
0001A0: 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 0 END...........
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 36 33 30 0D 0A 31 34 31 30 20 50 52 49 4E 54 1630..1410 PRINT
000010: 20 22 35 3D 54 41 49 4C 22 0D 0A 31 34 32 30 20 "5=TAIL"..1420
000020: 49 46 20 50 3D 30 20 54 48 45 4E 20 31 34 38 30 IF P=0 THEN 1480
000030: 0D 0A 31 34 33 30 20 49 46 20 55 3D 31 20 54 48 ..1430 IF U=1 TH
000040: 45 4E 20 31 35 30 30 0D 0A 31 34 34 30 20 50 52 EN 1500..1440 PR
000050: 49 4E 54 20 22 49 20 4E 4F 57 20 48 41 56 45 20 INT "I NOW HAVE
000060: 41 20 54 41 49 4C 2E 22 0D 0A 31 34 35 30 20 55 A TAIL."..1450 U
000070: 3D 31 0D 0A 31 34 36 30 20 43 3D 30 0D 0A 31 34 =1..1460 C=0..14
000080: 37 30 20 47 4F 54 4F 20 31 36 33 30 0D 0A 31 34 70 GOTO 1630..14
000090: 38 30 20 50 52 49 4E 54 20 22 49 20 44 4F 20 4E 80 PRINT "I DO N
0000A0: 4F 54 20 48 41 56 45 20 41 20 42 4F 44 59 2E 22 OT HAVE A BODY."
0000B0: 0D 0A 31 34 39 30 20 47 4F 54 4F 20 31 36 33 30 ..1490 GOTO 1630
0000C0: 0D 0A 31 35 30 30 20 50 52 49 4E 54 20 22 49 20 ..1500 PRINT "I
0000D0: 44 4F 20 4E 4F 54 20 4E 45 45 44 20 41 20 54 41 DO NOT NEED A TA
0000E0: 49 4C 2E 22 0D 0A 31 35 31 30 20 47 4F 54 4F 20 IL."..1510 GOTO
0000F0: 31 36 33 30 0D 0A 31 35 32 30 20 50 52 49 4E 54 1630..1520 PRINT
000100: 20 22 36 3D 4C 45 47 53 22 0D 0A 31 35 33 30 20 "6=LEGS"..1530
000110: 49 46 20 56 3D 36 20 54 48 45 4E 20 31 35 39 30 IF V=6 THEN 1590
000120: 0D 0A 31 35 34 30 20 49 46 20 50 3D 30 20 54 48 ..1540 IF P=0 TH
000130: 45 4E 20 31 36 31 30 0D 0A 31 35 35 30 20 56 3D EN 1610..1550 V=
000140: 56 2B 31 0D 0A 31 35 36 30 20 43 3D 30 0D 0A 31 V+1..1560 C=0..1
000150: 35 37 30 20 50 52 49 4E 54 20 22 49 20 4E 4F 57 570 PRINT "I NOW
000160: 20 48 41 56 45 22 3B 56 3B 22 4C 45 47 53 2E 22 HAVE";V;"LEGS."
000170: 0D 0A 31 35 38 30 20 47 4F 54 4F 20 31 36 33 30 ..1580 GOTO 1630
000180: 0D 0A 31 35 39 30 20 50 52 49 4E 54 2C 22 49 20 ..1590 PRINT,"I
000190: 48 41 56 45 20 36 20 46 45 45 54 2E 22 0D 0A 31 HAVE 6 FEET."..1
0001A0: 36 30 30 20 47 4F 54 4F 20 31 36 33 30 0D 0A 31 600 GOTO 1630..1
0001B0: 36 31 30 20 50 52 49 4E 54 20 22 49 20 44 4F 20 610 PRINT "I DO
0001C0: 4E 4F 54 20 48 41 56 45 20 41 20 42 4F 44 59 2E NOT HAVE A BODY.
0001D0: 22 0D 0A 31 36 32 30 20 47 4F 54 4F 20 31 36 33 "..1620 GOTO 163
0001E0: 30 0D 0A 31 36 33 30 20 49 46 20 41 3D 32 20 41 0..1630 IF A=2 A
0001F0: 4E 44 20 54 3D 31 20 41 4E 44 20 4C 3D 36 20 54 ND T=1 AND L=6 T
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 10 PRINT TAB(34)
000010: 3B 22 42 55 4C 4C 22 0D 0A 32 30 20 50 52 49 4E ;"BULL"..20 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 33 30 20 44 45 46 20 46 ERSEY"..30 DEF F
000060: 4E 41 28 4B 29 3D 49 4E 54 28 52 4E 44 28 31 29 NA(K)=INT(RND(1)
000070: 2A 32 2B 31 29 0D 0A 32 30 30 20 50 52 49 4E 54 *2+1)..200 PRINT
000080: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 32 30 :PRINT:PRINT..20
000090: 32 20 4C 3D 31 0D 0A 32 30 35 20 50 52 49 4E 54 2 L=1..205 PRINT
0000A0: 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 4E "DO YOU WANT IN
0000B0: 53 54 52 55 43 54 49 4F 4E 53 22 3B 0D 0A 32 30 STRUCTIONS";..20
0000C0: 36 20 49 4E 50 55 54 20 5A 24 0D 0A 32 30 37 20 6 INPUT Z$..207
0000D0: 49 46 20 5A 24 3D 22 4E 4F 22 20 54 48 45 4E 20 IF Z$="NO" THEN
0000E0: 34 30 30 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 400..210 PRINT "
0000F0: 48 45 4C 4C 4F 2C 20 41 4C 4C 20 59 4F 55 20 42 HELLO, ALL YOU B
000100: 4C 4F 4F 44 4C 4F 56 45 52 53 20 41 4E 44 20 41 LOODLOVERS AND A
000110: 46 49 43 49 4F 4E 41 44 4F 53 2E 22 0D 0A 32 32 FICIONADOS."..22
000120: 30 20 50 52 49 4E 54 20 22 48 45 52 45 20 49 53 0 PRINT "HERE IS
000130: 20 59 4F 55 52 20 42 49 47 20 43 48 41 4E 43 45 YOUR BIG CHANCE
000140: 20 54 4F 20 4B 49 4C 4C 20 41 20 42 55 4C 4C 2E TO KILL A BULL.
000150: 22 0D 0A 32 33 30 20 50 52 49 4E 54 0D 0A 32 34 "..230 PRINT..24
000160: 30 20 50 52 49 4E 54 20 22 4F 4E 20 45 41 43 48 0 PRINT "ON EACH
000170: 20 50 41 53 53 20 4F 46 20 54 48 45 20 42 55 4C PASS OF THE BUL
000180: 4C 2C 20 59 4F 55 20 4D 41 59 20 54 52 59 22 0D L, YOU MAY TRY".
000190: 0A 32 35 30 20 50 52 49 4E 54 20 22 30 20 2D 20 .250 PRINT "0 -
0001A0: 56 45 52 4F 4E 49 43 41 20 28 44 41 4E 47 45 52 VERONICA (DANGER
0001B0: 4F 55 53 20 49 4E 53 49 44 45 20 4D 4F 56 45 20 OUS INSIDE MOVE
0001C0: 4F 46 20 54 48 45 20 43 41 50 45 29 22 0D 0A 32 OF THE CAPE)"..2
0001D0: 36 30 20 50 52 49 4E 54 20 22 31 20 2D 20 4C 45 60 PRINT "1 - LE
0001E0: 53 53 20 44 41 4E 47 45 52 4F 55 53 20 4F 55 54 SS DANGEROUS OUT
0001F0: 53 49 44 45 20 4D 4F 56 45 20 4F 46 20 54 48 45 SIDE MOVE OF THE
Size : 512 (Real : 512)
000000: 48 45 4E 20 31 36 35 30 0D 0A 31 36 34 30 20 47 HEN 1650..1640 G
000010: 4F 54 4F 20 31 36 37 30 0D 0A 31 36 35 30 20 50 OTO 1670..1650 P
000020: 52 49 4E 54 20 22 59 4F 55 52 20 42 55 47 20 49 RINT "YOUR BUG I
000030: 53 20 46 49 4E 49 53 48 45 44 2E 22 0D 0A 31 36 S FINISHED."..16
000040: 36 30 20 59 3D 59 2B 31 0D 0A 31 36 37 30 20 49 60 Y=Y+1..1670 I
000050: 46 20 53 3D 32 20 41 4E 44 20 50 3D 31 20 41 4E F S=2 AND P=1 AN
000060: 44 20 56 3D 36 20 54 48 45 4E 20 31 36 39 30 0D D V=6 THEN 1690.
000070: 0A 31 36 38 30 20 47 4F 54 4F 20 31 37 31 30 0D .1680 GOTO 1710.
000080: 0A 31 36 39 30 20 50 52 49 4E 54 20 22 4D 59 20 .1690 PRINT "MY
000090: 42 55 47 20 49 53 20 46 49 4E 49 53 48 45 44 2E BUG IS FINISHED.
0000A0: 22 0D 0A 31 37 30 30 20 59 3D 59 2B 32 0D 0A 31 "..1700 Y=Y+2..1
0000B0: 37 31 30 20 49 46 20 43 3D 31 20 54 48 45 4E 20 710 IF C=1 THEN
0000C0: 33 30 30 0D 0A 31 37 32 30 20 50 52 49 4E 54 20 300..1720 PRINT
0000D0: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 48 45 "DO YOU WANT THE
0000E0: 20 50 49 43 54 55 52 45 53 22 3B 0D 0A 31 37 33 PICTURES";..173
0000F0: 30 20 49 4E 50 55 54 20 5A 24 0D 0A 31 37 34 30 0 INPUT Z$..1740
000100: 20 49 46 20 5A 24 3D 22 4E 4F 22 20 54 48 45 4E IF Z$="NO" THEN
000110: 20 33 30 30 0D 0A 31 37 35 30 20 50 52 49 4E 54 300..1750 PRINT
000120: 20 22 2A 2A 2A 2A 2A 59 4F 55 52 20 42 55 47 2A "*****YOUR BUG*
000130: 2A 2A 2A 2A 22 0D 0A 31 37 36 30 20 50 52 49 4E ****"..1760 PRIN
000140: 54 0D 0A 31 37 37 30 20 50 52 49 4E 54 0D 0A 31 T..1770 PRINT..1
000150: 37 38 30 20 49 46 20 41 3D 30 20 54 48 45 4E 20 780 IF A=0 THEN
000160: 31 38 36 30 0D 0A 31 37 39 30 20 46 4F 52 20 5A 1860..1790 FOR Z
000170: 3D 31 20 54 4F 20 34 0D 0A 31 38 30 30 20 46 4F =1 TO 4..1800 FO
000180: 52 20 58 3D 31 20 54 4F 20 41 0D 0A 31 38 31 30 R X=1 TO A..1810
000190: 20 50 52 49 4E 54 20 54 41 42 28 31 30 29 3B 0D PRINT TAB(10);.
0001A0: 0A 31 38 32 30 20 50 52 49 4E 54 20 22 41 20 22 .1820 PRINT "A "
0001B0: 3B 0D 0A 31 38 33 30 20 4E 45 58 54 20 58 0D 0A ;..1830 NEXT X..
0001C0: 31 38 34 30 20 50 52 49 4E 54 0D 0A 31 38 35 30 1840 PRINT..1850
0001D0: 20 4E 45 58 54 20 5A 0D 0A 31 38 36 30 20 49 46 NEXT Z..1860 IF
0001E0: 20 48 3D 30 20 54 48 45 4E 20 31 38 38 30 0D 0A H=0 THEN 1880..
0001F0: 31 38 37 30 20 47 4F 53 55 42 20 32 34 37 30 0D 1870 GOSUB 2470.
Size : 512 (Real : 512)
000000: 20 43 41 50 45 22 0D 0A 32 37 30 20 50 52 49 4E CAPE"..270 PRIN
000010: 54 20 22 32 20 2D 20 4F 52 44 49 4E 41 52 59 20 T "2 - ORDINARY
000020: 53 57 49 52 4C 20 4F 46 20 54 48 45 20 43 41 50 SWIRL OF THE CAP
000030: 45 2E 22 0D 0A 32 38 30 20 50 52 49 4E 54 0D 0A E."..280 PRINT..
000040: 32 39 30 20 50 52 49 4E 54 20 22 49 4E 53 54 45 290 PRINT "INSTE
000050: 41 44 20 4F 46 20 54 48 45 20 41 42 4F 56 45 2C AD OF THE ABOVE,
000060: 20 59 4F 55 20 4D 41 59 20 54 52 59 20 54 4F 20 YOU MAY TRY TO
000070: 4B 49 4C 4C 20 54 48 45 20 42 55 4C 4C 22 0D 0A KILL THE BULL"..
000080: 33 30 30 20 50 52 49 4E 54 20 22 4F 4E 20 41 4E 300 PRINT "ON AN
000090: 59 20 54 55 52 4E 3A 20 34 20 28 4F 56 45 52 20 Y TURN: 4 (OVER
0000A0: 54 48 45 20 48 4F 52 4E 53 29 2C 20 35 20 28 49 THE HORNS), 5 (I
0000B0: 4E 20 54 48 45 20 43 48 45 53 54 29 2E 22 0D 0A N THE CHEST)."..
0000C0: 33 31 30 20 50 52 49 4E 54 20 22 42 55 54 20 49 310 PRINT "BUT I
0000D0: 46 20 49 20 57 45 52 45 20 59 4F 55 2C 22 0D 0A F I WERE YOU,"..
0000E0: 33 32 30 20 50 52 49 4E 54 20 22 49 20 57 4F 55 320 PRINT "I WOU
0000F0: 4C 44 4E 27 54 20 54 52 59 20 49 54 20 42 45 46 LDN'T TRY IT BEF
000100: 4F 52 45 20 54 48 45 20 53 45 56 45 4E 54 48 20 ORE THE SEVENTH
000110: 50 41 53 53 2E 22 0D 0A 33 33 30 20 50 52 49 4E PASS."..330 PRIN
000120: 54 0D 0A 33 34 30 20 50 52 49 4E 54 20 22 54 48 T..340 PRINT "TH
000130: 45 20 43 52 4F 57 44 20 57 49 4C 4C 20 44 45 54 E CROWD WILL DET
000140: 45 52 4D 49 4E 45 20 57 48 41 54 20 41 57 41 52 ERMINE WHAT AWAR
000150: 44 20 59 4F 55 20 44 45 53 45 52 56 45 22 0D 0A D YOU DESERVE"..
000160: 33 35 30 20 50 52 49 4E 54 20 22 28 50 4F 53 54 350 PRINT "(POST
000170: 48 55 4D 4F 55 53 4C 59 20 49 46 20 4E 45 43 45 HUMOUSLY IF NECE
000180: 53 53 41 52 59 29 2E 22 0D 0A 33 36 30 20 50 52 SSARY)."..360 PR
000190: 49 4E 54 20 22 54 48 45 20 42 52 41 56 45 52 20 INT "THE BRAVER
0001A0: 59 4F 55 20 41 52 45 2C 20 54 48 45 20 42 45 54 YOU ARE, THE BET
0001B0: 54 45 52 20 54 48 45 20 41 57 41 52 44 20 59 4F TER THE AWARD YO
0001C0: 55 20 52 45 43 49 45 56 45 2E 22 0D 0A 33 37 30 U RECIEVE."..370
0001D0: 20 50 52 49 4E 54 0D 0A 33 38 30 20 50 52 49 4E PRINT..380 PRIN
0001E0: 54 20 22 54 48 45 20 42 45 54 54 45 52 20 54 48 T "THE BETTER TH
0001F0: 45 20 4A 4F 42 20 54 48 45 20 50 49 43 41 44 4F E JOB THE PICADO
Size : 512 (Real : 512)
000000: 0A 31 38 38 30 20 49 46 20 4E 3D 30 20 54 48 45 .1880 IF N=0 THE
000010: 4E 20 31 39 32 30 0D 0A 31 38 39 30 20 46 4F 52 N 1920..1890 FOR
000020: 20 5A 3D 31 20 54 4F 20 32 0D 0A 31 39 30 30 20 Z=1 TO 2..1900
000030: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 PRINT "
000040: 20 4E 20 4E 22 0D 0A 31 39 31 30 20 4E 45 58 54 N N"..1910 NEXT
000050: 20 5A 0D 0A 31 39 32 30 20 49 46 20 42 3D 30 20 Z..1920 IF B=0
000060: 54 48 45 4E 20 32 30 30 30 0D 0A 31 39 33 30 20 THEN 2000..1930
000070: 50 52 49 4E 54 20 22 20 20 20 20 20 42 42 42 42 PRINT " BBBB
000080: 42 42 42 42 42 42 42 42 22 0D 0A 31 39 34 30 20 BBBBBBBB"..1940
000090: 46 4F 52 20 5A 3D 31 20 54 4F 20 32 0D 0A 31 39 FOR Z=1 TO 2..19
0000A0: 35 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 42 50 PRINT " B
0000B0: 20 20 20 20 20 20 20 20 20 20 42 22 0D 0A 31 39 B"..19
0000C0: 36 30 20 4E 45 58 54 20 5A 0D 0A 31 39 37 30 20 60 NEXT Z..1970
0000D0: 49 46 20 54 3C 3E 31 20 54 48 45 4E 20 31 39 39 IF T<>1 THEN 199
0000E0: 30 0D 0A 31 39 38 30 20 50 52 49 4E 54 20 22 54 0..1980 PRINT "T
0000F0: 54 54 54 54 42 20 20 20 20 20 20 20 20 20 20 42 TTTTB B
000100: 22 0D 0A 31 39 39 30 20 50 52 49 4E 54 20 22 20 "..1990 PRINT "
000110: 20 20 20 20 42 42 42 42 42 42 42 42 42 42 42 42 BBBBBBBBBBBB
000120: 22 0D 0A 32 30 30 30 20 49 46 20 4C 3D 30 20 54 "..2000 IF L=0 T
000130: 48 45 4E 20 32 30 38 30 0D 0A 32 30 31 30 20 46 HEN 2080..2010 F
000140: 4F 52 20 5A 3D 31 20 54 4F 20 32 0D 0A 32 30 32 OR Z=1 TO 2..202
000150: 30 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 0D 0 PRINT TAB(5);.
000160: 0A 32 30 33 30 20 46 4F 52 20 58 3D 31 20 54 4F .2030 FOR X=1 TO
000170: 20 4C 0D 0A 32 30 34 30 20 50 52 49 4E 54 20 22 L..2040 PRINT "
000180: 20 4C 22 3B 0D 0A 32 30 35 30 20 4E 45 58 54 20 L";..2050 NEXT
000190: 58 0D 0A 32 30 36 30 20 50 52 49 4E 54 0D 0A 32 X..2060 PRINT..2
0001A0: 30 37 30 20 4E 45 58 54 20 5A 0D 0A 32 30 38 30 070 NEXT Z..2080
0001B0: 20 46 4F 52 20 5A 3D 31 20 54 4F 20 34 0D 0A 32 FOR Z=1 TO 4..2
0001C0: 30 39 30 20 50 52 49 4E 54 0D 0A 32 31 30 30 20 090 PRINT..2100
0001D0: 4E 45 58 54 20 5A 0D 0A 32 31 31 30 20 50 52 49 NEXT Z..2110 PRI
0001E0: 4E 54 20 22 2A 2A 2A 2A 2A 4D 59 20 42 55 47 2A NT "*****MY BUG*
0001F0: 2A 2A 2A 2A 22 0D 0A 32 31 32 30 20 50 52 49 4E ****"..2120 PRIN
Size : 512 (Real : 512)
000000: 52 45 53 20 41 4E 44 20 54 4F 52 45 41 44 4F 52 RES AND TOREADOR
000010: 45 53 20 44 4F 2C 22 0D 0A 33 39 30 20 50 52 49 ES DO,"..390 PRI
000020: 4E 54 20 22 54 48 45 20 42 45 54 54 45 52 20 59 NT "THE BETTER Y
000030: 4F 55 52 20 43 48 41 4E 43 45 53 20 41 52 45 2E OUR CHANCES ARE.
000040: 22 0D 0A 34 30 30 20 50 52 49 4E 54 0D 0A 34 31 "..400 PRINT..41
000050: 30 20 50 52 49 4E 54 0D 0A 34 32 30 20 44 28 35 0 PRINT..420 D(5
000060: 29 3D 31 0D 0A 34 33 30 20 44 28 34 29 3D 31 0D )=1..430 D(4)=1.
000070: 0A 34 35 30 20 44 49 4D 20 4C 24 28 35 29 0D 0A .450 DIM L$(5)..
000080: 34 35 35 20 41 3D 49 4E 54 28 52 4E 44 28 31 29 455 A=INT(RND(1)
000090: 2A 35 2B 31 29 0D 0A 34 36 30 20 46 4F 52 20 49 *5+1)..460 FOR I
0000A0: 3D 31 20 54 4F 20 35 0D 0A 34 36 33 20 52 45 41 =1 TO 5..463 REA
0000B0: 44 20 4C 24 28 49 29 0D 0A 34 36 37 20 4E 45 58 D L$(I)..467 NEX
0000C0: 54 20 49 0D 0A 34 37 30 20 44 41 54 41 20 22 53 T I..470 DATA "S
0000D0: 55 50 45 52 42 22 2C 22 47 4F 4F 44 22 2C 22 46 UPERB","GOOD","F
0000E0: 41 49 52 22 2C 22 50 4F 4F 52 22 2C 22 41 57 46 AIR","POOR","AWF
0000F0: 55 4C 22 0D 0A 34 39 30 20 50 52 49 4E 54 20 22 UL"..490 PRINT "
000100: 59 4F 55 20 48 41 56 45 20 44 52 41 57 4E 20 41 YOU HAVE DRAWN A
000110: 20 22 3B 4C 24 28 41 29 3B 22 20 42 55 4C 4C 2E ";L$(A);" BULL.
000120: 22 0D 0A 35 30 30 20 49 46 20 41 3E 34 20 54 48 "..500 IF A>4 TH
000130: 45 4E 20 35 33 30 0D 0A 35 31 30 20 49 46 20 41 EN 530..510 IF A
000140: 3C 32 20 54 48 45 4E 20 35 35 30 0D 0A 35 32 30 <2 THEN 550..520
000150: 20 47 4F 54 4F 20 35 37 30 0D 0A 35 33 30 20 50 GOTO 570..530 P
000160: 52 49 4E 54 20 22 59 4F 55 27 52 45 20 4C 55 43 RINT "YOU'RE LUC
000170: 4B 59 2E 22 0D 0A 35 34 30 20 47 4F 54 4F 20 35 KY."..540 GOTO 5
000180: 37 30 0D 0A 35 35 30 20 50 52 49 4E 54 20 22 47 70..550 PRINT "G
000190: 4F 4F 44 20 4C 55 43 4B 2E 20 20 59 4F 55 27 4C OOD LUCK. YOU'L
0001A0: 4C 20 4E 45 45 44 20 49 54 2E 22 0D 0A 35 36 30 L NEED IT."..560
0001B0: 20 50 52 49 4E 54 0D 0A 35 37 30 20 50 52 49 4E PRINT..570 PRIN
0001C0: 54 0D 0A 35 39 30 20 41 24 3D 22 50 49 43 41 44 T..590 A$="PICAD
0001D0: 4F 22 0D 0A 35 39 35 20 42 24 3D 22 52 45 53 22 O"..595 B$="RES"
0001E0: 0D 0A 36 30 30 20 47 4F 53 55 42 20 31 36 31 30 ..600 GOSUB 1610
0001F0: 0D 0A 36 31 30 20 44 28 31 29 3D 43 0D 0A 36 33 ..610 D(1)=C..63
Size : 512 (Real : 512)
000000: 29 2B 44 28 32 29 29 2A 32 2E 35 2B 34 2A 44 28 )+D(2))*2.5+4*D(
000010: 34 29 2B 32 2A 44 28 35 29 2D 44 28 33 29 5E 32 4)+2*D(5)-D(3)^2
000020: 2F 31 32 30 2D 41 29 0D 0A 31 34 30 30 20 49 46 /120-A)..1400 IF
000030: 20 44 28 34 29 3C 3E 32 20 54 48 45 4E 20 31 34 D(4)<>2 THEN 14
000040: 33 30 0D 0A 31 34 31 30 20 50 52 49 4E 54 20 22 30..1410 PRINT "
000050: 54 48 45 20 43 52 4F 57 44 20 43 48 45 45 52 53 THE CROWD CHEERS
000060: 20 57 49 4C 44 4C 59 21 22 0D 0A 31 34 32 30 20 WILDLY!"..1420
000070: 47 4F 54 4F 20 31 34 35 30 0D 0A 31 34 33 30 20 GOTO 1450..1430
000080: 49 46 20 44 28 35 29 3C 3E 32 20 54 48 45 4E 20 IF D(5)<>2 THEN
000090: 31 34 35 30 0D 0A 31 34 34 30 20 50 52 49 4E 54 1450..1440 PRINT
0000A0: 20 22 54 48 45 20 43 52 4F 57 44 20 43 48 45 45 "THE CROWD CHEE
0000B0: 52 53 21 22 3A 50 52 49 4E 54 0D 0A 31 34 35 30 RS!":PRINT..1450
0000C0: 20 50 52 49 4E 54 20 22 54 48 45 20 43 52 4F 57 PRINT "THE CROW
0000D0: 44 20 41 57 41 52 44 53 20 59 4F 55 22 0D 0A 31 D AWARDS YOU"..1
0000E0: 34 36 30 20 49 46 20 46 4E 43 28 51 29 3C 32 2E 460 IF FNC(Q)<2.
0000F0: 34 20 54 48 45 4E 20 31 35 37 30 0D 0A 31 34 37 4 THEN 1570..147
000100: 30 20 49 46 20 46 4E 43 28 51 29 3C 34 2E 39 20 0 IF FNC(Q)<4.9
000110: 54 48 45 4E 20 31 35 35 30 0D 0A 31 34 38 30 20 THEN 1550..1480
000120: 49 46 20 46 4E 43 28 51 29 3C 37 2E 34 20 54 48 IF FNC(Q)<7.4 TH
000130: 45 4E 20 31 35 32 30 0D 0A 31 35 30 30 20 50 52 EN 1520..1500 PR
000140: 49 4E 54 20 22 4F 4C 45 21 20 20 59 4F 55 20 41 INT "OLE! YOU A
000150: 52 45 20 27 4D 55 59 20 48 4F 4D 42 52 45 27 21 RE 'MUY HOMBRE'!
000160: 21 20 4F 4C 45 21 20 20 4F 4C 45 21 22 0D 0A 31 ! OLE! OLE!"..1
000170: 35 31 30 20 47 4F 54 4F 20 31 35 38 30 0D 0A 31 510 GOTO 1580..1
000180: 35 32 30 20 50 52 49 4E 54 20 22 42 4F 54 48 20 520 PRINT "BOTH
000190: 45 41 52 53 20 4F 46 20 54 48 45 20 42 55 4C 4C EARS OF THE BULL
0001A0: 21 22 0D 0A 31 35 33 30 20 50 52 49 4E 54 20 22 !"..1530 PRINT "
0001B0: 4F 4C 45 21 22 0D 0A 31 35 34 30 20 47 4F 54 4F OLE!"..1540 GOTO
0001C0: 20 31 35 38 30 0D 0A 31 35 35 30 20 50 52 49 4E 1580..1550 PRIN
0001D0: 54 20 22 4F 4E 45 20 45 41 52 20 4F 46 20 54 48 T "ONE EAR OF TH
0001E0: 45 20 42 55 4C 4C 2E 22 0D 0A 31 35 36 30 20 47 E BULL."..1560 G
0001F0: 4F 54 4F 20 31 35 38 30 0D 0A 31 35 37 30 20 50 OTO 1580..1570 P
Size : 512 (Real : 512)
000000: 30 20 41 24 3D 22 54 4F 52 45 41 44 22 0D 0A 36 0 A$="TOREAD"..6
000010: 33 35 20 42 24 3D 22 4F 52 45 53 22 0D 0A 36 34 35 B$="ORES"..64
000020: 30 20 47 4F 53 55 42 20 31 36 31 30 0D 0A 36 35 0 GOSUB 1610..65
000030: 30 20 44 28 32 29 3D 43 0D 0A 36 36 30 20 50 52 0 D(2)=C..660 PR
000040: 49 4E 54 0D 0A 36 37 30 20 50 52 49 4E 54 0D 0A INT..670 PRINT..
000050: 36 38 30 20 49 46 20 5A 3D 31 20 54 48 45 4E 20 680 IF Z=1 THEN
000060: 31 33 31 30 0D 0A 36 39 30 20 44 28 33 29 3D 44 1310..690 D(3)=D
000070: 28 33 29 2B 31 0D 0A 37 30 30 20 50 52 49 4E 54 (3)+1..700 PRINT
000080: 20 22 50 41 53 53 20 4E 55 4D 42 45 52 22 3B 44 "PASS NUMBER";D
000090: 28 33 29 0D 0A 37 31 30 20 49 46 20 44 28 33 29 (3)..710 IF D(3)
0000A0: 3C 33 20 54 48 45 4E 20 37 36 30 0D 0A 37 32 30 <3 THEN 760..720
0000B0: 20 50 52 49 4E 54 20 22 48 45 52 45 20 43 4F 4D PRINT "HERE COM
0000C0: 45 53 20 54 48 45 20 42 55 4C 4C 2E 20 20 54 52 ES THE BULL. TR
0000D0: 59 20 46 4F 52 20 41 20 4B 49 4C 4C 22 3B 0D 0A Y FOR A KILL";..
0000E0: 37 33 30 20 47 4F 53 55 42 20 31 39 33 30 0D 0A 730 GOSUB 1930..
0000F0: 37 33 35 20 49 46 20 5A 31 3D 31 20 54 48 45 4E 735 IF Z1=1 THEN
000100: 20 31 31 33 30 0D 0A 37 34 30 20 50 52 49 4E 54 1130..740 PRINT
000110: 20 22 43 41 50 45 20 4D 4F 56 45 22 3B 0D 0A 37 "CAPE MOVE";..7
000120: 35 30 20 47 4F 54 4F 20 38 30 30 0D 0A 37 36 30 50 GOTO 800..760
000130: 20 50 52 49 4E 54 20 22 54 48 45 20 42 55 4C 4C PRINT "THE BULL
000140: 20 49 53 20 43 48 41 52 47 49 4E 47 20 41 54 20 IS CHARGING AT
000150: 59 4F 55 21 20 20 59 4F 55 20 41 52 45 20 54 48 YOU! YOU ARE TH
000160: 45 20 4D 41 54 41 44 4F 52 2D 2D 22 0D 0A 37 37 E MATADOR--"..77
000170: 30 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 0 PRINT "DO YOU
000180: 57 41 4E 54 20 54 4F 20 4B 49 4C 4C 20 54 48 45 WANT TO KILL THE
000190: 20 42 55 4C 4C 22 3B 0D 0A 37 38 30 20 47 4F 53 BULL";..780 GOS
0001A0: 55 42 20 31 39 33 30 0D 0A 37 38 35 20 49 46 20 UB 1930..785 IF
0001B0: 5A 31 3D 31 20 54 48 45 4E 20 31 31 33 30 0D 0A Z1=1 THEN 1130..
0001C0: 37 39 30 20 50 52 49 4E 54 20 22 57 48 41 54 20 790 PRINT "WHAT
0001D0: 4D 4F 56 45 20 44 4F 20 59 4F 55 20 4D 41 4B 45 MOVE DO YOU MAKE
0001E0: 20 57 49 54 48 20 54 48 45 20 43 41 50 45 22 3B WITH THE CAPE";
0001F0: 0D 0A 38 30 30 20 49 4E 50 55 54 20 45 0D 0A 38 ..800 INPUT E..8
Size : 512 (Real : 512)
000000: 52 49 4E 54 20 22 4E 4F 54 48 49 4E 47 20 41 54 RINT "NOTHING AT
000010: 20 41 4C 4C 2E 22 0D 0A 31 35 38 30 20 50 52 49 ALL."..1580 PRI
000020: 4E 54 0D 0A 31 35 39 30 20 50 52 49 4E 54 20 22 NT..1590 PRINT "
000030: 41 44 49 4F 53 22 3A 50 52 49 4E 54 3A 50 52 49 ADIOS":PRINT:PRI
000040: 4E 54 3A 50 52 49 4E 54 0D 0A 31 36 30 30 20 47 NT:PRINT..1600 G
000050: 4F 54 4F 20 32 30 33 30 0D 0A 31 36 31 30 20 42 OTO 2030..1610 B
000060: 3D 33 2F 41 2A 52 4E 44 28 31 29 0D 0A 31 36 32 =3/A*RND(1)..162
000070: 30 20 49 46 20 42 3C 2E 33 37 20 54 48 45 4E 20 0 IF B<.37 THEN
000080: 31 37 34 30 0D 0A 31 36 33 30 20 49 46 20 42 3C 1740..1630 IF B<
000090: 2E 35 20 54 48 45 4E 20 31 37 32 30 0D 0A 31 36 .5 THEN 1720..16
0000A0: 34 30 20 49 46 20 42 3C 2E 36 33 20 54 48 45 4E 40 IF B<.63 THEN
0000B0: 20 31 37 30 30 0D 0A 31 36 35 30 20 49 46 20 42 1700..1650 IF B
0000C0: 3C 2E 38 37 20 54 48 45 4E 20 31 36 38 30 0D 0A <.87 THEN 1680..
0000D0: 31 36 36 30 20 43 3D 2E 31 0D 0A 31 36 37 30 20 1660 C=.1..1670
0000E0: 47 4F 54 4F 20 31 37 35 30 0D 0A 31 36 38 30 20 GOTO 1750..1680
0000F0: 43 3D 2E 32 0D 0A 31 36 39 30 20 47 4F 54 4F 20 C=.2..1690 GOTO
000100: 31 37 35 30 0D 0A 31 37 30 30 20 43 3D 2E 33 0D 1750..1700 C=.3.
000110: 0A 31 37 31 30 20 47 4F 54 4F 20 31 37 35 30 0D .1710 GOTO 1750.
000120: 0A 31 37 32 30 20 43 3D 2E 34 0D 0A 31 37 33 30 .1720 C=.4..1730
000130: 20 47 4F 54 4F 20 31 37 35 30 0D 0A 31 37 34 30 GOTO 1750..1740
000140: 20 43 3D 2E 35 0D 0A 31 37 35 30 20 54 3D 49 4E C=.5..1750 T=IN
000150: 54 28 31 30 2A 43 2B 2E 32 29 0D 0A 31 37 36 30 T(10*C+.2)..1760
000160: 20 50 52 49 4E 54 20 22 54 48 45 20 22 3B 41 24 PRINT "THE ";A$
000170: 3B 42 24 3B 22 20 44 49 44 20 41 20 22 3B 4C 24 ;B$;" DID A ";L$
000180: 28 54 29 3B 22 20 4A 4F 42 2E 22 0D 0A 31 37 37 (T);" JOB."..177
000190: 30 20 49 46 20 34 3E 54 20 54 48 45 4E 20 31 39 0 IF 4>T THEN 19
0001A0: 30 30 0D 0A 31 37 38 30 20 49 46 20 35 3D 54 20 00..1780 IF 5=T
0001B0: 54 48 45 4E 20 31 38 37 30 0D 0A 31 37 39 30 20 THEN 1870..1790
0001C0: 4F 4E 20 46 4E 41 28 4B 29 20 47 4F 54 4F 20 31 ON FNA(K) GOTO 1
0001D0: 38 33 30 2C 31 38 35 30 0D 0A 31 38 30 30 20 49 830,1850..1800 I
0001E0: 46 20 41 24 3D 22 54 4F 52 45 41 44 22 20 54 48 F A$="TOREAD" TH
0001F0: 45 4E 20 31 38 32 30 0D 0A 31 38 31 30 20 50 52 EN 1820..1810 PR
Size : 512 (Real : 512)
000000: 31 30 20 49 46 20 45 3C 3E 49 4E 54 28 41 42 53 10 IF E<>INT(ABS
000010: 28 45 29 29 20 54 48 45 4E 20 38 33 30 0D 0A 38 (E)) THEN 830..8
000020: 32 30 20 49 46 20 45 3C 33 20 54 48 45 4E 20 38 20 IF E<3 THEN 8
000030: 35 30 0D 0A 38 33 30 20 50 52 49 4E 54 20 22 44 50..830 PRINT "D
000040: 4F 4E 27 54 20 50 41 4E 49 43 2C 20 59 4F 55 20 ON'T PANIC, YOU
000050: 49 44 49 4F 54 21 20 20 50 55 54 20 44 4F 57 4E IDIOT! PUT DOWN
000060: 20 41 20 43 4F 52 52 45 43 54 20 4E 55 4D 42 45 A CORRECT NUMBE
000070: 52 22 0D 0A 38 34 30 20 47 4F 54 4F 20 38 30 30 R"..840 GOTO 800
000080: 0D 0A 38 35 30 20 52 45 4D 0D 0A 38 36 30 20 49 ..850 REM..860 I
000090: 46 20 45 3D 30 20 54 48 45 4E 20 39 32 30 0D 0A F E=0 THEN 920..
0000A0: 38 37 30 20 49 46 20 45 3D 31 20 54 48 45 4E 20 870 IF E=1 THEN
0000B0: 39 30 30 0D 0A 38 38 30 20 4D 3D 2E 35 0D 0A 38 900..880 M=.5..8
0000C0: 39 30 20 47 4F 54 4F 20 39 33 30 0D 0A 39 30 30 90 GOTO 930..900
0000D0: 20 4D 3D 32 0D 0A 39 31 30 20 47 4F 54 4F 20 39 M=2..910 GOTO 9
0000E0: 33 30 0D 0A 39 32 30 20 4D 3D 33 0D 0A 39 33 30 30..920 M=3..930
0000F0: 20 4C 3D 4C 2B 4D 0D 0A 39 34 30 20 46 3D 28 36 L=L+M..940 F=(6
000100: 2D 41 2B 4D 2F 31 30 29 2A 52 4E 44 28 31 29 2F -A+M/10)*RND(1)/
000110: 28 28 44 28 31 29 2B 44 28 32 29 2B 44 28 33 29 ((D(1)+D(2)+D(3)
000120: 2F 31 30 29 2A 35 29 0D 0A 39 35 30 20 49 46 20 /10)*5)..950 IF
000130: 46 3C 2E 35 31 20 54 48 45 4E 20 36 36 30 0D 0A F<.51 THEN 660..
000140: 39 36 30 20 50 52 49 4E 54 20 22 54 48 45 20 42 960 PRINT "THE B
000150: 55 4C 4C 20 48 41 53 20 47 4F 52 45 44 20 59 4F ULL HAS GORED YO
000160: 55 21 22 0D 0A 39 37 30 20 4F 4E 20 46 4E 41 28 U!"..970 ON FNA(
000170: 30 29 20 47 4F 54 4F 20 39 38 30 2C 31 30 31 30 0) GOTO 980,1010
000180: 0D 0A 39 38 30 20 50 52 49 4E 54 20 22 59 4F 55 ..980 PRINT "YOU
000190: 20 41 52 45 20 44 45 41 44 2E 22 0D 0A 39 39 30 ARE DEAD."..990
0001A0: 20 44 28 34 29 3D 31 2E 35 0D 0A 31 30 30 30 20 D(4)=1.5..1000
0001B0: 47 4F 54 4F 20 31 33 31 30 0D 0A 31 30 31 30 20 GOTO 1310..1010
0001C0: 50 52 49 4E 54 20 22 59 4F 55 20 41 52 45 20 53 PRINT "YOU ARE S
0001D0: 54 49 4C 4C 20 41 4C 49 56 45 2E 22 3A 50 52 49 TILL ALIVE.":PRI
0001E0: 4E 54 0D 0A 31 30 32 30 20 50 52 49 4E 54 20 22 NT..1020 PRINT "
0001F0: 44 4F 20 59 4F 55 20 52 55 4E 20 46 52 4F 4D 20 DO YOU RUN FROM
Size : 512 (Real : 512)
000000: 49 4E 54 20 22 4F 4E 45 20 4F 46 20 54 48 45 20 INT "ONE OF THE
000010: 48 4F 52 53 45 53 20 4F 46 20 54 48 45 20 22 3B HORSES OF THE ";
000020: 41 24 3B 42 24 3B 22 20 57 41 53 20 4B 49 4C 4C A$;B$;" WAS KILL
000030: 45 44 2E 22 0D 0A 31 38 32 30 20 4F 4E 20 46 4E ED."..1820 ON FN
000040: 41 28 4B 29 20 47 4F 54 4F 20 31 38 33 30 2C 31 A(K) GOTO 1830,1
000050: 38 35 30 0D 0A 31 38 33 30 20 50 52 49 4E 54 20 850..1830 PRINT
000060: 22 4F 4E 45 20 4F 46 20 54 48 45 20 22 3B 41 24 "ONE OF THE ";A$
000070: 3B 42 24 3B 22 20 57 41 53 20 4B 49 4C 4C 45 44 ;B$;" WAS KILLED
000080: 2E 22 0D 0A 31 38 34 30 20 47 4F 54 4F 20 31 39 ."..1840 GOTO 19
000090: 30 30 0D 0A 31 38 35 30 20 50 52 49 4E 54 20 22 00..1850 PRINT "
0000A0: 4E 4F 20 22 3B 41 24 3B 42 24 3B 22 20 57 45 52 NO ";A$;B$;" WER
0000B0: 45 20 4B 49 4C 4C 45 44 2E 22 0D 0A 31 38 36 30 E KILLED."..1860
0000C0: 20 47 4F 54 4F 20 31 39 30 30 0D 0A 31 38 37 30 GOTO 1900..1870
0000D0: 20 49 46 20 41 24 3D 22 54 4F 52 45 41 44 22 20 IF A$="TOREAD"
0000E0: 54 48 45 4E 20 31 38 39 30 0D 0A 31 38 38 30 20 THEN 1890..1880
0000F0: 50 52 49 4E 54 20 46 4E 41 28 4B 29 3B 22 4F 46 PRINT FNA(K);"OF
000100: 20 54 48 45 20 48 4F 52 53 45 53 20 4F 46 20 54 THE HORSES OF T
000110: 48 45 20 22 3B 41 24 3B 42 24 3B 22 20 4B 49 4C HE ";A$;B$;" KIL
000120: 4C 45 44 2E 22 0D 0A 31 38 39 30 20 50 52 49 4E LED."..1890 PRIN
000130: 54 20 46 4E 41 28 4B 29 3B 22 4F 46 20 54 48 45 T FNA(K);"OF THE
000140: 20 22 3B 41 24 3B 42 24 3B 22 20 4B 49 4C 4C 45 ";A$;B$;" KILLE
000150: 44 2E 22 0D 0A 31 39 30 30 20 50 52 49 4E 54 0D D."..1900 PRINT.
000160: 0A 31 39 31 30 20 52 45 54 55 52 4E 0D 0A 31 39 .1910 RETURN..19
000170: 32 30 20 52 45 4D 0D 0A 31 39 33 30 20 49 4E 50 20 REM..1930 INP
000180: 55 54 20 41 24 0D 0A 31 39 34 30 20 49 46 20 41 UT A$..1940 IF A
000190: 24 3D 22 59 45 53 22 20 54 48 45 4E 20 31 39 39 $="YES" THEN 199
0001A0: 30 0D 0A 31 39 35 30 20 49 46 20 41 24 3D 22 4E 0..1950 IF A$="N
0001B0: 4F 22 20 54 48 45 4E 20 32 30 31 30 0D 0A 31 39 O" THEN 2010..19
0001C0: 37 30 20 50 52 49 4E 54 20 22 49 4E 43 4F 52 52 70 PRINT "INCORR
0001D0: 45 43 54 20 41 4E 53 57 45 52 20 2D 20 2D 20 50 ECT ANSWER - - P
0001E0: 4C 45 41 53 45 20 54 59 50 45 20 27 59 45 53 27 LEASE TYPE 'YES'
0001F0: 20 4F 52 20 27 4E 4F 27 2E 22 0D 0A 31 39 38 30 OR 'NO'."..1980
Size : 512 (Real : 512)
000000: 54 48 45 20 52 49 4E 47 22 3B 0D 0A 31 30 33 30 THE RING";..1030
000010: 20 47 4F 53 55 42 20 31 39 33 30 0D 0A 31 30 33 GOSUB 1930..103
000020: 35 20 49 46 20 5A 31 3D 32 20 54 48 45 4E 20 31 5 IF Z1=2 THEN 1
000030: 30 37 30 0D 0A 31 30 34 30 20 50 52 49 4E 54 20 070..1040 PRINT
000040: 22 43 4F 57 41 52 44 22 0D 0A 31 30 35 30 20 44 "COWARD"..1050 D
000050: 28 34 29 3D 30 0D 0A 31 30 36 30 20 47 4F 54 4F (4)=0..1060 GOTO
000060: 20 31 33 31 30 0D 0A 31 30 37 30 20 50 52 49 4E 1310..1070 PRIN
000070: 54 20 22 59 4F 55 20 41 52 45 20 42 52 41 56 45 T "YOU ARE BRAVE
000080: 2E 20 20 53 54 55 50 49 44 2C 20 42 55 54 20 42 . STUPID, BUT B
000090: 52 41 56 45 2E 22 0D 0A 31 30 38 30 20 4F 4E 20 RAVE."..1080 ON
0000A0: 46 4E 41 28 30 29 20 47 4F 54 4F 20 31 30 39 30 FNA(0) GOTO 1090
0000B0: 2C 31 31 31 30 0D 0A 31 30 39 30 20 44 28 34 29 ,1110..1090 D(4)
0000C0: 3D 32 0D 0A 31 31 30 30 20 47 4F 54 4F 20 36 36 =2..1100 GOTO 66
0000D0: 30 0D 0A 31 31 31 30 20 50 52 49 4E 54 20 22 59 0..1110 PRINT "Y
0000E0: 4F 55 20 41 52 45 20 47 4F 52 45 44 20 41 47 41 OU ARE GORED AGA
0000F0: 49 4E 21 22 0D 0A 31 31 32 30 20 47 4F 54 4F 20 IN!"..1120 GOTO
000100: 39 37 30 0D 0A 31 31 33 30 20 52 45 4D 0D 0A 31 970..1130 REM..1
000110: 31 34 30 20 5A 3D 31 0D 0A 31 31 35 30 20 50 52 140 Z=1..1150 PR
000120: 49 4E 54 3A 50 52 49 4E 54 20 22 49 54 20 49 53 INT:PRINT "IT IS
000130: 20 54 48 45 20 4D 4F 4D 45 4E 54 20 4F 46 20 54 THE MOMENT OF T
000140: 52 55 54 48 2E 22 3A 50 52 49 4E 54 0D 0A 31 31 RUTH.":PRINT..11
000150: 35 35 20 50 52 49 4E 54 20 22 48 4F 57 20 44 4F 55 PRINT "HOW DO
000160: 20 59 4F 55 20 54 52 59 20 54 4F 20 4B 49 4C 4C YOU TRY TO KILL
000170: 20 54 48 45 20 42 55 4C 4C 22 3B 0D 0A 31 31 36 THE BULL";..116
000180: 30 20 49 4E 50 55 54 20 48 0D 0A 31 31 37 30 20 0 INPUT H..1170
000190: 49 46 20 48 3D 34 20 54 48 45 4E 20 31 32 33 30 IF H=4 THEN 1230
0001A0: 0D 0A 31 31 38 30 20 49 46 20 48 3D 35 20 54 48 ..1180 IF H=5 TH
0001B0: 45 4E 20 31 32 33 30 0D 0A 31 31 39 30 20 50 52 EN 1230..1190 PR
0001C0: 49 4E 54 20 22 59 4F 55 20 50 41 4E 49 43 4B 45 INT "YOU PANICKE
0001D0: 44 2E 20 20 54 48 45 20 42 55 4C 4C 20 47 4F 52 D. THE BULL GOR
0001E0: 45 44 20 59 4F 55 2E 22 0D 0A 31 32 32 30 20 47 ED YOU."..1220 G
0001F0: 4F 54 4F 20 39 37 30 0D 0A 31 32 33 30 20 4B 3D OTO 970..1230 K=
Size : 512 (Real : 512)
000000: 20 47 4F 54 4F 20 31 39 33 30 0D 0A 31 39 39 30 GOTO 1930..1990
000010: 20 5A 31 3D 31 0D 0A 32 30 30 30 20 47 4F 54 4F Z1=1..2000 GOTO
000020: 20 32 30 32 30 0D 0A 32 30 31 30 20 5A 31 3D 32 2020..2010 Z1=2
000030: 0D 0A 32 30 32 30 20 52 45 54 55 52 4E 0D 0A 32 ..2020 RETURN..2
000040: 30 33 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 030 END.........
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 28 36 2D 41 29 2A 31 30 2A 52 4E 44 28 31 29 2F (6-A)*10*RND(1)/
000010: 28 28 44 28 31 29 2B 44 28 32 29 29 2A 35 2A 44 ((D(1)+D(2))*5*D
000020: 28 33 29 29 0D 0A 31 32 34 30 20 49 46 20 4A 3D (3))..1240 IF J=
000030: 34 20 54 48 45 4E 20 31 32 39 30 0D 0A 31 32 35 4 THEN 1290..125
000040: 30 20 49 46 20 4B 3E 2E 32 20 54 48 45 4E 20 39 0 IF K>.2 THEN 9
000050: 36 30 0D 0A 31 32 36 30 20 50 52 49 4E 54 20 22 60..1260 PRINT "
000060: 59 4F 55 20 4B 49 4C 4C 45 44 20 54 48 45 20 42 YOU KILLED THE B
000070: 55 4C 4C 21 22 0D 0A 31 32 37 30 20 44 28 35 29 ULL!"..1270 D(5)
000080: 3D 32 0D 0A 31 32 38 30 20 47 4F 54 4F 20 31 33 =2..1280 GOTO 13
000090: 32 30 0D 0A 31 32 39 30 20 49 46 20 4B 3E 2E 38 20..1290 IF K>.8
0000A0: 20 54 48 45 4E 20 39 36 30 0D 0A 31 33 30 30 20 THEN 960..1300
0000B0: 47 4F 54 4F 20 31 32 36 30 0D 0A 31 33 31 30 20 GOTO 1260..1310
0000C0: 50 52 49 4E 54 0D 0A 31 33 32 30 20 50 52 49 4E PRINT..1320 PRIN
0000D0: 54 0D 0A 31 33 33 30 20 50 52 49 4E 54 0D 0A 31 T..1330 PRINT..1
0000E0: 33 34 30 20 49 46 20 44 28 34 29 3C 3E 30 20 54 340 IF D(4)<>0 T
0000F0: 48 45 4E 20 31 33 39 30 0D 0A 31 33 35 30 20 50 HEN 1390..1350 P
000100: 52 49 4E 54 20 22 54 48 45 20 43 52 4F 57 44 20 RINT "THE CROWD
000110: 42 4F 4F 53 20 46 4F 52 20 54 45 4E 20 4D 49 4E BOOS FOR TEN MIN
000120: 55 54 45 53 2E 20 20 49 46 20 59 4F 55 20 45 56 UTES. IF YOU EV
000130: 45 52 20 44 41 52 45 20 54 4F 20 53 48 4F 57 22 ER DARE TO SHOW"
000140: 0D 0A 31 33 36 30 20 50 52 49 4E 54 20 22 59 4F ..1360 PRINT "YO
000150: 55 52 20 46 41 43 45 20 49 4E 20 41 20 52 49 4E UR FACE IN A RIN
000160: 47 20 41 47 41 49 4E 2C 20 54 48 45 59 20 53 57 G AGAIN, THEY SW
000170: 45 41 52 20 54 48 45 59 20 57 49 4C 4C 20 4B 49 EAR THEY WILL KI
000180: 4C 4C 20 59 4F 55 2D 2D 22 0D 0A 31 33 37 30 20 LL YOU--"..1370
000190: 50 52 49 4E 54 20 22 55 4E 4C 45 53 20 54 48 45 PRINT "UNLES THE
0001A0: 20 42 55 4C 4C 20 44 4F 45 53 20 46 49 52 53 54 BULL DOES FIRST
0001B0: 2E 22 0D 0A 31 33 38 30 20 47 4F 54 4F 20 31 35 ."..1380 GOTO 15
0001C0: 38 30 0D 0A 31 33 39 30 20 44 45 46 20 46 4E 43 80..1390 DEF FNC
0001D0: 28 51 29 3D 46 4E 44 28 51 29 2A 52 4E 44 28 31 (Q)=FND(Q)*RND(1
0001E0: 29 0D 0A 31 33 39 35 20 44 45 46 20 46 4E 44 28 )..1395 DEF FND(
0001F0: 51 29 3D 28 34 2E 35 2B 4C 2F 36 2D 28 44 28 31 Q)=(4.5+L/6-(D(1
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 42 55 4E 4E 59 22 0D 0A 32 30 20 50 52 49 ;"BUNNY"..20 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E JERSEY"..30 PRIN
000060: 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D T: PRINT: PRINT.
000070: 0A 31 30 30 20 52 45 4D 20 20 22 42 55 4E 4E 59 .100 REM "BUNNY
000080: 22 20 46 52 4F 4D 20 41 48 4C 27 53 20 27 42 41 " FROM AHL'S 'BA
000090: 53 49 43 20 43 4F 4D 50 55 54 45 52 20 47 41 4D SIC COMPUTER GAM
0000A0: 45 53 27 0D 0A 31 31 30 20 52 45 4D 0D 0A 31 32 ES'..110 REM..12
0000B0: 30 20 46 4F 52 20 49 3D 30 20 54 4F 20 34 3A 20 0 FOR I=0 TO 4:
0000C0: 52 45 41 44 20 42 28 49 29 3A 20 4E 45 58 54 20 READ B(I): NEXT
0000D0: 49 0D 0A 31 33 30 20 47 4F 53 55 42 20 32 36 30 I..130 GOSUB 260
0000E0: 0D 0A 31 34 30 20 4C 3D 36 34 3A 20 52 45 4D 20 ..140 L=64: REM
0000F0: 20 41 53 43 49 49 20 4C 45 54 54 45 52 20 43 4F ASCII LETTER CO
000100: 44 45 2E 2E 2E 0D 0A 31 35 30 20 52 45 4D 0D 0A DE.....150 REM..
000110: 31 36 30 20 50 52 49 4E 54 0D 0A 31 37 30 20 52 160 PRINT..170 R
000120: 45 41 44 20 58 3A 20 49 46 20 58 3C 30 20 54 48 EAD X: IF X<0 TH
000130: 45 4E 20 31 36 30 0D 0A 31 37 35 20 49 46 20 58 EN 160..175 IF X
000140: 3E 31 32 38 20 54 48 45 4E 20 32 34 30 0D 0A 31 >128 THEN 240..1
000150: 38 30 20 50 52 49 4E 54 20 54 41 42 28 58 29 3B 80 PRINT TAB(X);
000160: 3A 20 52 45 41 44 20 59 0D 0A 31 39 30 20 46 4F : READ Y..190 FO
000170: 52 20 49 3D 58 20 54 4F 20 59 3A 20 4A 3D 49 2D R I=X TO Y: J=I-
000180: 35 2A 49 4E 54 28 49 2F 35 29 0D 0A 32 30 30 20 5*INT(I/5)..200
000190: 50 52 49 4E 54 20 43 48 52 24 28 4C 2B 42 28 4A PRINT CHR$(L+B(J
0001A0: 29 29 3B 0D 0A 32 31 30 20 4E 45 58 54 20 49 0D ));..210 NEXT I.
0001B0: 0A 32 32 30 20 47 4F 54 4F 20 31 37 30 0D 0A 32 .220 GOTO 170..2
0001C0: 33 30 20 52 45 4D 0D 0A 32 34 30 20 47 4F 53 55 30 REM..240 GOSU
0001D0: 42 20 32 36 30 3A 20 47 4F 54 4F 20 34 35 30 0D B 260: GOTO 450.
0001E0: 0A 32 35 30 20 52 45 4D 0D 0A 32 36 30 20 46 4F .250 REM..260 FO
0001F0: 52 20 49 3D 31 20 54 4F 20 36 3A 20 50 52 49 4E R I=1 TO 6: PRIN
Size : 512 (Real : 512)
000000: 35 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 3B 5 PRINT TAB(32);
000010: 22 42 55 4C 4C 53 45 59 45 22 0D 0A 31 30 20 50 "BULLSEYE"..10 P
000020: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
000030: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
000040: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
000050: 57 20 4A 45 52 53 45 59 22 0D 0A 32 30 20 50 52 W JERSEY"..20 PR
000060: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
000070: 0A 33 30 20 50 52 49 4E 54 20 22 49 4E 20 54 48 .30 PRINT "IN TH
000080: 49 53 20 47 41 4D 45 2C 20 55 50 20 54 4F 20 32 IS GAME, UP TO 2
000090: 30 20 50 4C 41 59 45 52 53 20 54 48 52 4F 57 20 0 PLAYERS THROW
0000A0: 44 41 52 54 53 20 41 54 20 41 20 54 41 52 47 45 DARTS AT A TARGE
0000B0: 54 22 0D 0A 34 30 20 50 52 49 4E 54 20 22 57 49 T"..40 PRINT "WI
0000C0: 54 48 20 31 30 2C 20 32 30 2C 20 33 30 2C 20 41 TH 10, 20, 30, A
0000D0: 4E 44 20 34 30 20 50 4F 49 4E 54 20 5A 4F 4E 45 ND 40 POINT ZONE
0000E0: 53 2E 20 20 54 48 45 20 4F 42 4A 45 43 54 49 56 S. THE OBJECTIV
0000F0: 45 20 49 53 22 0D 0A 35 30 20 50 52 49 4E 54 20 E IS"..50 PRINT
000100: 22 54 4F 20 47 45 54 20 32 30 30 20 50 4F 49 4E "TO GET 200 POIN
000110: 54 53 2E 22 3A 20 50 52 49 4E 54 0D 0A 36 30 20 TS.": PRINT..60
000120: 50 52 49 4E 54 20 22 54 48 52 4F 57 22 2C 54 41 PRINT "THROW",TA
000130: 42 28 32 30 29 3B 22 44 45 53 43 52 49 50 54 49 B(20);"DESCRIPTI
000140: 4F 4E 22 3B 54 41 42 28 34 35 29 3B 22 50 52 4F ON";TAB(45);"PRO
000150: 42 41 42 4C 45 20 53 43 4F 52 45 22 0D 0A 37 30 BABLE SCORE"..70
000160: 20 50 52 49 4E 54 22 20 31 22 3B 54 41 42 28 32 PRINT" 1";TAB(2
000170: 30 29 3B 22 46 41 53 54 20 4F 56 45 52 41 52 4D 0);"FAST OVERARM
000180: 22 3B 54 41 42 28 34 35 29 3B 22 42 55 4C 4C 53 ";TAB(45);"BULLS
000190: 45 59 45 20 4F 52 20 43 4F 4D 50 4C 45 54 45 20 EYE OR COMPLETE
0001A0: 4D 49 53 53 22 0D 0A 38 30 20 50 52 49 4E 54 22 MISS"..80 PRINT"
0001B0: 20 32 22 3B 54 41 42 28 32 30 29 3B 22 43 4F 4E 2";TAB(20);"CON
0001C0: 54 52 4F 4C 4C 45 44 20 4F 56 45 52 41 52 4D 22 TROLLED OVERARM"
0001D0: 3B 54 41 42 28 34 35 29 3B 22 31 30 2C 20 32 30 ;TAB(45);"10, 20
0001E0: 20 4F 52 20 33 30 20 50 4F 49 4E 54 53 22 0D 0A OR 30 POINTS"..
0001F0: 39 30 20 50 52 49 4E 54 22 20 33 22 3B 54 41 42 90 PRINT" 3";TAB
Size : 512 (Real : 512)
000000: 54 20 43 48 52 24 28 31 30 29 3B 3A 20 4E 45 58 T CHR$(10);: NEX
000010: 54 20 49 0D 0A 32 37 30 20 52 45 54 55 52 4E 0D T I..270 RETURN.
000020: 0A 32 38 30 20 52 45 4D 0D 0A 32 39 30 20 44 41 .280 REM..290 DA
000030: 54 41 20 32 2C 32 31 2C 31 34 2C 31 34 2C 32 35 TA 2,21,14,14,25
000040: 0D 0A 33 30 30 20 44 41 54 41 20 31 2C 32 2C 2D ..300 DATA 1,2,-
000050: 31 2C 30 2C 32 2C 34 35 2C 35 30 2C 2D 31 2C 30 1,0,2,45,50,-1,0
000060: 2C 35 2C 34 33 2C 35 32 2C 2D 31 2C 30 2C 37 2C ,5,43,52,-1,0,7,
000070: 34 31 2C 35 32 2C 2D 31 0D 0A 33 31 30 20 44 41 41,52,-1..310 DA
000080: 54 41 20 31 2C 39 2C 33 37 2C 35 30 2C 2D 31 2C TA 1,9,37,50,-1,
000090: 32 2C 31 31 2C 33 36 2C 35 30 2C 2D 31 2C 33 2C 2,11,36,50,-1,3,
0000A0: 31 33 2C 33 34 2C 34 39 2C 2D 31 2C 34 2C 31 34 13,34,49,-1,4,14
0000B0: 2C 33 32 2C 34 38 2C 2D 31 0D 0A 33 32 30 20 44 ,32,48,-1..320 D
0000C0: 41 54 41 20 35 2C 31 35 2C 33 31 2C 34 37 2C 2D ATA 5,15,31,47,-
0000D0: 31 2C 36 2C 31 36 2C 33 30 2C 34 35 2C 2D 31 2C 1,6,16,30,45,-1,
0000E0: 37 2C 31 37 2C 32 39 2C 34 34 2C 2D 31 2C 38 2C 7,17,29,44,-1,8,
0000F0: 31 39 2C 32 38 2C 34 33 2C 2D 31 0D 0A 33 33 30 19,28,43,-1..330
000100: 20 44 41 54 41 20 39 2C 32 30 2C 32 37 2C 34 31 DATA 9,20,27,41
000110: 2C 2D 31 2C 31 30 2C 32 31 2C 32 36 2C 34 30 2C ,-1,10,21,26,40,
000120: 2D 31 2C 31 31 2C 32 32 2C 32 35 2C 33 38 2C 2D -1,11,22,25,38,-
000130: 31 2C 31 32 2C 32 32 2C 32 34 2C 33 36 2C 2D 31 1,12,22,24,36,-1
000140: 0D 0A 33 34 30 20 44 41 54 41 20 31 33 2C 33 34 ..340 DATA 13,34
000150: 2C 2D 31 2C 31 34 2C 33 33 2C 2D 31 2C 31 35 2C ,-1,14,33,-1,15,
000160: 33 31 2C 2D 31 2C 31 37 2C 32 39 2C 2D 31 2C 31 31,-1,17,29,-1,1
000170: 38 2C 32 37 2C 2D 31 0D 0A 33 35 30 20 44 41 54 8,27,-1..350 DAT
000180: 41 20 31 39 2C 32 36 2C 2D 31 2C 31 36 2C 32 38 A 19,26,-1,16,28
000190: 2C 2D 31 2C 31 33 2C 33 30 2C 2D 31 2C 31 31 2C ,-1,13,30,-1,11,
0001A0: 33 31 2C 2D 31 2C 31 30 2C 33 32 2C 2D 31 0D 0A 31,-1,10,32,-1..
0001B0: 33 36 30 20 44 41 54 41 20 38 2C 33 33 2C 2D 31 360 DATA 8,33,-1
0001C0: 2C 37 2C 33 34 2C 2D 31 2C 36 2C 31 33 2C 31 36 ,7,34,-1,6,13,16
0001D0: 2C 33 34 2C 2D 31 2C 35 2C 31 32 2C 31 36 2C 33 ,34,-1,5,12,16,3
0001E0: 35 2C 2D 31 0D 0A 33 37 30 20 44 41 54 41 20 34 5,-1..370 DATA 4
0001F0: 2C 31 32 2C 31 36 2C 33 35 2C 2D 31 2C 33 2C 31 ,12,16,35,-1,3,1
Size : 512 (Real : 512)
000000: 28 32 30 29 3B 22 55 4E 44 45 52 41 52 4D 22 3B (20);"UNDERARM";
000010: 54 41 42 28 34 35 29 3B 22 41 4E 59 54 48 49 4E TAB(45);"ANYTHIN
000020: 47 22 3A 50 52 49 4E 54 0D 0A 31 30 30 20 44 49 G":PRINT..100 DI
000030: 4D 20 41 24 28 32 30 29 2C 53 28 32 30 29 2C 57 M A$(20),S(20),W
000040: 28 31 30 29 3A 20 4D 3D 30 3A 20 52 3D 30 3A 20 (10): M=0: R=0:
000050: 46 4F 52 20 49 3D 31 20 54 4F 20 32 30 3A 20 53 FOR I=1 TO 20: S
000060: 28 49 29 3D 30 3A 20 4E 45 58 54 20 49 0D 0A 31 (I)=0: NEXT I..1
000070: 31 30 20 49 4E 50 55 54 20 22 48 4F 57 20 4D 41 10 INPUT "HOW MA
000080: 4E 59 20 50 4C 41 59 45 52 53 22 3B 4E 3A 20 50 NY PLAYERS";N: P
000090: 52 49 4E 54 0D 0A 31 32 30 20 46 4F 52 20 49 3D RINT..120 FOR I=
0000A0: 31 20 54 4F 20 4E 0D 0A 31 33 30 20 50 52 49 4E 1 TO N..130 PRIN
0000B0: 54 20 22 4E 41 4D 45 20 4F 46 20 50 4C 41 59 45 T "NAME OF PLAYE
0000C0: 52 20 23 22 3B 49 3B 3A 49 4E 50 55 54 20 41 24 R #";I;:INPUT A$
0000D0: 28 49 29 0D 0A 31 34 30 20 4E 45 58 54 20 49 0D (I)..140 NEXT I.
0000E0: 0A 31 35 30 20 52 3D 52 2B 31 3A 20 50 52 49 4E .150 R=R+1: PRIN
0000F0: 54 3A 20 50 52 49 4E 54 20 22 52 4F 55 4E 44 22 T: PRINT "ROUND"
000100: 3B 52 3A 50 52 49 4E 54 20 22 2D 2D 2D 2D 2D 2D ;R:PRINT "------
000110: 2D 2D 2D 22 0D 0A 31 36 30 20 46 4F 52 20 49 3D ---"..160 FOR I=
000120: 31 20 54 4F 20 4E 0D 0A 31 37 30 20 50 52 49 4E 1 TO N..170 PRIN
000130: 54 3A 20 50 52 49 4E 54 20 41 24 28 49 29 22 27 T: PRINT A$(I)"'
000140: 53 20 54 48 52 4F 57 22 3B 3A 20 49 4E 50 55 54 S THROW";: INPUT
000150: 20 54 0D 0A 31 38 30 20 49 46 20 54 3C 30 20 4F T..180 IF T<0 O
000160: 52 20 54 3E 33 20 54 48 45 4E 20 50 52 49 4E 54 R T>3 THEN PRINT
000170: 20 22 49 4E 50 55 54 20 31 2C 20 32 2C 20 4F 52 "INPUT 1, 2, OR
000180: 20 33 21 22 3A 20 47 4F 54 4F 20 31 37 30 0D 0A 3!": GOTO 170..
000190: 31 39 30 20 4F 4E 20 54 20 47 4F 54 4F 20 32 30 190 ON T GOTO 20
0001A0: 30 2C 20 32 31 30 2C 20 32 30 30 0D 0A 32 30 30 0, 210, 200..200
0001B0: 20 50 31 3D 2E 36 35 3A 20 50 32 3D 2E 35 35 3A P1=.65: P2=.55:
0001C0: 20 50 33 3D 2E 35 3A 20 50 34 3D 2E 35 3A 20 47 P3=.5: P4=.5: G
0001D0: 4F 54 4F 20 32 33 30 0D 0A 32 31 30 20 50 31 3D OTO 230..210 P1=
0001E0: 2E 39 39 3A 20 50 32 3D 2E 37 37 3A 20 50 33 3D .99: P2=.77: P3=
0001F0: 2E 34 33 3A 20 50 34 3D 2E 30 31 3A 20 47 4F 54 .43: P4=.01: GOT
Size : 512 (Real : 512)
000000: 32 2C 31 35 2C 33 35 2C 2D 31 2C 32 2C 33 35 2C 2,15,35,-1,2,35,
000010: 2D 31 2C 31 2C 33 35 2C 2D 31 0D 0A 33 38 30 20 -1,1,35,-1..380
000020: 44 41 54 41 20 32 2C 33 34 2C 2D 31 2C 33 2C 33 DATA 2,34,-1,3,3
000030: 34 2C 2D 31 2C 34 2C 33 33 2C 2D 31 2C 36 2C 33 4,-1,4,33,-1,6,3
000040: 33 2C 2D 31 2C 31 30 2C 33 32 2C 33 34 2C 33 34 3,-1,10,32,34,34
000050: 2C 2D 31 0D 0A 33 39 30 20 44 41 54 41 20 31 34 ,-1..390 DATA 14
000060: 2C 31 37 2C 31 39 2C 32 35 2C 32 38 2C 33 31 2C ,17,19,25,28,31,
000070: 33 35 2C 33 35 2C 2D 31 2C 31 35 2C 31 39 2C 32 35,35,-1,15,19,2
000080: 33 2C 33 30 2C 33 36 2C 33 36 2C 2D 31 0D 0A 34 3,30,36,36,-1..4
000090: 30 30 20 44 41 54 41 20 31 34 2C 31 38 2C 32 31 00 DATA 14,18,21
0000A0: 2C 32 31 2C 32 34 2C 33 30 2C 33 37 2C 33 37 2C ,21,24,30,37,37,
0000B0: 2D 31 2C 31 33 2C 31 38 2C 32 33 2C 32 39 2C 33 -1,13,18,23,29,3
0000C0: 33 2C 33 38 2C 2D 31 0D 0A 34 31 30 20 44 41 54 3,38,-1..410 DAT
0000D0: 41 20 31 32 2C 32 39 2C 33 31 2C 33 33 2C 2D 31 A 12,29,31,33,-1
0000E0: 2C 31 31 2C 31 33 2C 31 37 2C 31 37 2C 31 39 2C ,11,13,17,17,19,
0000F0: 31 39 2C 32 32 2C 32 32 2C 32 34 2C 33 31 2C 2D 19,22,22,24,31,-
000100: 31 0D 0A 34 32 30 20 44 41 54 41 20 31 30 2C 31 1..420 DATA 10,1
000110: 31 2C 31 37 2C 31 38 2C 32 32 2C 32 32 2C 32 34 1,17,18,22,22,24
000120: 2C 32 34 2C 32 39 2C 32 39 2C 2D 31 0D 0A 34 33 ,24,29,29,-1..43
000130: 30 20 44 41 54 41 20 32 32 2C 32 33 2C 32 36 2C 0 DATA 22,23,26,
000140: 32 39 2C 2D 31 2C 32 37 2C 32 39 2C 2D 31 2C 32 29,-1,27,29,-1,2
000150: 38 2C 32 39 2C 2D 31 2C 34 30 39 36 0D 0A 34 34 8,29,-1,4096..44
000160: 30 20 52 45 4D 0D 0A 34 35 30 20 45 4E 44 0D 0A 0 REM..450 END..
000170: 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 4F 20 32 33 30 0D 0A 32 32 30 20 50 31 3D 2E 39 O 230..220 P1=.9
000010: 35 3A 20 50 32 3D 2E 37 35 3A 20 50 33 3D 2E 34 5: P2=.75: P3=.4
000020: 35 3A 20 50 34 3D 2E 30 35 0D 0A 32 33 30 20 55 5: P4=.05..230 U
000030: 3D 52 4E 44 28 31 29 0D 0A 32 34 30 20 49 46 20 =RND(1)..240 IF
000040: 55 3E 3D 50 31 20 54 48 45 4E 20 50 52 49 4E 54 U>=P1 THEN PRINT
000050: 20 22 42 55 4C 4C 53 45 59 45 21 21 20 20 34 30 "BULLSEYE!! 40
000060: 20 50 4F 49 4E 54 53 21 22 3A 42 3D 34 30 3A 20 POINTS!":B=40:
000070: 47 4F 54 4F 20 32 39 30 0D 0A 32 35 30 20 49 46 GOTO 290..250 IF
000080: 20 55 3E 3D 50 32 20 54 48 45 4E 20 50 52 49 4E U>=P2 THEN PRIN
000090: 54 20 22 33 30 2D 50 4F 49 4E 54 20 5A 4F 4E 45 T "30-POINT ZONE
0000A0: 21 22 3A 42 3D 33 30 3A 20 47 4F 54 4F 20 32 39 !":B=30: GOTO 29
0000B0: 30 0D 0A 32 36 30 20 49 46 20 55 3E 3D 50 33 20 0..260 IF U>=P3
0000C0: 54 48 45 4E 20 50 52 49 4E 54 20 22 32 30 2D 50 THEN PRINT "20-P
0000D0: 4F 49 4E 54 20 5A 4F 4E 45 22 3A 42 3D 32 30 3A OINT ZONE":B=20:
0000E0: 20 47 4F 54 4F 20 32 39 30 0D 0A 32 37 30 20 49 GOTO 290..270 I
0000F0: 46 20 55 3E 3D 50 34 20 54 48 45 4E 20 50 52 49 F U>=P4 THEN PRI
000100: 4E 54 20 22 57 48 45 57 21 20 20 31 30 20 50 4F NT "WHEW! 10 PO
000110: 49 4E 54 53 2E 22 3A 42 3D 31 30 3A 20 47 4F 54 INTS.":B=10: GOT
000120: 4F 20 32 39 30 0D 0A 32 38 30 20 50 52 49 4E 54 O 290..280 PRINT
000130: 20 22 4D 49 53 53 45 44 20 54 48 45 20 54 41 52 "MISSED THE TAR
000140: 47 45 54 21 20 20 54 4F 4F 20 42 41 44 2E 22 3A GET! TOO BAD.":
000150: 20 42 3D 30 0D 0A 32 39 30 20 53 28 49 29 3D 53 B=0..290 S(I)=S
000160: 28 49 29 2B 42 3A 20 50 52 49 4E 54 20 22 54 4F (I)+B: PRINT "TO
000170: 54 41 4C 20 53 43 4F 52 45 20 3D 22 3B 53 28 49 TAL SCORE =";S(I
000180: 29 3A 20 4E 45 58 54 20 49 0D 0A 33 30 30 20 46 ): NEXT I..300 F
000190: 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 33 31 30 OR I=1 TO N..310
0001A0: 20 49 46 20 53 28 49 29 3E 3D 32 30 30 20 54 48 IF S(I)>=200 TH
0001B0: 45 4E 20 4D 3D 4D 2B 31 3A 20 57 28 4D 29 3D 49 EN M=M+1: W(M)=I
0001C0: 0D 0A 33 32 30 20 4E 45 58 54 20 49 0D 0A 33 33 ..320 NEXT I..33
0001D0: 30 20 49 46 20 4D 3D 30 20 54 48 45 4E 20 31 35 0 IF M=0 THEN 15
0001E0: 30 0D 0A 33 34 30 20 50 52 49 4E 54 3A 20 50 52 0..340 PRINT: PR
0001F0: 49 4E 54 20 22 57 45 20 48 41 56 45 20 41 20 57 INT "WE HAVE A W
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 49 4E 4E 45 52 21 21 22 3A 20 50 52 49 4E 54 0D INNER!!": PRINT.
000010: 0A 33 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 .350 FOR I=1 TO
000020: 4D 3A 20 50 52 49 4E 54 20 41 24 28 57 28 49 29 M: PRINT A$(W(I)
000030: 29 3B 22 20 53 43 4F 52 45 44 22 3B 53 28 57 28 );" SCORED";S(W(
000040: 49 29 29 3B 22 50 4F 49 4E 54 53 2E 22 3A 20 4E I));"POINTS.": N
000050: 45 58 54 20 49 0D 0A 33 36 30 20 50 52 49 4E 54 EXT I..360 PRINT
000060: 3A 20 50 52 49 4E 54 20 22 54 48 41 4E 4B 53 20 : PRINT "THANKS
000070: 46 4F 52 20 54 48 45 20 47 41 4D 45 2E 22 3A 20 FOR THE GAME.":
000080: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 32 36 29 10 PRINT TAB(26)
000010: 3B 22 42 55 5A 5A 57 4F 52 44 20 47 45 4E 45 52 ;"BUZZWORD GENER
000020: 41 54 4F 52 22 0D 0A 32 30 20 50 52 49 4E 54 20 ATOR"..20 PRINT
000030: 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 TAB(15);"CREATIV
000040: 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 E COMPUTING MOR
000050: 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 RISTOWN, NEW JER
000060: 53 45 59 22 0D 0A 33 30 20 50 52 49 4E 54 3A 50 SEY"..30 PRINT:P
000070: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 30 20 50 RINT:PRINT..40 P
000080: 52 49 4E 54 20 22 54 48 49 53 20 50 52 4F 47 52 RINT "THIS PROGR
000090: 41 4D 20 50 52 49 4E 54 53 20 48 49 47 48 4C 59 AM PRINTS HIGHLY
0000A0: 20 41 43 43 45 50 54 41 42 4C 45 20 50 48 52 41 ACCEPTABLE PHRA
0000B0: 53 45 53 20 49 4E 22 0D 0A 35 30 20 50 52 49 4E SES IN"..50 PRIN
0000C0: 54 20 22 27 45 44 55 43 41 54 4F 52 2D 53 50 45 T "'EDUCATOR-SPE
0000D0: 41 4B 27 54 48 41 54 20 59 4F 55 20 43 41 4E 20 AK'THAT YOU CAN
0000E0: 57 4F 52 4B 20 49 4E 54 4F 20 52 45 50 4F 52 54 WORK INTO REPORT
0000F0: 53 22 0D 0A 36 30 20 50 52 49 4E 54 20 22 41 4E S"..60 PRINT "AN
000100: 44 20 53 50 45 45 43 48 45 53 2E 20 20 57 48 45 D SPEECHES. WHE
000110: 4E 45 56 45 52 20 41 20 51 55 45 53 54 49 4F 4E NEVER A QUESTION
000120: 20 4D 41 52 4B 20 49 53 20 50 52 49 4E 54 45 44 MARK IS PRINTED
000130: 2C 22 0D 0A 37 30 20 50 52 49 4E 54 20 22 54 59 ,"..70 PRINT "TY
000140: 50 45 20 41 20 27 59 27 20 46 4F 52 20 41 4E 4F PE A 'Y' FOR ANO
000150: 54 48 45 52 20 50 48 52 41 53 45 20 4F 52 20 27 THER PHRASE OR '
000160: 4E 27 20 54 4F 20 51 55 49 54 2E 22 0D 0A 38 30 N' TO QUIT."..80
000170: 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 PRINT:PRINT:PRI
000180: 4E 54 20 22 48 45 52 45 27 53 20 54 48 45 20 46 NT "HERE'S THE F
000190: 49 52 53 54 20 50 48 52 41 53 45 3A 22 0D 0A 39 IRST PHRASE:"..9
0001A0: 30 20 44 49 4D 20 41 24 28 34 30 29 0D 0A 31 30 0 DIM A$(40)..10
0001B0: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 33 39 20 0 FOR I=1 TO 39
0001C0: 3A 20 52 45 41 44 20 41 24 28 49 29 20 3A 20 4E : READ A$(I) : N
0001D0: 45 58 54 20 49 0D 0A 31 31 30 20 50 52 49 4E 54 EXT I..110 PRINT
0001E0: 20 41 24 28 49 4E 54 28 31 33 2A 52 4E 44 28 31 A$(INT(13*RND(1
0001F0: 29 2B 31 29 29 3B 22 20 22 3B 0D 0A 31 32 30 20 )+1));" ";..120
Size : 512 (Real : 512)
000000: 45 4D 2D 2D 53 55 42 52 4F 55 54 49 4E 45 20 54 EM--SUBROUTINE T
000010: 4F 20 47 45 54 20 41 20 43 41 52 44 2E 20 20 52 O GET A CARD. R
000020: 45 53 55 4C 54 20 49 53 20 50 55 54 20 49 4E 20 ESULT IS PUT IN
000030: 58 2E 0D 0A 31 31 30 20 49 46 20 43 3C 35 31 20 X...110 IF C<51
000040: 54 48 45 4E 20 32 33 30 0D 0A 31 32 30 20 50 52 THEN 230..120 PR
000050: 49 4E 54 20 22 52 45 53 48 55 46 46 4C 49 4E 47 INT "RESHUFFLING
000060: 22 0D 0A 31 33 30 20 46 4F 52 20 44 3D 44 20 54 "..130 FOR D=D T
000070: 4F 20 31 20 53 54 45 50 20 2D 31 0D 0A 31 34 30 O 1 STEP -1..140
000080: 20 43 3D 43 2D 31 0D 0A 31 35 30 20 43 28 43 29 C=C-1..150 C(C)
000090: 3D 44 28 44 29 0D 0A 31 36 30 20 4E 45 58 54 20 =D(D)..160 NEXT
0000A0: 44 0D 0A 31 37 30 20 46 4F 52 20 43 31 3D 35 32 D..170 FOR C1=52
0000B0: 20 54 4F 20 43 20 53 54 45 50 20 2D 31 0D 0A 31 TO C STEP -1..1
0000C0: 38 30 20 43 32 3D 49 4E 54 28 52 4E 44 28 31 29 80 C2=INT(RND(1)
0000D0: 2A 28 43 31 2D 43 2B 31 29 29 2B 43 0D 0A 31 39 *(C1-C+1))+C..19
0000E0: 30 20 43 33 3D 43 28 43 32 29 0D 0A 32 30 30 20 0 C3=C(C2)..200
0000F0: 43 28 43 32 29 3D 43 28 43 31 29 0D 0A 32 31 30 C(C2)=C(C1)..210
000100: 20 43 28 43 31 29 3D 43 33 0D 0A 32 32 30 20 4E C(C1)=C3..220 N
000110: 45 58 54 20 43 31 0D 0A 32 33 30 20 58 3D 43 28 EXT C1..230 X=C(
000120: 43 29 0D 0A 32 34 30 20 43 3D 43 2B 31 0D 0A 32 C)..240 C=C+1..2
000130: 35 30 20 52 45 54 55 52 4E 0D 0A 33 30 30 20 52 50 RETURN..300 R
000140: 45 4D 2D 2D 53 55 42 52 4F 55 54 49 4E 45 20 54 EM--SUBROUTINE T
000150: 4F 20 45 56 41 4C 55 41 54 45 20 48 41 4E 44 20 O EVALUATE HAND
000160: 49 2E 20 20 54 4F 54 41 4C 20 49 53 20 50 55 54 I. TOTAL IS PUT
000170: 20 49 4E 54 4F 0D 0A 33 31 30 20 52 45 4D 2D 2D INTO..310 REM--
000180: 51 28 49 29 2E 20 54 4F 54 41 4C 53 20 48 41 56 Q(I). TOTALS HAV
000190: 45 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 E THE FOLLOWING
0001A0: 4D 45 41 4E 49 4E 47 3A 0D 0A 33 32 30 20 52 45 MEANING:..320 RE
0001B0: 4D 2D 2D 20 20 32 2D 31 30 2E 2E 2E 48 41 52 44 M-- 2-10...HARD
0001C0: 20 32 2D 31 30 0D 0A 33 33 30 20 52 45 4D 2D 2D 2-10..330 REM--
0001D0: 20 31 31 2D 32 31 2E 2E 2E 53 4F 46 54 20 31 31 11-21...SOFT 11
0001E0: 2D 32 31 0D 0A 33 34 30 20 52 45 4D 2D 2D 20 32 -21..340 REM-- 2
0001F0: 32 2D 33 32 2E 2E 2E 48 41 52 44 20 31 31 2D 32 2-32...HARD 11-2
Size : 512 (Real : 512)
000000: 50 52 49 4E 54 20 41 24 28 49 4E 54 28 31 33 2A PRINT A$(INT(13*
000010: 52 4E 44 28 31 29 2B 31 34 29 29 3B 22 20 22 3B RND(1)+14));" ";
000020: 0D 0A 31 33 30 20 50 52 49 4E 54 20 41 24 28 49 ..130 PRINT A$(I
000030: 4E 54 28 31 33 2A 52 4E 44 28 31 29 2B 32 37 29 NT(13*RND(1)+27)
000040: 29 20 3A 20 50 52 49 4E 54 0D 0A 31 35 30 20 49 ) : PRINT..150 I
000050: 4E 50 55 54 20 59 24 20 3A 20 49 46 20 59 24 3D NPUT Y$ : IF Y$=
000060: 22 59 22 20 54 48 45 4E 20 31 31 30 0D 0A 31 36 "Y" THEN 110..16
000070: 30 20 47 4F 54 4F 20 39 39 39 0D 0A 32 30 30 20 0 GOTO 999..200
000080: 44 41 54 41 20 22 41 42 49 4C 49 54 59 22 2C 22 DATA "ABILITY","
000090: 42 41 53 41 4C 22 2C 22 42 45 48 41 56 49 4F 52 BASAL","BEHAVIOR
0000A0: 41 4C 22 2C 22 43 48 49 4C 44 2D 43 45 4E 54 45 AL","CHILD-CENTE
0000B0: 52 45 44 22 0D 0A 32 31 30 20 44 41 54 41 20 22 RED"..210 DATA "
0000C0: 44 49 46 46 45 52 45 4E 54 49 41 54 45 44 22 2C DIFFERENTIATED",
0000D0: 22 44 49 53 43 4F 56 45 52 59 22 2C 22 46 4C 45 "DISCOVERY","FLE
0000E0: 58 49 42 4C 45 22 2C 22 48 45 54 45 52 4F 47 45 XIBLE","HETEROGE
0000F0: 4E 45 4F 55 53 22 0D 0A 32 32 30 20 44 41 54 41 NEOUS"..220 DATA
000100: 20 22 48 4F 4D 4F 47 45 4E 45 4F 55 53 22 2C 22 "HOMOGENEOUS","
000110: 4D 41 4E 49 50 55 4C 41 54 49 56 45 22 2C 22 4D MANIPULATIVE","M
000120: 4F 44 55 4C 41 52 22 2C 22 54 41 56 49 53 54 4F ODULAR","TAVISTO
000130: 43 4B 22 0D 0A 32 33 30 20 44 41 54 41 20 22 49 CK"..230 DATA "I
000140: 4E 44 49 56 49 44 55 41 4C 49 5A 45 44 22 2C 22 NDIVIDUALIZED","
000150: 4C 45 41 52 4E 49 4E 47 22 2C 22 45 56 41 4C 55 LEARNING","EVALU
000160: 41 54 49 56 45 22 2C 22 4F 42 4A 45 43 54 49 56 ATIVE","OBJECTIV
000170: 45 22 0D 0A 32 34 30 20 44 41 54 41 20 22 43 4F E"..240 DATA "CO
000180: 47 4E 49 54 49 56 45 22 2C 22 45 4E 52 49 43 48 GNITIVE","ENRICH
000190: 4D 45 4E 54 22 2C 22 53 43 48 45 44 55 4C 49 4E MENT","SCHEDULIN
0001A0: 47 22 2C 22 48 55 4D 41 4E 49 53 54 49 43 22 0D G","HUMANISTIC".
0001B0: 0A 32 35 30 20 44 41 54 41 20 22 49 4E 54 45 47 .250 DATA "INTEG
0001C0: 52 41 54 45 44 22 2C 22 4E 4F 4E 2D 47 52 41 44 RATED","NON-GRAD
0001D0: 45 44 22 2C 22 54 52 41 49 4E 49 4E 47 22 2C 22 ED","TRAINING","
0001E0: 56 45 52 54 49 43 41 4C 20 41 47 45 22 0D 0A 32 VERTICAL AGE"..2
0001F0: 36 30 20 44 41 54 41 20 22 4D 4F 54 49 56 41 54 60 DATA "MOTIVAT
Size : 512 (Real : 512)
000000: 31 0D 0A 33 35 30 20 52 45 4D 2D 2D 20 20 33 33 1..350 REM-- 33
000010: 2B 2E 2E 2E 2E 42 55 53 54 45 44 0D 0A 33 36 30 +....BUSTED..360
000020: 20 51 3D 30 0D 0A 33 37 30 20 46 4F 52 20 51 32 Q=0..370 FOR Q2
000030: 3D 31 20 54 4F 20 52 28 49 29 0D 0A 33 38 30 20 =1 TO R(I)..380
000040: 58 3D 50 28 49 2C 51 32 29 0D 0A 33 39 30 20 47 X=P(I,Q2)..390 G
000050: 4F 53 55 42 20 35 30 30 0D 0A 34 30 30 20 4E 45 OSUB 500..400 NE
000060: 58 54 20 51 32 0D 0A 34 31 30 20 51 28 49 29 3D XT Q2..410 Q(I)=
000070: 51 0D 0A 34 32 30 20 52 45 54 55 52 4E 0D 0A 35 Q..420 RETURN..5
000080: 30 30 20 52 45 4D 2D 2D 53 55 42 52 4F 55 54 49 00 REM--SUBROUTI
000090: 4E 45 20 54 4F 20 41 44 44 20 43 41 52 44 20 58 NE TO ADD CARD X
0000A0: 20 54 4F 20 54 4F 54 41 4C 20 51 2E 0D 0A 35 31 TO TOTAL Q...51
0000B0: 30 20 58 31 3D 58 3A 20 49 46 20 58 31 3E 31 30 0 X1=X: IF X1>10
0000C0: 20 54 48 45 4E 20 58 31 3D 31 30 3A 20 20 52 45 THEN X1=10: RE
0000D0: 4D 20 20 53 41 4D 45 20 41 53 20 58 31 3D 31 30 M SAME AS X1=10
0000E0: 20 4D 49 4E 20 58 0D 0A 35 32 30 20 51 31 3D 51 MIN X..520 Q1=Q
0000F0: 2B 58 31 0D 0A 35 33 30 20 49 46 20 51 3E 3D 31 +X1..530 IF Q>=1
000100: 31 20 54 48 45 4E 20 35 39 30 0D 0A 35 34 30 20 1 THEN 590..540
000110: 49 46 20 58 3E 31 20 54 48 45 4E 20 35 37 30 0D IF X>1 THEN 570.
000120: 0A 35 35 30 20 51 3D 51 2B 31 31 0D 0A 35 36 30 .550 Q=Q+11..560
000130: 20 52 45 54 55 52 4E 0D 0A 35 37 30 20 51 3D 51 RETURN..570 Q=Q
000140: 31 2D 31 31 2A 28 51 31 3E 3D 31 31 29 0D 0A 35 1-11*(Q1>=11)..5
000150: 38 30 20 52 45 54 55 52 4E 0D 0A 35 39 30 20 51 80 RETURN..590 Q
000160: 3D 51 31 2D 28 51 3C 3D 32 31 20 41 4E 44 20 51 =Q1-(Q<=21 AND Q
000170: 31 3E 32 31 29 0D 0A 36 30 30 20 49 46 20 51 3C 1>21)..600 IF Q<
000180: 33 33 20 54 48 45 4E 20 36 32 30 0D 0A 36 31 30 33 THEN 620..610
000190: 20 51 3D 2D 31 0D 0A 36 32 30 20 52 45 54 55 52 Q=-1..620 RETUR
0001A0: 4E 0D 0A 37 30 30 20 52 45 4D 2D 2D 43 41 52 44 N..700 REM--CARD
0001B0: 20 50 52 49 4E 54 49 4E 47 20 53 55 42 52 4F 55 PRINTING SUBROU
0001C0: 54 49 4E 45 0D 0A 37 31 30 20 52 45 4D 20 20 44 TINE..710 REM D
0001D0: 24 20 44 45 46 49 4E 45 44 20 45 4C 53 45 57 48 $ DEFINED ELSEWH
0001E0: 45 52 45 0D 0A 37 32 30 20 50 52 49 4E 54 20 4D ERE..720 PRINT M
0001F0: 49 44 24 28 44 24 2C 33 2A 58 2D 32 2C 33 29 3B ID$(D$,3*X-2,3);
Size : 512 (Real : 512)
000000: 49 4F 4E 41 4C 22 2C 22 43 52 45 41 54 49 56 45 IONAL","CREATIVE
000010: 22 2C 22 47 52 4F 55 50 49 4E 47 22 2C 22 4D 4F ","GROUPING","MO
000020: 44 49 46 49 43 41 54 49 4F 4E 22 0D 0A 32 37 30 DIFICATION"..270
000030: 20 44 41 54 41 20 22 41 43 43 4F 55 4E 54 41 42 DATA "ACCOUNTAB
000040: 49 4C 49 54 59 22 2C 22 50 52 4F 43 45 53 53 22 ILITY","PROCESS"
000050: 2C 22 43 4F 52 45 20 43 55 52 52 49 43 55 4C 55 ,"CORE CURRICULU
000060: 4D 22 2C 22 41 4C 47 4F 52 49 54 48 4D 22 0D 0A M","ALGORITHM"..
000070: 32 38 30 20 44 41 54 41 20 22 50 45 52 46 4F 52 280 DATA "PERFOR
000080: 4D 41 4E 43 45 22 2C 22 52 45 49 4E 46 4F 52 43 MANCE","REINFORC
000090: 45 4D 45 4E 54 22 2C 22 4F 50 45 4E 20 43 4C 41 EMENT","OPEN CLA
0000A0: 53 53 52 4F 4F 4D 22 2C 22 52 45 53 4F 55 52 43 SSROOM","RESOURC
0000B0: 45 22 0D 0A 32 39 30 20 44 41 54 41 20 22 53 54 E"..290 DATA "ST
0000C0: 52 55 43 54 55 52 45 22 2C 22 46 41 43 49 4C 49 RUCTURE","FACILI
0000D0: 54 59 22 2C 22 45 4E 56 49 52 4F 4E 4D 45 4E 54 TY","ENVIRONMENT
0000E0: 22 0D 0A 39 39 39 20 50 52 49 4E 54 20 22 43 4F "..999 PRINT "CO
0000F0: 4D 45 20 42 41 43 4B 20 57 48 45 4E 20 59 4F 55 ME BACK WHEN YOU
000100: 20 4E 45 45 44 20 48 45 4C 50 20 57 49 54 48 20 NEED HELP WITH
000110: 41 4E 4F 54 48 45 52 20 52 45 50 4F 52 54 21 22 ANOTHER REPORT!"
000120: 3A 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 :END............
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 0D 0A 37 33 30 20 50 52 49 4E 54 20 22 20 20 22 ..730 PRINT " "
000010: 3B 0D 0A 37 34 30 20 52 45 54 55 52 4E 0D 0A 37 ;..740 RETURN..7
000020: 35 30 20 52 45 4D 2D 2D 41 4C 54 45 52 4E 41 54 50 REM--ALTERNAT
000030: 49 56 45 20 50 52 49 4E 54 49 4E 47 20 52 4F 55 IVE PRINTING ROU
000040: 54 49 4E 45 0D 0A 37 36 30 20 50 52 49 4E 54 20 TINE..760 PRINT
000050: 22 20 22 3B 4D 49 44 24 28 44 24 2C 33 2A 58 2D " ";MID$(D$,3*X-
000060: 31 2C 32 29 3B 0D 0A 37 37 30 20 50 52 49 4E 54 1,2);..770 PRINT
000070: 20 22 20 20 20 22 3B 0D 0A 37 38 30 20 52 45 54 " ";..780 RET
000080: 55 52 4E 0D 0A 38 30 30 20 52 45 4D 2D 2D 53 55 URN..800 REM--SU
000090: 42 52 4F 55 54 49 4E 45 20 54 4F 20 50 4C 41 59 BROUTINE TO PLAY
0000A0: 20 4F 55 54 20 41 20 48 41 4E 44 2E 0D 0A 38 31 OUT A HAND...81
0000B0: 30 20 52 45 4D 2D 2D 4E 4F 20 53 50 4C 49 54 54 0 REM--NO SPLITT
0000C0: 49 4E 47 20 4F 52 20 42 4C 41 43 4B 4A 41 43 4B ING OR BLACKJACK
0000D0: 53 20 41 4C 4C 4F 57 45 44 0D 0A 38 32 30 20 48 S ALLOWED..820 H
0000E0: 31 3D 35 0D 0A 38 33 30 20 47 4F 53 55 42 20 31 1=5..830 GOSUB 1
0000F0: 34 31 30 0D 0A 38 34 30 20 48 31 3D 33 0D 0A 38 410..840 H1=3..8
000100: 35 30 20 4F 4E 20 48 20 47 4F 54 4F 20 39 35 30 50 ON H GOTO 950
000110: 2C 39 33 30 0D 0A 38 36 30 20 47 4F 53 55 42 20 ,930..860 GOSUB
000120: 31 30 30 0D 0A 38 37 30 20 42 28 49 29 3D 42 28 100..870 B(I)=B(
000130: 49 29 2A 32 0D 0A 38 38 30 20 50 52 49 4E 54 20 I)*2..880 PRINT
000140: 22 52 45 43 45 49 56 45 44 20 41 22 3B 0D 0A 38 "RECEIVED A";..8
000150: 39 30 20 47 4F 53 55 42 20 37 30 30 0D 0A 39 30 90 GOSUB 700..90
000160: 30 20 47 4F 53 55 42 20 31 31 30 30 0D 0A 39 31 0 GOSUB 1100..91
000170: 30 20 49 46 20 51 3E 30 20 54 48 45 4E 20 47 4F 0 IF Q>0 THEN GO
000180: 53 55 42 20 31 33 30 30 0D 0A 39 32 30 20 52 45 SUB 1300..920 RE
000190: 54 55 52 4E 0D 0A 39 33 30 20 47 4F 53 55 42 20 TURN..930 GOSUB
0001A0: 31 33 32 30 0D 0A 39 34 30 20 52 45 54 55 52 4E 1320..940 RETURN
0001B0: 0D 0A 39 35 30 20 47 4F 53 55 42 20 31 30 30 0D ..950 GOSUB 100.
0001C0: 0A 39 36 30 20 50 52 49 4E 54 20 22 52 45 43 45 .960 PRINT "RECE
0001D0: 49 56 45 44 20 41 22 3B 0D 0A 39 37 30 20 47 4F IVED A";..970 GO
0001E0: 53 55 42 20 37 30 30 0D 0A 39 38 30 20 47 4F 53 SUB 700..980 GOS
0001F0: 55 42 20 31 31 30 30 0D 0A 39 39 30 20 49 46 20 UB 1100..990 IF
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 51 3C 30 20 54 48 45 4E 20 39 34 30 0D 0A 31 30 Q<0 THEN 940..10
000010: 30 30 20 50 52 49 4E 54 20 22 48 49 54 22 3B 0D 00 PRINT "HIT";.
000020: 0A 31 30 31 30 20 47 4F 54 4F 20 38 33 30 0D 0A .1010 GOTO 830..
000030: 31 31 30 30 20 52 45 4D 2D 2D 53 55 42 52 4F 55 1100 REM--SUBROU
000040: 54 49 4E 45 20 54 4F 20 41 44 44 20 41 20 43 41 TINE TO ADD A CA
000050: 52 44 20 54 4F 20 52 4F 57 20 49 0D 0A 31 31 31 RD TO ROW I..111
000060: 30 20 52 28 49 29 3D 52 28 49 29 2B 31 0D 0A 31 0 R(I)=R(I)+1..1
000070: 31 32 30 20 50 28 49 2C 52 28 49 29 29 3D 58 0D 120 P(I,R(I))=X.
000080: 0A 31 31 33 30 20 51 3D 51 28 49 29 0D 0A 31 31 .1130 Q=Q(I)..11
000090: 34 30 20 47 4F 53 55 42 20 35 30 30 0D 0A 31 31 40 GOSUB 500..11
0000A0: 35 30 20 51 28 49 29 3D 51 0D 0A 31 31 36 30 20 50 Q(I)=Q..1160
0000B0: 49 46 20 51 3E 3D 30 20 54 48 45 4E 20 31 31 39 IF Q>=0 THEN 119
0000C0: 30 0D 0A 31 31 37 30 20 50 52 49 4E 54 20 22 2E 0..1170 PRINT ".
0000D0: 2E 2E 42 55 53 54 45 44 22 0D 0A 31 31 38 30 20 ..BUSTED"..1180
0000E0: 47 4F 53 55 42 20 31 32 30 30 0D 0A 31 31 39 30 GOSUB 1200..1190
0000F0: 20 52 45 54 55 52 4E 0D 0A 31 32 30 30 20 52 45 RETURN..1200 RE
000100: 4D 2D 2D 53 55 42 52 4F 55 54 49 4E 45 20 54 4F M--SUBROUTINE TO
000110: 20 44 49 53 43 41 52 44 20 52 4F 57 20 49 0D 0A DISCARD ROW I..
000120: 31 32 31 30 20 49 46 20 52 28 49 29 3C 3E 30 20 1210 IF R(I)<>0
000130: 54 48 45 4E 20 31 32 33 30 0D 0A 31 32 32 30 20 THEN 1230..1220
000140: 52 45 54 55 52 4E 0D 0A 31 32 33 30 20 44 3D 44 RETURN..1230 D=D
000150: 2B 31 0D 0A 31 32 34 30 20 44 28 44 29 3D 50 28 +1..1240 D(D)=P(
000160: 49 2C 52 28 49 29 29 0D 0A 31 32 35 30 20 52 28 I,R(I))..1250 R(
000170: 49 29 3D 52 28 49 29 2D 31 0D 0A 31 32 36 30 20 I)=R(I)-1..1260
000180: 47 4F 54 4F 20 31 32 31 30 0D 0A 31 33 30 30 20 GOTO 1210..1300
000190: 52 45 4D 2D 2D 50 52 49 4E 54 53 20 54 4F 54 41 REM--PRINTS TOTA
0001A0: 4C 20 4F 46 20 48 41 4E 44 20 49 0D 0A 31 33 31 L OF HAND I..131
0001B0: 30 20 50 52 49 4E 54 0D 0A 31 33 32 30 20 41 41 0 PRINT..1320 AA
0001C0: 3D 51 28 49 29 3A 20 47 4F 53 55 42 20 33 34 30 =Q(I): GOSUB 340
0001D0: 30 0D 0A 31 33 32 35 20 50 52 49 4E 54 20 22 54 0..1325 PRINT "T
0001E0: 4F 54 41 4C 20 49 53 22 3B 41 41 0D 0A 31 33 33 OTAL IS";AA..133
0001F0: 30 20 52 45 54 55 52 4E 0D 0A 31 34 30 30 20 52 0 RETURN..1400 R
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 31 29 3B 2 PRINT TAB(31);
000010: 22 42 4C 41 43 4B 20 4A 41 43 4B 22 0D 0A 34 20 "BLACK JACK"..4
000020: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 PRINT TAB(15);"C
000030: 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E REATIVE COMPUTIN
000040: 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E G MORRISTOWN, N
000050: 45 57 20 4A 45 52 53 45 59 22 0D 0A 36 20 50 52 EW JERSEY"..6 PR
000060: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
000070: 0A 31 30 20 44 45 46 20 46 4E 41 28 51 29 3D 51 .10 DEF FNA(Q)=Q
000080: 2B 31 31 2A 28 51 3E 3D 32 32 29 0D 0A 32 30 20 +11*(Q>=22)..20
000090: 44 49 4D 20 50 28 31 35 2C 31 32 29 2C 51 28 31 DIM P(15,12),Q(1
0000A0: 35 29 2C 43 28 35 32 29 2C 44 28 35 32 29 2C 54 5),C(52),D(52),T
0000B0: 28 38 29 2C 53 28 37 29 2C 42 28 31 35 29 0D 0A (8),S(7),B(15)..
0000C0: 33 30 20 44 49 4D 20 52 28 31 35 29 0D 0A 34 30 30 DIM R(15)..40
0000D0: 20 52 45 4D 2D 2D 50 28 49 2C 4A 29 20 49 53 20 REM--P(I,J) IS
0000E0: 54 48 45 20 4A 54 48 20 43 41 52 44 20 49 4E 20 THE JTH CARD IN
0000F0: 48 41 4E 44 20 49 2C 20 51 28 49 29 20 49 53 20 HAND I, Q(I) IS
000100: 54 4F 54 41 4C 20 4F 46 20 48 41 4E 44 20 49 0D TOTAL OF HAND I.
000110: 0A 35 30 20 52 45 4D 2D 2D 43 20 49 53 20 54 48 .50 REM--C IS TH
000120: 45 20 44 45 43 4B 20 42 45 49 4E 47 20 44 45 41 E DECK BEING DEA
000130: 4C 54 20 46 52 4F 4D 2C 20 44 20 49 53 20 54 48 LT FROM, D IS TH
000140: 45 20 44 49 53 43 41 52 44 20 50 49 4C 45 2C 0D E DISCARD PILE,.
000150: 0A 36 30 20 52 45 4D 2D 2D 54 28 49 29 20 49 53 .60 REM--T(I) IS
000160: 20 54 48 45 20 54 4F 54 41 4C 20 46 4F 52 20 50 THE TOTAL FOR P
000170: 4C 41 59 45 52 20 49 2C 20 53 28 49 29 20 49 53 LAYER I, S(I) IS
000180: 20 54 48 45 20 54 4F 54 41 4C 20 54 48 49 53 20 THE TOTAL THIS
000190: 48 41 4E 44 20 46 4F 52 0D 0A 37 30 20 52 45 4D HAND FOR..70 REM
0001A0: 2D 2D 50 4C 41 59 45 52 20 49 2C 20 42 28 49 29 --PLAYER I, B(I)
0001B0: 20 49 53 20 54 48 20 42 45 54 20 46 4F 52 20 48 IS TH BET FOR H
0001C0: 41 4E 44 20 49 0D 0A 38 30 20 52 45 4D 2D 2D 52 AND I..80 REM--R
0001D0: 28 49 29 20 49 53 20 54 48 45 20 4C 45 4E 47 54 (I) IS THE LENGT
0001E0: 48 20 4F 46 20 50 28 49 2C 2A 29 0D 0A 39 30 20 H OF P(I,*)..90
0001F0: 47 4F 54 4F 20 31 35 30 30 0D 0A 31 30 30 20 52 GOTO 1500..100 R
Size : 512 (Real : 512)
000000: 45 4D 2D 2D 53 55 42 52 4F 55 54 49 4E 45 20 54 EM--SUBROUTINE T
000010: 4F 20 52 45 41 44 20 52 45 50 4C 59 0D 0A 31 34 O READ REPLY..14
000020: 31 30 20 52 45 4D 20 20 49 24 20 44 45 46 49 4E 10 REM I$ DEFIN
000030: 45 44 20 45 4C 53 45 57 48 45 52 45 0D 0A 31 34 ED ELSEWHERE..14
000040: 32 30 20 49 4E 50 55 54 20 48 24 3A 20 48 24 3D 20 INPUT H$: H$=
000050: 4C 45 46 54 24 28 48 24 2C 31 29 0D 0A 31 34 33 LEFT$(H$,1)..143
000060: 30 20 46 4F 52 20 48 3D 31 20 54 4F 20 48 31 20 0 FOR H=1 TO H1
000070: 53 54 45 50 20 32 0D 0A 31 34 34 30 20 49 46 20 STEP 2..1440 IF
000080: 48 24 3D 4D 49 44 24 28 49 24 2C 48 2C 31 29 20 H$=MID$(I$,H,1)
000090: 54 48 45 4E 20 31 34 38 30 0D 0A 31 34 35 30 20 THEN 1480..1450
0000A0: 4E 45 58 54 20 48 0D 0A 31 34 36 30 20 50 52 49 NEXT H..1460 PRI
0000B0: 4E 54 20 22 54 59 50 45 20 22 3B 4D 49 44 24 28 NT "TYPE ";MID$(
0000C0: 49 24 2C 31 2C 48 31 2D 31 29 3B 22 20 4F 52 20 I$,1,H1-1);" OR
0000D0: 22 3B 4D 49 44 24 28 49 24 2C 48 31 2C 32 29 3B ";MID$(I$,H1,2);
0000E0: 22 20 50 4C 45 41 53 45 22 3B 0D 0A 31 34 37 30 " PLEASE";..1470
0000F0: 20 47 4F 54 4F 20 31 34 32 30 0D 0A 31 34 38 30 GOTO 1420..1480
000100: 20 48 3D 28 48 2B 31 29 2F 32 0D 0A 31 34 39 30 H=(H+1)/2..1490
000110: 20 52 45 54 55 52 4E 0D 0A 31 35 30 30 20 52 45 RETURN..1500 RE
000120: 4D 2D 2D 50 52 4F 47 52 41 4D 20 53 54 41 52 54 M--PROGRAM START
000130: 53 20 48 45 52 45 0D 0A 31 35 31 30 20 52 45 4D S HERE..1510 REM
000140: 2D 2D 49 4E 49 54 49 41 4C 49 5A 45 0D 0A 31 35 --INITIALIZE..15
000150: 32 30 20 44 24 3D 22 4E 20 41 20 20 32 20 20 33 20 D$="N A 2 3
000160: 20 20 34 20 20 35 20 20 36 20 20 37 4E 20 38 20 4 5 6 7N 8
000170: 20 39 20 31 30 20 20 4A 20 20 51 20 20 4B 22 0D 9 10 J Q K".
000180: 0A 31 35 33 30 20 49 24 3D 22 48 2C 53 2C 44 2C .1530 I$="H,S,D,
000190: 2F 2C 22 0D 0A 31 35 34 30 20 46 4F 52 20 49 3D /,"..1540 FOR I=
0001A0: 31 20 54 4F 20 31 33 0D 0A 31 35 35 30 20 46 4F 1 TO 13..1550 FO
0001B0: 52 20 4A 3D 34 2A 49 2D 33 20 54 4F 20 34 2A 49 R J=4*I-3 TO 4*I
0001C0: 0D 0A 31 35 36 30 20 44 28 4A 29 3D 49 0D 0A 31 ..1560 D(J)=I..1
0001D0: 35 37 30 20 4E 45 58 54 20 4A 0D 0A 31 35 38 30 570 NEXT J..1580
0001E0: 20 4E 45 58 54 20 49 0D 0A 31 35 39 30 20 44 3D NEXT I..1590 D=
0001F0: 35 32 0D 0A 31 36 30 30 20 43 3D 35 33 0D 0A 31 52..1600 C=53..1
Size : 512 (Real : 512)
000000: 48 45 4E 20 32 31 36 30 0D 0A 32 32 30 30 20 4E HEN 2160..2200 N
000010: 45 58 54 20 49 0D 0A 32 32 31 30 20 46 4F 52 20 EXT I..2210 FOR
000020: 49 3D 31 20 54 4F 20 4E 0D 0A 32 32 32 30 20 53 I=1 TO N..2220 S
000030: 28 49 29 3D 5A 28 49 29 2A 28 33 2A 28 2D 28 50 (I)=Z(I)*(3*(-(P
000040: 28 44 31 2C 32 29 3E 3D 31 30 29 29 2D 31 29 0D (D1,2)>=10))-1).
000050: 0A 32 32 33 30 20 4E 45 58 54 20 49 0D 0A 32 32 .2230 NEXT I..22
000060: 34 30 20 52 45 4D 2D 2D 54 45 53 54 20 46 4F 52 40 REM--TEST FOR
000070: 20 44 45 41 4C 45 52 20 42 4C 41 43 4B 4A 41 43 DEALER BLACKJAC
000080: 4B 0D 0A 32 32 35 30 20 4C 31 3D 31 3A 20 4C 32 K..2250 L1=1: L2
000090: 3D 31 0D 0A 32 32 35 32 20 49 46 20 50 28 44 31 =1..2252 IF P(D1
0000A0: 2C 31 29 3D 31 20 41 4E 44 20 50 28 44 31 2C 32 ,1)=1 AND P(D1,2
0000B0: 29 3E 39 20 54 48 45 4E 20 4C 31 3D 30 3A 20 4C )>9 THEN L1=0: L
0000C0: 32 3D 30 0D 0A 32 32 35 33 20 49 46 20 50 28 44 2=0..2253 IF P(D
0000D0: 31 2C 32 29 3D 31 20 41 4E 44 20 50 28 44 31 2C 1,2)=1 AND P(D1,
0000E0: 31 29 3E 39 20 54 48 45 4E 20 4C 31 3D 30 3A 20 1)>9 THEN L1=0:
0000F0: 4C 32 3D 30 0D 0A 32 32 35 34 20 49 46 20 4C 31 L2=0..2254 IF L1
000100: 3C 3E 30 20 4F 52 20 4C 32 3C 3E 30 20 54 48 45 <>0 OR L2<>0 THE
000110: 4E 20 32 33 32 30 0D 0A 32 32 36 30 20 50 52 49 N 2320..2260 PRI
000120: 4E 54 3A 50 52 49 4E 54 20 22 44 45 41 4C 45 52 NT:PRINT "DEALER
000130: 20 48 41 53 20 41 22 3B 4D 49 44 24 28 44 24 2C HAS A";MID$(D$,
000140: 33 2A 50 28 44 31 2C 32 29 2D 32 2C 33 29 3B 22 3*P(D1,2)-2,3);"
000150: 20 49 4E 20 54 48 45 20 48 4F 4C 45 20 22 3B 0D IN THE HOLE ";.
000160: 0A 32 32 37 30 20 50 52 49 4E 54 20 22 46 4F 52 .2270 PRINT "FOR
000170: 20 42 4C 41 43 4B 4A 41 43 4B 22 0D 0A 32 32 38 BLACKJACK"..228
000180: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 44 31 0D 0 FOR I=1 TO D1.
000190: 0A 32 32 39 30 20 47 4F 53 55 42 20 33 30 30 0D .2290 GOSUB 300.
0001A0: 0A 32 33 30 30 20 4E 45 58 54 20 49 0D 0A 32 33 .2300 NEXT I..23
0001B0: 31 30 20 47 4F 54 4F 20 33 31 34 30 0D 0A 32 33 10 GOTO 3140..23
0001C0: 32 30 20 52 45 4D 2D 2D 4E 4F 20 44 45 41 4C 45 20 REM--NO DEALE
0001D0: 52 20 42 4C 41 43 4B 4A 41 43 4B 0D 0A 32 33 33 R BLACKJACK..233
0001E0: 30 20 49 46 20 50 28 44 31 2C 31 29 3E 31 20 41 0 IF P(D1,1)>1 A
0001F0: 4E 44 20 50 28 44 31 2C 31 29 3C 31 30 20 54 48 ND P(D1,1)<10 TH
Size : 512 (Real : 512)
000000: 36 31 30 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 610 PRINT "DO YO
000010: 55 20 57 41 4E 54 20 49 4E 53 54 52 55 43 54 49 U WANT INSTRUCTI
000020: 4F 4E 53 22 3B 0D 0A 31 36 32 30 20 49 4E 50 55 ONS";..1620 INPU
000030: 54 20 48 24 0D 0A 31 36 33 30 20 49 46 20 4C 45 T H$..1630 IF LE
000040: 46 54 24 28 48 24 2C 31 29 3D 22 4E 22 20 4F 52 FT$(H$,1)="N" OR
000050: 20 4C 45 46 54 24 28 48 24 2C 31 29 3D 22 6E 22 LEFT$(H$,1)="n"
000060: 20 54 48 45 4E 20 31 37 36 30 0D 0A 31 36 34 30 THEN 1760..1640
000070: 20 50 52 49 4E 54 20 22 54 48 49 53 20 49 53 20 PRINT "THIS IS
000080: 54 48 45 20 47 41 4D 45 20 4F 46 20 32 31 2E 20 THE GAME OF 21.
000090: 41 53 20 4D 41 4E 59 20 41 53 20 37 20 50 4C 41 AS MANY AS 7 PLA
0000A0: 59 45 52 53 20 4D 41 59 20 50 4C 41 59 20 54 48 YERS MAY PLAY TH
0000B0: 45 22 0D 0A 31 36 35 30 20 50 52 49 4E 54 20 22 E"..1650 PRINT "
0000C0: 47 41 4D 45 2E 20 4F 4E 20 45 41 43 48 20 44 45 GAME. ON EACH DE
0000D0: 41 4C 2C 20 42 45 54 53 20 57 49 4C 4C 20 42 45 AL, BETS WILL BE
0000E0: 20 41 53 4B 45 44 20 46 4F 52 2C 20 41 4E 44 20 ASKED FOR, AND
0000F0: 54 48 45 22 0D 0A 31 36 36 30 20 50 52 49 4E 54 THE"..1660 PRINT
000100: 20 22 50 4C 41 59 45 52 53 27 20 42 45 54 53 20 "PLAYERS' BETS
000110: 53 48 4F 55 4C 44 20 42 45 20 54 59 50 45 44 20 SHOULD BE TYPED
000120: 49 4E 2E 20 54 48 45 20 43 41 52 44 53 20 57 49 IN. THE CARDS WI
000130: 4C 4C 20 54 48 45 4E 20 42 45 22 0D 0A 31 36 37 LL THEN BE"..167
000140: 30 20 50 52 49 4E 54 20 22 44 45 41 4C 54 2C 20 0 PRINT "DEALT,
000150: 41 4E 44 20 45 41 43 48 20 50 4C 41 59 45 52 20 AND EACH PLAYER
000160: 49 4E 20 54 55 52 4E 20 50 4C 41 59 53 20 48 49 IN TURN PLAYS HI
000170: 53 20 48 41 4E 44 2E 20 54 48 45 22 0D 0A 31 36 S HAND. THE"..16
000180: 38 30 20 50 52 49 4E 54 20 22 46 49 52 53 54 20 80 PRINT "FIRST
000190: 52 45 53 50 4F 4E 53 45 20 53 48 4F 55 4C 44 20 RESPONSE SHOULD
0001A0: 42 45 20 45 49 54 48 45 52 20 27 44 27 2C 20 49 BE EITHER 'D', I
0001B0: 4E 44 49 43 41 54 49 4E 47 20 54 48 41 54 20 54 NDICATING THAT T
0001C0: 48 45 22 0D 0A 31 36 39 30 20 50 52 49 4E 54 20 HE"..1690 PRINT
0001D0: 22 50 4C 41 59 45 52 20 49 53 20 44 4F 55 42 4C "PLAYER IS DOUBL
0001E0: 49 4E 47 20 44 4F 57 4E 2C 20 27 53 27 2C 20 49 ING DOWN, 'S', I
0001F0: 4E 44 49 43 41 54 49 4E 47 20 54 48 41 54 20 48 NDICATING THAT H
Size : 512 (Real : 512)
000000: 45 4E 20 32 33 35 30 0D 0A 32 33 34 30 20 50 52 EN 2350..2340 PR
000010: 49 4E 54 3A 50 52 49 4E 54 20 22 4E 4F 20 44 45 INT:PRINT "NO DE
000020: 41 4C 45 52 20 42 4C 41 43 4B 4A 41 43 4B 2E 22 ALER BLACKJACK."
000030: 0D 0A 32 33 35 30 20 52 45 4D 2D 2D 4E 4F 57 20 ..2350 REM--NOW
000040: 50 4C 41 59 20 54 48 45 20 48 41 4E 44 53 0D 0A PLAY THE HANDS..
000050: 32 33 36 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 2360 FOR I=1 TO
000060: 4E 0D 0A 32 33 37 30 20 50 52 49 4E 54 20 22 50 N..2370 PRINT "P
000070: 4C 41 59 45 52 22 3B 49 3B 0D 0A 32 33 38 30 20 LAYER";I;..2380
000080: 48 31 3D 37 0D 0A 32 33 39 30 20 47 4F 53 55 42 H1=7..2390 GOSUB
000090: 20 31 34 31 30 0D 0A 32 34 30 30 20 4F 4E 20 48 1410..2400 ON H
0000A0: 20 47 4F 54 4F 20 32 35 35 30 2C 32 34 31 30 2C GOTO 2550,2410,
0000B0: 32 35 31 30 2C 32 36 30 30 0D 0A 32 34 31 30 20 2510,2600..2410
0000C0: 52 45 4D 2D 2D 50 4C 41 59 45 52 20 57 41 4E 54 REM--PLAYER WANT
0000D0: 53 20 54 4F 20 53 54 41 4E 44 0D 0A 32 34 32 30 S TO STAND..2420
0000E0: 20 47 4F 53 55 42 20 33 30 30 0D 0A 32 34 33 30 GOSUB 300..2430
0000F0: 20 49 46 20 51 28 49 29 3C 3E 32 31 20 54 48 45 IF Q(I)<>21 THE
000100: 4E 20 32 34 39 30 0D 0A 32 34 34 30 20 50 52 49 N 2490..2440 PRI
000110: 4E 54 20 22 42 4C 41 43 4B 4A 41 43 4B 22 0D 0A NT "BLACKJACK"..
000120: 32 34 35 30 20 53 28 49 29 3D 53 28 49 29 2B 31 2450 S(I)=S(I)+1
000130: 2E 35 2A 42 28 49 29 0D 0A 32 34 36 30 20 42 28 .5*B(I)..2460 B(
000140: 49 29 3D 30 0D 0A 32 34 37 30 20 47 4F 53 55 42 I)=0..2470 GOSUB
000150: 20 31 32 30 30 0D 0A 32 34 38 30 20 47 4F 54 4F 1200..2480 GOTO
000160: 20 32 39 30 30 0D 0A 32 34 39 30 20 47 4F 53 55 2900..2490 GOSU
000170: 42 20 31 33 32 30 0D 0A 32 35 30 30 20 47 4F 54 B 1320..2500 GOT
000180: 4F 20 32 39 30 30 0D 0A 32 35 31 30 20 52 45 4D O 2900..2510 REM
000190: 2D 2D 50 4C 41 59 45 52 20 57 41 4E 54 53 20 54 --PLAYER WANTS T
0001A0: 4F 20 44 4F 55 42 4C 45 20 44 4F 57 4E 0D 0A 32 O DOUBLE DOWN..2
0001B0: 35 32 30 20 47 4F 53 55 42 20 33 30 30 0D 0A 32 520 GOSUB 300..2
0001C0: 35 33 30 20 47 4F 53 55 42 20 38 36 30 0D 0A 32 530 GOSUB 860..2
0001D0: 35 34 30 20 47 4F 54 4F 20 32 39 30 30 0D 0A 32 540 GOTO 2900..2
0001E0: 35 35 30 20 52 45 4D 2D 2D 50 4C 41 59 45 52 20 550 REM--PLAYER
0001F0: 57 41 4E 54 53 20 54 4F 20 42 45 20 48 49 54 0D WANTS TO BE HIT.
Size : 512 (Real : 512)
000000: 45 20 49 53 22 0D 0A 31 37 30 30 20 50 52 49 4E E IS"..1700 PRIN
000010: 54 20 22 53 54 41 4E 44 49 4E 47 2C 20 27 48 27 T "STANDING, 'H'
000020: 2C 20 49 4E 44 49 43 41 54 49 4E 47 20 48 45 20 , INDICATING HE
000030: 57 41 4E 54 53 20 41 4E 4F 54 48 45 52 20 43 41 WANTS ANOTHER CA
000040: 52 44 2C 20 4F 52 20 27 2F 27 2C 22 0D 0A 31 37 RD, OR '/',"..17
000050: 31 30 20 50 52 49 4E 54 20 22 49 4E 44 49 43 41 10 PRINT "INDICA
000060: 54 49 4E 47 20 54 48 41 54 20 48 45 20 57 41 4E TING THAT HE WAN
000070: 54 53 20 54 4F 20 53 50 4C 49 54 20 48 49 53 20 TS TO SPLIT HIS
000080: 43 41 52 44 53 2E 20 41 46 54 45 52 20 54 48 45 CARDS. AFTER THE
000090: 22 0D 0A 31 37 32 30 20 50 52 49 4E 54 20 22 49 "..1720 PRINT "I
0000A0: 4E 49 54 49 41 4C 20 52 45 53 50 4F 4E 53 45 2C NITIAL RESPONSE,
0000B0: 20 41 4C 4C 20 46 55 52 54 48 45 52 20 52 45 53 ALL FURTHER RES
0000C0: 50 4F 4E 53 45 53 20 53 48 4F 55 4C 44 20 42 45 PONSES SHOULD BE
0000D0: 20 27 53 27 20 4F 52 22 0D 0A 31 37 33 30 20 50 'S' OR"..1730 P
0000E0: 52 49 4E 54 20 22 27 48 27 2C 20 55 4E 4C 45 53 RINT "'H', UNLES
0000F0: 53 20 54 48 45 20 43 41 52 44 53 20 57 45 52 45 S THE CARDS WERE
000100: 20 53 50 4C 49 54 2C 20 49 4E 20 57 48 49 43 48 SPLIT, IN WHICH
000110: 20 43 41 53 45 20 44 4F 55 42 4C 49 4E 47 22 0D CASE DOUBLING".
000120: 0A 31 37 34 30 20 50 52 49 4E 54 20 22 44 4F 57 .1740 PRINT "DOW
000130: 4E 20 49 53 20 41 47 41 49 4E 20 50 45 52 4D 49 N IS AGAIN PERMI
000140: 54 54 45 44 2E 20 49 4E 20 4F 52 44 45 52 20 54 TTED. IN ORDER T
000150: 4F 20 43 4F 4C 4C 45 43 54 20 46 4F 52 22 0D 0A O COLLECT FOR"..
000160: 31 37 35 30 20 50 52 49 4E 54 20 22 42 4C 41 43 1750 PRINT "BLAC
000170: 4B 4A 41 43 4B 2C 20 54 48 45 20 49 4E 49 54 49 KJACK, THE INITI
000180: 41 4C 20 52 45 53 50 4F 4E 53 45 20 53 48 4F 55 AL RESPONSE SHOU
000190: 4C 44 20 42 45 20 27 53 27 2E 22 0D 0A 31 37 36 LD BE 'S'."..176
0001A0: 30 20 50 52 49 4E 54 20 22 4E 55 4D 42 45 52 20 0 PRINT "NUMBER
0001B0: 4F 46 20 50 4C 41 59 45 52 53 22 3B 0D 0A 31 37 OF PLAYERS";..17
0001C0: 37 30 20 49 4E 50 55 54 20 4E 0D 0A 31 37 37 35 70 INPUT N..1775
0001D0: 20 50 52 49 4E 54 0D 0A 31 37 38 30 20 49 46 20 PRINT..1780 IF
0001E0: 4E 3C 31 20 4F 52 20 4E 3E 37 20 4F 52 20 4E 3E N<1 OR N>7 OR N>
0001F0: 49 4E 54 28 4E 29 20 54 48 45 4E 20 31 37 36 30 INT(N) THEN 1760
Size : 512 (Real : 512)
000000: 0A 32 35 36 30 20 47 4F 53 55 42 20 33 30 30 0D .2560 GOSUB 300.
000010: 0A 32 35 37 30 20 48 31 3D 33 0D 0A 32 35 38 30 .2570 H1=3..2580
000020: 20 47 4F 53 55 42 20 39 35 30 0D 0A 32 35 39 30 GOSUB 950..2590
000030: 20 47 4F 54 4F 20 32 39 30 30 0D 0A 32 36 30 30 GOTO 2900..2600
000040: 20 52 45 4D 2D 2D 50 4C 41 59 45 52 20 57 41 4E REM--PLAYER WAN
000050: 54 53 20 54 4F 20 53 50 4C 49 54 0D 0A 32 36 31 TS TO SPLIT..261
000060: 30 20 4C 31 3D 50 28 49 2C 31 29 3A 20 49 46 20 0 L1=P(I,1): IF
000070: 50 28 49 2C 31 29 3E 31 30 20 54 48 45 4E 20 4C P(I,1)>10 THEN L
000080: 31 3D 31 30 0D 0A 32 36 31 32 20 4C 32 3D 50 28 1=10..2612 L2=P(
000090: 49 2C 32 29 3A 20 49 46 20 50 28 49 2C 32 29 3E I,2): IF P(I,2)>
0000A0: 31 30 20 54 48 45 4E 20 4C 32 3D 31 30 0D 0A 32 10 THEN L2=10..2
0000B0: 36 31 34 20 49 46 20 4C 31 3D 4C 32 20 54 48 45 614 IF L1=L2 THE
0000C0: 4E 20 32 36 34 30 0D 0A 32 36 32 30 20 50 52 49 N 2640..2620 PRI
0000D0: 4E 54 20 22 53 50 4C 49 54 54 49 4E 47 20 4E 4F NT "SPLITTING NO
0000E0: 54 20 41 4C 4C 4F 57 45 44 2E 22 0D 0A 32 36 33 T ALLOWED."..263
0000F0: 30 20 47 4F 54 4F 20 32 33 37 30 0D 0A 32 36 34 0 GOTO 2370..264
000100: 30 20 52 45 4D 2D 2D 50 4C 41 59 20 4F 55 54 20 0 REM--PLAY OUT
000110: 53 50 4C 49 54 0D 0A 32 36 35 30 20 49 31 3D 49 SPLIT..2650 I1=I
000120: 2B 44 31 0D 0A 32 36 36 30 20 52 28 49 31 29 3D +D1..2660 R(I1)=
000130: 32 0D 0A 32 36 37 30 20 50 28 49 31 2C 31 29 3D 2..2670 P(I1,1)=
000140: 50 28 49 2C 32 29 0D 0A 32 36 38 30 20 42 28 49 P(I,2)..2680 B(I
000150: 2B 44 31 29 3D 42 28 49 29 0D 0A 32 36 39 30 20 +D1)=B(I)..2690
000160: 47 4F 53 55 42 20 31 30 30 0D 0A 32 37 30 30 20 GOSUB 100..2700
000170: 50 52 49 4E 54 20 22 46 49 52 53 54 20 48 41 4E PRINT "FIRST HAN
000180: 44 20 52 45 43 45 49 56 45 53 20 41 22 3B 0D 0A D RECEIVES A";..
000190: 32 37 31 30 20 47 4F 53 55 42 20 37 30 30 0D 0A 2710 GOSUB 700..
0001A0: 32 37 32 30 20 50 28 49 2C 32 29 3D 58 0D 0A 32 2720 P(I,2)=X..2
0001B0: 37 33 30 20 47 4F 53 55 42 20 33 30 30 0D 0A 32 730 GOSUB 300..2
0001C0: 37 34 30 20 50 52 49 4E 54 0D 0A 32 37 35 30 20 740 PRINT..2750
0001D0: 47 4F 53 55 42 20 31 30 30 0D 0A 32 37 36 30 20 GOSUB 100..2760
0001E0: 50 52 49 4E 54 20 22 53 45 43 4F 4E 44 20 48 41 PRINT "SECOND HA
0001F0: 4E 44 20 52 45 43 45 49 56 45 53 20 41 22 3B 0D ND RECEIVES A";.
Size : 512 (Real : 512)
000000: 0D 0A 31 37 39 30 20 46 4F 52 20 49 3D 31 20 54 ..1790 FOR I=1 T
000010: 4F 20 38 3A 20 54 28 49 29 3D 30 3A 20 4E 45 58 O 8: T(I)=0: NEX
000020: 54 20 49 0D 0A 31 38 30 30 20 44 31 3D 4E 2B 31 T I..1800 D1=N+1
000030: 0D 0A 31 38 31 30 20 49 46 20 32 2A 44 31 2B 43 ..1810 IF 2*D1+C
000040: 3E 3D 35 32 20 54 48 45 4E 20 47 4F 53 55 42 20 >=52 THEN GOSUB
000050: 31 32 30 0D 0A 31 38 32 30 20 49 46 20 43 3D 32 120..1820 IF C=2
000060: 20 54 48 45 4E 20 43 3D 43 2D 31 0D 0A 31 38 33 THEN C=C-1..183
000070: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 4E 3A 20 0 FOR I=1 TO N:
000080: 5A 28 49 29 3D 30 3A 20 4E 45 58 54 20 49 0D 0A Z(I)=0: NEXT I..
000090: 31 38 34 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 1840 FOR I=1 TO
0000A0: 31 35 3A 20 42 28 49 29 3D 30 3A 20 4E 45 58 54 15: B(I)=0: NEXT
0000B0: 20 49 0D 0A 31 38 35 30 20 46 4F 52 20 49 3D 31 I..1850 FOR I=1
0000C0: 20 54 4F 20 31 35 3A 20 51 28 49 29 3D 30 3A 20 TO 15: Q(I)=0:
0000D0: 4E 45 58 54 20 49 0D 0A 31 38 36 30 20 46 4F 52 NEXT I..1860 FOR
0000E0: 20 49 3D 31 20 54 4F 20 37 3A 20 53 28 49 29 3D I=1 TO 7: S(I)=
0000F0: 30 3A 20 4E 45 58 54 20 49 0D 0A 31 38 37 30 20 0: NEXT I..1870
000100: 46 4F 52 20 49 3D 31 20 54 4F 20 31 35 3A 20 52 FOR I=1 TO 15: R
000110: 28 49 29 3D 30 3A 20 4E 45 58 54 20 49 0D 0A 31 (I)=0: NEXT I..1
000120: 38 38 30 20 50 52 49 4E 54 20 22 42 45 54 53 3A 880 PRINT "BETS:
000130: 22 0D 0A 31 38 39 30 20 46 4F 52 20 49 3D 31 20 "..1890 FOR I=1
000140: 54 4F 20 4E 3A 20 50 52 49 4E 54 20 22 23 22 3B TO N: PRINT "#";
000150: 49 3B 3A 20 49 4E 50 55 54 20 5A 28 49 29 3A 20 I;: INPUT Z(I):
000160: 4E 45 58 54 20 49 0D 0A 31 39 30 30 20 46 4F 52 NEXT I..1900 FOR
000170: 20 49 3D 31 20 54 4F 20 4E 0D 0A 31 39 31 30 20 I=1 TO N..1910
000180: 49 46 20 5A 28 49 29 3C 3D 30 20 4F 52 20 5A 28 IF Z(I)<=0 OR Z(
000190: 49 29 3E 35 30 30 20 54 48 45 4E 20 31 38 38 30 I)>500 THEN 1880
0001A0: 0D 0A 31 39 32 30 20 42 28 49 29 3D 5A 28 49 29 ..1920 B(I)=Z(I)
0001B0: 0D 0A 31 39 33 30 20 4E 45 58 54 20 49 0D 0A 31 ..1930 NEXT I..1
0001C0: 39 34 30 20 50 52 49 4E 54 20 22 50 4C 41 59 45 940 PRINT "PLAYE
0001D0: 52 22 3B 0D 0A 31 39 35 30 20 46 4F 52 20 49 3D R";..1950 FOR I=
0001E0: 31 20 54 4F 20 4E 0D 0A 31 39 36 30 20 50 52 49 1 TO N..1960 PRI
0001F0: 4E 54 20 49 3B 22 20 20 20 22 3B 0D 0A 31 39 37 NT I;" ";..197
Size : 512 (Real : 512)
000000: 0A 32 37 37 30 20 49 3D 49 31 0D 0A 32 37 38 30 .2770 I=I1..2780
000010: 20 47 4F 53 55 42 20 37 30 30 0D 0A 32 37 39 30 GOSUB 700..2790
000020: 20 50 28 49 2C 32 29 3D 58 0D 0A 32 38 30 30 20 P(I,2)=X..2800
000030: 47 4F 53 55 42 20 33 30 30 0D 0A 32 38 31 30 20 GOSUB 300..2810
000040: 50 52 49 4E 54 0D 0A 32 38 32 30 20 49 3D 49 31 PRINT..2820 I=I1
000050: 2D 44 31 0D 0A 32 38 33 30 20 49 46 20 50 28 49 -D1..2830 IF P(I
000060: 2C 31 29 3D 31 20 54 48 45 4E 20 32 39 30 30 0D ,1)=1 THEN 2900.
000070: 0A 32 38 34 30 20 52 45 4D 2D 2D 4E 4F 57 20 50 .2840 REM--NOW P
000080: 4C 41 59 20 54 48 45 20 54 57 4F 20 48 41 4E 44 LAY THE TWO HAND
000090: 53 0D 0A 32 38 35 30 20 50 52 49 4E 54 20 22 48 S..2850 PRINT "H
0000A0: 41 4E 44 22 3B 31 2D 28 49 3E 44 31 29 3B 0D 0A AND";1-(I>D1);..
0000B0: 32 38 36 30 20 47 4F 53 55 42 20 38 30 30 0D 0A 2860 GOSUB 800..
0000C0: 32 38 37 30 20 49 3D 49 2B 44 31 0D 0A 32 38 38 2870 I=I+D1..288
0000D0: 30 20 49 46 20 49 3D 49 31 20 54 48 45 4E 20 32 0 IF I=I1 THEN 2
0000E0: 38 35 30 0D 0A 32 38 39 30 20 49 3D 49 31 2D 44 850..2890 I=I1-D
0000F0: 31 0D 0A 32 39 30 30 20 4E 45 58 54 20 49 0D 0A 1..2900 NEXT I..
000100: 32 39 31 30 20 47 4F 53 55 42 20 33 30 30 0D 0A 2910 GOSUB 300..
000110: 32 39 32 30 20 52 45 4D 2D 2D 54 45 53 54 20 46 2920 REM--TEST F
000120: 4F 52 20 50 4C 41 59 49 4E 47 20 44 45 41 4C 45 OR PLAYING DEALE
000130: 52 27 53 20 48 41 4E 44 0D 0A 32 39 33 30 20 46 R'S HAND..2930 F
000140: 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 0A 32 39 34 OR I=1 TO N..294
000150: 30 20 49 46 20 52 28 49 29 3E 30 20 4F 52 20 52 0 IF R(I)>0 OR R
000160: 28 49 2B 44 31 29 3E 30 20 54 48 45 4E 20 33 30 (I+D1)>0 THEN 30
000170: 31 30 0D 0A 32 39 35 30 20 4E 45 58 54 20 49 0D 10..2950 NEXT I.
000180: 0A 32 39 36 30 20 50 52 49 4E 54 20 22 44 45 41 .2960 PRINT "DEA
000190: 4C 45 52 20 48 41 44 20 41 22 3B 0D 0A 32 39 37 LER HAD A";..297
0001A0: 30 20 58 3D 50 28 44 31 2C 32 29 0D 0A 32 39 38 0 X=P(D1,2)..298
0001B0: 30 20 47 4F 53 55 42 20 37 30 30 0D 0A 32 39 39 0 GOSUB 700..299
0001C0: 30 20 50 52 49 4E 54 20 22 20 43 4F 4E 43 45 41 0 PRINT " CONCEA
0001D0: 4C 45 44 2E 22 0D 0A 33 30 30 30 20 47 4F 54 4F LED."..3000 GOTO
0001E0: 20 33 31 34 30 0D 0A 33 30 31 30 20 50 52 49 4E 3140..3010 PRIN
0001F0: 54 20 22 44 45 41 4C 45 52 20 48 41 53 20 41 22 T "DEALER HAS A"
Size : 512 (Real : 512)
000000: 30 20 4E 45 58 54 20 49 0D 0A 31 39 38 30 20 50 0 NEXT I..1980 P
000010: 52 49 4E 54 20 22 44 45 41 4C 45 52 22 0D 0A 31 RINT "DEALER"..1
000020: 39 39 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 32 990 FOR J=1 TO 2
000030: 0D 0A 32 30 30 30 20 50 52 49 4E 54 20 54 41 42 ..2000 PRINT TAB
000040: 28 35 29 3B 0D 0A 32 30 31 30 20 46 4F 52 20 49 (5);..2010 FOR I
000050: 3D 31 20 54 4F 20 44 31 0D 0A 32 30 32 30 20 47 =1 TO D1..2020 G
000060: 4F 53 55 42 20 31 30 30 0D 0A 32 30 33 30 20 50 OSUB 100..2030 P
000070: 28 49 2C 4A 29 3D 58 0D 0A 32 30 34 30 20 49 46 (I,J)=X..2040 IF
000080: 20 4A 3D 31 20 4F 52 20 49 3C 3D 4E 20 54 48 45 J=1 OR I<=N THE
000090: 4E 20 47 4F 53 55 42 20 37 35 30 0D 0A 32 30 35 N GOSUB 750..205
0000A0: 30 20 4E 45 58 54 20 49 0D 0A 32 30 36 30 20 50 0 NEXT I..2060 P
0000B0: 52 49 4E 54 0D 0A 32 30 37 30 20 4E 45 58 54 20 RINT..2070 NEXT
0000C0: 4A 0D 0A 32 30 38 30 20 46 4F 52 20 49 3D 31 20 J..2080 FOR I=1
0000D0: 54 4F 20 44 31 0D 0A 32 30 39 30 20 52 28 49 29 TO D1..2090 R(I)
0000E0: 3D 32 0D 0A 32 31 30 30 20 4E 45 58 54 20 49 0D =2..2100 NEXT I.
0000F0: 0A 32 31 31 30 20 52 45 4D 2D 2D 54 45 53 54 20 .2110 REM--TEST
000100: 46 4F 52 20 49 4E 53 55 52 41 4E 43 45 0D 0A 32 FOR INSURANCE..2
000110: 31 32 30 20 49 46 20 50 28 44 31 2C 31 29 3E 31 120 IF P(D1,1)>1
000120: 20 54 48 45 4E 20 32 32 34 30 0D 0A 32 31 33 30 THEN 2240..2130
000130: 20 50 52 49 4E 54 20 22 41 4E 59 20 49 4E 53 55 PRINT "ANY INSU
000140: 52 41 4E 43 45 22 3B 0D 0A 32 31 34 30 20 49 4E RANCE";..2140 IN
000150: 50 55 54 20 48 24 0D 0A 32 31 35 30 20 49 46 20 PUT H$..2150 IF
000160: 4C 45 46 54 24 28 48 24 2C 31 29 3C 3E 22 59 22 LEFT$(H$,1)<>"Y"
000170: 20 54 48 45 4E 20 32 32 34 30 0D 0A 32 31 36 30 THEN 2240..2160
000180: 20 50 52 49 4E 54 20 22 49 4E 53 55 52 41 4E 43 PRINT "INSURANC
000190: 45 20 42 45 54 53 22 0D 0A 32 31 37 30 20 46 4F E BETS"..2170 FO
0001A0: 52 20 49 3D 31 20 54 4F 20 4E 3A 20 50 52 49 4E R I=1 TO N: PRIN
0001B0: 54 20 22 23 22 3B 49 3B 3A 20 49 4E 50 55 54 20 T "#";I;: INPUT
0001C0: 5A 28 49 29 3A 20 4E 45 58 54 20 49 0D 0A 32 31 Z(I): NEXT I..21
0001D0: 38 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 4E 0D 80 FOR I=1 TO N.
0001E0: 0A 32 31 39 30 20 49 46 20 5A 28 49 29 3C 30 20 .2190 IF Z(I)<0
0001F0: 4F 52 20 5A 28 49 29 3E 42 28 49 29 2F 32 20 54 OR Z(I)>B(I)/2 T
Size : 512 (Real : 512)
000000: 3B 4D 49 44 24 28 44 24 2C 33 2A 50 28 44 31 2C ;MID$(D$,3*P(D1,
000010: 32 29 2D 32 2C 33 29 3B 22 20 43 4F 4E 43 45 41 2)-2,3);" CONCEA
000020: 4C 45 44 20 22 3B 0D 0A 33 30 32 30 20 49 3D 44 LED ";..3020 I=D
000030: 31 0D 0A 33 30 33 30 20 41 41 3D 51 28 49 29 3A 1..3030 AA=Q(I):
000040: 20 47 4F 53 55 42 20 33 34 30 30 0D 0A 33 30 33 GOSUB 3400..303
000050: 35 20 50 52 49 4E 54 20 22 46 4F 52 20 41 20 54 5 PRINT "FOR A T
000060: 4F 54 41 4C 20 4F 46 22 3B 41 41 0D 0A 33 30 34 OTAL OF";AA..304
000070: 30 20 49 46 20 41 41 3E 31 36 20 54 48 45 4E 20 0 IF AA>16 THEN
000080: 33 31 33 30 0D 0A 33 30 35 30 20 50 52 49 4E 54 3130..3050 PRINT
000090: 20 22 44 52 41 57 53 22 3B 0D 0A 33 30 36 30 20 "DRAWS";..3060
0000A0: 47 4F 53 55 42 20 31 30 30 0D 0A 33 30 37 30 20 GOSUB 100..3070
0000B0: 47 4F 53 55 42 20 37 35 30 0D 0A 33 30 38 30 20 GOSUB 750..3080
0000C0: 47 4F 53 55 42 20 31 31 30 30 0D 0A 33 30 39 30 GOSUB 1100..3090
0000D0: 20 41 41 3D 51 3A 20 47 4F 53 55 42 20 33 34 30 AA=Q: GOSUB 340
0000E0: 30 0D 0A 33 30 39 35 20 49 46 20 51 3E 30 20 41 0..3095 IF Q>0 A
0000F0: 4E 44 20 41 41 3C 31 37 20 54 48 45 4E 20 33 30 ND AA<17 THEN 30
000100: 36 30 0D 0A 33 31 30 30 20 51 28 49 29 3D 51 2D 60..3100 Q(I)=Q-
000110: 28 51 3C 30 29 2F 32 0D 0A 33 31 31 30 20 49 46 (Q<0)/2..3110 IF
000120: 20 51 3C 30 20 54 48 45 4E 20 33 31 34 30 0D 0A Q<0 THEN 3140..
000130: 33 31 32 30 20 41 41 3D 51 3A 20 47 4F 53 55 42 3120 AA=Q: GOSUB
000140: 20 33 34 30 30 0D 0A 33 31 32 35 20 50 52 49 4E 3400..3125 PRIN
000150: 54 20 22 2D 2D 2D 54 4F 54 41 4C 20 49 53 22 3B T "---TOTAL IS";
000160: 41 41 0D 0A 33 31 33 30 20 50 52 49 4E 54 0D 0A AA..3130 PRINT..
000170: 33 31 34 30 20 52 45 4D 2D 2D 54 41 4C 4C 59 20 3140 REM--TALLY
000180: 54 48 45 20 52 45 53 55 4C 54 0D 0A 33 31 35 30 THE RESULT..3150
000190: 20 52 45 4D 20 0D 0A 33 31 36 30 20 5A 24 3D 22 REM ..3160 Z$="
0001A0: 4C 4F 53 45 53 20 50 55 53 48 45 53 20 57 49 4E LOSES PUSHES WIN
0001B0: 53 20 22 0D 0A 33 31 36 35 20 50 52 49 4E 54 0D S "..3165 PRINT.
0001C0: 0A 33 31 37 30 20 46 4F 52 20 49 3D 31 20 54 4F .3170 FOR I=1 TO
0001D0: 20 4E 0D 0A 33 31 38 30 20 41 41 3D 51 28 49 29 N..3180 AA=Q(I)
0001E0: 3A 20 47 4F 53 55 42 20 33 34 30 30 0D 0A 33 31 : GOSUB 3400..31
0001F0: 38 32 20 41 42 3D 51 28 49 2B 44 31 29 3A 20 47 82 AB=Q(I+D1): G
Size : 512 (Real : 512)
000000: 0D 0A 31 36 30 20 50 52 49 4E 54 20 22 54 48 45 ..160 PRINT "THE
000010: 20 4F 4E 45 20 57 48 4F 20 44 45 53 54 52 4F 59 ONE WHO DESTROY
000020: 53 20 41 4C 4C 20 46 4F 55 52 20 4F 46 20 54 48 S ALL FOUR OF TH
000030: 45 20 45 4E 45 4D 59 27 53 20 50 4C 41 54 4F 4F E ENEMY'S PLATOO
000040: 4E 53 22 0D 0A 31 37 30 20 50 52 49 4E 54 20 22 NS"..170 PRINT "
000050: 46 49 52 53 54 20 49 53 20 54 48 45 20 57 49 4E FIRST IS THE WIN
000060: 4E 45 52 2E 22 0D 0A 31 38 30 20 50 52 49 4E 54 NER."..180 PRINT
000070: 0D 0A 31 39 30 20 50 52 49 4E 54 20 22 47 4F 4F ..190 PRINT "GOO
000080: 44 20 4C 55 43 4B 2E 2E 2E 20 41 4E 44 20 54 45 D LUCK... AND TE
000090: 4C 4C 20 55 53 20 57 48 45 52 45 20 59 4F 55 20 LL US WHERE YOU
0000A0: 57 41 4E 54 20 54 48 45 20 42 4F 44 49 45 53 20 WANT THE BODIES
0000B0: 53 45 4E 54 21 22 0D 0A 32 30 30 20 50 52 49 4E SENT!"..200 PRIN
0000C0: 54 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 54 45 T..210 PRINT "TE
0000D0: 41 52 20 4F 46 46 20 4D 41 54 52 49 58 20 41 4E AR OFF MATRIX AN
0000E0: 44 20 55 53 45 20 49 54 20 54 4F 20 43 48 45 43 D USE IT TO CHEC
0000F0: 4B 20 4F 46 46 20 54 48 45 20 4E 55 4D 42 45 52 K OFF THE NUMBER
000100: 53 2E 22 0D 0A 32 32 30 20 46 4F 52 20 52 3D 31 S."..220 FOR R=1
000110: 20 54 4F 20 35 3A 20 50 52 49 4E 54 3A 20 4E 45 TO 5: PRINT: NE
000120: 58 54 20 52 0D 0A 32 36 30 20 44 49 4D 20 4D 28 XT R..260 DIM M(
000130: 31 30 30 29 0D 0A 32 37 30 20 46 4F 52 20 52 3D 100)..270 FOR R=
000140: 31 20 54 4F 20 35 0D 0A 32 38 30 20 49 3D 28 52 1 TO 5..280 I=(R
000150: 2D 31 29 2A 35 2B 31 0D 0A 32 39 30 20 50 52 49 -1)*5+1..290 PRI
000160: 4E 54 20 49 2C 49 2B 31 2C 49 2B 32 2C 49 2B 33 NT I,I+1,I+2,I+3
000170: 2C 49 2B 34 0D 0A 33 30 30 20 4E 45 58 54 20 52 ,I+4..300 NEXT R
000180: 0D 0A 33 35 30 20 46 4F 52 20 52 3D 31 20 54 4F ..350 FOR R=1 TO
000190: 20 31 30 3A 20 50 52 49 4E 54 3A 20 4E 45 58 54 10: PRINT: NEXT
0001A0: 20 52 0D 0A 33 38 30 20 43 3D 49 4E 54 28 52 4E R..380 C=INT(RN
0001B0: 44 28 31 29 2A 32 35 29 2B 31 0D 0A 33 39 30 20 D(1)*25)+1..390
0001C0: 44 3D 49 4E 54 28 52 4E 44 28 31 29 2A 32 35 29 D=INT(RND(1)*25)
0001D0: 2B 31 0D 0A 34 30 30 20 45 3D 49 4E 54 28 52 4E +1..400 E=INT(RN
0001E0: 44 28 31 29 2A 32 35 29 2B 31 0D 0A 34 31 30 20 D(1)*25)+1..410
0001F0: 46 3D 49 4E 54 28 52 4E 44 28 31 29 2A 32 35 29 F=INT(RND(1)*25)
Size : 512 (Real : 512)
000000: 4F 53 55 42 20 33 34 31 30 0D 0A 33 31 38 34 20 OSUB 3410..3184
000010: 41 43 3D 51 28 44 31 29 3A 20 47 4F 53 55 42 20 AC=Q(D1): GOSUB
000020: 33 34 32 30 0D 0A 33 31 38 36 20 53 28 49 29 3D 3420..3186 S(I)=
000030: 53 28 49 29 2B 42 28 49 29 2A 53 47 4E 28 41 41 S(I)+B(I)*SGN(AA
000040: 2D 41 43 29 2B 42 28 49 2B 44 31 29 2A 53 47 4E -AC)+B(I+D1)*SGN
000050: 28 41 42 2D 41 43 29 0D 0A 33 31 38 38 20 42 28 (AB-AC)..3188 B(
000060: 49 2B 44 31 29 3D 30 0D 0A 33 32 30 30 20 50 52 I+D1)=0..3200 PR
000070: 49 4E 54 20 22 50 4C 41 59 45 52 22 3B 49 3B 0D INT "PLAYER";I;.
000080: 0A 33 32 31 30 20 50 52 49 4E 54 20 4D 49 44 24 .3210 PRINT MID$
000090: 28 5A 24 2C 53 47 4E 28 53 28 49 29 29 2A 36 2B (Z$,SGN(S(I))*6+
0000A0: 37 2C 36 29 3B 22 20 22 3B 0D 0A 33 32 32 30 20 7,6);" ";..3220
0000B0: 49 46 20 53 28 49 29 3C 3E 30 20 54 48 45 4E 20 IF S(I)<>0 THEN
0000C0: 33 32 35 30 0D 0A 33 32 33 30 20 50 52 49 4E 54 3250..3230 PRINT
0000D0: 20 22 20 20 20 20 20 20 22 3B 0D 0A 33 32 34 30 " ";..3240
0000E0: 20 47 4F 54 4F 20 33 32 36 30 0D 0A 33 32 35 30 GOTO 3260..3250
0000F0: 20 50 52 49 4E 54 20 41 42 53 28 53 28 49 29 29 PRINT ABS(S(I))
000100: 3B 0D 0A 33 32 36 30 20 54 28 49 29 3D 54 28 49 ;..3260 T(I)=T(I
000110: 29 2B 53 28 49 29 0D 0A 33 32 37 30 20 50 52 49 )+S(I)..3270 PRI
000120: 4E 54 20 22 54 4F 54 41 4C 3D 22 3B 54 28 49 29 NT "TOTAL=";T(I)
000130: 0D 0A 33 32 38 30 20 47 4F 53 55 42 20 31 32 30 ..3280 GOSUB 120
000140: 30 0D 0A 33 32 39 30 20 54 28 44 31 29 3D 54 28 0..3290 T(D1)=T(
000150: 44 31 29 2D 53 28 49 29 0D 0A 33 33 30 30 20 49 D1)-S(I)..3300 I
000160: 3D 49 2B 44 31 0D 0A 33 33 31 30 20 47 4F 53 55 =I+D1..3310 GOSU
000170: 42 20 31 32 30 30 0D 0A 33 33 32 30 20 49 3D 49 B 1200..3320 I=I
000180: 2D 44 31 0D 0A 33 33 33 30 20 4E 45 58 54 20 49 -D1..3330 NEXT I
000190: 0D 0A 33 33 34 30 20 50 52 49 4E 54 20 22 44 45 ..3340 PRINT "DE
0001A0: 41 4C 45 52 27 53 20 54 4F 54 41 4C 3D 22 3B 54 ALER'S TOTAL=";T
0001B0: 28 44 31 29 0D 0A 33 33 34 35 20 50 52 49 4E 54 (D1)..3345 PRINT
0001C0: 0D 0A 33 33 35 30 20 47 4F 53 55 42 20 31 32 30 ..3350 GOSUB 120
0001D0: 30 0D 0A 33 33 36 30 20 47 4F 54 4F 20 31 38 31 0..3360 GOTO 181
0001E0: 30 0D 0A 33 34 30 30 20 41 41 3D 41 41 2B 31 31 0..3400 AA=AA+11
0001F0: 2A 28 41 41 3E 3D 32 32 29 3A 20 52 45 54 55 52 *(AA>=22): RETUR
Size : 512 (Real : 512)
000000: 2B 31 0D 0A 34 32 30 20 49 46 20 43 3D 44 20 54 +1..420 IF C=D T
000010: 48 45 4E 20 33 39 30 0D 0A 34 33 30 20 49 46 20 HEN 390..430 IF
000020: 43 3D 45 20 54 48 45 4E 20 34 30 30 0D 0A 34 34 C=E THEN 400..44
000030: 30 20 49 46 20 43 3D 46 20 54 48 45 4E 20 34 31 0 IF C=F THEN 41
000040: 30 0D 0A 34 35 30 20 49 46 20 44 3D 45 20 54 48 0..450 IF D=E TH
000050: 45 4E 20 34 30 30 0D 0A 34 36 30 20 49 46 20 44 EN 400..460 IF D
000060: 3D 46 20 54 48 45 4E 20 34 31 30 0D 0A 34 37 30 =F THEN 410..470
000070: 20 49 46 20 45 3D 46 20 54 48 45 4E 20 34 31 30 IF E=F THEN 410
000080: 0D 0A 34 38 30 20 50 52 49 4E 54 20 22 57 48 41 ..480 PRINT "WHA
000090: 54 20 41 52 45 20 59 4F 55 52 20 46 4F 55 52 20 T ARE YOUR FOUR
0000A0: 50 4F 53 49 54 49 4F 4E 53 22 3B 0D 0A 34 39 30 POSITIONS";..490
0000B0: 20 49 4E 50 55 54 20 47 2C 48 2C 4B 2C 4C 0D 0A INPUT G,H,K,L..
0000C0: 34 39 35 20 50 52 49 4E 54 0D 0A 35 30 30 20 50 495 PRINT..500 P
0000D0: 52 49 4E 54 20 22 57 48 45 52 45 20 44 4F 20 59 RINT "WHERE DO Y
0000E0: 4F 55 20 57 49 53 48 20 54 4F 20 46 49 52 45 20 OU WISH TO FIRE
0000F0: 59 4F 55 52 20 4D 49 53 53 4C 45 22 3B 0D 0A 35 YOUR MISSLE";..5
000100: 31 30 20 49 4E 50 55 54 20 59 0D 0A 35 32 30 20 10 INPUT Y..520
000110: 49 46 20 59 3D 43 20 54 48 45 4E 20 37 31 30 0D IF Y=C THEN 710.
000120: 0A 35 33 30 20 49 46 20 59 3D 44 20 54 48 45 4E .530 IF Y=D THEN
000130: 20 37 31 30 0D 0A 35 34 30 20 49 46 20 59 3D 45 710..540 IF Y=E
000140: 20 54 48 45 4E 20 37 31 30 0D 0A 35 35 30 20 49 THEN 710..550 I
000150: 46 20 59 3D 46 20 54 48 45 4E 20 37 31 30 0D 0A F Y=F THEN 710..
000160: 35 36 30 20 47 4F 54 4F 20 36 33 30 0D 0A 35 37 560 GOTO 630..57
000170: 30 20 4D 3D 49 4E 54 28 52 4E 44 28 31 29 2A 32 0 M=INT(RND(1)*2
000180: 35 29 2B 31 0D 0A 35 37 35 20 47 4F 54 4F 20 31 5)+1..575 GOTO 1
000190: 31 36 30 0D 0A 35 38 30 20 49 46 20 58 3D 47 20 160..580 IF X=G
0001A0: 54 48 45 4E 20 39 32 30 0D 0A 35 39 30 20 49 46 THEN 920..590 IF
0001B0: 20 58 3D 48 20 54 48 45 4E 20 39 32 30 0D 0A 36 X=H THEN 920..6
0001C0: 30 30 20 49 46 20 58 3D 4C 20 54 48 45 4E 20 39 00 IF X=L THEN 9
0001D0: 32 30 0D 0A 36 31 30 20 49 46 20 58 3D 4B 20 54 20..610 IF X=K T
0001E0: 48 45 4E 20 39 32 30 0D 0A 36 32 30 20 47 4F 54 HEN 920..620 GOT
0001F0: 4F 20 36 37 30 0D 0A 36 33 30 20 50 52 49 4E 54 O 670..630 PRINT
Size : 512 (Real : 512)
000000: 4E 0D 0A 33 34 31 30 20 41 42 3D 41 42 2B 31 31 N..3410 AB=AB+11
000010: 2A 28 41 42 3E 3D 32 32 29 3A 20 52 45 54 55 52 *(AB>=22): RETUR
000020: 4E 0D 0A 33 34 32 30 20 41 43 3D 41 43 2B 31 31 N..3420 AC=AC+11
000030: 2A 28 41 43 3E 3D 32 32 29 3A 20 52 45 54 55 52 *(AC>=22): RETUR
000040: 4E 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 N...............
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 22 48 41 2C 20 48 41 20 59 4F 55 20 4D 49 53 "HA, HA YOU MIS
000010: 53 45 44 2E 20 4D 59 20 54 55 52 4E 20 4E 4F 57 SED. MY TURN NOW
000020: 3A 22 0D 0A 36 34 30 20 50 52 49 4E 54 3A 20 50 :"..640 PRINT: P
000030: 52 49 4E 54 3A 20 47 4F 54 4F 20 35 37 30 0D 0A RINT: GOTO 570..
000040: 36 37 30 20 50 52 49 4E 54 20 22 49 20 4D 49 53 670 PRINT "I MIS
000050: 53 45 44 20 59 4F 55 2C 20 59 4F 55 20 44 49 52 SED YOU, YOU DIR
000060: 54 59 20 52 41 54 2E 20 49 20 50 49 43 4B 45 44 TY RAT. I PICKED
000070: 22 3B 4D 22 2E 20 59 4F 55 52 20 54 55 52 4E 3A ";M". YOUR TURN:
000080: 22 0D 0A 36 38 30 20 50 52 49 4E 54 3A 20 50 52 "..680 PRINT: PR
000090: 49 4E 54 3A 20 47 4F 54 4F 20 35 30 30 0D 0A 37 INT: GOTO 500..7
0000A0: 31 30 20 51 3D 51 2B 31 0D 0A 37 32 30 20 49 46 10 Q=Q+1..720 IF
0000B0: 20 51 3D 34 20 54 48 45 4E 20 38 39 30 0D 0A 37 Q=4 THEN 890..7
0000C0: 33 30 20 50 52 49 4E 54 20 22 59 4F 55 20 47 4F 30 PRINT "YOU GO
0000D0: 54 20 4F 4E 45 20 4F 46 20 4D 59 20 4F 55 54 50 T ONE OF MY OUTP
0000E0: 4F 53 54 53 21 22 0D 0A 37 34 30 20 49 46 20 51 OSTS!"..740 IF Q
0000F0: 3D 31 20 54 48 45 4E 20 37 37 30 0D 0A 37 35 30 =1 THEN 770..750
000100: 20 49 46 20 51 3D 32 20 54 48 45 4E 20 38 31 30 IF Q=2 THEN 810
000110: 0D 0A 37 36 30 20 49 46 20 51 3D 33 20 54 48 45 ..760 IF Q=3 THE
000120: 4E 20 38 35 30 0D 0A 37 37 30 20 50 52 49 4E 54 N 850..770 PRINT
000130: 20 22 4F 4E 45 20 44 4F 57 4E 2C 20 54 48 52 45 "ONE DOWN, THRE
000140: 45 20 54 4F 20 47 4F 2E 22 0D 0A 37 38 30 20 50 E TO GO."..780 P
000150: 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 47 4F 54 RINT: PRINT: GOT
000160: 4F 20 35 37 30 0D 0A 38 31 30 20 50 52 49 4E 54 O 570..810 PRINT
000170: 20 22 54 57 4F 20 44 4F 57 4E 2C 20 54 57 4F 20 "TWO DOWN, TWO
000180: 54 4F 20 47 4F 2E 22 0D 0A 38 32 30 20 50 52 49 TO GO."..820 PRI
000190: 4E 54 3A 20 50 52 49 4E 54 3A 20 47 4F 54 4F 20 NT: PRINT: GOTO
0001A0: 35 37 30 0D 0A 38 35 30 20 50 52 49 4E 54 20 22 570..850 PRINT "
0001B0: 54 48 52 45 45 20 44 4F 57 4E 2C 20 4F 4E 45 20 THREE DOWN, ONE
0001C0: 54 4F 20 47 4F 2E 22 0D 0A 38 36 30 20 50 52 49 TO GO."..860 PRI
0001D0: 4E 54 3A 20 50 52 49 4E 54 3A 20 47 4F 54 4F 20 NT: PRINT: GOTO
0001E0: 35 37 30 0D 0A 38 39 30 20 50 52 49 4E 54 20 22 570..890 PRINT "
0001F0: 59 4F 55 20 47 4F 54 20 4D 45 2C 20 49 27 4D 20 YOU GOT ME, I'M
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 47 4F 49 4E 47 20 46 41 53 54 2E 20 42 55 54 20 GOING FAST. BUT
000010: 49 27 4C 4C 20 47 45 54 20 59 4F 55 20 57 48 45 I'LL GET YOU WHE
000020: 4E 22 0D 0A 39 30 30 20 50 52 49 4E 54 20 22 4D N"..900 PRINT "M
000030: 59 20 54 52 41 4E 53 49 53 54 4F 26 53 20 52 45 Y TRANSISTO&S RE
000040: 43 55 50 25 52 41 2A 45 21 22 0D 0A 39 31 30 20 CUP%RA*E!"..910
000050: 47 4F 54 4F 20 31 32 33 35 0D 0A 39 32 30 20 5A GOTO 1235..920 Z
000060: 3D 5A 2B 31 0D 0A 39 33 30 20 49 46 20 5A 3D 34 =Z+1..930 IF Z=4
000070: 20 54 48 45 4E 20 31 31 31 30 0D 0A 39 34 30 20 THEN 1110..940
000080: 50 52 49 4E 54 20 22 49 20 47 4F 54 20 59 4F 55 PRINT "I GOT YOU
000090: 2E 20 49 54 20 57 4F 4E 27 54 20 42 45 20 4C 4F . IT WON'T BE LO
0000A0: 4E 47 20 4E 4F 57 2E 20 50 4F 53 54 22 3B 58 3B NG NOW. POST";X;
0000B0: 22 57 41 53 20 48 49 54 2E 22 0D 0A 39 35 30 20 "WAS HIT."..950
0000C0: 49 46 20 5A 3D 31 20 54 48 45 4E 20 39 39 30 0D IF Z=1 THEN 990.
0000D0: 0A 39 36 30 20 49 46 20 5A 3D 32 20 54 48 45 4E .960 IF Z=2 THEN
0000E0: 20 31 30 33 30 0D 0A 39 37 30 20 49 46 20 5A 3D 1030..970 IF Z=
0000F0: 33 20 54 48 45 4E 20 31 30 37 30 0D 0A 39 39 30 3 THEN 1070..990
000100: 20 50 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 PRINT "YOU HAVE
000110: 20 4F 4E 4C 59 20 54 48 52 45 45 20 4F 55 54 50 ONLY THREE OUTP
000120: 4F 53 54 53 20 4C 45 46 54 2E 22 0D 0A 31 30 30 OSTS LEFT."..100
000130: 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 0 PRINT: PRINT:
000140: 47 4F 54 4F 20 35 30 30 0D 0A 31 30 33 30 20 50 GOTO 500..1030 P
000150: 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 4F RINT "YOU HAVE O
000160: 4E 4C 59 20 54 57 4F 20 4F 55 54 50 4F 53 54 53 NLY TWO OUTPOSTS
000170: 20 4C 45 46 54 2E 22 0D 0A 31 30 34 30 20 50 52 LEFT."..1040 PR
000180: 49 4E 54 3A 20 50 52 49 4E 54 3A 20 47 4F 54 4F INT: PRINT: GOTO
000190: 20 35 30 30 0D 0A 31 30 37 30 20 50 52 49 4E 54 500..1070 PRINT
0001A0: 20 22 59 4F 55 20 48 41 56 45 20 4F 4E 4C 59 20 "YOU HAVE ONLY
0001B0: 4F 4E 45 20 4F 55 54 50 4F 53 54 20 4C 45 46 54 ONE OUTPOST LEFT
0001C0: 2E 22 0D 0A 31 30 38 30 20 50 52 49 4E 54 3A 20 ."..1080 PRINT:
0001D0: 50 52 49 4E 54 3A 20 47 4F 54 4F 20 35 30 30 0D PRINT: GOTO 500.
0001E0: 0A 31 31 31 30 20 50 52 49 4E 54 20 22 59 4F 55 .1110 PRINT "YOU
0001F0: 27 52 45 20 44 45 41 44 2E 20 59 4F 55 52 20 4C 'RE DEAD. YOUR L
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 42 4F 4D 42 41 52 44 4D 45 4E 54 22 0D 0A ;"BOMBARDMENT"..
000020: 32 30 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 20 PRINT TAB(15)
000030: 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 ;"CREATIVE COMPU
000040: 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E TING MORRISTOWN
000050: 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 33 , NEW JERSEY"..3
000060: 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 0 PRINT:PRINT:PR
000070: 49 4E 54 0D 0A 31 30 30 20 50 52 49 4E 54 20 22 INT..100 PRINT "
000080: 59 4F 55 20 41 52 45 20 4F 4E 20 41 20 42 41 54 YOU ARE ON A BAT
000090: 54 4C 45 46 49 45 4C 44 20 57 49 54 48 20 34 20 TLEFIELD WITH 4
0000A0: 50 4C 41 54 4F 4F 4E 53 20 41 4E 44 20 59 4F 55 PLATOONS AND YOU
0000B0: 22 0D 0A 31 31 30 20 50 52 49 4E 54 20 22 48 41 "..110 PRINT "HA
0000C0: 56 45 20 32 35 20 4F 55 54 50 4F 53 54 53 20 41 VE 25 OUTPOSTS A
0000D0: 56 41 49 4C 41 42 4C 45 20 57 48 45 52 45 20 54 VAILABLE WHERE T
0000E0: 48 45 59 20 4D 41 59 20 42 45 20 50 4C 41 43 45 HEY MAY BE PLACE
0000F0: 44 2E 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 D."..120 PRINT "
000100: 59 4F 55 20 43 41 4E 20 4F 4E 4C 59 20 50 4C 41 YOU CAN ONLY PLA
000110: 43 45 20 4F 4E 45 20 50 4C 41 54 4F 4F 4E 20 41 CE ONE PLATOON A
000120: 54 20 41 4E 59 20 4F 4E 45 20 4F 55 54 50 4F 53 T ANY ONE OUTPOS
000130: 54 2E 22 0D 0A 31 33 30 20 50 52 49 4E 54 20 22 T."..130 PRINT "
000140: 54 48 45 20 43 4F 4D 50 55 54 45 52 20 44 4F 45 THE COMPUTER DOE
000150: 53 20 54 48 45 20 53 41 4D 45 20 57 49 54 48 20 S THE SAME WITH
000160: 49 54 53 20 46 4F 55 52 20 50 4C 41 54 4F 4F 4E ITS FOUR PLATOON
000170: 53 2E 22 0D 0A 31 33 35 20 50 52 49 4E 54 0D 0A S."..135 PRINT..
000180: 31 34 30 20 50 52 49 4E 54 20 22 54 48 45 20 4F 140 PRINT "THE O
000190: 42 4A 45 43 54 20 4F 46 20 54 48 45 20 47 41 4D BJECT OF THE GAM
0001A0: 45 20 49 53 20 54 4F 20 46 49 52 45 20 4D 49 53 E IS TO FIRE MIS
0001B0: 53 4C 45 53 20 41 54 20 54 48 45 22 0D 0A 31 35 SLES AT THE"..15
0001C0: 30 20 50 52 49 4E 54 20 22 4F 55 54 50 4F 53 54 0 PRINT "OUTPOST
0001D0: 53 20 4F 46 20 54 48 45 20 43 4F 4D 50 55 54 45 S OF THE COMPUTE
0001E0: 52 2E 20 20 49 54 20 57 49 4C 4C 20 44 4F 20 54 R. IT WILL DO T
0001F0: 48 45 20 53 41 4D 45 20 54 4F 20 59 4F 55 2E 22 HE SAME TO YOU."
Size : 512 (Real : 512)
000000: 41 53 54 20 4F 55 54 50 4F 53 54 20 57 41 53 20 AST OUTPOST WAS
000010: 41 54 22 3B 58 3B 22 2E 20 48 41 2C 20 48 41 2C AT";X;". HA, HA,
000020: 20 48 41 2E 22 0D 0A 31 31 32 30 20 50 52 49 4E HA."..1120 PRIN
000030: 54 20 22 42 45 54 54 45 52 20 4C 55 43 4B 20 4E T "BETTER LUCK N
000040: 45 58 54 20 54 49 4D 45 2E 22 0D 0A 31 31 35 30 EXT TIME."..1150
000050: 20 47 4F 54 4F 20 31 32 33 35 0D 0A 31 31 36 30 GOTO 1235..1160
000060: 20 50 3D 50 2B 31 0D 0A 31 31 37 30 20 4E 3D 50 P=P+1..1170 N=P
000070: 2D 31 0D 0A 31 31 38 30 20 46 4F 52 20 54 3D 31 -1..1180 FOR T=1
000080: 20 54 4F 20 4E 0D 0A 31 31 39 30 20 49 46 20 4D TO N..1190 IF M
000090: 3D 4D 28 54 29 20 54 48 45 4E 20 35 37 30 0D 0A =M(T) THEN 570..
0000A0: 31 32 30 30 20 4E 45 58 54 20 54 0D 0A 31 32 31 1200 NEXT T..121
0000B0: 30 20 58 3D 4D 0D 0A 31 32 32 30 20 4D 28 50 29 0 X=M..1220 M(P)
0000C0: 3D 4D 0D 0A 31 32 33 30 20 47 4F 54 4F 20 35 38 =M..1230 GOTO 58
0000D0: 30 0D 0A 31 32 33 35 20 45 4E 44 0D 0A 1A E5 E5 0..1235 END.....
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 22 0D 0A 33 32 37 20 50 52 49 4E 54 20 22 4D 49 "..327 PRINT "MI
000010: 53 53 49 4F 4E 20 53 55 43 43 45 53 53 46 55 4C SSION SUCCESSFUL
000020: 2E 22 20 3A 20 47 4F 54 4F 20 33 39 30 0D 0A 33 ." : GOTO 390..3
000030: 33 30 20 50 52 49 4E 54 20 22 4D 49 53 53 45 44 30 PRINT "MISSED
000040: 20 54 41 52 47 45 54 20 42 59 22 49 4E 54 28 32 TARGET BY"INT(2
000050: 2B 33 30 2A 52 4E 44 28 31 29 29 22 4D 49 4C 45 +30*RND(1))"MILE
000060: 53 21 22 0D 0A 33 33 35 20 50 52 49 4E 54 20 22 S!"..335 PRINT "
000070: 4E 4F 57 20 59 4F 55 27 52 45 20 52 45 41 4C 4C NOW YOU'RE REALL
000080: 59 20 49 4E 20 46 4F 52 20 49 54 20 21 21 22 20 Y IN FOR IT !!"
000090: 3A 20 50 52 49 4E 54 0D 0A 33 34 30 20 49 4E 50 : PRINT..340 INP
0000A0: 55 54 20 22 44 4F 45 53 20 54 48 45 20 45 4E 45 UT "DOES THE ENE
0000B0: 4D 59 20 48 41 56 45 20 47 55 4E 53 28 31 29 2C MY HAVE GUNS(1),
0000C0: 20 4D 49 53 53 49 4C 45 53 28 32 29 2C 20 4F 52 MISSILES(2), OR
0000D0: 20 42 4F 54 48 28 33 29 22 3B 52 0D 0A 33 34 35 BOTH(3)";R..345
0000E0: 20 49 46 20 52 3E 30 20 41 4E 44 20 52 3C 34 20 IF R>0 AND R<4
0000F0: 54 48 45 4E 20 33 35 30 0D 0A 33 34 37 20 50 52 THEN 350..347 PR
000100: 49 4E 54 20 22 54 52 59 20 41 47 41 49 4E 2E 2E INT "TRY AGAIN..
000110: 2E 22 20 3A 20 47 4F 54 4F 20 33 34 30 0D 0A 33 ." : GOTO 340..3
000120: 35 30 20 50 52 49 4E 54 20 3A 20 54 3D 30 20 3A 50 PRINT : T=0 :
000130: 20 49 46 20 52 3D 32 20 54 48 45 4E 20 33 36 30 IF R=2 THEN 360
000140: 0D 0A 33 35 35 20 49 4E 50 55 54 20 22 57 48 41 ..355 INPUT "WHA
000150: 54 27 53 20 54 48 45 20 50 45 52 43 45 4E 54 20 T'S THE PERCENT
000160: 48 49 54 20 52 41 54 45 20 4F 46 20 45 4E 45 4D HIT RATE OF ENEM
000170: 59 20 47 55 4E 4E 45 52 53 20 28 31 30 20 54 4F Y GUNNERS (10 TO
000180: 20 35 30 29 22 3B 53 0D 0A 33 35 37 20 49 46 20 50)";S..357 IF
000190: 53 3C 31 30 20 54 48 45 4E 20 50 52 49 4E 54 20 S<10 THEN PRINT
0001A0: 22 59 4F 55 20 4C 49 45 2C 20 42 55 54 20 59 4F "YOU LIE, BUT YO
0001B0: 55 27 4C 4C 20 50 41 59 2E 2E 2E 22 3A 20 47 4F U'LL PAY...": GO
0001C0: 54 4F 20 33 38 30 0D 0A 33 35 38 20 50 52 49 4E TO 380..358 PRIN
0001D0: 54 0D 0A 33 36 30 20 50 52 49 4E 54 20 3A 20 49 T..360 PRINT : I
0001E0: 46 20 52 3E 31 20 54 48 45 4E 20 54 3D 33 35 0D F R>1 THEN T=35.
0001F0: 0A 33 36 35 20 49 46 20 53 2B 54 3E 31 30 30 2A .365 IF S+T>100*
Size : 512 (Real : 512)
000000: 38 20 50 52 49 4E 54 20 22 59 4F 55 20 41 52 45 8 PRINT "YOU ARE
000010: 20 41 20 50 49 4C 4F 54 20 49 4E 20 41 20 57 4F A PILOT IN A WO
000020: 52 4C 44 20 57 41 52 20 49 49 20 42 4F 4D 42 45 RLD WAR II BOMBE
000030: 52 2E 22 0D 0A 31 30 20 49 4E 50 55 54 20 22 57 R."..10 INPUT "W
000040: 48 41 54 20 53 49 44 45 20 2D 2D 20 49 54 41 4C HAT SIDE -- ITAL
000050: 59 28 31 29 2C 20 41 4C 4C 49 45 53 28 32 29 2C Y(1), ALLIES(2),
000060: 20 4A 41 50 41 4E 28 33 29 2C 20 47 45 52 4D 41 JAPAN(3), GERMA
000070: 4E 59 28 34 29 22 3B 41 0D 0A 32 30 20 49 46 20 NY(4)";A..20 IF
000080: 41 3E 30 20 41 4E 44 20 41 3C 35 20 54 48 45 4E A>0 AND A<5 THEN
000090: 20 32 35 0D 0A 32 32 20 50 52 49 4E 54 20 22 54 25..22 PRINT "T
0000A0: 52 59 20 41 47 41 49 4E 2E 2E 2E 22 20 3A 20 47 RY AGAIN..." : G
0000B0: 4F 54 4F 20 31 30 0D 0A 32 35 20 4F 4E 20 41 20 OTO 10..25 ON A
0000C0: 47 4F 54 4F 20 33 30 2C 20 31 31 30 2C 20 32 30 GOTO 30, 110, 20
0000D0: 30 2C 20 32 32 30 0D 0A 33 30 20 49 4E 50 55 54 0, 220..30 INPUT
0000E0: 20 22 59 4F 55 52 20 54 41 52 47 45 54 20 2D 2D "YOUR TARGET --
0000F0: 20 41 4C 42 41 4E 49 41 28 31 29 2C 20 47 52 45 ALBANIA(1), GRE
000100: 45 43 45 28 32 29 2C 20 4E 4F 52 54 48 20 41 46 ECE(2), NORTH AF
000110: 52 49 43 41 28 33 29 22 3B 42 0D 0A 34 30 20 49 RICA(3)";B..40 I
000120: 46 20 42 3E 30 20 41 4E 44 20 42 3C 34 20 54 48 F B>0 AND B<4 TH
000130: 45 4E 20 34 35 0D 0A 34 32 20 50 52 49 4E 54 20 EN 45..42 PRINT
000140: 22 54 52 59 20 41 47 41 49 4E 2E 2E 2E 22 20 3A "TRY AGAIN..." :
000150: 20 47 4F 54 4F 20 33 30 0D 0A 34 35 20 50 52 49 GOTO 30..45 PRI
000160: 4E 54 20 3A 20 4F 4E 20 42 20 47 4F 54 4F 20 35 NT : ON B GOTO 5
000170: 30 2C 20 38 30 2C 39 30 0D 0A 35 30 20 50 52 49 0, 80,90..50 PRI
000180: 4E 54 20 22 53 48 4F 55 4C 44 20 42 45 20 45 41 NT "SHOULD BE EA
000190: 53 59 20 2D 2D 20 59 4F 55 27 52 45 20 46 4C 59 SY -- YOU'RE FLY
0001A0: 49 4E 47 20 41 20 4E 41 5A 49 2D 4D 41 44 45 20 ING A NAZI-MADE
0001B0: 50 4C 41 4E 45 2E 22 0D 0A 36 30 20 47 4F 54 4F PLANE."..60 GOTO
0001C0: 20 32 38 30 0D 0A 38 30 20 50 52 49 4E 54 20 22 280..80 PRINT "
0001D0: 42 45 20 43 41 52 45 46 55 4C 21 21 21 22 20 3A BE CAREFUL!!!" :
0001E0: 20 47 4F 54 4F 20 32 38 30 0D 0A 39 30 20 50 52 GOTO 280..90 PR
0001F0: 49 4E 54 20 22 59 4F 55 27 52 45 20 47 4F 49 4E INT "YOU'RE GOIN
Size : 512 (Real : 512)
000000: 52 4E 44 28 31 29 20 54 48 45 4E 20 33 38 30 0D RND(1) THEN 380.
000010: 0A 33 37 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .370 PRINT "YOU
000020: 4D 41 44 45 20 49 54 20 54 48 52 4F 55 47 48 20 MADE IT THROUGH
000030: 54 52 45 4D 45 4E 44 4F 55 53 20 46 4C 41 4B 21 TREMENDOUS FLAK!
000040: 21 22 20 3A 20 47 4F 54 4F 20 33 39 30 0D 0A 33 !" : GOTO 390..3
000050: 38 30 20 50 52 49 4E 54 20 22 2A 20 2A 20 2A 20 80 PRINT "* * *
000060: 2A 20 42 4F 4F 4D 20 2A 20 2A 20 2A 20 2A 22 0D * BOOM * * * *".
000070: 0A 33 38 34 20 50 52 49 4E 54 20 22 59 4F 55 20 .384 PRINT "YOU
000080: 48 41 56 45 20 42 45 45 4E 20 53 48 4F 54 20 44 HAVE BEEN SHOT D
000090: 4F 57 4E 2E 2E 2E 2E 2E 22 0D 0A 33 38 36 20 50 OWN....."..386 P
0000A0: 52 49 4E 54 20 22 44 45 41 52 4C 59 20 42 45 4C RINT "DEARLY BEL
0000B0: 4F 56 45 44 2C 20 57 45 20 41 52 45 20 47 41 54 OVED, WE ARE GAT
0000C0: 48 45 52 45 44 20 48 45 52 45 20 54 4F 44 41 59 HERED HERE TODAY
0000D0: 20 54 4F 20 50 41 59 20 4F 55 52 22 0D 0A 33 38 TO PAY OUR"..38
0000E0: 37 20 50 52 49 4E 54 20 22 4C 41 53 54 20 54 52 7 PRINT "LAST TR
0000F0: 49 42 55 54 45 2E 2E 2E 22 0D 0A 33 39 30 20 50 IBUTE..."..390 P
000100: 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 RINT:PRINT:PRINT
000110: 3A 49 4E 50 55 54 20 22 41 4E 4F 54 48 45 52 20 :INPUT "ANOTHER
000120: 4D 49 53 53 49 4F 4E 20 28 59 20 4F 52 20 4E 29 MISSION (Y OR N)
000130: 22 3B 55 24 0D 0A 33 39 35 20 49 46 20 55 24 3D ";U$..395 IF U$=
000140: 22 59 22 20 54 48 45 4E 20 38 0D 0A 34 30 30 20 "Y" THEN 8..400
000150: 50 52 49 4E 54 20 22 43 48 49 43 4B 45 4E 20 21 PRINT "CHICKEN !
000160: 21 21 22 20 3A 20 50 52 49 4E 54 20 3A 20 45 4E !!" : PRINT : EN
000170: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 47 20 46 4F 52 20 54 48 45 20 4F 49 4C 2C 20 45 G FOR THE OIL, E
000010: 48 3F 22 20 3A 20 47 4F 54 4F 20 32 38 30 0D 0A H?" : GOTO 280..
000020: 31 31 30 20 49 4E 50 55 54 20 22 41 49 52 43 52 110 INPUT "AIRCR
000030: 41 46 54 20 2D 2D 20 4C 49 42 45 52 41 54 4F 52 AFT -- LIBERATOR
000040: 28 31 29 2C 20 42 2D 32 39 28 32 29 2C 20 42 2D (1), B-29(2), B-
000050: 31 37 28 33 29 2C 20 4C 41 4E 43 41 53 54 45 52 17(3), LANCASTER
000060: 28 34 29 22 3B 47 0D 0A 31 32 30 20 49 46 20 47 (4)";G..120 IF G
000070: 3E 30 20 41 4E 44 20 47 3C 35 20 54 48 45 4E 20 >0 AND G<5 THEN
000080: 31 32 35 0D 0A 31 32 32 20 50 52 49 4E 54 20 22 125..122 PRINT "
000090: 54 52 59 20 41 47 41 49 4E 2E 2E 2E 22 20 3A 20 TRY AGAIN..." :
0000A0: 47 4F 54 4F 20 31 31 30 0D 0A 31 32 35 20 50 52 GOTO 110..125 PR
0000B0: 49 4E 54 20 3A 20 4F 4E 20 47 20 47 4F 54 4F 20 INT : ON G GOTO
0000C0: 31 33 30 2C 20 31 35 30 2C 20 31 37 30 2C 20 31 130, 150, 170, 1
0000D0: 39 30 0D 0A 31 33 30 20 50 52 49 4E 54 20 22 59 90..130 PRINT "Y
0000E0: 4F 55 27 56 45 20 47 4F 54 20 32 20 54 4F 4E 53 OU'VE GOT 2 TONS
0000F0: 20 4F 46 20 42 4F 4D 42 53 20 46 4C 59 49 4E 47 OF BOMBS FLYING
000100: 20 46 4F 52 20 50 4C 4F 45 53 54 49 2E 22 20 3A FOR PLOESTI." :
000110: 20 47 4F 54 4F 20 32 38 30 0D 0A 31 35 30 20 50 GOTO 280..150 P
000120: 52 49 4E 54 20 22 59 4F 55 27 52 45 20 44 55 4D RINT "YOU'RE DUM
000130: 50 49 4E 47 20 54 48 45 20 41 2D 42 4F 4D 42 20 PING THE A-BOMB
000140: 4F 4E 20 48 49 52 4F 53 48 49 4D 41 2E 22 20 3A ON HIROSHIMA." :
000150: 20 47 4F 54 4F 20 32 38 30 0D 0A 31 37 30 20 50 GOTO 280..170 P
000160: 52 49 4E 54 20 22 59 4F 55 27 52 45 20 43 48 41 RINT "YOU'RE CHA
000170: 53 49 4E 47 20 54 48 45 20 42 49 53 4D 41 52 4B SING THE BISMARK
000180: 20 49 4E 20 54 48 45 20 4E 4F 52 54 48 20 53 45 IN THE NORTH SE
000190: 41 2E 22 20 3A 20 47 4F 54 4F 20 32 38 30 0D 0A A." : GOTO 280..
0001A0: 31 39 30 20 50 52 49 4E 54 20 22 59 4F 55 27 52 190 PRINT "YOU'R
0001B0: 45 20 42 55 53 54 49 4E 47 20 41 20 47 45 52 4D E BUSTING A GERM
0001C0: 41 4E 20 48 45 41 56 59 20 57 41 54 45 52 20 50 AN HEAVY WATER P
0001D0: 4C 41 4E 54 20 49 4E 20 54 48 45 20 52 55 48 52 LANT IN THE RUHR
0001E0: 2E 22 0D 0A 31 39 35 20 47 4F 54 4F 20 32 38 30 ."..195 GOTO 280
0001F0: 0D 0A 32 30 30 20 50 52 49 4E 54 20 22 59 4F 55 ..200 PRINT "YOU
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 32 36 29 20 2 PRINT TAB(26)
000010: 22 43 49 56 49 4C 20 57 41 52 22 0D 0A 34 20 50 "CIVIL WAR"..4 P
000020: 52 49 4E 54 20 54 41 42 28 31 35 29 20 22 43 52 RINT TAB(15) "CR
000030: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
000040: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
000050: 57 20 4A 45 52 53 45 59 22 0D 0A 36 20 50 52 49 W JERSEY"..6 PRI
000060: 4E 54 20 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 NT : PRINT : PRI
000070: 4E 54 0D 0A 32 30 20 52 45 4D 20 4F 52 49 47 49 NT..20 REM ORIGI
000080: 4E 41 4C 20 47 41 4D 45 20 44 45 53 49 47 4E 3A NAL GAME DESIGN:
000090: 20 43 52 41 4D 2C 20 47 4F 4F 44 49 45 2C 20 48 CRAM, GOODIE, H
0000A0: 49 42 42 41 52 44 20 4C 45 58 49 4E 47 54 4F 4E IBBARD LEXINGTON
0000B0: 20 48 2E 53 2E 0D 0A 33 30 20 52 45 4D 20 4D 4F H.S...30 REM MO
0000C0: 44 49 46 49 43 41 54 49 4F 4E 53 3A 20 47 2E 20 DIFICATIONS: G.
0000D0: 50 41 55 4C 2C 20 52 2E 20 48 45 53 53 20 28 54 PAUL, R. HESS (T
0000E0: 49 45 53 29 2C 20 31 39 37 33 0D 0A 35 30 20 20 IES), 1973..50
0000F0: 44 49 4D 20 53 28 34 29 2C 43 24 28 31 34 29 2C DIM S(4),C$(14),
000100: 4D 31 28 31 34 29 2C 4D 32 28 31 34 29 2C 43 31 M1(14),M2(14),C1
000110: 28 31 34 29 2C 43 32 28 31 34 29 2C 4D 28 31 34 (14),C2(14),M(14
000120: 29 0D 0A 36 30 20 20 52 45 4D 20 55 4E 49 4F 4E )..60 REM UNION
000130: 20 49 4E 46 4F 20 4F 4E 20 4C 49 4B 45 4C 59 20 INFO ON LIKELY
000140: 43 4F 4E 46 45 44 45 52 41 54 45 20 53 54 52 41 CONFEDERATE STRA
000150: 54 45 47 59 0D 0A 37 30 20 20 53 28 31 29 3D 32 TEGY..70 S(1)=2
000160: 35 20 3A 20 53 28 32 29 3D 32 35 20 3A 20 53 28 5 : S(2)=25 : S(
000170: 33 29 3D 32 35 20 3A 20 53 28 34 29 3D 32 35 0D 3)=25 : S(4)=25.
000180: 0A 38 32 20 20 52 45 4D 20 52 45 41 44 20 48 49 .82 REM READ HI
000190: 53 54 4F 52 49 43 41 4C 20 44 41 54 41 2E 0D 0A STORICAL DATA...
0001A0: 38 34 20 20 46 4F 52 20 44 3D 31 20 54 4F 20 31 84 FOR D=1 TO 1
0001B0: 34 0D 0A 38 36 20 20 52 45 41 44 20 43 24 28 44 4..86 READ C$(D
0001C0: 29 2C 4D 31 28 44 29 2C 4D 32 28 44 29 2C 43 31 ),M1(D),M2(D),C1
0001D0: 28 44 29 2C 43 32 28 44 29 2C 4D 28 44 29 0D 0A (D),C2(D),M(D)..
0001E0: 38 38 20 20 4E 45 58 54 20 44 0D 0A 38 39 20 20 88 NEXT D..89
0001F0: 4C 45 54 20 44 3D 52 4E 44 28 2D 31 29 0D 0A 39 LET D=RND(-1)..9
Size : 512 (Real : 512)
000000: 27 52 45 20 46 4C 59 49 4E 47 20 41 20 4B 41 4D 'RE FLYING A KAM
000010: 49 4B 41 5A 45 20 4D 49 53 53 49 4F 4E 20 4F 56 IKAZE MISSION OV
000020: 45 52 20 54 48 45 20 55 53 53 20 4C 45 58 49 4E ER THE USS LEXIN
000030: 47 54 4F 4E 2E 22 0D 0A 32 30 35 20 49 4E 50 55 GTON."..205 INPU
000040: 54 20 22 59 4F 55 52 20 46 49 52 53 54 20 4B 41 T "YOUR FIRST KA
000050: 4D 49 4B 41 5A 45 20 4D 49 53 53 49 4F 4E 28 59 MIKAZE MISSION(Y
000060: 20 4F 52 20 4E 29 22 3B 46 24 0D 0A 32 30 37 20 OR N)";F$..207
000070: 49 46 20 46 24 3D 22 4E 22 20 54 48 45 4E 20 53 IF F$="N" THEN S
000080: 3D 30 20 3A 20 47 4F 54 4F 20 33 35 38 0D 0A 32 =0 : GOTO 358..2
000090: 31 30 20 50 52 49 4E 54 20 3A 20 49 46 20 52 4E 10 PRINT : IF RN
0000A0: 44 28 31 29 3E 2E 36 35 20 54 48 45 4E 20 33 32 D(1)>.65 THEN 32
0000B0: 35 0D 0A 32 31 35 20 47 4F 54 4F 20 33 38 30 0D 5..215 GOTO 380.
0000C0: 0A 32 32 30 20 50 52 49 4E 54 20 22 41 20 4E 41 .220 PRINT "A NA
0000D0: 5A 49 2C 20 45 48 3F 20 20 4F 48 20 57 45 4C 4C ZI, EH? OH WELL
0000E0: 2E 20 20 41 52 45 20 59 4F 55 20 47 4F 49 4E 47 . ARE YOU GOING
0000F0: 20 46 4F 52 20 52 55 53 53 49 41 28 31 29 2C 22 FOR RUSSIA(1),"
000100: 0D 0A 32 33 30 20 49 4E 50 55 54 20 22 45 4E 47 ..230 INPUT "ENG
000110: 4C 41 4E 44 28 32 29 2C 20 4F 52 20 46 52 41 4E LAND(2), OR FRAN
000120: 43 45 28 33 29 22 3B 4D 20 3A 20 49 46 20 4D 3E CE(3)";M : IF M>
000130: 30 20 41 4E 44 20 4D 3C 34 20 54 48 45 4E 20 32 0 AND M<4 THEN 2
000140: 33 35 0D 0A 32 33 32 20 50 52 49 4E 54 20 22 54 35..232 PRINT "T
000150: 52 59 20 41 47 41 49 4E 2E 2E 2E 22 20 3A 20 47 RY AGAIN..." : G
000160: 4F 54 4F 20 32 32 30 0D 0A 32 33 35 20 50 52 49 OTO 220..235 PRI
000170: 4E 54 20 3A 20 4F 4E 20 4D 20 47 4F 54 4F 20 32 NT : ON M GOTO 2
000180: 35 30 2C 20 32 36 30 2C 20 32 37 30 0D 0A 32 35 50, 260, 270..25
000190: 30 20 50 52 49 4E 54 20 22 59 4F 55 27 52 45 20 0 PRINT "YOU'RE
0001A0: 4E 45 41 52 49 4E 47 20 53 54 41 4C 49 4E 47 52 NEARING STALINGR
0001B0: 41 44 2E 22 20 3A 20 47 4F 54 4F 20 32 38 30 0D AD." : GOTO 280.
0001C0: 0A 32 36 30 20 50 52 49 4E 54 20 22 4E 45 41 52 .260 PRINT "NEAR
0001D0: 49 4E 47 20 4C 4F 4E 44 4F 4E 2E 20 20 42 45 20 ING LONDON. BE
0001E0: 43 41 52 45 46 55 4C 2C 20 54 48 45 59 27 56 45 CAREFUL, THEY'VE
0001F0: 20 47 4F 54 20 52 41 44 41 52 2E 22 20 3A 20 47 GOT RADAR." : G
Size : 512 (Real : 512)
000000: 30 20 20 50 52 49 4E 54 0D 0A 31 30 30 20 20 50 0 PRINT..100 P
000010: 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E RINT "DO YOU WAN
000020: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 3B T INSTRUCTIONS";
000030: 0D 0A 31 31 30 20 20 49 4E 50 55 54 20 58 24 0D ..110 INPUT X$.
000040: 0A 31 32 30 20 20 49 46 20 58 24 3D 22 59 45 53 .120 IF X$="YES
000050: 22 20 54 48 45 4E 20 31 36 30 0D 0A 31 33 30 20 " THEN 160..130
000060: 20 49 46 20 58 24 3D 22 4E 4F 22 20 54 48 45 4E IF X$="NO" THEN
000070: 20 33 37 30 0D 0A 31 34 30 20 20 50 52 49 4E 54 370..140 PRINT
000080: 20 22 59 45 53 20 4F 52 20 4E 4F 20 2D 2D 20 22 "YES OR NO -- "
000090: 3B 0D 0A 31 35 30 20 20 47 4F 54 4F 20 31 31 30 ;..150 GOTO 110
0000A0: 0D 0A 31 36 30 20 20 50 52 49 4E 54 20 3A 20 50 ..160 PRINT : P
0000B0: 52 49 4E 54 20 3A 20 50 52 49 4E 54 20 3A 20 50 RINT : PRINT : P
0000C0: 52 49 4E 54 0D 0A 31 37 30 20 20 50 52 49 4E 54 RINT..170 PRINT
0000D0: 20 22 54 48 49 53 20 49 53 20 41 20 43 49 56 49 "THIS IS A CIVI
0000E0: 4C 20 57 41 52 20 53 49 4D 55 4C 41 54 49 4F 4E L WAR SIMULATION
0000F0: 2E 22 0D 0A 31 38 30 20 20 50 52 49 4E 54 20 22 ."..180 PRINT "
000100: 54 4F 20 50 4C 41 59 20 54 59 50 45 20 41 20 52 TO PLAY TYPE A R
000110: 45 53 50 4F 4E 53 45 20 57 48 45 4E 20 54 48 45 ESPONSE WHEN THE
000120: 20 43 4F 4D 50 55 54 45 52 20 41 53 4B 53 2E 22 COMPUTER ASKS."
000130: 0D 0A 31 39 30 20 20 50 52 49 4E 54 20 22 52 45 ..190 PRINT "RE
000140: 4D 45 4D 42 45 52 20 54 48 41 54 20 41 4C 4C 20 MEMBER THAT ALL
000150: 46 41 43 54 4F 52 53 20 41 52 45 20 49 4E 54 45 FACTORS ARE INTE
000160: 52 52 45 4C 41 54 45 44 20 41 4E 44 20 54 48 41 RRELATED AND THA
000170: 54 20 59 4F 55 52 22 0D 0A 32 30 30 20 20 50 52 T YOUR"..200 PR
000180: 49 4E 54 20 22 52 45 53 50 4F 4E 53 45 53 20 43 INT "RESPONSES C
000190: 4F 55 4C 44 20 43 48 41 4E 47 45 20 48 49 53 54 OULD CHANGE HIST
0001A0: 4F 52 59 2E 20 46 41 43 54 53 20 41 4E 44 20 46 ORY. FACTS AND F
0001B0: 49 47 55 52 45 53 20 55 53 45 44 20 41 52 45 22 IGURES USED ARE"
0001C0: 0D 0A 32 31 30 20 20 50 52 49 4E 54 20 22 42 41 ..210 PRINT "BA
0001D0: 53 45 44 20 4F 4E 20 54 48 45 20 41 43 54 55 41 SED ON THE ACTUA
0001E0: 4C 20 4F 43 43 55 52 52 45 4E 43 45 2E 20 4D 4F L OCCURRENCE. MO
0001F0: 53 54 20 42 41 54 54 4C 45 53 20 54 45 4E 44 20 ST BATTLES TEND
Size : 512 (Real : 512)
000000: 4F 54 4F 20 32 38 30 0D 0A 32 37 30 20 50 52 49 OTO 280..270 PRI
000010: 4E 54 20 22 4E 45 41 52 49 4E 47 20 56 45 52 53 NT "NEARING VERS
000020: 41 49 4C 4C 45 53 2E 20 20 44 55 43 4B 20 53 4F AILLES. DUCK SO
000030: 55 50 2E 20 20 54 48 45 59 27 52 45 20 4E 45 41 UP. THEY'RE NEA
000040: 52 4C 59 20 44 45 46 45 4E 53 45 4C 45 53 53 2E RLY DEFENSELESS.
000050: 22 0D 0A 32 38 30 20 50 52 49 4E 54 0D 0A 32 38 "..280 PRINT..28
000060: 35 20 49 4E 50 55 54 20 22 48 4F 57 20 4D 41 4E 5 INPUT "HOW MAN
000070: 59 20 4D 49 53 53 49 4F 4E 53 20 48 41 56 45 20 Y MISSIONS HAVE
000080: 59 4F 55 20 46 4C 4F 57 4E 22 3B 44 0D 0A 32 39 YOU FLOWN";D..29
000090: 30 20 49 46 20 44 3C 31 36 30 20 54 48 45 4E 20 0 IF D<160 THEN
0000A0: 33 30 30 0D 0A 32 39 32 20 50 52 49 4E 54 20 22 300..292 PRINT "
0000B0: 4D 49 53 53 49 4F 4E 53 2C 20 4E 4F 54 20 4D 49 MISSIONS, NOT MI
0000C0: 4C 45 53 2E 2E 2E 22 20 0D 0A 32 39 35 20 50 52 LES..." ..295 PR
0000D0: 49 4E 54 20 22 31 35 30 20 4D 49 53 53 49 4F 4E INT "150 MISSION
0000E0: 53 20 49 53 20 48 49 47 48 20 45 56 45 4E 20 46 S IS HIGH EVEN F
0000F0: 4F 52 20 4F 4C 44 2D 54 49 4D 45 52 53 2E 22 0D OR OLD-TIMERS.".
000100: 0A 32 39 37 20 50 52 49 4E 54 20 22 4E 4F 57 20 .297 PRINT "NOW
000110: 54 48 45 4E 2C 20 22 3B 20 3A 20 47 4F 54 4F 20 THEN, "; : GOTO
000120: 32 38 35 0D 0A 33 30 30 20 50 52 49 4E 54 3A 49 285..300 PRINT:I
000130: 46 20 44 3C 31 30 30 20 54 48 45 4E 20 33 31 30 F D<100 THEN 310
000140: 0D 0A 33 30 35 20 50 52 49 4E 54 20 22 54 48 41 ..305 PRINT "THA
000150: 54 27 53 20 50 55 53 48 49 4E 47 20 54 48 45 20 T'S PUSHING THE
000160: 4F 44 44 53 21 22 20 3A 20 47 4F 54 4F 20 33 32 ODDS!" : GOTO 32
000170: 30 0D 0A 33 31 30 20 49 46 20 44 3C 32 35 20 54 0..310 IF D<25 T
000180: 48 45 4E 20 50 52 49 4E 54 20 22 46 52 45 53 48 HEN PRINT "FRESH
000190: 20 4F 55 54 20 4F 46 20 54 52 41 49 4E 49 4E 47 OUT OF TRAINING
0001A0: 2C 20 45 48 3F 22 0D 0A 33 32 30 20 50 52 49 4E , EH?"..320 PRIN
0001B0: 54 20 3A 20 49 46 20 44 3C 31 36 30 2A 52 4E 44 T : IF D<160*RND
0001C0: 28 31 29 20 54 48 45 4E 20 33 33 30 0D 0A 33 32 (1) THEN 330..32
0001D0: 35 20 50 52 49 4E 54 20 22 44 49 52 45 43 54 20 5 PRINT "DIRECT
0001E0: 48 49 54 21 21 21 21 20 22 49 4E 54 28 31 30 30 HIT!!!! "INT(100
0001F0: 2A 52 4E 44 28 31 29 29 22 4B 49 4C 4C 45 44 2E *RND(1))"KILLED.
Size : 512 (Real : 512)
000000: 54 4F 20 52 45 53 55 4C 54 22 0D 0A 32 32 30 20 TO RESULT"..220
000010: 20 50 52 49 4E 54 20 22 41 53 20 54 48 45 59 20 PRINT "AS THEY
000020: 44 49 44 20 49 4E 20 54 48 45 20 43 49 56 49 4C DID IN THE CIVIL
000030: 20 57 41 52 2C 20 42 55 54 20 49 54 20 41 4C 4C WAR, BUT IT ALL
000040: 20 44 45 50 45 4E 44 53 20 4F 4E 20 59 4F 55 21 DEPENDS ON YOU!
000050: 21 22 0D 0A 32 33 30 20 20 50 52 49 4E 54 0D 0A !"..230 PRINT..
000060: 32 34 30 20 20 50 52 49 4E 54 20 22 54 48 45 20 240 PRINT "THE
000070: 4F 42 4A 45 43 54 20 4F 46 20 54 48 45 20 47 41 OBJECT OF THE GA
000080: 4D 45 20 49 53 20 54 4F 20 57 49 4E 20 41 53 20 ME IS TO WIN AS
000090: 4D 41 4E 59 20 42 41 54 54 4C 45 53 20 41 53 20 MANY BATTLES AS
0000A0: 22 3B 0D 0A 32 34 35 20 20 50 52 49 4E 54 20 22 ";..245 PRINT "
0000B0: 50 4F 53 53 49 42 4C 45 2E 22 0D 0A 32 35 30 20 POSSIBLE."..250
0000C0: 20 50 52 49 4E 54 0D 0A 32 36 30 20 20 50 52 49 PRINT..260 PRI
0000D0: 4E 54 20 22 59 4F 55 52 20 43 48 4F 49 43 45 53 NT "YOUR CHOICES
0000E0: 20 46 4F 52 20 44 45 46 45 4E 53 49 56 45 20 53 FOR DEFENSIVE S
0000F0: 54 52 41 54 45 47 59 20 41 52 45 3A 22 0D 0A 32 TRATEGY ARE:"..2
000100: 37 30 20 20 50 52 49 4E 54 20 22 20 20 20 20 20 70 PRINT "
000110: 20 20 20 28 31 29 20 41 52 54 49 4C 4C 45 52 59 (1) ARTILLERY
000120: 20 41 54 54 41 43 4B 22 0D 0A 32 38 30 20 20 50 ATTACK"..280 P
000130: 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 28 32 RINT " (2
000140: 29 20 46 4F 52 54 49 46 49 43 41 54 49 4F 4E 20 ) FORTIFICATION
000150: 41 47 41 49 4E 53 54 20 46 52 4F 4E 54 41 4C 20 AGAINST FRONTAL
000160: 41 54 54 41 43 4B 22 0D 0A 32 39 30 20 20 50 52 ATTACK"..290 PR
000170: 49 4E 54 20 22 20 20 20 20 20 20 20 20 28 33 29 INT " (3)
000180: 20 46 4F 52 54 49 46 49 43 41 54 49 4F 4E 20 41 FORTIFICATION A
000190: 47 41 49 4E 53 54 20 46 4C 41 4E 4B 49 4E 47 20 GAINST FLANKING
0001A0: 4D 41 4E 45 55 56 45 52 53 22 0D 0A 33 30 30 20 MANEUVERS"..300
0001B0: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
0001C0: 28 34 29 20 46 41 4C 4C 49 4E 47 20 42 41 43 4B (4) FALLING BACK
0001D0: 22 0D 0A 33 31 30 20 20 50 52 49 4E 54 20 22 20 "..310 PRINT "
0001E0: 59 4F 55 52 20 43 48 4F 49 43 45 53 20 46 4F 52 YOUR CHOICES FOR
0001F0: 20 4F 46 46 45 4E 53 49 56 45 20 53 54 52 41 54 OFFENSIVE STRAT
Size : 512 (Real : 512)
000000: 4E 54 20 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 NT : PRINT : PRI
000010: 4E 54 0D 0A 31 31 30 30 20 20 50 52 49 4E 54 20 NT..1100 PRINT
000020: 22 54 48 49 53 20 49 53 20 54 48 45 20 42 41 54 "THIS IS THE BAT
000030: 54 4C 45 20 4F 46 20 22 3B 43 24 0D 0A 31 31 31 TLE OF ";C$..111
000040: 30 20 20 49 46 20 58 24 3D 22 4E 4F 22 20 54 48 0 IF X$="NO" TH
000050: 45 4E 20 31 31 35 30 0D 0A 31 31 32 30 20 20 49 EN 1150..1120 I
000060: 46 20 41 3E 31 31 20 54 48 45 4E 20 31 31 33 30 F A>11 THEN 1130
000070: 0D 0A 31 31 32 35 20 20 4F 4E 20 41 20 47 4F 54 ..1125 ON A GOT
000080: 4F 20 33 35 38 30 2C 33 36 32 30 2C 33 36 35 30 O 3580,3620,3650
000090: 2C 33 36 39 30 2C 33 37 32 30 2C 33 37 35 30 2C ,3690,3720,3750,
0000A0: 33 37 38 30 2C 33 38 30 30 2C 33 38 33 30 2C 33 3780,3800,3830,3
0000B0: 38 36 30 2C 33 38 39 30 0D 0A 31 31 33 30 20 20 860,3890..1130
0000C0: 4F 4E 20 41 2D 31 31 20 47 4F 54 4F 20 33 39 32 ON A-11 GOTO 392
0000D0: 30 2C 33 39 35 30 2C 33 39 38 30 0D 0A 31 31 34 0,3950,3980..114
0000E0: 30 20 20 50 52 49 4E 54 20 43 24 22 20 49 4E 53 0 PRINT C$" INS
0000F0: 54 41 4E 54 20 52 45 50 4C 41 59 22 0D 0A 31 31 TANT REPLAY"..11
000100: 35 30 20 20 50 52 49 4E 54 0D 0A 31 31 36 30 20 50 PRINT..1160
000110: 20 50 52 49 4E 54 20 22 20 22 2C 22 43 4F 4E 46 PRINT " ","CONF
000120: 45 44 45 52 41 43 59 22 2C 22 20 55 4E 49 4F 4E EDERACY"," UNION
000130: 22 0D 0A 31 31 37 30 20 20 50 52 49 4E 54 20 22 "..1170 PRINT "
000140: 4D 45 4E 22 2C 22 20 22 4D 35 2C 22 20 22 4D 36 MEN"," "M5," "M6
000150: 0D 0A 31 31 38 30 20 20 50 52 49 4E 54 20 22 4D ..1180 PRINT "M
000160: 4F 4E 45 59 22 2C 22 24 22 3B 44 28 31 29 2C 22 ONEY","$";D(1),"
000170: 24 22 3B 44 28 32 29 0D 0A 31 31 39 30 20 20 50 $";D(2)..1190 P
000180: 52 49 4E 54 20 22 49 4E 46 4C 41 54 49 4F 4E 22 RINT "INFLATION"
000190: 2C 22 20 22 3B 49 31 2B 31 35 3B 22 25 22 2C 22 ," ";I1+15;"%","
0001A0: 20 22 3B 49 32 3B 22 25 22 0D 0A 31 31 39 35 20 ";I2;"%"..1195
0001B0: 20 50 52 49 4E 54 0D 0A 31 32 30 30 20 20 52 45 PRINT..1200 RE
0001C0: 4D 20 2D 20 4F 4E 4C 59 20 49 4E 20 50 52 49 4E M - ONLY IN PRIN
0001D0: 54 4F 55 54 20 49 53 20 43 4F 4E 46 45 44 20 49 TOUT IS CONFED I
0001E0: 4E 46 4C 41 54 49 4F 4E 20 3D 20 49 31 2B 31 35 NFLATION = I1+15
0001F0: 25 0D 0A 31 32 31 30 20 20 52 45 4D 20 2D 20 49 %..1210 REM - I
Size : 512 (Real : 512)
000000: 45 47 59 20 41 52 45 3A 22 0D 0A 33 32 30 20 20 EGY ARE:"..320
000010: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 28 PRINT " (
000020: 31 29 20 41 52 54 49 4C 4C 45 52 59 20 41 54 54 1) ARTILLERY ATT
000030: 41 43 4B 22 0D 0A 33 33 30 20 20 50 52 49 4E 54 ACK"..330 PRINT
000040: 20 22 20 20 20 20 20 20 20 20 28 32 29 20 46 52 " (2) FR
000050: 4F 4E 54 41 4C 20 41 54 54 41 43 4B 22 0D 0A 33 ONTAL ATTACK"..3
000060: 34 30 20 20 50 52 49 4E 54 20 22 20 20 20 20 20 40 PRINT "
000070: 20 20 20 28 33 29 20 46 4C 41 4E 4B 49 4E 47 20 (3) FLANKING
000080: 4D 41 4E 45 55 56 45 52 53 22 0D 0A 33 35 30 20 MANEUVERS"..350
000090: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
0000A0: 28 34 29 20 45 4E 43 49 52 43 4C 45 4D 45 4E 54 (4) ENCIRCLEMENT
0000B0: 22 0D 0A 33 36 30 20 20 50 52 49 4E 54 20 22 59 "..360 PRINT "Y
0000C0: 4F 55 20 4D 41 59 20 53 55 52 52 45 4E 44 45 52 OU MAY SURRENDER
0000D0: 20 42 59 20 54 59 50 49 4E 47 20 41 20 27 35 27 BY TYPING A '5'
0000E0: 20 46 4F 52 20 59 4F 55 52 20 53 54 52 41 54 45 FOR YOUR STRATE
0000F0: 47 59 2E 22 0D 0A 33 37 30 20 20 50 52 49 4E 54 GY."..370 PRINT
000100: 20 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 : PRINT : PRINT
000110: 20 3A 20 50 52 49 4E 54 20 22 41 52 45 20 54 48 : PRINT "ARE TH
000120: 45 52 45 20 54 57 4F 20 47 45 4E 45 52 41 4C 53 ERE TWO GENERALS
000130: 20 50 52 45 53 45 4E 54 20 22 3B 0D 0A 33 38 30 PRESENT ";..380
000140: 20 20 50 52 49 4E 54 20 22 28 41 4E 53 57 45 52 PRINT "(ANSWER
000150: 20 59 45 53 20 4F 52 20 4E 4F 29 22 3B 0D 0A 33 YES OR NO)";..3
000160: 39 30 20 20 49 4E 50 55 54 20 42 24 0D 0A 34 30 90 INPUT B$..40
000170: 30 20 20 49 46 20 42 24 3D 22 59 45 53 22 20 54 0 IF B$="YES" T
000180: 48 45 4E 20 34 33 30 0D 0A 34 31 30 20 20 49 46 HEN 430..410 IF
000190: 20 42 24 20 3C 3E 20 22 4E 4F 22 20 54 48 45 4E B$ <> "NO" THEN
0001A0: 20 33 38 30 0D 0A 34 32 30 20 20 50 52 49 4E 54 380..420 PRINT
0001B0: 20 3A 20 50 52 49 4E 54 20 22 59 4F 55 20 41 52 : PRINT "YOU AR
0001C0: 45 20 54 48 45 20 43 4F 4E 46 45 44 45 52 41 43 E THE CONFEDERAC
0001D0: 59 2E 20 20 20 47 4F 4F 44 20 4C 55 43 4B 21 22 Y. GOOD LUCK!"
0001E0: 0D 0A 34 32 35 20 20 50 52 49 4E 54 0D 0A 34 33 ..425 PRINT..43
0001F0: 30 20 20 4C 45 54 20 44 3D 31 0D 0A 34 34 30 20 0 LET D=1..440
Size : 512 (Real : 512)
000000: 46 20 54 57 4F 20 47 45 4E 45 52 41 4C 53 2C 20 F TWO GENERALS,
000010: 49 4E 50 55 54 20 43 4F 4E 46 45 44 2E 20 46 49 INPUT CONFED. FI
000020: 52 53 54 0D 0A 31 32 32 30 20 20 46 4F 52 20 49 RST..1220 FOR I
000030: 3D 31 20 54 4F 20 44 0D 0A 31 32 33 30 20 20 49 =1 TO D..1230 I
000040: 46 20 42 24 20 3C 3E 20 22 59 45 53 22 20 54 48 F B$ <> "YES" TH
000050: 45 4E 20 31 32 36 30 0D 0A 31 32 34 30 20 20 49 EN 1260..1240 I
000060: 46 20 49 3D 32 20 54 48 45 4E 20 31 32 36 30 0D F I=2 THEN 1260.
000070: 0A 31 32 35 30 20 20 50 52 49 4E 54 20 22 43 4F .1250 PRINT "CO
000080: 4E 46 45 44 45 52 41 54 45 20 47 45 4E 45 52 41 NFEDERATE GENERA
000090: 4C 2D 2D 2D 22 3B 0D 0A 31 32 36 30 20 20 50 52 L---";..1260 PR
0000A0: 49 4E 54 20 22 48 4F 57 20 4D 55 43 48 20 44 4F INT "HOW MUCH DO
0000B0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 53 50 45 YOU WISH TO SPE
0000C0: 4E 44 20 46 4F 52 22 0D 0A 31 32 37 30 20 20 50 ND FOR"..1270 P
0000D0: 52 49 4E 54 20 22 20 2D 20 46 4F 4F 44 2E 2E 2E RINT " - FOOD...
0000E0: 2E 2E 2E 22 3B 0D 0A 31 32 38 30 20 20 49 4E 50 ...";..1280 INP
0000F0: 55 54 20 46 0D 0A 31 32 39 30 20 20 49 46 20 46 UT F..1290 IF F
000100: 20 3E 3D 20 30 20 54 48 45 4E 20 31 33 36 30 0D >= 0 THEN 1360.
000110: 0A 31 33 30 30 20 20 49 46 20 52 31 20 3C 3E 20 .1300 IF R1 <>
000120: 30 20 54 48 45 4E 20 31 33 33 30 0D 0A 31 33 31 0 THEN 1330..131
000130: 30 20 20 50 52 49 4E 54 20 22 4E 4F 20 50 52 45 0 PRINT "NO PRE
000140: 56 49 4F 55 53 20 45 4E 54 52 49 45 53 22 0D 0A VIOUS ENTRIES"..
000150: 31 33 32 30 20 20 47 4F 54 4F 20 31 32 37 30 0D 1320 GOTO 1270.
000160: 0A 31 33 33 30 20 20 50 52 49 4E 54 20 22 41 53 .1330 PRINT "AS
000170: 53 55 4D 45 20 59 4F 55 20 57 41 4E 54 20 54 4F SUME YOU WANT TO
000180: 20 4B 45 45 50 20 53 41 4D 45 20 41 4C 4C 4F 43 KEEP SAME ALLOC
000190: 41 54 49 4F 4E 53 22 0D 0A 31 33 34 30 20 20 50 ATIONS"..1340 P
0001A0: 52 49 4E 54 0D 0A 31 33 35 30 20 20 47 4F 54 4F RINT..1350 GOTO
0001B0: 20 31 35 31 30 0D 0A 31 33 36 30 20 20 4C 45 54 1510..1360 LET
0001C0: 20 46 28 49 29 3D 46 0D 0A 31 33 37 30 20 20 50 F(I)=F..1370 P
0001D0: 52 49 4E 54 20 22 20 2D 20 53 41 4C 41 52 49 45 RINT " - SALARIE
0001E0: 53 2E 2E 22 3B 0D 0A 31 33 38 30 20 20 49 4E 50 S..";..1380 INP
0001F0: 55 54 20 48 28 49 29 0D 0A 31 33 39 30 20 20 4C UT H(I)..1390 L
Size : 512 (Real : 512)
000000: 20 49 46 20 42 24 20 3C 3E 20 22 59 45 53 22 20 IF B$ <> "YES"
000010: 54 48 45 4E 20 34 36 30 0D 0A 34 35 30 20 20 4C THEN 460..450 L
000020: 45 54 20 44 3D 32 0D 0A 34 36 30 20 20 50 52 49 ET D=2..460 PRI
000030: 4E 54 20 22 53 45 4C 45 43 54 20 41 20 42 41 54 NT "SELECT A BAT
000040: 54 4C 45 20 42 59 20 54 59 50 49 4E 47 20 41 20 TLE BY TYPING A
000050: 4E 55 4D 42 45 52 20 46 52 4F 4D 20 31 20 54 4F NUMBER FROM 1 TO
000060: 20 31 34 20 4F 4E 22 0D 0A 34 37 30 20 20 50 52 14 ON"..470 PR
000070: 49 4E 54 20 22 52 45 51 55 45 53 54 2E 20 20 54 INT "REQUEST. T
000080: 59 50 45 20 41 4E 59 20 4F 54 48 45 52 20 4E 55 YPE ANY OTHER NU
000090: 4D 42 45 52 20 54 4F 20 45 4E 44 20 54 48 45 20 MBER TO END THE
0000A0: 53 49 4D 55 4C 41 54 49 4F 4E 2E 22 0D 0A 34 38 SIMULATION."..48
0000B0: 30 20 20 50 52 49 4E 54 20 22 42 55 54 20 27 30 0 PRINT "BUT '0
0000C0: 27 20 42 52 49 4E 47 53 20 42 41 43 4B 20 45 58 ' BRINGS BACK EX
0000D0: 41 43 54 20 50 52 45 56 49 4F 55 53 20 42 41 54 ACT PREVIOUS BAT
0000E0: 54 4C 45 20 53 49 54 55 41 54 49 4F 4E 22 0D 0A TLE SITUATION"..
0000F0: 34 39 30 20 20 50 52 49 4E 54 20 22 41 4C 4C 4F 490 PRINT "ALLO
000100: 57 49 4E 47 20 59 4F 55 20 54 4F 20 52 45 50 4C WING YOU TO REPL
000110: 41 59 20 49 54 22 0D 0A 35 30 30 20 20 50 52 49 AY IT"..500 PRI
000120: 4E 54 0D 0A 35 31 30 20 20 50 52 49 4E 54 20 22 NT..510 PRINT "
000130: 4E 4F 54 45 3A 20 41 20 4E 45 47 41 54 49 56 45 NOTE: A NEGATIVE
000140: 20 46 4F 4F 44 24 20 45 4E 54 52 59 20 43 41 55 FOOD$ ENTRY CAU
000150: 53 45 53 20 54 48 45 20 50 52 4F 47 52 41 4D 20 SES THE PROGRAM
000160: 54 4F 20 22 0D 0A 35 32 30 20 20 50 52 49 4E 54 TO "..520 PRINT
000170: 20 22 55 53 45 20 54 48 45 20 45 4E 54 52 49 45 "USE THE ENTRIE
000180: 53 20 46 52 4F 4D 20 54 48 45 20 50 52 45 56 49 S FROM THE PREVI
000190: 4F 55 53 20 42 41 54 54 4C 45 22 0D 0A 35 33 30 OUS BATTLE"..530
0001A0: 20 20 50 52 49 4E 54 0D 0A 35 34 30 20 20 50 52 PRINT..540 PR
0001B0: 49 4E 54 20 22 41 46 54 45 52 20 52 45 51 55 45 INT "AFTER REQUE
0001C0: 53 54 49 4E 47 20 41 20 42 41 54 54 4C 45 2C 20 STING A BATTLE,
0001D0: 44 4F 20 59 4F 55 20 57 49 53 48 20 22 3B 0D 0A DO YOU WISH ";..
0001E0: 35 35 30 20 20 50 52 49 4E 54 20 22 42 41 54 54 550 PRINT "BATT
0001F0: 4C 45 20 44 45 53 43 52 49 50 54 49 4F 4E 53 20 LE DESCRIPTIONS
Size : 512 (Real : 512)
000000: 45 54 20 4E 3D 31 0D 0A 31 34 30 30 20 20 49 46 ET N=1..1400 IF
000010: 20 48 28 49 29 3C 30 20 54 48 45 4E 20 31 34 39 H(I)<0 THEN 149
000020: 30 0D 0A 31 34 31 30 20 20 50 52 49 4E 54 20 22 0..1410 PRINT "
000030: 20 2D 20 41 4D 4D 55 4E 49 54 49 4F 4E 22 3B 0D - AMMUNITION";.
000040: 0A 31 34 32 30 20 20 49 4E 50 55 54 20 42 28 49 .1420 INPUT B(I
000050: 29 0D 0A 31 34 33 30 20 20 4C 45 54 20 4E 3D 32 )..1430 LET N=2
000060: 0D 0A 31 34 34 30 20 20 49 46 20 42 28 49 29 3C ..1440 IF B(I)<
000070: 30 20 54 48 45 4E 20 31 34 39 30 0D 0A 31 34 35 0 THEN 1490..145
000080: 30 20 20 50 52 49 4E 54 0D 0A 31 34 36 30 20 20 0 PRINT..1460
000090: 49 46 20 46 28 49 29 2B 48 28 49 29 2B 42 28 49 IF F(I)+H(I)+B(I
0000A0: 29 20 3C 3D 20 44 28 49 29 20 54 48 45 4E 20 31 ) <= D(I) THEN 1
0000B0: 35 31 30 0D 0A 31 34 37 30 20 20 50 52 49 4E 54 510..1470 PRINT
0000C0: 20 22 54 48 49 4E 4B 20 41 47 41 49 4E 21 20 59 "THINK AGAIN! Y
0000D0: 4F 55 20 48 41 56 45 20 4F 4E 4C 59 20 24 22 44 OU HAVE ONLY $"D
0000E0: 28 49 29 0D 0A 31 34 38 30 20 20 47 4F 54 4F 20 (I)..1480 GOTO
0000F0: 31 32 37 30 0D 0A 31 34 39 30 20 20 50 52 49 4E 1270..1490 PRIN
000100: 54 20 22 4E 45 47 41 54 49 56 45 20 56 41 4C 55 T "NEGATIVE VALU
000110: 45 53 20 4E 4F 54 20 41 4C 4C 4F 57 45 44 2E 22 ES NOT ALLOWED."
000120: 0D 0A 31 35 30 30 20 20 4F 4E 20 4E 20 47 4F 54 ..1500 ON N GOT
000130: 4F 20 31 33 37 30 2C 31 34 31 30 0D 0A 31 35 31 O 1370,1410..151
000140: 30 20 20 49 46 20 42 24 20 3C 3E 20 22 59 45 53 0 IF B$ <> "YES
000150: 22 20 54 48 45 4E 20 31 35 35 30 0D 0A 31 35 32 " THEN 1550..152
000160: 30 20 20 49 46 20 49 3D 32 20 54 48 45 4E 20 31 0 IF I=2 THEN 1
000170: 35 35 30 0D 0A 31 35 33 30 20 20 50 52 49 4E 54 550..1530 PRINT
000180: 20 22 55 4E 49 4F 4E 20 47 45 4E 45 52 41 4C 2D "UNION GENERAL-
000190: 2D 2D 22 3B 0D 0A 31 35 34 30 20 20 4E 45 58 54 --";..1540 NEXT
0001A0: 20 49 0D 0A 31 35 35 30 20 20 46 4F 52 20 5A 3D I..1550 FOR Z=
0001B0: 31 20 54 4F 20 44 0D 0A 31 35 36 30 20 20 49 46 1 TO D..1560 IF
0001C0: 20 42 24 20 3C 3E 20 22 59 45 53 22 20 54 48 45 B$ <> "YES" THE
0001D0: 4E 20 31 36 32 30 0D 0A 31 35 37 30 20 20 4F 4E N 1620..1570 ON
0001E0: 20 5A 20 47 4F 54 4F 20 31 35 38 30 2C 31 36 30 Z GOTO 1580,160
0001F0: 30 0D 0A 31 35 38 30 20 20 50 52 49 4E 54 20 22 0..1580 PRINT "
Size : 512 (Real : 512)
000000: 22 3B 0D 0A 35 36 30 20 20 50 52 49 4E 54 20 22 ";..560 PRINT "
000010: 28 41 4E 53 57 45 52 20 59 45 53 20 4F 52 20 4E (ANSWER YES OR N
000020: 4F 29 22 3B 0D 0A 35 37 30 20 20 49 4E 50 55 54 O)";..570 INPUT
000030: 20 58 24 0D 0A 35 38 30 20 20 49 46 20 58 24 3D X$..580 IF X$=
000040: 22 59 45 53 22 20 54 48 45 4E 20 36 30 30 0D 0A "YES" THEN 600..
000050: 35 39 30 20 20 49 46 20 58 24 20 3C 3E 20 22 4E 590 IF X$ <> "N
000060: 4F 22 20 54 48 45 4E 20 35 36 30 0D 0A 36 30 30 O" THEN 560..600
000070: 20 20 4C 3D 30 3A 57 3D 30 3A 52 31 3D 30 3A 51 L=0:W=0:R1=0:Q
000080: 31 3D 30 3A 4D 33 3D 30 3A 4D 34 3D 30 3A 50 31 1=0:M3=0:M4=0:P1
000090: 3D 30 3A 50 32 3D 30 3A 54 31 3D 30 3A 54 32 3D =0:P2=0:T1=0:T2=
0000A0: 30 0D 0A 36 31 30 20 20 46 28 32 29 3D 30 3A 48 0..610 F(2)=0:H
0000B0: 28 32 29 3D 30 3A 42 28 32 29 3D 30 3A 52 32 3D (2)=0:B(2)=0:R2=
0000C0: 30 3A 51 32 3D 30 3A 43 36 3D 30 3A 46 3D 30 3A 0:Q2=0:C6=0:F=0:
0000D0: 57 30 3D 30 3A 59 3D 30 3A 59 32 3D 30 3A 55 3D W0=0:Y=0:Y2=0:U=
0000E0: 30 3A 55 32 3D 30 0D 0A 36 32 30 20 20 50 52 49 0:U2=0..620 PRI
0000F0: 4E 54 20 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 NT : PRINT : PRI
000100: 4E 54 0D 0A 36 33 30 20 20 50 52 49 4E 54 20 22 NT..630 PRINT "
000110: 57 48 49 43 48 20 42 41 54 54 4C 45 20 44 4F 20 WHICH BATTLE DO
000120: 59 4F 55 20 57 49 53 48 20 54 4F 20 53 49 4D 55 YOU WISH TO SIMU
000130: 4C 41 54 45 22 3B 0D 0A 36 34 30 20 20 49 4E 50 LATE";..640 INP
000140: 55 54 20 41 0D 0A 36 35 30 20 20 49 46 20 41 20 UT A..650 IF A
000150: 3C 3E 20 30 20 54 48 45 4E 20 36 36 30 0D 0A 36 <> 0 THEN 660..6
000160: 35 35 20 20 49 46 20 52 20 3C 3E 20 30 20 54 48 55 IF R <> 0 TH
000170: 45 4E 20 31 31 34 30 0D 0A 36 36 30 20 20 49 46 EN 1140..660 IF
000180: 20 41 20 3C 3D 30 20 54 48 45 4E 20 32 38 36 30 A <=0 THEN 2860
000190: 0D 0A 36 36 35 20 20 49 46 20 41 20 3E 3D 20 31 ..665 IF A >= 1
0001A0: 35 20 54 48 45 4E 20 32 38 36 30 0D 0A 36 37 30 5 THEN 2860..670
0001B0: 20 20 4C 45 54 20 43 24 3D 43 24 28 41 29 0D 0A LET C$=C$(A)..
0001C0: 36 38 30 20 20 4C 45 54 20 4D 31 3D 4D 31 28 41 680 LET M1=M1(A
0001D0: 29 0D 0A 36 39 30 20 20 4C 45 54 20 4D 32 3D 4D )..690 LET M2=M
0001E0: 32 28 41 29 0D 0A 37 30 30 20 20 4C 45 54 20 43 2(A)..700 LET C
0001F0: 31 3D 43 31 28 41 29 0D 0A 37 31 30 20 20 4C 45 1=C1(A)..710 LE
Size : 512 (Real : 512)
000000: 43 4F 4E 46 45 44 45 52 41 54 45 20 22 3B 0D 0A CONFEDERATE ";..
000010: 31 35 39 30 20 20 47 4F 54 4F 20 31 36 32 30 0D 1590 GOTO 1620.
000020: 0A 31 36 30 30 20 20 50 52 49 4E 54 20 22 20 20 .1600 PRINT "
000030: 20 20 20 20 55 4E 49 4F 4E 20 22 3B 0D 0A 31 36 UNION ";..16
000040: 31 30 20 20 52 45 4D 20 2D 20 46 49 4E 44 20 4D 10 REM - FIND M
000050: 4F 52 41 4C 45 0D 0A 31 36 32 30 20 20 4C 45 54 ORALE..1620 LET
000060: 20 4F 3D 28 28 32 2A 46 28 5A 29 5E 32 2B 48 28 O=((2*F(Z)^2+H(
000070: 5A 29 5E 32 29 2F 46 31 5E 32 2B 31 29 0D 0A 31 Z)^2)/F1^2+1)..1
000080: 36 33 30 20 20 49 46 20 4F 3C 31 30 20 54 48 45 630 IF O<10 THE
000090: 4E 20 31 36 36 30 0D 0A 31 36 34 30 20 20 50 52 N 1660..1640 PR
0000A0: 49 4E 54 20 22 4D 4F 52 41 4C 45 20 49 53 20 48 INT "MORALE IS H
0000B0: 49 47 48 22 0D 0A 31 36 35 30 20 20 47 4F 54 4F IGH"..1650 GOTO
0000C0: 20 31 37 30 30 0D 0A 31 36 36 30 20 20 49 46 20 1700..1660 IF
0000D0: 4F 3C 35 20 54 48 45 4E 20 31 36 39 30 0D 0A 31 O<5 THEN 1690..1
0000E0: 36 37 30 20 20 50 52 49 4E 54 20 22 4D 4F 52 41 670 PRINT "MORA
0000F0: 4C 45 20 49 53 20 46 41 49 52 22 0D 0A 31 36 38 LE IS FAIR"..168
000100: 30 20 20 47 4F 54 4F 20 31 37 30 30 0D 0A 31 36 0 GOTO 1700..16
000110: 39 30 20 20 50 52 49 4E 54 20 22 4D 4F 52 41 4C 90 PRINT "MORAL
000120: 45 20 49 53 20 50 4F 4F 52 22 0D 0A 31 37 30 30 E IS POOR"..1700
000130: 20 20 49 46 20 42 24 20 3C 3E 20 22 59 45 53 22 IF B$ <> "YES"
000140: 20 54 48 45 4E 20 31 37 36 30 0D 0A 31 37 31 30 THEN 1760..1710
000150: 20 20 4C 45 54 20 4F 28 5A 29 3D 4F 0D 0A 31 37 LET O(Z)=O..17
000160: 32 30 20 20 4E 45 58 54 20 5A 0D 0A 31 37 33 30 20 NEXT Z..1730
000170: 20 20 4C 45 54 20 4F 32 3D 4F 28 32 29 0D 0A 31 LET O2=O(2)..1
000180: 37 34 30 20 20 4C 45 54 20 4F 3D 4F 28 31 29 0D 740 LET O=O(1).
000190: 0A 31 37 35 30 20 20 50 52 49 4E 54 20 22 43 4F .1750 PRINT "CO
0001A0: 4E 46 45 44 45 52 41 54 45 20 47 45 4E 45 52 41 NFEDERATE GENERA
0001B0: 4C 2D 2D 2D 22 3B 0D 0A 31 37 36 30 20 20 52 45 L---";..1760 RE
0001C0: 4D 20 2D 20 41 43 54 55 41 4C 20 4F 46 46 2F 44 M - ACTUAL OFF/D
0001D0: 45 46 20 42 41 54 54 4C 45 20 53 49 54 55 41 54 EF BATTLE SITUAT
0001E0: 49 4F 4E 0D 0A 31 37 37 30 20 20 49 46 20 4D 20 ION..1770 IF M
0001F0: 3C 3E 20 33 20 54 48 45 4E 20 31 38 30 30 0D 0A <> 3 THEN 1800..
Size : 512 (Real : 512)
000000: 54 20 43 32 3D 43 32 28 41 29 0D 0A 37 32 30 20 T C2=C2(A)..720
000010: 20 4C 45 54 20 4D 3D 4D 28 41 29 0D 0A 39 36 30 LET M=M(A)..960
000020: 20 20 4C 45 54 20 55 3D 30 0D 0A 39 37 30 20 20 LET U=0..970
000030: 52 45 4D 20 20 49 4E 46 4C 41 54 49 4F 4E 20 43 REM INFLATION C
000040: 41 4C 43 0D 0A 39 38 30 20 20 4C 45 54 20 49 31 ALC..980 LET I1
000050: 3D 31 30 2B 28 4C 2D 57 29 2A 32 0D 0A 39 39 30 =10+(L-W)*2..990
000060: 20 20 4C 45 54 20 49 32 3D 31 30 2B 28 57 2D 4C LET I2=10+(W-L
000070: 29 2A 32 0D 0A 31 30 30 30 20 20 52 45 4D 20 2D )*2..1000 REM -
000080: 20 4D 4F 4E 45 59 20 41 56 41 49 4C 41 42 4C 45 MONEY AVAILABLE
000090: 0D 0A 31 30 31 30 20 20 4C 45 54 20 44 28 31 29 ..1010 LET D(1)
0000A0: 3D 31 30 30 2A 49 4E 54 28 28 4D 31 2A 28 31 30 =100*INT((M1*(10
0000B0: 30 2D 49 31 29 2F 32 30 30 30 29 2A 28 31 2B 28 0-I1)/2000)*(1+(
0000C0: 52 31 2D 51 31 29 2F 28 52 31 2B 31 29 29 2B 2E R1-Q1)/(R1+1))+.
0000D0: 35 29 0D 0A 31 30 32 30 20 20 4C 45 54 20 44 28 5)..1020 LET D(
0000E0: 32 29 3D 31 30 30 2A 49 4E 54 28 4D 32 2A 28 31 2)=100*INT(M2*(1
0000F0: 30 30 2D 49 32 29 2F 32 30 30 30 2B 2E 35 29 0D 00-I2)/2000+.5).
000100: 0A 31 30 33 30 20 20 49 46 20 42 24 20 3C 3E 20 .1030 IF B$ <>
000110: 22 59 45 53 22 20 54 48 45 4E 20 31 30 35 30 0D "YES" THEN 1050.
000120: 0A 31 30 34 30 20 20 4C 45 54 20 44 28 32 29 3D .1040 LET D(2)=
000130: 31 30 30 2A 49 4E 54 28 28 4D 32 2A 28 31 30 30 100*INT((M2*(100
000140: 2D 49 32 29 2F 32 30 30 30 29 2A 28 31 2B 28 52 -I2)/2000)*(1+(R
000150: 32 2D 51 32 29 2F 28 52 32 2B 31 29 29 2B 2E 35 2-Q2)/(R2+1))+.5
000160: 29 0D 0A 31 30 35 30 20 20 52 45 4D 20 2D 20 4D )..1050 REM - M
000170: 45 4E 20 20 20 41 56 41 49 4C 41 42 4C 45 0D 0A EN AVAILABLE..
000180: 31 30 36 30 20 20 4C 45 54 20 4D 35 3D 49 4E 54 1060 LET M5=INT
000190: 28 4D 31 2A 28 31 2B 28 50 31 2D 54 31 29 2F 28 (M1*(1+(P1-T1)/(
0001A0: 4D 33 2B 31 29 29 29 0D 0A 31 30 37 30 20 20 4C M3+1)))..1070 L
0001B0: 45 54 20 4D 36 3D 49 4E 54 28 4D 32 2A 28 31 2B ET M6=INT(M2*(1+
0001C0: 28 50 32 2D 54 32 29 2F 28 4D 34 2B 31 29 29 29 (P2-T2)/(M4+1)))
0001D0: 0D 0A 31 30 38 30 20 20 4C 45 54 20 46 31 3D 35 ..1080 LET F1=5
0001E0: 2A 4D 31 2F 36 0D 0A 31 30 39 30 20 20 50 52 49 *M1/6..1090 PRI
0001F0: 4E 54 20 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 NT : PRINT : PRI
Size : 512 (Real : 512)
000000: 31 37 38 30 20 20 50 52 49 4E 54 20 22 59 4F 55 1780 PRINT "YOU
000010: 20 41 52 45 20 4F 4E 20 54 48 45 20 4F 46 46 45 ARE ON THE OFFE
000020: 4E 53 49 56 45 22 0D 0A 31 37 39 30 20 20 47 4F NSIVE"..1790 GO
000030: 54 4F 20 31 38 34 30 0D 0A 31 38 30 30 20 20 49 TO 1840..1800 I
000040: 46 20 4D 20 3C 3E 20 31 20 54 48 45 4E 20 31 38 F M <> 1 THEN 18
000050: 33 30 0D 0A 31 38 31 30 20 20 50 52 49 4E 54 20 30..1810 PRINT
000060: 22 59 4F 55 20 41 52 45 20 4F 4E 20 54 48 45 20 "YOU ARE ON THE
000070: 44 45 46 45 4E 53 49 56 45 22 0D 0A 31 38 32 30 DEFENSIVE"..1820
000080: 20 20 47 4F 54 4F 20 31 38 34 30 0D 0A 31 38 33 GOTO 1840..183
000090: 30 20 20 50 52 49 4E 54 20 22 42 4F 54 48 20 53 0 PRINT "BOTH S
0000A0: 49 44 45 53 20 41 52 45 20 4F 4E 20 54 48 45 20 IDES ARE ON THE
0000B0: 4F 46 46 45 4E 53 49 56 45 20 22 0D 0A 31 38 34 OFFENSIVE "..184
0000C0: 30 20 20 50 52 49 4E 54 0D 0A 31 38 35 30 20 20 0 PRINT..1850
0000D0: 52 45 4D 20 2D 20 43 48 4F 4F 53 45 20 53 54 52 REM - CHOOSE STR
0000E0: 41 54 45 47 49 45 53 0D 0A 31 38 36 30 20 20 49 ATEGIES..1860 I
0000F0: 46 20 42 24 20 3C 3E 20 22 59 45 53 22 20 54 48 F B$ <> "YES" TH
000100: 45 4E 20 31 39 31 30 0D 0A 31 38 37 30 20 20 46 EN 1910..1870 F
000110: 4F 52 20 49 3D 31 20 54 4F 20 32 0D 0A 31 38 38 OR I=1 TO 2..188
000120: 30 20 20 4F 4E 20 49 20 47 4F 54 4F 20 31 38 39 0 ON I GOTO 189
000130: 30 2C 31 39 32 30 0D 0A 31 38 39 30 20 20 50 52 0,1920..1890 PR
000140: 49 4E 54 20 22 43 4F 4E 46 45 44 45 52 41 54 45 INT "CONFEDERATE
000150: 20 53 54 52 41 54 45 47 59 20 22 3B 0D 0A 31 39 STRATEGY ";..19
000160: 30 30 20 20 47 4F 54 4F 20 31 39 32 30 0D 0A 31 00 GOTO 1920..1
000170: 39 31 30 20 20 50 52 49 4E 54 20 22 59 4F 55 52 910 PRINT "YOUR
000180: 20 53 54 52 41 54 45 47 59 20 22 3B 0D 0A 31 39 STRATEGY ";..19
000190: 32 30 20 20 49 4E 50 55 54 20 59 0D 0A 31 39 33 20 INPUT Y..193
0001A0: 30 20 20 49 46 20 41 42 53 28 59 2D 33 29 3C 33 0 IF ABS(Y-3)<3
0001B0: 20 54 48 45 4E 20 31 39 36 30 0D 0A 31 39 34 30 THEN 1960..1940
0001C0: 20 20 50 52 49 4E 54 20 22 53 54 52 41 54 45 47 PRINT "STRATEG
0001D0: 59 22 3B 59 3B 22 4E 4F 54 20 41 4C 4C 4F 57 45 Y";Y;"NOT ALLOWE
0001E0: 44 2E 22 0D 0A 31 39 35 30 20 20 47 4F 54 4F 20 D."..1950 GOTO
0001F0: 31 39 31 30 0D 0A 31 39 36 30 20 20 49 46 20 42 1910..1960 IF B
Size : 512 (Real : 512)
000000: 20 20 52 45 4D 20 2D 20 43 55 4D 55 4C 41 54 49 REM - CUMULATI
000010: 56 45 20 42 41 54 54 4C 45 20 46 41 43 54 4F 52 VE BATTLE FACTOR
000020: 53 20 57 48 49 43 48 20 41 4C 54 45 52 20 48 49 S WHICH ALTER HI
000030: 53 54 4F 52 49 43 41 4C 0D 0A 32 36 35 30 20 20 STORICAL..2650
000040: 52 45 4D 20 20 52 45 53 4F 55 52 43 45 53 20 41 REM RESOURCES A
000050: 56 41 49 4C 41 42 4C 45 2E 49 46 20 41 20 52 45 VAILABLE.IF A RE
000060: 50 4C 41 59 20 44 4F 4E 27 54 20 55 50 44 41 54 PLAY DON'T UPDAT
000070: 45 2E 0D 0A 32 36 36 30 20 20 49 46 20 41 3D 30 E...2660 IF A=0
000080: 20 54 48 45 4E 20 32 37 39 30 0D 0A 32 36 37 30 THEN 2790..2670
000090: 20 20 4C 45 54 20 57 3D 57 2B 31 0D 0A 32 36 38 LET W=W+1..268
0000A0: 30 20 20 4C 45 54 20 54 31 3D 54 31 2B 43 35 2B 0 LET T1=T1+C5+
0000B0: 45 0D 0A 32 36 39 30 20 20 4C 45 54 20 54 32 3D E..2690 LET T2=
0000C0: 54 32 2B 43 36 2B 45 32 0D 0A 32 37 30 30 20 20 T2+C6+E2..2700
0000D0: 4C 45 54 20 50 31 3D 50 31 2B 43 31 0D 0A 32 37 LET P1=P1+C1..27
0000E0: 31 30 20 20 4C 45 54 20 50 32 3D 50 32 2B 43 32 10 LET P2=P2+C2
0000F0: 0D 0A 32 37 32 30 20 20 4C 45 54 20 51 31 3D 51 ..2720 LET Q1=Q
000100: 31 2B 28 46 28 31 29 2B 48 28 31 29 2B 42 28 31 1+(F(1)+H(1)+B(1
000110: 29 29 0D 0A 32 37 33 30 20 20 4C 45 54 20 51 32 ))..2730 LET Q2
000120: 3D 51 32 2B 28 46 28 32 29 2B 48 28 32 29 2B 42 =Q2+(F(2)+H(2)+B
000130: 28 32 29 29 0D 0A 32 37 34 30 20 20 4C 45 54 20 (2))..2740 LET
000140: 52 31 3D 52 31 2B 4D 31 2A 28 31 30 30 2D 49 31 R1=R1+M1*(100-I1
000150: 29 2F 32 30 0D 0A 32 37 35 30 20 20 4C 45 54 20 )/20..2750 LET
000160: 52 32 3D 52 32 2B 4D 32 2A 28 31 30 30 2D 49 32 R2=R2+M2*(100-I2
000170: 29 2F 32 30 0D 0A 32 37 36 30 20 20 4C 45 54 20 )/20..2760 LET
000180: 4D 33 3D 4D 33 2B 4D 31 0D 0A 32 37 37 30 20 20 M3=M3+M1..2770
000190: 4C 45 54 20 4D 34 3D 4D 34 2B 4D 32 0D 0A 32 37 LET M4=M4+M2..27
0001A0: 38 30 20 20 47 4F 53 55 42 20 33 33 30 30 0D 0A 80 GOSUB 3300..
0001B0: 32 37 39 30 20 20 55 3D 30 3A 55 32 3D 30 0D 0A 2790 U=0:U2=0..
0001C0: 32 38 30 30 20 20 50 52 49 4E 54 20 22 2D 2D 2D 2800 PRINT "---
0001D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 32 ------------"..2
0001E0: 38 31 30 20 20 47 4F 54 4F 20 36 32 30 0D 0A 32 810 GOTO 620..2
0001F0: 38 32 30 20 20 52 45 4D 2D 2D 2D 2D 2D 2D 46 49 820 REM------FI
Size : 512 (Real : 512)
000000: 24 3D 22 59 45 53 22 20 54 48 45 4E 20 32 30 30 $="YES" THEN 200
000010: 30 0D 0A 31 39 37 30 20 20 49 46 20 59 3D 35 20 0..1970 IF Y=5
000020: 54 48 45 4E 20 32 38 33 30 0D 0A 31 39 38 30 20 THEN 2830..1980
000030: 20 47 4F 53 55 42 20 33 31 31 30 0D 0A 31 39 39 GOSUB 3110..199
000040: 30 20 20 47 4F 54 4F 20 32 31 37 30 0D 0A 32 30 0 GOTO 2170..20
000050: 30 30 20 20 49 46 20 49 3D 32 20 54 48 45 4E 20 00 IF I=2 THEN
000060: 32 30 34 30 0D 0A 32 30 31 30 20 20 4C 45 54 20 2040..2010 LET
000070: 59 31 3D 59 0D 0A 32 30 32 30 20 20 50 52 49 4E Y1=Y..2020 PRIN
000080: 54 20 22 55 4E 49 4F 4E 20 53 54 52 41 54 45 47 T "UNION STRATEG
000090: 59 20 22 3B 0D 0A 32 30 33 30 20 20 4E 45 58 54 Y ";..2030 NEXT
0000A0: 20 49 0D 0A 32 30 34 30 20 20 4C 45 54 20 59 32 I..2040 LET Y2
0000B0: 3D 59 0D 0A 32 30 35 30 20 20 4C 45 54 20 59 3D =Y..2050 LET Y=
0000C0: 59 31 0D 0A 32 30 36 30 20 20 49 46 20 59 32 3D Y1..2060 IF Y2=
0000D0: 35 20 54 48 45 4E 20 32 30 32 30 0D 0A 32 30 37 5 THEN 2020..207
0000E0: 30 20 20 52 45 4D 20 3A 20 53 49 4D 55 4C 41 54 0 REM : SIMULAT
0000F0: 45 44 20 4C 4F 53 53 45 53 2D 4E 4F 52 54 48 0D ED LOSSES-NORTH.
000100: 0A 32 30 38 30 20 20 4C 45 54 20 43 36 3D 28 32 .2080 LET C6=(2
000110: 2A 43 32 2F 35 29 2A 28 31 2B 31 2F 28 32 2A 28 *C2/5)*(1+1/(2*(
000120: 41 42 53 28 59 32 2D 59 29 2B 31 29 29 29 0D 0A ABS(Y2-Y)+1)))..
000130: 32 30 39 30 20 20 4C 45 54 20 43 36 3D 43 36 2A 2090 LET C6=C6*
000140: 28 31 2E 32 38 2B 28 35 2A 4D 32 2F 36 29 2F 28 (1.28+(5*M2/6)/(
000150: 42 28 32 29 2B 31 29 29 0D 0A 32 31 30 30 20 20 B(2)+1))..2100
000160: 4C 45 54 20 43 36 3D 49 4E 54 28 43 36 2A 28 31 LET C6=INT(C6*(1
000170: 2B 31 2F 4F 32 29 2B 2E 35 29 0D 0A 32 31 31 30 +1/O2)+.5)..2110
000180: 20 20 52 45 4D 20 2D 20 49 46 20 4C 4F 53 53 20 REM - IF LOSS
000190: 3E 20 4D 45 4E 20 50 52 45 53 45 4E 54 2C 20 52 > MEN PRESENT, R
0001A0: 45 53 43 41 4C 45 20 4C 4F 53 53 45 53 0D 0A 32 ESCALE LOSSES..2
0001B0: 31 32 30 20 20 4C 45 54 20 45 32 3D 31 30 30 2F 120 LET E2=100/
0001C0: 4F 32 0D 0A 32 31 33 30 20 20 49 46 20 49 4E 54 O2..2130 IF INT
0001D0: 28 43 36 2B 45 32 29 3C 4D 36 20 54 48 45 4E 20 (C6+E2)<M6 THEN
0001E0: 32 31 39 30 0D 0A 32 31 34 30 20 20 4C 45 54 20 2190..2140 LET
0001F0: 43 36 3D 49 4E 54 28 31 33 2A 4D 36 2F 32 30 29 C6=INT(13*M6/20)
Size : 512 (Real : 512)
000000: 4E 49 53 48 20 4F 46 46 0D 0A 32 38 33 30 20 20 NISH OFF..2830
000010: 50 52 49 4E 54 20 22 54 48 45 20 43 4F 4E 46 45 PRINT "THE CONFE
000020: 44 45 52 41 43 59 20 48 41 53 20 53 55 52 52 45 DERACY HAS SURRE
000030: 4E 44 45 52 45 44 22 0D 0A 32 38 34 30 20 20 47 NDERED"..2840 G
000040: 4F 54 4F 20 32 38 36 30 0D 0A 32 38 35 30 20 20 OTO 2860..2850
000050: 50 52 49 4E 54 20 22 54 48 45 20 55 4E 49 4F 4E PRINT "THE UNION
000060: 20 48 41 53 20 53 55 52 52 45 4E 44 45 52 45 44 HAS SURRENDERED
000070: 2E 22 0D 0A 32 38 36 30 20 20 50 52 49 4E 54 20 ."..2860 PRINT
000080: 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 20 : PRINT : PRINT
000090: 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 20 : PRINT : PRINT
0000A0: 3A 20 50 52 49 4E 54 0D 0A 32 38 37 30 20 20 50 : PRINT..2870 P
0000B0: 52 49 4E 54 20 22 54 48 45 20 43 4F 4E 46 45 44 RINT "THE CONFED
0000C0: 45 52 41 43 59 20 22 3B 0D 0A 32 38 38 30 20 20 ERACY ";..2880
0000D0: 50 52 49 4E 54 20 22 48 41 53 20 57 4F 4E 20 22 PRINT "HAS WON "
0000E0: 57 22 20 42 41 54 54 4C 45 53 20 41 4E 44 20 4C W" BATTLES AND L
0000F0: 4F 53 54 20 22 4C 0D 0A 32 38 39 30 20 20 49 46 OST "L..2890 IF
000100: 20 59 3D 35 20 54 48 45 4E 20 32 39 34 30 0D 0A Y=5 THEN 2940..
000110: 32 39 30 30 20 20 49 46 20 59 32 3D 35 20 54 48 2900 IF Y2=5 TH
000120: 45 4E 20 32 39 32 30 0D 0A 32 39 31 30 20 20 49 EN 2920..2910 I
000130: 46 20 57 20 3C 3D 20 4C 20 54 48 45 4E 20 32 39 F W <= L THEN 29
000140: 34 30 0D 0A 32 39 31 35 20 20 49 46 20 59 3D 35 40..2915 IF Y=5
000150: 20 54 48 45 4E 20 32 39 34 30 0D 0A 32 39 32 30 THEN 2940..2920
000160: 20 20 50 52 49 4E 54 20 22 54 48 45 20 43 4F 4E PRINT "THE CON
000170: 46 45 44 45 52 41 43 59 20 48 41 53 20 57 4F 4E FEDERACY HAS WON
000180: 20 54 48 45 20 57 41 52 22 0D 0A 32 39 33 30 20 THE WAR"..2930
000190: 20 47 4F 54 4F 20 32 39 35 30 0D 0A 32 39 34 30 GOTO 2950..2940
0001A0: 20 20 50 52 49 4E 54 20 22 54 48 45 20 55 4E 49 PRINT "THE UNI
0001B0: 4F 4E 20 48 41 53 20 57 4F 4E 20 54 48 45 20 57 ON HAS WON THE W
0001C0: 41 52 22 0D 0A 32 39 35 30 20 20 50 52 49 4E 54 AR"..2950 PRINT
0001D0: 0D 0A 32 39 36 30 20 20 49 46 20 52 31 3D 30 20 ..2960 IF R1=0
0001E0: 54 48 45 4E 20 33 31 30 30 0D 0A 32 39 37 30 20 THEN 3100..2970
0001F0: 20 50 52 49 4E 54 20 22 46 4F 52 20 54 48 45 20 PRINT "FOR THE
Size : 512 (Real : 512)
000000: 0D 0A 32 31 35 30 20 20 4C 45 54 20 45 32 3D 37 ..2150 LET E2=7
000010: 2A 43 36 2F 31 33 0D 0A 32 31 36 30 20 20 4C 45 *C6/13..2160 LE
000020: 54 20 55 32 3D 31 0D 0A 32 31 37 30 20 20 52 45 T U2=1..2170 RE
000030: 4D 20 2D 20 43 41 4C 43 55 4C 41 54 45 20 53 49 M - CALCULATE SI
000040: 4D 55 4C 41 54 45 44 20 4C 4F 53 53 45 53 0D 0A MULATED LOSSES..
000050: 32 31 38 30 20 20 50 52 49 4E 54 0D 0A 32 31 39 2180 PRINT..219
000060: 30 20 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 0 PRINT : PRINT
000070: 20 3A 20 50 52 49 4E 54 20 2C 22 43 4F 4E 46 45 : PRINT ,"CONFE
000080: 44 45 52 41 43 59 22 2C 22 55 4E 49 4F 4E 22 0D DERACY","UNION".
000090: 0A 32 32 30 30 20 20 4C 45 54 20 43 35 3D 28 32 .2200 LET C5=(2
0000A0: 2A 43 31 2F 35 29 2A 28 31 2B 31 2F 28 32 2A 28 *C1/5)*(1+1/(2*(
0000B0: 41 42 53 28 59 32 2D 59 29 2B 31 29 29 29 0D 0A ABS(Y2-Y)+1)))..
0000C0: 32 32 31 30 20 20 4C 45 54 20 43 35 3D 49 4E 54 2210 LET C5=INT
0000D0: 28 43 35 2A 28 31 2B 31 2F 4F 29 2A 28 31 2E 32 (C5*(1+1/O)*(1.2
0000E0: 38 2B 46 31 2F 28 42 28 31 29 2B 31 29 29 2B 2E 8+F1/(B(1)+1))+.
0000F0: 35 29 0D 0A 32 32 32 30 20 20 4C 45 54 20 45 3D 5)..2220 LET E=
000100: 31 30 30 2F 4F 0D 0A 32 32 33 30 20 20 49 46 20 100/O..2230 IF
000110: 43 35 2B 31 30 30 2F 4F 3C 4D 31 2A 28 31 2B 28 C5+100/O<M1*(1+(
000120: 50 31 2D 54 31 29 2F 28 4D 33 2B 31 29 29 20 54 P1-T1)/(M3+1)) T
000130: 48 45 4E 20 32 32 37 30 0D 0A 32 32 34 30 20 20 HEN 2270..2240
000140: 4C 45 54 20 43 35 3D 49 4E 54 28 31 33 2A 4D 31 LET C5=INT(13*M1
000150: 2F 32 30 2A 28 31 2B 28 50 31 2D 54 31 29 2F 28 /20*(1+(P1-T1)/(
000160: 4D 33 2B 31 29 29 29 0D 0A 32 32 35 30 20 20 4C M3+1)))..2250 L
000170: 45 54 20 45 3D 37 2A 43 35 2F 31 33 0D 0A 32 32 ET E=7*C5/13..22
000180: 36 30 20 20 4C 45 54 20 55 3D 31 0D 0A 32 32 37 60 LET U=1..227
000190: 30 20 20 49 46 20 44 3D 31 20 54 48 45 4E 20 32 0 IF D=1 THEN 2
0001A0: 35 30 30 0D 0A 32 32 38 30 20 20 50 52 49 4E 54 500..2280 PRINT
0001B0: 20 22 43 41 53 55 41 4C 54 49 45 53 22 2C 43 35 "CASUALTIES",C5
0001C0: 2C 43 36 0D 0A 32 32 39 30 20 20 50 52 49 4E 54 ,C6..2290 PRINT
0001D0: 20 22 44 45 53 45 52 54 49 4F 4E 53 22 2C 49 4E "DESERTIONS",IN
0001E0: 54 28 45 29 2C 49 4E 54 28 45 32 29 0D 0A 32 33 T(E),INT(E2)..23
0001F0: 30 30 20 20 50 52 49 4E 54 0D 0A 32 33 31 30 20 00 PRINT..2310
Size : 512 (Real : 512)
000000: 22 57 2B 4C 2B 57 30 22 20 42 41 54 54 4C 45 53 "W+L+W0" BATTLES
000010: 20 46 4F 55 47 48 54 20 28 45 58 43 55 44 49 4E FOUGHT (EXCUDIN
000020: 47 20 52 45 52 55 4E 53 29 22 0D 0A 32 39 38 30 G RERUNS)"..2980
000030: 20 20 50 52 49 4E 54 20 22 20 22 2C 22 20 22 2C PRINT " "," ",
000040: 22 20 22 3B 0D 0A 32 39 39 30 20 20 50 52 49 4E " ";..2990 PRIN
000050: 54 20 22 43 4F 4E 46 45 44 45 52 41 43 59 22 2C T "CONFEDERACY",
000060: 22 20 55 4E 49 4F 4E 22 0D 0A 33 30 30 30 20 20 " UNION"..3000
000070: 50 52 49 4E 54 20 22 48 49 53 54 4F 52 49 43 41 PRINT "HISTORICA
000080: 4C 20 4C 4F 53 53 45 53 22 2C 49 4E 54 28 50 31 L LOSSES",INT(P1
000090: 2B 2E 35 29 2C 49 4E 54 28 50 32 2B 2E 35 29 0D +.5),INT(P2+.5).
0000A0: 0A 33 30 31 30 20 20 50 52 49 4E 54 20 22 53 49 .3010 PRINT "SI
0000B0: 4D 55 4C 41 54 45 44 20 4C 4F 53 53 45 53 22 2C MULATED LOSSES",
0000C0: 49 4E 54 28 54 31 2B 2E 35 29 2C 49 4E 54 28 54 INT(T1+.5),INT(T
0000D0: 32 2B 2E 35 29 0D 0A 33 30 32 30 20 20 50 52 49 2+.5)..3020 PRI
0000E0: 4E 54 0D 0A 33 30 33 30 20 20 50 52 49 4E 54 20 NT..3030 PRINT
0000F0: 22 20 20 20 20 25 20 4F 46 20 4F 52 49 47 49 4E " % OF ORIGIN
000100: 41 4C 22 2C 49 4E 54 28 31 30 30 2A 28 54 31 2F AL",INT(100*(T1/
000110: 50 31 29 2B 2E 35 29 2C 49 4E 54 28 31 30 30 2A P1)+.5),INT(100*
000120: 28 54 32 2F 50 32 29 2B 2E 35 29 0D 0A 33 30 34 (T2/P2)+.5)..304
000130: 30 20 20 49 46 20 42 24 3D 22 59 45 53 22 20 54 0 IF B$="YES" T
000140: 48 45 4E 20 33 31 30 30 0D 0A 33 30 35 30 20 20 HEN 3100..3050
000150: 50 52 49 4E 54 0D 0A 33 30 36 30 20 20 50 52 49 PRINT..3060 PRI
000160: 4E 54 20 22 55 4E 49 4F 4E 20 49 4E 54 45 4C 4C NT "UNION INTELL
000170: 49 47 45 4E 43 45 20 53 55 47 47 45 53 54 53 20 IGENCE SUGGESTS
000180: 54 48 41 54 20 54 48 45 20 53 4F 55 54 48 20 55 THAT THE SOUTH U
000190: 53 45 44 20 22 0D 0A 33 30 37 30 20 20 50 52 49 SED "..3070 PRI
0001A0: 4E 54 20 22 53 54 52 41 54 45 47 49 45 53 20 31 NT "STRATEGIES 1
0001B0: 2C 20 32 2C 20 33 2C 20 34 20 49 4E 20 54 48 45 , 2, 3, 4 IN THE
0001C0: 20 46 4F 4C 4C 4F 57 49 4E 47 20 50 45 52 43 45 FOLLOWING PERCE
0001D0: 4E 54 41 47 45 53 22 0D 0A 33 30 38 30 20 20 50 NTAGES"..3080 P
0001E0: 52 49 4E 54 20 53 28 31 29 3B 53 32 28 32 29 3B RINT S(1);S2(2);
0001F0: 53 28 33 29 3B 53 28 34 29 0D 0A 33 30 39 30 20 S(3);S(4)..3090
Size : 512 (Real : 512)
000000: 20 49 46 20 42 24 20 3C 3E 20 22 59 45 53 22 20 IF B$ <> "YES"
000010: 54 48 45 4E 20 32 33 35 30 0D 0A 32 33 32 30 20 THEN 2350..2320
000020: 20 50 52 49 4E 54 20 22 43 4F 4D 50 41 52 45 44 PRINT "COMPARED
000030: 20 54 4F 20 54 48 45 20 41 43 54 55 41 4C 20 43 TO THE ACTUAL C
000040: 41 53 55 41 4C 54 49 45 53 20 41 54 20 22 43 24 ASUALTIES AT "C$
000050: 0D 0A 32 33 33 30 20 20 50 52 49 4E 54 20 22 43 ..2330 PRINT "C
000060: 4F 4E 46 45 44 45 52 41 54 45 3A 22 49 4E 54 28 ONFEDERATE:"INT(
000070: 31 30 30 2A 28 43 35 2F 43 31 29 2B 2E 35 29 22 100*(C5/C1)+.5)"
000080: 25 20 4F 46 20 54 48 45 20 4F 52 49 47 49 4E 41 % OF THE ORIGINA
000090: 4C 22 0D 0A 32 33 34 30 20 20 50 52 49 4E 54 20 L"..2340 PRINT
0000A0: 22 55 4E 49 4F 4E 3A 20 20 20 20 20 20 22 49 4E "UNION: "IN
0000B0: 54 28 31 30 30 2A 28 43 36 2F 43 32 29 2B 2E 35 T(100*(C6/C2)+.5
0000C0: 29 22 25 20 4F 46 20 54 48 45 20 4F 52 49 47 49 )"% OF THE ORIGI
0000D0: 4E 41 4C 22 0D 0A 32 33 35 30 20 20 50 52 49 4E NAL"..2350 PRIN
0000E0: 54 0D 0A 32 33 36 30 20 20 52 45 4D 20 2D 20 31 T..2360 REM - 1
0000F0: 20 57 48 4F 20 4F 4E 45 0D 0A 32 33 37 30 20 20 WHO ONE..2370
000100: 49 46 20 55 20 3C 3E 20 31 20 54 48 45 4E 20 32 IF U <> 1 THEN 2
000110: 33 38 30 0D 0A 32 33 37 35 20 20 49 46 20 55 32 380..2375 IF U2
000120: 3D 31 20 54 48 45 4E 20 32 34 36 30 0D 0A 32 33 =1 THEN 2460..23
000130: 38 30 20 20 49 46 20 55 3D 31 20 54 48 45 4E 20 80 IF U=1 THEN
000140: 32 34 32 30 0D 0A 32 33 39 30 20 20 49 46 20 55 2420..2390 IF U
000150: 32 3D 31 20 54 48 45 4E 20 32 34 34 30 0D 0A 32 2=1 THEN 2440..2
000160: 34 30 30 20 20 49 46 20 43 35 2B 45 3D 43 36 2B 400 IF C5+E=C6+
000170: 45 32 20 54 48 45 4E 20 32 34 36 30 0D 0A 32 34 E2 THEN 2460..24
000180: 31 30 20 20 49 46 20 43 35 2B 45 3C 43 36 2B 45 10 IF C5+E<C6+E
000190: 32 20 54 48 45 4E 20 32 34 34 30 0D 0A 32 34 32 2 THEN 2440..242
0001A0: 30 20 20 50 52 49 4E 54 20 22 54 48 45 20 55 4E 0 PRINT "THE UN
0001B0: 49 4F 4E 20 57 49 4E 53 20 22 43 24 0D 0A 32 34 ION WINS "C$..24
0001C0: 33 30 20 20 47 4F 54 4F 20 32 36 30 30 0D 0A 32 30 GOTO 2600..2
0001D0: 34 34 30 20 20 50 52 49 4E 54 20 22 54 48 45 20 440 PRINT "THE
0001E0: 43 4F 4E 46 45 44 45 52 41 43 59 20 57 49 4E 53 CONFEDERACY WINS
0001F0: 20 22 43 24 0D 0A 32 34 35 30 20 20 47 4F 54 4F "C$..2450 GOTO
Size : 512 (Real : 512)
000000: 20 52 45 4D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D REM------------
000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000020: 2D 2D 2D 2D 2D 0D 0A 33 31 30 30 20 20 53 54 4F -----..3100 STO
000030: 50 0D 0A 33 31 31 30 20 20 52 45 4D 20 2D 20 55 P..3110 REM - U
000040: 4E 49 4F 4E 20 53 54 52 41 54 45 47 59 20 49 53 NION STRATEGY IS
000050: 20 43 4F 4D 50 55 54 45 52 20 43 48 4F 53 45 4E COMPUTER CHOSEN
000060: 0D 0A 33 31 32 30 20 20 50 52 49 4E 54 20 22 55 ..3120 PRINT "U
000070: 4E 49 4F 4E 20 53 54 52 41 54 45 47 59 20 49 53 NION STRATEGY IS
000080: 20 22 3B 0D 0A 33 31 33 30 20 20 49 46 20 41 20 ";..3130 IF A
000090: 3C 3E 20 30 20 54 48 45 4E 20 33 31 38 30 0D 0A <> 0 THEN 3180..
0000A0: 33 31 34 30 20 20 49 4E 50 55 54 20 59 32 0D 0A 3140 INPUT Y2..
0000B0: 33 31 35 30 20 20 49 46 20 59 32 20 3C 3D 30 20 3150 IF Y2 <=0
0000C0: 54 48 45 4E 20 33 31 36 30 0D 0A 33 31 35 35 20 THEN 3160..3155
0000D0: 20 49 46 20 59 32 3C 35 20 54 48 45 4E 20 33 32 IF Y2<5 THEN 32
0000E0: 39 30 0D 0A 33 31 36 30 20 20 50 52 49 4E 54 20 90..3160 PRINT
0000F0: 22 45 4E 54 45 52 20 31 20 2C 20 32 20 2C 33 20 "ENTER 1 , 2 ,3
000100: 2C 20 4F 52 20 34 20 28 55 53 55 41 4C 4C 59 20 , OR 4 (USUALLY
000110: 50 52 45 56 49 4F 55 53 20 55 4E 49 4F 4E 20 53 PREVIOUS UNION S
000120: 54 52 41 54 45 47 59 29 22 0D 0A 33 31 37 30 20 TRATEGY)"..3170
000130: 20 47 4F 54 4F 20 33 31 34 30 0D 0A 33 31 38 30 GOTO 3140..3180
000140: 20 20 4C 45 54 20 53 30 3D 30 0D 0A 33 31 39 30 LET S0=0..3190
000150: 20 20 4C 45 54 20 52 3D 31 30 30 2A 52 4E 44 28 LET R=100*RND(
000160: 30 29 0D 0A 33 32 30 30 20 20 46 4F 52 20 49 3D 0)..3200 FOR I=
000170: 31 20 54 4F 20 34 0D 0A 33 32 31 30 20 20 4C 45 1 TO 4..3210 LE
000180: 54 20 53 30 3D 53 30 2B 53 28 49 29 0D 0A 33 32 T S0=S0+S(I)..32
000190: 32 30 20 20 52 45 4D 20 2D 20 49 46 20 41 43 54 20 REM - IF ACT
0001A0: 55 41 4C 20 53 54 52 41 54 45 47 59 20 49 4E 46 UAL STRATEGY INF
0001B0: 4F 20 49 53 20 49 4E 20 50 52 4F 47 52 41 4D 20 O IS IN PROGRAM
0001C0: 44 41 54 41 20 53 54 41 54 45 4D 45 4E 54 53 0D DATA STATEMENTS.
0001D0: 0A 33 32 33 30 20 20 52 45 4D 20 20 20 54 48 45 .3230 REM THE
0001E0: 4E 20 52 2D 31 30 30 20 49 53 20 45 58 54 52 41 N R-100 IS EXTRA
0001F0: 20 57 45 49 47 48 54 20 47 49 56 45 4E 20 54 4F WEIGHT GIVEN TO
Size : 512 (Real : 512)
000000: 20 32 36 36 30 0D 0A 32 34 36 30 20 20 50 52 49 2660..2460 PRI
000010: 4E 54 20 22 42 41 54 54 4C 45 20 4F 55 54 43 4F NT "BATTLE OUTCO
000020: 4D 45 20 55 4E 52 45 53 4F 4C 56 45 44 22 0D 0A ME UNRESOLVED"..
000030: 32 34 37 30 20 20 4C 45 54 20 57 30 3D 57 30 2B 2470 LET W0=W0+
000040: 31 0D 0A 32 34 38 30 20 20 49 46 20 41 3D 30 20 1..2480 IF A=0
000050: 54 48 45 4E 20 32 37 39 30 0D 0A 32 34 39 30 20 THEN 2790..2490
000060: 20 47 4F 54 4F 20 32 36 38 30 0D 0A 32 35 30 30 GOTO 2680..2500
000070: 20 20 4C 45 54 20 43 36 3D 49 4E 54 28 31 37 2A LET C6=INT(17*
000080: 43 32 2A 43 31 2F 28 43 35 2A 32 30 29 29 0D 0A C2*C1/(C5*20))..
000090: 32 35 31 30 20 20 4C 45 54 20 45 32 3D 35 2A 4F 2510 LET E2=5*O
0000A0: 0D 0A 32 35 32 30 20 20 47 4F 54 4F 20 32 32 38 ..2520 GOTO 228
0000B0: 30 0D 0A 32 35 33 30 20 20 50 52 49 4E 54 20 22 0..2530 PRINT "
0000C0: 59 4F 55 52 20 43 41 53 55 41 4C 54 49 45 53 20 YOUR CASUALTIES
0000D0: 57 45 52 45 20 22 49 4E 54 28 31 30 30 2A 28 43 WERE "INT(100*(C
0000E0: 35 2F 43 31 29 2B 2E 35 29 22 25 20 4F 46 20 22 5/C1)+.5)"% OF "
0000F0: 0D 0A 32 35 34 30 20 20 50 52 49 4E 54 20 22 54 ..2540 PRINT "T
000100: 48 45 20 41 43 54 55 41 4C 20 43 41 53 55 41 4C HE ACTUAL CASUAL
000110: 54 49 45 53 20 41 54 20 22 3B 43 24 0D 0A 32 35 TIES AT ";C$..25
000120: 35 30 20 20 50 52 49 4E 54 0D 0A 32 35 36 30 20 50 PRINT..2560
000130: 20 52 45 4D 20 2D 20 46 49 4E 44 20 57 48 4F 20 REM - FIND WHO
000140: 57 4F 4E 0D 0A 32 35 37 30 20 20 49 46 20 55 3D WON..2570 IF U=
000150: 31 20 54 48 45 4E 20 32 35 39 30 0D 0A 32 35 38 1 THEN 2590..258
000160: 30 20 20 49 46 20 43 35 2B 45 3C 31 37 2A 43 32 0 IF C5+E<17*C2
000170: 2A 43 31 2F 28 43 35 2A 32 30 29 2B 35 2A 4F 20 *C1/(C5*20)+5*O
000180: 54 48 45 4E 20 32 36 33 30 0D 0A 32 35 39 30 20 THEN 2630..2590
000190: 20 50 52 49 4E 54 20 22 59 4F 55 20 4C 4F 53 45 PRINT "YOU LOSE
0001A0: 20 22 3B 43 24 0D 0A 32 36 30 30 20 20 49 46 20 ";C$..2600 IF
0001B0: 41 3D 30 20 54 48 45 4E 20 32 37 39 30 0D 0A 32 A=0 THEN 2790..2
0001C0: 36 31 30 20 20 4C 45 54 20 4C 3D 4C 2B 31 0D 0A 610 LET L=L+1..
0001D0: 32 36 32 30 20 20 47 4F 54 4F 20 32 36 38 30 0D 2620 GOTO 2680.
0001E0: 0A 32 36 33 30 20 20 50 52 49 4E 54 20 22 59 4F .2630 PRINT "YO
0001F0: 55 20 57 49 4E 20 22 3B 43 24 0D 0A 32 36 34 30 U WIN ";C$..2640
Size : 512 (Real : 512)
000000: 20 54 48 41 54 20 53 54 41 54 45 47 59 2E 0D 0A THAT STATEGY...
000010: 33 32 34 30 20 20 49 46 20 52 3C 53 30 20 54 48 3240 IF R<S0 TH
000020: 45 4E 20 33 32 37 30 0D 0A 33 32 35 30 20 20 4E EN 3270..3250 N
000030: 45 58 54 20 49 0D 0A 33 32 36 30 20 20 52 45 4D EXT I..3260 REM
000040: 20 2D 20 49 46 20 41 43 54 55 41 4C 20 53 54 52 - IF ACTUAL STR
000050: 41 54 2E 20 49 4E 2C 54 48 45 4E 20 48 45 52 45 AT. IN,THEN HERE
000060: 20 49 53 20 59 32 3D 20 48 49 53 54 2E 20 53 54 IS Y2= HIST. ST
000070: 52 41 54 2E 0D 0A 33 32 37 30 20 20 4C 45 54 20 RAT...3270 LET
000080: 59 32 3D 49 0D 0A 33 32 38 30 20 20 50 52 49 4E Y2=I..3280 PRIN
000090: 54 20 59 32 0D 0A 33 32 39 30 20 20 52 45 54 55 T Y2..3290 RETU
0000A0: 52 4E 0D 0A 33 33 30 30 20 20 52 45 4D 20 4C 45 RN..3300 REM LE
0000B0: 41 52 4E 20 20 50 52 45 53 45 4E 54 20 53 54 52 ARN PRESENT STR
0000C0: 41 54 45 47 59 2C 20 53 54 41 52 54 20 46 4F 52 ATEGY, START FOR
0000D0: 47 45 54 54 49 4E 47 20 4F 4C 44 20 4F 4E 45 53 GETTING OLD ONES
0000E0: 0D 0A 33 33 31 30 20 20 52 45 4D 20 2D 20 50 52 ..3310 REM - PR
0000F0: 45 53 45 4E 54 20 53 54 52 41 54 45 47 59 20 4F ESENT STRATEGY O
000100: 46 20 53 4F 55 54 48 20 47 41 49 4E 53 20 33 2A F SOUTH GAINS 3*
000110: 53 2C 20 4F 54 48 45 52 53 20 4C 4F 53 45 20 53 S, OTHERS LOSE S
000120: 0D 0A 33 33 32 30 20 20 52 45 4D 20 20 20 50 52 ..3320 REM PR
000130: 4F 42 41 42 49 4C 49 54 59 20 50 4F 49 4E 54 53 OBABILITY POINTS
000140: 2C 20 55 4E 4C 45 53 53 20 41 20 53 54 52 41 54 , UNLESS A STRAT
000150: 45 47 59 20 46 41 4C 4C 53 20 42 45 4C 4F 57 20 EGY FALLS BELOW
000160: 35 25 2E 0D 0A 33 33 33 30 20 20 4C 45 54 20 53 5%...3330 LET S
000170: 3D 33 0D 0A 33 33 34 30 20 20 4C 45 54 20 53 30 =3..3340 LET S0
000180: 3D 30 0D 0A 33 33 35 30 20 20 46 4F 52 20 49 3D =0..3350 FOR I=
000190: 31 20 54 4F 20 34 0D 0A 33 33 36 30 20 20 49 46 1 TO 4..3360 IF
0001A0: 20 53 28 49 29 20 3C 3D 20 35 20 54 48 45 4E 20 S(I) <= 5 THEN
0001B0: 33 33 39 30 0D 0A 33 33 37 30 20 20 4C 45 54 20 3390..3370 LET
0001C0: 53 28 49 29 3D 53 28 49 29 2D 53 0D 0A 33 33 38 S(I)=S(I)-S..338
0001D0: 30 20 20 4C 45 54 20 53 30 3D 53 30 2B 53 0D 0A 0 LET S0=S0+S..
0001E0: 33 33 39 30 20 20 4E 45 58 54 20 49 0D 0A 33 34 3390 NEXT I..34
0001F0: 30 30 20 20 4C 45 54 20 53 28 59 29 3D 53 28 59 00 LET S(Y)=S(Y
Size : 512 (Real : 512)
000000: 33 37 39 30 20 20 47 4F 54 4F 20 31 31 35 30 0D 3790 GOTO 1150.
000010: 0A 33 38 30 30 20 20 50 52 49 4E 54 20 22 4D 41 .3800 PRINT "MA
000020: 59 20 31 2D 36 2C 20 31 38 36 33 2E 20 20 54 48 Y 1-6, 1863. TH
000030: 45 20 53 4F 55 54 48 20 48 41 44 20 41 20 43 4F E SOUTH HAD A CO
000040: 53 54 4C 59 20 56 49 43 54 4F 52 59 20 41 4E 44 STLY VICTORY AND
000050: 20 4C 4F 53 54 22 0D 0A 33 38 31 30 20 20 50 52 LOST"..3810 PR
000060: 49 4E 54 20 22 4F 4E 45 20 4F 46 20 54 48 45 49 INT "ONE OF THEI
000070: 52 20 4F 55 54 53 54 41 4E 44 49 4E 47 20 47 45 R OUTSTANDING GE
000080: 4E 45 52 41 4C 53 2C 20 27 53 54 4F 4E 45 57 41 NERALS, 'STONEWA
000090: 4C 4C 27 20 4A 41 43 4B 53 4F 4E 2E 22 0D 0A 33 LL' JACKSON."..3
0000A0: 38 32 30 20 20 47 4F 54 4F 20 31 31 35 30 0D 0A 820 GOTO 1150..
0000B0: 33 38 33 30 20 20 50 52 49 4E 54 20 22 4A 55 4C 3830 PRINT "JUL
0000C0: 59 20 34 2C 20 31 38 36 33 2E 20 20 56 49 43 4B Y 4, 1863. VICK
0000D0: 53 42 55 52 47 20 57 41 53 20 41 20 43 4F 53 54 SBURG WAS A COST
0000E0: 4C 59 20 44 45 46 45 41 54 20 46 4F 52 20 54 48 LY DEFEAT FOR TH
0000F0: 45 20 53 4F 55 54 48 22 0D 0A 33 38 34 30 20 20 E SOUTH"..3840
000100: 50 52 49 4E 54 20 22 42 45 43 41 55 53 45 20 49 PRINT "BECAUSE I
000110: 54 20 47 41 56 45 20 54 48 45 20 55 4E 49 4F 4E T GAVE THE UNION
000120: 20 41 43 43 45 53 53 20 54 4F 20 54 48 45 20 4D ACCESS TO THE M
000130: 49 53 53 49 53 53 49 50 50 49 2E 22 0D 0A 33 38 ISSISSIPPI."..38
000140: 35 30 20 20 47 4F 54 4F 20 31 31 35 30 0D 0A 33 50 GOTO 1150..3
000150: 38 36 30 20 20 50 52 49 4E 54 20 22 4A 55 4C 59 860 PRINT "JULY
000160: 20 31 2D 33 2C 20 31 38 36 33 2E 20 20 41 20 53 1-3, 1863. A S
000170: 4F 55 54 48 45 52 4E 20 4D 49 53 54 41 4B 45 20 OUTHERN MISTAKE
000180: 42 59 20 47 45 4E 2E 20 4C 45 45 20 41 54 20 22 BY GEN. LEE AT "
000190: 3B 0D 0A 33 38 36 35 20 20 50 52 49 4E 54 20 22 ;..3865 PRINT "
0001A0: 47 45 54 54 59 53 42 55 52 47 22 0D 0A 33 38 37 GETTYSBURG"..387
0001B0: 30 20 20 50 52 49 4E 54 20 22 43 4F 53 54 20 54 0 PRINT "COST T
0001C0: 48 45 4D 20 4F 4E 45 20 4F 46 20 54 48 45 20 4D HEM ONE OF THE M
0001D0: 4F 53 54 20 43 52 55 43 49 41 4C 20 42 41 54 54 OST CRUCIAL BATT
0001E0: 4C 45 53 20 4F 46 20 54 48 45 20 57 41 52 2E 22 LES OF THE WAR."
0001F0: 0D 0A 33 38 38 30 20 20 47 4F 54 4F 20 31 31 35 ..3880 GOTO 115
Size : 512 (Real : 512)
000000: 29 2B 53 30 0D 0A 33 34 31 30 20 20 52 45 54 55 )+S0..3410 RETU
000010: 52 4E 0D 0A 33 34 32 30 20 20 52 45 4D 20 2D 20 RN..3420 REM -
000020: 48 49 53 54 4F 52 49 43 41 4C 20 44 41 54 41 2E HISTORICAL DATA.
000030: 2E 2E 43 41 4E 20 41 44 44 20 4D 4F 52 45 20 28 ..CAN ADD MORE (
000040: 53 54 52 41 54 2E 2C 45 54 43 29 20 42 59 20 49 STRAT.,ETC) BY I
000050: 4E 53 45 52 54 49 4E 47 0D 0A 33 34 33 30 20 20 NSERTING..3430
000060: 52 45 4D 20 20 20 44 41 54 41 20 53 54 41 54 45 REM DATA STATE
000070: 4D 45 4E 54 53 20 41 46 54 45 52 20 41 50 50 52 MENTS AFTER APPR
000080: 4F 2E 20 49 4E 46 4F 2C 20 41 4E 44 20 41 44 4A O. INFO, AND ADJ
000090: 55 53 54 49 4E 47 20 52 45 41 44 0D 0A 33 34 34 USTING READ..344
0000A0: 30 20 20 44 41 54 41 20 22 42 55 4C 4C 20 52 55 0 DATA "BULL RU
0000B0: 4E 22 2C 31 38 30 30 30 2C 31 38 35 30 30 2C 31 N",18000,18500,1
0000C0: 39 36 37 2C 32 37 30 38 2C 31 0D 0A 33 34 35 30 967,2708,1..3450
0000D0: 20 20 44 41 54 41 20 22 53 48 49 4C 4F 48 22 2C DATA "SHILOH",
0000E0: 34 30 30 30 30 2E 2C 34 34 38 39 34 2E 2C 31 30 40000.,44894.,10
0000F0: 36 39 39 2C 31 33 30 34 37 2C 33 0D 0A 33 34 36 699,13047,3..346
000100: 30 20 20 44 41 54 41 20 22 53 45 56 45 4E 20 44 0 DATA "SEVEN D
000110: 41 59 53 22 2C 39 35 30 30 30 2E 2C 31 31 35 30 AYS",95000.,1150
000120: 30 30 2E 2C 32 30 36 31 34 2C 31 35 38 34 39 2C 00.,20614,15849,
000130: 33 0D 0A 33 34 37 30 20 20 44 41 54 41 20 22 53 3..3470 DATA "S
000140: 45 43 4F 4E 44 20 42 55 4C 4C 20 52 55 4E 22 2C ECOND BULL RUN",
000150: 35 34 30 30 30 2E 2C 36 33 30 30 30 2E 2C 31 30 54000.,63000.,10
000160: 30 30 30 2C 31 34 30 30 30 2C 32 0D 0A 33 34 38 000,14000,2..348
000170: 30 20 20 44 41 54 41 20 22 41 4E 54 49 45 54 41 0 DATA "ANTIETA
000180: 4D 22 2C 34 30 30 30 30 2E 2C 35 30 30 30 30 2E M",40000.,50000.
000190: 2C 31 30 30 30 30 2C 31 32 30 30 30 2C 33 0D 0A ,10000,12000,3..
0001A0: 33 34 39 30 20 20 44 41 54 41 20 22 46 52 45 44 3490 DATA "FRED
0001B0: 45 52 49 43 4B 53 42 55 52 47 22 2C 37 35 30 30 ERICKSBURG",7500
0001C0: 30 2E 2C 31 32 30 30 30 30 2E 2C 35 33 37 37 2C 0.,120000.,5377,
0001D0: 31 32 36 35 33 2C 31 0D 0A 33 35 30 30 20 20 44 12653,1..3500 D
0001E0: 41 54 41 20 22 4D 55 52 46 52 45 45 53 42 4F 52 ATA "MURFREESBOR
0001F0: 4F 22 2C 33 38 30 30 30 2E 2C 34 35 30 30 30 2E O",38000.,45000.
Size : 512 (Real : 512)
000000: 30 0D 0A 33 38 39 30 20 20 50 52 49 4E 54 20 22 0..3890 PRINT "
000010: 53 45 50 54 2E 20 31 35 2C 20 31 38 36 33 2E 20 SEPT. 15, 1863.
000020: 43 4F 4E 46 55 53 49 4F 4E 20 49 4E 20 41 20 46 CONFUSION IN A F
000030: 4F 52 45 53 54 20 4E 45 41 52 20 43 48 49 43 4B OREST NEAR CHICK
000040: 41 4D 41 55 47 41 20 4C 45 44 22 0D 0A 33 39 30 AMAUGA LED"..390
000050: 30 20 20 50 52 49 4E 54 20 22 54 4F 20 41 20 43 0 PRINT "TO A C
000060: 4F 53 54 4C 59 20 53 4F 55 54 48 45 52 4E 20 56 OSTLY SOUTHERN V
000070: 49 43 54 4F 52 59 2E 22 0D 0A 33 39 31 30 20 20 ICTORY."..3910
000080: 47 4F 54 4F 20 31 31 35 30 0D 0A 33 39 32 30 20 GOTO 1150..3920
000090: 20 50 52 49 4E 54 20 22 4E 4F 56 2E 20 32 35 2C PRINT "NOV. 25,
0000A0: 20 31 38 36 33 2E 20 41 46 54 45 52 20 54 48 45 1863. AFTER THE
0000B0: 20 53 4F 55 54 48 20 48 41 44 20 53 49 45 47 45 SOUTH HAD SIEGE
0000C0: 44 20 47 45 4E 2E 20 52 4F 53 45 4E 43 52 41 4E D GEN. ROSENCRAN
0000D0: 53 27 22 0D 0A 33 39 33 30 20 20 50 52 49 4E 54 S'"..3930 PRINT
0000E0: 20 22 41 52 4D 59 20 46 4F 52 20 54 48 52 45 45 "ARMY FOR THREE
0000F0: 20 4D 4F 4E 54 48 53 2C 20 47 45 4E 2E 20 47 52 MONTHS, GEN. GR
000100: 41 4E 54 20 42 52 4F 4B 45 20 54 48 45 20 53 49 ANT BROKE THE SI
000110: 45 47 45 2E 22 0D 0A 33 39 34 30 20 20 47 4F 54 EGE."..3940 GOT
000120: 4F 20 31 31 35 30 0D 0A 33 39 35 30 20 20 50 52 O 1150..3950 PR
000130: 49 4E 54 20 22 4D 41 59 20 35 2C 20 31 38 36 34 INT "MAY 5, 1864
000140: 2E 20 20 47 52 41 4E 54 27 53 20 50 4C 41 4E 20 . GRANT'S PLAN
000150: 54 4F 20 4B 45 45 50 20 4C 45 45 20 49 53 4F 4C TO KEEP LEE ISOL
000160: 41 54 45 44 20 42 45 47 41 4E 20 54 4F 22 0D 0A ATED BEGAN TO"..
000170: 33 39 36 30 20 20 50 52 49 4E 54 20 22 46 41 49 3960 PRINT "FAI
000180: 4C 20 48 45 52 45 2C 20 41 4E 44 20 43 4F 4E 54 L HERE, AND CONT
000190: 49 4E 55 45 44 20 41 54 20 43 4F 4C 44 20 48 41 INUED AT COLD HA
0001A0: 52 42 4F 52 20 41 4E 44 20 50 45 54 45 52 53 42 RBOR AND PETERSB
0001B0: 55 52 47 2E 22 0D 0A 33 39 37 30 20 20 47 4F 54 URG."..3970 GOT
0001C0: 4F 20 31 31 35 30 0D 0A 33 39 38 30 20 20 50 52 O 1150..3980 PR
0001D0: 49 4E 54 20 22 41 55 47 55 53 54 2C 20 31 38 36 INT "AUGUST, 186
0001E0: 34 2E 20 20 53 48 45 52 4D 41 4E 20 41 4E 44 20 4. SHERMAN AND
0001F0: 54 48 52 45 45 20 56 45 54 45 52 41 4E 20 41 52 THREE VETERAN AR
Size : 512 (Real : 512)
000000: 2C 31 31 30 30 30 2C 31 32 30 30 30 2C 31 0D 0A ,11000,12000,1..
000010: 33 35 31 30 20 20 44 41 54 41 20 22 43 48 41 4E 3510 DATA "CHAN
000020: 43 45 4C 4C 4F 52 53 56 49 4C 4C 45 22 2C 33 32 CELLORSVILLE",32
000030: 30 30 30 2C 39 30 30 30 30 2E 2C 31 33 30 30 30 000,90000.,13000
000040: 2C 31 37 31 39 37 2C 32 0D 0A 33 35 32 30 20 20 ,17197,2..3520
000050: 44 41 54 41 20 22 56 49 43 4B 53 42 55 52 47 22 DATA "VICKSBURG"
000060: 2C 35 30 30 30 30 2E 2C 37 30 30 30 30 2E 2C 31 ,50000.,70000.,1
000070: 32 30 30 30 2C 31 39 30 30 30 2C 31 0D 0A 33 35 2000,19000,1..35
000080: 33 30 20 20 44 41 54 41 20 22 47 45 54 54 59 53 30 DATA "GETTYS
000090: 42 55 52 47 22 2C 37 32 35 30 30 2E 2C 38 35 30 BURG",72500.,850
0000A0: 30 30 2E 2C 32 30 30 30 30 2C 32 33 30 30 30 2C 00.,20000,23000,
0000B0: 33 0D 0A 33 35 34 30 20 20 44 41 54 41 20 22 43 3..3540 DATA "C
0000C0: 48 49 43 4B 41 4D 41 55 47 41 22 2C 36 36 30 30 HICKAMAUGA",6600
0000D0: 30 2E 2C 36 30 30 30 30 2E 2C 31 38 30 30 30 2C 0.,60000.,18000,
0000E0: 31 36 30 30 30 2C 32 0D 0A 33 35 35 30 20 20 44 16000,2..3550 D
0000F0: 41 54 41 20 22 43 48 41 54 54 41 4E 4F 4F 47 41 ATA "CHATTANOOGA
000100: 22 2C 33 37 30 30 30 2E 2C 36 30 30 30 30 2E 2C ",37000.,60000.,
000110: 33 36 37 30 30 2E 2C 35 38 30 30 2C 32 0D 0A 33 36700.,5800,2..3
000120: 35 36 30 20 20 44 41 54 41 20 22 53 50 4F 54 53 560 DATA "SPOTS
000130: 59 4C 56 41 4E 49 41 22 2C 36 32 30 30 30 2E 2C YLVANIA",62000.,
000140: 31 31 30 30 30 30 2E 2C 31 37 37 32 33 2C 31 38 110000.,17723,18
000150: 30 30 30 2C 32 0D 0A 33 35 37 30 20 20 44 41 54 000,2..3570 DAT
000160: 41 20 22 41 54 4C 41 4E 54 41 22 2C 36 35 30 30 A "ATLANTA",6500
000170: 30 2E 2C 31 30 30 30 30 30 2E 2C 38 35 30 30 2C 0.,100000.,8500,
000180: 33 37 30 30 2C 31 0D 0A 33 35 38 30 20 20 50 52 3700,1..3580 PR
000190: 49 4E 54 20 22 4A 55 4C 59 20 32 31 2C 20 31 38 INT "JULY 21, 18
0001A0: 36 31 2E 20 20 47 45 4E 2E 20 42 45 41 55 52 45 61. GEN. BEAURE
0001B0: 47 41 52 44 2C 20 43 4F 4D 4D 41 4E 44 49 4E 47 GARD, COMMANDING
0001C0: 20 54 48 45 20 53 4F 55 54 48 2C 20 4D 45 54 22 THE SOUTH, MET"
0001D0: 0D 0A 33 35 39 30 20 20 50 52 49 4E 54 20 22 55 ..3590 PRINT "U
0001E0: 4E 49 4F 4E 20 46 4F 52 43 45 53 20 57 49 54 48 NION FORCES WITH
0001F0: 20 47 45 4E 2E 20 4D 43 44 4F 57 45 4C 4C 20 49 GEN. MCDOWELL I
Size : 512 (Real : 512)
000000: 4D 49 45 53 20 43 4F 4E 56 45 52 47 45 44 22 0D MIES CONVERGED".
000010: 0A 33 39 39 30 20 20 50 52 49 4E 54 20 22 4F 4E .3990 PRINT "ON
000020: 20 41 54 4C 41 4E 54 41 20 41 4E 44 20 44 45 41 ATLANTA AND DEA
000030: 4C 54 20 54 48 45 20 44 45 41 54 48 20 42 4C 4F LT THE DEATH BLO
000040: 57 20 54 4F 20 54 48 45 20 43 4F 4E 46 45 44 45 W TO THE CONFEDE
000050: 52 41 43 59 2E 22 0D 0A 34 30 30 30 20 20 47 4F RACY."..4000 GO
000060: 54 4F 20 31 31 35 30 0D 0A 34 30 31 30 20 20 45 TO 1150..4010 E
000070: 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ND..............
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 4E 20 41 20 50 52 45 4D 41 54 55 52 45 20 42 41 N A PREMATURE BA
000010: 54 54 4C 45 20 41 54 22 0D 0A 33 36 30 30 20 20 TTLE AT"..3600
000020: 50 52 49 4E 54 20 22 42 55 4C 4C 20 52 55 4E 2E PRINT "BULL RUN.
000030: 20 47 45 4E 2E 20 4A 41 43 4B 53 4F 4E 20 48 45 GEN. JACKSON HE
000040: 4C 50 45 44 20 50 55 53 48 20 42 41 43 4B 20 54 LPED PUSH BACK T
000050: 48 45 20 55 4E 49 4F 4E 20 41 54 54 41 43 4B 2E HE UNION ATTACK.
000060: 22 0D 0A 33 36 31 30 20 20 47 4F 54 4F 20 31 31 "..3610 GOTO 11
000070: 35 30 0D 0A 33 36 32 30 20 20 50 52 49 4E 54 20 50..3620 PRINT
000080: 22 41 50 52 49 4C 20 36 2D 37 2C 20 31 38 36 32 "APRIL 6-7, 1862
000090: 2E 20 20 54 48 45 20 43 4F 4E 46 45 44 45 52 41 . THE CONFEDERA
0000A0: 54 45 20 53 55 52 50 52 49 53 45 20 41 54 54 41 TE SURPRISE ATTA
0000B0: 43 4B 20 41 54 22 0D 0A 33 36 33 30 20 20 50 52 CK AT"..3630 PR
0000C0: 49 4E 54 20 22 53 48 49 4C 4F 48 20 46 41 49 4C INT "SHILOH FAIL
0000D0: 45 44 20 44 55 45 20 54 4F 20 50 4F 4F 52 20 4F ED DUE TO POOR O
0000E0: 52 47 41 4E 49 5A 41 54 49 4F 4E 2E 22 0D 0A 33 RGANIZATION."..3
0000F0: 36 34 30 20 20 47 4F 54 4F 20 31 31 35 30 0D 0A 640 GOTO 1150..
000100: 33 36 35 30 20 20 50 52 49 4E 54 20 22 4A 55 4E 3650 PRINT "JUN
000110: 45 20 32 35 2D 4A 55 4C 59 20 31 2C 20 31 38 36 E 25-JULY 1, 186
000120: 32 2E 20 20 47 45 4E 45 52 41 4C 20 4C 45 45 20 2. GENERAL LEE
000130: 28 43 53 41 29 20 55 50 48 45 4C 44 20 54 48 45 (CSA) UPHELD THE
000140: 22 0D 0A 33 36 36 30 20 20 50 52 49 4E 54 20 22 "..3660 PRINT "
000150: 4F 46 46 45 4E 53 49 56 45 20 54 48 52 4F 55 47 OFFENSIVE THROUG
000160: 48 4F 55 54 20 54 48 45 20 42 41 54 54 4C 45 20 HOUT THE BATTLE
000170: 41 4E 44 20 46 4F 52 43 45 44 20 47 45 4E 2E 20 AND FORCED GEN.
000180: 4D 43 43 4C 45 4C 4C 41 4E 22 0D 0A 33 36 37 30 MCCLELLAN"..3670
000190: 20 20 50 52 49 4E 54 20 22 41 4E 44 20 54 48 45 PRINT "AND THE
0001A0: 20 55 4E 49 4F 4E 20 46 4F 52 43 45 53 20 41 57 UNION FORCES AW
0001B0: 41 59 20 46 52 4F 4D 20 52 49 43 48 4D 4F 4E 44 AY FROM RICHMOND
0001C0: 2E 22 0D 0A 33 36 38 30 20 20 47 4F 54 4F 20 31 ."..3680 GOTO 1
0001D0: 31 35 30 0D 0A 33 36 39 30 20 20 50 52 49 4E 54 150..3690 PRINT
0001E0: 20 22 41 55 47 20 32 39 2D 33 30 2C 20 31 38 36 "AUG 29-30, 186
0001F0: 32 2E 20 20 54 48 45 20 43 4F 4D 42 49 4E 45 44 2. THE COMBINED
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
000010: 22 43 4F 4D 42 41 54 22 0D 0A 32 20 50 52 49 4E "COMBAT"..2 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A ERSEY"..3 PRINT:
000060: 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 34 PRINT: PRINT..4
000070: 20 50 52 49 4E 54 20 22 49 20 41 4D 20 41 54 20 PRINT "I AM AT
000080: 57 41 52 20 57 49 54 48 20 59 4F 55 2E 22 3A 20 WAR WITH YOU.":
000090: 50 52 49 4E 54 20 22 57 45 20 48 41 56 45 20 37 PRINT "WE HAVE 7
0000A0: 32 30 30 30 20 53 4F 4C 44 49 45 52 53 20 41 50 2000 SOLDIERS AP
0000B0: 49 45 43 45 2E 22 0D 0A 35 20 50 52 49 4E 54 3A IECE."..5 PRINT:
0000C0: 50 52 49 4E 54 20 22 44 49 53 54 52 49 42 55 54 PRINT "DISTRIBUT
0000D0: 45 20 59 4F 55 52 20 46 4F 52 43 45 53 2E 22 0D E YOUR FORCES.".
0000E0: 0A 36 20 50 52 49 4E 54 20 2C 22 4D 45 22 2C 22 .6 PRINT ,"ME","
0000F0: 20 20 59 4F 55 22 0D 0A 37 20 50 52 49 4E 54 20 YOU"..7 PRINT
000100: 22 41 52 4D 59 22 2C 33 30 30 30 30 2C 0D 0A 38 "ARMY",30000,..8
000110: 20 49 4E 50 55 54 20 41 0D 0A 39 20 50 52 49 4E INPUT A..9 PRIN
000120: 54 20 22 4E 41 56 59 22 2C 32 30 30 30 30 2C 0D T "NAVY",20000,.
000130: 0A 31 30 20 49 4E 50 55 54 20 42 0D 0A 31 31 20 .10 INPUT B..11
000140: 50 52 49 4E 54 20 22 41 2E 20 46 2E 22 2C 32 32 PRINT "A. F.",22
000150: 30 30 30 2C 0D 0A 31 32 20 49 4E 50 55 54 20 43 000,..12 INPUT C
000160: 0D 0A 31 33 20 49 46 20 41 2B 42 2B 43 3E 37 32 ..13 IF A+B+C>72
000170: 30 30 30 20 54 48 45 4E 20 35 0D 0A 31 34 20 44 000 THEN 5..14 D
000180: 3D 33 30 30 30 30 0D 0A 31 35 20 45 3D 32 30 30 =30000..15 E=200
000190: 30 30 0D 0A 31 36 20 46 3D 32 32 30 30 30 0D 0A 00..16 F=22000..
0001A0: 31 37 20 50 52 49 4E 54 20 22 59 4F 55 20 41 54 17 PRINT "YOU AT
0001B0: 54 41 43 4B 20 46 49 52 53 54 2E 20 54 59 50 45 TACK FIRST. TYPE
0001C0: 20 28 31 29 20 46 4F 52 20 41 52 4D 59 3B 20 28 (1) FOR ARMY; (
0001D0: 32 29 20 46 4F 52 20 4E 41 56 59 3B 22 0D 0A 31 2) FOR NAVY;"..1
0001E0: 38 20 50 52 49 4E 54 20 22 41 4E 44 20 28 33 29 8 PRINT "AND (3)
0001F0: 20 46 4F 52 20 41 49 52 20 46 4F 52 43 45 2E 22 FOR AIR FORCE."
Size : 512 (Real : 512)
000000: 20 43 4F 4E 46 45 44 45 52 41 54 45 20 46 4F 52 CONFEDERATE FOR
000010: 43 45 53 20 55 4E 44 45 52 22 3B 0D 0A 33 36 39 CES UNDER";..369
000020: 35 20 20 50 52 49 4E 54 20 22 20 4C 45 45 22 0D 5 PRINT " LEE".
000030: 0A 33 37 30 30 20 20 50 52 49 4E 54 20 22 41 4E .3700 PRINT "AN
000040: 44 20 4A 41 43 4B 53 4F 4E 20 44 52 4F 56 45 20 D JACKSON DROVE
000050: 54 48 45 20 55 4E 49 4F 4E 20 46 4F 52 43 45 53 THE UNION FORCES
000060: 20 42 41 43 4B 20 49 4E 54 4F 20 57 41 53 48 49 BACK INTO WASHI
000070: 4E 47 54 4F 4E 2E 22 0D 0A 33 37 31 30 20 20 47 NGTON."..3710 G
000080: 4F 54 4F 20 31 31 35 30 0D 0A 33 37 32 30 20 20 OTO 1150..3720
000090: 50 52 49 4E 54 20 22 53 45 50 54 20 31 37 2C 20 PRINT "SEPT 17,
0000A0: 31 38 36 32 2E 20 20 54 48 45 20 53 4F 55 54 48 1862. THE SOUTH
0000B0: 20 46 41 49 4C 45 44 20 54 4F 20 49 4E 43 4F 52 FAILED TO INCOR
0000C0: 50 4F 52 41 54 45 20 4D 41 52 59 4C 41 4E 44 22 PORATE MARYLAND"
0000D0: 0D 0A 33 37 33 30 20 20 50 52 49 4E 54 20 22 49 ..3730 PRINT "I
0000E0: 4E 54 4F 20 54 48 45 20 43 4F 4E 46 45 44 45 52 NTO THE CONFEDER
0000F0: 41 43 59 2E 22 0D 0A 33 37 34 30 20 20 47 4F 54 ACY."..3740 GOT
000100: 4F 20 31 31 35 30 0D 0A 33 37 35 30 20 20 50 52 O 1150..3750 PR
000110: 49 4E 54 20 22 44 45 43 20 31 33 2C 20 31 38 36 INT "DEC 13, 186
000120: 32 2E 20 20 54 48 45 20 43 4F 4E 46 45 44 45 52 2. THE CONFEDER
000130: 41 43 59 20 55 4E 44 45 52 20 4C 45 45 20 53 55 ACY UNDER LEE SU
000140: 43 43 45 53 53 46 55 4C 4C 59 22 0D 0A 33 37 36 CCESSFULLY"..376
000150: 30 20 20 50 52 49 4E 54 20 22 52 45 50 55 4C 53 0 PRINT "REPULS
000160: 45 44 20 41 4E 20 41 54 54 41 43 4B 20 42 59 20 ED AN ATTACK BY
000170: 54 48 45 20 55 4E 49 4F 4E 20 55 4E 44 45 52 20 THE UNION UNDER
000180: 47 45 4E 2E 20 42 55 52 4E 53 49 44 45 2E 22 0D GEN. BURNSIDE.".
000190: 0A 33 37 37 30 20 20 47 4F 54 4F 20 31 31 35 30 .3770 GOTO 1150
0001A0: 0D 0A 33 37 38 30 20 20 50 52 49 4E 54 20 22 44 ..3780 PRINT "D
0001B0: 45 43 20 33 31 2C 20 31 38 36 32 2E 20 20 54 48 EC 31, 1862. TH
0001C0: 45 20 53 4F 55 54 48 20 55 4E 44 45 52 20 47 45 E SOUTH UNDER GE
0001D0: 4E 2E 20 42 52 41 47 47 20 57 4F 4E 20 41 20 43 N. BRAGG WON A C
0001E0: 4C 4F 53 45 20 22 3B 0D 0A 33 37 38 35 20 20 50 LOSE ";..3785 P
0001F0: 52 49 4E 54 20 22 42 41 54 54 4C 45 2E 22 0D 0A RINT "BATTLE."..
Size : 512 (Real : 512)
000000: 0D 0A 31 39 20 49 4E 50 55 54 20 59 0D 0A 32 30 ..19 INPUT Y..20
000010: 20 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 PRINT "HOW MANY
000020: 20 4D 45 4E 22 0D 0A 32 31 20 49 4E 50 55 54 20 MEN"..21 INPUT
000030: 58 0D 0A 32 32 20 49 46 20 58 3C 30 20 54 48 45 X..22 IF X<0 THE
000040: 4E 20 32 30 0D 0A 32 33 20 4F 4E 20 59 20 47 4F N 20..23 ON Y GO
000050: 54 4F 20 31 30 30 2C 32 30 30 2C 33 30 30 0D 0A TO 100,200,300..
000060: 31 30 30 20 49 46 20 58 3E 41 20 54 48 45 4E 20 100 IF X>A THEN
000070: 32 30 0D 0A 31 30 35 20 49 46 20 58 3C 41 2F 33 20..105 IF X<A/3
000080: 20 54 48 45 4E 20 31 32 30 0D 0A 31 31 30 20 49 THEN 120..110 I
000090: 46 20 58 3C 32 2A 41 2F 33 20 54 48 45 4E 20 31 F X<2*A/3 THEN 1
0000A0: 35 30 0D 0A 31 31 35 20 47 4F 54 4F 20 32 37 30 50..115 GOTO 270
0000B0: 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 59 4F 55 ..120 PRINT "YOU
0000C0: 20 4C 4F 53 54 22 3B 58 3B 22 4D 45 4E 20 46 52 LOST";X;"MEN FR
0000D0: 4F 4D 20 59 4F 55 52 20 41 52 4D 59 2E 22 0D 0A OM YOUR ARMY."..
0000E0: 31 32 35 20 41 3D 49 4E 54 28 41 2D 58 29 0D 0A 125 A=INT(A-X)..
0000F0: 31 33 30 20 47 4F 54 4F 20 35 30 30 0D 0A 31 35 130 GOTO 500..15
000100: 30 20 50 52 49 4E 54 20 22 59 4F 55 20 4C 4F 53 0 PRINT "YOU LOS
000110: 54 22 3B 49 4E 54 28 58 2F 33 29 3B 22 4D 45 4E T";INT(X/3);"MEN
000120: 2C 20 42 55 54 20 49 20 4C 4F 53 54 20 22 3B 49 , BUT I LOST ";I
000130: 4E 54 28 32 2A 44 2F 33 29 0D 0A 31 35 35 20 41 NT(2*D/3)..155 A
000140: 3D 49 4E 54 28 41 2D 58 2F 33 29 0D 0A 31 36 30 =INT(A-X/3)..160
000150: 20 44 3D 30 0D 0A 31 36 35 20 47 4F 54 4F 20 35 D=0..165 GOTO 5
000160: 30 30 20 0D 0A 32 30 30 20 49 46 20 58 3E 42 20 00 ..200 IF X>B
000170: 54 48 45 4E 20 32 30 0D 0A 32 31 30 20 49 46 20 THEN 20..210 IF
000180: 58 3C 45 2F 33 20 54 48 45 4E 20 32 33 30 0D 0A X<E/3 THEN 230..
000190: 32 31 35 20 49 46 20 58 3C 32 2A 45 2F 33 20 54 215 IF X<2*E/3 T
0001A0: 48 45 4E 20 32 35 30 0D 0A 32 32 30 20 47 4F 54 HEN 250..220 GOT
0001B0: 4F 20 32 37 30 0D 0A 32 33 30 20 50 52 49 4E 54 O 270..230 PRINT
0001C0: 20 22 59 4F 55 52 20 41 54 54 41 43 4B 20 57 41 "YOUR ATTACK WA
0001D0: 53 20 53 54 4F 50 50 45 44 21 22 0D 0A 32 33 32 S STOPPED!"..232
0001E0: 20 42 3D 49 4E 54 28 42 2D 58 29 0D 0A 32 33 35 B=INT(B-X)..235
0001F0: 20 47 4F 54 4F 20 35 30 30 0D 0A 32 35 30 20 50 GOTO 500..250 P
Size : 512 (Real : 512)
000000: 52 45 41 54 59 20 4F 46 20 50 41 52 49 53 20 43 REATY OF PARIS C
000010: 4F 4E 43 4C 55 44 45 44 20 54 48 41 54 20 57 45 ONCLUDED THAT WE
000020: 20 54 41 4B 45 20 4F 55 52 22 0D 0A 32 30 30 37 TAKE OUR"..2007
000030: 20 50 52 49 4E 54 20 22 52 45 53 50 45 43 54 49 PRINT "RESPECTI
000040: 56 45 20 43 4F 55 4E 54 52 49 45 53 20 41 4E 44 VE COUNTRIES AND
000050: 20 4C 49 56 45 20 49 4E 20 50 45 41 43 45 2E 22 LIVE IN PEACE."
000060: 0D 0A 32 30 30 38 20 47 4F 54 4F 20 32 30 32 30 ..2008 GOTO 2020
000070: 0D 0A 32 30 31 30 20 50 52 49 4E 54 20 22 59 4F ..2010 PRINT "YO
000080: 55 20 57 4F 4E 2C 20 4F 48 21 20 53 48 55 43 4B U WON, OH! SHUCK
000090: 53 21 21 21 21 22 0D 0A 32 30 31 32 20 47 4F 54 S!!!!"..2012 GOT
0000A0: 4F 20 32 30 32 30 0D 0A 32 30 31 35 20 50 52 49 O 2020..2015 PRI
0000B0: 4E 54 20 22 59 4F 55 20 4C 4F 53 54 2D 49 20 43 NT "YOU LOST-I C
0000C0: 4F 4E 51 55 45 52 45 44 20 59 4F 55 52 20 43 4F ONQUERED YOUR CO
0000D0: 55 4E 54 52 59 2E 20 20 49 54 20 53 45 52 56 45 UNTRY. IT SERVE
0000E0: 53 20 59 4F 55 22 0D 0A 32 30 31 36 20 50 52 49 S YOU"..2016 PRI
0000F0: 4E 54 20 22 52 49 47 48 54 20 46 4F 52 20 50 4C NT "RIGHT FOR PL
000100: 41 59 49 4E 47 20 54 48 49 53 20 53 54 55 50 49 AYING THIS STUPI
000110: 44 20 47 41 4D 45 21 21 21 22 0D 0A 32 30 32 30 D GAME!!!"..2020
000120: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 52 49 4E 54 20 22 59 4F 55 20 44 45 53 54 52 4F RINT "YOU DESTRO
000010: 59 45 44 22 3B 49 4E 54 28 32 2A 45 2F 33 29 3B YED";INT(2*E/3);
000020: 22 4F 46 20 4D 59 20 41 52 4D 59 2E 22 0D 0A 32 "OF MY ARMY."..2
000030: 35 35 20 45 3D 49 4E 54 28 45 2F 33 29 0D 0A 32 55 E=INT(E/3)..2
000040: 36 30 20 47 4F 54 4F 20 35 30 30 0D 0A 32 37 30 60 GOTO 500..270
000050: 20 50 52 49 4E 54 20 22 59 4F 55 20 53 55 4E 4B PRINT "YOU SUNK
000060: 20 4F 4E 45 20 4F 46 20 4D 59 20 50 41 54 52 4F ONE OF MY PATRO
000070: 4C 20 42 4F 41 54 53 2C 20 42 55 54 20 49 20 57 L BOATS, BUT I W
000080: 49 50 45 44 20 4F 55 54 20 54 57 4F 22 0D 0A 32 IPED OUT TWO"..2
000090: 37 35 20 50 52 49 4E 54 20 22 4F 46 20 59 4F 55 75 PRINT "OF YOU
0000A0: 52 20 41 49 52 20 46 4F 52 43 45 20 42 41 53 45 R AIR FORCE BASE
0000B0: 53 20 41 4E 44 20 33 20 41 52 4D 59 20 42 41 53 S AND 3 ARMY BAS
0000C0: 45 53 2E 22 0D 0A 32 38 30 20 41 3D 49 4E 54 28 ES."..280 A=INT(
0000D0: 41 2F 33 29 0D 0A 32 38 35 20 43 3D 49 4E 54 28 A/3)..285 C=INT(
0000E0: 43 2F 33 29 0D 0A 32 39 30 20 45 3D 49 4E 54 28 C/3)..290 E=INT(
0000F0: 32 2A 45 2F 33 29 0D 0A 32 39 33 20 47 4F 54 4F 2*E/3)..293 GOTO
000100: 20 35 30 30 0D 0A 33 30 30 20 49 46 20 58 3E 43 500..300 IF X>C
000110: 20 54 48 45 4E 20 32 30 0D 0A 33 31 30 20 49 46 THEN 20..310 IF
000120: 20 58 3C 43 2F 33 20 54 48 45 4E 20 33 35 30 0D X<C/3 THEN 350.
000130: 0A 33 32 30 20 49 46 20 58 3C 32 2A 43 2F 33 20 .320 IF X<2*C/3
000140: 54 48 45 4E 20 33 37 30 0D 0A 33 33 30 20 47 4F THEN 370..330 GO
000150: 54 4F 20 33 38 30 0D 0A 33 35 30 20 50 52 49 4E TO 380..350 PRIN
000160: 54 20 22 59 4F 55 52 20 41 54 54 41 43 4B 20 57 T "YOUR ATTACK W
000170: 41 53 20 57 49 50 45 44 20 4F 55 54 2E 22 0D 0A AS WIPED OUT."..
000180: 33 35 35 20 43 3D 49 4E 54 28 43 2D 58 29 0D 0A 355 C=INT(C-X)..
000190: 33 36 30 20 47 4F 54 4F 20 35 30 30 0D 0A 33 37 360 GOTO 500..37
0001A0: 30 20 50 52 49 4E 54 20 22 57 45 20 48 41 44 20 0 PRINT "WE HAD
0001B0: 41 20 44 4F 47 46 49 47 48 54 2E 20 59 4F 55 20 A DOGFIGHT. YOU
0001C0: 57 4F 4E 20 2D 20 41 4E 44 20 46 49 4E 49 53 48 WON - AND FINISH
0001D0: 45 44 20 59 4F 55 52 20 4D 49 53 53 49 4F 4E 2E ED YOUR MISSION.
0001E0: 22 0D 0A 33 37 35 20 44 3D 49 4E 54 28 32 2A 44 "..375 D=INT(2*D
0001F0: 2F 33 29 0D 0A 33 37 37 20 45 3D 49 4E 54 28 45 /3)..377 E=INT(E
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 2F 33 29 0D 0A 33 37 38 20 46 3D 49 4E 54 28 46 /3)..378 F=INT(F
000010: 2F 33 29 0D 0A 33 37 39 20 47 4F 54 4F 20 35 30 /3)..379 GOTO 50
000020: 30 0D 0A 33 38 30 20 50 52 49 4E 54 20 22 59 4F 0..380 PRINT "YO
000030: 55 20 57 49 50 45 44 20 4F 55 54 20 4F 4E 45 20 U WIPED OUT ONE
000040: 4F 46 20 4D 59 20 41 52 4D 59 20 50 41 54 52 4F OF MY ARMY PATRO
000050: 4C 53 2C 20 42 55 54 20 49 20 44 45 53 54 52 4F LS, BUT I DESTRO
000060: 59 45 44 22 0D 0A 33 38 31 20 50 52 49 4E 54 20 YED"..381 PRINT
000070: 22 54 57 4F 20 4E 41 56 59 20 42 41 53 45 53 20 "TWO NAVY BASES
000080: 41 4E 44 20 42 4F 4D 42 45 44 20 54 48 52 45 45 AND BOMBED THREE
000090: 20 41 52 4D 59 20 42 41 53 45 53 2E 22 0D 0A 33 ARMY BASES."..3
0000A0: 38 35 20 41 3D 49 4E 54 28 41 2F 34 29 0D 0A 33 85 A=INT(A/4)..3
0000B0: 38 37 20 42 3D 49 4E 54 28 42 2F 33 29 0D 0A 33 87 B=INT(B/3)..3
0000C0: 39 30 20 44 3D 49 4E 54 28 32 2A 44 2F 33 29 0D 90 D=INT(2*D/3).
0000D0: 0A 35 30 30 20 50 52 49 4E 54 0D 0A 35 30 31 20 .500 PRINT..501
0000E0: 50 52 49 4E 54 2C 22 59 4F 55 22 2C 22 4D 45 22 PRINT,"YOU","ME"
0000F0: 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 41 52 4D ..510 PRINT "ARM
000100: 59 22 2C 41 2C 44 0D 0A 35 32 30 20 50 52 49 4E Y",A,D..520 PRIN
000110: 54 20 22 4E 41 56 59 22 2C 42 2C 45 0D 0A 35 33 T "NAVY",B,E..53
000120: 30 20 50 52 49 4E 54 20 22 41 2E 20 46 2E 22 2C 0 PRINT "A. F.",
000130: 43 2C 46 0D 0A 31 30 30 30 20 50 52 49 4E 54 20 C,F..1000 PRINT
000140: 22 57 48 41 54 20 49 53 20 59 4F 55 52 20 4E 45 "WHAT IS YOUR NE
000150: 58 54 20 4D 4F 56 45 3F 22 0D 0A 31 30 31 30 20 XT MOVE?"..1010
000160: 50 52 49 4E 54 20 22 41 52 4D 59 3D 31 20 20 4E PRINT "ARMY=1 N
000170: 41 56 59 3D 32 20 20 41 49 52 20 46 4F 52 43 45 AVY=2 AIR FORCE
000180: 3D 33 22 0D 0A 31 30 32 30 20 49 4E 50 55 54 20 =3"..1020 INPUT
000190: 47 0D 0A 31 30 33 30 20 50 52 49 4E 54 20 22 48 G..1030 PRINT "H
0001A0: 4F 57 20 4D 41 4E 59 20 4D 45 4E 22 0D 0A 31 30 OW MANY MEN"..10
0001B0: 34 30 20 49 4E 50 55 54 20 54 0D 0A 31 30 34 35 40 INPUT T..1045
0001C0: 20 49 46 20 54 3C 30 20 54 48 45 4E 20 31 30 33 IF T<0 THEN 103
0001D0: 30 0D 0A 31 30 35 30 20 4F 4E 20 47 20 47 4F 54 0..1050 ON G GOT
0001E0: 4F 20 31 36 30 30 2C 31 37 30 30 2C 31 38 30 30 O 1600,1700,1800
0001F0: 0D 0A 31 36 30 30 20 49 46 20 54 3E 41 20 54 48 ..1600 IF T>A TH
Size : 512 (Real : 512)
000000: 35 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 5 PRINT TAB(33);
000010: 22 43 52 41 50 53 22 0D 0A 31 30 20 50 52 49 4E "CRAPS"..10 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 31 32 20 50 52 49 4E 54 ERSEY"..12 PRINT
000060: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 35 :PRINT:PRINT..15
000070: 20 4C 45 54 20 52 3D 30 0D 0A 32 30 20 50 52 49 LET R=0..20 PRI
000080: 4E 54 22 32 2C 33 2C 31 32 20 41 52 45 20 4C 4F NT"2,3,12 ARE LO
000090: 53 45 52 53 3B 20 34 2C 35 2C 36 2C 38 2C 39 2C SERS; 4,5,6,8,9,
0000A0: 31 30 20 41 52 45 20 50 4F 49 4E 54 53 3B 20 37 10 ARE POINTS; 7
0000B0: 2C 31 31 20 41 52 45 20 4E 41 54 55 52 41 4C 20 ,11 ARE NATURAL
0000C0: 57 49 4E 4E 45 52 53 2E 22 0D 0A 32 31 20 4C 45 WINNERS."..21 LE
0000D0: 54 20 54 3D 31 0D 0A 32 32 20 50 52 49 4E 54 20 T T=1..22 PRINT
0000E0: 22 50 49 43 4B 20 41 20 4E 55 4D 42 45 52 20 41 "PICK A NUMBER A
0000F0: 4E 44 20 49 4E 50 55 54 20 54 4F 20 52 4F 4C 4C ND INPUT TO ROLL
000100: 20 44 49 43 45 22 3B 0D 0A 32 33 20 49 4E 50 55 DICE";..23 INPU
000110: 54 20 5A 0D 0A 32 34 20 4C 45 54 20 58 3D 28 52 T Z..24 LET X=(R
000120: 4E 44 28 30 29 29 0D 0A 32 35 20 4C 45 54 20 54 ND(0))..25 LET T
000130: 20 3D 54 2B 31 0D 0A 32 36 20 49 46 20 54 3C 3D =T+1..26 IF T<=
000140: 5A 20 54 48 45 4E 20 32 34 0D 0A 32 37 20 50 52 Z THEN 24..27 PR
000150: 49 4E 54 22 49 4E 50 55 54 20 54 48 45 20 41 4D INT"INPUT THE AM
000160: 4F 55 4E 54 20 4F 46 20 59 4F 55 52 20 57 41 47 OUNT OF YOUR WAG
000170: 45 52 2E 22 3B 0D 0A 32 38 20 49 4E 50 55 54 20 ER.";..28 INPUT
000180: 46 0D 0A 33 30 20 50 52 49 4E 54 20 22 49 20 57 F..30 PRINT "I W
000190: 49 4C 4C 20 4E 4F 57 20 54 48 52 4F 57 20 54 48 ILL NOW THROW TH
0001A0: 45 20 44 49 43 45 22 0D 0A 34 30 20 4C 45 54 20 E DICE"..40 LET
0001B0: 45 3D 49 4E 54 28 37 2A 52 4E 44 28 31 29 29 0D E=INT(7*RND(1)).
0001C0: 0A 34 31 20 4C 45 54 20 53 3D 49 4E 54 28 37 2A .41 LET S=INT(7*
0001D0: 52 4E 44 28 31 29 29 0D 0A 34 32 20 4C 45 54 20 RND(1))..42 LET
0001E0: 58 3D 45 2B 53 0D 0A 35 30 20 49 46 20 58 3D 37 X=E+S..50 IF X=7
0001F0: 20 54 48 45 4E 20 31 38 30 20 0D 0A 35 35 20 49 THEN 180 ..55 I
Size : 512 (Real : 512)
000000: 45 4E 20 31 30 33 30 0D 0A 31 36 31 30 20 49 46 EN 1030..1610 IF
000010: 20 54 3C 44 2F 32 20 54 48 45 4E 20 31 36 33 30 T<D/2 THEN 1630
000020: 0D 0A 31 36 31 35 20 50 52 49 4E 54 20 22 59 4F ..1615 PRINT "YO
000030: 55 20 44 45 53 54 52 4F 59 45 44 20 4D 59 20 41 U DESTROYED MY A
000040: 52 4D 59 21 22 0D 0A 31 36 31 36 20 44 3D 30 0D RMY!"..1616 D=0.
000050: 0A 31 36 31 37 20 47 4F 54 4F 20 32 30 30 30 0D .1617 GOTO 2000.
000060: 0A 31 36 33 30 20 50 52 49 4E 54 20 22 49 20 57 .1630 PRINT "I W
000070: 49 50 45 44 20 4F 55 54 20 59 4F 55 52 20 41 54 IPED OUT YOUR AT
000080: 54 41 43 4B 21 22 0D 0A 31 36 33 35 20 41 3D 41 TACK!"..1635 A=A
000090: 2D 54 0D 0A 31 36 34 30 20 47 4F 54 4F 20 32 30 -T..1640 GOTO 20
0000A0: 30 30 0D 0A 31 37 30 30 20 49 46 20 54 3E 42 20 00..1700 IF T>B
0000B0: 54 48 45 4E 20 31 30 33 30 20 0D 0A 31 37 31 30 THEN 1030 ..1710
0000C0: 20 49 46 20 54 3C 45 2F 32 20 54 48 45 4E 20 31 IF T<E/2 THEN 1
0000D0: 37 35 30 0D 0A 31 37 32 30 20 47 4F 54 4F 20 31 750..1720 GOTO 1
0000E0: 37 37 30 0D 0A 31 37 35 30 20 50 52 49 4E 54 20 770..1750 PRINT
0000F0: 22 49 20 53 55 4E 4B 20 54 57 4F 20 4F 46 20 59 "I SUNK TWO OF Y
000100: 4F 55 52 20 42 41 54 54 4C 45 53 48 49 50 53 2C OUR BATTLESHIPS,
000110: 20 41 4E 44 20 4D 59 20 41 49 52 20 46 4F 52 43 AND MY AIR FORC
000120: 45 22 0D 0A 31 37 35 31 20 50 52 49 4E 54 20 22 E"..1751 PRINT "
000130: 57 49 50 45 44 20 4F 55 54 20 59 4F 55 52 20 55 WIPED OUT YOUR U
000140: 4E 47 41 55 52 44 45 44 20 43 41 50 49 54 4F 4C NGAURDED CAPITOL
000150: 2E 22 0D 0A 31 37 35 35 20 41 3D 41 2F 34 0D 0A ."..1755 A=A/4..
000160: 31 37 36 30 20 42 3D 42 2F 32 0D 0A 31 37 36 35 1760 B=B/2..1765
000170: 20 47 4F 54 4F 20 32 30 30 30 0D 0A 31 37 37 30 GOTO 2000..1770
000180: 20 50 52 49 4E 54 20 22 59 4F 55 52 20 4E 41 56 PRINT "YOUR NAV
000190: 59 20 53 48 4F 54 20 44 4F 57 4E 20 54 48 52 45 Y SHOT DOWN THRE
0001A0: 45 20 4F 46 20 4D 59 20 58 49 49 49 20 50 4C 41 E OF MY XIII PLA
0001B0: 4E 45 53 2C 22 0D 0A 31 37 37 31 20 50 52 49 4E NES,"..1771 PRIN
0001C0: 54 20 22 41 4E 44 20 53 55 4E 4B 20 54 48 52 45 T "AND SUNK THRE
0001D0: 45 20 42 41 54 54 4C 45 53 48 49 50 53 2E 22 0D E BATTLESHIPS.".
0001E0: 0A 31 37 37 35 20 46 3D 32 2A 46 2F 33 0D 0A 31 .1775 F=2*F/3..1
0001F0: 37 38 30 20 45 3D 28 45 2F 32 29 0D 0A 31 37 39 780 E=(E/2)..179
Size : 512 (Real : 512)
000000: 46 20 58 3D 31 31 20 54 48 45 4E 20 31 38 30 0D F X=11 THEN 180.
000010: 0A 36 30 20 49 46 20 58 3D 31 20 54 48 45 4E 20 .60 IF X=1 THEN
000020: 34 30 0D 0A 36 32 20 49 46 20 58 3D 32 20 54 48 40..62 IF X=2 TH
000030: 45 4E 20 31 39 35 0D 0A 36 35 20 49 46 20 58 3D EN 195..65 IF X=
000040: 30 20 54 48 45 4E 20 34 30 0D 0A 37 30 20 49 46 0 THEN 40..70 IF
000050: 20 58 3D 32 20 54 48 45 4E 20 32 30 30 0D 0A 38 X=2 THEN 200..8
000060: 30 20 49 46 20 58 3D 33 20 54 48 45 4E 20 32 30 0 IF X=3 THEN 20
000070: 30 0D 0A 39 30 20 49 46 20 58 3D 31 32 20 54 48 0..90 IF X=12 TH
000080: 45 4E 20 32 30 30 0D 0A 31 32 35 20 49 46 20 58 EN 200..125 IF X
000090: 3D 35 20 54 48 45 4E 20 32 32 30 0D 0A 31 33 30 =5 THEN 220..130
0000A0: 20 49 46 20 58 20 3D 36 20 54 48 45 4E 20 32 32 IF X =6 THEN 22
0000B0: 30 0D 0A 31 34 30 20 49 46 20 58 3D 38 20 54 48 0..140 IF X=8 TH
0000C0: 45 4E 20 32 32 30 0D 0A 31 35 30 20 49 46 20 58 EN 220..150 IF X
0000D0: 3D 39 20 54 48 45 4E 20 32 32 30 0D 0A 31 36 30 =9 THEN 220..160
0000E0: 20 49 46 20 58 20 3D 31 30 20 54 48 45 4E 20 32 IF X =10 THEN 2
0000F0: 32 30 0D 0A 31 37 30 20 49 46 20 58 3D 34 20 54 20..170 IF X=4 T
000100: 48 45 4E 20 32 32 30 0D 0A 31 38 30 20 50 52 49 HEN 220..180 PRI
000110: 4E 54 20 58 20 22 2D 20 4E 41 54 55 52 41 4C 2E NT X "- NATURAL.
000120: 2E 2E 2E 41 20 57 49 4E 4E 45 52 21 21 21 21 22 ...A WINNER!!!!"
000130: 0D 0A 31 38 35 20 50 52 49 4E 54 20 58 22 50 41 ..185 PRINT X"PA
000140: 59 53 20 45 56 45 4E 20 4D 4F 4E 45 59 2C 20 59 YS EVEN MONEY, Y
000150: 4F 55 20 57 49 4E 22 46 22 44 4F 4C 4C 41 52 53 OU WIN"F"DOLLARS
000160: 22 0D 0A 31 39 30 20 47 4F 54 4F 20 32 31 30 0D "..190 GOTO 210.
000170: 0A 31 39 35 20 50 52 49 4E 54 20 58 22 2D 20 53 .195 PRINT X"- S
000180: 4E 41 4B 45 20 45 59 45 53 2E 2E 2E 2E 59 4F 55 NAKE EYES....YOU
000190: 20 4C 4F 53 45 2E 22 0D 0A 31 39 36 20 50 52 49 LOSE."..196 PRI
0001A0: 4E 54 20 22 59 4F 55 20 4C 4F 53 45 22 46 20 22 NT "YOU LOSE"F "
0001B0: 44 4F 4C 4C 41 52 53 2E 22 0D 0A 31 39 37 20 4C DOLLARS."..197 L
0001C0: 45 54 20 46 3D 30 2D 46 0D 0A 31 39 38 20 47 4F ET F=0-F..198 GO
0001D0: 54 4F 20 32 31 30 0D 0A 32 30 30 20 50 52 49 4E TO 210..200 PRIN
0001E0: 54 20 58 20 22 20 2D 20 43 52 41 50 53 2E 2E 2E T X " - CRAPS...
0001F0: 59 4F 55 20 4C 4F 53 45 2E 22 0D 0A 32 30 35 20 YOU LOSE."..205
Size : 512 (Real : 512)
000000: 30 20 47 4F 54 4F 20 32 30 30 30 0D 0A 31 38 30 0 GOTO 2000..180
000010: 30 20 49 46 20 54 3E 43 20 54 48 45 4E 20 31 30 0 IF T>C THEN 10
000020: 33 30 20 0D 0A 31 38 31 30 20 49 46 20 54 3E 46 30 ..1810 IF T>F
000030: 2F 32 20 54 48 45 4E 20 31 38 33 30 20 0D 0A 31 /2 THEN 1830 ..1
000040: 38 32 30 20 47 4F 54 4F 20 31 38 35 30 0D 0A 31 820 GOTO 1850..1
000050: 38 33 30 20 50 52 49 4E 54 20 22 4D 59 20 4E 41 830 PRINT "MY NA
000060: 56 59 20 41 4E 44 20 41 49 52 20 46 4F 52 43 45 VY AND AIR FORCE
000070: 20 49 4E 20 41 20 43 4F 4D 42 49 4E 45 44 20 41 IN A COMBINED A
000080: 54 54 41 43 4B 20 4C 45 46 54 22 0D 0A 31 38 33 TTACK LEFT"..183
000090: 31 20 50 52 49 4E 54 20 22 59 4F 55 52 20 43 4F 1 PRINT "YOUR CO
0000A0: 55 4E 54 52 59 20 49 4E 20 53 48 41 4D 42 4C 45 UNTRY IN SHAMBLE
0000B0: 53 2E 22 0D 0A 31 38 33 35 20 41 3D 41 2F 33 0D S."..1835 A=A/3.
0000C0: 0A 31 38 33 37 20 42 3D 42 2F 33 0D 0A 31 38 34 .1837 B=B/3..184
0000D0: 30 20 43 3D 43 2F 33 0D 0A 31 38 34 35 20 47 4F 0 C=C/3..1845 GO
0000E0: 54 4F 20 32 30 30 30 0D 0A 31 38 35 30 20 50 52 TO 2000..1850 PR
0000F0: 49 4E 54 20 22 4F 4E 45 20 4F 46 20 59 4F 55 52 INT "ONE OF YOUR
000100: 20 50 4C 41 4E 45 53 20 43 52 41 53 48 45 44 20 PLANES CRASHED
000110: 49 4E 54 4F 20 4D 59 20 48 4F 55 53 45 2E 20 49 INTO MY HOUSE. I
000120: 20 41 4D 20 44 45 41 44 2E 22 0D 0A 31 38 35 31 AM DEAD."..1851
000130: 20 50 52 49 4E 54 20 22 4D 59 20 43 4F 55 4E 54 PRINT "MY COUNT
000140: 52 59 20 46 45 4C 4C 20 41 50 41 52 54 2E 22 0D RY FELL APART.".
000150: 0A 31 38 36 30 20 47 4F 54 4F 20 32 30 31 30 0D .1860 GOTO 2010.
000160: 0A 32 30 30 30 20 50 52 49 4E 54 0D 0A 32 30 30 .2000 PRINT..200
000170: 31 20 50 52 49 4E 54 20 22 46 52 4F 4D 20 54 48 1 PRINT "FROM TH
000180: 45 20 52 45 53 55 4C 54 53 20 4F 46 20 42 4F 54 E RESULTS OF BOT
000190: 48 20 4F 46 20 59 4F 55 52 20 41 54 54 41 43 4B H OF YOUR ATTACK
0001A0: 53 2C 22 0D 0A 32 30 30 32 20 49 46 20 41 2B 42 S,"..2002 IF A+B
0001B0: 2B 43 3E 33 2F 32 2A 28 44 2B 45 2B 46 29 20 54 +C>3/2*(D+E+F) T
0001C0: 48 45 4E 20 32 30 31 30 0D 0A 32 30 30 35 20 49 HEN 2010..2005 I
0001D0: 46 20 41 2B 42 2B 43 3C 32 2F 33 2A 28 44 2B 45 F A+B+C<2/3*(D+E
0001E0: 2B 46 29 20 54 48 45 4E 20 32 30 31 35 0D 0A 32 +F) THEN 2015..2
0001F0: 30 30 36 20 50 52 49 4E 54 20 22 54 48 45 20 54 006 PRINT "THE T
Size : 512 (Real : 512)
000000: 50 52 49 4E 54 20 22 59 4F 55 20 4C 4F 53 45 22 PRINT "YOU LOSE"
000010: 46 22 44 4F 4C 4C 41 52 53 2E 22 0D 0A 32 30 36 F"DOLLARS."..206
000020: 20 4C 45 54 20 46 3D 30 2D 46 0D 0A 32 31 30 20 LET F=0-F..210
000030: 4C 45 54 20 52 3D 20 52 2B 46 0D 0A 32 31 31 20 LET R= R+F..211
000040: 47 4F 54 4F 20 33 32 30 0D 0A 32 32 30 20 50 52 GOTO 320..220 PR
000050: 49 4E 54 20 58 20 22 49 53 20 54 48 45 20 50 4F INT X "IS THE PO
000060: 49 4E 54 2E 20 49 20 57 49 4C 4C 20 52 4F 4C 4C INT. I WILL ROLL
000070: 20 41 47 41 49 4E 22 0D 0A 32 33 30 20 4C 45 54 AGAIN"..230 LET
000080: 20 48 3D 49 4E 54 28 37 2A 52 4E 44 28 31 29 29 H=INT(7*RND(1))
000090: 0D 0A 32 33 31 20 4C 45 54 20 51 3D 49 4E 54 28 ..231 LET Q=INT(
0000A0: 37 2A 52 4E 44 28 31 29 29 0D 0A 32 33 32 20 4C 7*RND(1))..232 L
0000B0: 45 54 20 4F 3D 48 2B 51 0D 0A 32 34 30 20 49 46 ET O=H+Q..240 IF
0000C0: 20 4F 3D 31 20 54 48 45 4E 20 32 33 30 0D 0A 32 O=1 THEN 230..2
0000D0: 35 30 20 49 46 20 4F 3D 37 20 54 48 45 4E 20 32 50 IF O=7 THEN 2
0000E0: 39 30 0D 0A 32 35 35 20 49 46 20 4F 3D 30 20 54 90..255 IF O=0 T
0000F0: 48 45 4E 20 32 33 30 0D 0A 32 36 30 20 49 46 20 HEN 230..260 IF
000100: 4F 3D 58 20 54 48 45 4E 20 33 31 30 0D 0A 32 37 O=X THEN 310..27
000110: 30 20 50 52 49 4E 54 20 4F 20 22 20 2D 20 4E 4F 0 PRINT O " - NO
000120: 20 50 4F 49 4E 54 2E 20 49 20 57 49 4C 4C 20 52 POINT. I WILL R
000130: 4F 4C 4C 20 41 47 41 49 4E 22 0D 0A 32 38 30 20 OLL AGAIN"..280
000140: 47 4F 54 4F 20 32 33 30 0D 0A 32 39 30 20 50 52 GOTO 230..290 PR
000150: 49 4E 54 20 4F 20 22 2D 20 43 52 41 50 53 2E 20 INT O "- CRAPS.
000160: 59 4F 55 20 4C 4F 53 45 2E 22 0D 0A 32 39 31 20 YOU LOSE."..291
000170: 50 52 49 4E 54 20 22 59 4F 55 20 4C 4F 53 45 20 PRINT "YOU LOSE
000180: 24 22 46 0D 0A 32 39 32 20 46 3D 30 2D 46 0D 0A $"F..292 F=0-F..
000190: 32 39 33 20 47 4F 54 4F 20 32 31 30 0D 0A 33 30 293 GOTO 210..30
0001A0: 30 20 47 4F 54 4F 20 33 32 30 0D 0A 33 31 30 20 0 GOTO 320..310
0001B0: 50 52 49 4E 54 20 58 22 2D 20 41 20 57 49 4E 4E PRINT X"- A WINN
0001C0: 45 52 2E 2E 2E 2E 2E 2E 2E 2E 2E 43 4F 4E 47 52 ER.........CONGR
0001D0: 41 54 53 21 21 21 21 21 21 21 21 22 0D 0A 33 31 ATS!!!!!!!!"..31
0001E0: 31 20 50 52 49 4E 54 20 58 20 22 41 54 20 32 20 1 PRINT X "AT 2
0001F0: 54 4F 20 31 20 4F 44 44 53 20 50 41 59 53 20 59 TO 1 ODDS PAYS Y
Size : 512 (Real : 512)
000000: 54 49 43 41 4C 4C 59 20 41 54 20 4C 4F 43 41 54 TICALLY AT LOCAT
000010: 49 4F 4E 20 31 2C 31 2C 31 2E 20 54 48 45 20 4F ION 1,1,1. THE O
000020: 42 4A 45 43 54 20 4F 46 22 0D 0A 31 38 30 20 50 BJECT OF"..180 P
000030: 52 49 4E 54 22 54 48 45 20 47 41 4D 45 20 49 53 RINT"THE GAME IS
000040: 20 54 4F 20 47 45 54 20 54 4F 20 4C 4F 43 41 54 TO GET TO LOCAT
000050: 49 4F 4E 20 33 2C 33 2C 33 2E 20 4F 4E 45 20 4D ION 3,3,3. ONE M
000060: 49 4E 4F 52 20 44 45 54 41 49 4C 3A 22 0D 0A 31 INOR DETAIL:"..1
000070: 39 30 20 50 52 49 4E 54 22 54 48 45 20 43 4F 4D 90 PRINT"THE COM
000080: 50 55 54 45 52 20 57 49 4C 4C 20 50 49 43 4B 2C PUTER WILL PICK,
000090: 20 41 54 20 52 41 4E 44 4F 4D 2C 20 35 20 4C 4F AT RANDOM, 5 LO
0000A0: 43 41 54 49 4F 4E 53 20 41 54 20 57 48 49 43 48 CATIONS AT WHICH
0000B0: 22 0D 0A 32 30 30 20 50 52 49 4E 54 22 49 54 20 "..200 PRINT"IT
0000C0: 57 49 4C 4C 20 50 4C 41 4E 54 20 4C 41 4E 44 20 WILL PLANT LAND
0000D0: 4D 49 4E 45 53 2E 20 49 46 20 59 4F 55 20 48 49 MINES. IF YOU HI
0000E0: 54 20 4F 4E 45 20 4F 46 20 54 48 45 53 45 20 4C T ONE OF THESE L
0000F0: 4F 43 41 54 49 4F 4E 53 22 0D 0A 32 31 30 20 50 OCATIONS"..210 P
000100: 52 49 4E 54 22 59 4F 55 20 4C 4F 53 45 2E 20 4F RINT"YOU LOSE. O
000110: 4E 45 20 4F 54 48 45 52 20 44 45 54 41 49 4C 3A NE OTHER DETAIL:
000120: 20 59 4F 55 20 4D 41 59 20 4D 4F 56 45 20 4F 4E YOU MAY MOVE ON
000130: 4C 59 20 4F 4E 45 20 53 50 41 43 45 20 22 0D 0A LY ONE SPACE "..
000140: 32 32 30 20 50 52 49 4E 54 22 49 4E 20 4F 4E 45 220 PRINT"IN ONE
000150: 20 44 49 52 45 43 54 49 4F 4E 20 45 41 43 48 20 DIRECTION EACH
000160: 4D 4F 56 45 2E 20 46 4F 52 20 20 45 58 41 4D 50 MOVE. FOR EXAMP
000170: 4C 45 3A 20 46 52 4F 4D 20 31 2C 31 2C 32 20 59 LE: FROM 1,1,2 Y
000180: 4F 55 22 0D 0A 32 33 30 20 50 52 49 4E 54 22 4D OU"..230 PRINT"M
000190: 41 59 20 4D 4F 56 45 20 54 4F 20 32 2C 31 2C 32 AY MOVE TO 2,1,2
0001A0: 20 4F 52 20 31 2C 31 2C 33 2E 20 59 4F 55 20 4D OR 1,1,3. YOU M
0001B0: 41 59 20 4E 4F 54 20 43 48 41 4E 47 45 22 0D 0A AY NOT CHANGE"..
0001C0: 32 34 30 20 50 52 49 4E 54 22 54 57 4F 20 4F 46 240 PRINT"TWO OF
0001D0: 20 54 48 45 20 4E 55 4D 42 45 52 53 20 4F 4E 20 THE NUMBERS ON
0001E0: 54 48 45 20 53 41 4D 45 20 4D 4F 56 45 2E 20 49 THE SAME MOVE. I
0001F0: 46 20 59 4F 55 20 4D 41 4B 45 20 41 4E 20 49 4C F YOU MAKE AN IL
Size : 512 (Real : 512)
000000: 4F 55 2E 2E 2E 4C 45 54 20 4D 45 20 53 45 45 2E OU...LET ME SEE.
000010: 2E 2E 22 32 2A 46 22 44 4F 4C 4C 41 52 53 22 0D .."2*F"DOLLARS".
000020: 0A 33 31 32 20 4C 45 54 20 46 3D 32 2A 46 0D 0A .312 LET F=2*F..
000030: 33 31 33 20 47 4F 54 4F 20 32 31 30 0D 0A 33 32 313 GOTO 210..32
000040: 30 20 50 52 49 4E 54 20 22 20 49 46 20 59 4F 55 0 PRINT " IF YOU
000050: 20 57 41 4E 54 20 54 4F 20 50 4C 41 59 20 41 47 WANT TO PLAY AG
000060: 41 49 4E 20 50 52 49 4E 54 20 35 20 49 46 20 4E AIN PRINT 5 IF N
000070: 4F 54 20 50 52 49 4E 54 20 32 22 3B 0D 0A 33 33 OT PRINT 2";..33
000080: 30 20 49 4E 50 55 54 20 4D 0D 0A 33 33 31 20 49 0 INPUT M..331 I
000090: 46 20 52 3C 30 20 54 48 45 4E 20 33 33 34 0D 0A F R<0 THEN 334..
0000A0: 33 33 32 20 49 46 20 52 3E 30 20 54 48 45 4E 20 332 IF R>0 THEN
0000B0: 33 33 36 0D 0A 33 33 33 20 49 46 20 52 3D 30 20 336..333 IF R=0
0000C0: 54 48 45 4E 20 33 33 38 0D 0A 33 33 34 20 50 52 THEN 338..334 PR
0000D0: 49 4E 54 20 22 59 4F 55 20 41 52 45 20 4E 4F 57 INT "YOU ARE NOW
0000E0: 20 55 4E 44 45 52 20 24 22 3B 2D 52 0D 0A 33 33 UNDER $";-R..33
0000F0: 35 20 47 4F 54 4F 20 33 34 30 0D 0A 33 33 36 20 5 GOTO 340..336
000100: 50 52 49 4E 54 20 22 59 4F 55 20 41 52 45 20 4E PRINT "YOU ARE N
000110: 4F 57 20 41 48 45 41 44 20 24 22 3B 52 0D 0A 33 OW AHEAD $";R..3
000120: 33 37 20 47 4F 54 4F 20 33 34 30 0D 0A 33 33 38 37 GOTO 340..338
000130: 20 50 52 49 4E 54 20 22 59 4F 55 20 41 52 45 20 PRINT "YOU ARE
000140: 4E 4F 57 20 45 56 45 4E 20 41 54 20 30 22 0D 0A NOW EVEN AT 0"..
000150: 33 34 30 20 49 46 20 4D 3D 35 20 54 48 45 4E 20 340 IF M=5 THEN
000160: 32 37 0D 0A 33 34 31 20 49 46 20 52 3C 30 20 54 27..341 IF R<0 T
000170: 48 45 4E 20 33 35 30 0D 0A 33 34 32 20 49 46 20 HEN 350..342 IF
000180: 52 3E 30 20 54 48 45 4E 20 33 35 33 0D 0A 33 34 R>0 THEN 353..34
000190: 33 20 49 46 20 52 3D 30 20 54 48 45 4E 20 33 35 3 IF R=0 THEN 35
0001A0: 35 0D 0A 33 35 30 20 50 52 49 4E 54 22 54 4F 4F 5..350 PRINT"TOO
0001B0: 20 42 41 44 2C 20 59 4F 55 20 41 52 45 20 49 4E BAD, YOU ARE IN
0001C0: 20 54 48 45 20 48 4F 4C 45 2E 20 43 4F 4D 45 20 THE HOLE. COME
0001D0: 41 47 41 49 4E 2E 22 0D 0A 33 35 31 20 47 4F 54 AGAIN."..351 GOT
0001E0: 4F 20 33 36 30 0D 0A 33 35 33 20 50 52 49 4E 54 O 360..353 PRINT
0001F0: 22 43 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 "CONGRATULATIONS
Size : 512 (Real : 512)
000000: 4C 45 47 41 4C 22 0D 0A 32 35 30 20 50 52 49 4E LEGAL"..250 PRIN
000010: 54 22 4D 4F 56 45 2C 20 59 4F 55 20 4C 4F 53 45 T"MOVE, YOU LOSE
000020: 20 41 4E 44 20 54 48 45 20 43 4F 4D 50 55 54 45 AND THE COMPUTE
000030: 52 20 54 41 4B 45 53 20 54 48 45 20 4D 4F 4E 45 R TAKES THE MONE
000040: 59 20 59 4F 55 20 4D 41 59 22 0D 0A 32 36 30 20 Y YOU MAY"..260
000050: 50 52 49 4E 54 22 48 41 56 45 20 42 45 54 20 4F PRINT"HAVE BET O
000060: 4E 20 54 48 41 54 20 52 4F 55 4E 44 2E 22 0D 0A N THAT ROUND."..
000070: 32 37 30 20 50 52 49 4E 54 0D 0A 32 38 30 20 50 270 PRINT..280 P
000080: 52 49 4E 54 0D 0A 32 39 30 20 50 52 49 4E 54 22 RINT..290 PRINT"
000090: 41 4C 4C 20 59 45 53 20 4F 52 20 4E 4F 20 51 55 ALL YES OR NO QU
0000A0: 45 53 54 49 4F 4E 53 20 57 49 4C 4C 20 42 45 20 ESTIONS WILL BE
0000B0: 41 4E 53 57 45 52 45 44 20 42 59 20 41 20 31 20 ANSWERED BY A 1
0000C0: 46 4F 52 20 59 45 53 22 0D 0A 33 30 30 20 50 52 FOR YES"..300 PR
0000D0: 49 4E 54 22 4F 52 20 41 20 30 20 28 5A 45 52 4F INT"OR A 0 (ZERO
0000E0: 29 20 46 4F 52 20 4E 4F 2E 22 0D 0A 33 31 30 20 ) FOR NO."..310
0000F0: 50 52 49 4E 54 0D 0A 33 32 30 20 50 52 49 4E 54 PRINT..320 PRINT
000100: 22 57 48 45 4E 20 53 54 41 54 49 4E 47 20 54 48 "WHEN STATING TH
000110: 45 20 41 4D 4F 55 4E 54 20 4F 46 20 41 20 57 41 E AMOUNT OF A WA
000120: 47 45 52 2C 20 50 52 49 4E 54 20 4F 4E 4C 59 20 GER, PRINT ONLY
000130: 54 48 45 20 4E 55 4D 42 45 52 22 0D 0A 33 33 30 THE NUMBER"..330
000140: 20 50 52 49 4E 54 22 4F 46 20 44 4F 4C 4C 41 52 PRINT"OF DOLLAR
000150: 53 20 28 45 58 41 4D 50 4C 45 3A 20 32 35 30 29 S (EXAMPLE: 250)
000160: 20 20 59 4F 55 20 41 52 45 20 41 55 54 4F 4D 41 YOU ARE AUTOMA
000170: 54 49 43 41 4C 4C 59 20 53 54 41 52 54 45 44 20 TICALLY STARTED
000180: 57 49 54 48 22 0D 0A 33 34 30 20 50 52 49 4E 54 WITH"..340 PRINT
000190: 22 35 30 30 20 44 4F 4C 4C 41 52 53 20 49 4E 20 "500 DOLLARS IN
0001A0: 59 4F 55 52 20 41 43 43 4F 55 4E 54 2E 22 0D 0A YOUR ACCOUNT."..
0001B0: 33 35 30 20 50 52 49 4E 54 0D 0A 33 36 30 20 50 350 PRINT..360 P
0001C0: 52 49 4E 54 20 22 47 4F 4F 44 20 4C 55 43 4B 21 RINT "GOOD LUCK!
0001D0: 22 0D 0A 33 37 30 20 4C 45 54 20 41 31 3D 35 30 "..370 LET A1=50
0001E0: 30 0D 0A 33 38 30 20 4C 45 54 20 41 3D 49 4E 54 0..380 LET A=INT
0001F0: 28 33 2A 28 52 4E 44 28 58 29 29 29 0D 0A 33 39 (3*(RND(X)))..39
Size : 512 (Real : 512)
000000: 2D 2D 2D 59 4F 55 20 43 41 4D 45 20 4F 55 54 20 ---YOU CAME OUT
000010: 41 20 57 49 4E 4E 45 52 2E 20 43 4F 4D 45 20 41 A WINNER. COME A
000020: 47 41 49 4E 21 22 0D 0A 33 35 34 20 47 4F 54 4F GAIN!"..354 GOTO
000030: 20 33 36 30 0D 0A 33 35 35 20 50 52 49 4E 54 22 360..355 PRINT"
000040: 43 4F 4E 47 52 41 54 55 4C 41 54 49 4F 4E 53 2D CONGRATULATIONS-
000050: 2D 2D 59 4F 55 20 43 41 4D 45 20 4F 55 54 20 45 --YOU CAME OUT E
000060: 56 45 4E 2C 20 4E 4F 54 20 42 41 44 20 46 4F 52 VEN, NOT BAD FOR
000070: 20 41 4E 20 41 4D 41 54 45 55 52 22 0D 0A 33 36 AN AMATEUR"..36
000080: 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 0 END...........
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 30 20 49 46 20 41 3C 3E 30 20 54 48 45 4E 20 34 0 IF A<>0 THEN 4
000010: 31 30 0D 0A 34 30 30 20 4C 45 54 20 41 3D 33 0D 10..400 LET A=3.
000020: 0A 34 31 30 20 4C 45 54 20 42 3D 49 4E 54 28 33 .410 LET B=INT(3
000030: 2A 28 52 4E 44 28 58 29 29 29 0D 0A 34 32 30 20 *(RND(X)))..420
000040: 49 46 20 42 3C 3E 30 20 54 48 45 4E 20 34 34 30 IF B<>0 THEN 440
000050: 0D 0A 34 33 30 20 4C 45 54 20 42 3D 32 0D 0A 34 ..430 LET B=2..4
000060: 34 30 20 4C 45 54 20 43 3D 49 4E 54 28 33 2A 28 40 LET C=INT(3*(
000070: 52 4E 44 28 58 29 29 29 0D 0A 34 35 30 20 49 46 RND(X)))..450 IF
000080: 20 43 3C 3E 30 20 54 48 45 4E 20 34 37 30 0D 0A C<>0 THEN 470..
000090: 34 36 30 20 4C 45 54 20 43 3D 33 0D 0A 34 37 30 460 LET C=3..470
0000A0: 20 4C 45 54 20 44 3D 49 4E 54 28 33 2A 28 52 4E LET D=INT(3*(RN
0000B0: 44 28 58 29 29 29 0D 0A 34 38 30 20 49 46 20 44 D(X)))..480 IF D
0000C0: 3C 3E 30 20 54 48 45 4E 20 35 30 30 0D 0A 34 39 <>0 THEN 500..49
0000D0: 30 20 4C 45 54 20 44 3D 31 0D 0A 35 30 30 20 4C 0 LET D=1..500 L
0000E0: 45 54 20 45 3D 49 4E 54 28 33 2A 28 52 4E 44 28 ET E=INT(3*(RND(
0000F0: 58 29 29 29 0D 0A 35 31 30 20 49 46 20 45 3C 3E X)))..510 IF E<>
000100: 30 20 54 48 45 4E 20 35 33 30 0D 0A 35 32 30 20 0 THEN 530..520
000110: 4C 45 54 20 45 3D 33 0D 0A 35 33 30 20 4C 45 54 LET E=3..530 LET
000120: 20 46 3D 49 4E 54 28 33 2A 28 52 4E 44 28 58 29 F=INT(3*(RND(X)
000130: 29 29 0D 0A 35 34 30 20 49 46 20 46 3C 3E 30 20 ))..540 IF F<>0
000140: 54 48 45 4E 20 35 36 30 0D 0A 35 35 30 20 4C 45 THEN 560..550 LE
000150: 54 20 46 3D 33 0D 0A 35 36 30 20 4C 45 54 20 47 T F=3..560 LET G
000160: 3D 49 4E 54 28 33 2A 28 52 4E 44 28 58 29 29 29 =INT(3*(RND(X)))
000170: 0D 0A 35 37 30 20 49 46 20 47 3C 3E 30 20 54 48 ..570 IF G<>0 TH
000180: 45 4E 20 35 39 30 0D 0A 35 38 30 20 4C 45 54 20 EN 590..580 LET
000190: 47 3D 33 0D 0A 35 39 30 20 4C 45 54 20 48 3D 49 G=3..590 LET H=I
0001A0: 4E 54 28 33 2A 28 52 4E 44 28 58 29 29 29 0D 0A NT(3*(RND(X)))..
0001B0: 36 30 30 20 49 46 20 48 3C 3E 30 20 54 48 45 4E 600 IF H<>0 THEN
0001C0: 20 36 32 30 0D 0A 36 31 30 20 4C 45 54 20 48 3D 620..610 LET H=
0001D0: 33 0D 0A 36 32 30 20 4C 45 54 20 49 3D 49 4E 54 3..620 LET I=INT
0001E0: 28 33 2A 28 52 4E 44 28 58 29 29 29 0D 0A 36 33 (3*(RND(X)))..63
0001F0: 30 20 49 46 20 49 3C 3E 30 20 54 48 45 4E 20 36 0 IF I<>0 THEN 6
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 35 30 0D 0A 36 34 30 20 4C 45 54 20 49 3D 32 0D 50..640 LET I=2.
000010: 0A 36 35 30 20 4C 45 54 20 4A 3D 49 4E 54 28 33 .650 LET J=INT(3
000020: 2A 28 52 4E 44 28 58 29 29 29 0D 0A 36 36 30 20 *(RND(X)))..660
000030: 49 46 20 4A 3C 3E 30 20 54 48 45 4E 20 36 38 30 IF J<>0 THEN 680
000040: 0D 0A 36 37 30 20 4C 45 54 20 4A 3D 33 0D 0A 36 ..670 LET J=3..6
000050: 38 30 20 4C 45 54 20 4B 3D 49 4E 54 28 33 2A 28 80 LET K=INT(3*(
000060: 52 4E 44 28 58 29 29 29 0D 0A 36 39 30 20 49 46 RND(X)))..690 IF
000070: 20 4B 3C 3E 30 20 54 48 45 4E 20 37 31 30 0D 0A K<>0 THEN 710..
000080: 37 30 30 20 4C 45 54 20 4B 3D 32 0D 0A 37 31 30 700 LET K=2..710
000090: 20 4C 45 54 20 4C 3D 49 4E 54 28 33 2A 28 52 4E LET L=INT(3*(RN
0000A0: 44 28 58 29 29 29 0D 0A 37 32 30 20 49 46 20 4C D(X)))..720 IF L
0000B0: 3C 3E 30 20 54 48 45 4E 20 37 34 30 0D 0A 37 33 <>0 THEN 740..73
0000C0: 30 20 4C 45 54 20 4C 3D 33 0D 0A 37 34 30 20 4C 0 LET L=3..740 L
0000D0: 45 54 20 4D 3D 49 4E 54 28 33 2A 28 52 4E 44 28 ET M=INT(3*(RND(
0000E0: 58 29 29 29 0D 0A 37 35 30 20 49 46 20 4D 3C 3E X)))..750 IF M<>
0000F0: 30 20 54 48 45 4E 20 37 37 30 0D 0A 37 36 30 20 0 THEN 770..760
000100: 4C 45 54 20 4D 3D 33 0D 0A 37 37 30 20 4C 45 54 LET M=3..770 LET
000110: 20 4E 3D 49 4E 54 28 33 2A 28 52 4E 44 28 58 29 N=INT(3*(RND(X)
000120: 29 29 0D 0A 37 38 30 20 49 46 20 4E 3C 3E 30 20 ))..780 IF N<>0
000130: 54 48 45 4E 20 38 30 30 0D 0A 37 39 30 20 4C 45 THEN 800..790 LE
000140: 54 20 4E 3D 31 0D 0A 38 30 30 20 4C 45 54 20 4F T N=1..800 LET O
000150: 3D 49 4E 54 20 28 33 2A 28 52 4E 44 28 58 29 29 =INT (3*(RND(X))
000160: 29 0D 0A 38 31 30 20 49 46 20 4F 20 3C 3E 30 20 )..810 IF O <>0
000170: 54 48 45 4E 20 38 33 30 0D 0A 38 32 30 20 4C 45 THEN 830..820 LE
000180: 54 20 4F 3D 33 0D 0A 38 33 30 20 50 52 49 4E 54 T O=3..830 PRINT
000190: 20 22 57 41 4E 54 20 54 4F 20 4D 41 4B 45 20 41 "WANT TO MAKE A
0001A0: 20 57 41 47 45 52 3F 22 0D 0A 38 34 30 20 49 4E WAGER?"..840 IN
0001B0: 50 55 54 20 5A 0D 0A 38 35 30 20 49 46 20 5A 3D PUT Z..850 IF Z=
0001C0: 30 20 54 48 45 4E 20 39 32 30 0D 0A 38 36 30 20 0 THEN 920..860
0001D0: 50 52 49 4E 54 20 22 48 4F 57 20 4D 55 43 48 20 PRINT "HOW MUCH
0001E0: 22 3B 0D 0A 38 37 30 20 49 4E 50 55 54 20 5A 31 ";..870 INPUT Z1
0001F0: 0D 0A 38 37 36 20 49 46 20 41 31 3C 5A 31 20 54 ..876 IF A1<Z1 T
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 10 PRINT TAB(34)
000010: 3B 22 43 55 42 45 22 0D 0A 32 30 20 50 52 49 4E ;"CUBE"..20 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E 54 ERSEY"..30 PRINT
000060: 20 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 : PRINT : PRINT
000070: 0D 0A 31 30 30 20 50 52 49 4E 54 20 22 44 4F 20 ..100 PRINT "DO
000080: 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 45 45 20 YOU WANT TO SEE
000090: 54 48 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 THE INSTRUCTIONS
0000A0: 3F 20 28 59 45 53 2D 2D 31 2C 4E 4F 2D 2D 30 29 ? (YES--1,NO--0)
0000B0: 22 0D 0A 31 31 30 20 49 4E 50 55 54 20 42 37 0D "..110 INPUT B7.
0000C0: 0A 31 32 30 20 49 46 20 42 37 3D 30 20 54 48 45 .120 IF B7=0 THE
0000D0: 4E 20 33 37 30 0D 0A 31 33 30 20 50 52 49 4E 54 N 370..130 PRINT
0000E0: 22 54 48 49 53 20 49 53 20 41 20 47 41 4D 45 20 "THIS IS A GAME
0000F0: 49 4E 20 57 48 49 43 48 20 59 4F 55 20 57 49 4C IN WHICH YOU WIL
000100: 4C 20 42 45 20 50 4C 41 59 49 4E 47 20 41 47 41 L BE PLAYING AGA
000110: 49 4E 53 54 20 54 48 45 22 0D 0A 31 34 30 20 50 INST THE"..140 P
000120: 52 49 4E 54 22 52 41 4E 44 4F 4D 20 44 45 43 49 RINT"RANDOM DECI
000130: 53 49 4F 4E 20 4F 46 20 54 48 45 20 43 4F 4D 50 SION OF THE COMP
000140: 55 54 45 52 2E 20 54 48 45 20 46 49 45 4C 44 20 UTER. THE FIELD
000150: 4F 46 20 50 4C 41 59 20 49 53 20 41 22 0D 0A 31 OF PLAY IS A"..1
000160: 35 30 20 50 52 49 4E 54 22 43 55 42 45 20 4F 46 50 PRINT"CUBE OF
000170: 20 53 49 44 45 20 33 2E 20 41 4E 59 20 4F 46 20 SIDE 3. ANY OF
000180: 54 48 45 20 32 37 20 4C 4F 43 41 54 49 4F 4E 53 THE 27 LOCATIONS
000190: 20 43 41 4E 20 42 45 20 44 45 53 49 47 4E 41 54 CAN BE DESIGNAT
0001A0: 45 44 22 0D 0A 31 36 30 20 50 52 49 4E 54 22 42 ED"..160 PRINT"B
0001B0: 59 20 49 4E 50 55 54 49 4E 47 20 54 48 52 45 45 Y INPUTING THREE
0001C0: 20 4E 55 4D 42 45 52 53 20 53 55 43 48 20 41 53 NUMBERS SUCH AS
0001D0: 20 32 2C 33 2C 31 2E 20 41 54 20 54 48 45 20 53 2,3,1. AT THE S
0001E0: 54 41 52 54 2C 22 0D 0A 31 37 30 20 50 52 49 4E TART,"..170 PRIN
0001F0: 54 22 59 4F 55 20 41 52 45 20 41 55 54 4F 4D 41 T"YOU ARE AUTOMA
Size : 512 (Real : 512)
000000: 48 45 4E 20 31 35 32 32 0D 0A 38 38 30 20 4C 45 HEN 1522..880 LE
000010: 54 20 57 3D 31 0D 0A 38 39 30 20 4C 45 54 20 58 T W=1..890 LET X
000020: 3D 31 0D 0A 39 30 30 20 4C 45 54 20 59 3D 31 0D =1..900 LET Y=1.
000030: 0A 39 31 30 20 50 52 49 4E 54 0D 0A 39 32 30 20 .910 PRINT..920
000040: 50 52 49 4E 54 20 22 49 54 27 53 20 59 4F 55 52 PRINT "IT'S YOUR
000050: 20 4D 4F 56 45 3A 20 20 22 3B 0D 0A 39 33 30 20 MOVE: ";..930
000060: 49 4E 50 55 54 20 50 2C 51 2C 52 0D 0A 39 34 30 INPUT P,Q,R..940
000070: 20 49 46 20 50 3E 57 2B 31 20 54 48 45 4E 20 31 IF P>W+1 THEN 1
000080: 30 33 30 0D 0A 39 35 30 20 49 46 20 50 3D 57 2B 030..950 IF P=W+
000090: 31 20 54 48 45 4E 20 31 30 30 30 0D 0A 39 36 30 1 THEN 1000..960
0000A0: 20 49 46 20 51 3E 58 2B 31 20 54 48 45 4E 20 31 IF Q>X+1 THEN 1
0000B0: 30 33 30 0D 0A 39 37 30 20 49 46 20 51 3D 28 58 030..970 IF Q=(X
0000C0: 2B 31 29 20 54 48 45 4E 20 31 30 31 30 0D 0A 39 +1) THEN 1010..9
0000D0: 38 30 20 49 46 20 52 20 3E 28 59 2B 31 29 20 20 80 IF R >(Y+1)
0000E0: 54 48 45 4E 20 31 30 33 30 0D 0A 39 39 30 20 47 THEN 1030..990 G
0000F0: 4F 54 4F 20 31 30 35 30 0D 0A 31 30 30 30 20 49 OTO 1050..1000 I
000100: 46 20 51 3E 3D 20 58 2B 31 20 54 48 45 4E 20 31 F Q>= X+1 THEN 1
000110: 30 33 30 0D 0A 31 30 31 30 20 49 46 20 52 3E 3D 030..1010 IF R>=
000120: 59 2B 31 20 54 48 45 4E 20 31 30 33 30 0D 0A 31 Y+1 THEN 1030..1
000130: 30 32 30 20 47 4F 54 4F 20 31 30 35 30 0D 0A 31 020 GOTO 1050..1
000140: 30 33 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 030 PRINT:PRINT
000150: 22 49 4C 4C 45 47 41 4C 20 4D 4F 56 45 2E 20 59 "ILLEGAL MOVE. Y
000160: 4F 55 20 4C 4F 53 45 2E 22 0D 0A 31 30 34 30 20 OU LOSE."..1040
000170: 47 4F 54 4F 20 31 34 34 30 0D 0A 31 30 35 30 20 GOTO 1440..1050
000180: 4C 45 54 20 57 3D 50 0D 0A 31 30 36 30 20 4C 45 LET W=P..1060 LE
000190: 54 20 58 3D 51 0D 0A 31 30 37 30 20 4C 45 54 20 T X=Q..1070 LET
0001A0: 59 3D 52 0D 0A 31 30 38 30 20 49 46 20 50 3D 33 Y=R..1080 IF P=3
0001B0: 20 54 48 45 4E 20 31 31 30 30 0D 0A 31 30 39 30 THEN 1100..1090
0001C0: 20 47 4F 54 4F 20 31 31 33 30 0D 0A 31 31 30 30 GOTO 1130..1100
0001D0: 20 49 46 20 20 51 3D 33 20 54 48 45 4E 20 31 31 IF Q=3 THEN 11
0001E0: 32 30 0D 0A 31 31 31 30 20 47 4F 54 4F 20 31 31 20..1110 GOTO 11
0001F0: 33 30 0D 0A 31 31 32 30 20 49 46 20 52 3D 33 20 30..1120 IF R=3
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 3B 2 PRINT TAB(30);
000010: 22 44 45 50 54 48 20 43 48 41 52 47 45 22 0D 0A "DEPTH CHARGE"..
000020: 34 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 4 PRINT TAB(15);
000030: 22 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 "CREATIVE COMPUT
000040: 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C ING MORRISTOWN,
000050: 20 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 36 20 NEW JERSEY"..6
000060: 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 PRINT: PRINT: PR
000070: 49 4E 54 0D 0A 32 30 20 49 4E 50 55 54 20 22 44 INT..20 INPUT "D
000080: 49 4D 45 4E 53 49 4F 4E 20 4F 46 20 53 45 41 52 IMENSION OF SEAR
000090: 43 48 20 41 52 45 41 22 3B 47 3A 20 50 52 49 4E CH AREA";G: PRIN
0000A0: 54 0D 0A 33 30 20 4E 3D 49 4E 54 28 4C 4F 47 28 T..30 N=INT(LOG(
0000B0: 47 29 2F 4C 4F 47 28 32 29 29 2B 31 0D 0A 34 30 G)/LOG(2))+1..40
0000C0: 20 50 52 49 4E 54 20 22 59 4F 55 20 41 52 45 20 PRINT "YOU ARE
0000D0: 54 48 45 20 43 41 50 54 41 49 4E 20 4F 46 20 54 THE CAPTAIN OF T
0000E0: 48 45 20 44 45 53 54 52 4F 59 45 52 20 55 53 53 HE DESTROYER USS
0000F0: 20 43 4F 4D 50 55 54 45 52 22 0D 0A 35 30 20 50 COMPUTER"..50 P
000100: 52 49 4E 54 20 22 41 4E 20 45 4E 45 4D 59 20 53 RINT "AN ENEMY S
000110: 55 42 20 48 41 53 20 42 45 45 4E 20 43 41 55 53 UB HAS BEEN CAUS
000120: 49 4E 47 20 59 4F 55 20 54 52 4F 55 42 4C 45 2E ING YOU TROUBLE.
000130: 20 20 59 4F 55 52 22 0D 0A 36 30 20 50 52 49 4E YOUR"..60 PRIN
000140: 54 20 22 4D 49 53 53 49 4F 4E 20 49 53 20 54 4F T "MISSION IS TO
000150: 20 44 45 53 54 52 4F 59 20 49 54 2E 20 20 59 4F DESTROY IT. YO
000160: 55 20 48 41 56 45 22 3B 4E 3B 22 53 48 4F 54 53 U HAVE";N;"SHOTS
000170: 2E 22 0D 0A 37 30 20 50 52 49 4E 54 20 22 53 50 ."..70 PRINT "SP
000180: 45 43 49 46 59 20 44 45 50 54 48 20 43 48 41 52 ECIFY DEPTH CHAR
000190: 47 45 20 45 58 50 4C 4F 53 49 4F 4E 20 50 4F 49 GE EXPLOSION POI
0001A0: 4E 54 20 57 49 54 48 20 41 22 0D 0A 38 30 20 50 NT WITH A"..80 P
0001B0: 52 49 4E 54 20 22 54 52 49 4F 20 4F 46 20 4E 55 RINT "TRIO OF NU
0001C0: 4D 42 45 52 53 20 2D 2D 20 54 48 45 20 46 49 52 MBERS -- THE FIR
0001D0: 53 54 20 54 57 4F 20 41 52 45 20 54 48 45 22 0D ST TWO ARE THE".
0001E0: 0A 39 30 20 50 52 49 4E 54 20 22 53 55 52 46 41 .90 PRINT "SURFA
0001F0: 43 45 20 43 4F 4F 52 44 49 4E 41 54 45 53 3B 20 CE COORDINATES;
Size : 512 (Real : 512)
000000: 54 48 45 4E 20 31 35 33 30 0D 0A 31 31 33 30 20 THEN 1530..1130
000010: 49 46 20 50 3D 41 20 54 48 45 4E 20 31 31 35 30 IF P=A THEN 1150
000020: 0D 0A 31 31 34 30 20 47 4F 54 4F 20 31 31 38 30 ..1140 GOTO 1180
000030: 0D 0A 31 31 35 30 20 49 46 20 51 3D 42 20 54 48 ..1150 IF Q=B TH
000040: 45 4E 20 31 31 37 30 0D 0A 31 31 36 30 20 47 4F EN 1170..1160 GO
000050: 54 4F 20 31 31 38 30 0D 0A 31 31 37 30 20 49 46 TO 1180..1170 IF
000060: 20 52 3D 43 20 54 48 45 4E 20 31 34 30 30 0D 0A R=C THEN 1400..
000070: 31 31 38 30 20 49 46 20 50 3D 44 20 54 48 45 4E 1180 IF P=D THEN
000080: 20 31 32 30 30 0D 0A 31 31 39 30 20 47 4F 54 4F 1200..1190 GOTO
000090: 20 31 32 33 30 0D 0A 31 32 30 30 20 49 46 20 51 1230..1200 IF Q
0000A0: 3D 45 20 54 48 45 4E 20 31 32 32 30 0D 0A 31 32 =E THEN 1220..12
0000B0: 31 30 20 47 4F 54 4F 20 31 32 33 30 0D 0A 31 32 10 GOTO 1230..12
0000C0: 32 30 20 49 46 20 20 52 3D 46 20 54 48 45 4E 20 20 IF R=F THEN
0000D0: 31 34 30 30 0D 0A 31 32 33 30 20 49 46 20 50 3D 1400..1230 IF P=
0000E0: 47 20 54 48 45 4E 20 31 32 35 30 0D 0A 31 32 34 G THEN 1250..124
0000F0: 30 20 47 4F 54 4F 20 31 32 38 30 0D 0A 31 32 35 0 GOTO 1280..125
000100: 30 20 49 46 20 51 3D 48 20 54 48 45 4E 20 31 32 0 IF Q=H THEN 12
000110: 37 30 0D 0A 31 32 36 30 20 47 4F 54 4F 20 31 32 70..1260 GOTO 12
000120: 38 30 0D 0A 31 32 37 30 20 49 46 20 52 3D 49 20 80..1270 IF R=I
000130: 54 48 45 4E 20 31 34 30 30 0D 0A 31 32 38 30 20 THEN 1400..1280
000140: 49 46 20 50 3D 4A 20 54 48 45 4E 20 31 33 30 30 IF P=J THEN 1300
000150: 0D 0A 31 32 39 30 20 47 4F 54 4F 20 31 33 33 30 ..1290 GOTO 1330
000160: 0D 0A 31 33 30 30 20 49 46 20 51 3D 4B 20 54 48 ..1300 IF Q=K TH
000170: 45 4E 20 31 33 32 30 0D 0A 31 33 31 30 20 47 4F EN 1320..1310 GO
000180: 54 4F 20 31 33 33 30 0D 0A 31 33 32 30 20 49 46 TO 1330..1320 IF
000190: 20 52 3D 4C 20 54 48 45 4E 20 31 34 34 30 0D 0A R=L THEN 1440..
0001A0: 31 33 33 30 20 49 46 20 50 3D 4D 20 54 48 45 4E 1330 IF P=M THEN
0001B0: 20 31 33 35 30 0D 0A 31 33 34 30 20 47 4F 54 4F 1350..1340 GOTO
0001C0: 20 31 33 38 30 0D 0A 31 33 35 30 20 49 46 20 51 1380..1350 IF Q
0001D0: 3D 4E 20 54 48 45 4E 20 31 33 37 30 0D 0A 31 33 =N THEN 1370..13
0001E0: 36 30 20 47 4F 54 4F 20 31 33 38 30 0D 0A 31 33 60 GOTO 1380..13
0001F0: 37 30 20 49 46 20 52 3D 4F 20 54 48 45 4E 20 31 70 IF R=O THEN 1
Size : 512 (Real : 512)
000000: 54 48 45 20 54 48 49 52 44 20 49 53 20 54 48 45 THE THIRD IS THE
000010: 20 44 45 50 54 48 2E 22 0D 0A 31 30 30 20 50 52 DEPTH."..100 PR
000020: 49 4E 54 20 3A 20 50 52 49 4E 54 20 22 47 4F 4F INT : PRINT "GOO
000030: 44 20 4C 55 43 4B 20 21 22 3A 20 50 52 49 4E 54 D LUCK !": PRINT
000040: 0D 0A 31 31 30 20 41 3D 49 4E 54 28 47 2A 52 4E ..110 A=INT(G*RN
000050: 44 28 31 29 29 20 3A 20 42 3D 49 4E 54 28 47 2A D(1)) : B=INT(G*
000060: 52 4E 44 28 31 29 29 20 3A 20 43 3D 49 4E 54 28 RND(1)) : C=INT(
000070: 47 2A 52 4E 44 28 31 29 29 0D 0A 31 32 30 20 46 G*RND(1))..120 F
000080: 4F 52 20 44 3D 31 20 54 4F 20 4E 20 3A 20 50 52 OR D=1 TO N : PR
000090: 49 4E 54 20 3A 20 50 52 49 4E 54 20 22 54 52 49 INT : PRINT "TRI
0000A0: 41 4C 20 23 22 3B 44 3B 20 3A 20 49 4E 50 55 54 AL #";D; : INPUT
0000B0: 20 58 2C 59 2C 5A 0D 0A 31 33 30 20 49 46 20 41 X,Y,Z..130 IF A
0000C0: 42 53 28 58 2D 41 29 2B 41 42 53 28 59 2D 42 29 BS(X-A)+ABS(Y-B)
0000D0: 2B 41 42 53 28 5A 2D 43 29 3D 30 20 54 48 45 4E +ABS(Z-C)=0 THEN
0000E0: 20 33 30 30 0D 0A 31 34 30 20 47 4F 53 55 42 20 300..140 GOSUB
0000F0: 35 30 30 20 3A 20 50 52 49 4E 54 20 3A 20 4E 45 500 : PRINT : NE
000100: 58 54 20 44 0D 0A 32 30 30 20 50 52 49 4E 54 20 XT D..200 PRINT
000110: 3A 20 50 52 49 4E 54 20 22 59 4F 55 20 48 41 56 : PRINT "YOU HAV
000120: 45 20 42 45 45 4E 20 54 4F 52 50 45 44 4F 45 44 E BEEN TORPEDOED
000130: 21 20 20 41 42 41 4E 44 4F 4E 20 53 48 49 50 21 ! ABANDON SHIP!
000140: 22 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 54 48 "..210 PRINT "TH
000150: 45 20 53 55 42 4D 41 52 49 4E 45 20 57 41 53 20 E SUBMARINE WAS
000160: 41 54 22 3B 41 3B 22 2C 22 3B 42 3B 22 2C 22 3B AT";A;",";B;",";
000170: 43 20 3A 20 47 4F 54 4F 20 34 30 30 0D 0A 33 30 C : GOTO 400..30
000180: 30 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 20 0 PRINT : PRINT
000190: 22 42 20 4F 20 4F 20 4D 20 21 20 21 20 59 4F 55 "B O O M ! ! YOU
0001A0: 20 46 4F 55 4E 44 20 49 54 20 49 4E 22 3B 44 3B FOUND IT IN";D;
0001B0: 22 54 52 49 45 53 21 22 0D 0A 34 30 30 20 50 52 "TRIES!"..400 PR
0001C0: 49 4E 54 20 3A 20 50 52 49 4E 54 3A 20 49 4E 50 INT : PRINT: INP
0001D0: 55 54 20 22 41 4E 4F 54 48 45 52 20 47 41 4D 45 UT "ANOTHER GAME
0001E0: 20 28 59 20 4F 52 20 4E 29 22 3B 41 24 0D 0A 34 (Y OR N)";A$..4
0001F0: 31 30 20 49 46 20 41 24 3D 22 59 22 20 54 48 45 10 IF A$="Y" THE
Size : 512 (Real : 512)
000000: 34 30 30 0D 0A 31 33 38 30 20 50 52 49 4E 54 20 400..1380 PRINT
000010: 22 4E 45 58 54 20 4D 4F 56 45 3A 20 22 3B 0D 0A "NEXT MOVE: ";..
000020: 31 33 39 30 20 47 4F 54 4F 20 39 33 30 20 0D 0A 1390 GOTO 930 ..
000030: 31 34 30 30 20 50 52 49 4E 54 22 2A 2A 2A 2A 2A 1400 PRINT"*****
000040: 2A 42 41 4E 47 2A 2A 2A 2A 2A 2A 22 0D 0A 31 34 *BANG******"..14
000050: 31 30 20 50 52 49 4E 54 20 22 59 4F 55 20 4C 4F 10 PRINT "YOU LO
000060: 53 45 21 22 0D 0A 31 34 32 30 20 50 52 49 4E 54 SE!"..1420 PRINT
000070: 0D 0A 31 34 33 30 20 50 52 49 4E 54 0D 0A 31 34 ..1430 PRINT..14
000080: 34 30 20 49 46 20 20 20 5A 3D 30 20 54 48 45 4E 40 IF Z=0 THEN
000090: 20 31 35 38 30 0D 0A 31 34 35 30 20 50 52 49 4E 1580..1450 PRIN
0000A0: 54 20 0D 0A 31 34 36 30 20 4C 45 54 20 5A 32 3D T ..1460 LET Z2=
0000B0: 41 31 2D 5A 31 0D 0A 31 34 37 30 20 49 46 20 5A A1-Z1..1470 IF Z
0000C0: 32 3E 30 20 54 48 45 4E 20 31 35 30 30 0D 0A 31 2>0 THEN 1500..1
0000D0: 34 38 30 20 50 52 49 4E 54 20 22 59 4F 55 20 42 480 PRINT "YOU B
0000E0: 55 53 54 2E 22 0D 0A 31 34 39 30 20 47 4F 54 4F UST."..1490 GOTO
0000F0: 20 31 36 31 30 0D 0A 31 35 30 30 20 50 52 49 4E 1610..1500 PRIN
000100: 54 20 22 20 59 4F 55 20 4E 4F 57 20 48 41 56 45 T " YOU NOW HAVE
000110: 22 3B 20 5A 32 3B 20 22 44 4F 4C 4C 41 52 53 2E "; Z2; "DOLLARS.
000120: 22 0D 0A 31 35 31 30 20 4C 45 54 20 41 31 3D 5A "..1510 LET A1=Z
000130: 32 0D 0A 31 35 32 30 20 47 4F 54 4F 20 31 35 38 2..1520 GOTO 158
000140: 30 0D 0A 31 35 32 32 20 50 52 49 4E 54 22 54 52 0..1522 PRINT"TR
000150: 49 45 44 20 54 4F 20 46 4F 4F 4C 20 4D 45 3B 20 IED TO FOOL ME;
000160: 42 45 54 20 41 47 41 49 4E 22 3B 0D 0A 31 35 32 BET AGAIN";..152
000170: 35 20 47 4F 54 4F 20 38 37 30 0D 0A 31 35 33 30 5 GOTO 870..1530
000180: 20 50 52 49 4E 54 22 43 4F 4E 47 52 41 54 55 4C PRINT"CONGRATUL
000190: 41 54 49 4F 4E 53 21 22 0D 0A 31 35 34 30 20 49 ATIONS!"..1540 I
0001A0: 46 20 5A 3D 30 20 54 48 45 4E 20 31 35 38 30 0D F Z=0 THEN 1580.
0001B0: 0A 31 35 35 30 20 4C 45 54 20 5A 32 3D 41 31 2B .1550 LET Z2=A1+
0001C0: 5A 31 0D 0A 31 35 36 30 20 50 52 49 4E 54 20 22 Z1..1560 PRINT "
0001D0: 59 4F 55 20 4E 4F 57 20 48 41 56 45 22 3B 20 5A YOU NOW HAVE"; Z
0001E0: 32 3B 22 44 4F 4C 4C 41 52 53 2E 22 0D 0A 31 35 2;"DOLLARS."..15
0001F0: 37 30 20 4C 45 54 20 41 31 3D 5A 32 0D 0A 31 35 70 LET A1=Z2..15
Size : 512 (Real : 512)
000000: 4E 20 31 30 30 0D 0A 34 32 30 20 50 52 49 4E 54 N 100..420 PRINT
000010: 20 22 4F 4B 2E 20 20 48 4F 50 45 20 59 4F 55 20 "OK. HOPE YOU
000020: 45 4E 4A 4F 59 45 44 20 59 4F 55 52 53 45 4C 46 ENJOYED YOURSELF
000030: 2E 22 20 3A 20 47 4F 54 4F 20 36 30 30 0D 0A 35 ." : GOTO 600..5
000040: 30 30 20 50 52 49 4E 54 20 22 53 4F 4E 41 52 20 00 PRINT "SONAR
000050: 52 45 50 4F 52 54 53 20 53 48 4F 54 20 57 41 53 REPORTS SHOT WAS
000060: 20 22 3B 0D 0A 35 31 30 20 49 46 20 59 3E 42 20 ";..510 IF Y>B
000070: 54 48 45 4E 20 50 52 49 4E 54 20 22 4E 4F 52 54 THEN PRINT "NORT
000080: 48 22 3B 0D 0A 35 32 30 20 49 46 20 59 3C 42 20 H";..520 IF Y<B
000090: 54 48 45 4E 20 50 52 49 4E 54 20 22 53 4F 55 54 THEN PRINT "SOUT
0000A0: 48 22 3B 0D 0A 35 33 30 20 49 46 20 58 3E 41 20 H";..530 IF X>A
0000B0: 54 48 45 4E 20 50 52 49 4E 54 20 22 45 41 53 54 THEN PRINT "EAST
0000C0: 22 3B 0D 0A 35 34 30 20 49 46 20 58 3C 41 20 54 ";..540 IF X<A T
0000D0: 48 45 4E 20 50 52 49 4E 54 20 22 57 45 53 54 22 HEN PRINT "WEST"
0000E0: 3B 0D 0A 35 35 30 20 49 46 20 59 3C 3E 42 20 4F ;..550 IF Y<>B O
0000F0: 52 20 58 3C 3E 41 20 54 48 45 4E 20 50 52 49 4E R X<>A THEN PRIN
000100: 54 20 22 20 41 4E 44 22 3B 0D 0A 35 36 30 20 49 T " AND";..560 I
000110: 46 20 5A 3E 43 20 54 48 45 4E 20 50 52 49 4E 54 F Z>C THEN PRINT
000120: 20 22 20 54 4F 4F 20 4C 4F 57 2E 22 0D 0A 35 37 " TOO LOW."..57
000130: 30 20 49 46 20 5A 3C 43 20 54 48 45 4E 20 50 52 0 IF Z<C THEN PR
000140: 49 4E 54 20 22 20 54 4F 4F 20 48 49 47 48 2E 22 INT " TOO HIGH."
000150: 0D 0A 35 38 30 20 49 46 20 5A 3D 43 20 54 48 45 ..580 IF Z=C THE
000160: 4E 20 50 52 49 4E 54 20 22 20 44 45 50 54 48 20 N PRINT " DEPTH
000170: 4F 4B 2E 22 0D 0A 35 39 30 20 52 45 54 55 52 4E OK."..590 RETURN
000180: 0D 0A 36 30 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 ..600 END.......
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 38 30 20 50 52 49 4E 54 22 44 4F 20 59 4F 55 20 80 PRINT"DO YOU
000010: 57 41 4E 54 20 54 4F 20 54 52 59 20 41 47 41 49 WANT TO TRY AGAI
000020: 4E 20 22 3B 0D 0A 31 35 39 30 20 49 4E 50 55 54 N ";..1590 INPUT
000030: 20 53 0D 0A 31 36 30 30 20 49 46 20 53 3D 31 20 S..1600 IF S=1
000040: 54 48 45 4E 20 33 38 30 0D 0A 31 36 31 30 20 50 THEN 380..1610 P
000050: 52 49 4E 54 20 22 54 4F 55 47 48 20 4C 55 43 4B RINT "TOUGH LUCK
000060: 21 22 0D 0A 31 36 32 30 20 50 52 49 4E 54 0D 0A !"..1620 PRINT..
000070: 31 36 33 30 20 50 52 49 4E 54 20 22 47 4F 4F 44 1630 PRINT "GOOD
000080: 42 59 45 2E 22 0D 0A 31 36 34 30 20 45 4E 44 0D BYE."..1640 END.
000090: 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
000010: 22 44 49 41 4D 4F 4E 44 22 0D 0A 32 20 50 52 49 "DIAMOND"..2 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 JERSEY"..3 PRINT
000060: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 :PRINT:PRINT..4
000070: 50 52 49 4E 54 20 22 46 4F 52 20 41 20 50 52 45 PRINT "FOR A PRE
000080: 54 54 59 20 44 49 41 4D 4F 4E 44 20 50 41 54 54 TTY DIAMOND PATT
000090: 45 52 4E 2C 22 0D 0A 35 20 49 4E 50 55 54 20 22 ERN,"..5 INPUT "
0000A0: 54 59 50 45 20 49 4E 20 41 4E 20 4F 44 44 20 4E TYPE IN AN ODD N
0000B0: 55 4D 42 45 52 20 42 45 54 57 45 45 4E 20 35 20 UMBER BETWEEN 5
0000C0: 41 4E 44 20 32 31 22 3B 52 3A 50 52 49 4E 54 0D AND 21";R:PRINT.
0000D0: 0A 36 20 51 3D 49 4E 54 28 36 30 2F 52 29 3A 41 .6 Q=INT(60/R):A
0000E0: 24 3D 22 43 43 22 0D 0A 38 20 46 4F 52 20 4C 3D $="CC"..8 FOR L=
0000F0: 31 20 54 4F 20 51 0D 0A 31 30 20 58 3D 31 3A 59 1 TO Q..10 X=1:Y
000100: 3D 52 3A 5A 3D 32 0D 0A 32 30 20 46 4F 52 20 4E =R:Z=2..20 FOR N
000110: 3D 58 20 54 4F 20 59 20 53 54 45 50 20 5A 0D 0A =X TO Y STEP Z..
000120: 32 35 20 50 52 49 4E 54 20 54 41 42 28 28 52 2D 25 PRINT TAB((R-
000130: 4E 29 2F 32 29 3B 0D 0A 32 38 20 46 4F 52 20 4D N)/2);..28 FOR M
000140: 3D 31 20 54 4F 20 51 0D 0A 32 39 20 43 3D 31 0D =1 TO Q..29 C=1.
000150: 0A 33 30 20 46 4F 52 20 41 3D 31 20 54 4F 20 4E .30 FOR A=1 TO N
000160: 0D 0A 33 32 20 49 46 20 43 3E 4C 45 4E 28 41 24 ..32 IF C>LEN(A$
000170: 29 20 54 48 45 4E 20 50 52 49 4E 54 20 22 21 22 ) THEN PRINT "!"
000180: 3B 3A 47 4F 54 4F 20 35 30 0D 0A 33 34 20 50 52 ;:GOTO 50..34 PR
000190: 49 4E 54 20 4D 49 44 24 28 41 24 2C 43 2C 31 29 INT MID$(A$,C,1)
0001A0: 3B 0D 0A 33 36 20 43 3D 43 2B 31 0D 0A 35 30 20 ;..36 C=C+1..50
0001B0: 4E 45 58 54 20 41 0D 0A 35 33 20 49 46 20 4D 3D NEXT A..53 IF M=
0001C0: 51 20 54 48 45 4E 20 36 30 0D 0A 35 35 20 50 52 Q THEN 60..55 PR
0001D0: 49 4E 54 20 54 41 42 28 52 2A 4D 2B 28 52 2D 4E INT TAB(R*M+(R-N
0001E0: 29 2F 32 29 3B 0D 0A 35 36 20 4E 45 58 54 20 4D )/2);..56 NEXT M
0001F0: 0D 0A 36 30 20 50 52 49 4E 54 0D 0A 37 30 20 4E ..60 PRINT..70 N
Size : 512 (Real : 512)
000000: 45 53 53 20 54 48 45 4D 20 46 49 52 53 54 20 41 ESS THEM FIRST A
000010: 4E 44 20 54 48 45 4E 20 4C 4F 4F 4B 20 41 54 20 ND THEN LOOK AT
000020: 59 4F 55 52 22 0D 0A 33 31 30 20 50 52 49 4E 54 YOUR"..310 PRINT
000030: 20 22 4E 45 58 54 20 4E 55 4D 42 45 52 20 54 4F "NEXT NUMBER TO
000040: 20 53 45 45 20 49 46 20 49 20 57 41 53 20 52 49 SEE IF I WAS RI
000050: 47 48 54 2E 20 42 59 20 50 55 52 45 20 4C 55 43 GHT. BY PURE LUC
000060: 4B 2C 22 0D 0A 33 32 30 20 50 52 49 4E 54 20 22 K,"..320 PRINT "
000070: 49 20 4F 55 47 48 54 20 54 4F 20 42 45 20 52 49 I OUGHT TO BE RI
000080: 47 48 54 20 54 45 4E 20 54 49 4D 45 53 2E 20 42 GHT TEN TIMES. B
000090: 55 54 20 49 20 48 4F 50 45 20 54 4F 20 44 4F 20 UT I HOPE TO DO
0000A0: 42 45 54 54 45 52 22 0D 0A 33 33 30 20 50 52 49 BETTER"..330 PRI
0000B0: 4E 54 20 22 54 48 41 4E 20 54 48 41 54 20 2A 2A NT "THAN THAT **
0000C0: 2A 2A 2A 22 0D 0A 33 34 30 20 50 52 49 4E 54 3A ***"..340 PRINT:
0000D0: 50 52 49 4E 54 0D 0A 33 36 30 20 52 45 41 44 20 PRINT..360 READ
0000E0: 41 2C 42 2C 43 0D 0A 33 37 30 20 44 41 54 41 20 A,B,C..370 DATA
0000F0: 30 2C 31 2C 33 0D 0A 33 38 30 20 44 49 4D 20 4D 0,1,3..380 DIM M
000100: 28 32 36 2C 32 29 2C 4B 28 32 2C 32 29 2C 4C 28 (26,2),K(2,2),L(
000110: 38 2C 32 29 0D 0A 34 30 30 20 46 4F 52 20 49 3D 8,2)..400 FOR I=
000120: 30 20 54 4F 20 32 36 3A 20 46 4F 52 20 4A 3D 30 0 TO 26: FOR J=0
000130: 20 54 4F 20 32 3A 20 4D 28 49 2C 4A 29 3D 31 3A TO 2: M(I,J)=1:
000140: 20 4E 45 58 54 20 4A 3A 20 4E 45 58 54 20 49 0D NEXT J: NEXT I.
000150: 0A 34 31 30 20 46 4F 52 20 49 3D 30 20 54 4F 20 .410 FOR I=0 TO
000160: 32 3A 20 46 4F 52 20 4A 3D 30 20 54 4F 20 32 3A 2: FOR J=0 TO 2:
000170: 20 4B 28 49 2C 4A 29 3D 39 3A 20 4E 45 58 54 20 K(I,J)=9: NEXT
000180: 4A 3A 20 4E 45 58 54 20 49 0D 0A 34 32 30 20 46 J: NEXT I..420 F
000190: 4F 52 20 49 3D 30 20 54 4F 20 38 3A 20 46 4F 52 OR I=0 TO 8: FOR
0001A0: 20 4A 3D 30 20 54 4F 20 32 3A 20 4C 28 49 2C 4A J=0 TO 2: L(I,J
0001B0: 29 3D 33 3A 20 4E 45 58 54 20 4A 3A 20 4E 45 58 )=3: NEXT J: NEX
0001C0: 54 20 49 0D 0A 34 35 30 20 4C 28 30 2C 30 29 3D T I..450 L(0,0)=
0001D0: 32 3A 20 4C 28 34 2C 31 29 3D 32 3A 20 4C 28 38 2: L(4,1)=2: L(8
0001E0: 2C 32 29 3D 32 0D 0A 34 38 30 20 5A 3D 32 36 3A ,2)=2..480 Z=26:
0001F0: 20 5A 31 3D 38 3A 20 5A 32 3D 32 0D 0A 35 31 30 Z1=8: Z2=2..510
Size : 512 (Real : 512)
000000: 45 58 54 20 4E 0D 0A 38 33 20 49 46 20 58 3C 3E EXT N..83 IF X<>
000010: 31 20 54 48 45 4E 20 39 35 0D 0A 38 35 20 58 3D 1 THEN 95..85 X=
000020: 52 2D 32 3A 59 3D 31 3A 5A 3D 2D 32 0D 0A 39 30 R-2:Y=1:Z=-2..90
000030: 20 47 4F 54 4F 20 32 30 0D 0A 39 35 20 4E 45 58 GOTO 20..95 NEX
000040: 54 20 4C 0D 0A 39 39 20 45 4E 44 0D 0A 1A E5 E5 T L..99 END.....
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 58 3D 30 0D 0A 35 32 30 20 46 4F 52 20 54 3D X=0..520 FOR T=
000010: 31 20 54 4F 20 33 0D 0A 35 33 30 20 50 52 49 4E 1 TO 3..530 PRIN
000020: 54 0D 0A 35 34 30 20 50 52 49 4E 54 20 22 54 45 T..540 PRINT "TE
000030: 4E 20 4E 55 4D 42 45 52 53 2C 20 50 4C 45 41 53 N NUMBERS, PLEAS
000040: 45 22 3B 0D 0A 35 35 30 20 49 4E 50 55 54 20 4E E";..550 INPUT N
000050: 28 31 29 2C 4E 28 32 29 2C 4E 28 33 29 2C 4E 28 (1),N(2),N(3),N(
000060: 34 29 2C 4E 28 35 29 2C 4E 28 36 29 2C 4E 28 37 4),N(5),N(6),N(7
000070: 29 2C 4E 28 38 29 2C 4E 28 39 29 2C 4E 28 31 30 ),N(8),N(9),N(10
000080: 29 0D 0A 35 36 30 20 46 4F 52 20 49 3D 31 20 54 )..560 FOR I=1 T
000090: 4F 20 31 30 0D 0A 35 37 30 20 57 3D 4E 28 49 29 O 10..570 W=N(I)
0000A0: 2D 31 0D 0A 35 38 30 20 49 46 20 57 3D 53 47 4E -1..580 IF W=SGN
0000B0: 28 57 29 20 54 48 45 4E 20 36 32 30 0D 0A 35 39 (W) THEN 620..59
0000C0: 30 20 50 52 49 4E 54 20 22 4F 4E 4C 59 20 55 53 0 PRINT "ONLY US
0000D0: 45 20 54 48 45 20 44 49 47 49 54 53 20 27 30 27 E THE DIGITS '0'
0000E0: 2C 20 27 31 27 2C 20 4F 52 20 27 32 27 2E 22 0D , '1', OR '2'.".
0000F0: 0A 36 30 30 20 50 52 49 4E 54 20 22 4C 45 54 27 .600 PRINT "LET'
000100: 53 20 54 52 59 20 41 47 41 49 4E 2E 22 3A 47 4F S TRY AGAIN.":GO
000110: 54 4F 20 35 33 30 0D 0A 36 32 30 20 4E 45 58 54 TO 530..620 NEXT
000120: 20 49 0D 0A 36 33 30 20 50 52 49 4E 54 3A 20 50 I..630 PRINT: P
000130: 52 49 4E 54 20 22 4D 59 20 47 55 45 53 53 22 2C RINT "MY GUESS",
000140: 22 59 4F 55 52 20 4E 4F 2E 22 2C 22 52 45 53 55 "YOUR NO.","RESU
000150: 4C 54 22 2C 22 4E 4F 2E 20 52 49 47 48 54 22 3A LT","NO. RIGHT":
000160: 50 52 49 4E 54 0D 0A 36 36 30 20 46 4F 52 20 55 PRINT..660 FOR U
000170: 3D 31 20 54 4F 20 31 30 0D 0A 36 37 30 20 4E 3D =1 TO 10..670 N=
000180: 4E 28 55 29 3A 20 53 3D 30 0D 0A 36 39 30 20 46 N(U): S=0..690 F
000190: 4F 52 20 4A 3D 30 20 54 4F 20 32 0D 0A 37 30 30 OR J=0 TO 2..700
0001A0: 20 53 31 3D 41 2A 4B 28 5A 32 2C 4A 29 2B 42 2A S1=A*K(Z2,J)+B*
0001B0: 4C 28 5A 31 2C 4A 29 2B 43 2A 4D 28 5A 2C 4A 29 L(Z1,J)+C*M(Z,J)
0001C0: 0D 0A 37 31 30 20 49 46 20 53 3E 53 31 20 54 48 ..710 IF S>S1 TH
0001D0: 45 4E 20 37 36 30 0D 0A 37 32 30 20 49 46 20 53 EN 760..720 IF S
0001E0: 3C 53 31 20 54 48 45 4E 20 37 34 30 0D 0A 37 33 <S1 THEN 740..73
0001F0: 30 20 49 46 20 52 4E 44 28 31 29 3C 2E 35 20 54 0 IF RND(1)<.5 T
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 3B 2 PRINT TAB(34);
000010: 22 44 49 43 45 22 0D 0A 34 20 50 52 49 4E 54 20 "DICE"..4 PRINT
000020: 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 56 TAB(15);"CREATIV
000030: 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F 52 E COMPUTING MOR
000040: 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 52 RISTOWN, NEW JER
000050: 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 50 52 SEY"..6 PRINT:PR
000060: 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 20 44 49 INT:PRINT..10 DI
000070: 4D 20 46 28 31 32 29 0D 0A 32 30 20 52 45 4D 20 M F(12)..20 REM
000080: 20 44 41 4E 4E 59 20 46 52 45 49 44 55 53 0D 0A DANNY FREIDUS..
000090: 33 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 50 30 PRINT "THIS P
0000A0: 52 4F 47 52 41 4D 20 53 49 4D 55 4C 41 54 45 53 ROGRAM SIMULATES
0000B0: 20 54 48 45 20 52 4F 4C 4C 49 4E 47 20 4F 46 20 THE ROLLING OF
0000C0: 41 22 0D 0A 34 30 20 50 52 49 4E 54 20 22 50 41 A"..40 PRINT "PA
0000D0: 49 52 20 4F 46 20 44 49 43 45 2E 22 0D 0A 35 30 IR OF DICE."..50
0000E0: 20 50 52 49 4E 54 20 22 59 4F 55 20 45 4E 54 45 PRINT "YOU ENTE
0000F0: 52 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 R THE NUMBER OF
000100: 54 49 4D 45 53 20 59 4F 55 20 57 41 4E 54 20 54 TIMES YOU WANT T
000110: 48 45 20 43 4F 4D 50 55 54 45 52 20 54 4F 22 0D HE COMPUTER TO".
000120: 0A 36 30 20 50 52 49 4E 54 20 22 27 52 4F 4C 4C .60 PRINT "'ROLL
000130: 27 20 54 48 45 20 44 49 43 45 2E 20 20 57 41 54 ' THE DICE. WAT
000140: 43 48 20 4F 55 54 2C 20 56 45 52 59 20 4C 41 52 CH OUT, VERY LAR
000150: 47 45 20 4E 55 4D 42 45 52 53 20 54 41 4B 45 22 GE NUMBERS TAKE"
000160: 0D 0A 37 30 20 50 52 49 4E 54 20 22 41 20 4C 4F ..70 PRINT "A LO
000170: 4E 47 20 54 49 4D 45 2E 20 20 49 4E 20 50 41 52 NG TIME. IN PAR
000180: 54 49 43 55 4C 41 52 2C 20 4E 55 4D 42 45 52 53 TICULAR, NUMBERS
000190: 20 4F 56 45 52 20 35 30 30 30 2E 22 0D 0A 38 30 OVER 5000."..80
0001A0: 20 46 4F 52 20 51 3D 31 20 54 4F 20 31 32 0D 0A FOR Q=1 TO 12..
0001B0: 39 30 20 46 28 51 29 3D 30 0D 0A 31 30 30 20 4E 90 F(Q)=0..100 N
0001C0: 45 58 54 20 51 0D 0A 31 31 30 20 50 52 49 4E 54 EXT Q..110 PRINT
0001D0: 3A 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 :PRINT "HOW MANY
0001E0: 20 52 4F 4C 4C 53 22 3B 0D 0A 31 32 30 20 49 4E ROLLS";..120 IN
0001F0: 50 55 54 20 58 0D 0A 31 33 30 20 46 4F 52 20 53 PUT X..130 FOR S
Size : 512 (Real : 512)
000000: 48 45 4E 20 37 36 30 0D 0A 37 34 30 20 53 3D 53 HEN 760..740 S=S
000010: 31 3A 20 47 3D 4A 0D 0A 37 36 30 20 4E 45 58 54 1: G=J..760 NEXT
000020: 20 4A 0D 0A 37 37 30 20 50 52 49 4E 54 20 22 20 J..770 PRINT "
000030: 20 22 3B 47 2C 22 20 20 20 22 3B 4E 28 55 29 2C ";G," ";N(U),
000040: 0D 0A 37 38 30 20 49 46 20 47 3D 4E 28 55 29 20 ..780 IF G=N(U)
000050: 54 48 45 4E 20 38 31 30 0D 0A 37 39 30 20 50 52 THEN 810..790 PR
000060: 49 4E 54 20 22 20 57 52 4F 4E 47 22 2C 58 0D 0A INT " WRONG",X..
000070: 38 30 30 20 47 4F 54 4F 20 38 38 30 0D 0A 38 31 800 GOTO 880..81
000080: 30 20 58 3D 58 2B 31 0D 0A 38 32 30 20 50 52 49 0 X=X+1..820 PRI
000090: 4E 54 20 22 20 52 49 47 48 54 22 2C 58 0D 0A 38 NT " RIGHT",X..8
0000A0: 33 30 20 4D 28 5A 2C 4E 29 3D 4D 28 5A 2C 4E 29 30 M(Z,N)=M(Z,N)
0000B0: 2B 31 0D 0A 38 34 30 20 4C 28 5A 31 2C 4E 29 3D +1..840 L(Z1,N)=
0000C0: 4C 28 5A 31 2C 4E 29 2B 31 0D 0A 38 35 30 20 4B L(Z1,N)+1..850 K
0000D0: 28 5A 32 2C 4E 29 3D 4B 28 5A 32 2C 4E 29 2B 31 (Z2,N)=K(Z2,N)+1
0000E0: 0D 0A 38 36 30 20 5A 3D 5A 2D 49 4E 54 28 5A 2F ..860 Z=Z-INT(Z/
0000F0: 39 29 2A 39 0D 0A 38 37 30 20 5A 3D 33 2A 5A 2B 9)*9..870 Z=3*Z+
000100: 4E 28 55 29 0D 0A 38 38 30 20 5A 31 3D 5A 2D 49 N(U)..880 Z1=Z-I
000110: 4E 54 28 5A 2F 39 29 2A 39 0D 0A 38 39 30 20 5A NT(Z/9)*9..890 Z
000120: 32 3D 4E 28 55 29 0D 0A 39 30 30 20 4E 45 58 54 2=N(U)..900 NEXT
000130: 20 55 0D 0A 39 31 30 20 4E 45 58 54 20 54 0D 0A U..910 NEXT T..
000140: 39 32 30 20 50 52 49 4E 54 0D 0A 39 33 30 20 49 920 PRINT..930 I
000150: 46 20 58 3E 31 30 20 54 48 45 4E 20 39 38 30 0D F X>10 THEN 980.
000160: 0A 39 34 30 20 49 46 20 58 3C 31 30 20 54 48 45 .940 IF X<10 THE
000170: 4E 20 31 30 31 30 0D 0A 39 35 30 20 50 52 49 4E N 1010..950 PRIN
000180: 54 20 22 49 20 47 55 45 53 53 45 44 20 45 58 41 T "I GUESSED EXA
000190: 43 54 4C 59 20 31 2F 33 20 4F 46 20 59 4F 55 52 CTLY 1/3 OF YOUR
0001A0: 20 4E 55 4D 42 45 52 53 2E 22 0D 0A 39 36 30 20 NUMBERS."..960
0001B0: 50 52 49 4E 54 20 22 49 54 27 53 20 41 20 54 49 PRINT "IT'S A TI
0001C0: 45 20 47 41 4D 45 2E 22 0D 0A 39 37 30 20 47 4F E GAME."..970 GO
0001D0: 54 4F 20 31 30 33 30 0D 0A 39 38 30 20 50 52 49 TO 1030..980 PRI
0001E0: 4E 54 20 22 49 20 47 55 45 53 53 45 44 20 4D 4F NT "I GUESSED MO
0001F0: 52 45 20 54 48 41 4E 20 31 2F 33 20 4F 46 20 59 RE THAN 1/3 OF Y
Size : 512 (Real : 512)
000000: 3D 31 20 54 4F 20 58 0D 0A 31 34 30 20 41 3D 49 =1 TO X..140 A=I
000010: 4E 54 28 36 2A 52 4E 44 28 31 29 2B 31 29 0D 0A NT(6*RND(1)+1)..
000020: 31 35 30 20 42 3D 49 4E 54 28 36 2A 52 4E 44 28 150 B=INT(6*RND(
000030: 31 29 2B 31 29 0D 0A 31 36 30 20 52 3D 41 2B 42 1)+1)..160 R=A+B
000040: 0D 0A 31 37 30 20 46 28 52 29 3D 46 28 52 29 2B ..170 F(R)=F(R)+
000050: 31 0D 0A 31 38 30 20 4E 45 58 54 20 53 0D 0A 31 1..180 NEXT S..1
000060: 38 35 20 50 52 49 4E 54 0D 0A 31 39 30 20 50 52 85 PRINT..190 PR
000070: 49 4E 54 20 22 54 4F 54 41 4C 20 53 50 4F 54 53 INT "TOTAL SPOTS
000080: 22 2C 22 4E 55 4D 42 45 52 20 4F 46 20 54 49 4D ","NUMBER OF TIM
000090: 45 53 22 0D 0A 32 30 30 20 46 4F 52 20 56 3D 32 ES"..200 FOR V=2
0000A0: 20 54 4F 20 31 32 0D 0A 32 31 30 20 50 52 49 4E TO 12..210 PRIN
0000B0: 54 20 56 2C 46 28 56 29 0D 0A 32 32 30 20 4E 45 T V,F(V)..220 NE
0000C0: 58 54 20 56 0D 0A 32 32 31 20 50 52 49 4E 54 0D XT V..221 PRINT.
0000D0: 0A 32 32 32 20 50 52 49 4E 54 3A 50 52 49 4E 54 .222 PRINT:PRINT
0000E0: 20 22 54 52 59 20 41 47 41 49 4E 22 3B 0D 0A 32 "TRY AGAIN";..2
0000F0: 32 33 20 49 4E 50 55 54 20 5A 24 0D 0A 32 32 34 23 INPUT Z$..224
000100: 20 49 46 20 5A 24 3D 22 59 45 53 22 20 54 48 45 IF Z$="YES" THE
000110: 4E 20 38 30 0D 0A 32 34 30 20 45 4E 44 0D 0A 1A N 80..240 END...
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 4F 55 52 20 4E 55 4D 42 45 52 53 2E 22 0D 0A 39 OUR NUMBERS."..9
000010: 39 30 20 50 52 49 4E 54 20 22 49 20 57 49 4E 2E 90 PRINT "I WIN.
000020: 22 3A 20 46 4F 52 20 51 3D 31 20 54 4F 20 31 30 ": FOR Q=1 TO 10
000030: 3A 20 50 52 49 4E 54 20 43 48 52 24 28 37 29 3B : PRINT CHR$(7);
000040: 3A 20 4E 45 58 54 20 51 0D 0A 31 30 30 30 20 47 : NEXT Q..1000 G
000050: 4F 54 4F 20 31 30 33 30 0D 0A 31 30 31 30 20 50 OTO 1030..1010 P
000060: 52 49 4E 54 20 22 49 20 47 55 45 53 53 45 44 20 RINT "I GUESSED
000070: 4C 45 53 53 20 54 48 41 4E 20 31 2F 33 20 4F 46 LESS THAN 1/3 OF
000080: 20 59 4F 55 52 20 4E 55 4D 42 45 52 53 2E 22 0D YOUR NUMBERS.".
000090: 0A 31 30 32 30 20 50 52 49 4E 54 20 22 59 4F 55 .1020 PRINT "YOU
0000A0: 20 42 45 41 54 20 4D 45 2E 20 20 43 4F 4E 47 52 BEAT ME. CONGR
0000B0: 41 54 55 4C 41 54 49 4F 4E 53 20 2A 2A 2A 2A 2A ATULATIONS *****
0000C0: 22 0D 0A 31 30 33 30 20 50 52 49 4E 54 0D 0A 31 "..1030 PRINT..1
0000D0: 30 34 30 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 040 PRINT "DO YO
0000E0: 55 20 57 41 4E 54 20 54 4F 20 54 52 59 20 41 47 U WANT TO TRY AG
0000F0: 41 49 4E 20 28 31 20 46 4F 52 20 59 45 53 2C 20 AIN (1 FOR YES,
000100: 30 20 46 4F 52 20 4E 4F 29 22 3B 0D 0A 31 30 36 0 FOR NO)";..106
000110: 30 20 49 4E 50 55 54 20 58 0D 0A 31 30 37 30 20 0 INPUT X..1070
000120: 49 46 20 58 3D 31 20 54 48 45 4E 20 34 30 30 0D IF X=1 THEN 400.
000130: 0A 31 30 38 30 20 50 52 49 4E 54 3A 50 52 49 4E .1080 PRINT:PRIN
000140: 54 20 22 54 48 41 4E 4B 53 20 46 4F 52 20 54 48 T "THANKS FOR TH
000150: 45 20 47 41 4D 45 2E 22 0D 0A 31 30 39 30 20 45 E GAME."..1090 E
000160: 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ND..............
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 44 49 47 49 54 53 22 0D 0A 32 30 20 50 52 ;"DIGITS"..20 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
000060: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
000070: 32 31 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 210 PRINT "THIS
000080: 49 53 20 41 20 47 41 4D 45 20 4F 46 20 47 55 45 IS A GAME OF GUE
000090: 53 53 49 4E 47 2E 22 0D 0A 32 32 30 20 50 52 49 SSING."..220 PRI
0000A0: 4E 54 20 22 46 4F 52 20 49 4E 53 54 52 55 43 54 NT "FOR INSTRUCT
0000B0: 49 4F 4E 53 2C 20 54 59 50 45 20 27 31 27 2C 20 IONS, TYPE '1',
0000C0: 45 4C 53 45 20 54 59 50 45 20 27 30 27 22 3B 0D ELSE TYPE '0'";.
0000D0: 0A 32 33 30 20 49 4E 50 55 54 20 45 0D 0A 32 34 .230 INPUT E..24
0000E0: 30 20 49 46 20 45 3D 30 20 54 48 45 4E 20 33 36 0 IF E=0 THEN 36
0000F0: 30 0D 0A 32 35 30 20 50 52 49 4E 54 0D 0A 32 36 0..250 PRINT..26
000100: 30 20 50 52 49 4E 54 20 22 50 4C 45 41 53 45 20 0 PRINT "PLEASE
000110: 54 41 4B 45 20 41 20 50 49 45 43 45 20 4F 46 20 TAKE A PIECE OF
000120: 50 41 50 45 52 20 41 4E 44 20 57 52 49 54 45 20 PAPER AND WRITE
000130: 44 4F 57 4E 22 0D 0A 32 37 30 20 50 52 49 4E 54 DOWN"..270 PRINT
000140: 20 22 54 48 45 20 44 49 47 49 54 53 20 27 30 27 "THE DIGITS '0'
000150: 2C 20 27 31 27 2C 20 4F 52 20 27 32 27 20 54 48 , '1', OR '2' TH
000160: 49 52 54 59 20 54 49 4D 45 53 20 41 54 20 52 41 IRTY TIMES AT RA
000170: 4E 44 4F 4D 2E 22 0D 0A 32 38 30 20 50 52 49 4E NDOM."..280 PRIN
000180: 54 20 22 41 52 52 41 4E 47 45 20 54 48 45 4D 20 T "ARRANGE THEM
000190: 49 4E 20 54 48 52 45 45 20 4C 49 4E 45 53 20 4F IN THREE LINES O
0001A0: 46 20 54 45 4E 20 44 49 47 49 54 53 20 45 41 43 F TEN DIGITS EAC
0001B0: 48 2E 22 0D 0A 32 39 30 20 50 52 49 4E 54 20 22 H."..290 PRINT "
0001C0: 49 20 57 49 4C 4C 20 41 53 4B 20 46 4F 52 20 54 I WILL ASK FOR T
0001D0: 48 45 4E 20 54 45 4E 20 41 54 20 41 20 54 49 4D HEN TEN AT A TIM
0001E0: 45 2E 22 0D 0A 33 30 30 20 50 52 49 4E 54 20 22 E."..300 PRINT "
0001F0: 49 20 57 49 4C 4C 20 41 4C 57 41 59 53 20 47 55 I WILL ALWAYS GU
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 48 45 4E 20 37 39 30 0D 0A 37 37 30 20 52 45 4D HEN 790..770 REM
000010: 20 20 20 20 20 49 53 20 23 20 5A 45 52 4F 20 48 IS # ZERO H
000020: 45 52 45 0D 0A 37 38 30 20 47 4F 54 4F 20 33 30 ERE..780 GOTO 30
000030: 30 0D 0A 37 39 30 20 52 45 4D 20 20 20 20 20 49 0..790 REM I
000040: 53 20 3D 20 5A 45 52 4F 20 48 45 52 45 0D 0A 38 S = ZERO HERE..8
000050: 30 30 20 50 52 49 4E 54 20 22 49 20 50 49 43 4B 00 PRINT "I PICK
000060: 20 55 50 22 3B 4D 3B 22 4D 41 52 42 4C 45 53 2E UP";M;"MARBLES.
000070: 22 0D 0A 38 31 30 20 50 52 49 4E 54 0D 0A 38 32 "..810 PRINT..82
000080: 30 20 47 4F 54 4F 20 38 38 30 0D 0A 38 33 30 20 0 GOTO 880..830
000090: 52 45 4D 20 20 20 20 54 48 49 53 20 49 53 20 57 REM THIS IS W
0000A0: 48 45 52 45 20 49 20 57 49 4E 0D 0A 38 34 30 20 HERE I WIN..840
0000B0: 50 52 49 4E 54 20 22 49 20 50 49 43 4B 20 55 50 PRINT "I PICK UP
0000C0: 22 3B 4D 3B 22 4D 41 52 42 4C 45 53 2E 22 0D 0A ";M;"MARBLES."..
0000D0: 38 35 30 20 50 52 49 4E 54 0D 0A 38 36 30 20 50 850 PRINT..860 P
0000E0: 52 49 4E 54 20 22 54 4F 54 41 4C 20 3D 20 30 22 RINT "TOTAL = 0"
0000F0: 0D 0A 38 37 30 20 4D 31 3D 4D 31 2B 4D 0D 0A 38 ..870 M1=M1+M..8
000100: 38 30 20 50 52 49 4E 54 20 22 54 48 41 54 20 49 80 PRINT "THAT I
000110: 53 20 41 4C 4C 20 4F 46 20 54 48 45 20 4D 41 52 S ALL OF THE MAR
000120: 42 4C 45 53 2E 22 0D 0A 38 39 30 20 50 52 49 4E BLES."..890 PRIN
000130: 54 0D 0A 39 30 30 20 50 52 49 4E 54 20 22 20 4D T..900 PRINT " M
000140: 59 20 54 4F 54 41 4C 20 49 53 22 3B 4D 31 3B 22 Y TOTAL IS";M1;"
000150: 2C 20 59 4F 55 52 20 54 4F 54 41 4C 20 49 53 22 , YOUR TOTAL IS"
000160: 3B 59 31 0D 0A 39 31 30 20 50 52 49 4E 54 0D 0A ;Y1..910 PRINT..
000170: 39 32 30 20 49 46 20 49 4E 54 28 4D 31 2F 32 29 920 IF INT(M1/2)
000180: 3D 4D 31 2F 32 20 54 48 45 4E 20 39 35 30 0D 0A =M1/2 THEN 950..
000190: 39 33 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 930 PRINT "
0001A0: 59 4F 55 20 57 4F 4E 2E 20 20 44 4F 20 59 4F 55 YOU WON. DO YOU
0001B0: 20 57 41 4E 54 20 54 4F 20 50 4C 41 59 22 0D 0A WANT TO PLAY"..
0001C0: 39 34 30 20 47 4F 54 4F 20 39 36 30 0D 0A 39 35 940 GOTO 960..95
0001D0: 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 49 20 0 PRINT " I
0001E0: 57 4F 4E 2E 20 20 44 4F 20 59 4F 55 20 57 41 4E WON. DO YOU WAN
0001F0: 54 20 54 4F 20 50 4C 41 59 22 0D 0A 39 36 30 20 T TO PLAY"..960
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 31 29 3B 1 PRINT TAB(31);
000010: 22 45 56 45 4E 20 57 49 4E 53 22 0D 0A 32 20 50 "EVEN WINS"..2 P
000020: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
000030: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
000040: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
000050: 57 20 4A 45 52 53 45 59 22 0D 0A 33 20 50 52 49 W JERSEY"..3 PRI
000060: 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 59 31 3D 30 NT:PRINT..4 Y1=0
000070: 0D 0A 31 30 20 4D 31 3D 30 0D 0A 32 30 20 44 49 ..10 M1=0..20 DI
000080: 4D 20 4D 28 32 30 29 2C 59 28 32 30 29 0D 0A 33 M M(20),Y(20)..3
000090: 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 54 48 0 PRINT " TH
0000A0: 49 53 20 49 53 20 41 20 54 57 4F 20 50 45 52 53 IS IS A TWO PERS
0000B0: 4F 4E 20 47 41 4D 45 20 43 41 4C 4C 45 44 20 27 ON GAME CALLED '
0000C0: 45 56 45 4E 20 57 49 4E 53 2E 27 22 0D 0A 34 30 EVEN WINS.'"..40
0000D0: 20 50 52 49 4E 54 20 22 54 4F 20 50 4C 41 59 20 PRINT "TO PLAY
0000E0: 54 48 45 20 47 41 4D 45 2C 20 54 48 45 20 50 4C THE GAME, THE PL
0000F0: 41 59 45 52 53 20 4E 45 45 44 20 32 37 20 4D 41 AYERS NEED 27 MA
000100: 52 42 4C 45 53 20 4F 52 22 0D 0A 35 30 20 50 52 RBLES OR"..50 PR
000110: 49 4E 54 20 22 4F 54 48 45 52 20 4F 42 4A 45 43 INT "OTHER OBJEC
000120: 54 53 20 4F 4E 20 41 20 54 41 42 4C 45 2E 22 0D TS ON A TABLE.".
000130: 0A 36 30 20 50 52 49 4E 54 0D 0A 37 30 20 50 52 .60 PRINT..70 PR
000140: 49 4E 54 20 0D 0A 38 30 20 50 52 49 4E 54 20 22 INT ..80 PRINT "
000150: 20 20 20 20 20 54 48 45 20 32 20 50 4C 41 59 45 THE 2 PLAYE
000160: 52 53 20 41 4C 54 45 52 4E 41 54 45 20 54 55 52 RS ALTERNATE TUR
000170: 4E 53 2C 20 57 49 54 48 20 45 41 43 48 20 50 4C NS, WITH EACH PL
000180: 41 59 45 52 22 0D 0A 39 30 20 50 52 49 4E 54 20 AYER"..90 PRINT
000190: 22 52 45 4D 4F 56 49 4E 47 20 46 52 4F 4D 20 31 "REMOVING FROM 1
0001A0: 20 54 4F 20 34 20 4D 41 52 42 4C 45 53 20 4F 4E TO 4 MARBLES ON
0001B0: 20 45 41 43 48 20 4D 4F 56 45 2E 20 20 54 48 45 EACH MOVE. THE
0001C0: 20 47 41 4D 45 22 0D 0A 31 30 30 20 50 52 49 4E GAME"..100 PRIN
0001D0: 54 20 22 45 4E 44 53 20 57 48 45 4E 20 54 48 45 T "ENDS WHEN THE
0001E0: 52 45 20 41 52 45 20 4E 4F 20 4D 41 52 42 4C 45 RE ARE NO MARBLE
0001F0: 53 20 4C 45 46 54 2C 20 41 4E 44 20 54 48 45 20 S LEFT, AND THE
Size : 512 (Real : 512)
000000: 50 52 49 4E 54 20 22 41 47 41 49 4E 3F 20 20 54 PRINT "AGAIN? T
000010: 59 50 45 20 31 20 46 4F 52 20 59 45 53 20 41 4E YPE 1 FOR YES AN
000020: 44 20 30 20 46 4F 52 20 4E 4F 2E 22 0D 0A 39 37 D 0 FOR NO."..97
000030: 30 20 49 4E 50 55 54 20 41 31 0D 0A 39 38 30 20 0 INPUT A1..980
000040: 49 46 20 41 31 3D 30 20 54 48 45 4E 20 31 30 33 IF A1=0 THEN 103
000050: 30 0D 0A 39 39 30 20 4D 31 3D 30 0D 0A 31 30 30 0..990 M1=0..100
000060: 30 20 59 31 3D 30 0D 0A 31 30 31 30 20 47 4F 54 0 Y1=0..1010 GOT
000070: 4F 20 32 30 30 0D 0A 31 30 32 30 20 47 4F 54 4F O 200..1020 GOTO
000080: 20 36 34 30 0D 0A 31 30 33 30 20 50 52 49 4E 54 640..1030 PRINT
000090: 0D 0A 31 30 34 30 20 50 52 49 4E 54 20 22 4F 4B ..1040 PRINT "OK
0000A0: 2E 20 20 53 45 45 20 59 4F 55 20 4C 41 54 45 52 . SEE YOU LATER
0000B0: 2E 22 0D 0A 31 30 35 30 20 47 4F 54 4F 20 31 32 ."..1050 GOTO 12
0000C0: 33 30 0D 0A 31 30 36 30 20 54 3D 32 37 0D 0A 31 30..1060 T=27..1
0000D0: 30 37 30 20 50 52 49 4E 54 0D 0A 31 30 38 30 20 070 PRINT..1080
0000E0: 50 52 49 4E 54 0D 0A 31 30 39 30 20 50 52 49 4E PRINT..1090 PRIN
0000F0: 54 0D 0A 31 31 30 30 20 50 52 49 4E 54 20 22 54 T..1100 PRINT "T
000100: 4F 54 41 4C 3D 22 3B 54 0D 0A 31 31 31 30 20 50 OTAL=";T..1110 P
000110: 52 49 4E 54 0D 0A 31 31 32 30 20 50 52 49 4E 54 RINT..1120 PRINT
000120: 0D 0A 31 31 33 30 20 50 52 49 4E 54 20 22 57 48 ..1130 PRINT "WH
000130: 41 54 20 49 53 20 59 4F 55 52 20 46 49 52 53 54 AT IS YOUR FIRST
000140: 20 4D 4F 56 45 22 3B 0D 0A 31 31 34 30 20 49 4E MOVE";..1140 IN
000150: 50 55 54 20 59 0D 0A 31 31 35 30 20 47 4F 54 4F PUT Y..1150 GOTO
000160: 20 33 36 30 0D 0A 31 31 36 30 20 50 52 49 4E 54 360..1160 PRINT
000170: 0D 0A 31 31 37 30 20 50 52 49 4E 54 20 22 54 48 ..1170 PRINT "TH
000180: 45 20 4E 55 4D 42 45 52 20 4F 46 20 4D 41 52 42 E NUMBER OF MARB
000190: 4C 45 53 20 59 4F 55 20 54 41 4B 45 20 4D 55 53 LES YOU TAKE MUS
0001A0: 54 20 42 45 20 41 20 50 4F 53 49 54 49 56 45 22 T BE A POSITIVE"
0001B0: 0D 0A 31 31 38 30 20 50 52 49 4E 54 20 22 49 4E ..1180 PRINT "IN
0001C0: 54 45 47 45 52 20 42 45 54 57 45 45 4E 20 31 20 TEGER BETWEEN 1
0001D0: 41 4E 44 20 34 2E 22 0D 0A 31 31 39 30 20 50 52 AND 4."..1190 PR
0001E0: 49 4E 54 0D 0A 31 32 30 30 20 50 52 49 4E 54 20 INT..1200 PRINT
0001F0: 22 20 20 20 20 20 57 48 41 54 20 49 53 20 59 4F " WHAT IS YO
Size : 512 (Real : 512)
000000: 57 49 4E 4E 45 52 22 0D 0A 31 31 30 20 50 52 49 WINNER"..110 PRI
000010: 4E 54 20 22 49 53 20 54 48 45 20 4F 4E 45 20 57 NT "IS THE ONE W
000020: 49 54 48 20 41 4E 20 45 56 45 4E 20 4E 55 4D 42 ITH AN EVEN NUMB
000030: 45 52 20 4F 46 20 4D 41 52 42 4C 45 53 2E 22 0D ER OF MARBLES.".
000040: 0A 31 32 30 20 50 52 49 4E 54 0D 0A 31 33 30 20 .120 PRINT..130
000050: 50 52 49 4E 54 0D 0A 31 34 30 20 50 52 49 4E 54 PRINT..140 PRINT
000060: 20 22 20 20 20 20 20 54 48 45 20 4F 4E 4C 59 20 " THE ONLY
000070: 52 55 4C 45 53 20 41 52 45 20 54 48 41 54 20 28 RULES ARE THAT (
000080: 31 29 20 59 4F 55 20 4D 55 53 54 20 41 4C 54 45 1) YOU MUST ALTE
000090: 52 4E 41 54 45 20 54 55 52 4E 53 2C 22 0D 0A 31 RNATE TURNS,"..1
0000A0: 35 30 20 50 52 49 4E 54 20 22 28 32 29 20 59 4F 50 PRINT "(2) YO
0000B0: 55 20 4D 55 53 54 20 54 41 4B 45 20 42 45 54 57 U MUST TAKE BETW
0000C0: 45 45 4E 20 31 20 41 4E 44 20 34 20 4D 41 52 42 EEN 1 AND 4 MARB
0000D0: 4C 45 53 20 45 41 43 48 20 54 55 52 4E 2C 22 0D LES EACH TURN,".
0000E0: 0A 31 36 30 20 50 52 49 4E 54 20 22 41 4E 44 20 .160 PRINT "AND
0000F0: 28 33 29 20 59 4F 55 20 43 41 4E 4E 4F 54 20 53 (3) YOU CANNOT S
000100: 4B 49 50 20 41 20 54 55 52 4E 2E 22 0D 0A 31 37 KIP A TURN."..17
000110: 30 20 50 52 49 4E 54 0D 0A 31 38 30 20 50 52 49 0 PRINT..180 PRI
000120: 4E 54 0D 0A 31 39 30 20 50 52 49 4E 54 0D 0A 32 NT..190 PRINT..2
000130: 30 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 54 00 PRINT " T
000140: 59 50 45 20 41 20 27 31 27 20 49 46 20 59 4F 55 YPE A '1' IF YOU
000150: 20 57 41 4E 54 20 54 4F 20 47 4F 20 46 49 52 53 WANT TO GO FIRS
000160: 54 2C 20 41 4E 44 20 54 59 50 45 22 0D 0A 32 31 T, AND TYPE"..21
000170: 30 20 50 52 49 4E 54 20 22 41 20 27 30 27 20 49 0 PRINT "A '0' I
000180: 46 20 59 4F 55 20 57 41 4E 54 20 4D 45 20 54 4F F YOU WANT ME TO
000190: 20 47 4F 20 46 49 52 53 54 2E 22 0D 0A 32 32 30 GO FIRST."..220
0001A0: 20 49 4E 50 55 54 20 43 0D 0A 32 32 35 20 50 52 INPUT C..225 PR
0001B0: 49 4E 54 0D 0A 32 33 30 20 49 46 20 43 3D 30 20 INT..230 IF C=0
0001C0: 54 48 45 4E 20 32 35 30 0D 0A 32 34 30 20 47 4F THEN 250..240 GO
0001D0: 54 4F 20 31 30 36 30 0D 0A 32 35 30 20 54 3D 32 TO 1060..250 T=2
0001E0: 37 0D 0A 32 36 30 20 4D 3D 32 0D 0A 32 37 30 20 7..260 M=2..270
0001F0: 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 54 4F 54 PRINT:PRINT "TOT
Size : 512 (Real : 512)
000000: 55 52 20 4E 45 58 54 20 4D 4F 56 45 3F 22 0D 0A UR NEXT MOVE?"..
000010: 31 32 31 30 20 50 52 49 4E 54 0D 0A 31 32 32 30 1210 PRINT..1220
000020: 20 47 4F 54 4F 20 33 35 30 0D 0A 31 32 33 30 20 GOTO 350..1230
000030: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 41 4C 3D 22 3B 54 3A 50 52 49 4E 54 0D 0A 32 38 AL=";T:PRINT..28
000010: 30 20 4D 31 3D 4D 31 2B 4D 0D 0A 32 39 30 20 54 0 M1=M1+M..290 T
000020: 3D 54 2D 4D 0D 0A 33 30 30 20 50 52 49 4E 54 20 =T-M..300 PRINT
000030: 22 49 20 50 49 43 4B 20 55 50 22 3B 4D 3B 22 4D "I PICK UP";M;"M
000040: 41 52 42 4C 45 53 2E 22 0D 0A 33 31 30 20 49 46 ARBLES."..310 IF
000050: 20 54 3D 30 20 54 48 45 4E 20 38 38 30 0D 0A 33 T=0 THEN 880..3
000060: 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 20 PRINT:PRINT "
000070: 54 4F 54 41 4C 3D 22 3B 54 0D 0A 33 33 30 20 50 TOTAL=";T..330 P
000080: 52 49 4E 54 0D 0A 33 34 30 20 50 52 49 4E 54 20 RINT..340 PRINT
000090: 22 20 20 20 20 20 41 4E 44 20 57 48 41 54 20 49 " AND WHAT I
0000A0: 53 20 59 4F 55 52 20 4E 45 58 54 20 4D 4F 56 45 S YOUR NEXT MOVE
0000B0: 2C 20 4D 59 20 54 4F 54 41 4C 20 49 53 22 3B 4D , MY TOTAL IS";M
0000C0: 31 0D 0A 33 35 30 20 49 4E 50 55 54 20 59 0D 0A 1..350 INPUT Y..
0000D0: 33 36 30 20 50 52 49 4E 54 0D 0A 33 37 30 20 49 360 PRINT..370 I
0000E0: 46 20 59 3C 31 20 54 48 45 4E 20 31 31 36 30 0D F Y<1 THEN 1160.
0000F0: 0A 33 38 30 20 49 46 20 59 3E 34 20 54 48 45 4E .380 IF Y>4 THEN
000100: 20 31 31 36 30 0D 0A 33 39 30 20 49 46 20 59 3C 1160..390 IF Y<
000110: 3D 54 20 54 48 45 4E 20 34 33 30 0D 0A 34 30 30 =T THEN 430..400
000120: 20 50 52 49 4E 54 20 22 20 20 20 20 20 59 4F 55 PRINT " YOU
000130: 20 48 41 56 45 20 54 52 49 45 44 20 54 4F 20 54 HAVE TRIED TO T
000140: 41 4B 45 20 4D 4F 52 45 20 4D 41 52 42 4C 45 53 AKE MORE MARBLES
000150: 20 54 48 41 4E 20 54 48 45 52 45 20 41 52 45 22 THAN THERE ARE"
000160: 0D 0A 34 31 30 20 50 52 49 4E 54 20 22 4C 45 46 ..410 PRINT "LEF
000170: 54 2E 20 20 54 52 59 20 41 47 41 49 4E 2E 22 0D T. TRY AGAIN.".
000180: 0A 34 32 30 20 47 4F 54 4F 20 33 35 30 0D 0A 34 .420 GOTO 350..4
000190: 33 30 20 59 31 3D 59 31 2B 59 0D 0A 34 34 30 20 30 Y1=Y1+Y..440
0001A0: 54 3D 54 2D 59 0D 0A 34 35 30 20 49 46 20 54 3D T=T-Y..450 IF T=
0001B0: 30 20 54 48 45 4E 20 38 38 30 0D 0A 34 36 30 20 0 THEN 880..460
0001C0: 50 52 49 4E 54 20 22 54 4F 54 41 4C 3D 22 3B 54 PRINT "TOTAL=";T
0001D0: 0D 0A 34 37 30 20 50 52 49 4E 54 0D 0A 34 38 30 ..470 PRINT..480
0001E0: 20 50 52 49 4E 54 20 22 59 4F 55 52 20 54 4F 54 PRINT "YOUR TOT
0001F0: 41 4C 20 49 53 22 3B 59 31 0D 0A 34 39 30 20 49 AL IS";Y1..490 I
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 46 20 54 3C 2E 35 20 54 48 45 4E 20 38 38 30 0D F T<.5 THEN 880.
000010: 0A 35 30 30 20 52 3D 54 2D 36 2A 49 4E 54 28 54 .500 R=T-6*INT(T
000020: 2F 36 29 0D 0A 35 31 30 20 49 46 20 49 4E 54 28 /6)..510 IF INT(
000030: 59 31 2F 32 29 3D 59 31 2F 32 20 54 48 45 4E 20 Y1/2)=Y1/2 THEN
000040: 37 30 30 0D 0A 35 32 30 20 49 46 20 54 3C 34 2E 700..520 IF T<4.
000050: 32 20 54 48 45 4E 20 35 38 30 0D 0A 35 33 30 20 2 THEN 580..530
000060: 49 46 20 52 3E 33 2E 34 20 54 48 45 4E 20 36 32 IF R>3.4 THEN 62
000070: 30 0D 0A 35 34 30 20 4D 3D 52 2B 31 0D 0A 35 35 0..540 M=R+1..55
000080: 30 20 4D 31 3D 4D 31 2B 4D 0D 0A 35 36 30 20 54 0 M1=M1+M..560 T
000090: 3D 54 2D 4D 0D 0A 35 37 30 20 47 4F 54 4F 20 33 =T-M..570 GOTO 3
0000A0: 30 30 0D 0A 35 38 30 20 4D 3D 54 0D 0A 35 39 30 00..580 M=T..590
0000B0: 20 54 3D 54 2D 4D 0D 0A 36 30 30 20 47 4F 54 4F T=T-M..600 GOTO
0000C0: 20 38 33 30 0D 0A 36 31 30 20 52 45 4D 20 20 20 830..610 REM
0000D0: 20 20 32 35 30 20 49 53 20 57 48 45 52 45 20 49 250 IS WHERE I
0000E0: 20 57 49 4E 2E 0D 0A 36 32 30 20 49 46 20 52 3C WIN...620 IF R<
0000F0: 34 2E 37 20 54 48 45 4E 20 36 36 30 0D 0A 36 33 4.7 THEN 660..63
000100: 30 20 49 46 20 52 3E 33 2E 35 20 54 48 45 4E 20 0 IF R>3.5 THEN
000110: 36 36 30 0D 0A 36 34 30 20 4D 3D 31 0D 0A 36 35 660..640 M=1..65
000120: 30 20 47 4F 54 4F 20 36 37 30 0D 0A 36 36 30 20 0 GOTO 670..660
000130: 4D 3D 34 0D 0A 36 37 30 20 54 3D 54 2D 4D 0D 0A M=4..670 T=T-M..
000140: 36 38 30 20 4D 31 3D 4D 31 2B 4D 0D 0A 36 39 30 680 M1=M1+M..690
000150: 20 47 4F 54 4F 20 33 30 30 0D 0A 37 30 30 20 52 GOTO 300..700 R
000160: 45 4D 20 20 20 20 20 49 20 41 4D 20 52 45 41 44 EM I AM READ
000170: 59 20 54 4F 20 45 4E 43 4F 44 45 20 54 48 45 20 Y TO ENCODE THE
000180: 53 54 52 41 54 20 46 4F 52 20 57 48 45 4E 20 4F STRAT FOR WHEN O
000190: 50 50 20 54 4F 54 20 49 53 20 45 56 45 4E 0D 0A PP TOT IS EVEN..
0001A0: 37 31 30 20 49 46 20 52 3C 31 2E 35 20 54 48 45 710 IF R<1.5 THE
0001B0: 4E 20 31 30 32 30 0D 0A 37 32 30 20 49 46 20 52 N 1020..720 IF R
0001C0: 3E 35 2E 33 20 54 48 45 4E 20 31 30 32 30 0D 0A >5.3 THEN 1020..
0001D0: 37 33 30 20 4D 3D 52 2D 31 0D 0A 37 34 30 20 4D 730 M=R-1..740 M
0001E0: 31 3D 4D 31 2B 4D 0D 0A 37 35 30 20 54 3D 54 2D 1=M1+M..750 T=T-
0001F0: 4D 0D 0A 37 36 30 20 49 46 20 54 3C 2E 32 20 54 M..760 IF T<.2 T
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 10 PRINT TAB(32)
000010: 3B 22 43 41 4C 45 4E 44 41 52 22 0D 0A 32 30 20 ;"CALENDAR"..20
000020: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 PRINT TAB(15);"C
000030: 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E REATIVE COMPUTIN
000040: 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E G MORRISTOWN, N
000050: 45 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 EW JERSEY"..30 P
000060: 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 RINT:PRINT:PRINT
000070: 0D 0A 31 30 30 20 52 45 4D 20 20 20 20 20 56 41 ..100 REM VA
000080: 4C 55 45 53 20 46 4F 52 20 31 39 37 39 20 2D 20 LUES FOR 1979 -
000090: 53 45 45 20 4E 4F 54 45 53 0D 0A 31 31 30 20 44 SEE NOTES..110 D
0000A0: 49 4D 20 4D 28 31 32 29 0D 0A 31 32 30 20 46 4F IM M(12)..120 FO
0000B0: 52 20 49 3D 31 20 54 4F 20 36 3A 20 50 52 49 4E R I=1 TO 6: PRIN
0000C0: 54 20 43 48 52 24 28 31 30 29 3B 3A 20 4E 45 58 T CHR$(10);: NEX
0000D0: 54 20 49 0D 0A 31 33 30 20 44 3D 31 3A 20 52 45 T I..130 D=1: RE
0000E0: 4D 20 31 39 37 39 20 53 54 41 52 54 53 20 4F 4E M 1979 STARTS ON
0000F0: 20 4D 4F 4E 44 41 59 20 28 30 3D 53 55 4E 2C 20 MONDAY (0=SUN,
000100: 2D 31 3D 4D 4F 4E 2C 20 2D 32 3D 54 55 45 53 2E -1=MON, -2=TUES.
000110: 2E 2E 29 0D 0A 31 34 30 20 53 3D 30 0D 0A 31 35 ..)..140 S=0..15
000120: 30 20 52 45 4D 20 20 20 20 20 52 45 41 44 20 44 0 REM READ D
000130: 41 59 53 20 4F 46 20 45 41 43 48 20 4D 4F 4E 54 AYS OF EACH MONT
000140: 48 0D 0A 31 36 30 20 46 4F 52 20 4E 3D 30 20 54 H..160 FOR N=0 T
000150: 4F 20 31 32 3A 20 52 45 41 44 20 4D 28 4E 29 3A O 12: READ M(N):
000160: 20 4E 45 58 54 20 4E 0D 0A 31 37 30 20 52 45 4D NEXT N..170 REM
000170: 0D 0A 31 38 30 20 46 4F 52 20 4E 3D 31 20 54 4F ..180 FOR N=1 TO
000180: 20 31 32 0D 0A 31 39 30 20 50 52 49 4E 54 3A 20 12..190 PRINT:
000190: 50 52 49 4E 54 3A 20 53 3D 53 2B 4D 28 4E 2D 31 PRINT: S=S+M(N-1
0001A0: 29 0D 0A 32 30 30 20 50 52 49 4E 54 20 22 2A 2A )..200 PRINT "**
0001B0: 22 3B 53 3B 54 41 42 28 37 29 3B 0D 0A 32 31 30 ";S;TAB(7);..210
0001C0: 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 38 3A 20 FOR I=1 TO 18:
0001D0: 50 52 49 4E 54 20 22 2A 22 3B 3A 20 4E 45 58 54 PRINT "*";: NEXT
0001E0: 20 49 0D 0A 32 32 30 20 4F 4E 20 4E 20 47 4F 54 I..220 ON N GOT
0001F0: 4F 20 32 33 30 2C 32 34 30 2C 32 35 30 2C 32 36 O 230,240,250,26
Size : 512 (Real : 512)
000000: 3D 49 4E 54 28 43 2F 31 30 29 0D 0A 31 34 30 20 =INT(C/10)..140
000010: 49 46 20 44 3D 30 20 54 48 45 4E 20 31 35 35 0D IF D=0 THEN 155.
000020: 0A 31 35 30 20 50 52 49 4E 54 20 44 3B 22 54 45 .150 PRINT D;"TE
000030: 4E 20 44 4F 4C 4C 41 52 20 42 49 4C 4C 28 53 29 N DOLLAR BILL(S)
000040: 22 0D 0A 31 35 35 20 43 3D 4D 2D 28 44 2A 31 30 "..155 C=M-(D*10
000050: 29 0D 0A 31 36 30 20 45 3D 49 4E 54 28 43 2F 35 )..160 E=INT(C/5
000060: 29 0D 0A 31 37 30 20 49 46 20 45 3D 30 20 54 48 )..170 IF E=0 TH
000070: 45 4E 20 31 38 35 0D 0A 31 38 30 20 50 52 49 4E EN 185..180 PRIN
000080: 54 20 45 3B 22 46 49 56 45 20 44 4F 4C 4C 41 52 T E;"FIVE DOLLAR
000090: 53 20 42 49 4C 4C 28 53 29 22 0D 0A 31 38 35 20 S BILL(S)"..185
0000A0: 43 3D 4D 2D 28 44 2A 31 30 2B 45 2A 35 29 0D 0A C=M-(D*10+E*5)..
0000B0: 31 39 30 20 46 3D 49 4E 54 28 43 29 0D 0A 32 30 190 F=INT(C)..20
0000C0: 30 20 49 46 20 46 3D 30 20 54 48 45 4E 20 32 31 0 IF F=0 THEN 21
0000D0: 35 0D 0A 32 31 30 20 50 52 49 4E 54 20 46 3B 22 5..210 PRINT F;"
0000E0: 4F 4E 45 20 44 4F 4C 4C 41 52 20 42 49 4C 4C 28 ONE DOLLAR BILL(
0000F0: 53 29 22 0D 0A 32 31 35 20 43 3D 4D 2D 28 44 2A S)"..215 C=M-(D*
000100: 31 30 2B 45 2A 35 2B 46 29 0D 0A 32 32 30 20 43 10+E*5+F)..220 C
000110: 3D 43 2A 31 30 30 0D 0A 32 32 35 20 4E 3D 43 0D =C*100..225 N=C.
000120: 0A 32 33 30 20 47 3D 49 4E 54 28 43 2F 35 30 29 .230 G=INT(C/50)
000130: 0D 0A 32 34 30 20 49 46 20 47 3D 30 20 54 48 45 ..240 IF G=0 THE
000140: 4E 20 32 35 35 0D 0A 32 35 30 20 50 52 49 4E 54 N 255..250 PRINT
000150: 20 47 3B 22 4F 4E 45 20 48 41 4C 46 20 44 4F 4C G;"ONE HALF DOL
000160: 4C 41 52 28 53 29 22 0D 0A 32 35 35 20 43 3D 4E LAR(S)"..255 C=N
000170: 2D 28 47 2A 35 30 29 0D 0A 32 36 30 20 48 3D 49 -(G*50)..260 H=I
000180: 4E 54 28 43 2F 32 35 29 0D 0A 32 37 30 20 49 46 NT(C/25)..270 IF
000190: 20 48 3D 30 20 54 48 45 4E 20 32 38 35 0D 0A 32 H=0 THEN 285..2
0001A0: 38 30 20 50 52 49 4E 54 20 48 3B 22 51 55 41 52 80 PRINT H;"QUAR
0001B0: 54 45 52 28 53 29 22 0D 0A 32 38 35 20 43 3D 4E TER(S)"..285 C=N
0001C0: 2D 28 47 2A 35 30 2B 48 2A 32 35 29 0D 0A 32 39 -(G*50+H*25)..29
0001D0: 30 20 49 3D 49 4E 54 28 43 2F 31 30 29 0D 0A 33 0 I=INT(C/10)..3
0001E0: 30 30 20 49 46 20 49 3D 30 20 54 48 45 4E 20 33 00 IF I=0 THEN 3
0001F0: 31 35 0D 0A 33 31 30 20 50 52 49 4E 54 20 49 3B 15..310 PRINT I;
Size : 512 (Real : 512)
000000: 30 2C 32 37 30 2C 32 38 30 2C 32 39 30 2C 33 30 0,270,280,290,30
000010: 30 2C 33 31 30 2C 33 32 30 2C 33 33 30 2C 33 34 0,310,320,330,34
000020: 30 0D 0A 32 33 30 20 50 52 49 4E 54 20 22 20 4A 0..230 PRINT " J
000030: 41 4E 55 41 52 59 20 22 3B 3A 20 47 4F 54 4F 20 ANUARY ";: GOTO
000040: 33 35 30 0D 0A 32 34 30 20 50 52 49 4E 54 20 22 350..240 PRINT "
000050: 20 46 45 42 52 55 41 52 59 22 3B 3A 20 47 4F 54 FEBRUARY";: GOT
000060: 4F 20 33 35 30 0D 0A 32 35 30 20 50 52 49 4E 54 O 350..250 PRINT
000070: 20 22 20 20 4D 41 52 43 48 20 20 22 3B 3A 20 47 " MARCH ";: G
000080: 4F 54 4F 20 33 35 30 0D 0A 32 36 30 20 50 52 49 OTO 350..260 PRI
000090: 4E 54 20 22 20 20 41 50 52 49 4C 20 20 22 3B 3A NT " APRIL ";:
0000A0: 20 47 4F 54 4F 20 33 35 30 0D 0A 32 37 30 20 50 GOTO 350..270 P
0000B0: 52 49 4E 54 20 22 20 20 20 4D 41 59 20 20 20 22 RINT " MAY "
0000C0: 3B 3A 20 47 4F 54 4F 20 33 35 30 0D 0A 32 38 30 ;: GOTO 350..280
0000D0: 20 50 52 49 4E 54 20 22 20 20 20 4A 55 4E 45 20 PRINT " JUNE
0000E0: 20 22 3B 3A 20 47 4F 54 4F 20 33 35 30 0D 0A 32 ";: GOTO 350..2
0000F0: 39 30 20 50 52 49 4E 54 20 22 20 20 20 4A 55 4C 90 PRINT " JUL
000100: 59 20 20 22 3B 3A 20 47 4F 54 4F 20 33 35 30 0D Y ";: GOTO 350.
000110: 0A 33 30 30 20 50 52 49 4E 54 20 22 20 20 41 55 .300 PRINT " AU
000120: 47 55 53 54 20 22 3B 3A 20 47 4F 54 4F 20 33 35 GUST ";: GOTO 35
000130: 30 0D 0A 33 31 30 20 50 52 49 4E 54 20 22 53 45 0..310 PRINT "SE
000140: 50 54 45 4D 42 45 52 22 3B 3A 20 47 4F 54 4F 20 PTEMBER";: GOTO
000150: 33 35 30 0D 0A 33 32 30 20 50 52 49 4E 54 20 22 350..320 PRINT "
000160: 20 4F 43 54 4F 42 45 52 20 22 3B 3A 20 47 4F 54 OCTOBER ";: GOT
000170: 4F 20 33 35 30 0D 0A 33 33 30 20 50 52 49 4E 54 O 350..330 PRINT
000180: 20 22 20 4E 4F 56 45 4D 42 45 52 22 3B 3A 20 47 " NOVEMBER";: G
000190: 4F 54 4F 20 33 35 30 0D 0A 33 34 30 20 50 52 49 OTO 350..340 PRI
0001A0: 4E 54 20 22 20 44 45 43 45 4D 42 45 52 22 3B 0D NT " DECEMBER";.
0001B0: 0A 33 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 .350 FOR I=1 TO
0001C0: 31 38 3A 20 50 52 49 4E 54 20 22 2A 22 3B 3A 20 18: PRINT "*";:
0001D0: 4E 45 58 54 20 49 0D 0A 33 36 30 20 50 52 49 4E NEXT I..360 PRIN
0001E0: 54 20 33 36 35 2D 53 3B 22 2A 2A 22 3B 0D 0A 33 T 365-S;"**";..3
0001F0: 37 30 20 52 45 4D 20 20 20 33 36 36 2D 53 3B 20 70 REM 366-S;
Size : 512 (Real : 512)
000000: 22 44 49 4D 45 28 53 29 22 0D 0A 33 31 35 20 43 "DIME(S)"..315 C
000010: 3D 4E 2D 28 47 2A 35 30 2B 48 2A 32 35 2B 49 2A =N-(G*50+H*25+I*
000020: 31 30 29 0D 0A 33 32 30 20 4A 3D 49 4E 54 28 43 10)..320 J=INT(C
000030: 2F 35 29 0D 0A 33 33 30 20 49 46 20 4A 3D 30 20 /5)..330 IF J=0
000040: 54 48 45 4E 20 33 34 35 0D 0A 33 34 30 20 50 52 THEN 345..340 PR
000050: 49 4E 54 20 4A 3B 22 4E 49 43 4B 45 4C 28 53 29 INT J;"NICKEL(S)
000060: 22 0D 0A 33 34 35 20 43 3D 4E 2D 28 47 2A 35 30 "..345 C=N-(G*50
000070: 2B 48 2A 32 35 2B 49 2A 31 30 2B 4A 2A 35 29 0D +H*25+I*10+J*5).
000080: 0A 33 35 30 20 4B 3D 49 4E 54 28 43 2B 2E 35 29 .350 K=INT(C+.5)
000090: 0D 0A 33 36 30 20 49 46 20 4B 3D 30 20 54 48 45 ..360 IF K=0 THE
0000A0: 4E 20 33 38 30 0D 0A 33 37 30 20 50 52 49 4E 54 N 380..370 PRINT
0000B0: 20 4B 3B 22 50 45 4E 4E 59 28 53 29 22 0D 0A 33 K;"PENNY(S)"..3
0000C0: 38 30 20 50 52 49 4E 54 20 22 54 48 41 4E 4B 20 80 PRINT "THANK
0000D0: 59 4F 55 2C 20 43 4F 4D 45 20 41 47 41 49 4E 2E YOU, COME AGAIN.
0000E0: 22 0D 0A 33 39 30 20 50 52 49 4E 54 3A 50 52 49 "..390 PRINT:PRI
0000F0: 4E 54 0D 0A 34 30 30 20 47 4F 54 4F 20 31 30 0D NT..400 GOTO 10.
000100: 0A 34 31 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 .410 END........
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 20 20 20 4F 4E 20 4C 45 41 50 20 59 45 41 52 ON LEAP YEAR
000010: 53 0D 0A 33 38 30 20 50 52 49 4E 54 20 43 48 52 S..380 PRINT CHR
000020: 24 28 31 30 29 3A 20 50 52 49 4E 54 20 22 20 20 $(10): PRINT "
000030: 20 20 20 53 20 20 20 20 20 20 20 4D 20 20 20 20 S M
000040: 20 20 20 54 20 20 20 20 20 20 20 57 22 3B 0D 0A T W";..
000050: 33 39 30 20 50 52 49 4E 54 20 22 20 20 20 20 20 390 PRINT "
000060: 20 20 54 20 20 20 20 20 20 20 46 20 20 20 20 20 T F
000070: 20 20 53 22 0D 0A 34 30 30 20 50 52 49 4E 54 0D S"..400 PRINT.
000080: 0A 34 31 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 .410 FOR I=1 TO
000090: 35 39 3A 20 50 52 49 4E 54 20 22 2A 22 3B 3A 20 59: PRINT "*";:
0000A0: 4E 45 58 54 20 49 0D 0A 34 32 30 20 52 45 4D 0D NEXT I..420 REM.
0000B0: 0A 34 33 30 20 46 4F 52 20 57 3D 31 20 54 4F 20 .430 FOR W=1 TO
0000C0: 36 0D 0A 34 34 30 20 50 52 49 4E 54 20 43 48 52 6..440 PRINT CHR
0000D0: 24 28 31 30 29 0D 0A 34 35 30 20 50 52 49 4E 54 $(10)..450 PRINT
0000E0: 20 54 41 42 28 34 29 0D 0A 34 36 30 20 52 45 4D TAB(4)..460 REM
0000F0: 0D 0A 34 37 30 20 46 4F 52 20 47 3D 31 20 54 4F ..470 FOR G=1 TO
000100: 20 37 0D 0A 34 38 30 20 44 3D 44 2B 31 0D 0A 34 7..480 D=D+1..4
000110: 39 30 20 44 32 3D 44 2D 53 0D 0A 35 30 30 20 49 90 D2=D-S..500 I
000120: 46 20 44 32 3E 4D 28 4E 29 20 54 48 45 4E 20 35 F D2>M(N) THEN 5
000130: 38 30 0D 0A 35 31 30 20 49 46 20 44 32 3E 30 20 80..510 IF D2>0
000140: 54 48 45 4E 20 50 52 49 4E 54 20 44 32 3B 0D 0A THEN PRINT D2;..
000150: 35 32 30 20 50 52 49 4E 54 20 54 41 42 28 34 2B 520 PRINT TAB(4+
000160: 38 2A 47 29 3B 0D 0A 35 33 30 20 4E 45 58 54 20 8*G);..530 NEXT
000170: 47 0D 0A 35 34 30 20 52 45 4D 0D 0A 35 35 30 20 G..540 REM..550
000180: 49 46 20 44 32 3D 4D 28 4E 29 20 54 48 45 4E 20 IF D2=M(N) THEN
000190: 35 39 30 0D 0A 35 36 30 20 4E 45 58 54 20 57 0D 590..560 NEXT W.
0001A0: 0A 35 37 30 20 52 45 4D 0D 0A 35 38 30 20 44 3D .570 REM..580 D=
0001B0: 44 2D 47 0D 0A 35 39 30 20 4E 45 58 54 20 4E 0D D-G..590 NEXT N.
0001C0: 0A 36 30 30 20 52 45 4D 0D 0A 36 31 30 20 46 4F .600 REM..610 FO
0001D0: 52 20 49 3D 31 20 54 4F 20 36 3A 20 50 52 49 4E R I=1 TO 6: PRIN
0001E0: 54 20 43 48 52 24 28 31 30 29 3B 3A 20 4E 45 58 T CHR$(10);: NEX
0001F0: 54 20 49 0D 0A 36 32 30 20 44 41 54 41 20 30 2C T I..620 DATA 0,
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 33 31 2C 32 38 2C 33 31 2C 33 30 2C 33 31 2C 33 31,28,31,30,31,3
000010: 30 2C 33 31 2C 33 31 2C 33 30 2C 33 31 2C 33 30 0,31,31,30,31,30
000020: 2C 33 31 0D 0A 36 33 30 20 52 45 4D 20 20 30 2C ,31..630 REM 0,
000030: 33 31 2C 32 39 2C 20 20 2E 2E 2E 2C 20 4F 4E 20 31,29, ..., ON
000040: 4C 45 41 50 20 59 45 41 52 53 0D 0A 36 34 30 20 LEAP YEARS..640
000050: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 35 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 3B 5 PRINT TAB(32);
000010: 22 43 48 45 43 4B 45 52 53 22 0D 0A 31 30 20 50 "CHECKERS"..10 P
000020: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
000030: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
000040: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
000050: 57 20 4A 45 52 53 45 59 22 0D 0A 31 35 20 50 52 W JERSEY"..15 PR
000060: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
000070: 0A 32 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 .20 PRINT "THIS
000080: 49 53 20 54 48 45 20 47 41 4D 45 20 4F 46 20 43 IS THE GAME OF C
000090: 48 45 43 4B 45 52 53 2E 20 20 54 48 45 20 43 4F HECKERS. THE CO
0000A0: 4D 50 55 54 45 52 20 49 53 20 58 2C 22 0D 0A 32 MPUTER IS X,"..2
0000B0: 35 20 50 52 49 4E 54 20 22 41 4E 44 20 59 4F 55 5 PRINT "AND YOU
0000C0: 20 41 52 45 20 4F 2E 20 20 54 48 45 20 43 4F 4D ARE O. THE COM
0000D0: 50 55 54 45 52 20 57 49 4C 4C 20 4D 4F 56 45 20 PUTER WILL MOVE
0000E0: 46 49 52 53 54 2E 22 0D 0A 33 30 20 50 52 49 4E FIRST."..30 PRIN
0000F0: 54 20 22 53 51 55 41 52 45 53 20 41 52 45 20 52 T "SQUARES ARE R
000100: 45 46 45 52 52 45 44 20 54 4F 20 42 59 20 41 20 EFERRED TO BY A
000110: 43 4F 4F 52 44 49 4E 41 54 45 20 53 59 53 54 45 COORDINATE SYSTE
000120: 4D 2E 22 0D 0A 33 35 20 50 52 49 4E 54 20 22 28 M."..35 PRINT "(
000130: 30 2C 30 29 20 49 53 20 54 48 45 20 4C 4F 57 45 0,0) IS THE LOWE
000140: 52 20 4C 45 46 54 20 43 4F 52 4E 45 52 22 0D 0A R LEFT CORNER"..
000150: 34 30 20 50 52 49 4E 54 20 22 28 30 2C 37 29 20 40 PRINT "(0,7)
000160: 49 53 20 54 48 45 20 55 50 50 45 52 20 4C 45 46 IS THE UPPER LEF
000170: 54 20 43 4F 52 4E 45 52 22 0D 0A 34 35 20 50 52 T CORNER"..45 PR
000180: 49 4E 54 20 22 28 37 2C 30 29 20 49 53 20 54 48 INT "(7,0) IS TH
000190: 45 20 4C 4F 57 45 52 20 52 49 47 48 54 20 43 4F E LOWER RIGHT CO
0001A0: 52 4E 45 52 22 0D 0A 35 30 20 50 52 49 4E 54 20 RNER"..50 PRINT
0001B0: 22 28 37 2C 37 29 20 49 53 20 54 48 45 20 55 50 "(7,7) IS THE UP
0001C0: 50 45 52 20 52 49 47 48 54 20 43 4F 52 4E 45 52 PER RIGHT CORNER
0001D0: 22 0D 0A 35 35 20 50 52 49 4E 54 20 22 54 48 45 "..55 PRINT "THE
0001E0: 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 54 COMPUTER WILL T
0001F0: 59 50 45 20 27 2B 54 4F 27 20 57 48 45 4E 20 59 YPE '+TO' WHEN Y
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
000010: 22 43 48 41 4E 47 45 22 0D 0A 34 20 50 52 49 4E "CHANGE"..4 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 35 20 50 52 49 4E 54 3A ERSEY"..5 PRINT:
000060: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 36 20 50 PRINT:PRINT..6 P
000070: 52 49 4E 54 20 22 49 2C 20 59 4F 55 52 20 46 52 RINT "I, YOUR FR
000080: 49 45 4E 44 4C 59 20 4D 49 43 52 4F 43 4F 4D 50 IENDLY MICROCOMP
000090: 55 54 45 52 2C 20 57 49 4C 4C 20 44 45 54 45 52 UTER, WILL DETER
0000A0: 4D 49 4E 45 22 0D 0A 38 20 50 52 49 4E 54 20 22 MINE"..8 PRINT "
0000B0: 54 48 45 20 43 4F 52 52 45 43 54 20 43 48 41 4E THE CORRECT CHAN
0000C0: 47 45 20 46 4F 52 20 49 54 45 4D 53 20 43 4F 53 GE FOR ITEMS COS
0000D0: 54 49 4E 47 20 55 50 20 54 4F 20 24 31 30 30 2E TING UP TO $100.
0000E0: 22 0D 0A 39 20 50 52 49 4E 54 3A 50 52 49 4E 54 "..9 PRINT:PRINT
0000F0: 0D 0A 31 30 20 50 52 49 4E 54 20 22 43 4F 53 54 ..10 PRINT "COST
000100: 20 4F 46 20 49 54 45 4D 22 3B 3A 49 4E 50 55 54 OF ITEM";:INPUT
000110: 20 41 3A 50 52 49 4E 54 20 22 41 4D 4F 55 4E 54 A:PRINT "AMOUNT
000120: 20 4F 46 20 50 41 59 4D 45 4E 54 22 3B 3A 49 4E OF PAYMENT";:IN
000130: 50 55 54 20 50 0D 0A 32 30 20 43 3D 50 2D 41 3A PUT P..20 C=P-A:
000140: 4D 3D 43 3A 49 46 20 43 3C 3E 30 20 54 48 45 4E M=C:IF C<>0 THEN
000150: 20 39 30 0D 0A 32 35 20 50 52 49 4E 54 20 22 43 90..25 PRINT "C
000160: 4F 52 52 45 43 54 20 41 4D 4F 55 4E 54 2C 20 54 ORRECT AMOUNT, T
000170: 48 41 4E 4B 20 59 4F 55 2E 22 0D 0A 33 30 20 47 HANK YOU."..30 G
000180: 4F 54 4F 20 34 30 30 0D 0A 39 30 20 49 46 20 43 OTO 400..90 IF C
000190: 3E 30 20 54 48 45 4E 20 31 32 30 0D 0A 39 35 20 >0 THEN 120..95
0001A0: 50 52 49 4E 54 20 22 53 4F 52 52 59 2C 20 59 4F PRINT "SORRY, YO
0001B0: 55 20 48 41 56 45 20 53 48 4F 52 54 2D 43 48 41 U HAVE SHORT-CHA
0001C0: 4E 47 45 44 20 4D 45 20 24 22 3B 41 2D 50 0D 0A NGED ME $";A-P..
0001D0: 31 30 30 20 47 4F 54 4F 20 31 30 0D 0A 31 32 30 100 GOTO 10..120
0001E0: 20 50 52 49 4E 54 20 22 59 4F 55 52 20 43 48 41 PRINT "YOUR CHA
0001F0: 4E 47 45 2C 20 24 22 3B 43 0D 0A 31 33 30 20 44 NGE, $";C..130 D
Size : 512 (Real : 512)
000000: 4F 55 20 48 41 56 45 20 41 4E 4F 54 48 45 52 22 OU HAVE ANOTHER"
000010: 0D 0A 36 30 20 50 52 49 4E 54 20 22 4A 55 4D 50 ..60 PRINT "JUMP
000020: 2E 20 20 54 59 50 45 20 54 57 4F 20 4E 45 47 41 . TYPE TWO NEGA
000030: 54 49 56 45 20 4E 55 4D 42 45 52 53 20 49 46 20 TIVE NUMBERS IF
000040: 59 4F 55 20 43 41 4E 4E 4F 54 20 4A 55 4D 50 2E YOU CANNOT JUMP.
000050: 22 0D 0A 36 35 20 50 52 49 4E 54 3A 50 52 49 4E "..65 PRINT:PRIN
000060: 54 3A 50 52 49 4E 54 0D 0A 38 30 20 44 49 4D 20 T:PRINT..80 DIM
000070: 52 28 34 29 2C 53 28 37 2C 37 29 3A 47 3D 2D 31 R(4),S(7,7):G=-1
000080: 3A 52 28 30 29 3D 2D 39 39 0D 0A 39 30 20 44 41 :R(0)=-99..90 DA
000090: 54 41 20 31 2C 30 2C 31 2C 30 2C 30 2C 30 2C 2D TA 1,0,1,0,0,0,-
0000A0: 31 2C 30 2C 30 2C 31 2C 30 2C 30 2C 30 2C 2D 31 1,0,0,1,0,0,0,-1
0000B0: 2C 30 2C 2D 31 2C 31 35 0D 0A 31 32 30 20 46 4F ,0,-1,15..120 FO
0000C0: 52 20 58 3D 30 20 54 4F 20 37 3A 46 4F 52 20 59 R X=0 TO 7:FOR Y
0000D0: 3D 30 20 54 4F 20 37 3A 52 45 41 44 20 4A 3A 49 =0 TO 7:READ J:I
0000E0: 46 20 4A 3D 31 35 20 54 48 45 4E 20 31 38 30 0D F J=15 THEN 180.
0000F0: 0A 31 36 30 20 53 28 58 2C 59 29 3D 4A 3A 47 4F .160 S(X,Y)=J:GO
000100: 54 4F 20 32 30 30 0D 0A 31 38 30 20 52 45 53 54 TO 200..180 REST
000110: 4F 52 45 3A 52 45 41 44 20 53 28 58 2C 59 29 0D ORE:READ S(X,Y).
000120: 0A 32 30 30 20 4E 45 58 54 20 59 2C 58 0D 0A 32 .200 NEXT Y,X..2
000130: 33 30 20 46 4F 52 20 58 3D 30 20 54 4F 20 37 3A 30 FOR X=0 TO 7:
000140: 46 4F 52 20 59 3D 30 20 54 4F 20 37 3A 49 46 20 FOR Y=0 TO 7:IF
000150: 53 28 58 2C 59 29 3E 2D 31 20 54 48 45 4E 20 33 S(X,Y)>-1 THEN 3
000160: 35 30 0D 0A 33 31 30 20 49 46 20 53 28 58 2C 59 50..310 IF S(X,Y
000170: 29 3D 2D 31 20 54 48 45 4E 20 46 4F 52 20 41 3D )=-1 THEN FOR A=
000180: 2D 31 20 54 4F 20 31 20 53 54 45 50 20 32 3A 42 -1 TO 1 STEP 2:B
000190: 3D 47 3A 47 4F 53 55 42 20 36 35 30 3A 4E 45 58 =G:GOSUB 650:NEX
0001A0: 54 20 41 0D 0A 33 33 30 20 49 46 20 53 28 58 2C T A..330 IF S(X,
0001B0: 59 29 3D 2D 32 20 54 48 45 4E 20 46 4F 52 20 41 Y)=-2 THEN FOR A
0001C0: 3D 2D 31 20 54 4F 20 31 20 53 54 45 50 20 32 3A =-1 TO 1 STEP 2:
0001D0: 46 4F 52 20 42 3D 2D 31 20 54 4F 20 31 20 53 54 FOR B=-1 TO 1 ST
0001E0: 45 50 20 32 3A 47 4F 53 55 42 20 36 35 30 3A 4E EP 2:GOSUB 650:N
0001F0: 45 58 54 20 42 2C 41 0D 0A 33 35 30 20 4E 45 58 EXT B,A..350 NEX
Size : 512 (Real : 512)
000000: 29 3D 30 0D 0A 31 38 30 32 20 49 4E 50 55 54 20 )=0..1802 INPUT
000010: 22 2B 54 4F 22 3B 41 31 2C 42 31 3A 49 46 20 41 "+TO";A1,B1:IF A
000020: 31 3C 30 20 54 48 45 4E 20 31 38 31 30 0D 0A 31 1<0 THEN 1810..1
000030: 38 30 34 20 49 46 20 53 28 41 31 2C 42 31 29 3C 804 IF S(A1,B1)<
000040: 3E 30 20 4F 52 20 41 42 53 28 41 31 2D 41 29 3C >0 OR ABS(A1-A)<
000050: 3E 32 20 4F 52 20 41 42 53 28 42 31 2D 42 29 3C >2 OR ABS(B1-B)<
000060: 3E 32 20 54 48 45 4E 20 31 38 30 32 0D 0A 31 38 >2 THEN 1802..18
000070: 30 36 20 45 3D 41 3A 48 3D 42 3A 41 3D 41 31 3A 06 E=A:H=B:A=A1:
000080: 42 3D 42 31 3A 49 3D 49 2B 31 35 3A 47 4F 54 4F B=B1:I=I+15:GOTO
000090: 20 31 37 35 30 0D 0A 31 38 31 30 20 49 46 20 42 1750..1810 IF B
0000A0: 3D 37 20 54 48 45 4E 20 53 28 41 2C 42 29 3D 32 =7 THEN S(A,B)=2
0000B0: 0D 0A 31 38 33 30 20 47 4F 54 4F 20 32 33 30 0D ..1830 GOTO 230.
0000C0: 0A 31 38 38 30 20 50 52 49 4E 54 3A 20 50 52 49 .1880 PRINT: PRI
0000D0: 4E 54 20 22 59 4F 55 20 57 49 4E 2E 22 3A 20 45 NT "YOU WIN.": E
0000E0: 4E 44 0D 0A 31 38 38 35 20 50 52 49 4E 54 3A 20 ND..1885 PRINT:
0000F0: 50 52 49 4E 54 20 22 49 20 57 49 4E 2E 22 3A 20 PRINT "I WIN.":
000100: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 54 20 59 2C 58 3A 47 4F 54 4F 20 31 31 34 30 0D T Y,X:GOTO 1140.
000010: 0A 36 35 30 20 55 3D 58 2B 41 3A 56 3D 59 2B 42 .650 U=X+A:V=Y+B
000020: 3A 49 46 20 55 3C 30 20 4F 52 20 55 3E 37 20 4F :IF U<0 OR U>7 O
000030: 52 20 56 3C 30 20 4F 52 20 56 3E 37 20 54 48 45 R V<0 OR V>7 THE
000040: 4E 20 38 37 30 0D 0A 37 34 30 20 49 46 20 53 28 N 870..740 IF S(
000050: 55 2C 56 29 3D 30 20 54 48 45 4E 20 47 4F 53 55 U,V)=0 THEN GOSU
000060: 42 20 39 31 30 3A 47 4F 54 4F 20 38 37 30 0D 0A B 910:GOTO 870..
000070: 37 37 30 20 49 46 20 53 28 55 2C 56 29 3C 30 20 770 IF S(U,V)<0
000080: 54 48 45 4E 20 38 37 30 0D 0A 37 39 30 20 55 3D THEN 870..790 U=
000090: 55 2B 41 3A 56 3D 56 2B 42 3A 49 46 20 55 3C 30 U+A:V=V+B:IF U<0
0000A0: 20 4F 52 20 56 3C 30 20 4F 52 20 55 3E 37 20 4F OR V<0 OR U>7 O
0000B0: 52 20 56 3E 37 20 54 48 45 4E 20 38 37 30 0D 0A R V>7 THEN 870..
0000C0: 38 35 30 20 49 46 20 53 28 55 2C 56 29 3D 30 20 850 IF S(U,V)=0
0000D0: 54 48 45 4E 20 47 4F 53 55 42 20 39 31 30 0D 0A THEN GOSUB 910..
0000E0: 38 37 30 20 52 45 54 55 52 4E 0D 0A 39 31 30 20 870 RETURN..910
0000F0: 49 46 20 56 3D 30 20 41 4E 44 20 53 28 58 2C 59 IF V=0 AND S(X,Y
000100: 29 3D 2D 31 20 54 48 45 4E 20 51 3D 51 2B 32 0D )=-1 THEN Q=Q+2.
000110: 0A 39 32 30 20 49 46 20 41 42 53 28 59 2D 56 29 .920 IF ABS(Y-V)
000120: 3D 32 20 54 48 45 4E 20 51 3D 51 2B 35 0D 0A 39 =2 THEN Q=Q+5..9
000130: 36 30 20 49 46 20 59 3D 37 20 54 48 45 4E 20 51 60 IF Y=7 THEN Q
000140: 3D 51 2D 32 0D 0A 39 38 30 20 49 46 20 55 3D 30 =Q-2..980 IF U=0
000150: 20 4F 52 20 55 3D 37 20 54 48 45 4E 20 51 3D 51 OR U=7 THEN Q=Q
000160: 2B 31 0D 0A 31 30 33 30 20 46 4F 52 20 43 3D 2D +1..1030 FOR C=-
000170: 31 20 54 4F 20 31 20 53 54 45 50 20 32 3A 49 46 1 TO 1 STEP 2:IF
000180: 20 55 2B 43 3C 30 20 4F 52 20 55 2B 43 3E 37 20 U+C<0 OR U+C>7
000190: 4F 52 20 56 2B 47 3C 30 20 54 48 45 4E 20 31 30 OR V+G<0 THEN 10
0001A0: 38 30 0D 0A 31 30 33 35 20 49 46 20 53 28 55 2B 80..1035 IF S(U+
0001B0: 43 2C 56 2B 47 29 3C 30 20 54 48 45 4E 20 51 3D C,V+G)<0 THEN Q=
0001C0: 51 2B 31 3A 47 4F 54 4F 20 31 30 38 30 0D 0A 31 Q+1:GOTO 1080..1
0001D0: 30 34 30 20 49 46 20 55 2D 43 3C 30 20 4F 52 20 040 IF U-C<0 OR
0001E0: 55 2D 43 3E 37 20 4F 52 20 56 2D 47 3E 37 20 54 U-C>7 OR V-G>7 T
0001F0: 48 45 4E 20 31 30 38 30 0D 0A 31 30 34 35 20 49 HEN 1080..1045 I
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 46 20 53 28 55 2B 43 2C 56 2B 47 29 3E 30 20 41 F S(U+C,V+G)>0 A
000010: 4E 44 28 53 28 55 2D 43 2C 56 2D 47 29 3D 30 20 ND(S(U-C,V-G)=0
000020: 4F 52 28 55 2D 43 3D 58 20 41 4E 44 20 56 2D 47 OR(U-C=X AND V-G
000030: 3D 59 29 29 54 48 45 4E 20 51 3D 51 2D 32 0D 0A =Y))THEN Q=Q-2..
000040: 31 30 38 30 20 4E 45 58 54 20 43 3A 49 46 20 51 1080 NEXT C:IF Q
000050: 3E 52 28 30 29 54 48 45 4E 20 52 28 30 29 3D 51 >R(0)THEN R(0)=Q
000060: 3A 52 28 31 29 3D 58 3A 52 28 32 29 3D 59 3A 52 :R(1)=X:R(2)=Y:R
000070: 28 33 29 3D 55 3A 52 28 34 29 3D 56 0D 0A 31 31 (3)=U:R(4)=V..11
000080: 30 30 20 51 3D 30 3A 52 45 54 55 52 4E 0D 0A 31 00 Q=0:RETURN..1
000090: 31 34 30 20 49 46 20 52 28 30 29 3D 2D 39 39 20 140 IF R(0)=-99
0000A0: 54 48 45 4E 20 31 38 38 30 0D 0A 31 32 33 30 20 THEN 1880..1230
0000B0: 50 52 49 4E 54 20 43 48 52 24 28 33 30 29 22 46 PRINT CHR$(30)"F
0000C0: 52 4F 4D 22 52 28 31 29 3B 52 28 32 29 22 54 4F ROM"R(1);R(2)"TO
0000D0: 22 52 28 33 29 3B 52 28 34 29 3B 3A 52 28 30 29 "R(3);R(4);:R(0)
0000E0: 3D 2D 39 39 0D 0A 31 32 34 30 20 49 46 20 52 28 =-99..1240 IF R(
0000F0: 34 29 3D 30 20 54 48 45 4E 20 53 28 52 28 33 29 4)=0 THEN S(R(3)
000100: 2C 52 28 34 29 29 3D 2D 32 3A 47 4F 54 4F 20 31 ,R(4))=-2:GOTO 1
000110: 34 32 30 0D 0A 31 32 35 30 20 53 28 52 28 33 29 420..1250 S(R(3)
000120: 2C 52 28 34 29 29 3D 53 28 52 28 31 29 2C 52 28 ,R(4))=S(R(1),R(
000130: 32 29 29 0D 0A 31 33 31 30 20 53 28 52 28 31 29 2))..1310 S(R(1)
000140: 2C 52 28 32 29 29 3D 30 3A 49 46 20 41 42 53 28 ,R(2))=0:IF ABS(
000150: 52 28 31 29 2D 52 28 33 29 29 3C 3E 32 20 54 48 R(1)-R(3))<>2 TH
000160: 45 4E 20 31 34 32 30 0D 0A 31 33 33 30 20 53 28 EN 1420..1330 S(
000170: 28 52 28 31 29 2B 52 28 33 29 29 2F 32 2C 28 52 (R(1)+R(3))/2,(R
000180: 28 32 29 2B 52 28 34 29 29 2F 32 29 3D 30 0D 0A (2)+R(4))/2)=0..
000190: 31 33 34 30 20 58 3D 52 28 33 29 3A 59 3D 52 28 1340 X=R(3):Y=R(
0001A0: 34 29 3A 49 46 20 53 28 58 2C 59 29 3D 2D 31 20 4):IF S(X,Y)=-1
0001B0: 54 48 45 4E 20 42 3D 2D 32 3A 46 4F 52 20 41 3D THEN B=-2:FOR A=
0001C0: 2D 32 20 54 4F 20 32 20 53 54 45 50 20 34 3A 47 -2 TO 2 STEP 4:G
0001D0: 4F 53 55 42 20 31 33 37 30 0D 0A 31 33 35 30 20 OSUB 1370..1350
0001E0: 49 46 20 53 28 58 2C 59 29 3D 2D 32 20 54 48 45 IF S(X,Y)=-2 THE
0001F0: 4E 20 46 4F 52 20 41 3D 2D 32 20 54 4F 20 32 20 N FOR A=-2 TO 2
Size : 512 (Real : 512)
000000: 33 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 3 PRINT TAB(33);
000010: 22 43 48 45 4D 49 53 54 22 0D 0A 36 20 50 52 49 "CHEMIST"..6 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 0D 0A 38 20 50 52 49 4E 54 JERSEY"..8 PRINT
000060: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 :PRINT:PRINT..10
000070: 20 50 52 49 4E 54 20 22 54 48 45 20 46 49 43 54 PRINT "THE FICT
000080: 49 54 49 4F 55 53 20 43 48 45 43 4D 49 43 41 4C ITIOUS CHECMICAL
000090: 20 4B 52 59 50 54 4F 43 59 41 4E 49 43 20 41 43 KRYPTOCYANIC AC
0000A0: 49 44 20 43 41 4E 20 4F 4E 4C 59 20 42 45 22 0D ID CAN ONLY BE".
0000B0: 0A 32 30 20 50 52 49 4E 54 20 22 44 49 4C 55 54 .20 PRINT "DILUT
0000C0: 45 44 20 42 59 20 54 48 45 20 52 41 54 49 4F 20 ED BY THE RATIO
0000D0: 4F 46 20 37 20 50 41 52 54 53 20 57 41 54 45 52 OF 7 PARTS WATER
0000E0: 20 54 4F 20 33 20 50 41 52 54 53 20 41 43 49 44 TO 3 PARTS ACID
0000F0: 2E 22 0D 0A 33 30 20 50 52 49 4E 54 20 22 49 46 ."..30 PRINT "IF
000100: 20 41 4E 59 20 4F 54 48 45 52 20 52 41 54 49 4F ANY OTHER RATIO
000110: 20 49 53 20 41 54 54 45 4D 50 54 45 44 2C 20 54 IS ATTEMPTED, T
000120: 48 45 20 41 43 49 44 20 42 45 43 4F 4D 45 53 20 HE ACID BECOMES
000130: 55 4E 53 54 41 42 4C 45 22 0D 0A 34 30 20 50 52 UNSTABLE"..40 PR
000140: 49 4E 54 20 22 41 4E 44 20 53 4F 4F 4E 20 45 58 INT "AND SOON EX
000150: 50 4C 4F 44 45 53 2E 20 20 47 49 56 45 4E 20 54 PLODES. GIVEN T
000160: 48 45 20 41 4D 4F 55 4E 54 20 4F 46 20 41 43 49 HE AMOUNT OF ACI
000170: 44 2C 20 59 4F 55 20 4D 55 53 54 22 0D 0A 35 30 D, YOU MUST"..50
000180: 20 50 52 49 4E 54 20 22 44 45 43 49 44 45 20 57 PRINT "DECIDE W
000190: 48 4F 20 4D 55 43 48 20 57 41 54 45 52 20 54 4F HO MUCH WATER TO
0001A0: 20 41 44 44 20 46 4F 52 20 44 49 4C 55 54 49 4F ADD FOR DILUTIO
0001B0: 4E 2E 20 20 49 46 20 59 4F 55 20 4D 49 53 53 22 N. IF YOU MISS"
0001C0: 0D 0A 36 30 20 50 52 49 4E 54 20 22 59 4F 55 20 ..60 PRINT "YOU
0001D0: 46 41 43 45 20 54 48 45 20 43 4F 4E 53 45 51 55 FACE THE CONSEQU
0001E0: 45 4E 43 45 53 2E 22 0D 0A 31 30 30 20 41 3D 49 ENCES."..100 A=I
0001F0: 4E 54 28 52 4E 44 28 31 29 2A 35 30 29 0D 0A 31 NT(RND(1)*50)..1
Size : 512 (Real : 512)
000000: 53 54 45 50 20 34 3A 46 4F 52 20 42 3D 2D 32 20 STEP 4:FOR B=-2
000010: 54 4F 20 32 20 53 54 45 50 20 34 3A 47 4F 53 55 TO 2 STEP 4:GOSU
000020: 42 20 31 33 37 30 3A 4E 45 58 54 20 42 0D 0A 31 B 1370:NEXT B..1
000030: 33 36 30 20 4E 45 58 54 20 41 3A 49 46 20 52 28 360 NEXT A:IF R(
000040: 30 29 3C 3E 2D 39 39 20 54 48 45 4E 20 50 52 49 0)<>-99 THEN PRI
000050: 4E 54 22 54 4F 22 52 28 33 29 3B 52 28 34 29 3B NT"TO"R(3);R(4);
000060: 3A 52 28 30 29 3D 2D 39 39 3A 47 4F 54 4F 20 31 :R(0)=-99:GOTO 1
000070: 32 34 30 0D 0A 31 33 36 35 20 47 4F 54 4F 20 31 240..1365 GOTO 1
000080: 34 32 30 0D 0A 31 33 37 30 20 55 3D 58 2B 41 3A 420..1370 U=X+A:
000090: 56 3D 59 2B 42 3A 49 46 20 55 3C 30 20 4F 52 20 V=Y+B:IF U<0 OR
0000A0: 55 3E 37 20 4F 52 20 56 3C 30 20 4F 52 20 56 3E U>7 OR V<0 OR V>
0000B0: 37 20 54 48 45 4E 20 31 34 30 30 0D 0A 31 33 38 7 THEN 1400..138
0000C0: 30 20 49 46 20 53 28 55 2C 56 29 3D 30 20 41 4E 0 IF S(U,V)=0 AN
0000D0: 44 20 53 28 58 2B 41 2F 32 2C 59 2B 42 2F 32 29 D S(X+A/2,Y+B/2)
0000E0: 3E 30 20 54 48 45 4E 20 47 4F 53 55 42 20 39 31 >0 THEN GOSUB 91
0000F0: 30 0D 0A 31 34 30 30 20 52 45 54 55 52 4E 0D 0A 0..1400 RETURN..
000100: 31 34 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 1420 PRINT:PRINT
000110: 3A 50 52 49 4E 54 3A 46 4F 52 20 59 3D 37 20 54 :PRINT:FOR Y=7 T
000120: 4F 20 30 20 53 54 45 50 2D 31 3A 46 4F 52 20 58 O 0 STEP-1:FOR X
000130: 3D 30 20 54 4F 20 37 3A 49 3D 35 2A 58 3A 50 52 =0 TO 7:I=5*X:PR
000140: 49 4E 54 20 54 41 42 28 49 29 3B 0D 0A 31 34 33 INT TAB(I);..143
000150: 30 20 49 46 20 53 28 58 2C 59 29 3D 30 20 54 48 0 IF S(X,Y)=0 TH
000160: 45 4E 20 50 52 49 4E 54 22 2E 22 3B 0D 0A 31 34 EN PRINT".";..14
000170: 37 30 20 49 46 20 53 28 58 2C 59 29 3D 31 20 54 70 IF S(X,Y)=1 T
000180: 48 45 4E 20 50 52 49 4E 54 22 4F 22 3B 0D 0A 31 HEN PRINT"O";..1
000190: 34 39 30 20 49 46 20 53 28 58 2C 59 29 3D 2D 31 490 IF S(X,Y)=-1
0001A0: 20 54 48 45 4E 20 50 52 49 4E 54 22 58 22 3B 0D THEN PRINT"X";.
0001B0: 0A 31 35 31 30 20 49 46 20 53 28 58 2C 59 29 3D .1510 IF S(X,Y)=
0001C0: 2D 32 20 54 48 45 4E 20 50 52 49 4E 54 22 58 2A -2 THEN PRINT"X*
0001D0: 22 3B 0D 0A 31 35 33 30 20 49 46 20 53 28 58 2C ";..1530 IF S(X,
0001E0: 59 29 3D 32 20 54 48 45 4E 20 50 52 49 4E 54 22 Y)=2 THEN PRINT"
0001F0: 4F 2A 22 3B 0D 0A 31 35 35 30 20 4E 45 58 54 20 O*";..1550 NEXT
Size : 512 (Real : 512)
000000: 31 30 20 57 3D 37 2A 41 2F 33 0D 0A 31 32 30 20 10 W=7*A/3..120
000010: 50 52 49 4E 54 20 41 3B 22 4C 49 54 45 52 53 20 PRINT A;"LITERS
000020: 4F 46 20 4B 52 59 50 54 4F 43 59 41 4E 49 43 20 OF KRYPTOCYANIC
000030: 41 43 49 44 2E 20 20 48 4F 57 20 4D 55 43 48 20 ACID. HOW MUCH
000040: 57 41 54 45 52 22 3B 0D 0A 31 33 30 20 49 4E 50 WATER";..130 INP
000050: 55 54 20 52 0D 0A 31 34 30 20 44 3D 41 42 53 28 UT R..140 D=ABS(
000060: 57 2D 52 29 0D 0A 31 35 30 20 49 46 20 44 3E 57 W-R)..150 IF D>W
000070: 2F 32 30 20 54 48 45 4E 20 32 30 30 0D 0A 31 36 /20 THEN 200..16
000080: 30 20 50 52 49 4E 54 20 22 20 47 4F 4F 44 20 4A 0 PRINT " GOOD J
000090: 4F 42 21 20 59 4F 55 20 4D 41 59 20 42 52 45 41 OB! YOU MAY BREA
0000A0: 54 48 45 20 4E 4F 57 2C 20 42 55 54 20 44 4F 4E THE NOW, BUT DON
0000B0: 27 54 20 49 4E 48 41 4C 45 20 54 48 45 20 46 55 'T INHALE THE FU
0000C0: 4D 45 53 21 22 0D 0A 31 37 30 20 50 52 49 4E 54 MES!"..170 PRINT
0000D0: 0D 0A 31 38 30 20 47 4F 54 4F 20 31 30 30 0D 0A ..180 GOTO 100..
0000E0: 32 30 30 20 50 52 49 4E 54 20 22 20 53 49 5A 5A 200 PRINT " SIZZ
0000F0: 4C 45 21 20 20 59 4F 55 20 48 41 56 45 20 4A 55 LE! YOU HAVE JU
000100: 53 54 20 42 45 45 4E 20 44 45 53 41 4C 49 4E 41 ST BEEN DESALINA
000110: 54 45 44 20 49 4E 54 4F 20 41 20 42 4C 4F 42 22 TED INTO A BLOB"
000120: 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 20 4F 46 ..210 PRINT " OF
000130: 20 51 55 49 56 45 52 49 4E 47 20 50 52 4F 54 4F QUIVERING PROTO
000140: 50 4C 41 53 4D 21 22 0D 0A 32 32 30 20 54 3D 54 PLASM!"..220 T=T
000150: 2B 31 0D 0A 32 33 30 20 49 46 20 54 3D 39 20 54 +1..230 IF T=9 T
000160: 48 45 4E 20 32 36 30 0D 0A 32 34 30 20 50 52 49 HEN 260..240 PRI
000170: 4E 54 20 22 20 48 4F 57 45 56 45 52 2C 20 59 4F NT " HOWEVER, YO
000180: 55 20 4D 41 59 20 54 52 59 20 41 47 41 49 4E 20 U MAY TRY AGAIN
000190: 57 49 54 48 20 41 4E 4F 54 48 45 52 20 4C 49 46 WITH ANOTHER LIF
0001A0: 45 2E 22 0D 0A 32 35 30 20 47 4F 54 4F 20 31 30 E."..250 GOTO 10
0001B0: 30 0D 0A 32 36 30 20 50 52 49 4E 54 20 22 20 59 0..260 PRINT " Y
0001C0: 4F 55 52 20 39 20 4C 49 56 45 53 20 41 52 45 20 OUR 9 LIVES ARE
0001D0: 55 53 45 44 2C 20 42 55 54 20 59 4F 55 20 57 49 USED, BUT YOU WI
0001E0: 4C 4C 20 42 45 20 4C 4F 4E 47 20 52 45 4D 45 4D LL BE LONG REMEM
0001F0: 42 45 52 45 44 20 46 4F 52 22 0D 0A 32 37 30 20 BERED FOR"..270
Size : 512 (Real : 512)
000000: 58 3A 50 52 49 4E 54 22 20 22 3A 50 52 49 4E 54 X:PRINT" ":PRINT
000010: 3A 4E 45 58 54 20 59 3A 50 52 49 4E 54 0D 0A 31 :NEXT Y:PRINT..1
000020: 35 35 32 20 46 4F 52 20 4C 3D 30 20 54 4F 20 37 552 FOR L=0 TO 7
000030: 0D 0A 31 35 35 34 20 46 4F 52 20 4D 3D 30 20 54 ..1554 FOR M=0 T
000040: 4F 20 37 0D 0A 31 35 35 36 20 49 46 20 53 28 4C O 7..1556 IF S(L
000050: 2C 4D 29 3D 31 20 4F 52 20 53 28 4C 2C 4D 29 3D ,M)=1 OR S(L,M)=
000060: 32 20 54 48 45 4E 20 5A 3D 31 0D 0A 31 35 35 38 2 THEN Z=1..1558
000070: 20 49 46 20 53 28 4C 2C 4D 29 3D 2D 31 20 4F 52 IF S(L,M)=-1 OR
000080: 20 53 28 4C 2C 4D 29 3D 2D 32 20 54 48 45 4E 20 S(L,M)=-2 THEN
000090: 54 3D 31 0D 0A 31 35 36 30 20 4E 45 58 54 20 4D T=1..1560 NEXT M
0000A0: 0D 0A 31 35 36 32 20 4E 45 58 54 20 4C 0D 0A 31 ..1562 NEXT L..1
0000B0: 35 36 34 20 49 46 20 5A 3C 3E 31 20 54 48 45 4E 564 IF Z<>1 THEN
0000C0: 20 31 38 38 35 0D 0A 31 35 36 36 20 49 46 20 54 1885..1566 IF T
0000D0: 3C 3E 31 20 54 48 45 4E 20 31 38 38 30 0D 0A 31 <>1 THEN 1880..1
0000E0: 35 37 30 20 5A 3D 30 3A 20 54 3D 30 0D 0A 31 35 570 Z=0: T=0..15
0000F0: 39 30 20 49 4E 50 55 54 20 22 46 52 4F 4D 22 3B 90 INPUT "FROM";
000100: 45 2C 48 3A 58 3D 45 3A 59 3D 48 3A 49 46 20 53 E,H:X=E:Y=H:IF S
000110: 28 58 2C 59 29 3C 3D 30 20 54 48 45 4E 20 31 35 (X,Y)<=0 THEN 15
000120: 39 30 0D 0A 31 36 37 30 20 49 4E 50 55 54 20 22 90..1670 INPUT "
000130: 54 4F 22 3B 41 2C 42 3A 58 3D 41 3A 59 3D 42 0D TO";A,B:X=A:Y=B.
000140: 0A 31 36 38 30 20 49 46 20 53 28 58 2C 59 29 3D .1680 IF S(X,Y)=
000150: 30 20 41 4E 44 20 41 42 53 28 41 2D 45 29 3C 3D 0 AND ABS(A-E)<=
000160: 32 20 41 4E 44 20 41 42 53 28 41 2D 45 29 3D 41 2 AND ABS(A-E)=A
000170: 42 53 28 42 2D 48 29 54 48 45 4E 20 31 37 30 30 BS(B-H)THEN 1700
000180: 0D 0A 31 36 39 30 20 50 52 49 4E 54 20 43 48 52 ..1690 PRINT CHR
000190: 24 28 37 29 43 48 52 24 28 31 31 29 3B 3A 47 4F $(7)CHR$(11);:GO
0001A0: 54 4F 20 31 36 37 30 0D 0A 31 37 30 30 20 49 3D TO 1670..1700 I=
0001B0: 34 36 0D 0A 31 37 35 30 20 53 28 41 2C 42 29 3D 46..1750 S(A,B)=
0001C0: 53 28 45 2C 48 29 3A 53 28 45 2C 48 29 3D 30 3A S(E,H):S(E,H)=0:
0001D0: 49 46 20 41 42 53 28 45 2D 41 29 3C 3E 32 20 54 IF ABS(E-A)<>2 T
0001E0: 48 45 4E 20 31 38 31 30 0D 0A 31 38 30 30 20 53 HEN 1810..1800 S
0001F0: 28 28 45 2B 41 29 2F 32 2C 28 48 2B 42 29 2F 32 ((E+A)/2,(H+B)/2
Size : 512 (Real : 512)
000000: 50 52 49 4E 54 20 22 20 59 4F 55 52 20 43 4F 4E PRINT " YOUR CON
000010: 54 52 49 42 55 54 49 4F 4E 53 20 54 4F 20 54 48 TRIBUTIONS TO TH
000020: 45 20 46 49 45 4C 44 20 4F 46 20 43 4F 4D 49 43 E FIELD OF COMIC
000030: 20 42 4F 4F 4B 20 43 48 45 4D 49 53 54 52 59 2E BOOK CHEMISTRY.
000040: 22 0D 0A 32 38 30 20 45 4E 44 0D 0A 1A E5 E5 E5 "..280 END......
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 4F 55 20 42 45 4C 49 45 56 45 20 4D 45 20 4E 4F OU BELIEVE ME NO
000010: 57 2C 20 46 4F 52 20 59 4F 55 52 20 53 41 4B 45 W, FOR YOUR SAKE
000020: 21 21 22 0D 0A 34 38 30 20 47 4F 54 4F 20 35 32 !!"..480 GOTO 52
000030: 30 0D 0A 35 31 30 20 50 52 49 4E 54 20 22 42 59 0..510 PRINT "BY
000040: 45 21 21 21 22 0D 0A 35 32 30 20 45 4E 44 0D 0A E!!!"..520 END..
000050: 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 43 48 4F 4D 50 22 0D 0A 32 30 20 50 52 49 ;"CHOMP"..20 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E JERSEY"..30 PRIN
000060: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 T:PRINT:PRINT..4
000070: 30 20 44 49 4D 20 41 28 31 30 2C 31 30 29 0D 0A 0 DIM A(10,10)..
000080: 31 30 30 20 52 45 4D 20 2A 2A 2A 20 54 48 45 20 100 REM *** THE
000090: 47 41 4D 45 20 4F 46 20 43 48 4F 4D 50 20 2A 2A GAME OF CHOMP **
0000A0: 2A 20 43 4F 50 59 52 49 47 48 54 20 50 43 43 20 * COPYRIGHT PCC
0000B0: 31 39 37 33 20 2A 2A 2A 0D 0A 31 31 30 20 50 52 1973 ***..110 PR
0000C0: 49 4E 54 20 0D 0A 31 32 30 20 50 52 49 4E 54 20 INT ..120 PRINT
0000D0: 22 54 48 49 53 20 49 53 20 54 48 45 20 47 41 4D "THIS IS THE GAM
0000E0: 45 20 4F 46 20 43 48 4F 4D 50 20 28 53 43 49 45 E OF CHOMP (SCIE
0000F0: 4E 54 49 46 49 43 20 41 4D 45 52 49 43 41 4E 2C NTIFIC AMERICAN,
000100: 20 4A 41 4E 20 31 39 37 33 29 22 0D 0A 31 33 30 JAN 1973)"..130
000110: 20 50 52 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 PRINT "DO YOU W
000120: 41 4E 54 20 54 48 45 20 52 55 4C 45 53 20 28 31 ANT THE RULES (1
000130: 3D 59 45 53 2C 20 30 3D 4E 4F 21 29 22 3B 0D 0A =YES, 0=NO!)";..
000140: 31 34 30 20 49 4E 50 55 54 20 52 0D 0A 31 35 30 140 INPUT R..150
000150: 20 49 46 20 52 3D 30 20 54 48 45 4E 20 33 34 30 IF R=0 THEN 340
000160: 0D 0A 31 36 30 20 46 3D 31 0D 0A 31 37 30 20 52 ..160 F=1..170 R
000170: 3D 35 0D 0A 31 38 30 20 43 3D 37 0D 0A 31 39 30 =5..180 C=7..190
000180: 20 50 52 49 4E 54 20 22 43 48 4F 4D 50 20 49 53 PRINT "CHOMP IS
000190: 20 46 4F 52 20 31 20 4F 52 20 4D 4F 52 45 20 50 FOR 1 OR MORE P
0001A0: 4C 41 59 45 52 53 20 28 48 55 4D 41 4E 53 20 4F LAYERS (HUMANS O
0001B0: 4E 4C 59 29 2E 22 0D 0A 32 30 30 20 50 52 49 4E NLY)."..200 PRIN
0001C0: 54 0D 0A 32 31 30 20 50 52 49 4E 54 20 22 48 45 T..210 PRINT "HE
0001D0: 52 45 27 53 20 48 4F 57 20 41 20 42 4F 41 52 44 RE'S HOW A BOARD
0001E0: 20 4C 4F 4F 4B 53 20 28 54 48 49 53 20 4F 4E 45 LOOKS (THIS ONE
0001F0: 20 49 53 20 35 20 42 59 20 37 29 3A 22 0D 0A 32 IS 5 BY 7):"..2
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 20 2 PRINT TAB(30)
000010: 22 43 48 49 45 46 22 0D 0A 34 20 50 52 49 4E 54 "CHIEF"..4 PRINT
000020: 20 54 41 42 28 31 35 29 20 22 43 52 45 41 54 49 TAB(15) "CREATI
000030: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
000040: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
000050: 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 50 RSEY"..6 PRINT:P
000060: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 20 50 RINT:PRINT..10 P
000070: 52 49 4E 54 20 22 49 20 41 4D 20 43 48 49 45 46 RINT "I AM CHIEF
000080: 20 4E 55 4D 42 45 52 53 20 46 52 45 45 4B 2C 20 NUMBERS FREEK,
000090: 54 48 45 20 47 52 45 41 54 20 49 4E 44 49 41 4E THE GREAT INDIAN
0000A0: 20 4D 41 54 48 20 47 4F 44 2E 22 0D 0A 32 30 20 MATH GOD."..20
0000B0: 50 52 49 4E 54 20 22 41 52 45 20 59 4F 55 20 52 PRINT "ARE YOU R
0000C0: 45 41 44 59 20 54 4F 20 54 41 4B 45 20 54 48 45 EADY TO TAKE THE
0000D0: 20 54 45 53 54 20 59 4F 55 20 43 41 4C 4C 45 44 TEST YOU CALLED
0000E0: 20 4D 45 20 4F 55 54 20 46 4F 52 22 3B 0D 0A 33 ME OUT FOR";..3
0000F0: 30 20 49 4E 50 55 54 20 41 24 0D 0A 34 30 20 49 0 INPUT A$..40 I
000100: 46 20 41 24 3D 22 59 45 53 22 20 54 48 45 4E 20 F A$="YES" THEN
000110: 36 30 0D 0A 35 30 20 50 52 49 4E 54 20 22 53 48 60..50 PRINT "SH
000120: 55 54 20 55 50 2C 20 50 41 4C 45 20 46 41 43 45 UT UP, PALE FACE
000130: 20 57 49 54 48 20 57 49 53 45 20 54 4F 4E 47 55 WITH WISE TONGU
000140: 45 2E 22 0D 0A 36 30 20 50 52 49 4E 54 20 22 20 E."..60 PRINT "
000150: 54 41 4B 45 20 41 20 4E 55 4D 42 45 52 20 41 4E TAKE A NUMBER AN
000160: 44 20 41 44 44 20 33 2E 20 44 49 56 49 44 45 20 D ADD 3. DIVIDE
000170: 54 48 49 53 20 4E 55 4D 42 45 52 20 42 59 20 35 THIS NUMBER BY 5
000180: 20 41 4E 44 22 0D 0A 37 30 20 50 52 49 4E 54 20 AND"..70 PRINT
000190: 22 4D 55 4C 54 49 50 4C 59 20 42 59 20 38 2E 20 "MULTIPLY BY 8.
0001A0: 44 49 56 49 44 45 20 42 59 20 35 20 41 4E 44 20 DIVIDE BY 5 AND
0001B0: 41 44 44 20 54 48 45 20 53 41 4D 45 2E 20 53 55 ADD THE SAME. SU
0001C0: 42 54 52 41 43 54 20 31 2E 22 0D 0A 38 30 20 50 BTRACT 1."..80 P
0001D0: 52 49 4E 54 20 22 20 20 57 48 41 54 20 44 4F 20 RINT " WHAT DO
0001E0: 59 4F 55 20 48 41 56 45 22 3B 0D 0A 39 30 20 49 YOU HAVE";..90 I
0001F0: 4E 50 55 54 20 42 0D 0A 31 30 30 20 4C 45 54 20 NPUT B..100 LET
Size : 512 (Real : 512)
000000: 32 30 20 47 4F 53 55 42 20 35 34 30 0D 0A 32 33 20 GOSUB 540..23
000010: 30 20 50 52 49 4E 54 0D 0A 32 34 30 20 50 52 49 0 PRINT..240 PRI
000020: 4E 54 20 22 54 48 45 20 42 4F 41 52 44 20 49 53 NT "THE BOARD IS
000030: 20 41 20 42 49 47 20 43 4F 4F 4B 49 45 20 2D 20 A BIG COOKIE -
000040: 52 20 52 4F 57 53 20 48 49 47 48 20 41 4E 44 20 R ROWS HIGH AND
000050: 43 20 43 4F 4C 55 4D 4E 53 22 0D 0A 32 35 30 20 C COLUMNS"..250
000060: 50 52 49 4E 54 20 22 57 49 44 45 2E 20 59 4F 55 PRINT "WIDE. YOU
000070: 20 49 4E 50 55 54 20 52 20 41 4E 44 20 43 20 41 INPUT R AND C A
000080: 54 20 54 48 45 20 53 54 41 52 54 2E 20 49 4E 20 T THE START. IN
000090: 54 48 45 20 55 50 50 45 52 20 4C 45 46 54 22 0D THE UPPER LEFT".
0000A0: 0A 32 36 30 20 50 52 49 4E 54 20 22 43 4F 52 4E .260 PRINT "CORN
0000B0: 45 52 20 4F 46 20 54 48 45 20 43 4F 4F 4B 49 45 ER OF THE COOKIE
0000C0: 20 49 53 20 41 20 50 4F 49 53 4F 4E 20 53 51 55 IS A POISON SQU
0000D0: 41 52 45 20 28 50 29 2E 20 54 48 45 20 4F 4E 45 ARE (P). THE ONE
0000E0: 20 57 48 4F 22 0D 0A 32 37 30 20 50 52 49 4E 54 WHO"..270 PRINT
0000F0: 20 22 43 48 4F 4D 50 53 20 54 48 45 20 50 4F 49 "CHOMPS THE POI
000100: 53 4F 4E 20 53 51 55 41 52 45 20 4C 4F 53 45 53 SON SQUARE LOSES
000110: 2E 20 54 4F 20 54 41 4B 45 20 41 20 43 48 4F 4D . TO TAKE A CHOM
000120: 50 2C 20 54 59 50 45 20 54 48 45 22 0D 0A 32 38 P, TYPE THE"..28
000130: 30 20 50 52 49 4E 54 20 22 52 4F 57 20 41 4E 44 0 PRINT "ROW AND
000140: 20 43 4F 4C 55 4D 4E 20 4F 46 20 4F 4E 45 20 4F COLUMN OF ONE O
000150: 46 20 54 48 45 20 53 51 55 41 52 45 53 20 4F 4E F THE SQUARES ON
000160: 20 54 48 45 20 43 4F 4F 4B 49 45 2E 22 0D 0A 32 THE COOKIE."..2
000170: 39 30 20 50 52 49 4E 54 20 22 41 4C 4C 20 4F 46 90 PRINT "ALL OF
000180: 20 54 48 45 20 53 51 55 41 52 45 53 20 42 45 4C THE SQUARES BEL
000190: 4F 57 20 41 4E 44 20 54 4F 20 54 48 45 20 52 49 OW AND TO THE RI
0001A0: 47 48 54 20 4F 46 20 54 48 41 54 20 53 51 55 41 GHT OF THAT SQUA
0001B0: 52 45 22 0D 0A 33 30 30 20 50 52 49 4E 54 20 22 RE"..300 PRINT "
0001C0: 28 49 4E 43 4C 55 44 49 4E 47 20 54 48 41 54 20 (INCLUDING THAT
0001D0: 53 51 55 41 52 45 2C 20 54 4F 4F 29 20 44 49 53 SQUARE, TOO) DIS
0001E0: 41 50 50 45 41 52 20 2D 2D 20 43 48 4F 4D 50 21 APPEAR -- CHOMP!
0001F0: 21 22 0D 0A 33 31 30 20 50 52 49 4E 54 20 22 4E !"..310 PRINT "N
Size : 512 (Real : 512)
000000: 43 20 3D 20 28 42 2B 31 2D 35 29 2A 35 2F 38 2A C = (B+1-5)*5/8*
000010: 35 2D 33 0D 0A 31 31 30 20 50 52 49 4E 54 20 22 5-3..110 PRINT "
000020: 49 20 42 45 54 20 59 4F 55 52 20 4E 55 4D 42 45 I BET YOUR NUMBE
000030: 52 20 57 41 53 22 20 43 22 2E 20 41 4D 20 49 20 R WAS" C". AM I
000040: 52 49 47 48 54 22 3B 0D 0A 31 32 30 20 49 4E 50 RIGHT";..120 INP
000050: 55 54 20 44 24 0D 0A 31 33 30 20 49 46 20 44 24 UT D$..130 IF D$
000060: 3D 22 59 45 53 22 20 54 48 45 4E 20 35 30 30 0D ="YES" THEN 500.
000070: 0A 31 34 30 20 50 52 49 4E 54 20 22 57 48 41 54 .140 PRINT "WHAT
000080: 20 57 41 53 20 59 4F 55 52 20 4F 52 49 47 49 4E WAS YOUR ORIGIN
000090: 41 4C 20 4E 55 4D 42 45 52 22 3B 0D 0A 31 35 30 AL NUMBER";..150
0000A0: 20 49 4E 50 55 54 20 4B 0D 0A 31 35 35 20 4C 45 INPUT K..155 LE
0000B0: 54 20 46 3D 4B 2B 33 0D 0A 31 36 30 20 4C 45 54 T F=K+3..160 LET
0000C0: 20 47 3D 46 2F 35 0D 0A 31 37 30 20 4C 45 54 20 G=F/5..170 LET
0000D0: 48 3D 47 2A 38 0D 0A 31 38 30 20 4C 45 54 20 49 H=G*8..180 LET I
0000E0: 3D 48 2F 35 2B 35 0D 0A 31 39 30 20 4C 45 54 20 =H/5+5..190 LET
0000F0: 4A 3D 49 2D 31 0D 0A 32 30 30 20 50 52 49 4E 54 J=I-1..200 PRINT
000100: 20 22 53 4F 20 59 4F 55 20 54 48 49 4E 4B 20 59 "SO YOU THINK Y
000110: 4F 55 27 52 45 20 53 4F 20 53 4D 41 52 54 2C 20 OU'RE SO SMART,
000120: 45 48 3F 22 0D 0A 32 31 30 20 50 52 49 4E 54 20 EH?"..210 PRINT
000130: 22 4E 4F 57 20 57 41 54 43 48 2E 22 0D 0A 32 33 "NOW WATCH."..23
000140: 30 20 50 52 49 4E 54 20 4B 22 50 4C 55 53 20 33 0 PRINT K"PLUS 3
000150: 20 45 51 55 41 4C 53 22 46 22 2E 20 54 48 49 53 EQUALS"F". THIS
000160: 20 44 49 56 49 44 45 44 20 42 59 20 35 20 45 51 DIVIDED BY 5 EQ
000170: 55 41 4C 53 22 47 22 3B 22 0D 0A 32 34 30 20 50 UALS"G";"..240 P
000180: 52 49 4E 54 20 22 54 48 49 53 20 54 49 4D 45 53 RINT "THIS TIMES
000190: 20 38 20 45 51 55 41 4C 53 22 48 22 2E 20 49 46 8 EQUALS"H". IF
0001A0: 20 57 45 20 44 49 56 49 44 45 20 42 59 20 35 20 WE DIVIDE BY 5
0001B0: 41 4E 44 20 41 44 44 20 35 2C 22 0D 0A 32 35 30 AND ADD 5,"..250
0001C0: 20 50 52 49 4E 54 20 22 57 45 20 47 45 54 22 49 PRINT "WE GET"I
0001D0: 22 2C 20 57 48 49 43 48 2C 20 4D 49 4E 55 53 20 ", WHICH, MINUS
0001E0: 31 2C 20 45 51 55 41 4C 53 22 4A 22 2E 22 0D 0A 1, EQUALS"J"."..
0001F0: 32 36 30 20 50 52 49 4E 54 20 22 4E 4F 57 20 44 260 PRINT "NOW D
Size : 512 (Real : 512)
000000: 4F 20 46 41 49 52 20 43 48 4F 4D 50 49 4E 47 20 O FAIR CHOMPING
000010: 53 51 55 41 52 45 53 20 54 48 41 54 20 48 41 56 SQUARES THAT HAV
000020: 45 20 41 4C 52 45 41 44 59 20 42 45 45 4E 20 43 E ALREADY BEEN C
000030: 48 4F 4D 50 45 44 2C 22 0D 0A 33 32 30 20 50 52 HOMPED,"..320 PR
000040: 49 4E 54 20 22 4F 52 20 54 48 41 54 20 41 52 45 INT "OR THAT ARE
000050: 20 4F 55 54 53 49 44 45 20 54 48 45 20 4F 52 49 OUTSIDE THE ORI
000060: 47 49 4E 41 4C 20 44 49 4D 45 4E 53 49 4F 4E 53 GINAL DIMENSIONS
000070: 20 4F 46 20 54 48 45 20 43 4F 4F 4B 49 45 2E 22 OF THE COOKIE."
000080: 0D 0A 33 33 30 20 50 52 49 4E 54 20 0D 0A 33 34 ..330 PRINT ..34
000090: 30 20 50 52 49 4E 54 20 22 48 45 52 45 20 57 45 0 PRINT "HERE WE
0000A0: 20 47 4F 2E 2E 2E 22 0D 0A 33 35 30 20 52 45 4D GO..."..350 REM
0000B0: 20 0D 0A 33 36 30 20 46 3D 30 0D 0A 33 37 30 20 ..360 F=0..370
0000C0: 46 4F 52 20 49 3D 31 20 54 4F 20 31 30 0D 0A 33 FOR I=1 TO 10..3
0000D0: 37 32 20 46 4F 52 20 4A 3D 31 20 54 4F 20 31 30 72 FOR J=1 TO 10
0000E0: 0D 0A 33 37 35 20 41 28 49 2C 4A 29 3D 30 0D 0A ..375 A(I,J)=0..
0000F0: 33 37 37 20 4E 45 58 54 20 4A 0D 0A 33 37 39 20 377 NEXT J..379
000100: 4E 45 58 54 20 49 0D 0A 33 38 30 20 50 52 49 4E NEXT I..380 PRIN
000110: 54 20 0D 0A 33 39 30 20 50 52 49 4E 54 20 22 48 T ..390 PRINT "H
000120: 4F 57 20 4D 41 4E 59 20 50 4C 41 59 45 52 53 22 OW MANY PLAYERS"
000130: 3B 0D 0A 34 30 30 20 49 4E 50 55 54 20 50 0D 0A ;..400 INPUT P..
000140: 34 31 30 20 49 31 3D 30 0D 0A 34 32 30 20 50 52 410 I1=0..420 PR
000150: 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 52 4F INT "HOW MANY RO
000160: 57 53 22 3B 0D 0A 34 33 30 20 49 4E 50 55 54 20 WS";..430 INPUT
000170: 52 0D 0A 34 34 30 20 49 46 20 52 20 3C 3D 20 39 R..440 IF R <= 9
000180: 20 54 48 45 4E 20 34 37 30 0D 0A 34 35 30 20 50 THEN 470..450 P
000190: 52 49 4E 54 20 22 54 4F 4F 20 4D 41 4E 59 20 52 RINT "TOO MANY R
0001A0: 4F 57 53 20 28 39 20 49 53 20 4D 41 58 49 4D 55 OWS (9 IS MAXIMU
0001B0: 4D 29 2E 20 4E 4F 57 2C 20 22 3B 0D 0A 34 36 30 M). NOW, ";..460
0001C0: 20 47 4F 54 4F 20 34 32 30 0D 0A 34 37 30 20 50 GOTO 420..470 P
0001D0: 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 43 RINT "HOW MANY C
0001E0: 4F 4C 55 4D 4E 53 22 3B 0D 0A 34 38 30 20 49 4E OLUMNS";..480 IN
0001F0: 50 55 54 20 43 0D 0A 34 39 30 20 49 46 20 43 20 PUT C..490 IF C
Size : 512 (Real : 512)
000000: 4F 20 59 4F 55 20 42 45 4C 49 45 56 45 20 4D 45 O YOU BELIEVE ME
000010: 22 3B 0D 0A 32 37 30 20 49 4E 50 55 54 20 5A 24 ";..270 INPUT Z$
000020: 0D 0A 32 39 30 20 49 46 20 5A 24 3D 22 59 45 53 ..290 IF Z$="YES
000030: 22 20 54 48 45 4E 20 35 30 30 0D 0A 32 39 35 20 " THEN 500..295
000040: 50 52 49 4E 54 20 22 59 4F 55 20 48 41 56 45 20 PRINT "YOU HAVE
000050: 4D 41 44 45 20 4D 45 20 4D 41 44 21 21 21 22 0D MADE ME MAD!!!".
000060: 0A 33 30 30 20 50 52 49 4E 54 20 22 54 48 45 52 .300 PRINT "THER
000070: 45 20 4D 55 53 54 20 42 45 20 41 20 47 52 45 41 E MUST BE A GREA
000080: 54 20 4C 49 47 48 54 4E 49 4E 47 20 42 4F 4C 54 T LIGHTNING BOLT
000090: 21 22 0D 0A 33 31 30 20 50 52 49 4E 54 3A 50 52 !"..310 PRINT:PR
0000A0: 49 4E 54 0D 0A 33 33 30 20 46 4F 52 20 58 3D 33 INT..330 FOR X=3
0000B0: 30 20 54 4F 20 32 32 20 53 54 45 50 20 2D 31 0D 0 TO 22 STEP -1.
0000C0: 0A 33 34 30 20 50 52 49 4E 54 20 54 41 42 28 58 .340 PRINT TAB(X
0000D0: 29 20 22 58 20 58 22 0D 0A 33 35 30 20 4E 45 58 ) "X X"..350 NEX
0000E0: 54 20 58 0D 0A 33 36 30 20 50 52 49 4E 54 20 54 T X..360 PRINT T
0000F0: 41 42 28 32 31 29 20 22 58 20 58 58 58 22 0D 0A AB(21) "X XXX"..
000100: 33 37 30 20 50 52 49 4E 54 20 54 41 42 28 32 30 370 PRINT TAB(20
000110: 29 20 22 58 20 20 20 58 22 0D 0A 33 38 30 20 50 ) "X X"..380 P
000120: 52 49 4E 54 20 54 41 42 28 31 39 29 20 22 58 58 RINT TAB(19) "XX
000130: 20 58 22 0D 0A 33 39 30 20 46 4F 52 20 59 3D 32 X"..390 FOR Y=2
000140: 30 20 54 4F 20 31 33 20 53 54 45 50 20 2D 31 0D 0 TO 13 STEP -1.
000150: 0A 34 30 30 20 50 52 49 4E 54 20 54 41 42 28 59 .400 PRINT TAB(Y
000160: 29 20 22 58 20 58 22 0D 0A 34 31 30 20 4E 45 58 ) "X X"..410 NEX
000170: 54 20 59 0D 0A 34 32 30 20 50 52 49 4E 54 20 54 T Y..420 PRINT T
000180: 41 42 28 31 32 29 20 22 58 58 22 0D 0A 34 33 30 AB(12) "XX"..430
000190: 20 50 52 49 4E 54 20 54 41 42 28 31 31 29 20 22 PRINT TAB(11) "
0001A0: 58 22 0D 0A 34 34 30 20 50 52 49 4E 54 20 54 41 X"..440 PRINT TA
0001B0: 42 28 31 30 29 20 22 2A 22 0D 0A 34 35 30 20 50 B(10) "*"..450 P
0001C0: 52 49 4E 54 3A 50 52 49 4E 54 22 23 23 23 23 23 RINT:PRINT"#####
0001D0: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 ################
0001E0: 23 23 23 23 22 3A 50 52 49 4E 54 0D 0A 34 37 30 ####":PRINT..470
0001F0: 20 50 52 49 4E 54 20 22 49 20 48 4F 50 45 20 59 PRINT "I HOPE Y
Size : 512 (Real : 512)
000000: 3C 3D 20 39 20 54 48 45 4E 20 35 33 30 0D 0A 35 <= 9 THEN 530..5
000010: 30 30 20 50 52 49 4E 54 20 22 54 4F 4F 20 4D 41 00 PRINT "TOO MA
000020: 4E 59 20 43 4F 4C 55 4D 4E 53 20 28 39 20 49 53 NY COLUMNS (9 IS
000030: 20 4D 41 58 49 4D 55 4D 29 2E 20 4E 4F 57 2C 20 MAXIMUM). NOW,
000040: 22 3B 0D 0A 35 31 30 20 47 4F 54 4F 20 34 37 30 ";..510 GOTO 470
000050: 0D 0A 35 33 30 20 50 52 49 4E 54 20 0D 0A 35 34 ..530 PRINT ..54
000060: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 52 0D 0A 0 FOR I=1 TO R..
000070: 35 35 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 43 550 FOR J=1 TO C
000080: 0D 0A 35 36 30 20 41 28 49 2C 4A 29 3D 31 0D 0A ..560 A(I,J)=1..
000090: 35 37 30 20 4E 45 58 54 20 4A 0D 0A 35 38 30 20 570 NEXT J..580
0000A0: 4E 45 58 54 20 49 0D 0A 35 39 30 20 41 28 31 2C NEXT I..590 A(1,
0000B0: 31 29 3D 2D 31 0D 0A 36 30 30 20 52 45 4D 20 50 1)=-1..600 REM P
0000C0: 52 49 4E 54 20 54 48 45 20 42 4F 41 52 44 0D 0A RINT THE BOARD..
0000D0: 36 31 30 20 50 52 49 4E 54 20 0D 0A 36 32 30 20 610 PRINT ..620
0000E0: 50 52 49 4E 54 20 54 41 42 28 37 29 3B 22 31 20 PRINT TAB(7);"1
0000F0: 32 20 33 20 34 20 35 20 36 20 37 20 38 20 39 22 2 3 4 5 6 7 8 9"
000100: 0D 0A 36 33 30 20 46 4F 52 20 49 3D 31 20 54 4F ..630 FOR I=1 TO
000110: 20 52 0D 0A 36 34 30 20 50 52 49 4E 54 20 49 3B R..640 PRINT I;
000120: 54 41 42 28 37 29 3B 0D 0A 36 35 30 20 46 4F 52 TAB(7);..650 FOR
000130: 20 4A 3D 31 20 54 4F 20 43 0D 0A 36 36 30 20 49 J=1 TO C..660 I
000140: 46 20 41 28 49 2C 4A 29 3D 2D 31 20 54 48 45 4E F A(I,J)=-1 THEN
000150: 20 37 30 30 0D 0A 36 37 30 20 49 46 20 41 28 49 700..670 IF A(I
000160: 2C 4A 29 3D 30 20 54 48 45 4E 20 37 32 30 0D 0A ,J)=0 THEN 720..
000170: 36 38 30 20 50 52 49 4E 54 20 22 2A 20 22 3B 0D 680 PRINT "* ";.
000180: 0A 36 39 30 20 47 4F 54 4F 20 37 31 30 0D 0A 37 .690 GOTO 710..7
000190: 30 30 20 50 52 49 4E 54 20 22 50 20 22 3B 0D 0A 00 PRINT "P ";..
0001A0: 37 31 30 20 4E 45 58 54 20 4A 0D 0A 37 32 30 20 710 NEXT J..720
0001B0: 50 52 49 4E 54 20 0D 0A 37 33 30 20 4E 45 58 54 PRINT ..730 NEXT
0001C0: 20 49 0D 0A 37 34 30 20 50 52 49 4E 54 20 0D 0A I..740 PRINT ..
0001D0: 37 35 30 20 49 46 20 46 3D 30 20 54 48 45 4E 20 750 IF F=0 THEN
0001E0: 37 37 30 0D 0A 37 36 30 20 52 45 54 55 52 4E 20 770..760 RETURN
0001F0: 0D 0A 37 37 30 20 52 45 4D 20 47 45 54 20 43 48 ..770 REM GET CH
Size : 512 (Real : 512)
000000: 0D 0A 33 31 30 20 50 52 49 4E 54 20 22 59 4F 55 ..310 PRINT "YOU
000010: 52 20 50 4C 41 59 20 28 49 2C 4A 29 22 3B 3A 20 R PLAY (I,J)";:
000020: 49 4E 50 55 54 20 49 2C 4A 0D 0A 33 31 35 20 50 INPUT I,J..315 P
000030: 52 49 4E 54 0D 0A 33 32 30 20 49 46 20 49 3D 2D RINT..320 IF I=-
000040: 31 20 54 48 45 4E 20 39 38 30 0D 0A 33 33 30 20 1 THEN 980..330
000050: 58 3D 49 3A 20 59 3D 4A 3A 20 47 4F 53 55 42 20 X=I: Y=J: GOSUB
000060: 39 31 30 3A 20 49 46 20 4C 3D 31 20 54 48 45 4E 910: IF L=1 THEN
000070: 20 34 31 30 0D 0A 33 34 30 20 50 52 49 4E 54 20 410..340 PRINT
000080: 22 49 4C 4C 45 47 41 4C 20 4D 4F 56 45 2E 20 20 "ILLEGAL MOVE.
000090: 54 52 59 20 41 47 41 49 4E 2E 2E 2E 22 3A 20 47 TRY AGAIN...": G
0000A0: 4F 54 4F 20 33 31 30 0D 0A 34 31 30 20 49 46 20 OTO 310..410 IF
0000B0: 41 28 49 2C 4A 29 3D 30 20 54 48 45 4E 20 34 34 A(I,J)=0 THEN 44
0000C0: 30 0D 0A 34 32 30 20 50 52 49 4E 54 20 22 53 51 0..420 PRINT "SQ
0000D0: 55 41 52 45 20 4F 43 43 55 50 49 45 44 2E 20 20 UARE OCCUPIED.
0000E0: 54 52 59 20 41 47 41 49 4E 2E 2E 2E 22 3A 20 47 TRY AGAIN...": G
0000F0: 4F 54 4F 20 33 31 30 0D 0A 34 34 30 20 41 28 49 OTO 310..440 A(I
000100: 2C 4A 29 3D 31 0D 0A 35 30 30 20 52 45 4D 20 2A ,J)=1..500 REM *
000110: 2A 2A 20 43 4F 4D 50 55 54 45 52 20 54 52 49 45 ** COMPUTER TRIE
000120: 53 20 41 4E 20 49 4E 54 45 4C 4C 49 47 45 4E 54 S AN INTELLIGENT
000130: 20 4D 4F 56 45 20 2A 2A 2A 0D 0A 35 31 30 20 46 MOVE ***..510 F
000140: 4F 52 20 45 3D 2D 31 20 54 4F 20 31 3A 20 46 4F OR E=-1 TO 1: FO
000150: 52 20 46 3D 2D 31 20 54 4F 20 31 3A 20 49 46 20 R F=-1 TO 1: IF
000160: 45 2B 46 2D 45 2A 46 3D 30 20 54 48 45 4E 20 35 E+F-E*F=0 THEN 5
000170: 39 30 0D 0A 35 34 30 20 58 3D 49 2B 46 3A 20 59 90..540 X=I+F: Y
000180: 3D 4A 2B 46 3A 20 47 4F 53 55 42 20 39 31 30 0D =J+F: GOSUB 910.
000190: 0A 35 37 30 20 49 46 20 4C 3D 30 20 54 48 45 4E .570 IF L=0 THEN
0001A0: 20 35 39 30 0D 0A 35 38 30 20 49 46 20 41 28 58 590..580 IF A(X
0001B0: 2C 59 29 3D 31 20 54 48 45 4E 20 37 31 30 0D 0A ,Y)=1 THEN 710..
0001C0: 35 39 30 20 4E 45 58 54 20 46 3A 20 4E 45 58 54 590 NEXT F: NEXT
0001D0: 20 45 0D 0A 36 30 30 20 52 45 4D 20 2A 2A 2A 20 E..600 REM ***
0001E0: 43 4F 4D 50 55 54 45 52 20 54 52 49 45 53 20 41 COMPUTER TRIES A
0001F0: 20 52 41 4E 44 4F 4D 20 4D 4F 56 45 20 2A 2A 2A RANDOM MOVE ***
Size : 512 (Real : 512)
000000: 4F 4D 50 53 20 46 4F 52 20 45 41 43 48 20 50 4C OMPS FOR EACH PL
000010: 41 59 45 52 20 49 4E 20 54 55 52 4E 0D 0A 37 38 AYER IN TURN..78
000020: 30 20 4C 45 54 20 49 31 3D 49 31 2B 31 0D 0A 37 0 LET I1=I1+1..7
000030: 39 30 20 4C 45 54 20 50 31 3D 49 31 2D 49 4E 54 90 LET P1=I1-INT
000040: 28 49 31 2F 50 29 2A 50 0D 0A 38 30 30 20 49 46 (I1/P)*P..800 IF
000050: 20 50 31 20 3C 3E 20 30 20 54 48 45 4E 20 38 32 P1 <> 0 THEN 82
000060: 30 0D 0A 38 31 30 20 50 31 3D 50 0D 0A 38 32 30 0..810 P1=P..820
000070: 20 50 52 49 4E 54 20 22 50 4C 41 59 45 52 22 3B PRINT "PLAYER";
000080: 50 31 0D 0A 38 33 30 20 50 52 49 4E 54 20 22 43 P1..830 PRINT "C
000090: 4F 4F 52 44 49 4E 41 54 45 53 20 4F 46 20 43 48 OORDINATES OF CH
0000A0: 4F 4D 50 20 28 52 4F 57 2C 43 4F 4C 55 4D 4E 29 OMP (ROW,COLUMN)
0000B0: 22 3B 0D 0A 38 34 30 20 49 4E 50 55 54 20 52 31 ";..840 INPUT R1
0000C0: 2C 43 31 0D 0A 38 35 30 20 49 46 20 52 31 3C 31 ,C1..850 IF R1<1
0000D0: 20 54 48 45 4E 20 39 32 30 0D 0A 38 36 30 20 49 THEN 920..860 I
0000E0: 46 20 52 31 3E 52 20 54 48 45 4E 20 39 32 30 0D F R1>R THEN 920.
0000F0: 0A 38 37 30 20 49 46 20 43 31 3C 31 20 54 48 45 .870 IF C1<1 THE
000100: 4E 20 39 32 30 0D 0A 38 38 30 20 49 46 20 43 31 N 920..880 IF C1
000110: 3E 43 20 54 48 45 4E 20 39 32 30 0D 0A 38 39 30 >C THEN 920..890
000120: 20 49 46 20 41 28 52 31 2C 43 31 29 3D 30 20 54 IF A(R1,C1)=0 T
000130: 48 45 4E 20 39 32 30 0D 0A 39 30 30 20 49 46 20 HEN 920..900 IF
000140: 41 28 52 31 2C 43 31 29 3D 2D 31 20 54 48 45 4E A(R1,C1)=-1 THEN
000150: 20 31 30 31 30 0D 0A 39 31 30 20 47 4F 54 4F 20 1010..910 GOTO
000160: 39 34 30 0D 0A 39 32 30 20 50 52 49 4E 54 20 22 940..920 PRINT "
000170: 4E 4F 20 46 41 49 52 2E 20 59 4F 55 27 52 45 20 NO FAIR. YOU'RE
000180: 54 52 59 49 4E 47 20 54 4F 20 43 48 4F 4D 50 20 TRYING TO CHOMP
000190: 4F 4E 20 45 4D 50 54 59 20 53 50 41 43 45 21 22 ON EMPTY SPACE!"
0001A0: 0D 0A 39 33 30 20 47 4F 54 4F 20 38 32 30 0D 0A ..930 GOTO 820..
0001B0: 39 34 30 20 46 4F 52 20 49 3D 52 31 20 54 4F 20 940 FOR I=R1 TO
0001C0: 52 0D 0A 39 35 30 20 46 4F 52 20 4A 3D 43 31 20 R..950 FOR J=C1
0001D0: 54 4F 20 43 0D 0A 39 36 30 20 41 28 49 2C 4A 29 TO C..960 A(I,J)
0001E0: 3D 30 0D 0A 39 37 30 20 4E 45 58 54 20 4A 0D 0A =0..970 NEXT J..
0001F0: 39 38 30 20 4E 45 58 54 20 49 0D 0A 39 39 30 20 980 NEXT I..990
Size : 512 (Real : 512)
000000: 0D 0A 36 31 30 20 58 3D 49 4E 54 28 4E 2A 52 4E ..610 X=INT(N*RN
000010: 44 28 31 29 2B 31 29 3A 20 59 3D 49 4E 54 28 4E D(1)+1): Y=INT(N
000020: 2A 52 4E 44 28 31 29 2B 31 29 3A 20 47 4F 53 55 *RND(1)+1): GOSU
000030: 42 20 39 31 30 3A 20 49 46 20 4C 3D 30 20 54 48 B 910: IF L=0 TH
000040: 45 4E 20 36 31 30 0D 0A 36 35 30 20 49 46 20 41 EN 610..650 IF A
000050: 28 58 2C 59 29 3C 3E 30 20 54 48 45 4E 20 36 31 (X,Y)<>0 THEN 61
000060: 30 0D 0A 36 36 30 20 41 28 58 2C 59 29 3D 32 3A 0..660 A(X,Y)=2:
000070: 20 47 4F 53 55 42 20 38 31 30 3A 20 47 4F 54 4F GOSUB 810: GOTO
000080: 20 33 31 30 0D 0A 37 31 30 20 58 3D 49 2D 45 3A 310..710 X=I-E:
000090: 20 59 3D 4A 2D 46 3A 20 47 4F 53 55 42 20 39 31 Y=J-F: GOSUB 91
0000A0: 30 0D 0A 37 35 30 20 49 46 20 4C 3D 30 20 54 48 0..750 IF L=0 TH
0000B0: 45 4E 20 36 31 30 0D 0A 37 36 30 20 47 4F 54 4F EN 610..760 GOTO
0000C0: 20 36 35 30 0D 0A 38 30 30 20 52 45 4D 20 2A 2A 650..800 REM **
0000D0: 2A 20 50 52 49 4E 54 20 54 48 45 20 42 4F 41 52 * PRINT THE BOAR
0000E0: 44 20 2A 2A 2A 0D 0A 38 31 30 20 46 4F 52 20 49 D ***..810 FOR I
0000F0: 3D 31 20 54 4F 20 4E 3A 20 46 4F 52 20 4A 3D 31 =1 TO N: FOR J=1
000100: 20 54 4F 20 4E 3A 20 50 52 49 4E 54 20 41 28 49 TO N: PRINT A(I
000110: 2C 4A 29 3B 0D 0A 38 34 30 20 4E 45 58 54 20 4A ,J);..840 NEXT J
000120: 3A 20 50 52 49 4E 54 3A 20 4E 45 58 54 20 49 3A : PRINT: NEXT I:
000130: 20 50 52 49 4E 54 3A 20 52 45 54 55 52 4E 0D 0A PRINT: RETURN..
000140: 39 31 30 20 4C 3D 31 3A 20 49 46 20 58 3C 31 20 910 L=1: IF X<1
000150: 54 48 45 4E 20 39 37 30 0D 0A 39 32 30 20 49 46 THEN 970..920 IF
000160: 20 58 3E 4E 20 54 48 45 4E 20 39 37 30 0D 0A 39 X>N THEN 970..9
000170: 33 30 20 49 46 20 59 3C 31 20 54 48 45 4E 20 39 30 IF Y<1 THEN 9
000180: 37 30 0D 0A 39 34 30 20 49 46 20 59 3E 4E 20 54 70..940 IF Y>N T
000190: 48 45 4E 20 39 37 30 0D 0A 39 35 30 20 52 45 54 HEN 970..950 RET
0001A0: 55 52 4E 0D 0A 39 37 30 20 4C 3D 30 3A 20 52 45 URN..970 L=0: RE
0001B0: 54 55 52 4E 0D 0A 39 38 30 20 50 52 49 4E 54 3A TURN..980 PRINT:
0001C0: 20 50 52 49 4E 54 20 22 54 48 41 4E 4B 53 20 46 PRINT "THANKS F
0001D0: 4F 52 20 54 48 45 20 47 41 4D 45 21 21 22 0D 0A OR THE GAME!!"..
0001E0: 39 38 35 20 50 52 49 4E 54 20 22 50 4C 41 59 20 985 PRINT "PLAY
0001F0: 41 47 41 49 4E 20 28 31 20 46 4F 52 20 59 45 53 AGAIN (1 FOR YES
Size : 512 (Real : 512)
000000: 47 4F 54 4F 20 36 31 30 0D 0A 31 30 30 30 20 52 GOTO 610..1000 R
000010: 45 4D 20 45 4E 44 20 4F 46 20 47 41 4D 45 20 44 EM END OF GAME D
000020: 45 54 45 43 54 45 44 20 49 4E 20 4C 49 4E 45 20 ETECTED IN LINE
000030: 39 30 30 0D 0A 31 30 31 30 20 50 52 49 4E 54 20 900..1010 PRINT
000040: 22 59 4F 55 20 4C 4F 53 45 2C 20 50 4C 41 59 45 "YOU LOSE, PLAYE
000050: 52 22 3B 50 31 0D 0A 31 30 32 30 20 50 52 49 4E R";P1..1020 PRIN
000060: 54 20 0D 0A 31 30 33 30 20 50 52 49 4E 54 20 22 T ..1030 PRINT "
000070: 41 47 41 49 4E 20 28 31 3D 59 45 53 2C 20 30 3D AGAIN (1=YES, 0=
000080: 4E 4F 21 29 22 3B 0D 0A 31 30 34 30 20 49 4E 50 NO!)";..1040 INP
000090: 55 54 20 52 24 0D 0A 31 30 35 30 20 49 46 20 52 UT R$..1050 IF R
0000A0: 3D 31 20 54 48 45 4E 20 33 34 30 0D 0A 31 30 36 =1 THEN 340..106
0000B0: 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 0 END...........
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 2C 20 30 20 46 4F 52 20 4E 4F 29 22 3B 3A 20 49 , 0 FOR NO)";: I
000010: 4E 50 55 54 20 51 0D 0A 39 39 30 20 49 46 20 51 NPUT Q..990 IF Q
000020: 3D 31 20 54 48 45 4E 20 31 31 30 0D 0A 39 39 39 =1 THEN 110..999
000030: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
000010: 22 47 4F 4D 4F 4B 4F 22 0D 0A 34 20 50 52 49 4E "GOMOKO"..4 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A ERSEY"..6 PRINT:
000060: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 38 20 44 PRINT:PRINT..8 D
000070: 49 4D 20 41 28 31 39 2C 31 39 29 0D 0A 31 30 20 IM A(19,19)..10
000080: 50 52 49 4E 54 20 22 57 45 4C 43 4F 4D 45 20 54 PRINT "WELCOME T
000090: 4F 20 54 48 45 20 4F 52 49 45 4E 54 41 4C 20 47 O THE ORIENTAL G
0000A0: 41 4D 45 20 4F 46 20 47 4F 4D 4F 4B 4F 2E 22 0D AME OF GOMOKO.".
0000B0: 0A 32 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 .20 PRINT: PRINT
0000C0: 20 22 54 48 45 20 47 41 4D 45 20 49 53 20 50 4C "THE GAME IS PL
0000D0: 41 59 45 44 20 4F 4E 20 41 4E 20 4E 20 42 59 20 AYED ON AN N BY
0000E0: 4E 20 47 52 49 44 20 4F 46 20 41 20 53 49 5A 45 N GRID OF A SIZE
0000F0: 22 0D 0A 33 30 20 50 52 49 4E 54 20 22 54 48 41 "..30 PRINT "THA
000100: 54 20 59 4F 55 20 53 50 45 43 49 46 59 2E 20 20 T YOU SPECIFY.
000110: 44 55 52 49 4E 47 20 59 4F 55 52 20 50 4C 41 59 DURING YOUR PLAY
000120: 2C 20 59 4F 55 20 4D 41 59 20 43 4F 56 45 52 20 , YOU MAY COVER
000130: 4F 4E 45 20 47 52 49 44 22 0D 0A 34 30 20 50 52 ONE GRID"..40 PR
000140: 49 4E 54 20 22 49 4E 54 45 52 53 45 43 54 49 4F INT "INTERSECTIO
000150: 4E 20 57 49 54 48 20 41 20 4D 41 52 4B 45 52 2E N WITH A MARKER.
000160: 20 54 48 45 20 4F 42 4A 45 43 54 20 4F 46 20 54 THE OBJECT OF T
000170: 48 45 20 47 41 4D 45 20 49 53 20 54 4F 20 47 45 HE GAME IS TO GE
000180: 54 22 0D 0A 35 30 20 50 52 49 4E 54 20 22 35 20 T"..50 PRINT "5
000190: 41 44 4A 41 43 45 4E 54 20 4D 41 52 4B 45 52 53 ADJACENT MARKERS
0001A0: 20 49 4E 20 41 20 52 4F 57 20 2D 2D 20 48 4F 52 IN A ROW -- HOR
0001B0: 49 5A 4F 4E 54 41 4C 4C 59 2C 20 56 45 52 54 49 IZONTALLY, VERTI
0001C0: 43 41 4C 4C 59 2C 20 4F 52 22 0D 0A 36 30 20 50 CALLY, OR"..60 P
0001D0: 52 49 4E 54 20 22 44 49 41 47 4F 4E 41 4C 4C 59 RINT "DIAGONALLY
0001E0: 2E 20 20 4F 4E 20 54 48 45 20 42 4F 41 52 44 20 . ON THE BOARD
0001F0: 44 49 41 47 52 41 4D 2C 20 59 4F 55 52 20 4D 4F DIAGRAM, YOUR MO
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 56 45 53 20 41 52 45 20 4D 41 52 4B 45 44 22 0D VES ARE MARKED".
000010: 0A 37 30 20 50 52 49 4E 54 20 22 57 49 54 48 20 .70 PRINT "WITH
000020: 41 20 27 31 27 20 41 4E 44 20 54 48 45 20 43 4F A '1' AND THE CO
000030: 4D 50 55 54 45 52 20 4D 4F 56 45 53 20 57 49 54 MPUTER MOVES WIT
000040: 48 20 41 20 27 32 27 2E 22 0D 0A 38 30 20 50 52 H A '2'."..80 PR
000050: 49 4E 54 3A 20 50 52 49 4E 54 20 22 54 48 45 20 INT: PRINT "THE
000060: 43 4F 4D 50 55 54 45 52 20 44 4F 45 53 20 4E 4F COMPUTER DOES NO
000070: 54 20 4B 45 45 50 20 54 52 41 43 4B 20 4F 46 20 T KEEP TRACK OF
000080: 57 48 4F 20 48 41 53 20 57 4F 4E 2E 22 0D 0A 39 WHO HAS WON."..9
000090: 30 20 50 52 49 4E 54 20 22 54 4F 20 45 4E 44 20 0 PRINT "TO END
0000A0: 54 48 45 20 47 41 4D 45 2C 20 54 59 50 45 20 2D THE GAME, TYPE -
0000B0: 31 2C 2D 31 20 46 4F 52 20 59 4F 55 52 20 4D 4F 1,-1 FOR YOUR MO
0000C0: 56 45 2E 22 3A 20 50 52 49 4E 54 0D 0A 31 31 30 VE.": PRINT..110
0000D0: 20 50 52 49 4E 54 20 22 57 48 41 54 20 49 53 20 PRINT "WHAT IS
0000E0: 59 4F 55 52 20 42 4F 41 52 44 20 53 49 5A 45 20 YOUR BOARD SIZE
0000F0: 28 4D 49 4E 20 37 2F 20 4D 41 58 20 31 39 29 22 (MIN 7/ MAX 19)"
000100: 3B 3A 20 49 4E 50 55 54 20 4E 0D 0A 31 31 35 20 ;: INPUT N..115
000110: 49 46 20 4E 3E 36 20 54 48 45 4E 20 31 31 37 0D IF N>6 THEN 117.
000120: 0A 31 31 36 20 47 4F 54 4F 20 31 32 30 0D 0A 31 .116 GOTO 120..1
000130: 31 37 20 49 46 20 4E 3C 32 30 20 54 48 45 4E 20 17 IF N<20 THEN
000140: 32 31 30 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 210..120 PRINT "
000150: 49 20 53 41 49 44 2C 20 54 48 45 20 4D 49 4E 49 I SAID, THE MINI
000160: 4D 55 4D 20 49 53 20 37 2C 20 54 48 45 20 4D 41 MUM IS 7, THE MA
000170: 58 49 4D 55 4D 20 49 53 20 31 39 2E 22 3A 20 47 XIMUM IS 19.": G
000180: 4F 54 4F 20 31 31 30 0D 0A 32 31 30 20 46 4F 52 OTO 110..210 FOR
000190: 20 49 3D 31 20 54 4F 20 4E 3A 46 4F 52 20 4A 3D I=1 TO N:FOR J=
0001A0: 31 20 54 4F 20 4E 3A 20 41 28 49 2C 4A 29 3D 30 1 TO N: A(I,J)=0
0001B0: 3A 20 4E 45 58 54 20 4A 3A 20 4E 45 58 54 20 49 : NEXT J: NEXT I
0001C0: 0D 0A 33 30 30 20 50 52 49 4E 54 3A 20 50 52 49 ..300 PRINT: PRI
0001D0: 4E 54 20 22 57 45 20 41 4C 54 45 52 4E 41 54 45 NT "WE ALTERNATE
0001E0: 20 4D 4F 56 45 53 2E 20 20 59 4F 55 20 47 4F 20 MOVES. YOU GO
0001F0: 46 49 52 53 54 2E 2E 2E 22 3A 20 50 52 49 4E 54 FIRST...": PRINT
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
000010: 22 47 55 45 53 53 22 0D 0A 32 20 50 52 49 4E 54 "GUESS"..2 PRINT
000020: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
000030: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
000040: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
000050: 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A 50 RSEY"..3 PRINT:P
000060: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 50 52 RINT:PRINT..4 PR
000070: 49 4E 54 20 22 54 48 49 53 20 49 53 20 41 20 4E INT "THIS IS A N
000080: 55 4D 42 45 52 20 47 55 45 53 53 49 4E 47 20 47 UMBER GUESSING G
000090: 41 4D 45 2E 20 49 27 4C 4C 20 54 48 49 4E 4B 22 AME. I'LL THINK"
0000A0: 0D 0A 35 20 50 52 49 4E 54 20 22 4F 46 20 41 20 ..5 PRINT "OF A
0000B0: 4E 55 4D 42 45 52 20 42 45 54 57 45 45 4E 20 31 NUMBER BETWEEN 1
0000C0: 20 41 4E 44 20 41 4E 59 20 4C 49 4D 49 54 20 59 AND ANY LIMIT Y
0000D0: 4F 55 20 57 41 4E 54 2E 22 0D 0A 36 20 50 52 49 OU WANT."..6 PRI
0000E0: 4E 54 20 22 54 48 45 4E 20 59 4F 55 20 48 41 56 NT "THEN YOU HAV
0000F0: 45 20 54 4F 20 47 55 45 53 53 20 57 48 41 54 20 E TO GUESS WHAT
000100: 49 54 20 49 53 2E 22 0D 0A 37 20 50 52 49 4E 54 IT IS."..7 PRINT
000110: 0D 0A 38 20 50 52 49 4E 54 20 22 57 48 41 54 20 ..8 PRINT "WHAT
000120: 4C 49 4D 49 54 20 44 4F 20 59 4F 55 20 57 41 4E LIMIT DO YOU WAN
000130: 54 22 3B 0D 0A 39 20 49 4E 50 55 54 20 4C 0D 0A T";..9 INPUT L..
000140: 31 30 20 50 52 49 4E 54 0D 0A 31 31 20 4C 31 3D 10 PRINT..11 L1=
000150: 49 4E 54 28 4C 4F 47 28 4C 29 2F 4C 4F 47 28 32 INT(LOG(L)/LOG(2
000160: 29 29 2B 31 0D 0A 31 32 20 50 52 49 4E 54 20 22 ))+1..12 PRINT "
000170: 49 27 4D 20 54 48 49 4E 4B 49 4E 47 20 4F 46 20 I'M THINKING OF
000180: 41 20 4E 55 4D 42 45 52 20 42 45 54 57 45 45 4E A NUMBER BETWEEN
000190: 20 31 20 41 4E 44 22 3B 4C 0D 0A 31 33 20 47 3D 1 AND";L..13 G=
0001A0: 31 0D 0A 31 34 20 50 52 49 4E 54 20 22 4E 4F 57 1..14 PRINT "NOW
0001B0: 20 59 4F 55 20 54 52 59 20 54 4F 20 47 55 45 53 YOU TRY TO GUES
0001C0: 53 20 57 48 41 54 20 49 54 20 49 53 2E 22 0D 0A S WHAT IT IS."..
0001D0: 31 35 20 4D 3D 49 4E 54 28 4C 2A 52 4E 44 28 31 15 M=INT(L*RND(1
0001E0: 29 2B 31 29 0D 0A 32 30 20 49 4E 50 55 54 20 4E )+1)..20 INPUT N
0001F0: 0D 0A 32 31 20 49 46 20 4E 3E 30 20 54 48 45 4E ..21 IF N>0 THEN
Size : 512 (Real : 512)
000000: 52 49 4E 54 20 22 42 45 54 54 45 52 20 47 4F 20 RINT "BETTER GO
000010: 42 41 43 4B 20 54 4F 20 46 4F 52 54 20 53 49 4C BACK TO FORT SIL
000020: 4C 20 46 4F 52 20 52 45 46 52 45 53 48 45 52 20 L FOR REFRESHER
000030: 54 52 41 49 4E 49 4E 47 21 22 0D 0A 35 30 30 20 TRAINING!"..500
000040: 50 52 49 4E 54 20 3A 20 49 4E 50 55 54 20 22 54 PRINT : INPUT "T
000050: 52 59 20 41 47 41 49 4E 20 28 59 20 4F 52 20 4E RY AGAIN (Y OR N
000060: 29 22 3B 5A 24 0D 0A 35 31 30 20 49 46 20 5A 24 )";Z$..510 IF Z$
000070: 3D 22 59 22 20 54 48 45 4E 20 31 37 30 0D 0A 35 ="Y" THEN 170..5
000080: 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 20 PRINT:PRINT "
000090: 4F 4B 2E 20 20 52 45 54 55 52 4E 20 54 4F 20 42 OK. RETURN TO B
0000A0: 41 53 45 20 43 41 4D 50 2E 22 0D 0A 39 39 39 20 ASE CAMP."..999
0000B0: 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 END.............
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 32 35 0D 0A 32 32 20 47 4F 53 55 42 20 37 30 25..22 GOSUB 70
000010: 0D 0A 32 33 20 47 4F 54 4F 20 31 0D 0A 32 35 20 ..23 GOTO 1..25
000020: 49 46 20 4E 3D 4D 20 54 48 45 4E 20 35 30 0D 0A IF N=M THEN 50..
000030: 33 30 20 47 3D 47 2B 31 0D 0A 33 31 20 49 46 20 30 G=G+1..31 IF
000040: 4E 3E 4D 20 54 48 45 4E 20 34 30 0D 0A 33 32 20 N>M THEN 40..32
000050: 50 52 49 4E 54 20 22 54 4F 4F 20 4C 4F 57 2E 20 PRINT "TOO LOW.
000060: 54 52 59 20 41 20 42 49 47 47 45 52 20 41 4E 53 TRY A BIGGER ANS
000070: 57 45 52 2E 22 0D 0A 33 33 20 47 4F 54 4F 20 32 WER."..33 GOTO 2
000080: 30 0D 0A 34 30 20 50 52 49 4E 54 20 22 54 4F 4F 0..40 PRINT "TOO
000090: 20 48 49 47 48 2E 20 54 52 59 20 41 20 53 4D 41 HIGH. TRY A SMA
0000A0: 4C 4C 45 52 20 41 4E 53 57 45 52 2E 22 0D 0A 34 LLER ANSWER."..4
0000B0: 32 20 47 4F 54 4F 20 32 30 0D 0A 35 30 20 50 52 2 GOTO 20..50 PR
0000C0: 49 4E 54 20 22 54 48 41 54 27 53 20 49 54 21 20 INT "THAT'S IT!
0000D0: 59 4F 55 20 47 4F 54 20 49 54 20 49 4E 22 3B 47 YOU GOT IT IN";G
0000E0: 3B 22 54 52 49 45 53 2E 22 0D 0A 35 32 20 49 46 ;"TRIES."..52 IF
0000F0: 20 47 3C 4C 31 20 54 48 45 4E 20 35 38 0D 0A 35 G<L1 THEN 58..5
000100: 34 20 49 46 20 47 3D 4C 31 20 54 48 45 4E 20 36 4 IF G=L1 THEN 6
000110: 30 0D 0A 35 36 20 50 52 49 4E 54 20 22 59 4F 55 0..56 PRINT "YOU
000120: 20 53 48 4F 55 4C 44 20 48 41 56 45 20 42 45 45 SHOULD HAVE BEE
000130: 4E 20 41 42 4C 45 20 54 4F 20 47 45 54 20 49 54 N ABLE TO GET IT
000140: 20 49 4E 20 4F 4E 4C 59 22 3B 4C 31 0D 0A 35 37 IN ONLY";L1..57
000150: 20 47 4F 54 4F 20 36 35 0D 0A 35 38 20 50 52 49 GOTO 65..58 PRI
000160: 4E 54 20 22 56 45 52 59 20 22 3B 0D 0A 36 30 20 NT "VERY ";..60
000170: 50 52 49 4E 54 20 22 47 4F 4F 44 2E 22 0D 0A 36 PRINT "GOOD."..6
000180: 35 20 47 4F 53 55 42 20 37 30 0D 0A 36 36 20 47 5 GOSUB 70..66 G
000190: 4F 54 4F 20 31 32 0D 0A 37 30 20 46 4F 52 20 48 OTO 12..70 FOR H
0001A0: 3D 31 20 54 4F 20 35 0D 0A 37 31 20 50 52 49 4E =1 TO 5..71 PRIN
0001B0: 54 0D 0A 37 32 20 4E 45 58 54 20 48 0D 0A 37 33 T..72 NEXT H..73
0001C0: 20 52 45 54 55 52 4E 0D 0A 39 39 20 45 4E 44 0D RETURN..99 END.
0001D0: 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 10 PRINT TAB(32)
000010: 3B 22 48 41 4D 55 52 41 42 49 22 0D 0A 32 30 20 ;"HAMURABI"..20
000020: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 PRINT TAB(15);"C
000030: 52 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E REATIVE COMPUTIN
000040: 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E G MORRISTOWN, N
000050: 45 57 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 EW JERSEY"..30 P
000060: 52 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 RINT:PRINT:PRINT
000070: 0D 0A 38 30 20 50 52 49 4E 54 20 22 54 52 59 20 ..80 PRINT "TRY
000080: 59 4F 55 52 20 48 41 4E 44 20 41 54 20 47 4F 56 YOUR HAND AT GOV
000090: 45 52 4E 49 4E 47 20 41 4E 43 49 45 4E 54 20 53 ERNING ANCIENT S
0000A0: 55 4D 45 52 49 41 22 0D 0A 39 30 20 50 52 49 4E UMERIA"..90 PRIN
0000B0: 54 20 22 46 4F 52 20 41 20 54 45 4E 2D 59 45 41 T "FOR A TEN-YEA
0000C0: 52 20 54 45 52 4D 20 4F 46 20 4F 46 46 49 43 45 R TERM OF OFFICE
0000D0: 2E 22 3A 50 52 49 4E 54 0D 0A 39 35 20 44 31 3D .":PRINT..95 D1=
0000E0: 30 3A 20 50 31 3D 30 0D 0A 31 30 30 20 5A 3D 30 0: P1=0..100 Z=0
0000F0: 3A 20 50 3D 39 35 3A 53 3D 32 38 30 30 3A 20 48 : P=95:S=2800: H
000100: 3D 33 30 30 30 3A 20 45 3D 48 2D 53 0D 0A 31 31 =3000: E=H-S..11
000110: 30 20 59 3D 33 3A 20 41 3D 48 2F 59 3A 20 49 3D 0 Y=3: A=H/Y: I=
000120: 35 3A 20 51 3D 31 0D 0A 32 31 30 20 44 3D 30 0D 5: Q=1..210 D=0.
000130: 0A 32 31 35 20 50 52 49 4E 54 3A 50 52 49 4E 54 .215 PRINT:PRINT
000140: 3A 50 52 49 4E 54 20 22 48 41 4D 55 52 41 42 49 :PRINT "HAMURABI
000150: 3A 20 20 49 20 42 45 47 20 54 4F 20 52 45 50 4F : I BEG TO REPO
000160: 52 54 20 54 4F 20 59 4F 55 2C 22 3A 20 5A 3D 5A RT TO YOU,": Z=Z
000170: 2B 31 0D 0A 32 31 37 20 50 52 49 4E 54 20 22 49 +1..217 PRINT "I
000180: 4E 20 59 45 41 52 22 3B 5A 3B 22 2C 22 3B 44 3B N YEAR";Z;",";D;
000190: 22 50 45 4F 50 4C 45 20 53 54 41 52 56 45 44 2C "PEOPLE STARVED,
0001A0: 22 3B 49 3B 22 43 41 4D 45 20 54 4F 20 54 48 45 ";I;"CAME TO THE
0001B0: 20 43 49 54 59 2C 22 0D 0A 32 31 38 20 50 3D 50 CITY,"..218 P=P
0001C0: 2B 49 0D 0A 32 32 37 20 49 46 20 51 3E 30 20 54 +I..227 IF Q>0 T
0001D0: 48 45 4E 20 32 33 30 0D 0A 32 32 38 20 50 3D 49 HEN 230..228 P=I
0001E0: 4E 54 28 50 2F 32 29 0D 0A 32 32 39 20 50 52 49 NT(P/2)..229 PRI
0001F0: 4E 54 20 22 41 20 48 4F 52 52 49 42 4C 45 20 50 NT "A HORRIBLE P
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 30 29 10 PRINT TAB(30)
000010: 3B 22 47 55 4E 4E 45 52 22 0D 0A 32 30 20 50 52 ;"GUNNER"..20 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
000060: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
000070: 31 33 30 20 50 52 49 4E 54 20 22 59 4F 55 20 41 130 PRINT "YOU A
000080: 52 45 20 54 48 45 20 4F 46 46 49 43 45 52 2D 49 RE THE OFFICER-I
000090: 4E 2D 43 48 41 52 47 45 2C 20 47 49 56 49 4E 47 N-CHARGE, GIVING
0000A0: 20 4F 52 44 45 52 53 20 54 4F 20 41 20 47 55 4E ORDERS TO A GUN
0000B0: 22 0D 0A 31 34 30 20 50 52 49 4E 54 20 22 43 52 "..140 PRINT "CR
0000C0: 45 57 2C 20 54 45 4C 4C 49 4E 47 20 54 48 45 4D EW, TELLING THEM
0000D0: 20 54 48 45 20 44 45 47 52 45 45 53 20 4F 46 20 THE DEGREES OF
0000E0: 45 4C 45 56 41 54 49 4F 4E 20 59 4F 55 20 45 53 ELEVATION YOU ES
0000F0: 54 49 4D 41 54 45 22 0D 0A 31 35 30 20 50 52 49 TIMATE"..150 PRI
000100: 4E 54 20 22 57 49 4C 4C 20 50 4C 41 43 45 20 41 NT "WILL PLACE A
000110: 20 50 52 4F 4A 45 43 54 49 4C 45 20 4F 4E 20 54 PROJECTILE ON T
000120: 41 52 47 45 54 2E 20 20 41 20 48 49 54 20 57 49 ARGET. A HIT WI
000130: 54 48 49 4E 20 31 30 30 20 59 41 52 44 53 22 0D THIN 100 YARDS".
000140: 0A 31 36 30 20 50 52 49 4E 54 20 22 4F 46 20 54 .160 PRINT "OF T
000150: 48 45 20 54 41 52 47 45 54 20 57 49 4C 4C 20 44 HE TARGET WILL D
000160: 45 53 54 52 4F 59 20 49 54 2E 22 20 3A 20 50 52 ESTROY IT." : PR
000170: 49 4E 54 0D 0A 31 37 30 20 52 3D 49 4E 54 28 34 INT..170 R=INT(4
000180: 30 30 30 30 2A 52 4E 44 28 31 29 2B 32 30 30 30 0000*RND(1)+2000
000190: 30 29 0D 0A 31 38 30 20 50 52 49 4E 54 20 22 4D 0)..180 PRINT "M
0001A0: 41 58 49 4D 55 4D 20 52 41 4E 47 45 20 4F 46 20 AXIMUM RANGE OF
0001B0: 59 4F 55 52 20 47 55 4E 20 49 53 22 3B 52 3B 22 YOUR GUN IS";R;"
0001C0: 20 59 41 52 44 53 2E 22 0D 0A 31 38 35 20 5A 3D YARDS."..185 Z=
0001D0: 30 0D 0A 31 39 30 20 50 52 49 4E 54 0D 0A 31 39 0..190 PRINT..19
0001E0: 35 20 53 31 3D 30 0D 0A 32 30 30 20 54 3D 49 4E 5 S1=0..200 T=IN
0001F0: 54 28 52 2A 28 2E 31 2B 2E 38 2A 52 4E 44 28 31 T(R*(.1+.8*RND(1
Size : 512 (Real : 512)
000000: 4C 41 47 55 45 20 53 54 52 55 43 4B 21 20 20 48 LAGUE STRUCK! H
000010: 41 4C 46 20 54 48 45 20 50 45 4F 50 4C 45 20 44 ALF THE PEOPLE D
000020: 49 45 44 2E 22 0D 0A 32 33 30 20 50 52 49 4E 54 IED."..230 PRINT
000030: 20 22 50 4F 50 55 4C 41 54 49 4F 4E 20 49 53 20 "POPULATION IS
000040: 4E 4F 57 22 3B 50 0D 0A 32 33 32 20 50 52 49 4E NOW";P..232 PRIN
000050: 54 20 22 54 48 45 20 43 49 54 59 20 4E 4F 57 20 T "THE CITY NOW
000060: 4F 57 4E 53 20 22 3B 41 3B 22 41 43 52 45 53 2E OWNS ";A;"ACRES.
000070: 22 0D 0A 32 33 35 20 50 52 49 4E 54 20 22 59 4F "..235 PRINT "YO
000080: 55 20 48 41 52 56 45 53 54 45 44 22 3B 59 3B 22 U HARVESTED";Y;"
000090: 42 55 53 48 45 4C 53 20 50 45 52 20 41 43 52 45 BUSHELS PER ACRE
0000A0: 2E 22 0D 0A 32 35 30 20 50 52 49 4E 54 20 22 54 ."..250 PRINT "T
0000B0: 48 45 20 52 41 54 53 20 41 54 45 22 3B 45 3B 22 HE RATS ATE";E;"
0000C0: 42 55 53 48 45 4C 53 2E 22 0D 0A 32 36 30 20 50 BUSHELS."..260 P
0000D0: 52 49 4E 54 20 22 59 4F 55 20 4E 4F 57 20 48 41 RINT "YOU NOW HA
0000E0: 56 45 20 22 3B 53 3B 22 42 55 53 48 45 4C 53 20 VE ";S;"BUSHELS
0000F0: 49 4E 20 53 54 4F 52 45 2E 22 3A 20 50 52 49 4E IN STORE.": PRIN
000100: 54 0D 0A 32 37 30 20 49 46 20 5A 3D 31 31 20 54 T..270 IF Z=11 T
000110: 48 45 4E 20 38 36 30 0D 0A 33 31 30 20 43 3D 49 HEN 860..310 C=I
000120: 4E 54 28 31 30 2A 52 4E 44 28 31 29 29 3A 20 59 NT(10*RND(1)): Y
000130: 3D 43 2B 31 37 0D 0A 33 31 32 20 50 52 49 4E 54 =C+17..312 PRINT
000140: 20 22 4C 41 4E 44 20 49 53 20 54 52 41 44 49 4E "LAND IS TRADIN
000150: 47 20 41 54 22 3B 59 3B 22 42 55 53 48 45 4C 53 G AT";Y;"BUSHELS
000160: 20 50 45 52 20 41 43 52 45 2E 22 0D 0A 33 32 30 PER ACRE."..320
000170: 20 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 PRINT "HOW MANY
000180: 20 41 43 52 45 53 20 44 4F 20 59 4F 55 20 57 49 ACRES DO YOU WI
000190: 53 48 20 54 4F 20 42 55 59 22 3B 0D 0A 33 32 31 SH TO BUY";..321
0001A0: 20 49 4E 50 55 54 20 51 3A 20 49 46 20 51 3C 30 INPUT Q: IF Q<0
0001B0: 20 54 48 45 4E 20 38 35 30 0D 0A 33 32 32 20 49 THEN 850..322 I
0001C0: 46 20 59 2A 51 3C 3D 53 20 54 48 45 4E 20 33 33 F Y*Q<=S THEN 33
0001D0: 30 0D 0A 33 32 33 20 47 4F 53 55 42 20 37 31 30 0..323 GOSUB 710
0001E0: 0D 0A 33 32 34 20 47 4F 54 4F 20 33 32 30 0D 0A ..324 GOTO 320..
0001F0: 33 33 30 20 49 46 20 51 3D 30 20 54 48 45 4E 20 330 IF Q=0 THEN
Size : 512 (Real : 512)
000000: 29 29 29 0D 0A 32 31 30 20 53 3D 30 0D 0A 32 32 )))..210 S=0..22
000010: 30 20 47 4F 54 4F 20 33 37 30 0D 0A 32 33 30 20 0 GOTO 370..230
000020: 50 52 49 4E 54 20 22 4D 49 4E 49 4D 55 4D 20 45 PRINT "MINIMUM E
000030: 4C 45 56 41 54 49 4F 4E 20 49 53 20 4F 4E 45 20 LEVATION IS ONE
000040: 44 45 47 52 45 45 2E 22 0D 0A 32 34 30 20 47 4F DEGREE."..240 GO
000050: 54 4F 20 33 39 30 0D 0A 32 35 30 20 50 52 49 4E TO 390..250 PRIN
000060: 54 20 22 4D 41 58 49 4D 55 4D 20 45 4C 45 56 41 T "MAXIMUM ELEVA
000070: 54 49 4F 4E 20 49 53 20 38 39 20 44 45 47 52 45 TION IS 89 DEGRE
000080: 45 53 2E 22 0D 0A 32 36 30 20 47 4F 54 4F 20 33 ES."..260 GOTO 3
000090: 39 30 0D 0A 32 37 30 20 50 52 49 4E 54 20 22 4F 90..270 PRINT "O
0000A0: 56 45 52 20 54 41 52 47 45 54 20 42 59 20 22 3B VER TARGET BY ";
0000B0: 41 42 53 28 45 29 3B 22 59 41 52 44 53 2E 22 0D ABS(E);"YARDS.".
0000C0: 0A 32 38 30 20 47 4F 54 4F 20 33 39 30 0D 0A 32 .280 GOTO 390..2
0000D0: 39 30 20 50 52 49 4E 54 20 22 53 48 4F 52 54 20 90 PRINT "SHORT
0000E0: 4F 46 20 54 41 52 47 45 54 20 42 59 20 22 41 42 OF TARGET BY "AB
0000F0: 53 28 45 29 3B 22 59 41 52 44 53 2E 22 0D 0A 33 S(E);"YARDS."..3
000100: 30 30 20 47 4F 54 4F 20 33 39 30 0D 0A 33 32 30 00 GOTO 390..320
000110: 20 50 52 49 4E 54 20 22 2A 2A 2A 20 54 41 52 47 PRINT "*** TARG
000120: 45 54 20 44 45 53 54 52 4F 59 45 44 20 2A 2A 2A ET DESTROYED ***
000130: 20 20 22 3B 53 3B 22 52 4F 55 4E 44 53 20 4F 46 ";S;"ROUNDS OF
000140: 20 41 4D 4D 55 4E 49 54 49 4F 4E 20 45 58 50 45 AMMUNITION EXPE
000150: 4E 44 45 44 2E 22 0D 0A 33 32 35 20 53 31 3D 53 NDED."..325 S1=S
000160: 31 2B 53 0D 0A 33 33 30 20 49 46 20 5A 3D 34 20 1+S..330 IF Z=4
000170: 54 48 45 4E 20 34 39 30 0D 0A 33 34 30 20 5A 3D THEN 490..340 Z=
000180: 5A 2B 31 0D 0A 33 34 35 20 50 52 49 4E 54 0D 0A Z+1..345 PRINT..
000190: 33 35 30 20 50 52 49 4E 54 20 22 54 48 45 20 46 350 PRINT "THE F
0001A0: 4F 52 57 41 52 44 20 4F 42 53 45 52 56 45 52 20 ORWARD OBSERVER
0001B0: 48 41 53 20 53 49 47 48 54 45 44 20 4D 4F 52 45 HAS SIGHTED MORE
0001C0: 20 45 4E 45 4D 59 20 41 43 54 49 56 49 54 59 2E ENEMY ACTIVITY.
0001D0: 2E 2E 22 0D 0A 33 36 30 20 47 4F 54 4F 20 32 30 .."..360 GOTO 20
0001E0: 30 0D 0A 33 37 30 20 50 52 49 4E 54 20 22 44 49 0..370 PRINT "DI
0001F0: 53 54 41 4E 43 45 20 54 4F 20 54 48 45 20 54 41 STANCE TO THE TA
Size : 512 (Real : 512)
000000: 33 34 30 0D 0A 33 33 31 20 41 3D 41 2B 51 3A 20 340..331 A=A+Q:
000010: 53 3D 53 2D 59 2A 51 3A 20 43 3D 30 0D 0A 33 33 S=S-Y*Q: C=0..33
000020: 34 20 47 4F 54 4F 20 34 30 30 0D 0A 33 34 30 20 4 GOTO 400..340
000030: 50 52 49 4E 54 20 22 48 4F 57 20 4D 41 4E 59 20 PRINT "HOW MANY
000040: 41 43 52 45 53 20 44 4F 20 59 4F 55 20 57 49 53 ACRES DO YOU WIS
000050: 48 20 54 4F 20 53 45 4C 4C 22 3B 0D 0A 33 34 31 H TO SELL";..341
000060: 20 49 4E 50 55 54 20 51 3A 20 49 46 20 51 3C 30 INPUT Q: IF Q<0
000070: 20 54 48 45 4E 20 38 35 30 0D 0A 33 34 32 20 49 THEN 850..342 I
000080: 46 20 51 3C 41 20 54 48 45 4E 20 33 35 30 0D 0A F Q<A THEN 350..
000090: 33 34 33 20 47 4F 53 55 42 20 37 32 30 0D 0A 33 343 GOSUB 720..3
0000A0: 34 34 20 47 4F 54 4F 20 33 34 30 0D 0A 33 35 30 44 GOTO 340..350
0000B0: 20 41 3D 41 2D 51 3A 20 53 3D 53 2B 59 2A 51 3A A=A-Q: S=S+Y*Q:
0000C0: 20 43 3D 30 0D 0A 34 30 30 20 50 52 49 4E 54 0D C=0..400 PRINT.
0000D0: 0A 34 31 30 20 50 52 49 4E 54 20 22 48 4F 57 20 .410 PRINT "HOW
0000E0: 4D 41 4E 59 20 42 55 53 48 45 4C 53 20 44 4F 20 MANY BUSHELS DO
0000F0: 59 4F 55 20 57 49 53 48 20 54 4F 20 46 45 45 44 YOU WISH TO FEED
000100: 20 59 4F 55 52 20 50 45 4F 50 4C 45 22 3B 0D 0A YOUR PEOPLE";..
000110: 34 31 31 20 49 4E 50 55 54 20 51 0D 0A 34 31 32 411 INPUT Q..412
000120: 20 49 46 20 51 3C 30 20 54 48 45 4E 20 38 35 30 IF Q<0 THEN 850
000130: 0D 0A 34 31 38 20 52 45 4D 20 2A 2A 2A 20 54 52 ..418 REM *** TR
000140: 59 49 4E 47 20 54 4F 20 55 53 45 20 4D 4F 52 45 YING TO USE MORE
000150: 20 47 52 41 49 4E 20 54 48 41 4E 20 49 53 20 49 GRAIN THAN IS I
000160: 4E 20 53 49 4C 4F 53 3F 0D 0A 34 32 30 20 49 46 N SILOS?..420 IF
000170: 20 51 3C 3D 53 20 54 48 45 4E 20 34 33 30 0D 0A Q<=S THEN 430..
000180: 34 32 31 20 47 4F 53 55 42 20 37 31 30 0D 0A 34 421 GOSUB 710..4
000190: 32 32 20 47 4F 54 4F 20 34 31 30 0D 0A 34 33 30 22 GOTO 410..430
0001A0: 20 53 3D 53 2D 51 3A 20 43 3D 31 3A 20 50 52 49 S=S-Q: C=1: PRI
0001B0: 4E 54 0D 0A 34 34 30 20 50 52 49 4E 54 20 22 48 NT..440 PRINT "H
0001C0: 4F 57 20 4D 41 4E 59 20 41 43 52 45 53 20 44 4F OW MANY ACRES DO
0001D0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 50 4C 41 YOU WISH TO PLA
0001E0: 4E 54 20 57 49 54 48 20 53 45 45 44 22 3B 0D 0A NT WITH SEED";..
0001F0: 34 34 31 20 49 4E 50 55 54 20 44 3A 20 49 46 20 441 INPUT D: IF
Size : 512 (Real : 512)
000000: 52 47 45 54 20 49 53 20 22 54 3B 22 20 59 41 52 RGET IS "T;" YAR
000010: 44 53 2E 22 0D 0A 33 38 30 20 50 52 49 4E 54 0D DS."..380 PRINT.
000020: 0A 33 39 30 20 50 52 49 4E 54 0D 0A 34 30 30 20 .390 PRINT..400
000030: 49 4E 50 55 54 20 22 45 4C 45 56 41 54 49 4F 4E INPUT "ELEVATION
000040: 22 3B 42 0D 0A 34 32 30 20 49 46 20 42 3E 38 39 ";B..420 IF B>89
000050: 20 54 48 45 4E 20 32 35 30 0D 0A 34 33 30 20 49 THEN 250..430 I
000060: 46 20 42 3C 31 20 54 48 45 4E 20 32 33 30 0D 0A F B<1 THEN 230..
000070: 34 34 30 20 53 3D 53 2B 31 0D 0A 34 34 32 20 49 440 S=S+1..442 I
000080: 46 20 53 3C 36 20 54 48 45 4E 20 34 35 30 0D 0A F S<6 THEN 450..
000090: 34 34 34 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 444 PRINT:PRINT
0000A0: 22 42 4F 4F 4D 20 21 21 21 21 20 20 20 59 4F 55 "BOOM !!!! YOU
0000B0: 20 48 41 56 45 20 4A 55 53 54 20 42 45 45 4E 20 HAVE JUST BEEN
0000C0: 44 45 53 54 52 4F 59 45 44 20 22 3B 0D 0A 34 34 DESTROYED ";..44
0000D0: 36 20 50 52 49 4E 54 20 22 42 59 20 54 48 45 20 6 PRINT "BY THE
0000E0: 45 4E 45 4D 59 2E 22 20 3A 20 50 52 49 4E 54 20 ENEMY." : PRINT
0000F0: 3A 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 20 : PRINT : PRINT
000100: 3A 20 47 4F 54 4F 20 34 39 35 0D 0A 34 35 30 20 : GOTO 495..450
000110: 42 32 3D 32 2A 42 2F 35 37 2E 33 20 3A 20 49 3D B2=2*B/57.3 : I=
000120: 52 2A 53 49 4E 28 42 32 29 20 3A 20 58 3D 54 2D R*SIN(B2) : X=T-
000130: 49 20 3A 20 45 3D 49 4E 54 28 58 29 0D 0A 34 36 I : E=INT(X)..46
000140: 30 20 49 46 20 41 42 53 28 45 29 3C 31 30 30 20 0 IF ABS(E)<100
000150: 54 48 45 4E 20 33 32 30 0D 0A 34 37 30 20 49 46 THEN 320..470 IF
000160: 20 45 3E 31 30 30 20 54 48 45 4E 20 32 39 30 0D E>100 THEN 290.
000170: 0A 34 38 30 20 47 4F 54 4F 20 32 37 30 0D 0A 34 .480 GOTO 270..4
000180: 39 30 20 50 52 49 4E 54 20 3A 20 50 52 49 4E 54 90 PRINT : PRINT
000190: 20 3A 20 50 52 49 4E 54 20 22 54 4F 54 41 4C 20 : PRINT "TOTAL
0001A0: 52 4F 55 4E 44 53 20 45 58 50 45 4E 44 45 44 20 ROUNDS EXPENDED
0001B0: 57 45 52 45 3A 22 3B 53 31 0D 0A 34 39 32 20 49 WERE:";S1..492 I
0001C0: 46 20 53 31 3E 31 38 20 54 48 45 4E 20 34 39 35 F S1>18 THEN 495
0001D0: 0D 0A 34 39 33 20 50 52 49 4E 54 20 22 4E 49 43 ..493 PRINT "NIC
0001E0: 45 20 53 48 4F 4F 54 49 4E 47 20 21 21 22 20 3A E SHOOTING !!" :
0001F0: 20 47 4F 54 4F 20 35 30 30 0D 0A 34 39 35 20 50 GOTO 500..495 P
Size : 512 (Real : 512)
000000: 44 3D 30 20 54 48 45 4E 20 35 31 31 0D 0A 34 34 D=0 THEN 511..44
000010: 32 20 49 46 20 44 3C 30 20 54 48 45 4E 20 38 35 2 IF D<0 THEN 85
000020: 30 0D 0A 34 34 34 20 52 45 4D 20 2A 2A 2A 20 54 0..444 REM *** T
000030: 52 59 49 4E 47 20 54 4F 20 50 4C 41 4E 54 20 4D RYING TO PLANT M
000040: 4F 52 45 20 41 43 52 45 53 20 54 48 41 4E 20 59 ORE ACRES THAN Y
000050: 4F 55 20 4F 57 4E 3F 0D 0A 34 34 35 20 49 46 20 OU OWN?..445 IF
000060: 44 3C 3D 41 20 54 48 45 4E 20 34 35 30 0D 0A 34 D<=A THEN 450..4
000070: 34 36 20 47 4F 53 55 42 20 37 32 30 0D 0A 34 34 46 GOSUB 720..44
000080: 37 20 47 4F 54 4F 20 34 34 30 0D 0A 34 34 39 20 7 GOTO 440..449
000090: 52 45 4D 20 2A 2A 2A 20 45 4E 4F 55 47 48 20 47 REM *** ENOUGH G
0000A0: 52 41 49 4E 20 46 4F 52 20 53 45 45 44 3F 0D 0A RAIN FOR SEED?..
0000B0: 34 35 30 20 49 46 20 49 4E 54 28 44 2F 32 29 3C 450 IF INT(D/2)<
0000C0: 3D 53 20 54 48 45 4E 20 34 35 35 0D 0A 34 35 32 =S THEN 455..452
0000D0: 20 47 4F 53 55 42 20 37 31 30 0D 0A 34 35 33 20 GOSUB 710..453
0000E0: 47 4F 54 4F 20 34 34 30 0D 0A 34 35 34 20 52 45 GOTO 440..454 RE
0000F0: 4D 20 2A 2A 2A 20 45 4E 4F 55 47 48 20 50 45 4F M *** ENOUGH PEO
000100: 50 4C 45 20 54 4F 20 54 45 4E 44 20 54 48 45 20 PLE TO TEND THE
000110: 43 52 4F 50 53 3F 0D 0A 34 35 35 20 49 46 20 44 CROPS?..455 IF D
000120: 3C 31 30 2A 50 20 54 48 45 4E 20 35 31 30 0D 0A <10*P THEN 510..
000130: 34 36 30 20 50 52 49 4E 54 20 22 42 55 54 20 59 460 PRINT "BUT Y
000140: 4F 55 20 48 41 56 45 20 4F 4E 4C 59 22 3B 50 3B OU HAVE ONLY";P;
000150: 22 50 45 4F 50 4C 45 20 54 4F 20 54 45 4E 44 20 "PEOPLE TO TEND
000160: 54 48 45 20 46 49 45 4C 44 53 21 20 20 4E 4F 57 THE FIELDS! NOW
000170: 20 54 48 45 4E 2C 22 0D 0A 34 37 30 20 47 4F 54 THEN,"..470 GOT
000180: 4F 20 34 34 30 0D 0A 35 31 30 20 53 3D 53 2D 49 O 440..510 S=S-I
000190: 4E 54 28 44 2F 32 29 0D 0A 35 31 31 20 47 4F 53 NT(D/2)..511 GOS
0001A0: 55 42 20 38 30 30 0D 0A 35 31 32 20 52 45 4D 20 UB 800..512 REM
0001B0: 2A 2A 2A 20 41 20 42 4F 55 4E 54 49 46 55 4C 20 *** A BOUNTIFUL
0001C0: 48 41 52 56 45 53 54 21 0D 0A 35 31 35 20 59 3D HARVEST!..515 Y=
0001D0: 43 3A 20 48 3D 44 2A 59 3A 20 45 3D 30 0D 0A 35 C: H=D*Y: E=0..5
0001E0: 32 31 20 47 4F 53 55 42 20 38 30 30 0D 0A 35 32 21 GOSUB 800..52
0001F0: 32 20 49 46 20 49 4E 54 28 43 2F 32 29 3C 3E 43 2 IF INT(C/2)<>C
Size : 512 (Real : 512)
000000: 20 54 4F 20 31 30 3A 20 50 52 49 4E 54 20 43 48 TO 10: PRINT CH
000010: 52 24 28 37 29 3B 3A 20 4E 45 58 54 20 4E 0D 0A R$(7);: NEXT N..
000020: 39 39 35 20 50 52 49 4E 54 20 22 53 4F 20 4C 4F 995 PRINT "SO LO
000030: 4E 47 20 46 4F 52 20 4E 4F 57 2E 22 3A 20 50 52 NG FOR NOW.": PR
000040: 49 4E 54 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 INT..999 END....
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 2F 32 20 54 48 45 4E 20 35 33 30 0D 0A 35 32 33 /2 THEN 530..523
000010: 20 52 45 4D 20 2A 2A 2A 20 52 41 54 53 20 41 52 REM *** RATS AR
000020: 45 20 52 55 4E 4E 49 4E 47 20 57 49 4C 44 21 21 E RUNNING WILD!!
000030: 0D 0A 35 32 35 20 45 3D 49 4E 54 28 53 2F 43 29 ..525 E=INT(S/C)
000040: 0D 0A 35 33 30 20 53 3D 53 2D 45 2B 48 0D 0A 35 ..530 S=S-E+H..5
000050: 33 31 20 47 4F 53 55 42 20 38 30 30 0D 0A 35 33 31 GOSUB 800..53
000060: 32 20 52 45 4D 20 2A 2A 2A 20 4C 45 54 27 53 20 2 REM *** LET'S
000070: 48 41 56 45 20 53 4F 4D 45 20 42 41 42 49 45 53 HAVE SOME BABIES
000080: 0D 0A 35 33 33 20 49 3D 49 4E 54 28 43 2A 28 32 ..533 I=INT(C*(2
000090: 30 2A 41 2B 53 29 2F 50 2F 31 30 30 2B 31 29 0D 0*A+S)/P/100+1).
0000A0: 0A 35 33 39 20 52 45 4D 20 2A 2A 2A 20 48 4F 57 .539 REM *** HOW
0000B0: 20 4D 41 4E 59 20 50 45 4F 50 4C 45 20 48 41 44 MANY PEOPLE HAD
0000C0: 20 46 55 4C 4C 20 54 55 4D 4D 49 45 53 3F 0D 0A FULL TUMMIES?..
0000D0: 35 34 30 20 43 3D 49 4E 54 28 51 2F 32 30 29 0D 540 C=INT(Q/20).
0000E0: 0A 35 34 31 20 52 45 4D 20 2A 2A 2A 20 48 4F 52 .541 REM *** HOR
0000F0: 52 4F 53 2C 20 41 20 31 35 25 20 43 48 41 4E 43 ROS, A 15% CHANC
000100: 45 20 4F 46 20 50 4C 41 47 55 45 0D 0A 35 34 32 E OF PLAGUE..542
000110: 20 51 3D 49 4E 54 28 31 30 2A 28 32 2A 52 4E 44 Q=INT(10*(2*RND
000120: 28 31 29 2D 2E 33 29 29 0D 0A 35 35 30 20 49 46 (1)-.3))..550 IF
000130: 20 50 3C 43 20 54 48 45 4E 20 32 31 30 0D 0A 35 P<C THEN 210..5
000140: 35 31 20 52 45 4D 20 2A 2A 2A 20 53 54 41 52 56 51 REM *** STARV
000150: 45 20 45 4E 4F 55 47 48 20 46 4F 52 20 49 4D 50 E ENOUGH FOR IMP
000160: 45 41 43 48 4D 45 4E 54 3F 0D 0A 35 35 32 20 44 EACHMENT?..552 D
000170: 3D 50 2D 43 3A 20 49 46 20 44 3E 2E 34 35 2A 50 =P-C: IF D>.45*P
000180: 20 54 48 45 4E 20 35 36 30 0D 0A 35 35 33 20 50 THEN 560..553 P
000190: 31 3D 28 28 5A 2D 31 29 2A 50 31 2B 44 2A 31 30 1=((Z-1)*P1+D*10
0001A0: 30 2F 50 29 2F 5A 0D 0A 35 35 35 20 50 3D 43 3A 0/P)/Z..555 P=C:
0001B0: 20 44 31 3D 44 31 2B 44 3A 20 47 4F 54 4F 20 32 D1=D1+D: GOTO 2
0001C0: 31 35 0D 0A 35 36 30 20 50 52 49 4E 54 3A 20 50 15..560 PRINT: P
0001D0: 52 49 4E 54 20 22 59 4F 55 20 53 54 41 52 56 45 RINT "YOU STARVE
0001E0: 44 22 3B 44 3B 22 50 45 4F 50 4C 45 20 49 4E 20 D";D;"PEOPLE IN
0001F0: 4F 4E 45 20 59 45 41 52 21 21 21 22 0D 0A 35 36 ONE YEAR!!!"..56
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 35 20 50 52 49 4E 54 20 22 44 55 45 20 54 4F 20 5 PRINT "DUE TO
000010: 54 48 49 53 20 45 58 54 52 45 4D 45 20 4D 49 53 THIS EXTREME MIS
000020: 4D 41 4E 41 47 45 4D 45 4E 54 20 59 4F 55 20 48 MANAGEMENT YOU H
000030: 41 56 45 20 4E 4F 54 20 4F 4E 4C 59 22 0D 0A 35 AVE NOT ONLY"..5
000040: 36 36 20 50 52 49 4E 54 20 22 42 45 45 4E 20 49 66 PRINT "BEEN I
000050: 4D 50 45 41 43 48 45 44 20 41 4E 44 20 54 48 52 MPEACHED AND THR
000060: 4F 57 4E 20 4F 55 54 20 4F 46 20 4F 46 46 49 43 OWN OUT OF OFFIC
000070: 45 20 42 55 54 20 59 4F 55 20 48 41 56 45 22 0D E BUT YOU HAVE".
000080: 0A 35 36 37 20 50 52 49 4E 54 20 22 41 4C 53 4F .567 PRINT "ALSO
000090: 20 42 45 45 4E 20 44 45 43 4C 41 52 45 44 20 4E BEEN DECLARED N
0000A0: 41 54 49 4F 4E 41 4C 20 46 49 4E 4B 21 21 21 21 ATIONAL FINK!!!!
0000B0: 22 3A 20 47 4F 54 4F 20 39 39 30 0D 0A 37 31 30 ": GOTO 990..710
0000C0: 20 50 52 49 4E 54 20 22 48 41 4D 55 52 41 42 49 PRINT "HAMURABI
0000D0: 3A 20 20 54 48 49 4E 4B 20 41 47 41 49 4E 2E 20 : THINK AGAIN.
0000E0: 20 59 4F 55 20 48 41 56 45 20 4F 4E 4C 59 22 0D YOU HAVE ONLY".
0000F0: 0A 37 31 31 20 50 52 49 4E 54 20 53 3B 22 42 55 .711 PRINT S;"BU
000100: 53 48 45 4C 53 20 4F 46 20 47 52 41 49 4E 2E 20 SHELS OF GRAIN.
000110: 20 4E 4F 57 20 54 48 45 4E 2C 22 0D 0A 37 31 32 NOW THEN,"..712
000120: 20 52 45 54 55 52 4E 0D 0A 37 32 30 20 50 52 49 RETURN..720 PRI
000130: 4E 54 20 22 48 41 4D 55 52 41 42 49 3A 20 20 54 NT "HAMURABI: T
000140: 48 49 4E 4B 20 41 47 41 49 4E 2E 20 20 59 4F 55 HINK AGAIN. YOU
000150: 20 4F 57 4E 20 4F 4E 4C 59 22 3B 41 3B 22 41 43 OWN ONLY";A;"AC
000160: 52 45 53 2E 20 20 4E 4F 57 20 54 48 45 4E 2C 22 RES. NOW THEN,"
000170: 0D 0A 37 33 30 20 52 45 54 55 52 4E 0D 0A 38 30 ..730 RETURN..80
000180: 30 20 43 3D 49 4E 54 28 52 4E 44 28 31 29 2A 35 0 C=INT(RND(1)*5
000190: 29 2B 31 0D 0A 38 30 31 20 52 45 54 55 52 4E 0D )+1..801 RETURN.
0001A0: 0A 38 35 30 20 50 52 49 4E 54 3A 20 50 52 49 4E .850 PRINT: PRIN
0001B0: 54 20 22 48 41 4D 55 52 41 42 49 3A 20 20 49 20 T "HAMURABI: I
0001C0: 43 41 4E 4E 4F 54 20 44 4F 20 57 48 41 54 20 59 CANNOT DO WHAT Y
0001D0: 4F 55 20 57 49 53 48 2E 22 0D 0A 38 35 35 20 50 OU WISH."..855 P
0001E0: 52 49 4E 54 20 22 47 45 54 20 59 4F 55 52 53 45 RINT "GET YOURSE
0001F0: 4C 46 20 41 4E 4F 54 48 45 52 20 53 54 45 57 41 LF ANOTHER STEWA
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 10 PRINT TAB(32)
000010: 3B 22 48 41 4E 47 4D 41 4E 22 0D 0A 32 30 20 50 ;"HANGMAN"..20 P
000020: 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 RINT TAB(15);"CR
000030: 45 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 EATIVE COMPUTING
000040: 20 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 MORRISTOWN, NE
000050: 57 20 4A 45 52 53 45 59 22 0D 0A 32 35 20 50 52 W JERSEY"..25 PR
000060: 49 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D INT:PRINT:PRINT.
000070: 0A 33 30 20 44 49 4D 20 50 24 28 31 32 2C 31 32 .30 DIM P$(12,12
000080: 29 2C 4C 24 28 32 30 29 2C 44 24 28 32 30 29 2C ),L$(20),D$(20),
000090: 4E 24 28 32 36 29 2C 55 28 35 30 29 0D 0A 34 30 N$(26),U(50)..40
0000A0: 20 43 3D 31 3A 20 4E 3D 35 30 0D 0A 35 30 20 46 C=1: N=50..50 F
0000B0: 4F 52 20 49 3D 31 20 54 4F 20 32 30 3A 20 44 24 OR I=1 TO 20: D$
0000C0: 28 49 29 3D 22 2D 22 3A 20 4E 45 58 54 20 49 3A (I)="-": NEXT I:
0000D0: 20 4D 3D 30 0D 0A 36 30 20 46 4F 52 20 49 3D 31 M=0..60 FOR I=1
0000E0: 20 54 4F 20 32 36 3A 20 4E 24 28 49 29 3D 22 22 TO 26: N$(I)=""
0000F0: 3A 20 4E 45 58 54 20 49 0D 0A 37 30 20 46 4F 52 : NEXT I..70 FOR
000100: 20 49 3D 31 20 54 4F 20 31 32 3A 20 46 4F 52 20 I=1 TO 12: FOR
000110: 4A 3D 31 20 54 4F 20 31 32 3A 20 50 24 28 49 2C J=1 TO 12: P$(I,
000120: 4A 29 3D 22 20 22 3A 20 4E 45 58 54 20 4A 3A 20 J)=" ": NEXT J:
000130: 4E 45 58 54 20 49 0D 0A 38 30 20 46 4F 52 20 49 NEXT I..80 FOR I
000140: 3D 31 20 54 4F 20 31 32 3A 20 50 24 28 49 2C 31 =1 TO 12: P$(I,1
000150: 29 3D 22 58 22 3A 20 4E 45 58 54 20 49 0D 0A 39 )="X": NEXT I..9
000160: 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 37 3A 20 0 FOR I=1 TO 7:
000170: 50 24 28 31 2C 49 29 3D 22 58 22 3A 20 4E 45 58 P$(1,I)="X": NEX
000180: 54 3A 20 50 24 28 32 2C 37 29 3D 22 58 22 0D 0A T: P$(2,7)="X"..
000190: 39 35 20 49 46 20 43 3C 4E 20 54 48 45 4E 20 31 95 IF C<N THEN 1
0001A0: 30 30 0D 0A 39 37 20 50 52 49 4E 54 20 22 59 4F 00..97 PRINT "YO
0001B0: 55 20 44 49 44 20 41 4C 4C 20 54 48 45 20 57 4F U DID ALL THE WO
0001C0: 52 44 53 21 21 22 3A 20 53 54 4F 50 0D 0A 31 30 RDS!!": STOP..10
0001D0: 30 20 51 3D 49 4E 54 28 4E 2A 52 4E 44 28 31 29 0 Q=INT(N*RND(1)
0001E0: 29 2B 31 0D 0A 31 31 30 20 49 46 20 55 28 51 29 )+1..110 IF U(Q)
0001F0: 3D 31 20 54 48 45 4E 20 31 30 30 0D 0A 31 31 35 =1 THEN 100..115
Size : 512 (Real : 512)
000000: 52 44 21 21 21 21 21 22 0D 0A 38 35 37 20 47 4F RD!!!!!"..857 GO
000010: 54 4F 20 39 39 30 0D 0A 38 36 30 20 50 52 49 4E TO 990..860 PRIN
000020: 54 20 22 49 4E 20 59 4F 55 52 20 31 30 2D 59 45 T "IN YOUR 10-YE
000030: 41 52 20 54 45 52 4D 20 4F 46 20 4F 46 46 49 43 AR TERM OF OFFIC
000040: 45 2C 22 3B 50 31 3B 22 50 45 52 43 45 4E 54 20 E,";P1;"PERCENT
000050: 4F 46 20 54 48 45 22 0D 0A 38 36 32 20 50 52 49 OF THE"..862 PRI
000060: 4E 54 20 22 50 4F 50 55 4C 41 54 49 4F 4E 20 53 NT "POPULATION S
000070: 54 41 52 56 45 44 20 50 45 52 20 59 45 41 52 20 TARVED PER YEAR
000080: 4F 4E 20 54 48 45 20 41 56 45 52 41 47 45 2C 20 ON THE AVERAGE,
000090: 49 2E 45 2E 20 41 20 54 4F 54 41 4C 20 4F 46 22 I.E. A TOTAL OF"
0000A0: 0D 0A 38 36 35 20 50 52 49 4E 54 20 44 31 3B 22 ..865 PRINT D1;"
0000B0: 50 45 4F 50 4C 45 20 44 49 45 44 21 21 22 3A 20 PEOPLE DIED!!":
0000C0: 4C 3D 41 2F 50 0D 0A 38 37 30 20 50 52 49 4E 54 L=A/P..870 PRINT
0000D0: 20 22 59 4F 55 20 53 54 41 52 54 45 44 20 57 49 "YOU STARTED WI
0000E0: 54 48 20 31 30 20 41 43 52 45 53 20 50 45 52 20 TH 10 ACRES PER
0000F0: 50 45 52 53 4F 4E 20 41 4E 44 20 45 4E 44 45 44 PERSON AND ENDED
000100: 20 57 49 54 48 22 0D 0A 38 37 35 20 50 52 49 4E WITH"..875 PRIN
000110: 54 20 4C 3B 22 41 43 52 45 53 20 50 45 52 20 50 T L;"ACRES PER P
000120: 45 52 53 4F 4E 2E 22 3A 20 50 52 49 4E 54 0D 0A ERSON.": PRINT..
000130: 38 38 30 20 49 46 20 50 31 3E 33 33 20 54 48 45 880 IF P1>33 THE
000140: 4E 20 35 36 35 0D 0A 38 38 35 20 49 46 20 4C 3C N 565..885 IF L<
000150: 37 20 54 48 45 4E 20 35 36 35 0D 0A 38 39 30 20 7 THEN 565..890
000160: 49 46 20 50 31 3E 31 30 20 54 48 45 4E 20 39 34 IF P1>10 THEN 94
000170: 30 0D 0A 38 39 32 20 49 46 20 4C 3C 39 20 54 48 0..892 IF L<9 TH
000180: 45 4E 20 39 34 30 0D 0A 38 39 35 20 49 46 20 50 EN 940..895 IF P
000190: 31 3E 33 20 54 48 45 4E 20 39 36 30 0D 0A 38 39 1>3 THEN 960..89
0001A0: 36 20 49 46 20 4C 3C 31 30 20 54 48 45 4E 20 39 6 IF L<10 THEN 9
0001B0: 36 30 0D 0A 39 30 30 20 50 52 49 4E 54 20 22 41 60..900 PRINT "A
0001C0: 20 46 41 4E 54 41 53 54 49 43 20 50 45 52 46 4F FANTASTIC PERFO
0001D0: 52 4D 41 4E 43 45 21 21 21 20 20 43 48 41 52 4C RMANCE!!! CHARL
0001E0: 45 4D 41 4E 47 45 2C 20 44 49 53 52 41 45 4C 49 EMANGE, DISRAELI
0001F0: 2C 20 41 4E 44 22 0D 0A 39 30 35 20 50 52 49 4E , AND"..905 PRIN
Size : 512 (Real : 512)
000000: 20 55 28 51 29 3D 31 3A 20 43 3D 43 2B 31 3A 20 U(Q)=1: C=C+1:
000010: 52 45 53 54 4F 52 45 3A 20 54 31 3D 30 0D 0A 31 RESTORE: T1=0..1
000020: 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 51 3A 50 FOR I=1 TO Q:
000030: 20 52 45 41 44 20 41 24 3A 20 4E 45 58 54 20 49 READ A$: NEXT I
000040: 0D 0A 31 36 30 20 4C 3D 4C 45 4E 28 41 24 29 3A ..160 L=LEN(A$):
000050: 20 46 4F 52 20 49 3D 31 20 54 4F 20 4C 45 4E 28 FOR I=1 TO LEN(
000060: 41 24 29 3A 20 4C 24 28 49 29 3D 4D 49 44 24 28 A$): L$(I)=MID$(
000070: 41 24 2C 49 2C 31 29 3A 20 4E 45 58 54 20 49 0D A$,I,1): NEXT I.
000080: 0A 31 37 30 20 50 52 49 4E 54 20 22 48 45 52 45 .170 PRINT "HERE
000090: 20 41 52 45 20 54 48 45 20 4C 45 54 54 45 52 53 ARE THE LETTERS
0000A0: 20 59 4F 55 20 55 53 45 44 3A 22 0D 0A 31 38 30 YOU USED:"..180
0000B0: 20 46 4F 52 20 49 3D 31 20 54 4F 20 32 36 3A 20 FOR I=1 TO 26:
0000C0: 50 52 49 4E 54 20 4E 24 28 49 29 3B 3A 20 49 46 PRINT N$(I);: IF
0000D0: 20 4E 24 28 49 2B 31 29 3D 22 22 20 54 48 45 4E N$(I+1)="" THEN
0000E0: 20 32 30 30 0D 0A 31 39 30 20 50 52 49 4E 54 20 200..190 PRINT
0000F0: 22 2C 22 3B 3A 20 4E 45 58 54 20 49 0D 0A 32 30 ",";: NEXT I..20
000100: 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 0 PRINT: PRINT:
000110: 46 4F 52 20 49 3D 31 20 54 4F 20 4C 3A 20 50 52 FOR I=1 TO L: PR
000120: 49 4E 54 20 44 24 28 49 29 3B 3A 20 4E 45 58 54 INT D$(I);: NEXT
000130: 20 49 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 I: PRINT: PRINT
000140: 0D 0A 32 31 30 20 49 4E 50 55 54 20 22 57 48 41 ..210 INPUT "WHA
000150: 54 20 49 53 20 59 4F 55 52 20 47 55 45 53 53 22 T IS YOUR GUESS"
000160: 3B 47 24 3A 20 52 3D 30 0D 0A 32 32 30 20 46 4F ;G$: R=0..220 FO
000170: 52 20 49 3D 31 20 54 4F 20 32 36 3A 20 49 46 20 R I=1 TO 26: IF
000180: 4E 24 28 49 29 3D 22 22 20 54 48 45 4E 20 32 35 N$(I)="" THEN 25
000190: 30 0D 0A 32 33 30 20 49 46 20 47 24 3D 4E 24 28 0..230 IF G$=N$(
0001A0: 49 29 20 54 48 45 4E 20 50 52 49 4E 54 20 22 59 I) THEN PRINT "Y
0001B0: 4F 55 20 47 55 45 53 53 45 44 20 54 48 41 54 20 OU GUESSED THAT
0001C0: 4C 45 54 54 45 52 20 42 45 46 4F 52 45 21 22 3A LETTER BEFORE!":
0001D0: 20 47 4F 54 4F 20 31 37 30 0D 0A 32 34 30 20 4E GOTO 170..240 N
0001E0: 45 58 54 20 49 3A 20 50 52 49 4E 54 20 22 50 52 EXT I: PRINT "PR
0001F0: 4F 47 52 41 4D 20 45 52 52 4F 52 2E 20 20 52 55 OGRAM ERROR. RU
Size : 512 (Real : 512)
000000: 54 20 22 4A 45 46 46 45 52 53 4F 4E 20 43 4F 4D T "JEFFERSON COM
000010: 42 49 4E 45 44 20 43 4F 55 4C 44 20 4E 4F 54 20 BINED COULD NOT
000020: 48 41 56 45 20 44 4F 4E 45 20 42 45 54 54 45 52 HAVE DONE BETTER
000030: 21 22 3A 47 4F 54 4F 20 39 39 30 0D 0A 39 34 30 !":GOTO 990..940
000040: 20 50 52 49 4E 54 20 22 59 4F 55 52 20 48 45 41 PRINT "YOUR HEA
000050: 56 59 2D 48 41 4E 44 45 44 20 50 45 52 46 4F 52 VY-HANDED PERFOR
000060: 4D 41 4E 43 45 20 53 4D 41 43 4B 53 20 4F 46 20 MANCE SMACKS OF
000070: 4E 45 52 4F 20 41 4E 44 20 49 56 41 4E 20 49 56 NERO AND IVAN IV
000080: 2E 22 0D 0A 39 34 35 20 50 52 49 4E 54 20 22 54 ."..945 PRINT "T
000090: 48 45 20 50 45 4F 50 4C 45 20 28 52 45 4D 49 41 HE PEOPLE (REMIA
0000A0: 4E 49 4E 47 29 20 46 49 4E 44 20 59 4F 55 20 41 NING) FIND YOU A
0000B0: 4E 20 55 4E 50 4C 45 41 53 41 4E 54 20 52 55 4C N UNPLEASANT RUL
0000C0: 45 52 2C 20 41 4E 44 2C 22 0D 0A 39 35 30 20 50 ER, AND,"..950 P
0000D0: 52 49 4E 54 20 22 46 52 41 4E 4B 4C 59 2C 20 48 RINT "FRANKLY, H
0000E0: 41 54 45 20 59 4F 55 52 20 47 55 54 53 21 21 22 ATE YOUR GUTS!!"
0000F0: 3A 47 4F 54 4F 20 39 39 30 0D 0A 39 36 30 20 50 :GOTO 990..960 P
000100: 52 49 4E 54 20 22 59 4F 55 52 20 50 45 52 46 4F RINT "YOUR PERFO
000110: 52 4D 41 4E 43 45 20 43 4F 55 4C 44 20 48 41 56 RMANCE COULD HAV
000120: 45 20 42 45 45 4E 20 53 4F 4D 45 57 48 41 54 20 E BEEN SOMEWHAT
000130: 42 45 54 54 45 52 2C 20 42 55 54 22 0D 0A 39 36 BETTER, BUT"..96
000140: 35 20 50 52 49 4E 54 20 22 52 45 41 4C 4C 59 20 5 PRINT "REALLY
000150: 57 41 53 4E 27 54 20 54 4F 4F 20 42 41 44 20 41 WASN'T TOO BAD A
000160: 54 20 41 4C 4C 2E 20 22 3B 49 4E 54 28 50 2A 2E T ALL. ";INT(P*.
000170: 38 2A 52 4E 44 28 31 29 29 3B 22 50 45 4F 50 4C 8*RND(1));"PEOPL
000180: 45 22 0D 0A 39 37 30 20 50 52 49 4E 54 20 22 57 E"..970 PRINT "W
000190: 4F 55 4C 44 20 44 45 41 52 4C 59 20 4C 49 4B 45 OULD DEARLY LIKE
0001A0: 20 54 4F 20 53 45 45 20 59 4F 55 20 41 53 53 41 TO SEE YOU ASSA
0001B0: 53 53 49 4E 41 54 45 44 20 42 55 54 20 57 45 20 SSINATED BUT WE
0001C0: 41 4C 4C 20 48 41 56 45 20 4F 55 52 22 0D 0A 39 ALL HAVE OUR"..9
0001D0: 37 35 20 50 52 49 4E 54 20 22 54 52 49 56 49 41 75 PRINT "TRIVIA
0001E0: 4C 20 50 52 4F 42 4C 45 4D 53 2E 22 0D 0A 39 39 L PROBLEMS."..99
0001F0: 30 20 50 52 49 4E 54 3A 20 46 4F 52 20 4E 3D 31 0 PRINT: FOR N=1
Size : 512 (Real : 512)
000000: 4E 20 41 47 41 49 4E 2E 22 3A 20 53 54 4F 50 0D N AGAIN.": STOP.
000010: 0A 32 35 30 20 4E 24 28 49 29 3D 47 24 3A 20 54 .250 N$(I)=G$: T
000020: 31 3D 54 31 2B 31 0D 0A 32 36 30 20 46 4F 52 20 1=T1+1..260 FOR
000030: 49 3D 31 20 54 4F 20 4C 3A 20 49 46 20 4C 24 28 I=1 TO L: IF L$(
000040: 49 29 3D 47 24 20 54 48 45 4E 20 32 38 30 0D 0A I)=G$ THEN 280..
000050: 32 37 30 20 4E 45 58 54 20 49 3A 20 49 46 20 52 270 NEXT I: IF R
000060: 3D 30 20 54 48 45 4E 20 32 39 30 0D 0A 32 37 35 =0 THEN 290..275
000070: 20 47 4F 54 4F 20 33 30 30 0D 0A 32 38 30 20 44 GOTO 300..280 D
000080: 24 28 49 29 3D 47 24 3A 20 52 3D 52 2B 31 3A 20 $(I)=G$: R=R+1:
000090: 47 4F 54 4F 20 32 37 30 0D 0A 32 39 30 20 4D 3D GOTO 270..290 M=
0000A0: 4D 2B 31 3A 20 47 4F 54 4F 20 34 30 30 0D 0A 33 M+1: GOTO 400..3
0000B0: 30 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 4C 3A 00 FOR I=1 TO L:
0000C0: 20 49 46 20 44 24 28 49 29 3D 22 2D 22 20 54 48 IF D$(I)="-" TH
0000D0: 45 4E 20 33 32 30 0D 0A 33 31 30 20 4E 45 58 54 EN 320..310 NEXT
0000E0: 20 49 3A 20 47 4F 54 4F 20 33 39 30 0D 0A 33 32 I: GOTO 390..32
0000F0: 30 20 50 52 49 4E 54 3A 20 46 4F 52 20 49 3D 31 0 PRINT: FOR I=1
000100: 20 54 4F 20 4C 3A 20 50 52 49 4E 54 20 44 24 28 TO L: PRINT D$(
000110: 49 29 3B 3A 20 4E 45 58 54 20 49 3A 20 50 52 49 I);: NEXT I: PRI
000120: 4E 54 3A 20 50 52 49 4E 54 0D 0A 33 33 30 20 49 NT: PRINT..330 I
000130: 4E 50 55 54 20 22 57 48 41 54 20 49 53 20 59 4F NPUT "WHAT IS YO
000140: 55 52 20 47 55 45 53 53 20 46 4F 52 20 54 48 45 UR GUESS FOR THE
000150: 20 57 4F 52 44 22 3B 42 24 0D 0A 33 34 30 20 49 WORD";B$..340 I
000160: 46 20 41 24 3D 42 24 20 54 48 45 4E 20 33 36 30 F A$=B$ THEN 360
000170: 0D 0A 33 35 30 20 50 52 49 4E 54 20 22 57 52 4F ..350 PRINT "WRO
000180: 4E 47 2E 20 20 54 52 59 20 41 4E 4F 54 48 45 52 NG. TRY ANOTHER
000190: 20 4C 45 54 54 45 52 2E 22 3A 20 50 52 49 4E 54 LETTER.": PRINT
0001A0: 3A 20 47 4F 54 4F 20 31 37 30 0D 0A 33 36 30 20 : GOTO 170..360
0001B0: 50 52 49 4E 54 20 22 52 49 47 48 54 21 21 20 20 PRINT "RIGHT!!
0001C0: 49 54 20 54 4F 4F 4B 20 59 4F 55 22 3B 54 31 3B IT TOOK YOU";T1;
0001D0: 22 47 55 45 53 53 45 53 21 22 0D 0A 33 37 30 20 "GUESSES!"..370
0001E0: 49 4E 50 55 54 20 22 57 41 4E 54 20 41 4E 4F 54 INPUT "WANT ANOT
0001F0: 48 45 52 20 57 4F 52 44 22 3B 57 24 3A 20 49 46 HER WORD";W$: IF
Size : 512 (Real : 512)
000000: 4C 59 22 2C 22 4C 4F 55 44 53 50 45 41 4B 45 52 LY","LOUDSPEAKER
000010: 22 2C 22 50 48 59 54 4F 54 4F 58 49 43 22 0D 0A ","PHYTOTOXIC"..
000020: 37 38 30 20 44 41 54 41 20 22 4D 41 54 52 49 4D 780 DATA "MATRIM
000030: 4F 4E 49 41 4C 22 2C 22 50 41 52 41 53 59 4D 50 ONIAL","PARASYMP
000040: 41 54 48 4F 4D 49 4D 45 54 49 43 22 2C 22 54 48 ATHOMIMETIC","TH
000050: 49 47 4D 4F 54 52 4F 50 49 53 4D 22 0D 0A 39 39 IGMOTROPISM"..99
000060: 30 20 50 52 49 4E 54 20 22 42 59 45 20 4E 4F 57 0 PRINT "BYE NOW
000070: 22 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 E5 E5 "..999 END......
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 57 24 3D 22 59 45 53 22 20 54 48 45 4E 20 35 W$="YES" THEN 5
000010: 30 0D 0A 33 38 30 20 50 52 49 4E 54 3A 20 50 52 0..380 PRINT: PR
000020: 49 4E 54 20 22 49 54 27 53 20 42 45 45 4E 20 46 INT "IT'S BEEN F
000030: 55 4E 21 20 20 42 59 45 20 46 4F 52 20 4E 4F 57 UN! BYE FOR NOW
000040: 2E 22 3A 20 47 4F 54 4F 20 39 39 39 0D 0A 33 39 .": GOTO 999..39
000050: 30 20 50 52 49 4E 54 20 22 59 4F 55 20 46 4F 55 0 PRINT "YOU FOU
000060: 4E 44 20 54 48 45 20 57 4F 52 44 21 22 3A 20 47 ND THE WORD!": G
000070: 4F 54 4F 20 33 37 30 0D 0A 34 30 30 20 50 52 49 OTO 370..400 PRI
000080: 4E 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 NT: PRINT: PRINT
000090: 22 53 4F 52 52 59 2C 20 54 48 41 54 20 4C 45 54 "SORRY, THAT LET
0000A0: 54 45 52 20 49 53 4E 27 54 20 49 4E 20 54 48 45 TER ISN'T IN THE
0000B0: 20 57 4F 52 44 2E 22 0D 0A 34 31 30 20 4F 4E 20 WORD."..410 ON
0000C0: 4D 20 47 4F 54 4F 20 34 31 35 2C 34 32 30 2C 34 M GOTO 415,420,4
0000D0: 32 35 2C 34 33 30 2C 34 33 35 2C 34 34 30 2C 34 25,430,435,440,4
0000E0: 34 35 2C 34 35 30 2C 34 35 35 2C 34 36 30 0D 0A 45,450,455,460..
0000F0: 34 31 35 20 50 52 49 4E 54 20 22 46 49 52 53 54 415 PRINT "FIRST
000100: 2C 20 57 45 20 44 52 41 57 20 41 20 48 45 41 44 , WE DRAW A HEAD
000110: 22 3A 20 47 4F 54 4F 20 34 37 30 0D 0A 34 32 30 ": GOTO 470..420
000120: 20 50 52 49 4E 54 20 22 4E 4F 57 20 57 45 20 44 PRINT "NOW WE D
000130: 52 41 57 20 41 20 42 4F 44 59 2E 22 3A 20 47 4F RAW A BODY.": GO
000140: 54 4F 20 34 37 30 0D 0A 34 32 35 20 50 52 49 4E TO 470..425 PRIN
000150: 54 20 22 4E 45 58 54 20 57 45 20 44 52 41 57 20 T "NEXT WE DRAW
000160: 41 4E 20 41 52 4D 2E 22 3A 20 47 4F 54 4F 20 34 AN ARM.": GOTO 4
000170: 37 30 0D 0A 34 33 30 20 50 52 49 4E 54 20 22 54 70..430 PRINT "T
000180: 48 49 53 20 54 49 4D 45 20 49 54 27 53 20 54 48 HIS TIME IT'S TH
000190: 45 20 4F 54 48 45 52 20 41 52 4D 2E 22 3A 20 47 E OTHER ARM.": G
0001A0: 4F 54 4F 20 34 37 30 0D 0A 34 33 35 20 50 52 49 OTO 470..435 PRI
0001B0: 4E 54 20 22 4E 4F 57 2C 20 4C 45 54 27 53 20 44 NT "NOW, LET'S D
0001C0: 52 41 57 20 54 48 45 20 52 49 47 48 54 20 4C 45 RAW THE RIGHT LE
0001D0: 47 2E 22 3A 20 47 4F 54 4F 20 34 37 30 0D 0A 34 G.": GOTO 470..4
0001E0: 34 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 54 40 PRINT "THIS T
0001F0: 49 4D 45 20 57 45 20 44 52 41 57 20 54 48 45 20 IME WE DRAW THE
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
000010: 22 48 45 4C 4C 4F 22 0D 0A 34 20 50 52 49 4E 54 "HELLO"..4 PRINT
000020: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
000030: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
000040: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
000050: 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A 20 RSEY"..6 PRINT:
000060: 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D 0A 31 30 PRINT: PRINT..10
000070: 20 50 52 49 4E 54 20 22 48 45 4C 4C 4F 2E 20 20 PRINT "HELLO.
000080: 4D 59 20 4E 41 4D 45 20 49 53 20 43 52 45 41 54 MY NAME IS CREAT
000090: 49 56 45 20 43 4F 4D 50 55 54 45 52 2E 22 0D 0A IVE COMPUTER."..
0000A0: 32 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 PRINT: PRINT:
0000B0: 20 49 4E 50 55 54 20 22 57 48 41 54 27 53 20 59 INPUT "WHAT'S Y
0000C0: 4F 55 52 20 4E 41 4D 45 22 3B 4E 24 3A 20 50 52 OUR NAME";N$: PR
0000D0: 49 4E 54 0D 0A 33 30 20 50 52 49 4E 54 20 22 48 INT..30 PRINT "H
0000E0: 49 20 54 48 45 52 45 2C 20 22 3B 4E 24 3B 22 2C I THERE, ";N$;",
0000F0: 20 41 52 45 20 59 4F 55 20 45 4E 4A 4F 59 49 4E ARE YOU ENJOYIN
000100: 47 20 59 4F 55 52 53 45 4C 46 20 48 45 52 45 22 G YOURSELF HERE"
000110: 3B 0D 0A 34 30 20 49 4E 50 55 54 20 42 24 3A 20 ;..40 INPUT B$:
000120: 50 52 49 4E 54 0D 0A 35 30 20 49 46 20 42 24 3D PRINT..50 IF B$=
000130: 22 59 45 53 22 20 54 48 45 4E 20 37 30 0D 0A 35 "YES" THEN 70..5
000140: 35 20 49 46 20 42 24 3D 22 4E 4F 22 20 54 48 45 5 IF B$="NO" THE
000150: 4E 20 38 30 0D 0A 36 30 20 50 52 49 4E 54 20 4E N 80..60 PRINT N
000160: 24 3B 22 2C 20 49 20 44 4F 4E 27 54 20 55 4E 44 $;", I DON'T UND
000170: 45 52 53 54 41 4E 44 20 59 4F 55 52 20 41 4E 53 ERSTAND YOUR ANS
000180: 57 45 52 20 4F 46 20 27 22 3B 42 24 3B 22 27 2E WER OF '";B$;"'.
000190: 22 0D 0A 36 35 20 50 52 49 4E 54 20 22 50 4C 45 "..65 PRINT "PLE
0001A0: 41 53 45 20 41 4E 53 57 45 52 20 27 59 45 53 27 ASE ANSWER 'YES'
0001B0: 20 4F 52 20 27 4E 4F 27 2E 20 20 44 4F 20 59 4F OR 'NO'. DO YO
0001C0: 55 20 4C 49 4B 45 20 49 54 20 48 45 52 45 22 3B U LIKE IT HERE";
0001D0: 3A 20 47 4F 54 4F 20 34 30 0D 0A 37 30 20 50 52 : GOTO 40..70 PR
0001E0: 49 4E 54 20 22 49 27 4D 20 47 4C 41 44 20 54 4F INT "I'M GLAD TO
0001F0: 20 48 45 41 52 20 54 48 41 54 2C 20 22 3B 4E 24 HEAR THAT, ";N$
Size : 512 (Real : 512)
000000: 4C 45 46 54 20 4C 45 47 2E 22 3A 20 47 4F 54 4F LEFT LEG.": GOTO
000010: 20 34 37 30 0D 0A 34 34 35 20 50 52 49 4E 54 20 470..445 PRINT
000020: 22 4E 4F 57 20 57 45 20 50 55 54 20 55 50 20 41 "NOW WE PUT UP A
000030: 20 48 41 4E 44 2E 22 3A 20 47 4F 54 4F 20 34 37 HAND.": GOTO 47
000040: 30 0D 0A 34 35 30 20 50 52 49 4E 54 20 22 4E 45 0..450 PRINT "NE
000050: 58 54 20 54 48 45 20 4F 54 48 45 52 20 48 41 4E XT THE OTHER HAN
000060: 44 2E 22 3A 20 47 4F 54 4F 20 34 37 30 0D 0A 34 D.": GOTO 470..4
000070: 35 35 20 50 52 49 4E 54 20 22 4E 4F 57 20 57 45 55 PRINT "NOW WE
000080: 20 44 52 41 57 20 4F 4E 45 20 46 4F 4F 54 22 3A DRAW ONE FOOT":
000090: 20 47 4F 54 4F 20 34 37 30 0D 0A 34 36 30 20 50 GOTO 470..460 P
0000A0: 52 49 4E 54 20 22 48 45 52 45 27 53 20 54 48 45 RINT "HERE'S THE
0000B0: 20 4F 54 48 45 52 20 46 4F 4F 54 20 2D 2D 20 59 OTHER FOOT -- Y
0000C0: 4F 55 27 52 45 20 48 55 4E 47 21 21 22 0D 0A 34 OU'RE HUNG!!"..4
0000D0: 37 30 20 4F 4E 20 4D 20 47 4F 54 4F 20 34 38 30 70 ON M GOTO 480
0000E0: 2C 34 39 30 2C 35 30 30 2C 35 31 30 2C 35 32 30 ,490,500,510,520
0000F0: 2C 35 33 30 2C 35 34 30 2C 35 35 30 2C 35 36 30 ,530,540,550,560
000100: 2C 35 37 30 0D 0A 34 38 30 20 50 24 28 33 2C 36 ,570..480 P$(3,6
000110: 29 3D 22 2D 22 3A 20 50 24 28 33 2C 37 29 3D 22 )="-": P$(3,7)="
000120: 2D 22 3A 20 50 24 28 33 2C 38 29 3D 22 2D 22 3A -": P$(3,8)="-":
000130: 20 50 24 28 34 2C 35 29 3D 22 28 22 3A 20 50 24 P$(4,5)="(": P$
000140: 28 34 2C 36 29 3D 22 2E 22 0D 0A 34 38 31 20 50 (4,6)="."..481 P
000150: 24 28 34 2C 38 29 3D 22 2E 22 3A 50 24 28 34 2C $(4,8)=".":P$(4,
000160: 39 29 3D 22 29 22 3A 50 24 28 35 2C 36 29 3D 22 9)=")":P$(5,6)="
000170: 2D 22 3A 50 24 28 35 2C 37 29 3D 22 2D 22 3A 50 -":P$(5,7)="-":P
000180: 24 28 35 2C 38 29 3D 22 2D 22 3A 47 4F 54 4F 20 $(5,8)="-":GOTO
000190: 35 38 30 0D 0A 34 39 30 20 46 4F 52 20 49 3D 36 580..490 FOR I=6
0001A0: 20 54 4F 20 39 3A 20 50 24 28 49 2C 37 29 3D 22 TO 9: P$(I,7)="
0001B0: 58 22 3A 20 4E 45 58 54 20 49 3A 20 47 4F 54 4F X": NEXT I: GOTO
0001C0: 20 35 38 30 0D 0A 35 30 30 20 46 4F 52 20 49 3D 580..500 FOR I=
0001D0: 34 20 54 4F 20 37 3A 20 50 24 28 49 2C 49 2D 31 4 TO 7: P$(I,I-1
0001E0: 29 3D 22 5C 22 3A 20 4E 45 58 54 20 49 3A 20 47 )="\": NEXT I: G
0001F0: 4F 54 4F 20 35 38 30 0D 0A 35 31 30 20 50 24 28 OTO 580..510 P$(
Size : 512 (Real : 512)
000000: 3B 22 2E 22 3A 20 50 52 49 4E 54 0D 0A 37 35 20 ;".": PRINT..75
000010: 47 4F 54 4F 20 31 30 30 0D 0A 38 30 20 50 52 49 GOTO 100..80 PRI
000020: 4E 54 20 22 4F 48 2C 20 49 27 4D 20 53 4F 52 52 NT "OH, I'M SORR
000030: 59 20 54 4F 20 48 45 41 52 20 54 48 41 54 2C 20 Y TO HEAR THAT,
000040: 22 3B 4E 24 3B 22 2E 20 4D 41 59 42 45 20 57 45 ";N$;". MAYBE WE
000050: 20 43 41 4E 22 0D 0A 38 35 20 50 52 49 4E 54 20 CAN"..85 PRINT
000060: 22 42 52 49 47 48 54 45 4E 20 55 50 20 59 4F 55 "BRIGHTEN UP YOU
000070: 52 20 56 49 53 49 54 20 41 20 42 49 54 2E 22 0D R VISIT A BIT.".
000080: 0A 31 30 30 20 50 52 49 4E 54 0D 0A 31 30 35 20 .100 PRINT..105
000090: 50 52 49 4E 54 20 22 53 41 59 2C 20 22 3B 4E 24 PRINT "SAY, ";N$
0000A0: 3B 22 2C 20 49 20 43 41 4E 20 53 4F 4C 56 45 20 ;", I CAN SOLVE
0000B0: 41 4C 4C 20 4B 49 4E 44 53 20 4F 46 20 50 52 4F ALL KINDS OF PRO
0000C0: 42 4C 45 4D 53 20 45 58 43 45 50 54 22 0D 0A 31 BLEMS EXCEPT"..1
0000D0: 31 30 20 50 52 49 4E 54 20 22 54 48 4F 53 45 20 10 PRINT "THOSE
0000E0: 44 45 41 4C 49 4E 47 20 57 49 54 48 20 47 52 45 DEALING WITH GRE
0000F0: 45 43 45 2E 20 20 57 48 41 54 20 4B 49 4E 44 20 ECE. WHAT KIND
000100: 4F 46 20 50 52 4F 42 4C 45 4D 53 20 44 4F 22 0D OF PROBLEMS DO".
000110: 0A 31 32 30 20 50 52 49 4E 54 20 22 59 4F 55 20 .120 PRINT "YOU
000120: 48 41 56 45 20 28 41 4E 53 57 45 52 20 53 45 58 HAVE (ANSWER SEX
000130: 2C 20 48 45 41 4C 54 48 2C 20 4D 4F 4E 45 59 2C , HEALTH, MONEY,
000140: 20 4F 52 20 4A 4F 42 29 22 3B 0D 0A 31 32 35 20 OR JOB)";..125
000150: 49 4E 50 55 54 20 43 24 0D 0A 31 32 36 20 50 52 INPUT C$..126 PR
000160: 49 4E 54 0D 0A 31 33 30 20 49 46 20 43 24 3D 22 INT..130 IF C$="
000170: 53 45 58 22 20 54 48 45 4E 20 32 30 30 0D 0A 31 SEX" THEN 200..1
000180: 33 32 20 49 46 20 43 24 3D 22 48 45 41 4C 54 48 32 IF C$="HEALTH
000190: 22 20 54 48 45 4E 20 31 38 30 0D 0A 31 33 34 20 " THEN 180..134
0001A0: 49 46 20 43 24 3D 22 4D 4F 4E 45 59 22 20 54 48 IF C$="MONEY" TH
0001B0: 45 4E 20 31 36 30 0D 0A 31 33 36 20 49 46 20 43 EN 160..136 IF C
0001C0: 24 3D 22 4A 4F 42 22 20 54 48 45 4E 20 31 34 35 $="JOB" THEN 145
0001D0: 0D 0A 31 33 38 20 50 52 49 4E 54 20 22 4F 48 2C ..138 PRINT "OH,
0001E0: 20 22 3B 4E 24 3B 22 2C 20 59 4F 55 52 20 41 4E ";N$;", YOUR AN
0001F0: 53 57 45 52 20 4F 46 20 22 3B 43 24 3B 22 20 49 SWER OF ";C$;" I
Size : 512 (Real : 512)
000000: 34 2C 31 31 29 3D 22 2F 22 3A 20 50 24 28 35 2C 4,11)="/": P$(5,
000010: 31 30 29 3D 22 2F 22 3A 20 50 24 28 36 2C 39 29 10)="/": P$(6,9)
000020: 3D 22 2F 22 3A 20 50 24 28 37 2C 38 29 3D 22 2F ="/": P$(7,8)="/
000030: 22 3A 20 47 4F 54 4F 20 35 38 30 0D 0A 35 32 30 ": GOTO 580..520
000040: 20 50 24 28 31 30 2C 36 29 3D 22 2F 22 3A 20 50 P$(10,6)="/": P
000050: 24 28 31 31 2C 35 29 3D 22 2F 22 3A 20 47 4F 54 $(11,5)="/": GOT
000060: 4F 20 35 38 30 0D 0A 35 33 30 20 50 24 28 31 30 O 580..530 P$(10
000070: 2C 38 29 3D 22 5C 22 3A 20 50 24 28 31 31 2C 39 ,8)="\": P$(11,9
000080: 29 3D 22 5C 22 3A 20 47 4F 54 4F 20 35 38 30 0D )="\": GOTO 580.
000090: 0A 35 34 30 20 50 24 28 33 2C 31 31 29 3D 22 5C .540 P$(3,11)="\
0000A0: 22 3A 20 47 4F 54 4F 20 35 38 30 0D 0A 35 35 30 ": GOTO 580..550
0000B0: 20 50 24 28 33 2C 33 29 3D 22 2F 22 3A 20 47 4F P$(3,3)="/": GO
0000C0: 54 4F 20 35 38 30 0D 0A 35 36 30 20 50 24 28 31 TO 580..560 P$(1
0000D0: 32 2C 31 30 29 3D 22 5C 22 3A 20 50 24 28 31 32 2,10)="\": P$(12
0000E0: 2C 31 31 29 3D 22 2D 22 3A 20 47 4F 54 4F 20 35 ,11)="-": GOTO 5
0000F0: 38 30 0D 0A 35 37 30 20 50 24 28 31 32 2C 33 29 80..570 P$(12,3)
000100: 3D 22 2D 22 3A 20 50 24 28 31 32 2C 34 29 3D 22 ="-": P$(12,4)="
000110: 2F 22 0D 0A 35 38 30 20 46 4F 52 20 49 3D 31 20 /"..580 FOR I=1
000120: 54 4F 20 31 32 3A 20 46 4F 52 20 4A 3D 31 20 54 TO 12: FOR J=1 T
000130: 4F 20 31 32 3A 20 50 52 49 4E 54 20 50 24 28 49 O 12: PRINT P$(I
000140: 2C 4A 29 3B 3A 20 4E 45 58 54 20 4A 0D 0A 35 39 ,J);: NEXT J..59
000150: 30 20 50 52 49 4E 54 3A 20 4E 45 58 54 20 49 3A 0 PRINT: NEXT I:
000160: 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 3A 20 49 PRINT: PRINT: I
000170: 46 20 4D 3C 3E 31 30 20 54 48 45 4E 20 31 37 30 F M<>10 THEN 170
000180: 0D 0A 36 30 30 20 50 52 49 4E 54 20 22 53 4F 52 ..600 PRINT "SOR
000190: 52 59 2C 20 59 4F 55 20 4C 4F 53 45 2E 20 20 54 RY, YOU LOSE. T
0001A0: 48 45 20 57 4F 52 44 20 57 41 53 20 22 3B 41 24 HE WORD WAS ";A$
0001B0: 0D 0A 36 31 30 20 50 52 49 4E 54 20 22 59 4F 55 ..610 PRINT "YOU
0001C0: 20 4D 49 53 53 45 44 20 54 48 41 54 20 4F 4E 45 MISSED THAT ONE
0001D0: 2E 20 20 44 4F 20 59 4F 55 20 22 3B 3A 20 47 4F . DO YOU ";: GO
0001E0: 54 4F 20 33 37 30 0D 0A 36 32 30 20 49 4E 50 55 TO 370..620 INPU
0001F0: 54 20 22 54 59 50 45 20 59 45 53 20 4F 52 20 4E T "TYPE YES OR N
Size : 512 (Real : 512)
000000: 53 20 47 52 45 45 4B 20 54 4F 20 4D 45 2E 22 0D S GREEK TO ME.".
000010: 0A 31 34 30 20 47 4F 54 4F 20 32 35 30 0D 0A 31 .140 GOTO 250..1
000020: 34 35 20 50 52 49 4E 54 20 22 49 20 43 41 4E 20 45 PRINT "I CAN
000030: 53 59 4D 50 41 54 48 49 5A 45 20 57 49 54 48 20 SYMPATHIZE WITH
000040: 59 4F 55 20 22 3B 4E 24 3B 22 2E 20 20 49 20 48 YOU ";N$;". I H
000050: 41 56 45 20 54 4F 20 57 4F 52 4B 22 0D 0A 31 34 AVE TO WORK"..14
000060: 38 20 50 52 49 4E 54 20 22 56 45 52 59 20 4C 4F 8 PRINT "VERY LO
000070: 4E 47 20 48 4F 55 52 53 20 46 4F 52 20 4E 4F 20 NG HOURS FOR NO
000080: 50 41 59 20 2D 2D 20 41 4E 44 20 53 4F 4D 45 20 PAY -- AND SOME
000090: 4F 46 20 4D 59 20 42 4F 53 53 45 53 22 0D 0A 31 OF MY BOSSES"..1
0000A0: 35 30 20 50 52 49 4E 54 20 22 52 45 41 4C 4C 59 50 PRINT "REALLY
0000B0: 20 42 45 41 54 20 4F 4E 20 4D 59 20 4B 45 59 42 BEAT ON MY KEYB
0000C0: 4F 41 52 44 2E 20 20 4D 59 20 41 44 56 49 43 45 OARD. MY ADVICE
0000D0: 20 54 4F 20 59 4F 55 2C 20 22 3B 4E 24 3B 22 2C TO YOU, ";N$;",
0000E0: 22 0D 0A 31 35 33 20 50 52 49 4E 54 20 22 49 53 "..153 PRINT "IS
0000F0: 20 54 4F 20 4F 50 45 4E 20 41 20 52 45 54 41 49 TO OPEN A RETAI
000100: 4C 20 43 4F 4D 50 55 54 45 52 20 53 54 4F 52 45 L COMPUTER STORE
000110: 2E 20 20 49 54 27 53 20 47 52 45 41 54 20 46 55 . IT'S GREAT FU
000120: 4E 2E 22 0D 0A 31 35 35 20 47 4F 54 4F 20 32 35 N."..155 GOTO 25
000130: 30 0D 0A 31 36 30 20 50 52 49 4E 54 20 22 53 4F 0..160 PRINT "SO
000140: 52 52 59 2C 20 22 3B 4E 24 3B 22 2C 20 49 27 4D RRY, ";N$;", I'M
000150: 20 42 52 4F 4B 45 20 54 4F 4F 2E 20 20 57 48 59 BROKE TOO. WHY
000160: 20 44 4F 4E 27 54 20 59 4F 55 20 53 45 4C 4C 22 DON'T YOU SELL"
000170: 0D 0A 31 36 32 20 50 52 49 4E 54 20 22 45 4E 43 ..162 PRINT "ENC
000180: 59 43 4C 4F 50 45 41 44 49 41 53 20 4F 52 20 4D YCLOPEADIAS OR M
000190: 41 52 52 59 20 53 4F 4D 45 4F 4E 45 20 52 49 43 ARRY SOMEONE RIC
0001A0: 48 20 4F 52 20 53 54 4F 50 20 45 41 54 49 4E 47 H OR STOP EATING
0001B0: 22 0D 0A 31 36 34 20 50 52 49 4E 54 20 22 53 4F "..164 PRINT "SO
0001C0: 20 59 4F 55 20 57 4F 4E 27 54 20 4E 45 45 44 20 YOU WON'T NEED
0001D0: 53 4F 20 4D 55 43 48 20 4D 4F 4E 45 59 3F 22 0D SO MUCH MONEY?".
0001E0: 0A 31 37 30 20 47 4F 54 4F 20 32 35 30 0D 0A 31 .170 GOTO 250..1
0001F0: 38 30 20 50 52 49 4E 54 20 22 4D 59 20 41 44 56 80 PRINT "MY ADV
Size : 512 (Real : 512)
000000: 4F 22 3B 59 24 3A 20 49 46 20 4C 45 46 54 24 28 O";Y$: IF LEFT$(
000010: 59 24 2C 31 29 3D 22 59 22 20 54 48 45 4E 20 35 Y$,1)="Y" THEN 5
000020: 30 0D 0A 37 30 30 20 44 41 54 41 20 22 47 55 4D 0..700 DATA "GUM
000030: 22 2C 22 53 49 4E 22 2C 22 46 4F 52 22 2C 22 43 ","SIN","FOR","C
000040: 52 59 22 2C 22 4C 55 47 22 2C 22 42 59 45 22 2C RY","LUG","BYE",
000050: 22 46 4C 59 22 0D 0A 37 31 30 20 44 41 54 41 20 "FLY"..710 DATA
000060: 22 55 47 4C 59 22 2C 22 45 41 43 48 22 2C 22 46 "UGLY","EACH","F
000070: 52 4F 4D 22 2C 22 57 4F 52 4B 22 2C 22 54 41 4C ROM","WORK","TAL
000080: 4B 22 2C 22 57 49 54 48 22 2C 22 53 45 4C 46 22 K","WITH","SELF"
000090: 0D 0A 37 32 30 20 44 41 54 41 20 22 50 49 5A 5A ..720 DATA "PIZZ
0000A0: 41 22 2C 22 54 48 49 4E 47 22 2C 22 46 45 49 47 A","THING","FEIG
0000B0: 4E 22 2C 22 46 49 45 4E 44 22 2C 22 45 4C 42 4F N","FIEND","ELBO
0000C0: 57 22 2C 22 46 41 55 4C 54 22 2C 22 44 49 52 54 W","FAULT","DIRT
0000D0: 59 22 0D 0A 37 33 30 20 44 41 54 41 20 22 42 55 Y"..730 DATA "BU
0000E0: 44 47 45 54 22 2C 22 53 50 49 52 49 54 22 2C 22 DGET","SPIRIT","
0000F0: 51 55 41 49 4E 54 22 2C 22 4D 41 49 44 45 4E 22 QUAINT","MAIDEN"
000100: 2C 22 45 53 43 4F 52 54 22 2C 22 50 49 43 4B 41 ,"ESCORT","PICKA
000110: 58 22 0D 0A 37 34 30 20 44 41 54 41 20 22 45 58 X"..740 DATA "EX
000120: 41 4D 50 4C 45 22 2C 22 54 45 4E 53 49 4F 4E 22 AMPLE","TENSION"
000130: 2C 22 51 55 49 4E 49 4E 45 22 2C 22 4B 49 44 4E ,"QUININE","KIDN
000140: 45 59 22 2C 22 52 45 50 4C 49 43 41 22 2C 22 53 EY","REPLICA","S
000150: 4C 45 45 50 45 52 22 0D 0A 37 35 30 20 44 41 54 LEEPER"..750 DAT
000160: 41 20 22 54 52 49 41 4E 47 4C 45 22 2C 22 4B 41 A "TRIANGLE","KA
000170: 4E 47 41 52 4F 4F 22 2C 22 4D 41 48 4F 47 41 4E NGAROO","MAHOGAN
000180: 59 22 2C 22 53 45 52 47 45 41 4E 54 22 2C 22 53 Y","SERGEANT","S
000190: 45 51 55 45 4E 43 45 22 0D 0A 37 36 30 20 44 41 EQUENCE"..760 DA
0001A0: 54 41 20 22 4D 4F 55 53 54 41 43 48 45 22 2C 22 TA "MOUSTACHE","
0001B0: 44 41 4E 47 45 52 4F 55 53 22 2C 22 53 43 49 45 DANGEROUS","SCIE
0001C0: 4E 54 49 53 54 22 2C 22 44 49 46 46 45 52 45 4E NTIST","DIFFEREN
0001D0: 54 22 2C 22 51 55 49 45 53 43 45 4E 54 22 0D 0A T","QUIESCENT"..
0001E0: 37 37 30 20 44 41 54 41 20 22 4D 41 47 49 53 54 770 DATA "MAGIST
0001F0: 52 41 54 45 22 2C 22 45 52 52 4F 4E 45 4F 55 53 RATE","ERRONEOUS
Size : 512 (Real : 512)
000000: 49 43 45 20 54 4F 20 59 4F 55 20 22 3B 4E 24 3B ICE TO YOU ";N$;
000010: 22 20 49 53 3A 22 0D 0A 31 38 35 20 50 52 49 4E " IS:"..185 PRIN
000020: 54 20 22 20 20 20 20 20 31 2E 20 20 54 41 4B 45 T " 1. TAKE
000030: 20 54 57 4F 20 41 53 50 52 49 4E 22 0D 0A 31 38 TWO ASPRIN"..18
000040: 38 20 50 52 49 4E 54 20 22 20 20 20 20 20 32 2E 8 PRINT " 2.
000050: 20 20 44 52 49 4E 4B 20 50 4C 45 4E 54 59 20 4F DRINK PLENTY O
000060: 46 20 46 4C 55 49 44 53 20 28 4F 52 41 4E 47 45 F FLUIDS (ORANGE
000070: 20 4A 55 49 43 45 2C 20 4E 4F 54 20 42 45 45 52 JUICE, NOT BEER
000080: 21 29 22 0D 0A 31 39 30 20 50 52 49 4E 54 20 22 !)"..190 PRINT "
000090: 20 20 20 20 20 33 2E 20 20 47 4F 20 54 4F 20 42 3. GO TO B
0000A0: 45 44 20 28 41 4C 4F 4E 45 29 22 0D 0A 31 39 35 ED (ALONE)"..195
0000B0: 20 47 4F 54 4F 20 32 35 30 0D 0A 32 30 30 20 49 GOTO 250..200 I
0000C0: 4E 50 55 54 20 22 49 53 20 59 4F 55 52 20 50 52 NPUT "IS YOUR PR
0000D0: 4F 42 4C 45 4D 20 54 4F 4F 20 4D 55 43 48 20 4F OBLEM TOO MUCH O
0000E0: 52 20 54 4F 4F 20 4C 49 54 54 4C 45 22 3B 44 24 R TOO LITTLE";D$
0000F0: 3A 20 50 52 49 4E 54 0D 0A 32 31 30 20 49 46 20 : PRINT..210 IF
000100: 44 24 3D 22 54 4F 4F 20 4D 55 43 48 22 20 54 48 D$="TOO MUCH" TH
000110: 45 4E 20 32 32 30 0D 0A 32 31 32 20 49 46 20 44 EN 220..212 IF D
000120: 24 3D 22 54 4F 4F 20 4C 49 54 54 4C 45 22 20 54 $="TOO LITTLE" T
000130: 48 45 4E 20 32 33 30 0D 0A 32 31 35 20 50 52 49 HEN 230..215 PRI
000140: 4E 54 20 22 44 4F 4E 27 54 20 47 45 54 20 41 4C NT "DON'T GET AL
000150: 4C 20 53 48 4F 4F 4B 2C 20 22 3B 4E 24 3B 22 2C L SHOOK, ";N$;",
000160: 20 4A 55 53 54 20 41 4E 53 57 45 52 20 54 48 45 JUST ANSWER THE
000170: 20 51 55 45 53 54 49 4F 4E 22 0D 0A 32 31 37 20 QUESTION"..217
000180: 49 4E 50 55 54 20 22 57 49 54 48 20 27 54 4F 4F INPUT "WITH 'TOO
000190: 20 4D 55 43 48 27 20 4F 52 20 27 54 4F 4F 20 4C MUCH' OR 'TOO L
0001A0: 49 54 54 4C 45 27 2E 20 20 57 48 49 43 48 20 49 ITTLE'. WHICH I
0001B0: 53 20 49 54 22 3B 44 24 3A 47 4F 54 4F 20 32 31 S IT";D$:GOTO 21
0001C0: 30 0D 0A 32 32 30 20 50 52 49 4E 54 20 22 59 4F 0..220 PRINT "YO
0001D0: 55 20 43 41 4C 4C 20 54 48 41 54 20 41 20 50 52 U CALL THAT A PR
0001E0: 4F 42 4C 45 4D 3F 21 21 20 20 49 20 53 48 4F 55 OBLEM?!! I SHOU
0001F0: 4C 44 20 48 41 56 45 20 53 55 43 48 20 50 52 4F LD HAVE SUCH PRO
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 3B 1 PRINT TAB(32);
000010: 22 48 45 58 41 50 41 57 4E 22 0D 0A 32 20 50 52 "HEXAPAWN"..2 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 20 50 52 49 4E JERSEY"..3 PRIN
000060: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 T:PRINT:PRINT..4
000070: 20 52 45 4D 20 20 48 45 58 41 50 41 57 4E 3A 20 REM HEXAPAWN:
000080: 20 49 4E 54 45 52 50 52 45 54 41 54 49 4F 4E 20 INTERPRETATION
000090: 4F 46 20 48 45 58 41 50 41 57 4E 20 47 41 4D 45 OF HEXAPAWN GAME
0000A0: 20 41 53 20 50 52 45 53 45 4E 54 45 44 20 49 4E AS PRESENTED IN
0000B0: 0D 0A 35 20 52 45 4D 20 20 4D 41 52 54 49 4E 20 ..5 REM MARTIN
0000C0: 47 41 52 44 4E 45 52 27 53 20 22 54 48 45 20 55 GARDNER'S "THE U
0000D0: 4E 45 58 50 45 43 54 45 44 20 48 41 4E 47 49 4E NEXPECTED HANGIN
0000E0: 47 20 41 4E 44 20 4F 54 48 45 52 20 4D 41 54 48 G AND OTHER MATH
0000F0: 45 4D 41 54 49 43 2D 0D 0A 36 20 52 45 4D 20 20 EMATIC-..6 REM
000100: 41 4C 20 44 49 56 45 52 53 49 4F 4E 53 22 2C 20 AL DIVERSIONS",
000110: 43 48 41 50 54 45 52 20 45 49 47 48 54 3A 20 20 CHAPTER EIGHT:
000120: 41 20 4D 41 54 43 48 42 4F 58 20 47 41 4D 45 2D A MATCHBOX GAME-
000130: 4C 45 41 52 4E 49 4E 47 20 4D 41 43 48 49 4E 45 LEARNING MACHINE
000140: 0D 0A 37 20 52 45 4D 20 20 4F 52 49 47 49 4E 41 ..7 REM ORIGINA
000150: 4C 20 56 45 52 53 49 4F 4E 20 46 4F 52 20 48 2D L VERSION FOR H-
000160: 50 20 54 49 4D 45 53 48 41 52 45 20 53 59 53 54 P TIMESHARE SYST
000170: 45 4D 20 42 59 20 52 2E 41 2E 20 4B 41 41 50 4B EM BY R.A. KAAPK
000180: 45 20 35 2F 35 2F 37 36 0D 0A 38 20 52 45 4D 20 E 5/5/76..8 REM
000190: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 42 59 INSTRUCTIONS BY
0001A0: 20 4A 45 46 46 20 44 41 4C 54 4F 4E 0D 0A 39 20 JEFF DALTON..9
0001B0: 52 45 4D 20 20 43 4F 4E 56 45 52 53 49 4F 4E 20 REM CONVERSION
0001C0: 54 4F 20 4D 49 54 53 20 42 41 53 49 43 20 42 59 TO MITS BASIC BY
0001D0: 20 53 54 45 56 45 20 4E 4F 52 54 48 0D 0A 31 30 STEVE NORTH..10
0001E0: 20 44 49 4D 20 42 28 31 39 2C 39 29 2C 4D 28 31 DIM B(19,9),M(1
0001F0: 39 2C 34 29 2C 53 28 39 29 2C 50 24 28 33 29 0D 9,4),S(9),P$(3).
Size : 512 (Real : 512)
000000: 42 4C 45 4D 53 21 22 0D 0A 32 32 35 20 50 52 49 BLEMS!"..225 PRI
000010: 4E 54 20 22 49 46 20 49 54 20 42 4F 54 48 45 52 NT "IF IT BOTHER
000020: 53 20 59 4F 55 2C 20 22 3B 4E 24 3B 22 2C 20 54 S YOU, ";N$;", T
000030: 41 4B 45 20 41 20 43 4F 4C 44 20 53 48 4F 57 45 AKE A COLD SHOWE
000040: 52 2E 22 0D 0A 32 32 38 20 47 4F 54 4F 20 32 35 R."..228 GOTO 25
000050: 30 0D 0A 32 33 30 20 50 52 49 4E 54 20 22 57 48 0..230 PRINT "WH
000060: 59 20 41 52 45 20 59 4F 55 20 48 45 52 45 20 49 Y ARE YOU HERE I
000070: 4E 20 53 55 46 46 45 52 4E 2C 20 22 3B 4E 24 3B N SUFFERN, ";N$;
000080: 22 3F 20 20 59 4F 55 20 53 48 4F 55 4C 44 20 42 "? YOU SHOULD B
000090: 45 22 0D 0A 32 33 35 20 50 52 49 4E 54 20 22 49 E"..235 PRINT "I
0000A0: 4E 20 54 4F 4B 59 4F 20 4F 52 20 4E 45 57 20 59 N TOKYO OR NEW Y
0000B0: 4F 52 4B 20 4F 52 20 41 4D 53 54 45 52 44 41 4D ORK OR AMSTERDAM
0000C0: 20 4F 52 20 53 4F 4D 45 50 4C 41 43 45 20 57 49 OR SOMEPLACE WI
0000D0: 54 48 20 53 4F 4D 45 22 0D 0A 32 34 30 20 50 52 TH SOME"..240 PR
0000E0: 49 4E 54 20 22 52 45 41 4C 20 41 43 54 49 4F 4E INT "REAL ACTION
0000F0: 2E 22 0D 0A 32 35 30 20 50 52 49 4E 54 0D 0A 32 ."..250 PRINT..2
000100: 35 35 20 50 52 49 4E 54 20 22 41 4E 59 20 4D 4F 55 PRINT "ANY MO
000110: 52 45 20 50 52 4F 42 4C 45 4D 53 20 59 4F 55 20 RE PROBLEMS YOU
000120: 57 41 4E 54 20 53 4F 4C 56 45 44 2C 20 22 3B 4E WANT SOLVED, ";N
000130: 24 3B 0D 0A 32 36 30 20 49 4E 50 55 54 20 45 24 $;..260 INPUT E$
000140: 3A 20 50 52 49 4E 54 0D 0A 32 37 30 20 49 46 20 : PRINT..270 IF
000150: 45 24 3D 22 59 45 53 22 20 54 48 45 4E 20 32 38 E$="YES" THEN 28
000160: 30 0D 0A 32 37 33 20 49 46 20 45 24 3D 22 4E 4F 0..273 IF E$="NO
000170: 22 20 54 48 45 4E 20 33 30 30 0D 0A 32 37 35 20 " THEN 300..275
000180: 50 52 49 4E 54 20 22 4A 55 53 54 20 41 20 53 49 PRINT "JUST A SI
000190: 4D 50 4C 45 20 27 59 45 53 27 20 4F 52 20 27 4E MPLE 'YES' OR 'N
0001A0: 4F 27 20 50 4C 45 41 53 45 2C 20 22 3B 4E 24 3B O' PLEASE, ";N$;
0001B0: 22 2E 22 0D 0A 32 37 37 20 47 4F 54 4F 20 32 35 "."..277 GOTO 25
0001C0: 35 0D 0A 32 38 30 20 50 52 49 4E 54 20 22 57 48 5..280 PRINT "WH
0001D0: 41 54 20 4B 49 4E 44 20 28 53 45 58 2C 20 4D 4F AT KIND (SEX, MO
0001E0: 4E 45 59 2C 20 48 45 41 4C 54 48 2C 20 4A 4F 42 NEY, HEALTH, JOB
0001F0: 29 22 3B 0D 0A 32 38 32 20 47 4F 54 4F 20 31 32 )";..282 GOTO 12
Size : 512 (Real : 512)
000000: 0A 31 35 20 57 3D 30 3A 20 4C 3D 30 0D 0A 32 30 .15 W=0: L=0..20
000010: 20 44 45 46 20 46 4E 52 28 58 29 3D 2D 33 2A 28 DEF FNR(X)=-3*(
000020: 58 3D 31 29 2D 28 58 3D 33 29 2D 34 2A 28 58 3D X=1)-(X=3)-4*(X=
000030: 36 29 2D 36 2A 28 58 3D 34 29 2D 37 2A 28 58 3D 6)-6*(X=4)-7*(X=
000040: 39 29 2D 39 2A 28 58 3D 37 29 2B 46 4E 53 28 58 9)-9*(X=7)+FNS(X
000050: 29 0D 0A 32 35 20 44 45 46 20 46 4E 53 28 58 29 )..25 DEF FNS(X)
000060: 3D 2D 58 2A 28 58 3D 32 20 4F 52 20 58 3D 35 20 =-X*(X=2 OR X=5
000070: 4F 52 20 58 3D 38 29 0D 0A 33 30 20 44 45 46 20 OR X=8)..30 DEF
000080: 46 4E 4D 28 59 29 3D 59 2D 49 4E 54 28 59 2F 31 FNM(Y)=Y-INT(Y/1
000090: 30 29 2A 31 30 0D 0A 33 35 20 50 24 3D 22 58 2E 0)*10..35 P$="X.
0000A0: 4F 22 0D 0A 34 30 20 46 4F 52 20 49 3D 31 20 54 O"..40 FOR I=1 T
0000B0: 4F 20 31 39 3A 20 46 4F 52 20 4A 3D 31 20 54 4F O 19: FOR J=1 TO
0000C0: 20 39 3A 20 52 45 41 44 20 42 28 49 2C 4A 29 3A 9: READ B(I,J):
0000D0: 20 4E 45 58 54 20 4A 3A 20 4E 45 58 54 20 49 0D NEXT J: NEXT I.
0000E0: 0A 34 35 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 .45 FOR I=1 TO 1
0000F0: 39 3A 20 46 4F 52 20 4A 3D 31 20 54 4F 20 34 3A 9: FOR J=1 TO 4:
000100: 20 52 45 41 44 20 4D 28 49 2C 4A 29 3A 20 4E 45 READ M(I,J): NE
000110: 58 54 20 4A 3A 20 4E 45 58 54 20 49 0D 0A 35 30 XT J: NEXT I..50
000120: 20 50 52 49 4E 54 20 22 49 4E 53 54 52 55 43 54 PRINT "INSTRUCT
000130: 49 4F 4E 53 20 28 59 2D 4E 29 22 3B 0D 0A 36 30 IONS (Y-N)";..60
000140: 20 49 4E 50 55 54 20 41 24 0D 0A 37 30 20 41 24 INPUT A$..70 A$
000150: 3D 4C 45 46 54 24 28 41 24 2C 31 29 0D 0A 38 30 =LEFT$(A$,1)..80
000160: 20 49 46 20 41 24 3D 22 59 22 20 54 48 45 4E 20 IF A$="Y" THEN
000170: 32 30 30 30 0D 0A 39 30 20 49 46 20 41 24 3C 3E 2000..90 IF A$<>
000180: 22 4E 22 20 54 48 45 4E 20 35 30 0D 0A 31 30 30 "N" THEN 50..100
000190: 20 58 3D 30 3A 20 59 3D 30 0D 0A 31 31 31 20 53 X=0: Y=0..111 S
0001A0: 28 34 29 3D 30 3A 20 53 28 35 29 3D 30 3A 20 53 (4)=0: S(5)=0: S
0001B0: 28 36 29 3D 30 0D 0A 31 31 32 20 53 28 31 29 3D (6)=0..112 S(1)=
0001C0: 2D 31 3A 20 53 28 32 29 3D 2D 31 3A 20 53 28 33 -1: S(2)=-1: S(3
0001D0: 29 3D 2D 31 0D 0A 31 31 33 20 53 28 37 29 3D 31 )=-1..113 S(7)=1
0001E0: 3A 20 53 28 38 29 3D 31 3A 20 53 28 39 29 3D 31 : S(8)=1: S(9)=1
0001F0: 0D 0A 31 31 35 20 47 4F 53 55 42 20 31 30 30 30 ..115 GOSUB 1000
Size : 512 (Real : 512)
000000: 35 0D 0A 33 30 30 20 50 52 49 4E 54 0D 0A 33 30 5..300 PRINT..30
000010: 32 20 50 52 49 4E 54 20 22 54 48 41 54 20 57 49 2 PRINT "THAT WI
000020: 4C 4C 20 42 45 20 24 35 2E 30 30 20 46 4F 52 20 LL BE $5.00 FOR
000030: 54 48 45 20 41 44 56 49 43 45 2C 20 22 3B 4E 24 THE ADVICE, ";N$
000040: 3B 22 2E 22 0D 0A 33 30 35 20 50 52 49 4E 54 20 ;"."..305 PRINT
000050: 22 50 4C 45 41 53 45 20 4C 45 41 56 45 20 54 48 "PLEASE LEAVE TH
000060: 45 20 4D 4F 4E 45 59 20 4F 4E 20 54 48 45 20 54 E MONEY ON THE T
000070: 45 52 4D 49 4E 41 4C 2E 22 0D 0A 33 30 37 20 46 ERMINAL."..307 F
000080: 4F 52 20 49 3D 31 20 54 4F 20 32 30 30 30 3A 20 OR I=1 TO 2000:
000090: 4E 45 58 54 20 49 0D 0A 33 31 30 20 50 52 49 4E NEXT I..310 PRIN
0000A0: 54 3A 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 0D T: PRINT: PRINT.
0000B0: 0A 33 31 35 20 50 52 49 4E 54 20 22 44 49 44 20 .315 PRINT "DID
0000C0: 59 4F 55 20 4C 45 41 56 45 20 54 48 45 20 4D 4F YOU LEAVE THE MO
0000D0: 4E 45 59 22 3B 0D 0A 33 32 30 20 49 4E 50 55 54 NEY";..320 INPUT
0000E0: 20 47 24 3A 20 50 52 49 4E 54 0D 0A 33 32 35 20 G$: PRINT..325
0000F0: 49 46 20 47 24 3D 22 59 45 53 22 20 54 48 45 4E IF G$="YES" THEN
000100: 20 33 35 30 0D 0A 33 33 30 20 49 46 20 47 24 3D 350..330 IF G$=
000110: 22 4E 4F 22 20 54 48 45 4E 20 33 37 30 0D 0A 33 "NO" THEN 370..3
000120: 33 35 20 50 52 49 4E 54 20 22 59 4F 55 52 20 41 35 PRINT "YOUR A
000130: 4E 53 57 45 52 20 4F 46 20 27 22 3B 47 24 3B 22 NSWER OF '";G$;"
000140: 27 20 43 4F 4E 46 55 53 45 53 20 4D 45 2C 20 22 ' CONFUSES ME, "
000150: 3B 4E 24 3B 22 2E 22 0D 0A 33 34 30 20 50 52 49 ;N$;"."..340 PRI
000160: 4E 54 20 22 50 4C 45 41 53 45 20 52 45 53 50 4F NT "PLEASE RESPO
000170: 4E 44 20 57 49 54 48 20 27 59 45 53 27 20 4F 52 ND WITH 'YES' OR
000180: 20 27 4E 4F 27 2E 22 3A 20 47 4F 54 4F 20 33 31 'NO'.": GOTO 31
000190: 35 0D 0A 33 35 30 20 50 52 49 4E 54 20 22 48 45 5..350 PRINT "HE
0001A0: 59 2C 20 22 3B 4E 24 3B 22 3F 3F 3F 20 59 4F 55 Y, ";N$;"??? YOU
0001B0: 20 4C 45 46 54 20 4E 4F 20 4D 4F 4E 45 59 20 41 LEFT NO MONEY A
0001C0: 54 20 41 4C 4C 21 22 0D 0A 33 35 35 20 50 52 49 T ALL!"..355 PRI
0001D0: 4E 54 20 22 59 4F 55 20 41 52 45 20 43 48 45 41 NT "YOU ARE CHEA
0001E0: 54 49 4E 47 20 4D 45 20 4F 55 54 20 4F 46 20 4D TING ME OUT OF M
0001F0: 59 20 48 41 52 44 2D 45 41 52 4E 45 44 20 4C 49 Y HARD-EARNED LI
Size : 512 (Real : 512)
000000: 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 59 4F 55 ..120 PRINT "YOU
000010: 52 20 4D 4F 56 45 22 3B 0D 0A 31 32 31 20 49 4E R MOVE";..121 IN
000020: 50 55 54 20 4D 31 2C 4D 32 0D 0A 31 32 32 20 49 PUT M1,M2..122 I
000030: 46 20 4D 31 3D 49 4E 54 28 4D 31 29 41 4E 44 20 F M1=INT(M1)AND
000040: 4D 32 3D 49 4E 54 28 4D 32 29 41 4E 44 20 4D 31 M2=INT(M2)AND M1
000050: 3E 30 20 41 4E 44 20 4D 31 3C 31 30 20 41 4E 44 >0 AND M1<10 AND
000060: 20 4D 32 3E 30 20 41 4E 44 20 4D 32 3C 31 30 20 M2>0 AND M2<10
000070: 54 48 45 4E 20 31 33 30 0D 0A 31 32 33 20 50 52 THEN 130..123 PR
000080: 49 4E 54 20 22 49 4C 4C 45 47 41 4C 20 43 4F 2D INT "ILLEGAL CO-
000090: 4F 52 44 49 4E 41 54 45 53 2E 22 0D 0A 31 32 34 ORDINATES."..124
0000A0: 20 47 4F 54 4F 20 31 32 30 0D 0A 31 33 30 20 49 GOTO 120..130 I
0000B0: 46 20 53 28 4D 31 29 3D 31 20 54 48 45 4E 20 31 F S(M1)=1 THEN 1
0000C0: 35 30 0D 0A 31 34 30 20 50 52 49 4E 54 20 22 49 50..140 PRINT "I
0000D0: 4C 4C 45 47 41 4C 20 4D 4F 56 45 2E 22 3A 20 47 LLEGAL MOVE.": G
0000E0: 4F 54 4F 20 31 32 30 0D 0A 31 35 30 20 49 46 20 OTO 120..150 IF
0000F0: 53 28 4D 32 29 3D 31 20 54 48 45 4E 20 31 34 30 S(M2)=1 THEN 140
000100: 0D 0A 31 36 30 20 49 46 20 4D 32 2D 4D 31 3C 3E ..160 IF M2-M1<>
000110: 2D 33 20 41 4E 44 20 53 28 4D 32 29 3C 3E 2D 31 -3 AND S(M2)<>-1
000120: 20 54 48 45 4E 20 31 34 30 0D 0A 31 37 30 20 49 THEN 140..170 I
000130: 46 20 4D 32 3E 4D 31 20 54 48 45 4E 20 31 34 30 F M2>M1 THEN 140
000140: 0D 0A 31 38 30 20 49 46 20 4D 32 2D 4D 31 3D 2D ..180 IF M2-M1=-
000150: 33 20 41 4E 44 20 28 53 28 4D 32 29 3C 3E 30 29 3 AND (S(M2)<>0)
000160: 20 54 48 45 4E 20 31 34 30 0D 0A 31 38 35 20 49 THEN 140..185 I
000170: 46 20 4D 32 2D 4D 31 3C 2D 34 20 54 48 45 4E 20 F M2-M1<-4 THEN
000180: 31 34 30 0D 0A 31 38 36 20 49 46 20 4D 31 3D 37 140..186 IF M1=7
000190: 20 41 4E 44 20 4D 32 3D 33 20 54 48 45 4E 20 31 AND M2=3 THEN 1
0001A0: 34 30 0D 0A 31 39 30 20 53 28 4D 31 29 3D 30 0D 40..190 S(M1)=0.
0001B0: 0A 32 30 30 20 53 28 4D 32 29 3D 31 0D 0A 32 30 .200 S(M2)=1..20
0001C0: 35 20 47 4F 53 55 42 20 31 30 30 30 0D 0A 32 31 5 GOSUB 1000..21
0001D0: 30 20 49 46 20 53 28 31 29 3D 31 20 4F 52 20 53 0 IF S(1)=1 OR S
0001E0: 28 32 29 3D 31 20 4F 52 20 53 28 33 29 3D 31 20 (2)=1 OR S(3)=1
0001F0: 54 48 45 4E 20 38 32 30 0D 0A 32 32 30 20 46 4F THEN 820..220 FO
Size : 512 (Real : 512)
000000: 56 49 4E 47 2E 22 0D 0A 33 36 30 20 50 52 49 4E VING."..360 PRIN
000010: 54 3A 50 52 49 4E 54 20 22 57 48 41 54 20 41 20 T:PRINT "WHAT A
000020: 52 49 50 20 4F 46 46 2C 20 22 3B 4E 24 3B 22 21 RIP OFF, ";N$;"!
000030: 21 21 22 3A 50 52 49 4E 54 0D 0A 33 36 35 20 47 !!":PRINT..365 G
000040: 4F 54 4F 20 33 38 35 0D 0A 33 37 30 20 50 52 49 OTO 385..370 PRI
000050: 4E 54 20 22 54 48 41 54 27 53 20 48 4F 4E 45 53 NT "THAT'S HONES
000060: 54 2C 20 22 3B 4E 24 3B 22 2C 20 42 55 54 20 48 T, ";N$;", BUT H
000070: 4F 57 20 44 4F 20 59 4F 55 20 45 58 50 45 43 54 OW DO YOU EXPECT
000080: 22 0D 0A 33 37 35 20 50 52 49 4E 54 20 22 4D 45 "..375 PRINT "ME
000090: 20 54 4F 20 47 4F 20 4F 4E 20 57 49 54 48 20 4D TO GO ON WITH M
0000A0: 59 20 50 53 59 43 48 4F 4C 4F 47 59 20 53 54 55 Y PSYCHOLOGY STU
0000B0: 44 49 45 53 20 49 46 20 4D 59 20 50 41 54 49 45 DIES IF MY PATIE
0000C0: 4E 54 53 22 0D 0A 33 38 30 20 50 52 49 4E 54 20 NTS"..380 PRINT
0000D0: 22 44 4F 4E 27 54 20 50 41 59 20 54 48 45 49 52 "DON'T PAY THEIR
0000E0: 20 42 49 4C 4C 53 3F 22 0D 0A 33 38 35 20 50 52 BILLS?"..385 PR
0000F0: 49 4E 54 3A 50 52 49 4E 54 20 22 54 41 4B 45 20 INT:PRINT "TAKE
000100: 41 20 57 41 4C 4B 2C 20 22 3B 4E 24 3B 22 2E 22 A WALK, ";N$;"."
000110: 3A 50 52 49 4E 54 3A 50 52 49 4E 54 3A 47 4F 54 :PRINT:PRINT:GOT
000120: 4F 20 39 39 39 0D 0A 33 39 30 20 50 52 49 4E 54 O 999..390 PRINT
000130: 20 22 4E 49 43 45 20 4D 45 45 54 49 4E 47 20 59 "NICE MEETING Y
000140: 4F 55 2C 20 22 3B 4E 24 3B 22 2C 20 48 41 56 45 OU, ";N$;", HAVE
000150: 20 41 20 4E 49 43 45 20 44 41 59 2E 22 0D 0A 34 A NICE DAY."..4
000160: 30 30 20 52 45 4D 0D 0A 39 39 39 20 45 4E 44 0D 00 REM..999 END.
000170: 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 52 20 49 3D 31 20 54 4F 20 39 0D 0A 32 32 31 20 R I=1 TO 9..221
000010: 49 46 20 53 28 49 29 3D 2D 31 20 54 48 45 4E 20 IF S(I)=-1 THEN
000020: 32 33 30 0D 0A 32 32 32 20 4E 45 58 54 20 49 0D 230..222 NEXT I.
000030: 0A 32 32 33 20 47 4F 54 4F 20 38 32 30 0D 0A 32 .223 GOTO 820..2
000040: 33 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 39 0D 30 FOR I=1 TO 9.
000050: 0A 32 34 30 20 49 46 20 53 28 49 29 3C 3E 2D 31 .240 IF S(I)<>-1
000060: 20 54 48 45 4E 20 33 33 30 0D 0A 32 35 30 20 49 THEN 330..250 I
000070: 46 20 53 28 49 2B 33 29 3D 30 20 54 48 45 4E 20 F S(I+3)=0 THEN
000080: 33 35 30 0D 0A 32 36 30 20 49 46 20 46 4E 52 28 350..260 IF FNR(
000090: 49 29 3D 49 20 54 48 45 4E 20 33 32 30 0D 0A 32 I)=I THEN 320..2
0000A0: 37 30 20 49 46 20 49 3E 33 20 54 48 45 4E 20 33 70 IF I>3 THEN 3
0000B0: 30 30 0D 0A 32 38 30 20 49 46 20 53 28 35 29 3D 00..280 IF S(5)=
0000C0: 31 20 54 48 45 4E 20 33 35 30 0D 0A 32 39 30 20 1 THEN 350..290
0000D0: 47 4F 54 4F 20 33 33 30 0D 0A 33 30 30 20 49 46 GOTO 330..300 IF
0000E0: 20 53 28 38 29 3D 31 20 54 48 45 4E 20 33 35 30 S(8)=1 THEN 350
0000F0: 0D 0A 33 31 30 20 47 4F 54 4F 20 33 33 30 0D 0A ..310 GOTO 330..
000100: 33 32 30 20 49 46 20 53 28 49 2B 32 29 3D 31 20 320 IF S(I+2)=1
000110: 4F 52 20 53 28 49 2B 34 29 3D 31 20 54 48 45 4E OR S(I+4)=1 THEN
000120: 20 33 35 30 0D 0A 33 33 30 20 4E 45 58 54 20 49 350..330 NEXT I
000130: 0D 0A 33 34 30 20 47 4F 54 4F 20 38 32 30 0D 0A ..340 GOTO 820..
000140: 33 35 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 31 350 FOR I=1 TO 1
000150: 39 0D 0A 33 36 30 20 46 4F 52 20 4A 3D 31 20 54 9..360 FOR J=1 T
000160: 4F 20 33 0D 0A 33 37 30 20 46 4F 52 20 4B 3D 33 O 3..370 FOR K=3
000170: 20 54 4F 20 31 20 53 54 45 50 20 2D 31 0D 0A 33 TO 1 STEP -1..3
000180: 38 30 20 54 28 28 4A 2D 31 29 2A 33 2B 4B 29 3D 80 T((J-1)*3+K)=
000190: 42 28 49 2C 28 4A 2D 31 29 2A 33 2B 34 2D 4B 29 B(I,(J-1)*3+4-K)
0001A0: 0D 0A 33 39 30 20 4E 45 58 54 20 4B 0D 0A 34 30 ..390 NEXT K..40
0001B0: 30 20 4E 45 58 54 20 4A 0D 0A 34 31 30 20 46 4F 0 NEXT J..410 FO
0001C0: 52 20 4A 3D 31 20 54 4F 20 39 0D 0A 34 32 30 20 R J=1 TO 9..420
0001D0: 49 46 20 53 28 4A 29 3C 3E 42 28 49 2C 4A 29 20 IF S(J)<>B(I,J)
0001E0: 54 48 45 4E 20 34 36 30 0D 0A 34 33 30 20 4E 45 THEN 460..430 NE
0001F0: 58 54 20 4A 0D 0A 34 34 30 20 52 3D 30 0D 0A 34 XT J..440 R=0..4
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 35 30 20 47 4F 54 4F 20 35 34 30 0D 0A 34 36 30 50 GOTO 540..460
000010: 20 46 4F 52 20 4A 3D 31 20 54 4F 20 39 0D 0A 34 FOR J=1 TO 9..4
000020: 37 30 20 49 46 20 53 28 4A 29 3C 3E 54 28 4A 29 70 IF S(J)<>T(J)
000030: 20 54 48 45 4E 20 35 31 30 0D 0A 34 38 30 20 4E THEN 510..480 N
000040: 45 58 54 20 4A 0D 0A 34 39 30 20 52 3D 31 0D 0A EXT J..490 R=1..
000050: 35 30 30 20 47 4F 54 4F 20 35 34 30 0D 0A 35 31 500 GOTO 540..51
000060: 30 20 4E 45 58 54 20 49 0D 0A 35 31 31 20 52 45 0 NEXT I..511 RE
000070: 4D 45 4D 42 45 52 20 54 48 45 20 54 45 52 4D 49 MEMBER THE TERMI
000080: 4E 41 54 49 4F 4E 20 4F 46 20 54 48 49 53 20 4C NATION OF THIS L
000090: 4F 4F 50 20 49 53 20 49 4D 50 4F 53 53 49 42 4C OOP IS IMPOSSIBL
0000A0: 45 0D 0A 35 31 32 20 50 52 49 4E 54 20 22 49 4C E..512 PRINT "IL
0000B0: 4C 45 47 41 4C 20 42 4F 41 52 44 20 50 41 54 54 LEGAL BOARD PATT
0000C0: 45 52 4E 2E 22 0D 0A 35 33 30 20 53 54 4F 50 0D ERN."..530 STOP.
0000D0: 0A 35 34 30 20 58 3D 49 0D 0A 35 35 30 20 46 4F .540 X=I..550 FO
0000E0: 52 20 49 3D 31 20 54 4F 20 34 0D 0A 35 36 30 20 R I=1 TO 4..560
0000F0: 49 46 20 4D 28 58 2C 49 29 3C 3E 30 20 54 48 45 IF M(X,I)<>0 THE
000100: 4E 20 36 30 30 0D 0A 35 37 30 20 4E 45 58 54 20 N 600..570 NEXT
000110: 49 0D 0A 35 38 30 20 50 52 49 4E 54 20 22 49 20 I..580 PRINT "I
000120: 52 45 53 49 47 4E 2E 22 0D 0A 35 39 30 20 47 4F RESIGN."..590 GO
000130: 54 4F 20 38 32 30 0D 0A 36 30 30 20 59 3D 49 4E TO 820..600 Y=IN
000140: 54 28 52 4E 44 28 31 29 2A 34 2B 31 29 0D 0A 36 T(RND(1)*4+1)..6
000150: 30 31 20 49 46 20 4D 28 58 2C 59 29 3D 30 20 54 01 IF M(X,Y)=0 T
000160: 48 45 4E 20 36 30 30 0D 0A 36 31 30 20 49 46 20 HEN 600..610 IF
000170: 52 3C 3E 30 20 54 48 45 4E 20 36 33 30 0D 0A 36 R<>0 THEN 630..6
000180: 32 30 20 50 52 49 4E 54 20 22 49 20 4D 4F 56 45 20 PRINT "I MOVE
000190: 20 46 52 4F 4D 20 22 3B 53 54 52 24 28 49 4E 54 FROM ";STR$(INT
0001A0: 28 4D 28 58 2C 59 29 2F 31 30 29 29 3B 22 20 54 (M(X,Y)/10));" T
0001B0: 4F 20 22 3B 53 54 52 24 28 46 4E 4D 28 4D 28 58 O ";STR$(FNM(M(X
0001C0: 2C 59 29 29 29 0D 0A 36 32 32 20 53 28 49 4E 54 ,Y)))..622 S(INT
0001D0: 28 4D 28 58 2C 59 29 2F 31 30 29 29 3D 30 0D 0A (M(X,Y)/10))=0..
0001E0: 36 32 33 20 53 28 46 4E 4D 28 4D 28 58 2C 59 29 623 S(FNM(M(X,Y)
0001F0: 29 29 3D 2D 31 0D 0A 36 32 34 20 47 4F 54 4F 20 ))=-1..624 GOTO
Size : 512 (Real : 512)
000000: 22 0D 0A 32 30 36 30 20 50 52 49 4E 54 20 22 53 "..2060 PRINT "S
000010: 51 55 41 52 45 53 20 41 52 45 20 27 2E 27 2E 20 QUARES ARE '.'.
000020: 20 54 4F 20 45 4E 54 45 52 20 41 20 4D 4F 56 45 TO ENTER A MOVE
000030: 2C 20 54 59 50 45 20 54 48 45 20 4E 55 4D 42 45 , TYPE THE NUMBE
000040: 52 20 4F 46 22 0D 0A 32 30 37 30 20 50 52 49 4E R OF"..2070 PRIN
000050: 54 20 22 54 48 45 20 53 51 55 41 52 45 20 59 4F T "THE SQUARE YO
000060: 55 20 41 52 45 20 4D 4F 56 49 4E 47 20 46 52 4F U ARE MOVING FRO
000070: 4D 2C 20 46 4F 4C 4C 4F 57 45 44 20 42 59 20 54 M, FOLLOWED BY T
000080: 48 45 20 4E 55 4D 42 45 52 22 0D 0A 32 30 38 30 HE NUMBER"..2080
000090: 20 50 52 49 4E 54 20 22 4F 46 20 54 48 45 20 53 PRINT "OF THE S
0000A0: 51 55 41 52 45 20 59 4F 55 20 57 49 4C 4C 20 4D QUARE YOU WILL M
0000B0: 4F 56 45 20 54 4F 2E 20 20 54 48 45 20 4E 55 4D OVE TO. THE NUM
0000C0: 42 45 52 53 20 4D 55 53 54 20 42 45 22 0D 0A 32 BERS MUST BE"..2
0000D0: 30 39 30 20 50 52 49 4E 54 20 22 53 45 50 45 52 090 PRINT "SEPER
0000E0: 41 54 45 44 20 42 59 20 41 20 43 4F 4D 4D 41 2E ATED BY A COMMA.
0000F0: 22 3A 20 50 52 49 4E 54 0D 0A 32 31 30 30 20 50 ": PRINT..2100 P
000100: 52 49 4E 54 20 22 54 48 45 20 43 4F 4D 50 55 54 RINT "THE COMPUT
000110: 45 52 20 53 54 41 52 54 53 20 41 20 53 45 52 49 ER STARTS A SERI
000120: 45 53 20 4F 46 20 47 41 4D 45 53 20 4B 4E 4F 57 ES OF GAMES KNOW
000130: 49 4E 47 20 4F 4E 4C 59 20 57 48 45 4E 22 0D 0A ING ONLY WHEN"..
000140: 32 31 30 35 20 50 52 49 4E 54 20 22 54 48 45 20 2105 PRINT "THE
000150: 47 41 4D 45 20 49 53 20 57 4F 4E 20 28 41 20 44 GAME IS WON (A D
000160: 52 41 57 20 49 53 20 49 4D 50 4F 53 53 49 42 4C RAW IS IMPOSSIBL
000170: 45 29 20 41 4E 44 20 48 4F 57 20 54 4F 20 4D 4F E) AND HOW TO MO
000180: 56 45 2E 22 0D 0A 32 31 31 30 20 50 52 49 4E 54 VE."..2110 PRINT
000190: 20 22 49 54 20 48 41 53 20 4E 4F 20 53 54 52 41 "IT HAS NO STRA
0001A0: 54 45 47 59 20 41 54 20 46 49 52 53 54 20 41 4E TEGY AT FIRST AN
0001B0: 44 20 4A 55 53 54 20 4D 4F 56 45 53 20 52 41 4E D JUST MOVES RAN
0001C0: 44 4F 4D 4C 59 2E 22 0D 0A 32 31 32 30 20 50 52 DOMLY."..2120 PR
0001D0: 49 4E 54 20 22 48 4F 57 45 56 45 52 2C 20 49 54 INT "HOWEVER, IT
0001E0: 20 4C 45 41 52 4E 53 20 46 52 4F 4D 20 45 41 43 LEARNS FROM EAC
0001F0: 48 20 47 41 4D 45 2E 20 20 54 48 55 53 2C 20 57 H GAME. THUS, W
Size : 512 (Real : 512)
000000: 36 34 30 0D 0A 36 33 30 20 50 52 49 4E 54 20 22 640..630 PRINT "
000010: 49 20 4D 4F 56 45 20 46 52 4F 4D 20 22 3B 53 54 I MOVE FROM ";ST
000020: 52 24 28 46 4E 52 28 49 4E 54 28 4D 28 58 2C 59 R$(FNR(INT(M(X,Y
000030: 29 2F 31 30 29 29 29 3B 22 20 54 4F 20 22 3B 0D )/10)));" TO ";.
000040: 0A 36 33 31 20 50 52 49 4E 54 20 53 54 52 24 28 .631 PRINT STR$(
000050: 46 4E 52 28 46 4E 4D 28 4D 28 58 2C 59 29 29 29 FNR(FNM(M(X,Y)))
000060: 29 0D 0A 36 33 32 20 53 28 46 4E 52 28 49 4E 54 )..632 S(FNR(INT
000070: 28 4D 28 58 2C 59 29 2F 31 30 29 29 29 3D 30 0D (M(X,Y)/10)))=0.
000080: 0A 36 33 33 20 53 28 46 4E 52 28 46 4E 4D 28 4D .633 S(FNR(FNM(M
000090: 28 58 2C 59 29 29 29 29 3D 2D 31 0D 0A 36 34 30 (X,Y))))=-1..640
0000A0: 20 47 4F 53 55 42 20 31 30 30 30 0D 0A 36 34 31 GOSUB 1000..641
0000B0: 20 49 46 20 53 28 37 29 3D 2D 31 20 4F 52 20 53 IF S(7)=-1 OR S
0000C0: 28 38 29 3D 2D 31 20 4F 52 20 53 28 39 29 3D 2D (8)=-1 OR S(9)=-
0000D0: 31 20 54 48 45 4E 20 38 37 30 0D 0A 36 35 30 20 1 THEN 870..650
0000E0: 46 4F 52 20 49 3D 31 20 54 4F 20 39 0D 0A 36 36 FOR I=1 TO 9..66
0000F0: 30 20 49 46 20 53 28 49 29 3D 31 20 54 48 45 4E 0 IF S(I)=1 THEN
000100: 20 36 39 30 0D 0A 36 37 30 20 4E 45 58 54 20 49 690..670 NEXT I
000110: 0D 0A 36 38 30 20 47 4F 54 4F 20 38 37 30 0D 0A ..680 GOTO 870..
000120: 36 39 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 39 690 FOR I=1 TO 9
000130: 0D 0A 37 30 30 20 49 46 20 53 28 49 29 3C 3E 31 ..700 IF S(I)<>1
000140: 20 54 48 45 4E 20 37 39 30 0D 0A 37 31 30 20 49 THEN 790..710 I
000150: 46 20 53 28 49 2D 33 29 3D 30 20 54 48 45 4E 20 F S(I-3)=0 THEN
000160: 31 32 30 0D 0A 37 32 30 20 49 46 20 46 4E 52 28 120..720 IF FNR(
000170: 49 29 3D 49 20 54 48 45 4E 20 37 38 30 0D 0A 37 I)=I THEN 780..7
000180: 33 30 20 49 46 20 49 3C 37 20 54 48 45 4E 20 37 30 IF I<7 THEN 7
000190: 36 30 0D 0A 37 34 30 20 49 46 20 53 28 35 29 3D 60..740 IF S(5)=
0001A0: 2D 31 20 54 48 45 4E 20 31 32 30 0D 0A 37 35 30 -1 THEN 120..750
0001B0: 20 47 4F 54 4F 20 37 39 30 0D 0A 37 36 30 20 49 GOTO 790..760 I
0001C0: 46 20 53 28 32 29 3D 2D 31 20 54 48 45 4E 20 31 F S(2)=-1 THEN 1
0001D0: 32 30 0D 0A 37 37 30 20 47 4F 54 4F 20 37 39 30 20..770 GOTO 790
0001E0: 0D 0A 37 38 30 20 49 46 20 53 28 49 2D 32 29 3D ..780 IF S(I-2)=
0001F0: 2D 31 20 4F 52 20 53 28 49 2D 34 29 3D 2D 31 20 -1 OR S(I-4)=-1
Size : 512 (Real : 512)
000000: 49 4E 4E 49 4E 47 20 42 45 43 4F 4D 45 53 22 0D INNING BECOMES".
000010: 0A 32 31 33 30 20 50 52 49 4E 54 20 22 4D 4F 52 .2130 PRINT "MOR
000020: 45 20 41 4E 44 20 4D 4F 52 45 20 44 49 46 46 49 E AND MORE DIFFI
000030: 43 55 4C 54 2E 20 20 41 4C 53 4F 2C 20 54 4F 20 CULT. ALSO, TO
000040: 48 45 4C 50 20 4F 46 46 53 45 54 20 59 4F 55 52 HELP OFFSET YOUR
000050: 22 0D 0A 32 31 34 30 20 50 52 49 4E 54 20 22 49 "..2140 PRINT "I
000060: 4E 49 54 49 41 4C 20 41 44 56 41 4E 54 41 47 45 NITIAL ADVANTAGE
000070: 2C 20 59 4F 55 20 57 49 4C 4C 20 4E 4F 54 20 42 , YOU WILL NOT B
000080: 45 20 54 4F 4C 44 20 48 4F 57 20 54 4F 20 57 49 E TOLD HOW TO WI
000090: 4E 20 54 48 45 22 0D 0A 32 31 35 30 20 50 52 49 N THE"..2150 PRI
0000A0: 4E 54 20 22 47 41 4D 45 20 42 55 54 20 4D 55 53 NT "GAME BUT MUS
0000B0: 54 20 4C 45 41 52 4E 20 54 48 49 53 20 42 59 20 T LEARN THIS BY
0000C0: 50 4C 41 59 49 4E 47 2E 22 0D 0A 32 31 36 30 20 PLAYING."..2160
0000D0: 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 22 54 48 PRINT: PRINT "TH
0000E0: 45 20 4E 55 4D 42 45 52 49 4E 47 20 4F 46 20 54 E NUMBERING OF T
0000F0: 48 45 20 42 4F 41 52 44 20 49 53 20 41 53 20 46 HE BOARD IS AS F
000100: 4F 4C 4C 4F 57 53 3A 22 0D 0A 32 31 37 30 20 50 OLLOWS:"..2170 P
000110: 52 49 4E 54 20 54 41 42 28 31 30 29 3B 22 31 32 RINT TAB(10);"12
000120: 33 22 3A 20 50 52 49 4E 54 20 54 41 42 28 31 30 3": PRINT TAB(10
000130: 29 3B 22 34 35 36 22 3A 20 50 52 49 4E 54 20 54 );"456": PRINT T
000140: 41 42 28 31 30 29 3B 22 37 38 39 22 0D 0A 32 31 AB(10);"789"..21
000150: 38 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 20 80 PRINT: PRINT
000160: 22 46 4F 52 20 45 58 41 4D 50 4C 45 2C 20 54 4F "FOR EXAMPLE, TO
000170: 20 4D 4F 56 45 20 59 4F 55 52 20 52 49 47 48 54 MOVE YOUR RIGHT
000180: 4D 4F 53 54 20 50 41 57 4E 20 46 4F 52 57 41 52 MOST PAWN FORWAR
000190: 44 2C 22 0D 0A 32 31 39 30 20 50 52 49 4E 54 20 D,"..2190 PRINT
0001A0: 22 59 4F 55 20 57 4F 55 4C 44 20 54 59 50 45 20 "YOU WOULD TYPE
0001B0: 39 2C 36 20 49 4E 20 52 45 53 50 4F 4E 53 45 20 9,6 IN RESPONSE
0001C0: 54 4F 20 54 48 45 20 51 55 45 53 54 49 4F 4E 22 TO THE QUESTION"
0001D0: 0D 0A 32 32 30 30 20 50 52 49 4E 54 20 22 27 59 ..2200 PRINT "'Y
0001E0: 4F 55 52 20 4D 4F 56 45 20 3F 27 2E 20 20 53 49 OUR MOVE ?'. SI
0001F0: 4E 43 45 20 49 27 4D 20 41 20 47 4F 4F 44 20 53 NCE I'M A GOOD S
Size : 512 (Real : 512)
000000: 54 48 45 4E 20 31 32 30 0D 0A 37 39 30 20 4E 45 THEN 120..790 NE
000010: 58 54 20 49 0D 0A 38 30 30 20 50 52 49 4E 54 20 XT I..800 PRINT
000020: 22 59 4F 55 20 43 41 4E 27 54 20 4D 4F 56 45 2C "YOU CAN'T MOVE,
000030: 20 53 4F 20 22 3B 0D 0A 38 31 30 20 47 4F 54 4F SO ";..810 GOTO
000040: 20 38 37 30 0D 0A 38 32 30 20 50 52 49 4E 54 20 870..820 PRINT
000050: 22 59 4F 55 20 57 49 4E 2E 22 0D 0A 38 33 30 20 "YOU WIN."..830
000060: 4D 28 58 2C 59 29 3D 30 0D 0A 38 34 30 20 4C 3D M(X,Y)=0..840 L=
000070: 4C 2B 31 0D 0A 38 35 30 20 50 52 49 4E 54 20 22 L+1..850 PRINT "
000080: 49 20 48 41 56 45 20 57 4F 4E 22 3B 57 3B 22 41 I HAVE WON";W;"A
000090: 4E 44 20 59 4F 55 22 3B 4C 3B 22 4F 55 54 20 4F ND YOU";L;"OUT O
0000A0: 46 22 3B 4C 2B 57 3B 22 47 41 4D 45 53 2E 22 0D F";L+W;"GAMES.".
0000B0: 0A 38 35 31 20 50 52 49 4E 54 0D 0A 38 36 30 20 .851 PRINT..860
0000C0: 47 4F 54 4F 20 31 30 30 0D 0A 38 37 30 20 50 52 GOTO 100..870 PR
0000D0: 49 4E 54 20 22 49 20 57 49 4E 2E 22 0D 0A 38 38 INT "I WIN."..88
0000E0: 30 20 57 3D 57 2B 31 0D 0A 38 39 30 20 47 4F 54 0 W=W+1..890 GOT
0000F0: 4F 20 38 35 30 0D 0A 39 30 30 20 44 41 54 41 20 O 850..900 DATA
000100: 2D 31 2C 2D 31 2C 2D 31 2C 31 2C 30 2C 30 2C 30 -1,-1,-1,1,0,0,0
000110: 2C 31 2C 31 2C 2D 31 2C 2D 31 2C 2D 31 2C 30 2C ,1,1,-1,-1,-1,0,
000120: 31 2C 30 2C 31 2C 30 2C 31 0D 0A 39 30 35 20 44 1,0,1,0,1..905 D
000130: 41 54 41 20 2D 31 2C 30 2C 2D 31 2C 2D 31 2C 31 ATA -1,0,-1,-1,1
000140: 2C 30 2C 30 2C 30 2C 31 2C 30 2C 2D 31 2C 2D 31 ,0,0,0,1,0,-1,-1
000150: 2C 31 2C 2D 31 2C 30 2C 30 2C 30 2C 31 0D 0A 39 ,1,-1,0,0,0,1..9
000160: 31 30 20 44 41 54 41 20 2D 31 2C 30 2C 2D 31 2C 10 DATA -1,0,-1,
000170: 31 2C 31 2C 30 2C 30 2C 31 2C 30 2C 2D 31 2C 2D 1,1,0,0,1,0,-1,-
000180: 31 2C 30 2C 31 2C 30 2C 31 2C 30 2C 30 2C 31 0D 1,0,1,0,1,0,0,1.
000190: 0A 39 31 35 20 44 41 54 41 20 30 2C 2D 31 2C 2D .915 DATA 0,-1,-
0001A0: 31 2C 30 2C 2D 31 2C 31 2C 31 2C 30 2C 30 2C 30 1,0,-1,1,1,0,0,0
0001B0: 2C 2D 31 2C 2D 31 2C 2D 31 2C 31 2C 31 2C 31 2C ,-1,-1,-1,1,1,1,
0001C0: 30 2C 30 0D 0A 39 32 30 20 44 41 54 41 20 2D 31 0,0..920 DATA -1
0001D0: 2C 30 2C 2D 31 2C 2D 31 2C 30 2C 31 2C 30 2C 31 ,0,-1,-1,0,1,0,1
0001E0: 2C 30 2C 30 2C 2D 31 2C 2D 31 2C 30 2C 31 2C 30 ,0,0,-1,-1,0,1,0
0001F0: 2C 30 2C 30 2C 31 0D 0A 39 32 35 20 44 41 54 41 ,0,0,1..925 DATA
Size : 512 (Real : 512)
000000: 50 4F 52 54 2C 20 59 4F 55 27 4C 4C 20 41 4C 57 PORT, YOU'LL ALW
000010: 41 59 53 22 0D 0A 32 32 31 30 20 50 52 49 4E 54 AYS"..2210 PRINT
000020: 20 22 47 4F 20 46 49 52 53 54 2E 22 3A 20 50 52 "GO FIRST.": PR
000030: 49 4E 54 0D 0A 32 32 32 30 20 47 4F 54 4F 20 31 INT..2220 GOTO 1
000040: 30 30 0D 0A 39 39 39 39 20 45 4E 44 0D 0A 1A E5 00..9999 END....
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 30 2C 2D 31 2C 2D 31 2C 30 2C 31 2C 30 2C 31 0,-1,-1,0,1,0,1
000010: 2C 30 2C 30 2C 2D 31 2C 30 2C 2D 31 2C 31 2C 30 ,0,0,-1,0,-1,1,0
000020: 2C 30 2C 30 2C 30 2C 31 0D 0A 39 33 30 20 44 41 ,0,0,0,1..930 DA
000030: 54 41 20 30 2C 30 2C 2D 31 2C 2D 31 2C 2D 31 2C TA 0,0,-1,-1,-1,
000040: 31 2C 30 2C 30 2C 30 2C 2D 31 2C 30 2C 30 2C 31 1,0,0,0,-1,0,0,1
000050: 2C 31 2C 31 2C 30 2C 30 2C 30 0D 0A 39 33 35 20 ,1,1,0,0,0..935
000060: 44 41 54 41 20 30 2C 2D 31 2C 30 2C 2D 31 2C 31 DATA 0,-1,0,-1,1
000070: 2C 31 2C 30 2C 30 2C 30 2C 2D 31 2C 30 2C 30 2C ,1,0,0,0,-1,0,0,
000080: 2D 31 2C 2D 31 2C 31 2C 30 2C 30 2C 30 0D 0A 39 -1,-1,1,0,0,0..9
000090: 34 30 20 44 41 54 41 20 30 2C 30 2C 2D 31 2C 2D 40 DATA 0,0,-1,-
0000A0: 31 2C 31 2C 30 2C 30 2C 30 2C 30 2C 30 2C 2D 31 1,1,0,0,0,0,0,-1
0000B0: 2C 30 2C 31 2C 2D 31 2C 30 2C 30 2C 30 2C 30 0D ,0,1,-1,0,0,0,0.
0000C0: 0A 39 34 35 20 44 41 54 41 20 2D 31 2C 30 2C 30 .945 DATA -1,0,0
0000D0: 2C 2D 31 2C 31 2C 30 2C 30 2C 30 2C 30 0D 0A 39 ,-1,1,0,0,0,0..9
0000E0: 35 30 20 44 41 54 41 20 32 34 2C 32 35 2C 33 36 50 DATA 24,25,36
0000F0: 2C 30 2C 31 34 2C 31 35 2C 33 36 2C 30 2C 31 35 ,0,14,15,36,0,15
000100: 2C 33 35 2C 33 36 2C 34 37 2C 33 36 2C 35 38 2C ,35,36,47,36,58,
000110: 35 39 2C 30 0D 0A 39 35 35 20 44 41 54 41 20 31 59,0..955 DATA 1
000120: 35 2C 33 35 2C 33 36 2C 30 2C 32 34 2C 32 35 2C 5,35,36,0,24,25,
000130: 32 36 2C 30 2C 32 36 2C 35 37 2C 35 38 2C 30 0D 26,0,26,57,58,0.
000140: 0A 39 36 30 20 44 41 54 41 20 32 36 2C 33 35 2C .960 DATA 26,35,
000150: 30 2C 30 2C 34 37 2C 34 38 2C 30 2C 30 2C 33 35 0,0,47,48,0,0,35
000160: 2C 33 36 2C 30 2C 30 2C 33 35 2C 33 36 2C 30 2C ,36,0,0,35,36,0,
000170: 30 0D 0A 39 36 35 20 44 41 54 41 20 33 36 2C 30 0..965 DATA 36,0
000180: 2C 30 2C 30 2C 34 37 2C 35 38 2C 30 2C 30 2C 31 ,0,0,47,58,0,0,1
000190: 35 2C 30 2C 30 2C 30 0D 0A 39 37 30 20 44 41 54 5,0,0,0..970 DAT
0001A0: 41 20 32 36 2C 34 37 2C 30 2C 30 2C 34 37 2C 35 A 26,47,0,0,47,5
0001B0: 38 2C 30 2C 30 2C 33 35 2C 33 36 2C 34 37 2C 30 8,0,0,35,36,47,0
0001C0: 2C 32 38 2C 35 38 2C 30 2C 30 2C 31 35 2C 34 37 ,28,58,0,0,15,47
0001D0: 2C 30 2C 30 0D 0A 31 30 30 30 20 50 52 49 4E 54 ,0,0..1000 PRINT
0001E0: 0D 0A 31 30 31 30 20 46 4F 52 20 49 3D 31 20 54 ..1010 FOR I=1 T
0001F0: 4F 20 33 0D 0A 31 30 32 30 20 46 4F 52 20 4A 3D O 3..1020 FOR J=
Size : 512 (Real : 512)
000000: 31 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 1 PRINT TAB(33);
000010: 22 48 2D 49 2D 51 22 0D 0A 32 20 50 52 49 4E 54 "H-I-Q"..2 PRINT
000020: 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 49 TAB(15);"CREATI
000030: 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D 4F VE COMPUTING MO
000040: 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A 45 RRISTOWN, NEW JE
000050: 52 53 45 59 22 0D 0A 33 20 50 52 49 4E 54 3A 50 RSEY"..3 PRINT:P
000060: 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 34 20 44 49 RINT:PRINT..4 DI
000070: 4D 20 42 28 37 30 29 2C 54 28 39 2C 39 29 0D 0A M B(70),T(9,9)..
000080: 35 20 50 52 49 4E 54 20 22 48 45 52 45 20 49 53 5 PRINT "HERE IS
000090: 20 54 48 45 20 42 4F 41 52 44 3A 22 3A 20 50 52 THE BOARD:": PR
0000A0: 49 4E 54 0D 0A 36 20 50 52 49 4E 54 20 22 20 20 INT..6 PRINT "
0000B0: 20 20 20 20 20 20 20 20 21 20 20 20 20 21 20 20 ! !
0000C0: 20 20 21 22 0D 0A 37 20 50 52 49 4E 54 20 22 20 !"..7 PRINT "
0000D0: 20 20 20 20 20 20 20 20 31 33 20 20 20 31 34 20 13 14
0000E0: 20 20 31 35 22 3A 20 50 52 49 4E 54 0D 0A 38 20 15": PRINT..8
0000F0: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 PRINT "
000100: 20 21 20 20 20 20 21 20 20 20 20 21 22 0D 0A 39 ! ! !"..9
000110: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
000120: 20 32 32 20 20 20 32 33 20 20 20 32 34 22 3A 20 22 23 24":
000130: 50 52 49 4E 54 0D 0A 31 30 20 50 52 49 4E 54 20 PRINT..10 PRINT
000140: 22 21 20 20 20 20 21 20 20 20 20 21 20 20 20 20 "! ! !
000150: 21 20 20 20 20 21 20 20 20 20 21 20 20 20 20 21 ! ! ! !
000160: 22 0D 0A 31 31 20 50 52 49 4E 54 20 22 32 39 20 "..11 PRINT "29
000170: 20 20 33 30 20 20 20 33 31 20 20 20 33 32 20 20 30 31 32
000180: 20 33 33 20 20 20 33 34 20 20 20 33 35 22 3A 20 33 34 35":
000190: 50 52 49 4E 54 0D 0A 31 32 20 50 52 49 4E 54 20 PRINT..12 PRINT
0001A0: 22 21 20 20 20 20 21 20 20 20 20 21 20 20 20 20 "! ! !
0001B0: 21 20 20 20 20 21 20 20 20 20 21 20 20 20 20 21 ! ! ! !
0001C0: 22 0D 0A 31 33 20 50 52 49 4E 54 20 22 33 38 20 "..13 PRINT "38
0001D0: 20 20 33 39 20 20 20 34 30 20 20 20 34 31 20 20 39 40 41
0001E0: 20 34 32 20 20 20 34 33 20 20 20 34 34 22 3A 20 42 43 44":
0001F0: 50 52 49 4E 54 0D 0A 31 34 20 50 52 49 4E 54 20 PRINT..14 PRINT
Size : 512 (Real : 512)
000000: 31 20 54 4F 20 33 0D 0A 31 30 33 30 20 50 52 49 1 TO 3..1030 PRI
000010: 4E 54 20 54 41 42 28 31 30 29 3B 4D 49 44 24 28 NT TAB(10);MID$(
000020: 50 24 2C 53 28 28 49 2D 31 29 2A 33 2B 4A 29 2B P$,S((I-1)*3+J)+
000030: 32 2C 31 29 3B 0D 0A 31 30 34 30 20 4E 45 58 54 2,1);..1040 NEXT
000040: 20 4A 0D 0A 31 30 35 30 20 50 52 49 4E 54 0D 0A J..1050 PRINT..
000050: 31 30 36 30 20 4E 45 58 54 20 49 0D 0A 31 30 37 1060 NEXT I..107
000060: 30 20 50 52 49 4E 54 0D 0A 31 30 38 30 20 52 45 0 PRINT..1080 RE
000070: 54 55 52 4E 0D 0A 32 30 30 30 20 50 52 49 4E 54 TURN..2000 PRINT
000080: 3A 20 50 52 49 4E 54 20 22 54 48 49 53 20 50 52 : PRINT "THIS PR
000090: 4F 47 52 41 4D 20 50 4C 41 59 53 20 54 48 45 20 OGRAM PLAYS THE
0000A0: 47 41 4D 45 20 4F 46 20 48 45 58 41 50 41 57 4E GAME OF HEXAPAWN
0000B0: 2E 22 0D 0A 32 30 31 30 20 50 52 49 4E 54 20 22 ."..2010 PRINT "
0000C0: 48 45 58 41 50 41 57 4E 20 49 53 20 50 4C 41 59 HEXAPAWN IS PLAY
0000D0: 45 44 20 57 49 54 48 20 43 48 45 53 53 20 50 41 ED WITH CHESS PA
0000E0: 57 4E 53 20 4F 4E 20 41 20 33 20 42 59 20 33 20 WNS ON A 3 BY 3
0000F0: 42 4F 41 52 44 2E 22 0D 0A 32 30 32 30 20 50 52 BOARD."..2020 PR
000100: 49 4E 54 20 22 54 48 45 20 50 41 57 4E 53 20 41 INT "THE PAWNS A
000110: 52 45 20 4D 4F 56 45 44 20 41 53 20 49 4E 20 43 RE MOVED AS IN C
000120: 48 45 53 53 20 2D 20 4F 4E 45 20 53 50 41 43 45 HESS - ONE SPACE
000130: 20 46 4F 52 57 41 52 44 20 54 4F 22 0D 0A 32 30 FORWARD TO"..20
000140: 33 30 20 50 52 49 4E 54 20 22 41 4E 20 45 4D 50 30 PRINT "AN EMP
000150: 54 59 20 53 50 41 43 45 20 4F 52 20 4F 4E 45 20 TY SPACE OR ONE
000160: 53 50 41 43 45 20 46 4F 52 57 41 52 44 20 41 4E SPACE FORWARD AN
000170: 44 20 44 49 41 47 4F 4E 41 4C 4C 59 20 54 4F 22 D DIAGONALLY TO"
000180: 0D 0A 32 30 34 30 20 50 52 49 4E 54 20 22 43 41 ..2040 PRINT "CA
000190: 50 54 55 52 45 20 41 4E 20 4F 50 50 4F 53 49 4E PTURE AN OPPOSIN
0001A0: 47 20 4D 41 4E 2E 20 20 4F 4E 20 54 48 45 20 42 G MAN. ON THE B
0001B0: 4F 41 52 44 2C 20 59 4F 55 52 20 50 41 57 4E 53 OARD, YOUR PAWNS
0001C0: 22 0D 0A 32 30 35 30 20 50 52 49 4E 54 20 22 41 "..2050 PRINT "A
0001D0: 52 45 20 27 4F 27 2C 20 54 48 45 20 43 4F 4D 50 RE 'O', THE COMP
0001E0: 55 54 45 52 27 53 20 50 41 57 4E 53 20 41 52 45 UTER'S PAWNS ARE
0001F0: 20 27 58 27 2C 20 41 4E 44 20 45 4D 50 54 59 20 'X', AND EMPTY
Size : 512 (Real : 512)
000000: 22 21 20 20 20 20 21 20 20 20 20 21 20 20 20 20 "! ! !
000010: 21 20 20 20 20 21 20 20 20 20 21 20 20 20 20 21 ! ! ! !
000020: 22 0D 0A 31 35 20 50 52 49 4E 54 20 22 34 37 20 "..15 PRINT "47
000030: 20 20 34 38 20 20 20 34 39 20 20 20 35 30 20 20 48 49 50
000040: 20 35 31 20 20 20 35 32 20 20 20 35 33 22 3A 20 51 52 53":
000050: 50 52 49 4E 54 0D 0A 31 36 20 50 52 49 4E 54 20 PRINT..16 PRINT
000060: 22 20 20 20 20 20 20 20 20 20 20 21 20 20 20 20 " !
000070: 21 20 20 20 20 21 22 0D 0A 31 37 20 50 52 49 4E ! !"..17 PRIN
000080: 54 20 22 20 20 20 20 20 20 20 20 20 35 38 20 20 T " 58
000090: 20 35 39 20 20 20 36 30 22 3A 20 50 52 49 4E 54 59 60": PRINT
0000A0: 0D 0A 31 38 20 50 52 49 4E 54 20 22 20 20 20 20 ..18 PRINT "
0000B0: 20 20 20 20 20 20 21 20 20 20 20 21 20 20 20 20 ! !
0000C0: 21 22 0D 0A 31 39 20 50 52 49 4E 54 20 22 20 20 !"..19 PRINT "
0000D0: 20 20 20 20 20 20 20 36 37 20 20 20 36 38 20 20 67 68
0000E0: 20 36 39 22 3A 20 50 52 49 4E 54 0D 0A 32 30 20 69": PRINT..20
0000F0: 50 52 49 4E 54 20 22 54 4F 20 53 41 56 45 20 54 PRINT "TO SAVE T
000100: 59 50 49 4E 47 20 54 49 4D 45 2C 20 41 20 43 4F YPING TIME, A CO
000110: 4D 50 52 45 53 53 45 44 20 56 45 52 53 49 4F 4E MPRESSED VERSION
000120: 20 4F 46 20 54 48 45 20 47 41 4D 45 20 42 4F 41 OF THE GAME BOA
000130: 52 44 22 0D 0A 32 32 20 50 52 49 4E 54 20 22 57 RD"..22 PRINT "W
000140: 49 4C 4C 20 42 45 20 55 53 45 44 20 44 55 52 49 ILL BE USED DURI
000150: 4E 47 20 50 4C 41 59 2E 20 20 52 45 46 45 52 20 NG PLAY. REFER
000160: 54 4F 20 54 48 45 20 41 42 4F 56 45 20 4F 4E 45 TO THE ABOVE ONE
000170: 20 46 4F 52 20 50 45 47 22 0D 0A 32 34 20 50 52 FOR PEG"..24 PR
000180: 49 4E 54 20 22 4E 55 4D 42 45 52 53 2E 20 20 4F INT "NUMBERS. O
000190: 4B 2C 20 4C 45 54 27 53 20 42 45 47 49 4E 2E 22 K, LET'S BEGIN."
0001A0: 0D 0A 32 38 20 52 45 4D 20 2A 2A 2A 20 53 45 54 ..28 REM *** SET
0001B0: 20 55 50 20 42 4F 41 52 44 0D 0A 32 39 20 46 4F UP BOARD..29 FO
0001C0: 52 20 52 3D 31 20 54 4F 20 39 0D 0A 33 30 20 46 R R=1 TO 9..30 F
0001D0: 4F 52 20 43 3D 31 20 54 4F 20 39 0D 0A 33 31 20 OR C=1 TO 9..31
0001E0: 49 46 20 28 52 2D 34 29 2A 28 52 2D 35 29 2A 28 IF (R-4)*(R-5)*(
0001F0: 52 2D 36 29 3D 30 20 54 48 45 4E 20 34 30 0D 0A R-6)=0 THEN 40..
Size : 512 (Real : 512)
000000: 31 20 54 4F 20 52 2B 31 0D 0A 31 35 37 31 20 54 1 TO R+1..1571 T
000010: 3D 54 2B 54 28 59 2C 58 29 0D 0A 31 35 37 32 20 =T+T(Y,X)..1572
000020: 4E 45 58 54 20 59 0D 0A 31 35 37 33 20 49 46 20 NEXT Y..1573 IF
000030: 54 3C 3E 31 30 20 54 48 45 4E 20 31 35 37 35 0D T<>10 THEN 1575.
000040: 0A 31 35 37 34 20 49 46 20 54 28 52 2C 58 29 3C .1574 IF T(R,X)<
000050: 3E 30 20 54 48 45 4E 20 31 36 33 30 0D 0A 31 35 >0 THEN 1630..15
000060: 37 35 20 4E 45 58 54 20 58 0D 0A 31 35 38 30 20 75 NEXT X..1580
000070: 4E 45 58 54 20 43 0D 0A 31 35 39 30 20 4E 45 58 NEXT C..1590 NEX
000080: 54 20 52 0D 0A 31 36 30 30 20 52 45 4D 20 2A 2A T R..1600 REM **
000090: 2A 20 47 41 4D 45 20 49 53 20 4F 56 45 52 0D 0A * GAME IS OVER..
0000A0: 31 36 30 35 20 50 52 49 4E 54 20 22 54 48 45 20 1605 PRINT "THE
0000B0: 47 41 4D 45 20 49 53 20 4F 56 45 52 2E 22 0D 0A GAME IS OVER."..
0000C0: 31 36 31 30 20 50 52 49 4E 54 20 22 59 4F 55 20 1610 PRINT "YOU
0000D0: 48 41 44 22 3B 46 3B 22 50 49 45 43 45 53 20 52 HAD";F;"PIECES R
0000E0: 45 4D 41 49 4E 49 4E 47 2E 22 0D 0A 31 36 31 31 EMAINING."..1611
0000F0: 20 49 46 20 46 3C 3E 31 20 54 48 45 4E 20 31 36 IF F<>1 THEN 16
000100: 31 35 0D 0A 31 36 31 32 20 50 52 49 4E 54 20 22 15..1612 PRINT "
000110: 42 52 41 56 4F 21 20 20 59 4F 55 20 4D 41 44 45 BRAVO! YOU MADE
000120: 20 41 20 50 45 52 46 45 43 54 20 53 43 4F 52 45 A PERFECT SCORE
000130: 21 22 0D 0A 31 36 31 33 20 50 52 49 4E 54 20 22 !"..1613 PRINT "
000140: 53 41 56 45 20 54 48 49 53 20 50 41 50 45 52 20 SAVE THIS PAPER
000150: 41 53 20 41 20 52 45 43 4F 52 44 20 4F 46 20 59 AS A RECORD OF Y
000160: 4F 55 52 20 41 43 43 4F 4D 50 4C 49 53 48 4D 45 OUR ACCOMPLISHME
000170: 4E 54 21 22 0D 0A 31 36 31 35 20 50 52 49 4E 54 NT!"..1615 PRINT
000180: 3A 20 49 4E 50 55 54 20 22 50 4C 41 59 20 41 47 : INPUT "PLAY AG
000190: 41 49 4E 20 28 59 45 53 20 4F 52 20 4E 4F 29 22 AIN (YES OR NO)"
0001A0: 3B 41 24 0D 0A 31 36 31 37 20 49 46 20 41 24 3D ;A$..1617 IF A$=
0001B0: 22 4E 4F 22 20 54 48 45 4E 20 32 30 30 30 0D 0A "NO" THEN 2000..
0001C0: 31 36 31 38 20 52 45 53 54 4F 52 45 3A 20 47 4F 1618 RESTORE: GO
0001D0: 54 4F 20 32 38 0D 0A 31 36 32 30 20 53 54 4F 50 TO 28..1620 STOP
0001E0: 0D 0A 31 36 33 30 20 52 45 54 55 52 4E 0D 0A 32 ..1630 RETURN..2
0001F0: 30 30 30 20 50 52 49 4E 54 3A 20 50 52 49 4E 54 000 PRINT: PRINT
Size : 512 (Real : 512)
000000: 33 32 20 49 46 20 28 43 2D 34 29 2A 28 43 2D 35 32 IF (C-4)*(C-5
000010: 29 2A 28 43 2D 36 29 3D 30 20 54 48 45 4E 20 34 )*(C-6)=0 THEN 4
000020: 30 0D 0A 33 35 20 54 28 52 2C 43 29 3D 2D 35 0D 0..35 T(R,C)=-5.
000030: 0A 33 36 20 47 4F 54 4F 20 35 30 0D 0A 34 30 20 .36 GOTO 50..40
000040: 49 46 20 28 52 2D 31 29 2A 28 43 2D 31 29 2A 28 IF (R-1)*(C-1)*(
000050: 52 2D 39 29 2A 28 43 2D 39 29 3D 30 20 54 48 45 R-9)*(C-9)=0 THE
000060: 4E 20 33 35 0D 0A 34 32 20 54 28 52 2C 43 29 3D N 35..42 T(R,C)=
000070: 35 0D 0A 35 30 20 4E 45 58 54 20 43 0D 0A 36 30 5..50 NEXT C..60
000080: 20 4E 45 58 54 20 52 0D 0A 36 35 20 54 28 35 2C NEXT R..65 T(5,
000090: 35 29 3D 30 3A 20 47 4F 53 55 42 20 35 30 30 0D 5)=0: GOSUB 500.
0000A0: 0A 37 30 20 52 45 4D 20 2A 2A 2A 20 49 4E 50 55 .70 REM *** INPU
0000B0: 54 20 4D 4F 56 45 20 41 4E 44 20 43 48 45 43 4B T MOVE AND CHECK
0000C0: 20 4F 4E 20 4C 45 47 41 4C 49 54 59 0D 0A 37 35 ON LEGALITY..75
0000D0: 20 46 4F 52 20 57 3D 31 20 54 4F 20 33 33 0D 0A FOR W=1 TO 33..
0000E0: 37 37 20 52 45 41 44 20 4D 0D 0A 37 39 20 44 41 77 READ M..79 DA
0000F0: 54 41 20 31 33 2C 31 34 2C 31 35 2C 32 32 2C 32 TA 13,14,15,22,2
000100: 33 2C 32 34 2C 32 39 2C 33 30 2C 33 31 2C 33 32 3,24,29,30,31,32
000110: 2C 33 33 2C 33 34 2C 33 35 2C 33 38 2C 33 39 2C ,33,34,35,38,39,
000120: 34 30 2C 34 31 0D 0A 38 31 20 44 41 54 41 20 34 40,41..81 DATA 4
000130: 32 2C 34 33 2C 34 34 2C 34 37 2C 34 38 2C 34 39 2,43,44,47,48,49
000140: 2C 35 30 2C 35 31 2C 35 32 2C 35 33 2C 35 38 2C ,50,51,52,53,58,
000150: 35 39 2C 36 30 2C 36 37 2C 36 38 2C 36 39 0D 0A 59,60,67,68,69..
000160: 38 33 20 42 28 4D 29 3D 2D 37 3A 20 4E 45 58 54 83 B(M)=-7: NEXT
000170: 20 57 0D 0A 38 36 20 42 28 34 31 29 3D 2D 33 0D W..86 B(41)=-3.
000180: 0A 31 30 30 20 49 4E 50 55 54 20 22 4D 4F 56 45 .100 INPUT "MOVE
000190: 20 57 48 49 43 48 20 50 49 45 43 45 22 3B 5A 0D WHICH PIECE";Z.
0001A0: 0A 31 31 30 20 49 46 20 42 28 5A 29 3D 2D 37 20 .110 IF B(Z)=-7
0001B0: 54 48 45 4E 20 31 34 30 0D 0A 31 32 30 20 50 52 THEN 140..120 PR
0001C0: 49 4E 54 20 22 49 4C 4C 45 47 41 4C 20 4D 4F 56 INT "ILLEGAL MOV
0001D0: 45 2C 20 54 52 59 20 41 47 41 49 4E 2E 2E 2E 22 E, TRY AGAIN..."
0001E0: 3A 20 47 4F 54 4F 20 31 30 30 0D 0A 31 34 30 20 : GOTO 100..140
0001F0: 49 4E 50 55 54 20 22 54 4F 20 57 48 45 52 45 22 INPUT "TO WHERE"
Size : 512 (Real : 512)
000000: 20 22 53 4F 20 4C 4F 4E 47 20 46 4F 52 20 4E 4F "SO LONG FOR NO
000010: 57 2E 22 3A 20 50 52 49 4E 54 0D 0A 32 30 31 30 W.": PRINT..2010
000020: 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 END............
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 3B 50 0D 0A 31 35 30 20 49 46 20 42 28 50 29 3D ;P..150 IF B(P)=
000010: 30 20 54 48 45 4E 20 31 32 30 0D 0A 31 35 33 20 0 THEN 120..153
000020: 49 46 20 42 28 50 29 3D 2D 37 20 54 48 45 4E 20 IF B(P)=-7 THEN
000030: 31 32 30 0D 0A 31 35 36 20 49 46 20 5A 3D 50 20 120..156 IF Z=P
000040: 54 48 45 4E 20 31 30 30 0D 0A 31 36 30 20 49 46 THEN 100..160 IF
000050: 20 28 28 5A 2B 50 29 2F 32 29 3D 49 4E 54 28 28 ((Z+P)/2)=INT((
000060: 5A 2B 50 29 2F 32 29 20 54 48 45 4E 20 31 38 30 Z+P)/2) THEN 180
000070: 0D 0A 31 37 30 20 47 4F 54 4F 20 31 32 30 0D 0A ..170 GOTO 120..
000080: 31 38 30 20 49 46 20 28 41 42 53 28 5A 2D 50 29 180 IF (ABS(Z-P)
000090: 2D 32 29 2A 28 41 42 53 28 5A 2D 50 29 2D 31 38 -2)*(ABS(Z-P)-18
0000A0: 29 3C 3E 30 20 54 48 45 4E 20 31 32 30 0D 0A 31 )<>0 THEN 120..1
0000B0: 39 30 20 47 4F 53 55 42 20 31 30 30 30 0D 0A 32 90 GOSUB 1000..2
0000C0: 30 30 20 47 4F 53 55 42 20 35 30 30 0D 0A 32 31 00 GOSUB 500..21
0000D0: 30 20 47 4F 53 55 42 20 31 35 30 30 0D 0A 32 32 0 GOSUB 1500..22
0000E0: 30 20 47 4F 54 4F 20 31 30 30 0D 0A 35 30 30 20 0 GOTO 100..500
0000F0: 52 45 4D 20 2A 2A 2A 20 50 52 49 4E 54 20 42 4F REM *** PRINT BO
000100: 41 52 44 0D 0A 35 31 30 20 46 4F 52 20 58 3D 31 ARD..510 FOR X=1
000110: 20 54 4F 20 39 0D 0A 35 32 30 20 46 4F 52 20 59 TO 9..520 FOR Y
000120: 3D 31 20 54 4F 20 39 0D 0A 35 32 35 20 49 46 20 =1 TO 9..525 IF
000130: 28 58 2D 31 29 2A 28 58 2D 39 29 2A 28 59 2D 31 (X-1)*(X-9)*(Y-1
000140: 29 2A 28 59 2D 39 29 3D 30 20 54 48 45 4E 20 35 )*(Y-9)=0 THEN 5
000150: 35 30 0D 0A 35 33 30 20 49 46 20 28 58 2D 34 29 50..530 IF (X-4)
000160: 2A 28 58 2D 35 29 2A 28 58 2D 36 29 3D 30 20 54 *(X-5)*(X-6)=0 T
000170: 48 45 4E 20 35 37 30 0D 0A 35 34 30 20 49 46 20 HEN 570..540 IF
000180: 28 59 2D 34 29 2A 28 59 2D 35 29 2A 28 59 2D 36 (Y-4)*(Y-5)*(Y-6
000190: 29 3D 30 20 54 48 45 4E 20 35 37 30 0D 0A 35 35 )=0 THEN 570..55
0001A0: 30 20 52 45 4D 0D 0A 35 36 30 20 47 4F 54 4F 20 0 REM..560 GOTO
0001B0: 36 31 30 0D 0A 35 37 30 20 49 46 20 54 28 58 2C 610..570 IF T(X,
0001C0: 59 29 3C 3E 35 20 54 48 45 4E 20 36 30 30 0D 0A Y)<>5 THEN 600..
0001D0: 35 38 30 20 50 52 49 4E 54 20 54 41 42 28 59 2A 580 PRINT TAB(Y*
0001E0: 32 29 3B 22 21 22 3B 0D 0A 35 39 30 20 47 4F 54 2);"!";..590 GOT
0001F0: 4F 20 36 31 30 0D 0A 36 30 30 20 50 52 49 4E 54 O 610..600 PRINT
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 34 29 10 PRINT TAB(34)
000010: 3B 22 48 49 20 4C 4F 22 0D 0A 32 30 20 50 52 49 ;"HI LO"..20 PRI
000020: 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 NT TAB(15);"CREA
000030: 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 TIVE COMPUTING
000040: 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 MORRISTOWN, NEW
000050: 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 4E JERSEY"..30 PRIN
000060: 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 T:PRINT:PRINT..1
000070: 30 30 20 50 52 49 4E 54 20 22 54 48 49 53 20 49 00 PRINT "THIS I
000080: 53 20 54 48 45 20 47 41 4D 45 20 4F 46 20 48 49 S THE GAME OF HI
000090: 20 4C 4F 2E 22 3A 50 52 49 4E 54 0D 0A 31 31 30 LO.":PRINT..110
0000A0: 20 50 52 49 4E 54 20 22 59 4F 55 20 57 49 4C 4C PRINT "YOU WILL
0000B0: 20 48 41 56 45 20 36 20 54 52 49 45 53 20 54 4F HAVE 6 TRIES TO
0000C0: 20 47 55 45 53 53 20 54 48 45 20 41 4D 4F 55 4E GUESS THE AMOUN
0000D0: 54 20 4F 46 20 4D 4F 4E 45 59 20 49 4E 20 54 48 T OF MONEY IN TH
0000E0: 45 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 48 E"..120 PRINT "H
0000F0: 49 20 4C 4F 20 4A 41 43 4B 50 4F 54 2C 20 57 48 I LO JACKPOT, WH
000100: 49 43 48 20 49 53 20 42 45 54 57 45 45 4E 20 31 ICH IS BETWEEN 1
000110: 20 41 4E 44 20 31 30 30 20 44 4F 4C 4C 41 52 53 AND 100 DOLLARS
000120: 2E 20 20 49 46 20 59 4F 55 22 0D 0A 31 33 30 20 . IF YOU"..130
000130: 50 52 49 4E 54 20 22 47 55 45 53 53 20 54 48 45 PRINT "GUESS THE
000140: 20 41 4D 4F 55 4E 54 2C 20 59 4F 55 20 57 49 4E AMOUNT, YOU WIN
000150: 20 41 4C 4C 20 54 48 45 20 4D 4F 4E 45 59 20 49 ALL THE MONEY I
000160: 4E 20 54 48 45 20 4A 41 43 4B 50 4F 54 21 22 0D N THE JACKPOT!".
000170: 0A 31 34 30 20 50 52 49 4E 54 20 22 54 48 45 4E .140 PRINT "THEN
000180: 20 59 4F 55 20 47 45 54 20 41 4E 4F 54 48 45 52 YOU GET ANOTHER
000190: 20 43 48 41 4E 43 45 20 54 4F 20 57 49 4E 20 4D CHANCE TO WIN M
0001A0: 4F 52 45 20 4D 4F 4E 45 59 2E 20 20 48 4F 57 45 ORE MONEY. HOWE
0001B0: 56 45 52 2C 22 0D 0A 31 35 30 20 50 52 49 4E 54 VER,"..150 PRINT
0001C0: 20 22 49 46 20 59 4F 55 20 44 4F 20 4E 4F 54 20 "IF YOU DO NOT
0001D0: 47 55 45 53 53 20 54 48 45 20 41 4D 4F 55 4E 54 GUESS THE AMOUNT
0001E0: 2C 20 54 48 45 20 47 41 4D 45 20 45 4E 44 53 2E , THE GAME ENDS.
0001F0: 22 3A 50 52 49 4E 54 0D 0A 31 36 30 20 52 3D 30 ":PRINT..160 R=0
Size : 512 (Real : 512)
000000: 20 54 41 42 28 59 2A 32 29 3B 22 4F 22 3B 0D 0A TAB(Y*2);"O";..
000010: 36 31 30 20 52 45 4D 0D 0A 36 31 35 20 4E 45 58 610 REM..615 NEX
000020: 54 20 59 0D 0A 36 32 30 20 50 52 49 4E 54 0D 0A T Y..620 PRINT..
000030: 36 33 30 20 4E 45 58 54 20 58 0D 0A 36 34 30 20 630 NEXT X..640
000040: 52 45 54 55 52 4E 0D 0A 31 30 30 30 20 52 45 4D RETURN..1000 REM
000050: 20 2A 2A 2A 20 55 50 44 41 54 45 20 42 4F 41 52 *** UPDATE BOAR
000060: 44 0D 0A 31 30 30 35 20 43 3D 31 3A 20 46 4F 52 D..1005 C=1: FOR
000070: 20 58 3D 31 20 54 4F 20 39 0D 0A 31 30 32 30 20 X=1 TO 9..1020
000080: 46 4F 52 20 59 3D 31 20 54 4F 20 39 0D 0A 31 30 FOR Y=1 TO 9..10
000090: 33 30 20 49 46 20 43 3C 3E 5A 20 54 48 45 4E 20 30 IF C<>Z THEN
0000A0: 31 32 32 30 0D 0A 31 30 34 30 20 49 46 20 43 2B 1220..1040 IF C+
0000B0: 32 3C 3E 50 20 54 48 45 4E 20 31 30 38 30 0D 0A 2<>P THEN 1080..
0000C0: 31 30 34 35 20 49 46 20 54 28 58 2C 59 2B 31 29 1045 IF T(X,Y+1)
0000D0: 3D 30 20 54 48 45 4E 20 31 32 30 0D 0A 31 30 35 =0 THEN 120..105
0000E0: 30 20 54 28 58 2C 59 2B 32 29 3D 35 0D 0A 31 30 0 T(X,Y+2)=5..10
0000F0: 36 30 20 54 28 58 2C 59 2B 31 29 3D 30 3A 20 42 60 T(X,Y+1)=0: B
000100: 28 43 2B 31 29 3D 2D 33 0D 0A 31 30 37 30 20 47 (C+1)=-3..1070 G
000110: 4F 54 4F 20 31 32 30 30 0D 0A 31 30 38 30 20 49 OTO 1200..1080 I
000120: 46 20 43 2B 31 38 3C 3E 50 20 54 48 45 4E 20 31 F C+18<>P THEN 1
000130: 31 33 30 0D 0A 31 30 38 35 20 49 46 20 54 28 58 130..1085 IF T(X
000140: 2B 31 2C 59 29 3D 30 20 54 48 45 4E 20 31 32 30 +1,Y)=0 THEN 120
000150: 0D 0A 31 30 39 30 20 54 28 58 2B 32 2C 59 29 3D ..1090 T(X+2,Y)=
000160: 35 3A 20 54 28 58 2B 31 2C 59 29 3D 30 3A 20 42 5: T(X+1,Y)=0: B
000170: 28 43 2B 39 29 3D 2D 33 0D 0A 31 31 32 30 20 47 (C+9)=-3..1120 G
000180: 4F 54 4F 20 31 32 30 30 0D 0A 31 31 33 30 20 49 OTO 1200..1130 I
000190: 46 20 43 2D 32 3C 3E 50 20 54 48 45 4E 20 31 31 F C-2<>P THEN 11
0001A0: 37 30 0D 0A 31 31 33 35 20 49 46 20 54 28 58 2C 70..1135 IF T(X,
0001B0: 59 2D 31 29 3D 30 20 54 48 45 4E 20 31 32 30 0D Y-1)=0 THEN 120.
0001C0: 0A 31 31 34 30 20 54 28 58 2C 59 2D 32 29 3D 35 .1140 T(X,Y-2)=5
0001D0: 3A 20 54 28 58 2C 59 2D 31 29 3D 30 3A 20 42 28 : T(X,Y-1)=0: B(
0001E0: 43 2D 31 29 3D 2D 33 0D 0A 31 31 36 30 20 47 4F C-1)=-3..1160 GO
0001F0: 54 4F 20 31 32 30 30 0D 0A 31 31 37 30 20 49 46 TO 1200..1170 IF
Size : 512 (Real : 512)
000000: 0D 0A 31 37 30 20 42 3D 30 3A 50 52 49 4E 54 0D ..170 B=0:PRINT.
000010: 0A 31 38 30 20 59 3D 49 4E 54 28 31 30 30 2A 52 .180 Y=INT(100*R
000020: 4E 44 28 31 29 29 0D 0A 32 30 30 20 50 52 49 4E ND(1))..200 PRIN
000030: 54 20 22 59 4F 55 52 20 47 55 45 53 53 22 3B 0D T "YOUR GUESS";.
000040: 0A 32 31 30 20 49 4E 50 55 54 20 41 0D 0A 32 32 .210 INPUT A..22
000050: 30 20 42 3D 42 2B 31 0D 0A 32 33 30 20 49 46 20 0 B=B+1..230 IF
000060: 41 3D 59 20 54 48 45 4E 20 33 30 30 0D 0A 32 34 A=Y THEN 300..24
000070: 30 20 49 46 20 41 3E 59 20 54 48 45 4E 20 32 37 0 IF A>Y THEN 27
000080: 30 0D 0A 32 35 30 20 50 52 49 4E 54 20 22 59 4F 0..250 PRINT "YO
000090: 55 52 20 47 55 45 53 53 20 49 53 20 54 4F 4F 20 UR GUESS IS TOO
0000A0: 4C 4F 57 2E 22 3A 47 4F 54 4F 20 32 38 30 0D 0A LOW.":GOTO 280..
0000B0: 32 37 30 20 50 52 49 4E 54 20 22 59 4F 55 52 20 270 PRINT "YOUR
0000C0: 47 55 45 53 53 20 49 53 20 54 4F 4F 20 48 49 47 GUESS IS TOO HIG
0000D0: 48 2E 22 0D 0A 32 38 30 20 50 52 49 4E 54 3A 49 H."..280 PRINT:I
0000E0: 46 20 42 3C 36 20 54 48 45 4E 20 32 30 30 0D 0A F B<6 THEN 200..
0000F0: 32 39 30 20 50 52 49 4E 54 20 22 59 4F 55 20 42 290 PRINT "YOU B
000100: 4C 45 57 20 49 54 2E 2E 2E 54 4F 4F 20 42 41 44 LEW IT...TOO BAD
000110: 2E 2E 2E 54 48 45 20 4E 55 4D 42 45 52 20 57 41 ...THE NUMBER WA
000120: 53 22 3B 59 0D 0A 32 39 35 20 52 3D 30 3A 47 4F S";Y..295 R=0:GO
000130: 54 4F 20 33 35 30 0D 0A 33 30 30 20 50 52 49 4E TO 350..300 PRIN
000140: 54 20 22 47 4F 54 20 49 54 21 21 21 21 21 21 21 T "GOT IT!!!!!!!
000150: 21 21 21 20 20 20 59 4F 55 20 57 49 4E 22 3B 59 !!! YOU WIN";Y
000160: 3B 22 44 4F 4C 4C 41 52 53 2E 22 0D 0A 33 31 30 ;"DOLLARS."..310
000170: 20 52 3D 52 2B 59 0D 0A 33 32 30 20 50 52 49 4E R=R+Y..320 PRIN
000180: 54 20 22 59 4F 55 52 20 54 4F 54 41 4C 20 57 49 T "YOUR TOTAL WI
000190: 4E 4E 49 4E 47 53 20 41 52 45 20 4E 4F 57 22 3B NNINGS ARE NOW";
0001A0: 52 3B 22 44 4F 4C 4C 41 52 53 2E 22 0D 0A 33 35 R;"DOLLARS."..35
0001B0: 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 50 0 PRINT:PRINT "P
0001C0: 4C 41 59 20 41 47 41 49 4E 20 28 59 45 53 20 4F LAY AGAIN (YES O
0001D0: 52 20 4E 4F 29 22 3B 0D 0A 33 36 30 20 49 4E 50 R NO)";..360 INP
0001E0: 55 54 20 41 24 3A 49 46 20 41 24 3D 22 59 45 53 UT A$:IF A$="YES
0001F0: 22 20 54 48 45 4E 20 31 37 30 0D 0A 33 38 30 20 " THEN 170..380
Size : 512 (Real : 512)
000000: 20 43 2D 31 38 3C 3E 50 20 54 48 45 4E 20 31 32 C-18<>P THEN 12
000010: 32 30 0D 0A 31 31 37 35 20 49 46 20 54 28 58 2D 20..1175 IF T(X-
000020: 31 2C 59 29 3D 30 20 54 48 45 4E 20 31 32 30 0D 1,Y)=0 THEN 120.
000030: 0A 31 31 38 30 20 54 28 58 2D 32 2C 59 29 3D 35 .1180 T(X-2,Y)=5
000040: 3A 20 54 28 58 2D 31 2C 59 29 3D 30 3A 20 42 28 : T(X-1,Y)=0: B(
000050: 43 2D 39 29 3D 2D 33 0D 0A 31 32 30 30 20 42 28 C-9)=-3..1200 B(
000060: 5A 29 3D 2D 33 3A 20 42 28 50 29 3D 2D 37 0D 0A Z)=-3: B(P)=-7..
000070: 31 32 31 30 20 54 28 58 2C 59 29 3D 30 3A 20 47 1210 T(X,Y)=0: G
000080: 4F 54 4F 20 31 32 34 30 0D 0A 31 32 32 30 20 43 OTO 1240..1220 C
000090: 3D 43 2B 31 0D 0A 31 32 32 35 20 4E 45 58 54 20 =C+1..1225 NEXT
0000A0: 59 0D 0A 31 32 33 30 20 4E 45 58 54 20 58 0D 0A Y..1230 NEXT X..
0000B0: 31 32 34 30 20 52 45 54 55 52 4E 0D 0A 31 35 30 1240 RETURN..150
0000C0: 30 20 52 45 4D 2A 2A 2A 20 43 48 45 43 4B 20 49 0 REM*** CHECK I
0000D0: 46 20 47 41 4D 45 20 49 53 20 4F 56 45 52 0D 0A F GAME IS OVER..
0000E0: 31 35 30 35 20 46 3D 30 0D 0A 31 35 31 30 20 46 1505 F=0..1510 F
0000F0: 4F 52 20 52 3D 32 20 54 4F 20 38 0D 0A 31 35 32 OR R=2 TO 8..152
000100: 30 20 46 4F 52 20 43 3D 32 20 54 4F 20 38 0D 0A 0 FOR C=2 TO 8..
000110: 31 35 33 30 20 49 46 20 54 28 52 2C 43 29 3C 3E 1530 IF T(R,C)<>
000120: 35 20 54 48 45 4E 20 31 35 38 30 0D 0A 31 35 33 5 THEN 1580..153
000130: 35 20 46 3D 46 2B 31 0D 0A 31 35 34 30 20 46 4F 5 F=F+1..1540 FO
000140: 52 20 41 3D 52 2D 31 20 54 4F 20 52 2B 31 0D 0A R A=R-1 TO R+1..
000150: 31 35 34 35 20 54 3D 30 0D 0A 31 35 35 30 20 46 1545 T=0..1550 F
000160: 4F 52 20 42 3D 43 2D 31 20 54 4F 20 43 2B 31 0D OR B=C-1 TO C+1.
000170: 0A 31 35 36 30 20 54 3D 54 2B 54 28 41 2C 42 29 .1560 T=T+T(A,B)
000180: 0D 0A 31 35 36 31 20 4E 45 58 54 20 42 0D 0A 31 ..1561 NEXT B..1
000190: 35 36 34 20 49 46 20 54 3C 3E 31 30 20 54 48 45 564 IF T<>10 THE
0001A0: 4E 20 31 35 36 37 0D 0A 31 35 36 35 20 49 46 20 N 1567..1565 IF
0001B0: 54 28 41 2C 43 29 3C 3E 30 20 54 48 45 4E 20 31 T(A,C)<>0 THEN 1
0001C0: 36 33 30 0D 0A 31 35 36 37 20 4E 45 58 54 20 41 630..1567 NEXT A
0001D0: 0D 0A 31 35 36 38 20 46 4F 52 20 58 3D 43 2D 31 ..1568 FOR X=C-1
0001E0: 20 54 4F 20 43 2B 31 0D 0A 31 35 36 39 20 54 3D TO C+1..1569 T=
0001F0: 30 0D 0A 31 35 37 30 20 46 4F 52 20 59 3D 52 2D 0..1570 FOR Y=R-
Size : 512 (Real : 512)
000000: 50 52 49 4E 54 3A 50 52 49 4E 54 20 22 53 4F 20 PRINT:PRINT "SO
000010: 4C 4F 4E 47 2E 20 20 48 4F 50 45 20 59 4F 55 20 LONG. HOPE YOU
000020: 45 4E 4A 4F 59 45 44 20 59 4F 55 52 53 45 4C 46 ENJOYED YOURSELF
000030: 21 21 21 22 0D 0A 33 39 30 20 45 4E 44 0D 0A 1A !!!"..390 END...
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 28 58 29 29 2B 31 20 0D 0A 33 33 30 20 4E 45 58 (X))+1 ..330 NEX
000010: 54 20 4A 3A 49 46 20 48 28 4A 2D 31 29 3D 48 28 T J:IF H(J-1)=H(
000020: 4A 2D 32 29 20 54 48 45 4E 20 33 31 30 0D 0A 33 J-2) THEN 310..3
000030: 33 31 20 49 46 20 50 2B 32 3C 33 20 54 48 45 4E 31 IF P+2<3 THEN
000040: 20 33 35 30 0D 0A 33 33 35 20 49 46 20 48 28 4A 350..335 IF H(J
000050: 2D 31 29 3D 48 28 4A 2D 33 29 20 54 48 45 4E 20 -1)=H(J-3) THEN
000060: 33 31 30 0D 0A 33 34 30 20 49 46 20 48 28 4A 2D 310..340 IF H(J-
000070: 32 29 3D 48 28 4A 2D 33 29 20 54 48 45 4E 20 33 2)=H(J-3) THEN 3
000080: 31 30 0D 0A 33 35 30 20 49 46 20 50 3D 30 20 54 10..350 IF P=0 T
000090: 48 45 4E 20 33 36 30 0D 0A 33 35 35 20 47 4F 54 HEN 360..355 GOT
0000A0: 4F 20 34 39 30 0D 0A 33 36 30 20 49 4E 50 55 54 O 490..360 INPUT
0000B0: 20 22 53 48 4F 54 22 3B 53 3A 49 46 20 53 3C 31 "SHOT";S:IF S<1
0000C0: 20 54 48 45 4E 20 33 36 30 0D 0A 33 36 35 20 49 THEN 360..365 I
0000D0: 46 20 53 3E 34 20 54 48 45 4E 20 33 36 30 0D 0A F S>4 THEN 360..
0000E0: 33 37 30 20 4F 4E 20 43 20 47 4F 54 4F 20 33 38 370 ON C GOTO 38
0000F0: 30 2C 34 38 30 0D 0A 33 38 30 20 50 52 49 4E 54 0,480..380 PRINT
000100: 20 41 24 28 48 28 4A 2D 31 29 29 3B 3A 47 3D 48 A$(H(J-1));:G=H
000110: 28 4A 2D 31 29 3A 47 31 3D 30 3A 47 32 3D 30 20 (J-1):G1=0:G2=0
000120: 0D 0A 33 39 30 20 4F 4E 20 53 20 47 4F 54 4F 20 ..390 ON S GOTO
000130: 34 30 30 2C 34 32 30 2C 34 34 30 2C 34 36 30 0D 400,420,440,460.
000140: 0A 34 30 30 20 50 52 49 4E 54 20 22 20 4C 45 54 .400 PRINT " LET
000150: 27 53 20 41 20 42 4F 4F 4D 45 52 20 47 4F 20 46 'S A BOOMER GO F
000160: 52 4F 4D 20 54 48 45 20 52 45 44 20 4C 49 4E 45 ROM THE RED LINE
000170: 21 21 22 20 0D 0A 34 31 30 20 5A 3D 31 30 3A 47 !!" ..410 Z=10:G
000180: 4F 54 4F 20 38 39 30 0D 0A 34 32 30 20 50 52 49 OTO 890..420 PRI
000190: 4E 54 20 22 20 46 4C 49 50 53 20 41 20 57 52 49 NT " FLIPS A WRI
0001A0: 53 54 53 48 4F 54 20 44 4F 57 4E 20 54 48 45 20 STSHOT DOWN THE
0001B0: 49 43 45 22 0D 0A 34 34 30 20 50 52 49 4E 54 20 ICE"..440 PRINT
0001C0: 22 20 42 41 43 4B 48 41 4E 44 53 20 4F 4E 45 20 " BACKHANDS ONE
0001D0: 49 4E 20 4F 4E 20 54 48 45 20 47 4F 41 4C 54 45 IN ON THE GOALTE
0001E0: 4E 44 45 52 22 20 0D 0A 34 35 30 20 5A 3D 32 35 NDER" ..450 Z=25
0001F0: 3A 47 4F 54 4F 20 38 39 30 0D 0A 34 36 30 20 50 :GOTO 890..460 P
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 52 49 4E 54 20 22 20 53 4E 41 50 53 20 41 20 4C RINT " SNAPS A L
000010: 4F 4E 47 20 46 4C 49 50 20 53 48 4F 54 22 0D 0A ONG FLIP SHOT"..
000020: 34 37 30 20 5A 3D 31 37 3A 47 4F 54 4F 20 38 39 470 Z=17:GOTO 89
000030: 30 0D 0A 34 38 30 20 50 52 49 4E 54 20 42 24 28 0..480 PRINT B$(
000040: 48 28 4A 2D 31 29 29 3B 3A 47 31 3D 30 3A 47 32 H(J-1));:G1=0:G2
000050: 3D 30 3A 47 3D 48 28 4A 2D 31 29 3A 47 4F 54 4F =0:G=H(J-1):GOTO
000060: 20 33 39 30 0D 0A 34 39 30 20 4F 4E 20 43 20 47 390..490 ON C G
000070: 4F 54 4F 20 35 30 30 2C 36 34 30 0D 0A 35 30 30 OTO 500,640..500
000080: 20 4F 4E 20 50 20 47 4F 54 4F 20 35 31 30 2C 35 ON P GOTO 510,5
000090: 34 30 2C 35 37 30 0D 0A 35 31 30 20 50 52 49 4E 40,570..510 PRIN
0000A0: 54 20 41 24 28 48 28 4A 2D 32 29 29 20 22 20 4C T A$(H(J-2)) " L
0000B0: 45 41 44 53 20 22 20 41 24 28 48 28 4A 2D 31 29 EADS " A$(H(J-1)
0000C0: 29 20 22 20 57 49 54 48 20 41 20 50 45 52 46 45 ) " WITH A PERFE
0000D0: 43 54 20 50 41 53 53 2E 22 20 0D 0A 35 32 30 20 CT PASS." ..520
0000E0: 50 52 49 4E 54 20 41 24 28 48 28 4A 2D 31 29 29 PRINT A$(H(J-1))
0000F0: 20 22 20 43 55 54 54 49 4E 47 20 49 4E 21 21 21 " CUTTING IN!!!
000100: 22 0D 0A 35 33 30 20 47 3D 48 28 4A 2D 31 29 3A "..530 G=H(J-1):
000110: 47 31 3D 48 28 4A 2D 32 29 3A 47 32 3D 30 3A 5A G1=H(J-2):G2=0:Z
000120: 31 3D 33 3A 47 4F 54 4F 20 37 37 30 0D 0A 35 34 1=3:GOTO 770..54
000130: 30 20 50 52 49 4E 54 20 41 24 28 48 28 4A 2D 32 0 PRINT A$(H(J-2
000140: 29 29 20 22 20 47 49 56 45 53 20 54 4F 20 41 20 )) " GIVES TO A
000150: 53 54 52 45 41 4B 49 4E 47 20 22 20 41 24 28 48 STREAKING " A$(H
000160: 28 4A 2D 31 29 29 0D 0A 35 35 30 20 50 52 49 4E (J-1))..550 PRIN
000170: 54 20 41 24 28 48 28 4A 2D 33 29 29 20 22 20 43 T A$(H(J-3)) " C
000180: 4F 4D 45 53 20 44 4F 57 4E 20 4F 4E 20 22 20 42 OMES DOWN ON " B
000190: 24 28 35 29 20 22 20 41 4E 44 20 22 20 42 24 28 $(5) " AND " B$(
0001A0: 34 29 0D 0A 35 36 30 20 47 3D 48 28 4A 2D 33 29 4)..560 G=H(J-3)
0001B0: 3A 47 31 3D 48 28 4A 2D 31 29 3A 47 32 3D 48 28 :G1=H(J-1):G2=H(
0001C0: 4A 2D 32 29 3A 5A 31 3D 32 3A 47 4F 54 4F 20 37 J-2):Z1=2:GOTO 7
0001D0: 37 30 0D 0A 35 37 30 20 50 52 49 4E 54 20 22 4F 70..570 PRINT "O
0001E0: 48 20 4D 59 20 47 4F 44 21 21 20 41 20 27 20 34 H MY GOD!! A ' 4
0001F0: 20 4F 4E 20 32 20 27 20 53 49 54 55 41 54 49 4F ON 2 ' SITUATIO
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 3B 2 PRINT TAB(33);
000010: 22 48 4F 43 4B 45 59 22 0D 0A 34 20 50 52 49 4E "HOCKEY"..4 PRIN
000020: 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 41 54 T TAB(15);"CREAT
000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 4D IVE COMPUTING M
000040: 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 20 4A ORRISTOWN, NEW J
000050: 45 52 53 45 59 22 0D 0A 36 20 50 52 49 4E 54 3A ERSEY"..6 PRINT:
000060: 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A 31 30 20 PRINT:PRINT..10
000070: 52 45 4D 20 52 4F 42 45 52 54 20 50 55 4F 50 4F REM ROBERT PUOPO
000080: 4C 4F 20 41 4C 47 2E 20 31 20 31 34 30 20 4D 43 LO ALG. 1 140 MC
000090: 43 4F 57 41 4E 20 36 2F 37 2F 37 33 20 48 4F 43 COWAN 6/7/73 HOC
0000A0: 4B 45 59 0D 0A 33 30 20 4C 45 54 20 58 3D 31 0D KEY..30 LET X=1.
0000B0: 0A 34 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A .40 PRINT:PRINT:
0000C0: 50 52 49 4E 54 0D 0A 35 30 20 50 52 49 4E 54 20 PRINT..50 PRINT
0000D0: 22 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 "WOULD YOU LIKE
0000E0: 54 48 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 THE INSTRUCTIONS
0000F0: 22 3B 3A 49 4E 50 55 54 20 43 24 0D 0A 35 35 20 ";:INPUT C$..55
000100: 50 52 49 4E 54 0D 0A 36 30 20 49 46 20 43 24 3D PRINT..60 IF C$=
000110: 22 4E 4F 22 20 54 48 45 4E 20 39 30 0D 0A 36 35 "NO" THEN 90..65
000120: 20 49 46 20 43 24 3D 22 59 45 53 22 20 54 48 45 IF C$="YES" THE
000130: 4E 20 38 30 0D 0A 37 30 20 50 52 49 4E 54 20 22 N 80..70 PRINT "
000140: 41 4E 53 57 45 52 20 59 45 53 20 4F 52 20 4E 4F ANSWER YES OR NO
000150: 21 21 22 3A 47 4F 54 4F 20 35 30 20 0D 0A 38 30 !!":GOTO 50 ..80
000160: 20 47 4F 54 4F 20 31 37 32 30 0D 0A 39 30 20 44 GOTO 1720..90 D
000170: 49 4D 20 41 24 28 37 29 2C 42 24 28 37 29 2C 48 IM A$(7),B$(7),H
000180: 28 32 30 29 2C 54 28 35 29 2C 54 31 28 35 29 2C (20),T(5),T1(5),
000190: 54 32 28 35 29 2C 54 33 28 35 29 0D 0A 31 30 30 T2(5),T3(5)..100
0001A0: 20 50 52 49 4E 54 20 22 45 4E 54 45 52 20 54 48 PRINT "ENTER TH
0001B0: 45 20 54 57 4F 20 54 45 41 4D 53 22 3B 3A 49 4E E TWO TEAMS";:IN
0001C0: 50 55 54 20 41 24 28 37 29 2C 42 24 28 37 29 20 PUT A$(7),B$(7)
0001D0: 0D 0A 31 30 35 20 50 52 49 4E 54 0D 0A 31 31 30 ..105 PRINT..110
0001E0: 20 50 52 49 4E 54 20 22 45 4E 54 45 52 20 54 48 PRINT "ENTER TH
0001F0: 45 20 4E 55 4D 42 45 52 20 4F 46 20 4D 49 4E 55 E NUMBER OF MINU
Size : 512 (Real : 512)
000000: 4E 22 0D 0A 35 38 30 20 50 52 49 4E 54 20 41 24 N"..580 PRINT A$
000010: 28 48 28 4A 2D 33 29 29 20 22 20 4C 45 41 44 53 (H(J-3)) " LEADS
000020: 20 22 20 41 24 28 48 28 4A 2D 32 29 29 0D 0A 35 " A$(H(J-2))..5
000030: 39 30 20 50 52 49 4E 54 20 41 24 28 48 28 4A 2D 90 PRINT A$(H(J-
000040: 32 29 29 20 22 20 49 53 20 57 48 45 45 45 4C 49 2)) " IS WHEEELI
000050: 4E 47 20 54 48 52 4F 55 47 48 20 43 45 4E 54 45 NG THROUGH CENTE
000060: 52 2E 22 0D 0A 36 30 30 20 50 52 49 4E 54 20 41 R."..600 PRINT A
000070: 24 28 48 28 4A 2D 32 29 29 20 22 20 47 49 56 45 $(H(J-2)) " GIVE
000080: 53 20 41 4E 44 20 47 4F 45 53 20 57 49 54 48 20 S AND GOES WITH
000090: 22 20 41 24 28 48 28 4A 2D 31 29 29 0D 0A 36 31 " A$(H(J-1))..61
0000A0: 30 20 50 52 49 4E 54 20 22 50 52 45 54 54 59 20 0 PRINT "PRETTY
0000B0: 50 41 53 53 49 4E 47 21 22 0D 0A 36 32 30 20 50 PASSING!"..620 P
0000C0: 52 49 4E 54 20 41 24 28 48 28 4A 2D 31 29 29 20 RINT A$(H(J-1))
0000D0: 22 20 44 52 4F 50 53 20 49 54 20 54 4F 20 22 20 " DROPS IT TO "
0000E0: 41 24 28 48 28 4A 2D 34 29 29 0D 0A 36 33 30 20 A$(H(J-4))..630
0000F0: 47 3D 48 28 4A 2D 34 29 3A 47 31 3D 4A 28 4A 2D G=H(J-4):G1=J(J-
000100: 31 29 3A 47 32 3D 48 28 4A 2D 32 29 3A 5A 31 3D 1):G2=H(J-2):Z1=
000110: 31 3A 47 4F 54 4F 20 37 37 30 0D 0A 36 34 30 20 1:GOTO 770..640
000120: 4F 4E 20 50 20 47 4F 54 4F 20 36 35 30 2C 36 37 ON P GOTO 650,67
000130: 30 2C 37 32 30 0D 0A 36 35 30 20 50 52 49 4E 54 0,720..650 PRINT
000140: 20 42 24 28 48 28 4A 2D 31 29 29 20 22 20 48 49 B$(H(J-1)) " HI
000150: 54 53 20 22 20 42 24 28 48 28 4A 2D 32 29 29 20 TS " B$(H(J-2))
000160: 22 20 46 4C 59 49 4E 47 20 44 4F 57 4E 20 54 48 " FLYING DOWN TH
000170: 45 20 4C 45 46 54 20 53 49 44 45 22 20 0D 0A 36 E LEFT SIDE" ..6
000180: 36 30 20 47 3D 48 28 4A 2D 32 29 3A 47 31 3D 48 60 G=H(J-2):G1=H
000190: 28 4A 2D 31 29 3A 47 32 3D 30 3A 5A 31 3D 33 3A (J-1):G2=0:Z1=3:
0001A0: 47 4F 54 4F 20 37 37 30 0D 0A 36 37 30 20 50 52 GOTO 770..670 PR
0001B0: 49 4E 54 20 22 49 54 27 53 20 41 20 27 20 33 20 INT "IT'S A ' 3
0001C0: 4F 4E 20 32 20 27 21 22 0D 0A 36 38 30 20 50 52 ON 2 '!"..680 PR
0001D0: 49 4E 54 20 22 4F 4E 4C 59 20 22 20 41 24 28 34 INT "ONLY " A$(4
0001E0: 29 20 22 20 41 4E 44 20 22 20 41 24 28 35 29 20 ) " AND " A$(5)
0001F0: 22 20 41 52 45 20 42 41 43 4B 2E 22 0D 0A 36 39 " ARE BACK."..69
Size : 512 (Real : 512)
000000: 54 45 53 20 49 4E 20 41 20 47 41 4D 45 22 3B 3A TES IN A GAME";:
000010: 49 4E 50 55 54 20 54 36 0D 0A 31 31 35 20 50 52 INPUT T6..115 PR
000020: 49 4E 54 0D 0A 31 32 30 20 49 46 20 54 36 3C 31 INT..120 IF T6<1
000030: 20 54 48 45 4E 20 31 31 30 3A 50 52 49 4E 54 20 THEN 110:PRINT
000040: 0D 0A 31 33 30 20 50 52 49 4E 54 20 22 57 4F 55 ..130 PRINT "WOU
000050: 4C 44 20 54 48 45 20 22 20 41 24 28 37 29 20 22 LD THE " A$(7) "
000060: 20 43 4F 41 43 48 20 45 4E 54 45 52 20 48 49 53 COACH ENTER HIS
000070: 20 54 45 41 4D 22 20 0D 0A 31 33 35 20 50 52 49 TEAM" ..135 PRI
000080: 4E 54 0D 0A 31 34 30 20 46 4F 52 20 49 3D 31 20 NT..140 FOR I=1
000090: 54 4F 20 36 3A 50 52 49 4E 54 20 22 50 4C 41 59 TO 6:PRINT "PLAY
0000A0: 45 52 22 49 3B 3A 49 4E 50 55 54 20 41 24 28 49 ER"I;:INPUT A$(I
0000B0: 29 3A 4E 45 58 54 20 49 3A 50 52 49 4E 54 20 0D ):NEXT I:PRINT .
0000C0: 0A 31 35 30 20 50 52 49 4E 54 20 22 57 4F 55 4C .150 PRINT "WOUL
0000D0: 44 20 54 48 45 20 22 20 42 24 28 37 29 20 22 20 D THE " B$(7) "
0000E0: 43 4F 41 43 48 20 44 4F 20 54 48 45 20 53 41 4D COACH DO THE SAM
0000F0: 45 22 0D 0A 31 35 35 20 50 52 49 4E 54 0D 0A 31 E"..155 PRINT..1
000100: 36 30 20 46 4F 52 20 54 3D 31 20 54 4F 20 36 3A 60 FOR T=1 TO 6:
000110: 50 52 49 4E 54 20 22 50 4C 41 59 45 52 22 54 3B PRINT "PLAYER"T;
000120: 3A 49 4E 50 55 54 20 42 24 28 54 29 3A 4E 45 58 :INPUT B$(T):NEX
000130: 54 20 54 3A 50 52 49 4E 54 20 0D 0A 31 37 30 20 T T:PRINT ..170
000140: 50 52 49 4E 54 20 22 49 4E 50 55 54 20 54 48 45 PRINT "INPUT THE
000150: 20 52 45 46 45 52 45 45 20 46 4F 52 20 54 48 49 REFEREE FOR THI
000160: 53 20 47 41 4D 45 22 3B 3A 49 4E 50 55 54 20 52 S GAME";:INPUT R
000170: 24 20 20 0D 0A 31 38 30 20 50 52 49 4E 54 3A 50 $ ..180 PRINT:P
000180: 52 49 4E 54 20 54 41 42 28 31 30 29 3B 41 24 28 RINT TAB(10);A$(
000190: 37 29 20 22 20 53 54 41 52 54 49 4E 47 20 4C 49 7) " STARTING LI
0001A0: 4E 45 55 50 22 20 0D 0A 31 39 30 20 46 4F 52 20 NEUP" ..190 FOR
0001B0: 54 3D 31 20 54 4F 20 36 3A 50 52 49 4E 54 20 41 T=1 TO 6:PRINT A
0001C0: 24 28 54 29 3A 4E 45 58 54 20 54 20 20 0D 0A 32 $(T):NEXT T ..2
0001D0: 30 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 20 54 00 PRINT:PRINT T
0001E0: 41 42 28 31 30 29 3B 42 24 28 37 29 22 20 53 54 AB(10);B$(7)" ST
0001F0: 41 52 54 49 4E 47 20 4C 49 4E 45 55 50 22 0D 0A ARTING LINEUP"..
Size : 512 (Real : 512)
000000: 30 20 50 52 49 4E 54 20 42 24 28 48 28 4A 2D 32 0 PRINT B$(H(J-2
000010: 29 29 20 22 20 47 49 56 45 53 20 4F 46 46 20 54 )) " GIVES OFF T
000020: 4F 20 22 20 42 24 28 48 28 4A 2D 31 29 29 0D 0A O " B$(H(J-1))..
000030: 37 30 30 20 50 52 49 4E 54 20 42 24 28 48 28 4A 700 PRINT B$(H(J
000040: 2D 31 29 29 20 22 20 44 52 4F 50 53 20 54 4F 20 -1)) " DROPS TO
000050: 22 20 42 24 28 48 28 4A 2D 33 29 29 0D 0A 37 31 " B$(H(J-3))..71
000060: 30 20 47 3D 48 28 4A 2D 33 29 3A 47 31 3D 48 28 0 G=H(J-3):G1=H(
000070: 4A 2D 31 29 3A 47 32 3D 48 28 4A 2D 32 29 3A 5A J-1):G2=H(J-2):Z
000080: 31 3D 32 3A 47 4F 54 4F 20 37 37 30 20 0D 0A 37 1=2:GOTO 770 ..7
000090: 32 30 20 50 52 49 4E 54 20 22 20 41 20 27 20 33 20 PRINT " A ' 3
0000A0: 20 4F 4E 20 32 20 27 20 57 49 54 48 20 41 20 27 ON 2 ' WITH A '
0000B0: 20 54 52 41 49 4C 45 52 20 27 21 22 20 0D 0A 37 TRAILER '!" ..7
0000C0: 33 30 20 50 52 49 4E 54 20 42 24 28 48 28 4A 2D 30 PRINT B$(H(J-
0000D0: 34 29 29 20 22 20 47 49 56 45 53 20 54 4F 20 22 4)) " GIVES TO "
0000E0: 20 42 24 28 48 28 4A 2D 32 29 29 20 22 20 57 48 B$(H(J-2)) " WH
0000F0: 4F 20 53 48 55 46 46 4C 45 53 20 49 54 20 4F 46 O SHUFFLES IT OF
000100: 46 20 54 4F 22 20 0D 0A 37 34 30 20 50 52 49 4E F TO" ..740 PRIN
000110: 54 20 42 24 28 48 28 4A 2D 31 29 29 20 22 20 57 T B$(H(J-1)) " W
000120: 48 4F 20 46 49 52 45 53 20 41 20 57 49 4E 47 20 HO FIRES A WING
000130: 54 4F 20 57 49 4E 47 20 50 41 53 53 20 54 4F 20 TO WING PASS TO
000140: 22 0D 0A 37 35 30 20 50 52 49 4E 54 20 42 24 28 "..750 PRINT B$(
000150: 48 28 4A 2D 33 29 29 20 22 20 41 53 20 48 45 20 H(J-3)) " AS HE
000160: 43 55 54 53 20 49 4E 20 41 4C 4F 4E 45 21 21 22 CUTS IN ALONE!!"
000170: 20 20 20 20 0D 0A 37 36 30 20 47 3D 48 28 4A 2D ..760 G=H(J-
000180: 33 29 3A 47 31 3D 48 28 4A 2D 31 29 3A 47 32 3D 3):G1=H(J-1):G2=
000190: 48 28 4A 2D 32 29 3A 5A 31 3D 31 3A 47 4F 54 4F H(J-2):Z1=1:GOTO
0001A0: 20 37 37 30 20 0D 0A 37 37 30 20 50 52 49 4E 54 770 ..770 PRINT
0001B0: 20 22 53 48 4F 54 22 3B 3A 49 4E 50 55 54 20 53 "SHOT";:INPUT S
0001C0: 3A 49 46 20 53 3E 34 20 54 48 45 4E 20 37 37 30 :IF S>4 THEN 770
0001D0: 3A 49 46 20 53 3C 31 20 54 48 45 4E 20 37 37 30 :IF S<1 THEN 770
0001E0: 0D 0A 37 38 30 20 4F 4E 20 43 20 47 4F 54 4F 20 ..780 ON C GOTO
0001F0: 37 39 30 2C 38 38 30 0D 0A 37 39 30 20 50 52 49 790,880..790 PRI
Size : 512 (Real : 512)
000000: 32 31 30 20 46 4F 52 20 54 3D 31 20 54 4F 20 36 210 FOR T=1 TO 6
000010: 3A 50 52 49 4E 54 20 42 24 28 54 29 3A 4E 45 58 :PRINT B$(T):NEX
000020: 54 20 54 3A 50 52 49 4E 54 0D 0A 32 32 30 20 50 T T:PRINT..220 P
000030: 52 49 4E 54 20 22 57 45 27 52 45 20 52 45 41 44 RINT "WE'RE READ
000040: 59 20 46 4F 52 20 54 4F 4E 49 47 48 54 53 20 4F Y FOR TONIGHTS O
000050: 50 45 4E 49 4E 47 20 46 41 43 45 2D 4F 46 46 2E PENING FACE-OFF.
000060: 22 0D 0A 32 33 30 20 50 52 49 4E 54 20 52 24 20 "..230 PRINT R$
000070: 22 20 57 49 4C 4C 20 44 52 4F 50 20 54 48 45 20 " WILL DROP THE
000080: 50 55 43 4B 20 42 45 54 57 45 45 4E 20 22 20 41 PUCK BETWEEN " A
000090: 24 28 32 29 20 22 20 41 4E 44 20 22 20 42 24 28 $(2) " AND " B$(
0000A0: 32 29 0D 0A 32 34 30 20 46 4F 52 20 4C 3D 31 20 2)..240 FOR L=1
0000B0: 54 4F 20 54 36 3A 49 46 20 4C 3D 31 20 54 48 45 TO T6:IF L=1 THE
0000C0: 4E 20 32 36 30 0D 0A 32 35 30 20 50 52 49 4E 54 N 260..250 PRINT
0000D0: 20 22 41 4E 44 20 57 45 27 52 45 20 52 45 41 44 "AND WE'RE READ
0000E0: 59 20 46 4F 52 20 54 48 45 20 46 41 43 45 2D 4F Y FOR THE FACE-O
0000F0: 46 46 22 20 0D 0A 32 36 30 20 43 3D 49 4E 54 28 FF" ..260 C=INT(
000100: 32 2A 52 4E 44 28 58 29 29 2B 31 3A 4F 4E 20 43 2*RND(X))+1:ON C
000110: 20 47 4F 54 4F 20 32 37 30 2C 32 38 30 0D 0A 32 GOTO 270,280..2
000120: 37 30 20 50 52 49 4E 54 20 41 24 28 37 29 20 22 70 PRINT A$(7) "
000130: 20 48 41 53 20 43 4F 4E 54 52 4F 4C 20 4F 46 20 HAS CONTROL OF
000140: 54 48 45 20 50 55 43 4B 22 3A 47 4F 54 4F 20 32 THE PUCK":GOTO 2
000150: 39 30 0D 0A 32 38 30 20 50 52 49 4E 54 20 42 24 90..280 PRINT B$
000160: 28 37 29 20 22 20 48 41 53 20 43 4F 4E 54 52 4F (7) " HAS CONTRO
000170: 4C 2E 22 20 0D 0A 32 39 30 20 50 52 49 4E 54 20 L." ..290 PRINT
000180: 22 50 41 53 53 22 3B 3A 49 4E 50 55 54 20 50 3A "PASS";:INPUT P:
000190: 46 4F 52 20 4E 3D 31 20 54 4F 20 33 3A 48 28 4E FOR N=1 TO 3:H(N
0001A0: 29 3D 30 3A 4E 45 58 54 20 4E 20 0D 0A 33 30 30 )=0:NEXT N ..300
0001B0: 20 49 46 20 50 3C 30 20 54 48 45 4E 20 32 39 30 IF P<0 THEN 290
0001C0: 0D 0A 33 30 35 20 49 46 20 50 3E 33 20 54 48 45 ..305 IF P>3 THE
0001D0: 4E 20 32 39 30 0D 0A 33 31 30 20 46 4F 52 20 4A N 290..310 FOR J
0001E0: 3D 31 20 54 4F 20 28 50 2B 32 29 20 0D 0A 33 32 =1 TO (P+2) ..32
0001F0: 30 20 48 28 4A 29 3D 49 4E 54 28 35 2A 52 4E 44 0 H(J)=INT(5*RND
Size : 512 (Real : 512)
000000: 4E 54 20 41 24 28 47 29 3B 3A 4F 4E 20 53 20 47 NT A$(G);:ON S G
000010: 4F 54 4F 20 38 30 30 2C 38 32 30 2C 38 34 30 2C OTO 800,820,840,
000020: 38 36 30 20 0D 0A 38 30 30 20 50 52 49 4E 54 20 860 ..800 PRINT
000030: 22 20 4C 45 54 27 53 20 41 20 42 49 47 20 53 4C " LET'S A BIG SL
000040: 41 50 20 53 48 4F 54 20 47 4F 21 21 22 20 20 0D AP SHOT GO!!" .
000050: 0A 38 31 30 20 5A 3D 34 3A 5A 3D 5A 2B 5A 31 3A .810 Z=4:Z=Z+Z1:
000060: 47 4F 54 4F 20 38 39 30 0D 0A 38 32 30 20 50 52 GOTO 890..820 PR
000070: 49 4E 54 20 22 20 52 49 50 53 20 41 20 57 52 49 INT " RIPS A WRI
000080: 53 54 20 53 48 4F 54 20 4F 46 46 22 20 0D 0A 38 ST SHOT OFF" ..8
000090: 33 30 20 5A 3D 32 3A 5A 3D 5A 2B 5A 31 3A 47 4F 30 Z=2:Z=Z+Z1:GO
0000A0: 54 4F 20 38 39 30 0D 0A 38 34 30 20 50 52 49 4E TO 890..840 PRIN
0000B0: 54 20 22 20 47 45 54 53 20 41 20 42 41 43 4B 48 T " GETS A BACKH
0000C0: 41 4E 44 20 4F 46 46 22 20 0D 0A 38 35 30 20 5A AND OFF" ..850 Z
0000D0: 3D 33 3A 5A 3D 5A 2B 5A 31 3A 47 4F 54 4F 20 38 =3:Z=Z+Z1:GOTO 8
0000E0: 39 30 0D 0A 38 36 30 20 50 52 49 4E 54 20 22 20 90..860 PRINT "
0000F0: 53 4E 41 50 53 20 4F 46 46 20 41 20 53 4E 41 50 SNAPS OFF A SNAP
000100: 20 53 48 4F 54 22 20 20 20 0D 0A 38 37 30 20 5A SHOT" ..870 Z
000110: 3D 32 3A 5A 3D 5A 2B 5A 31 3A 47 4F 54 4F 20 38 =2:Z=Z+Z1:GOTO 8
000120: 39 30 0D 0A 38 38 30 20 50 52 49 4E 54 20 42 24 90..880 PRINT B$
000130: 28 47 29 3B 3A 4F 4E 20 53 20 47 4F 54 4F 20 38 (G);:ON S GOTO 8
000140: 30 30 2C 38 32 30 2C 38 34 30 2C 38 36 30 20 0D 00,820,840,860 .
000150: 0A 38 39 30 20 50 52 49 4E 54 20 22 41 52 45 41 .890 PRINT "AREA
000160: 22 3B 3A 49 4E 50 55 54 20 41 3A 49 46 20 41 3C ";:INPUT A:IF A<
000170: 31 20 54 48 45 4E 20 38 39 30 0D 0A 38 39 35 20 1 THEN 890..895
000180: 49 46 20 41 3E 34 20 54 48 45 4E 20 38 39 30 0D IF A>4 THEN 890.
000190: 0A 39 30 30 20 4F 4E 20 43 20 47 4F 54 4F 20 39 .900 ON C GOTO 9
0001A0: 31 30 2C 39 32 30 0D 0A 39 31 30 20 53 32 3D 53 10,920..910 S2=S
0001B0: 32 2B 31 3A 47 4F 54 4F 20 39 33 30 20 0D 0A 39 2+1:GOTO 930 ..9
0001C0: 32 30 20 53 33 3D 53 33 2B 31 0D 0A 39 33 30 20 20 S3=S3+1..930
0001D0: 41 31 3D 49 4E 54 28 34 2A 52 4E 44 28 58 29 29 A1=INT(4*RND(X))
0001E0: 2B 31 3A 49 46 20 41 3C 3E 41 31 20 54 48 45 4E +1:IF A<>A1 THEN
0001F0: 20 31 32 30 30 0D 0A 39 34 30 20 48 28 32 30 29 1200..940 H(20)
Size : 512 (Real : 512)
000000: 52 49 4E 54 20 22 54 4F 20 54 48 45 20 52 49 47 RINT "TO THE RIG
000010: 48 54 20 4F 46 20 22 20 41 24 28 36 29 20 22 20 HT OF " A$(6) "
000020: 41 4E 44 20 22 20 41 24 28 36 29 20 22 20 43 4F AND " A$(6) " CO
000030: 56 45 52 53 20 22 3B 20 0D 0A 31 34 33 30 20 50 VERS "; ..1430 P
000040: 52 49 4E 54 20 22 4F 4E 20 54 48 45 20 4C 4F 4F RINT "ON THE LOO
000050: 53 45 20 50 55 43 4B 21 22 3A 47 4F 54 4F 20 31 SE PUCK!":GOTO 1
000060: 35 34 30 20 0D 0A 31 34 34 30 20 50 52 49 4E 54 540 ..1440 PRINT
000070: 20 22 53 4B 41 54 45 20 53 41 56 45 20 42 59 20 "SKATE SAVE BY
000080: 22 20 41 24 28 36 29 0D 0A 31 34 35 30 20 50 52 " A$(6)..1450 PR
000090: 49 4E 54 20 41 24 28 36 29 20 22 20 57 48 41 43 INT A$(6) " WHAC
0000A0: 4B 53 20 54 48 45 20 4C 4F 4F 53 45 20 50 55 43 KS THE LOOSE PUC
0000B0: 4B 20 49 4E 54 4F 20 54 48 45 20 53 54 41 4E 44 K INTO THE STAND
0000C0: 53 22 20 0D 0A 31 34 36 30 20 47 4F 54 4F 20 31 S" ..1460 GOTO 1
0000D0: 35 34 30 0D 0A 31 34 37 30 20 50 52 49 4E 54 20 540..1470 PRINT
0000E0: 22 53 54 49 43 4B 20 53 41 56 45 20 42 59 20 22 "STICK SAVE BY "
0000F0: 20 41 24 28 36 29 20 22 20 41 4E 44 20 48 45 20 A$(6) " AND HE
000100: 43 4C 45 41 52 53 20 49 54 20 4F 55 54 20 48 49 CLEARS IT OUT HI
000110: 4D 53 45 4C 46 22 20 0D 0A 31 34 38 30 20 47 4F MSELF" ..1480 GO
000120: 54 4F 20 32 36 30 20 0D 0A 31 34 39 30 20 50 52 TO 260 ..1490 PR
000130: 49 4E 54 20 22 4B 49 43 4B 45 44 20 4F 55 54 20 INT "KICKED OUT
000140: 42 59 20 22 20 41 24 28 36 29 20 0D 0A 31 35 30 BY " A$(6) ..150
000150: 30 20 50 52 49 4E 54 20 22 41 4E 44 20 49 54 20 0 PRINT "AND IT
000160: 52 45 42 4F 55 4E 44 53 20 41 4C 4C 20 54 48 45 REBOUNDS ALL THE
000170: 20 57 41 59 20 54 4F 20 43 45 4E 54 45 52 20 49 WAY TO CENTER I
000180: 43 45 22 20 20 0D 0A 31 35 31 30 20 47 4F 54 4F CE" ..1510 GOTO
000190: 20 32 36 30 20 0D 0A 31 35 32 30 20 50 52 49 4E 260 ..1520 PRIN
0001A0: 54 20 22 47 4C 4F 56 45 20 53 41 56 45 20 22 20 T "GLOVE SAVE "
0001B0: 41 24 28 36 29 20 22 20 41 4E 44 20 48 45 20 48 A$(6) " AND HE H
0001C0: 41 4E 47 53 20 4F 4E 22 20 0D 0A 31 35 33 30 20 ANGS ON" ..1530
0001D0: 47 4F 54 4F 20 31 35 34 30 0D 0A 31 35 34 30 20 GOTO 1540..1540
0001E0: 4E 45 58 54 20 4C 3A 46 4F 52 20 4E 3D 31 20 54 NEXT L:FOR N=1 T
0001F0: 4F 20 33 30 3A 50 52 49 4E 54 20 43 48 52 24 28 O 30:PRINT CHR$(
Size : 512 (Real : 512)
000000: 3D 49 4E 54 28 31 30 30 2A 52 4E 44 28 58 29 29 =INT(100*RND(X))
000010: 2B 31 0D 0A 39 35 30 20 49 46 20 49 4E 54 28 48 +1..950 IF INT(H
000020: 28 32 30 29 2F 5A 29 3D 48 28 32 30 29 2F 5A 20 (20)/Z)=H(20)/Z
000030: 54 48 45 4E 20 31 31 36 30 0D 0A 39 36 30 20 4F THEN 1160..960 O
000040: 4E 20 43 20 47 4F 54 4F 20 39 37 30 2C 39 38 30 N C GOTO 970,980
000050: 0D 0A 39 37 30 20 50 52 49 4E 54 20 22 47 4F 41 ..970 PRINT "GOA
000060: 4C 20 22 20 41 24 28 37 29 3A 48 28 39 29 3D 48 L " A$(7):H(9)=H
000070: 28 39 29 2B 31 3A 47 4F 54 4F 20 39 39 30 20 0D (9)+1:GOTO 990 .
000080: 0A 39 38 30 20 50 52 49 4E 54 20 22 53 43 4F 52 .980 PRINT "SCOR
000090: 45 20 22 20 42 24 28 37 29 3A 48 28 38 29 3D 48 E " B$(7):H(8)=H
0000A0: 28 38 29 2B 31 20 20 20 0D 0A 39 39 30 20 46 4F (8)+1 ..990 FO
0000B0: 52 20 42 31 3D 31 20 54 4F 20 32 35 3A 50 52 49 R B1=1 TO 25:PRI
0000C0: 4E 54 20 43 48 52 24 28 37 29 3B 3A 4E 45 58 54 NT CHR$(7);:NEXT
0000D0: 20 42 31 3A 50 52 49 4E 54 0D 0A 31 30 30 30 20 B1:PRINT..1000
0000E0: 50 52 49 4E 54 20 22 53 43 4F 52 45 3A 20 22 3B PRINT "SCORE: ";
0000F0: 3A 49 46 20 48 28 38 29 3E 48 28 39 29 20 54 48 :IF H(8)>H(9) TH
000100: 45 4E 20 31 30 32 30 0D 0A 31 30 31 30 20 50 52 EN 1020..1010 PR
000110: 49 4E 54 20 41 24 28 37 29 22 3A 22 3B 48 28 39 INT A$(7)":";H(9
000120: 29 2C 42 24 28 37 29 22 3A 22 3B 48 28 38 29 3A ),B$(7)":";H(8):
000130: 47 4F 54 4F 20 31 30 33 30 0D 0A 31 30 32 30 20 GOTO 1030..1020
000140: 50 52 49 4E 54 20 42 24 28 37 29 22 3A 22 3B 48 PRINT B$(7)":";H
000150: 28 38 29 2C 41 24 28 37 29 22 3A 22 3B 48 28 39 (8),A$(7)":";H(9
000160: 29 20 20 0D 0A 31 30 33 30 20 4F 4E 20 43 20 47 ) ..1030 ON C G
000170: 4F 54 4F 20 31 30 34 30 2C 31 31 30 30 0D 0A 31 OTO 1040,1100..1
000180: 30 34 30 20 50 52 49 4E 54 20 22 47 4F 41 4C 20 040 PRINT "GOAL
000190: 53 43 4F 52 45 44 20 42 59 3A 20 22 20 41 24 28 SCORED BY: " A$(
0001A0: 47 29 3A 49 46 20 47 31 3D 30 20 54 48 45 4E 20 G):IF G1=0 THEN
0001B0: 31 30 37 30 0D 0A 31 30 35 30 20 49 46 20 47 32 1070..1050 IF G2
0001C0: 3D 30 20 54 48 45 4E 20 31 30 38 30 0D 0A 31 30 =0 THEN 1080..10
0001D0: 36 30 20 50 52 49 4E 54 20 22 20 41 53 53 49 53 60 PRINT " ASSIS
0001E0: 54 45 44 20 42 59 3A 20 22 20 41 24 28 47 31 29 TED BY: " A$(G1)
0001F0: 20 22 20 41 4E 44 20 22 20 41 24 28 47 32 29 3A " AND " A$(G2):
Size : 512 (Real : 512)
000000: 37 29 3B 3A 4E 45 58 54 20 4E 3A 50 52 49 4E 54 7);:NEXT N:PRINT
000010: 20 22 54 48 41 54 27 53 20 54 48 45 20 53 49 52 "THAT'S THE SIR
000020: 45 4E 22 0D 0A 31 35 35 30 20 50 52 49 4E 54 3A EN"..1550 PRINT:
000030: 50 52 49 4E 54 20 54 41 42 28 31 35 29 3B 22 46 PRINT TAB(15);"F
000040: 49 4E 41 4C 20 53 43 4F 52 45 3A 22 0D 0A 31 35 INAL SCORE:"..15
000050: 36 30 20 49 46 20 48 28 38 29 3E 48 28 39 29 20 60 IF H(8)>H(9)
000060: 54 48 45 4E 20 31 35 38 30 0D 0A 31 35 37 30 20 THEN 1580..1570
000070: 50 52 49 4E 54 20 41 24 28 37 29 22 3A 22 3B 48 PRINT A$(7)":";H
000080: 28 39 29 2C 42 24 28 37 29 22 3A 22 3B 48 28 38 (9),B$(7)":";H(8
000090: 29 3A 47 4F 54 4F 20 31 35 39 30 0D 0A 31 35 38 ):GOTO 1590..158
0000A0: 30 20 50 52 49 4E 54 20 42 24 28 37 29 22 3A 22 0 PRINT B$(7)":"
0000B0: 3B 48 28 38 29 2C 41 24 28 37 29 22 3A 22 3B 48 ;H(8),A$(7)":";H
0000C0: 28 39 29 0D 0A 31 35 39 30 20 50 52 49 4E 54 3A (9)..1590 PRINT:
0000D0: 20 50 52 49 4E 54 20 54 41 42 28 31 30 29 3B 22 PRINT TAB(10);"
0000E0: 53 43 4F 52 49 4E 47 20 53 55 4D 4D 41 52 59 22 SCORING SUMMARY"
0000F0: 3A 50 52 49 4E 54 0D 0A 31 36 30 30 20 50 52 49 :PRINT..1600 PRI
000100: 4E 54 20 54 41 42 28 32 35 29 3B 41 24 28 37 29 NT TAB(25);A$(7)
000110: 0D 0A 31 36 31 30 20 50 52 49 4E 54 20 54 41 42 ..1610 PRINT TAB
000120: 28 35 29 3B 22 4E 41 4D 45 22 3B 54 41 42 28 32 (5);"NAME";TAB(2
000130: 30 29 3B 22 47 4F 41 4C 53 22 3B 54 41 42 28 33 0);"GOALS";TAB(3
000140: 35 29 3B 22 41 53 53 49 53 54 53 22 0D 0A 31 36 5);"ASSISTS"..16
000150: 32 30 20 50 52 49 4E 54 20 54 41 42 28 35 29 3B 20 PRINT TAB(5);
000160: 22 2D 2D 2D 2D 22 3B 54 41 42 28 32 30 29 3B 22 "----";TAB(20);"
000170: 2D 2D 2D 2D 2D 22 3B 54 41 42 28 33 35 29 3B 22 -----";TAB(35);"
000180: 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 31 36 33 30 20 46 -------"..1630 F
000190: 4F 52 20 49 3D 31 20 54 4F 20 35 3A 50 52 49 4E OR I=1 TO 5:PRIN
0001A0: 54 20 54 41 42 28 35 29 3B 41 24 28 49 29 3B 54 T TAB(5);A$(I);T
0001B0: 41 42 28 32 31 29 3B 54 28 49 29 3B 54 41 42 28 AB(21);T(I);TAB(
0001C0: 33 36 29 3B 54 31 28 49 29 20 0D 0A 31 36 34 30 36);T1(I) ..1640
0001D0: 20 4E 45 58 54 20 49 3A 50 52 49 4E 54 20 0D 0A NEXT I:PRINT ..
0001E0: 31 36 35 30 20 50 52 49 4E 54 20 54 41 42 28 32 1650 PRINT TAB(2
0001F0: 35 29 3B 42 24 28 37 29 0D 0A 31 36 36 30 20 50 5);B$(7)..1660 P
Size : 512 (Real : 512)
000000: 47 4F 54 4F 20 31 30 39 30 20 0D 0A 31 30 37 30 GOTO 1090 ..1070
000010: 20 50 52 49 4E 54 20 22 20 55 4E 41 53 53 49 53 PRINT " UNASSIS
000020: 54 45 44 2E 22 3A 47 4F 54 4F 20 31 30 39 30 0D TED.":GOTO 1090.
000030: 0A 31 30 38 30 20 50 52 49 4E 54 20 22 20 41 53 .1080 PRINT " AS
000040: 53 49 53 54 45 44 20 42 59 3A 20 22 20 41 24 28 SISTED BY: " A$(
000050: 47 31 29 0D 0A 31 30 39 30 20 54 28 47 29 3D 54 G1)..1090 T(G)=T
000060: 28 47 29 2B 31 3A 54 31 28 47 31 29 3D 54 31 28 (G)+1:T1(G1)=T1(
000070: 47 31 29 2B 31 3A 54 31 28 47 32 29 3D 54 31 28 G1)+1:T1(G2)=T1(
000080: 47 32 29 2B 31 3A 47 4F 54 4F 20 31 35 34 30 0D G2)+1:GOTO 1540.
000090: 0A 31 31 30 30 20 50 52 49 4E 54 20 22 47 4F 41 .1100 PRINT "GOA
0000A0: 4C 20 53 43 4F 52 45 44 20 42 59 3A 20 22 20 42 L SCORED BY: " B
0000B0: 24 28 47 29 3B 0D 0A 31 31 31 30 20 49 46 20 47 $(G);..1110 IF G
0000C0: 31 3D 30 20 54 48 45 4E 20 31 31 33 30 0D 0A 31 1=0 THEN 1130..1
0000D0: 31 31 35 20 49 46 20 47 32 3D 30 20 54 48 45 4E 115 IF G2=0 THEN
0000E0: 20 31 31 34 30 0D 0A 31 31 32 30 20 50 52 49 4E 1140..1120 PRIN
0000F0: 54 20 22 20 41 53 53 49 53 54 45 44 20 42 59 3A T " ASSISTED BY:
000100: 20 22 20 42 24 28 47 31 29 20 22 20 41 4E 44 20 " B$(G1) " AND
000110: 22 20 42 24 28 47 32 29 3A 47 4F 54 4F 20 31 31 " B$(G2):GOTO 11
000120: 35 30 20 0D 0A 31 31 33 30 20 50 52 49 4E 54 20 50 ..1130 PRINT
000130: 22 20 55 4E 41 53 53 49 53 54 45 44 22 3A 47 4F " UNASSISTED":GO
000140: 54 4F 20 31 31 35 30 0D 0A 31 31 34 30 20 50 52 TO 1150..1140 PR
000150: 49 4E 54 20 22 20 41 53 53 49 53 54 45 44 20 42 INT " ASSISTED B
000160: 59 3A 20 22 20 42 24 28 47 31 29 3A 47 4F 54 4F Y: " B$(G1):GOTO
000170: 20 31 31 35 30 0D 0A 31 31 35 30 20 54 32 28 47 1150..1150 T2(G
000180: 29 3D 54 32 28 47 29 2B 31 3A 54 33 28 47 31 29 )=T2(G)+1:T3(G1)
000190: 3D 54 33 28 47 31 29 2B 31 3A 54 33 28 47 32 29 =T3(G1)+1:T3(G2)
0001A0: 3D 54 33 28 47 32 29 2B 31 3A 47 4F 54 4F 20 31 =T3(G2)+1:GOTO 1
0001B0: 35 34 30 0D 0A 31 31 36 30 20 41 32 3D 49 4E 54 540..1160 A2=INT
0001C0: 28 31 30 30 2A 52 4E 44 28 58 29 29 2B 31 3A 49 (100*RND(X))+1:I
0001D0: 46 20 49 4E 54 28 41 32 2F 34 29 3D 41 32 2F 34 F INT(A2/4)=A2/4
0001E0: 20 54 48 45 4E 20 31 31 37 30 0D 0A 31 31 36 35 THEN 1170..1165
0001F0: 20 47 4F 54 4F 20 31 32 30 30 0D 0A 31 31 37 30 GOTO 1200..1170
Size : 512 (Real : 512)
000000: 52 49 4E 54 20 54 41 42 28 35 29 3B 22 4E 41 4D RINT TAB(5);"NAM
000010: 45 22 3B 54 41 42 28 32 30 29 3B 22 47 4F 41 4C E";TAB(20);"GOAL
000020: 53 22 3B 54 41 42 28 33 35 29 3B 22 41 53 53 49 S";TAB(35);"ASSI
000030: 53 54 53 22 20 20 0D 0A 31 36 37 30 20 50 52 49 STS" ..1670 PRI
000040: 4E 54 20 54 41 42 28 35 29 3B 22 2D 2D 2D 2D 22 NT TAB(5);"----"
000050: 3B 54 41 42 28 32 30 29 3B 22 2D 2D 2D 2D 2D 22 ;TAB(20);"-----"
000060: 3B 54 41 42 28 33 35 29 3B 22 2D 2D 2D 2D 2D 2D ;TAB(35);"------
000070: 2D 22 0D 0A 31 36 38 30 20 46 4F 52 20 54 3D 31 -"..1680 FOR T=1
000080: 20 54 4F 20 35 3A 50 52 49 4E 54 20 54 41 42 28 TO 5:PRINT TAB(
000090: 35 29 3B 42 24 28 54 29 3B 54 41 42 28 32 31 29 5);B$(T);TAB(21)
0000A0: 3B 54 32 28 54 29 3B 54 41 42 28 33 36 29 3B 54 ;T2(T);TAB(36);T
0000B0: 33 28 54 29 0D 0A 31 36 39 30 20 4E 45 58 54 20 3(T)..1690 NEXT
0000C0: 54 3A 50 52 49 4E 54 20 0D 0A 31 37 30 30 20 50 T:PRINT ..1700 P
0000D0: 52 49 4E 54 20 22 53 48 4F 54 53 20 4F 4E 20 4E RINT "SHOTS ON N
0000E0: 45 54 22 3A 50 52 49 4E 54 20 41 24 28 37 29 22 ET":PRINT A$(7)"
0000F0: 3A 22 3B 53 32 3A 50 52 49 4E 54 20 42 24 28 37 :";S2:PRINT B$(7
000100: 29 22 3A 22 3B 53 33 20 0D 0A 31 37 31 30 20 45 )":";S3 ..1710 E
000110: 4E 44 0D 0A 31 37 32 30 20 50 52 49 4E 54 3A 20 ND..1720 PRINT:
000120: 50 52 49 4E 54 20 22 54 48 49 53 20 49 53 20 41 PRINT "THIS IS A
000130: 20 53 49 4D 55 4C 41 54 45 44 20 48 4F 43 4B 45 SIMULATED HOCKE
000140: 59 20 47 41 4D 45 2E 22 0D 0A 31 37 33 30 20 50 Y GAME."..1730 P
000150: 52 49 4E 54 20 22 51 55 45 53 54 49 4F 4E 20 20 RINT "QUESTION
000160: 20 20 20 52 45 53 50 4F 4E 53 45 22 0D 0A 31 37 RESPONSE"..17
000170: 34 30 20 50 52 49 4E 54 20 22 50 41 53 53 20 20 40 PRINT "PASS
000180: 20 20 20 20 20 20 20 54 59 50 45 20 49 4E 20 54 TYPE IN T
000190: 48 45 20 4E 55 4D 42 45 52 20 4F 46 20 50 41 53 HE NUMBER OF PAS
0001A0: 53 45 53 20 59 4F 55 20 57 4F 55 4C 44 22 0D 0A SES YOU WOULD"..
0001B0: 31 37 35 30 20 50 52 49 4E 54 20 22 20 20 20 20 1750 PRINT "
0001C0: 20 20 20 20 20 20 20 20 20 4C 49 4B 45 20 54 4F LIKE TO
0001D0: 20 4D 41 4B 45 2C 20 46 52 4F 4D 20 30 20 54 4F MAKE, FROM 0 TO
0001E0: 20 33 2E 22 0D 0A 31 37 36 30 20 50 52 49 4E 54 3."..1760 PRINT
0001F0: 20 22 53 48 4F 54 20 20 20 20 20 20 20 20 20 54 "SHOT T
Size : 512 (Real : 512)
000000: 20 4F 4E 20 43 20 47 4F 54 4F 20 31 31 38 30 2C ON C GOTO 1180,
000010: 31 31 39 30 0D 0A 31 31 38 30 20 50 52 49 4E 54 1190..1180 PRINT
000020: 20 22 53 41 56 45 20 22 20 42 24 28 36 29 20 22 "SAVE " B$(6) "
000030: 20 2D 2D 20 20 52 45 42 4F 55 4E 44 22 3A 47 4F -- REBOUND":GO
000040: 54 4F 20 39 34 30 0D 0A 31 31 39 30 20 50 52 49 TO 940..1190 PRI
000050: 4E 54 20 22 53 41 56 45 20 22 20 41 24 28 36 29 NT "SAVE " A$(6)
000060: 20 22 20 2D 2D 20 20 46 4F 4C 4C 4F 57 20 55 50 " -- FOLLOW UP
000070: 22 3A 47 4F 54 4F 20 39 34 30 0D 0A 31 32 30 30 ":GOTO 940..1200
000080: 20 53 31 3D 49 4E 54 28 36 2A 52 4E 44 28 58 29 S1=INT(6*RND(X)
000090: 29 2B 31 20 0D 0A 31 32 31 30 20 4F 4E 20 43 20 )+1 ..1210 ON C
0000A0: 47 4F 54 4F 20 31 32 32 30 2C 31 33 38 30 0D 0A GOTO 1220,1380..
0000B0: 31 32 32 30 20 4F 4E 20 53 31 20 47 4F 54 4F 20 1220 ON S1 GOTO
0000C0: 31 32 33 30 2C 31 32 36 30 2C 31 32 39 30 2C 31 1230,1260,1290,1
0000D0: 33 30 30 2C 31 33 33 30 2C 31 33 35 30 20 0D 0A 300,1330,1350 ..
0000E0: 31 32 33 30 20 50 52 49 4E 54 20 22 4B 49 43 4B 1230 PRINT "KICK
0000F0: 20 53 41 56 45 20 41 4E 44 20 41 20 42 45 41 55 SAVE AND A BEAU
000100: 54 59 20 42 59 20 22 20 42 24 28 36 29 0D 0A 31 TY BY " B$(6)..1
000110: 32 34 30 20 50 52 49 4E 54 20 22 43 4C 45 41 52 240 PRINT "CLEAR
000120: 45 44 20 4F 55 54 20 42 59 20 22 20 42 24 28 33 ED OUT BY " B$(3
000130: 29 0D 0A 31 32 35 30 20 47 4F 54 4F 20 32 36 30 )..1250 GOTO 260
000140: 20 0D 0A 31 32 36 30 20 50 52 49 4E 54 20 22 57 ..1260 PRINT "W
000150: 48 41 54 20 41 20 53 50 45 43 54 41 43 55 4C 41 HAT A SPECTACULA
000160: 52 20 47 4C 4F 56 45 20 53 41 56 45 20 42 59 20 R GLOVE SAVE BY
000170: 22 20 42 24 28 36 29 0D 0A 31 32 37 30 20 50 52 " B$(6)..1270 PR
000180: 49 4E 54 20 22 41 4E 44 20 22 20 42 24 28 36 29 INT "AND " B$(6)
000190: 20 22 20 47 4F 4C 46 53 20 49 54 20 49 4E 54 4F " GOLFS IT INTO
0001A0: 20 54 48 45 20 43 52 4F 57 44 22 0D 0A 31 32 38 THE CROWD"..128
0001B0: 30 20 47 4F 54 4F 20 31 35 34 30 0D 0A 31 32 39 0 GOTO 1540..129
0001C0: 30 20 50 52 49 4E 54 20 22 53 4B 41 54 45 20 53 0 PRINT "SKATE S
0001D0: 41 56 45 20 4F 4E 20 41 20 4C 4F 57 20 53 54 45 AVE ON A LOW STE
0001E0: 41 4D 45 52 20 42 59 20 22 20 42 24 28 36 29 3A AMER BY " B$(6):
0001F0: 47 4F 54 4F 20 32 36 30 20 0D 0A 31 33 30 30 20 GOTO 260 ..1300
Size : 512 (Real : 512)
000000: 59 50 45 20 54 48 45 20 4E 55 4D 42 45 52 20 43 YPE THE NUMBER C
000010: 4F 52 52 45 53 50 4F 4E 44 49 4E 47 20 54 4F 20 ORRESPONDING TO
000020: 54 48 45 20 53 48 4F 54 22 0D 0A 31 37 37 30 20 THE SHOT"..1770
000030: 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 PRINT "
000040: 20 20 20 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 YOU WANT TO
000050: 4D 41 4B 45 2E 20 20 45 4E 54 45 52 3A 22 0D 0A MAKE. ENTER:"..
000060: 31 37 38 30 20 50 52 49 4E 54 20 22 20 20 20 20 1780 PRINT "
000070: 20 20 20 20 20 20 20 20 20 31 20 46 4F 52 20 41 1 FOR A
000080: 20 53 4C 41 50 53 48 4F 54 22 0D 0A 31 37 39 30 SLAPSHOT"..1790
000090: 20 50 52 49 4E 54 20 22 20 20 20 20 20 20 20 20 PRINT "
0000A0: 20 20 20 20 20 32 20 46 4F 52 20 41 20 57 52 49 2 FOR A WRI
0000B0: 53 54 53 48 4F 54 22 0D 0A 31 38 30 30 20 50 52 STSHOT"..1800 PR
0000C0: 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 20 INT "
0000D0: 20 20 33 20 46 4F 52 20 41 20 42 41 43 4B 48 41 3 FOR A BACKHA
0000E0: 4E 44 22 0D 0A 31 38 31 30 20 50 52 49 4E 54 20 ND"..1810 PRINT
0000F0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 34 20 " 4
000100: 46 4F 52 20 41 20 53 4E 41 50 20 53 48 4F 54 22 FOR A SNAP SHOT"
000110: 0D 0A 31 38 32 30 20 50 52 49 4E 54 20 22 41 52 ..1820 PRINT "AR
000120: 45 41 20 20 20 20 20 20 20 20 20 54 59 50 45 20 EA TYPE
000130: 49 4E 20 54 48 45 20 4E 55 4D 42 45 52 20 43 4F IN THE NUMBER CO
000140: 52 52 45 53 50 4F 4E 44 49 4E 47 20 54 4F 22 0D RRESPONDING TO".
000150: 0A 31 38 33 30 20 50 52 49 4E 54 20 22 20 20 20 .1830 PRINT "
000160: 20 20 20 20 20 20 20 20 20 20 54 48 45 20 41 52 THE AR
000170: 45 41 20 59 4F 55 20 41 52 45 20 41 49 4D 49 4E EA YOU ARE AIMIN
000180: 47 20 41 54 2E 20 20 45 4E 54 45 52 3A 22 0D 0A G AT. ENTER:"..
000190: 31 38 34 30 20 50 52 49 4E 54 20 22 20 20 20 20 1840 PRINT "
0001A0: 20 20 20 20 20 20 20 20 20 31 20 46 4F 52 20 55 1 FOR U
0001B0: 50 50 45 52 20 4C 45 46 54 20 48 41 4E 44 20 43 PPER LEFT HAND C
0001C0: 4F 52 4E 45 52 22 0D 0A 31 38 35 30 20 50 52 49 ORNER"..1850 PRI
0001D0: 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 NT "
0001E0: 20 32 20 46 4F 52 20 55 50 50 45 52 20 52 49 47 2 FOR UPPER RIG
0001F0: 48 54 20 48 41 4E 44 20 43 4F 52 4E 45 52 22 0D HT HAND CORNER".
Size : 512 (Real : 512)
000000: 50 52 49 4E 54 20 22 50 41 44 20 53 41 56 45 20 PRINT "PAD SAVE
000010: 42 59 20 22 20 42 24 28 36 29 20 22 20 4F 46 46 BY " B$(6) " OFF
000020: 20 54 48 45 20 53 54 49 43 4B 22 20 0D 0A 31 33 THE STICK" ..13
000030: 31 30 20 50 52 49 4E 54 20 22 4F 46 20 22 41 24 10 PRINT "OF "A$
000040: 28 47 29 20 22 20 41 4E 44 20 22 20 42 24 28 36 (G) " AND " B$(6
000050: 29 20 22 20 43 4F 56 45 52 53 20 55 50 22 0D 0A ) " COVERS UP"..
000060: 31 33 32 30 20 47 4F 54 4F 20 31 35 34 30 0D 0A 1320 GOTO 1540..
000070: 31 33 33 30 20 50 52 49 4E 54 20 22 57 48 49 53 1330 PRINT "WHIS
000080: 54 4C 45 53 20 4F 4E 45 20 4F 56 45 52 20 54 48 TLES ONE OVER TH
000090: 45 20 48 45 41 44 20 4F 46 20 22 20 42 24 28 36 E HEAD OF " B$(6
0000A0: 29 20 0D 0A 31 33 34 30 20 47 4F 54 4F 20 32 36 ) ..1340 GOTO 26
0000B0: 30 20 0D 0A 31 33 35 30 20 50 52 49 4E 54 20 42 0 ..1350 PRINT B
0000C0: 24 28 36 29 20 22 20 4D 41 4B 45 53 20 41 20 46 $(6) " MAKES A F
0000D0: 41 43 45 20 53 41 56 45 21 21 20 41 4E 44 20 48 ACE SAVE!! AND H
0000E0: 45 20 49 53 20 48 55 52 54 22 0D 0A 31 33 36 30 E IS HURT"..1360
0000F0: 20 50 52 49 4E 54 20 22 54 48 45 20 44 45 46 45 PRINT "THE DEFE
000100: 4E 53 45 4D 41 4E 20 22 20 42 24 28 35 29 20 22 NSEMAN " B$(5) "
000110: 20 43 4F 56 45 52 53 20 55 50 20 46 4F 52 20 48 COVERS UP FOR H
000120: 49 4D 22 20 0D 0A 31 33 37 30 20 47 4F 54 4F 20 IM" ..1370 GOTO
000130: 31 35 34 30 0D 0A 31 33 38 30 20 4F 4E 20 53 31 1540..1380 ON S1
000140: 20 47 4F 54 4F 20 31 33 39 30 2C 31 34 31 30 2C GOTO 1390,1410,
000150: 31 34 34 30 2C 31 34 37 30 2C 31 34 39 30 2C 31 1440,1470,1490,1
000160: 35 32 30 20 0D 0A 31 33 39 30 20 50 52 49 4E 54 520 ..1390 PRINT
000170: 20 22 53 54 49 43 4B 20 53 41 56 45 20 42 59 20 "STICK SAVE BY
000180: 22 20 41 24 28 36 29 20 0D 0A 31 34 30 30 20 50 " A$(6) ..1400 P
000190: 52 49 4E 54 20 22 41 4E 44 20 43 4C 45 41 52 45 RINT "AND CLEARE
0001A0: 44 20 4F 55 54 20 42 59 20 22 20 41 24 28 34 29 D OUT BY " A$(4)
0001B0: 3A 47 4F 54 4F 20 32 36 30 20 0D 0A 31 34 31 30 :GOTO 260 ..1410
0001C0: 20 50 52 49 4E 54 20 22 4F 48 20 4D 59 20 47 4F PRINT "OH MY GO
0001D0: 44 21 21 20 22 20 42 24 28 47 29 20 22 20 52 41 D!! " B$(G) " RA
0001E0: 54 54 4C 45 53 20 4F 4E 45 20 4F 46 46 20 54 48 TTLES ONE OFF TH
0001F0: 45 20 50 4F 53 54 22 20 0D 0A 31 34 32 30 20 50 E POST" ..1420 P
Size : 512 (Real : 512)
000000: 0A 31 38 36 30 20 50 52 49 4E 54 20 22 20 20 20 .1860 PRINT "
000010: 20 20 20 20 20 20 20 20 20 20 33 20 46 4F 52 20 3 FOR
000020: 4C 4F 57 45 52 20 4C 45 46 54 20 48 41 4E 44 20 LOWER LEFT HAND
000030: 43 4F 52 4E 45 52 22 0D 0A 31 38 37 30 20 50 52 CORNER"..1870 PR
000040: 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 20 INT "
000050: 20 20 34 20 46 4F 52 20 4C 4F 57 45 52 20 52 49 4 FOR LOWER RI
000060: 47 48 54 20 48 41 4E 44 20 43 4F 52 4E 45 52 22 GHT HAND CORNER"
000070: 0D 0A 31 38 38 30 20 50 52 49 4E 54 0D 0A 31 38 ..1880 PRINT..18
000080: 39 30 20 50 52 49 4E 54 20 22 41 54 20 54 48 45 90 PRINT "AT THE
000090: 20 53 54 41 52 54 20 4F 46 20 54 48 45 20 47 41 START OF THE GA
0000A0: 4D 45 2C 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 ME, YOU WILL BE
0000B0: 41 53 4B 45 44 20 46 4F 52 20 54 48 45 20 4E 41 ASKED FOR THE NA
0000C0: 4D 45 53 22 0D 0A 31 39 30 30 20 50 52 49 4E 54 MES"..1900 PRINT
0000D0: 20 22 4F 46 20 59 4F 55 52 20 50 4C 41 59 45 52 "OF YOUR PLAYER
0000E0: 53 2E 20 20 54 48 45 59 20 41 52 45 20 45 4E 54 S. THEY ARE ENT
0000F0: 45 52 45 44 20 49 4E 20 54 48 45 20 4F 52 44 45 ERED IN THE ORDE
000100: 52 3A 20 22 0D 0A 31 39 31 30 20 50 52 49 4E 54 R: "..1910 PRINT
000110: 20 22 4C 45 46 54 20 57 49 4E 47 2C 20 43 45 4E "LEFT WING, CEN
000120: 54 45 52 2C 20 52 49 47 48 54 20 57 49 4E 47 2C TER, RIGHT WING,
000130: 20 4C 45 46 54 20 44 45 46 45 4E 53 45 2C 22 0D LEFT DEFENSE,".
000140: 0A 31 39 32 30 20 50 52 49 4E 54 20 22 52 49 47 .1920 PRINT "RIG
000150: 48 54 20 44 45 46 45 4E 53 45 2C 20 47 4F 41 4C HT DEFENSE, GOAL
000160: 4B 45 45 50 45 52 2E 20 20 41 4E 59 20 4F 54 48 KEEPER. ANY OTH
000170: 45 52 20 49 4E 50 55 54 20 52 45 51 55 49 52 45 ER INPUT REQUIRE
000180: 44 20 57 49 4C 4C 22 0D 0A 31 39 33 30 20 50 52 D WILL"..1930 PR
000190: 49 4E 54 20 22 48 41 56 45 20 45 58 50 4C 41 4E INT "HAVE EXPLAN
0001A0: 41 54 4F 52 59 20 49 4E 53 54 52 55 43 54 49 4F ATORY INSTRUCTIO
0001B0: 4E 53 2E 22 0D 0A 31 39 34 30 20 47 4F 54 4F 20 NS."..1940 GOTO
0001C0: 39 30 0D 0A 31 39 35 30 20 45 4E 44 0D 0A 1A E5 90..1950 END....
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 58 58 58 58 22 0D 0A 37 33 30 20 46 4F 52 20 49 XXXX"..730 FOR I
000010: 3D 31 20 54 4F 20 38 0D 0A 37 34 30 20 4C 45 54 =1 TO 8..740 LET
000020: 20 4D 3D 49 0D 0A 37 35 30 20 4C 45 54 20 4D 28 M=I..750 LET M(
000030: 49 29 3D 4D 0D 0A 37 36 30 20 4C 45 54 20 59 28 I)=M..760 LET Y(
000040: 4D 28 49 29 29 3D 49 4E 54 28 31 30 30 2A 52 4E M(I))=INT(100*RN
000050: 44 28 31 29 2B 31 29 0D 0A 37 37 30 20 49 46 20 D(1)+1)..770 IF
000060: 59 28 4D 28 49 29 29 3C 31 30 20 54 48 45 4E 20 Y(M(I))<10 THEN
000070: 38 36 30 0D 0A 37 38 30 20 4C 45 54 20 53 3D 49 860..780 LET S=I
000080: 4E 54 28 52 2F 44 28 49 29 2B 2E 35 29 0D 0A 37 NT(R/D(I)+.5)..7
000090: 39 30 20 49 46 20 59 28 4D 28 49 29 29 3C 53 2B 90 IF Y(M(I))<S+
0000A0: 31 37 20 54 48 45 4E 20 38 38 30 0D 0A 38 30 30 17 THEN 880..800
0000B0: 20 49 46 20 59 28 4D 28 49 29 29 3C 53 2B 33 37 IF Y(M(I))<S+37
0000C0: 20 54 48 45 4E 20 39 30 30 0D 0A 38 31 30 20 49 THEN 900..810 I
0000D0: 46 20 59 28 4D 28 49 29 29 3C 53 2B 35 37 20 54 F Y(M(I))<S+57 T
0000E0: 48 45 4E 20 39 32 30 0D 0A 38 32 30 20 49 46 20 HEN 920..820 IF
0000F0: 59 28 4D 28 49 29 29 3C 37 37 2B 53 20 54 48 45 Y(M(I))<77+S THE
000100: 4E 20 39 34 30 0D 0A 38 33 30 20 49 46 20 59 28 N 940..830 IF Y(
000110: 4D 28 49 29 29 3C 53 2B 39 32 20 54 48 45 4E 20 M(I))<S+92 THEN
000120: 39 36 30 0D 0A 38 34 30 20 4C 45 54 20 59 28 4D 960..840 LET Y(M
000130: 28 49 29 29 3D 37 0D 0A 38 35 30 20 47 4F 54 4F (I))=7..850 GOTO
000140: 20 39 37 30 0D 0A 38 36 30 20 4C 45 54 20 59 28 970..860 LET Y(
000150: 4D 28 49 29 29 3D 31 0D 0A 38 37 30 20 47 4F 54 M(I))=1..870 GOT
000160: 4F 20 39 37 30 0D 0A 38 38 30 20 4C 45 54 20 59 O 970..880 LET Y
000170: 28 4D 28 49 29 29 3D 32 0D 0A 38 39 30 20 47 4F (M(I))=2..890 GO
000180: 54 4F 20 39 37 30 0D 0A 39 30 30 20 4C 45 54 20 TO 970..900 LET
000190: 59 28 4D 28 49 29 29 3D 33 0D 0A 39 31 30 20 47 Y(M(I))=3..910 G
0001A0: 4F 54 4F 20 39 37 30 0D 0A 39 32 30 20 4C 45 54 OTO 970..920 LET
0001B0: 20 59 28 4D 28 49 29 29 3D 34 0D 0A 39 33 30 20 Y(M(I))=4..930
0001C0: 47 4F 54 4F 20 39 37 30 0D 0A 39 34 30 20 4C 45 GOTO 970..940 LE
0001D0: 54 20 59 28 4D 28 49 29 29 3D 35 0D 0A 39 35 30 T Y(M(I))=5..950
0001E0: 20 47 4F 54 4F 20 39 37 30 0D 0A 39 36 30 20 4C GOTO 970..960 L
0001F0: 45 54 20 59 28 4D 28 49 29 29 3D 36 0D 0A 39 37 ET Y(M(I))=6..97
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 30 20 4E 45 58 54 20 49 0D 0A 39 38 30 20 4C 45 0 NEXT I..980 LE
000010: 54 20 4D 3D 49 0D 0A 39 39 30 20 46 4F 52 20 49 T M=I..990 FOR I
000020: 3D 31 20 54 4F 20 38 0D 0A 31 30 30 30 20 4C 45 =1 TO 8..1000 LE
000030: 54 20 53 28 4D 28 49 29 29 3D 53 28 4D 28 49 29 T S(M(I))=S(M(I)
000040: 29 2B 59 28 4D 28 49 29 29 0D 0A 31 30 31 30 20 )+Y(M(I))..1010
000050: 4E 45 58 54 20 49 0D 0A 31 30 32 30 20 4C 45 54 NEXT I..1020 LET
000060: 20 49 3D 31 0D 0A 31 30 33 30 20 46 4F 52 20 4C I=1..1030 FOR L
000070: 3D 31 20 54 4F 20 38 0D 0A 31 30 34 30 20 46 4F =1 TO 8..1040 FO
000080: 52 20 49 3D 31 20 54 4F 20 38 2D 4C 0D 0A 31 30 R I=1 TO 8-L..10
000090: 35 30 20 49 46 20 53 28 4D 28 49 29 29 3C 53 28 50 IF S(M(I))<S(
0000A0: 4D 28 49 2B 31 29 29 54 48 45 4E 20 31 30 39 30 M(I+1))THEN 1090
0000B0: 0D 0A 31 30 36 30 20 4C 45 54 20 48 3D 4D 28 49 ..1060 LET H=M(I
0000C0: 29 0D 0A 31 30 37 30 20 4C 45 54 20 4D 28 49 29 )..1070 LET M(I)
0000D0: 3D 4D 28 49 2B 31 29 0D 0A 31 30 38 30 20 4C 45 =M(I+1)..1080 LE
0000E0: 54 20 4D 28 49 2B 31 29 3D 48 0D 0A 31 30 39 30 T M(I+1)=H..1090
0000F0: 20 4E 45 58 54 20 49 0D 0A 31 31 30 30 20 4E 45 NEXT I..1100 NE
000100: 58 54 20 4C 0D 0A 31 31 31 30 20 4C 45 54 20 54 XT L..1110 LET T
000110: 3D 53 28 4D 28 38 29 29 0D 0A 31 31 32 30 20 46 =S(M(8))..1120 F
000120: 4F 52 20 49 3D 31 20 54 4F 20 38 0D 0A 31 31 33 OR I=1 TO 8..113
000130: 30 20 4C 45 54 20 42 3D 53 28 4D 28 49 29 29 2D 0 LET B=S(M(I))-
000140: 53 28 4D 28 49 2D 31 29 29 0D 0A 31 31 34 30 20 S(M(I-1))..1140
000150: 49 46 20 42 3D 30 20 54 48 45 4E 20 31 31 39 30 IF B=0 THEN 1190
000160: 0D 0A 31 31 35 30 20 46 4F 52 20 41 3D 31 20 54 ..1150 FOR A=1 T
000170: 4F 20 42 0D 0A 31 31 36 30 20 50 52 49 4E 54 0D O B..1160 PRINT.
000180: 0A 31 31 37 30 20 49 46 20 53 28 4D 28 49 29 29 .1170 IF S(M(I))
000190: 3E 32 37 20 54 48 45 4E 20 31 32 34 30 0D 0A 31 >27 THEN 1240..1
0001A0: 31 38 30 20 4E 45 58 54 20 41 0D 0A 31 31 39 30 180 NEXT A..1190
0001B0: 20 50 52 49 4E 54 20 4D 28 49 29 3B 0D 0A 31 32 PRINT M(I);..12
0001C0: 30 30 20 4E 45 58 54 20 49 0D 0A 31 32 31 30 20 00 NEXT I..1210
0001D0: 46 4F 52 20 41 3D 31 20 54 4F 20 32 38 2D 54 0D FOR A=1 TO 28-T.
0001E0: 0A 31 32 32 30 20 50 52 49 4E 54 0D 0A 31 32 33 .1220 PRINT..123
0001F0: 30 20 4E 45 58 54 20 41 0D 0A 31 32 34 30 20 50 0 NEXT A..1240 P
Size : 512 (Real : 512)
000000: 31 30 30 20 50 52 49 4E 54 20 54 41 42 28 33 31 100 PRINT TAB(31
000010: 29 3B 22 48 4F 52 53 45 52 41 43 45 22 0D 0A 31 );"HORSERACE"..1
000020: 31 30 20 50 52 49 4E 54 20 54 41 42 28 31 35 29 10 PRINT TAB(15)
000030: 3B 22 43 52 45 41 54 49 56 45 20 43 4F 4D 50 55 ;"CREATIVE COMPU
000040: 54 49 4E 47 20 20 4D 4F 52 52 49 53 54 4F 57 4E TING MORRISTOWN
000050: 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 0D 0A 31 , NEW JERSEY"..1
000060: 32 30 20 50 52 49 4E 54 3A 50 52 49 4E 54 3A 50 20 PRINT:PRINT:P
000070: 52 49 4E 54 0D 0A 32 31 30 20 44 49 4D 20 53 28 RINT..210 DIM S(
000080: 38 29 0D 0A 32 32 30 20 50 52 49 4E 54 20 22 57 8)..220 PRINT "W
000090: 45 4C 43 4F 4D 45 20 54 4F 20 53 4F 55 54 48 20 ELCOME TO SOUTH
0000A0: 50 4F 52 54 4C 41 4E 44 20 48 49 47 48 20 52 41 PORTLAND HIGH RA
0000B0: 43 45 54 52 41 43 4B 22 0D 0A 32 33 30 20 50 52 CETRACK"..230 PR
0000C0: 49 4E 54 20 22 20 20 20 20 20 20 20 20 20 20 20 INT "
0000D0: 20 20 20 20 20 20 20 20 20 20 20 2E 2E 2E 4F 57 ...OW
0000E0: 4E 45 44 20 42 59 20 4C 41 55 52 49 45 20 43 48 NED BY LAURIE CH
0000F0: 45 56 41 4C 49 45 52 22 0D 0A 32 34 30 20 50 52 EVALIER"..240 PR
000100: 49 4E 54 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 INT "DO YOU WANT
000110: 20 44 49 52 45 43 54 49 4F 4E 53 22 3B 0D 0A 32 DIRECTIONS";..2
000120: 35 30 20 49 4E 50 55 54 20 58 24 0D 0A 32 36 30 50 INPUT X$..260
000130: 20 49 46 20 58 24 3D 22 4E 4F 22 20 54 48 45 4E IF X$="NO" THEN
000140: 20 33 32 30 0D 0A 32 37 30 20 50 52 49 4E 54 22 320..270 PRINT"
000150: 55 50 20 54 4F 20 31 30 20 4D 41 59 20 50 4C 41 UP TO 10 MAY PLA
000160: 59 2E 20 20 41 20 54 41 42 4C 45 20 4F 46 20 4F Y. A TABLE OF O
000170: 44 44 53 20 57 49 4C 4C 20 42 45 20 50 52 49 4E DDS WILL BE PRIN
000180: 54 45 44 2E 20 20 59 4F 55 22 0D 0A 32 38 30 20 TED. YOU"..280
000190: 50 52 49 4E 54 22 4D 41 59 20 42 45 54 20 41 4E PRINT"MAY BET AN
0001A0: 59 20 2B 20 41 4D 4F 55 4E 54 20 55 4E 44 45 52 Y + AMOUNT UNDER
0001B0: 20 31 30 30 30 30 30 20 4F 4E 20 4F 4E 45 20 48 100000 ON ONE H
0001C0: 4F 52 53 45 2E 22 0D 0A 32 39 30 20 50 52 49 4E ORSE."..290 PRIN
0001D0: 54 20 22 44 55 52 49 4E 47 20 54 48 45 20 52 41 T "DURING THE RA
0001E0: 43 45 2C 20 41 20 48 4F 52 53 45 20 57 49 4C 4C CE, A HORSE WILL
0001F0: 20 42 45 20 53 48 4F 57 4E 20 42 59 20 49 54 53 BE SHOWN BY ITS
Size : 512 (Real : 512)
000000: 52 49 4E 54 20 22 58 58 58 58 46 49 4E 49 53 48 RINT "XXXXFINISH
000010: 58 58 58 58 22 3B 0D 0A 31 32 34 32 20 50 52 49 XXXX";..1242 PRI
000020: 4E 54 0D 0A 31 32 34 33 20 50 52 49 4E 54 0D 0A NT..1243 PRINT..
000030: 31 32 34 34 20 50 52 49 4E 54 20 22 2D 2D 2D 2D 1244 PRINT "----
000040: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 31 32 34 35 ---------"..1245
000070: 20 50 52 49 4E 54 0D 0A 31 32 35 30 20 49 46 20 PRINT..1250 IF
000080: 54 3C 32 38 20 54 48 45 4E 20 37 32 30 0D 0A 31 T<28 THEN 720..1
000090: 32 37 30 20 50 52 49 4E 54 20 22 54 48 45 20 52 270 PRINT "THE R
0000A0: 41 43 45 20 52 45 53 55 4C 54 53 20 41 52 45 3A ACE RESULTS ARE:
0000B0: 22 0D 0A 31 32 37 32 20 4C 45 54 20 5A 39 3D 31 "..1272 LET Z9=1
0000C0: 0D 0A 31 32 38 30 20 46 4F 52 20 49 3D 38 20 54 ..1280 FOR I=8 T
0000D0: 4F 20 31 20 53 54 45 50 2D 31 0D 0A 31 32 39 30 O 1 STEP-1..1290
0000E0: 20 4C 45 54 20 46 3D 4D 28 49 29 0D 0A 31 33 30 LET F=M(I)..130
0000F0: 30 20 50 52 49 4E 54 0D 0A 31 33 31 30 20 50 52 0 PRINT..1310 PR
000100: 49 4E 54 20 5A 39 3B 22 50 4C 41 43 45 20 48 4F INT Z9;"PLACE HO
000110: 52 53 45 20 4E 4F 2E 22 3B 46 2C 22 41 54 20 22 RSE NO.";F,"AT "
000120: 3B 52 2F 44 28 46 29 3B 22 3A 31 22 0D 0A 31 33 ;R/D(F);":1"..13
000130: 31 32 20 4C 45 54 20 5A 39 3D 5A 39 2B 31 0D 0A 12 LET Z9=Z9+1..
000140: 31 33 32 30 20 20 4E 45 58 54 20 49 0D 0A 31 33 1320 NEXT I..13
000150: 33 30 20 46 4F 52 20 4A 3D 31 20 54 4F 20 43 0D 30 FOR J=1 TO C.
000160: 0A 31 33 34 30 20 49 46 20 51 28 4A 29 3C 3E 4D .1340 IF Q(J)<>M
000170: 28 38 29 20 54 48 45 4E 20 31 33 37 30 0D 0A 31 (8) THEN 1370..1
000180: 33 35 30 20 4C 45 54 20 4E 3D 51 28 4A 29 0D 0A 350 LET N=Q(J)..
000190: 31 33 35 35 20 50 52 49 4E 54 0D 0A 31 33 36 30 1355 PRINT..1360
0001A0: 20 50 52 49 4E 54 20 57 24 28 4A 29 3B 22 20 57 PRINT W$(J);" W
0001B0: 49 4E 53 20 24 22 3B 28 52 2F 44 28 4E 29 29 2A INS $";(R/D(N))*
0001C0: 50 28 4A 29 0D 0A 31 33 37 30 20 4E 45 58 54 20 P(J)..1370 NEXT
0001D0: 4A 0D 0A 31 33 37 32 20 50 52 49 4E 54 20 22 44 J..1372 PRINT "D
0001E0: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 42 45 O YOU WANT TO BE
0001F0: 54 20 4F 4E 20 54 48 45 20 4E 45 58 54 20 52 41 T ON THE NEXT RA
Size : 512 (Real : 512)
000000: 22 0D 0A 33 30 30 20 50 52 49 4E 54 22 4E 55 4D "..300 PRINT"NUM
000010: 42 45 52 2E 20 20 54 48 45 20 48 4F 52 53 45 53 BER. THE HORSES
000020: 20 52 41 43 45 20 44 4F 57 4E 20 54 48 45 20 50 RACE DOWN THE P
000030: 41 50 45 52 21 22 0D 0A 33 31 30 20 50 52 49 4E APER!"..310 PRIN
000040: 54 0D 0A 33 32 30 20 50 52 49 4E 54 20 22 48 4F T..320 PRINT "HO
000050: 57 20 4D 41 4E 59 20 57 41 4E 54 20 54 4F 20 42 W MANY WANT TO B
000060: 45 54 22 3B 0D 0A 33 33 30 20 49 4E 50 55 54 20 ET";..330 INPUT
000070: 43 0D 0A 33 34 30 20 50 52 49 4E 54 20 22 57 48 C..340 PRINT "WH
000080: 45 4E 20 3F 20 41 50 50 45 41 52 53 2C 54 59 50 EN ? APPEARS,TYP
000090: 45 20 4E 41 4D 45 22 0D 0A 33 35 30 20 46 4F 52 E NAME"..350 FOR
0000A0: 20 41 3D 31 20 54 4F 20 43 0D 0A 33 36 30 20 49 A=1 TO C..360 I
0000B0: 4E 50 55 54 20 57 24 28 41 29 0D 0A 33 37 30 20 NPUT W$(A)..370
0000C0: 4E 45 58 54 20 41 0D 0A 33 38 30 20 50 52 49 4E NEXT A..380 PRIN
0000D0: 54 0D 0A 33 39 30 20 50 52 49 4E 54 22 48 4F 52 T..390 PRINT"HOR
0000E0: 53 45 22 2C 2C 22 4E 55 4D 42 45 52 22 2C 22 4F SE",,"NUMBER","O
0000F0: 44 44 53 22 0D 0A 34 30 30 20 50 52 49 4E 54 0D DDS"..400 PRINT.
000100: 0A 34 31 30 20 46 4F 52 20 49 3D 31 20 54 4F 20 .410 FOR I=1 TO
000110: 38 3A 20 53 28 49 29 3D 30 3A 20 4E 45 58 54 20 8: S(I)=0: NEXT
000120: 49 0D 0A 34 32 30 20 4C 45 54 20 52 3D 30 0D 0A I..420 LET R=0..
000130: 34 33 30 20 46 4F 52 20 41 3D 31 20 54 4F 20 38 430 FOR A=1 TO 8
000140: 0D 0A 34 34 30 20 4C 45 54 20 44 28 41 29 3D 49 ..440 LET D(A)=I
000150: 4E 54 28 31 30 2A 52 4E 44 28 31 29 2B 31 29 0D NT(10*RND(1)+1).
000160: 0A 34 35 30 20 4E 45 58 54 20 41 0D 0A 34 36 30 .450 NEXT A..460
000170: 20 46 4F 52 20 41 3D 31 20 54 4F 20 38 0D 0A 34 FOR A=1 TO 8..4
000180: 37 30 20 4C 45 54 20 52 3D 52 2B 44 28 41 29 0D 70 LET R=R+D(A).
000190: 0A 34 38 30 20 4E 45 58 54 20 41 0D 0A 34 39 30 .480 NEXT A..490
0001A0: 20 4C 45 54 20 56 24 28 31 29 3D 22 4A 4F 45 20 LET V$(1)="JOE
0001B0: 4D 41 57 22 0D 0A 35 30 30 20 4C 45 54 20 56 24 MAW"..500 LET V$
0001C0: 28 32 29 3D 22 4C 2E 42 2E 4A 2E 22 0D 0A 35 31 (2)="L.B.J."..51
0001D0: 30 20 4C 45 54 20 56 24 28 33 29 3D 22 4D 52 2E 0 LET V$(3)="MR.
0001E0: 57 41 53 48 42 55 52 4E 22 0D 0A 35 32 30 20 4C WASHBURN"..520 L
0001F0: 45 54 20 56 24 28 34 29 3D 22 4D 49 53 53 20 4B ET V$(4)="MISS K
Size : 512 (Real : 512)
000000: 43 45 20 3F 22 0D 0A 31 33 37 34 20 49 4E 50 55 CE ?"..1374 INPU
000010: 54 20 22 59 45 53 20 4F 52 20 4E 4F 22 3B 20 4F T "YES OR NO"; O
000020: 24 0D 0A 31 33 37 36 20 49 46 20 4F 24 3D 22 59 $..1376 IF O$="Y
000030: 45 53 22 20 54 48 45 4E 20 33 38 30 0D 0A 31 33 ES" THEN 380..13
000040: 38 30 20 45 4E 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 80 END..........
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 41 52 45 4E 22 0D 0A 35 33 30 20 4C 45 54 20 56 AREN"..530 LET V
000010: 24 28 35 29 3D 22 4A 4F 4C 4C 59 22 0D 0A 35 34 $(5)="JOLLY"..54
000020: 30 20 4C 45 54 20 56 24 28 36 29 3D 22 48 4F 52 0 LET V$(6)="HOR
000030: 53 45 22 0D 0A 35 35 30 20 4C 45 54 20 56 24 28 SE"..550 LET V$(
000040: 37 29 3D 22 4A 45 4C 4C 59 20 44 4F 20 4E 4F 54 7)="JELLY DO NOT
000050: 22 0D 0A 35 36 30 20 4C 45 54 20 56 24 28 38 29 "..560 LET V$(8)
000060: 3D 22 4D 49 44 4E 49 47 48 54 22 0D 0A 35 37 30 ="MIDNIGHT"..570
000070: 20 46 4F 52 20 4E 3D 31 20 54 4F 20 38 0D 0A 35 FOR N=1 TO 8..5
000080: 38 30 20 50 52 49 4E 54 20 56 24 28 4E 29 2C 2C 80 PRINT V$(N),,
000090: 4E 2C 52 2F 44 28 4E 29 3B 22 3A 31 22 0D 0A 35 N,R/D(N);":1"..5
0000A0: 39 30 20 4E 45 58 54 20 4E 0D 0A 36 30 30 20 50 90 NEXT N..600 P
0000B0: 52 49 4E 54 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D RINT"-----------
0000C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ----------------
0000E0: 2D 2D 2D 2D 2D 2D 2D 22 0D 0A 36 31 30 20 50 52 -------"..610 PR
0000F0: 49 4E 54 20 22 50 4C 41 43 45 20 59 4F 55 52 20 INT "PLACE YOUR
000100: 42 45 54 53 2E 2E 2E 48 4F 52 53 45 20 23 20 54 BETS...HORSE # T
000110: 48 45 4E 20 41 4D 4F 55 4E 54 22 0D 0A 36 32 30 HEN AMOUNT"..620
000120: 20 46 4F 52 20 4A 3D 31 20 54 4F 20 43 0D 0A 36 FOR J=1 TO C..6
000130: 33 30 20 50 52 49 4E 54 20 57 24 28 4A 29 3B 0D 30 PRINT W$(J);.
000140: 0A 36 34 30 20 49 4E 50 55 54 20 51 28 4A 29 2C .640 INPUT Q(J),
000150: 50 28 4A 29 0D 0A 36 35 30 20 49 46 20 50 28 4A P(J)..650 IF P(J
000160: 29 3C 31 20 54 48 45 4E 20 36 37 30 0D 0A 36 36 )<1 THEN 670..66
000170: 30 20 49 46 20 50 28 4A 29 3C 31 30 30 30 30 30 0 IF P(J)<100000
000180: 20 54 48 45 4E 20 36 39 30 0D 0A 36 37 30 20 50 THEN 690..670 P
000190: 52 49 4E 54 22 20 20 59 4F 55 20 43 41 4E 27 54 RINT" YOU CAN'T
0001A0: 20 44 4F 20 54 48 41 54 21 22 0D 0A 36 38 30 20 DO THAT!"..680
0001B0: 47 4F 54 4F 20 36 33 30 0D 0A 36 39 30 20 4E 45 GOTO 630..690 NE
0001C0: 58 54 20 4A 0D 0A 37 30 30 20 50 52 49 4E 54 0D XT J..700 PRINT.
0001D0: 0A 37 31 30 20 50 52 49 4E 54 22 31 20 32 20 33 .710 PRINT"1 2 3
0001E0: 20 34 20 35 20 36 20 37 20 38 22 0D 0A 37 32 30 4 5 6 7 8"..720
0001F0: 20 50 52 49 4E 54 22 58 58 58 58 53 54 41 52 54 PRINT"XXXXSTART
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 32 20 50 52 49 4E 54 20 54 41 42 28 33 32 29 3B 2 PRINT TAB(32);
000010: 22 46 4C 49 50 46 4C 4F 50 22 0D 0A 34 20 50 52 "FLIPFLOP"..4 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 36 20 50 52 49 4E JERSEY"..6 PRIN
000060: 54 0D 0A 31 30 20 52 45 4D 20 2A 2A 2A 20 43 52 T..10 REM *** CR
000070: 45 41 54 45 44 20 42 59 20 4D 49 43 48 41 45 4C EATED BY MICHAEL
000080: 20 43 41 53 53 0D 0A 31 35 20 44 49 4D 20 41 24 CASS..15 DIM A$
000090: 28 32 30 29 0D 0A 32 30 20 50 52 49 4E 54 20 22 (20)..20 PRINT "
0000A0: 54 48 45 20 4F 42 4A 45 43 54 20 4F 46 20 54 48 THE OBJECT OF TH
0000B0: 49 53 20 50 55 5A 5A 4C 45 20 49 53 20 54 4F 20 IS PUZZLE IS TO
0000C0: 43 48 41 4E 47 45 20 54 48 49 53 3A 22 0D 0A 33 CHANGE THIS:"..3
0000D0: 30 20 50 52 49 4E 54 0D 0A 34 30 20 50 52 49 4E 0 PRINT..40 PRIN
0000E0: 54 20 22 58 20 58 20 58 20 58 20 58 20 58 20 58 T "X X X X X X X
0000F0: 20 58 20 58 20 58 22 0D 0A 35 30 20 50 52 49 4E X X X"..50 PRIN
000100: 54 0D 0A 36 30 20 50 52 49 4E 54 20 22 54 4F 20 T..60 PRINT "TO
000110: 54 48 49 53 3A 22 0D 0A 37 30 20 50 52 49 4E 54 THIS:"..70 PRINT
000120: 0D 0A 38 30 20 50 52 49 4E 54 20 22 4F 20 4F 20 ..80 PRINT "O O
000130: 4F 20 4F 20 4F 20 4F 20 4F 20 4F 20 4F 20 4F 22 O O O O O O O O"
000140: 0D 0A 39 30 20 50 52 49 4E 54 0D 0A 31 30 30 20 ..90 PRINT..100
000150: 50 52 49 4E 54 20 22 42 59 20 54 59 50 49 4E 47 PRINT "BY TYPING
000160: 20 54 48 45 20 4E 55 4D 42 45 52 20 43 4F 52 52 THE NUMBER CORR
000170: 45 53 50 4F 4E 44 49 4E 47 20 54 4F 20 54 48 45 ESPONDING TO THE
000180: 20 50 4F 53 49 54 49 4F 4E 20 4F 46 20 54 48 45 POSITION OF THE
000190: 22 0D 0A 31 31 30 20 50 52 49 4E 54 20 22 4C 45 "..110 PRINT "LE
0001A0: 54 54 45 52 20 4F 4E 20 53 4F 4D 45 20 4E 55 4D TTER ON SOME NUM
0001B0: 42 45 52 53 2C 20 4F 4E 45 20 50 4F 53 49 54 49 BERS, ONE POSITI
0001C0: 4F 4E 20 57 49 4C 4C 20 43 48 41 4E 47 45 2C 20 ON WILL CHANGE,
0001D0: 4F 4E 22 0D 0A 31 32 30 20 50 52 49 4E 54 20 22 ON"..120 PRINT "
0001E0: 4F 54 48 45 52 53 2C 20 54 57 4F 20 57 49 4C 4C OTHERS, TWO WILL
0001F0: 20 43 48 41 4E 47 45 2E 20 20 54 4F 20 52 45 53 CHANGE. TO RES
Size : 512 (Real : 512)
000000: 31 30 20 50 52 49 4E 54 20 54 41 42 28 33 33 29 10 PRINT TAB(33)
000010: 3B 22 48 55 52 4B 4C 45 22 0D 0A 32 30 20 50 52 ;"HURKLE"..20 PR
000020: 49 4E 54 20 54 41 42 28 31 35 29 3B 22 43 52 45 INT TAB(15);"CRE
000030: 41 54 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 20 ATIVE COMPUTING
000040: 20 4D 4F 52 52 49 53 54 4F 57 4E 2C 20 4E 45 57 MORRISTOWN, NEW
000050: 20 4A 45 52 53 45 59 22 0D 0A 33 30 20 50 52 49 JERSEY"..30 PRI
000060: 4E 54 3A 50 52 49 4E 54 3A 50 52 49 4E 54 0D 0A NT:PRINT:PRINT..
000070: 31 31 30 20 4E 3D 35 0D 0A 31 32 30 20 47 3D 31 110 N=5..120 G=1
000080: 30 0D 0A 32 31 30 20 50 52 49 4E 54 0D 0A 32 32 0..210 PRINT..22
000090: 30 20 50 52 49 4E 54 20 22 41 20 48 55 52 4B 4C 0 PRINT "A HURKL
0000A0: 45 20 49 53 20 48 49 44 49 4E 47 20 4F 4E 20 41 E IS HIDING ON A
0000B0: 22 3B 47 3B 22 42 59 22 3B 47 3B 22 47 52 49 44 ";G;"BY";G;"GRID
0000C0: 2E 20 48 4F 4D 45 42 41 53 45 22 0D 0A 32 33 30 . HOMEBASE"..230
0000D0: 20 50 52 49 4E 54 20 22 4F 4E 20 54 48 45 20 47 PRINT "ON THE G
0000E0: 52 49 44 20 49 53 20 50 4F 49 4E 54 20 30 2C 30 RID IS POINT 0,0
0000F0: 20 49 4E 20 54 48 45 20 53 4F 55 54 48 57 45 53 IN THE SOUTHWES
000100: 54 20 43 4F 52 4E 45 52 2C 22 0D 0A 32 33 35 20 T CORNER,"..235
000110: 50 52 49 4E 54 20 22 41 4E 44 20 41 4E 59 20 50 PRINT "AND ANY P
000120: 4F 49 4E 54 20 4F 4E 20 54 48 45 20 47 52 49 44 OINT ON THE GRID
000130: 20 49 53 20 44 45 53 49 47 4E 41 54 45 44 20 42 IS DESIGNATED B
000140: 59 20 41 22 0D 0A 32 34 30 20 50 52 49 4E 54 20 Y A"..240 PRINT
000150: 22 50 41 49 52 20 4F 46 20 57 48 4F 4C 45 20 4E "PAIR OF WHOLE N
000160: 55 4D 42 45 52 53 20 53 45 50 45 52 41 54 45 44 UMBERS SEPERATED
000170: 20 42 59 20 41 20 43 4F 4D 4D 41 2E 20 54 48 45 BY A COMMA. THE
000180: 20 46 49 52 53 54 22 0D 0A 32 34 35 20 50 52 49 FIRST"..245 PRI
000190: 4E 54 20 22 4E 55 4D 42 45 52 20 49 53 20 54 48 NT "NUMBER IS TH
0001A0: 45 20 48 4F 52 49 5A 4F 4E 54 41 4C 20 50 4F 53 E HORIZONTAL POS
0001B0: 49 54 49 4F 4E 20 41 4E 44 20 54 48 45 20 53 45 ITION AND THE SE
0001C0: 43 4F 4E 44 20 4E 55 4D 42 45 52 22 0D 0A 32 34 COND NUMBER"..24
0001D0: 36 20 50 52 49 4E 54 20 22 49 53 20 54 48 45 20 6 PRINT "IS THE
0001E0: 56 45 52 54 49 43 41 4C 20 50 4F 53 49 54 49 4F VERTICAL POSITIO
0001F0: 4E 2E 20 59 4F 55 20 4D 55 53 54 20 54 52 59 20 N. YOU MUST TRY
Size : 512 (Real : 512)
000000: 45 54 20 4C 49 4E 45 20 54 4F 20 41 4C 4C 20 58 ET LINE TO ALL X
000010: 27 53 2C 20 54 59 50 45 20 30 22 0D 0A 31 33 30 'S, TYPE 0"..130
000020: 20 50 52 49 4E 54 20 22 28 5A 45 52 4F 29 20 41 PRINT "(ZERO) A
000030: 4E 44 20 54 4F 20 53 54 41 52 54 20 4F 56 45 52 ND TO START OVER
000040: 20 49 4E 20 54 48 45 20 4D 49 44 44 4C 45 20 4F IN THE MIDDLE O
000050: 46 20 41 20 47 41 4D 45 2C 20 54 59 50 45 20 22 F A GAME, TYPE "
000060: 0D 0A 31 34 30 20 50 52 49 4E 54 20 22 31 31 20 ..140 PRINT "11
000070: 28 45 4C 45 56 45 4E 29 2E 22 0D 0A 31 37 30 20 (ELEVEN)."..170
000080: 50 52 49 4E 54 0D 0A 31 38 30 20 52 45 4D 0D 0A PRINT..180 REM..
000090: 31 39 30 20 51 3D 52 4E 44 28 31 29 0D 0A 32 30 190 Q=RND(1)..20
0000A0: 30 20 50 52 49 4E 54 20 22 48 45 52 45 20 49 53 0 PRINT "HERE IS
0000B0: 20 54 48 45 20 53 54 41 52 54 49 4E 47 20 4C 49 THE STARTING LI
0000C0: 4E 45 20 4F 46 20 58 27 53 2E 22 0D 0A 32 31 30 NE OF X'S."..210
0000D0: 20 50 52 49 4E 54 0D 0A 32 32 30 20 43 3D 30 0D PRINT..220 C=0.
0000E0: 0A 32 33 30 20 50 52 49 4E 54 20 22 31 20 32 20 .230 PRINT "1 2
0000F0: 33 20 34 20 35 20 36 20 37 20 38 20 39 20 31 30 3 4 5 6 7 8 9 10
000100: 22 0D 0A 32 34 30 20 50 52 49 4E 54 20 22 58 20 "..240 PRINT "X
000110: 58 20 58 20 58 20 58 20 58 20 58 20 58 20 58 20 X X X X X X X X
000120: 58 22 0D 0A 32 35 30 20 50 52 49 4E 54 0D 0A 32 X"..250 PRINT..2
000130: 36 30 20 52 45 4D 0D 0A 32 37 30 20 46 4F 52 20 60 REM..270 FOR
000140: 58 3D 31 20 54 4F 20 31 30 0D 0A 32 38 30 20 41 X=1 TO 10..280 A
000150: 24 28 58 29 3D 22 58 22 0D 0A 32 39 30 20 4E 45 $(X)="X"..290 NE
000160: 58 54 20 58 0D 0A 33 30 30 20 47 4F 54 4F 20 33 XT X..300 GOTO 3
000170: 32 30 0D 0A 33 31 30 20 50 52 49 4E 54 20 22 49 20..310 PRINT "I
000180: 4C 4C 45 47 41 4C 20 45 4E 54 52 59 2D 2D 54 52 LLEGAL ENTRY--TR
000190: 59 20 41 47 41 49 4E 2E 22 0D 0A 33 32 30 20 50 Y AGAIN."..320 P
0001A0: 52 49 4E 54 20 22 49 4E 50 55 54 20 54 48 45 20 RINT "INPUT THE
0001B0: 4E 55 4D 42 45 52 22 3B 0D 0A 33 33 30 20 49 4E NUMBER";..330 IN
0001C0: 50 55 54 20 4E 0D 0A 33 34 30 20 49 46 20 4E 3C PUT N..340 IF N<
0001D0: 3E 49 4E 54 28 4E 29 20 54 48 45 4E 20 33 31 30 >INT(N) THEN 310
0001E0: 0D 0A 33 35 30 20 49 46 20 4E 3D 31 31 20 54 48 ..350 IF N=11 TH
0001F0: 45 4E 20 31 38 30 0D 0A 33 36 30 20 49 46 20 4E EN 180..360 IF N
Size : 512 (Real : 512)
000000: 54 4F 22 0D 0A 32 35 30 20 50 52 49 4E 54 20 22 TO"..250 PRINT "
000010: 47 55 45 53 53 20 54 48 45 20 48 55 52 4B 4C 45 GUESS THE HURKLE
000020: 27 53 20 47 52 49 44 50 4F 49 4E 54 2E 20 59 4F 'S GRIDPOINT. YO
000030: 55 20 47 45 54 22 3B 4E 3B 22 54 52 49 45 53 2E U GET";N;"TRIES.
000040: 22 0D 0A 32 36 30 20 50 52 49 4E 54 20 22 41 46 "..260 PRINT "AF
000050: 54 45 52 20 45 41 43 48 20 54 52 59 2C 20 49 20 TER EACH TRY, I
000060: 57 49 4C 4C 20 54 45 4C 4C 20 59 4F 55 20 54 48 WILL TELL YOU TH
000070: 45 20 41 50 50 52 4F 58 49 4D 41 54 45 22 0D 0A E APPROXIMATE"..
000080: 32 37 30 20 50 52 49 4E 54 20 22 44 49 52 45 43 270 PRINT "DIREC
000090: 54 49 4F 4E 20 54 4F 20 47 4F 20 54 4F 20 4C 4F TION TO GO TO LO
0000A0: 4F 4B 20 46 4F 52 20 54 48 45 20 48 55 52 4B 4C OK FOR THE HURKL
0000B0: 45 2E 22 0D 0A 32 38 30 20 50 52 49 4E 54 0D 0A E."..280 PRINT..
0000C0: 32 38 35 20 41 3D 49 4E 54 28 47 2A 52 4E 44 28 285 A=INT(G*RND(
0000D0: 31 29 29 0D 0A 32 38 36 20 42 3D 49 4E 54 28 47 1))..286 B=INT(G
0000E0: 2A 52 4E 44 28 31 29 29 0D 0A 33 31 30 20 46 4F *RND(1))..310 FO
0000F0: 52 20 4B 3D 31 20 54 4F 20 4E 0D 0A 33 32 30 20 R K=1 TO N..320
000100: 50 52 49 4E 54 20 22 47 55 45 53 53 20 23 22 3B PRINT "GUESS #";
000110: 4B 3B 0D 0A 33 33 30 20 49 4E 50 55 54 20 58 2C K;..330 INPUT X,
000120: 59 0D 0A 33 34 30 20 49 46 20 41 42 53 28 58 2D Y..340 IF ABS(X-
000130: 41 29 2B 41 42 53 28 59 2D 42 29 3D 30 20 54 48 A)+ABS(Y-B)=0 TH
000140: 45 4E 20 35 30 30 0D 0A 33 35 30 20 52 45 4D 20 EN 500..350 REM
000150: 50 52 49 4E 54 20 49 4E 46 4F 0D 0A 33 36 30 20 PRINT INFO..360
000160: 47 4F 53 55 42 20 36 31 30 0D 0A 33 37 30 20 50 GOSUB 610..370 P
000170: 52 49 4E 54 0D 0A 33 38 30 20 4E 45 58 54 20 4B RINT..380 NEXT K
000180: 0D 0A 34 31 30 20 50 52 49 4E 54 0D 0A 34 32 30 ..410 PRINT..420
000190: 20 50 52 49 4E 54 20 22 53 4F 52 52 59 2C 20 54 PRINT "SORRY, T
0001A0: 48 41 54 27 53 22 3B 4E 3B 22 47 55 45 53 53 45 HAT'S";N;"GUESSE
0001B0: 53 2E 22 0D 0A 34 33 30 20 50 52 49 4E 54 20 22 S."..430 PRINT "
0001C0: 54 48 45 20 48 55 52 4B 4C 45 20 49 53 20 41 54 THE HURKLE IS AT
0001D0: 20 22 3B 41 3B 22 2C 22 3B 42 0D 0A 34 34 30 20 ";A;",";B..440
0001E0: 50 52 49 4E 54 0D 0A 34 35 30 20 50 52 49 4E 54 PRINT..450 PRINT
0001F0: 20 22 4C 45 54 27 53 20 50 4C 41 59 20 41 47 41 "LET'S PLAY AGA
Size : 512 (Real : 512)
000000: 3E 31 31 20 54 48 45 4E 20 33 31 30 0D 0A 33 37 >11 THEN 310..37
000010: 30 20 49 46 20 4E 3D 30 20 54 48 45 4E 20 32 33 0 IF N=0 THEN 23
000020: 30 0D 0A 33 38 30 20 49 46 20 4D 3D 4E 20 54 48 0..380 IF M=N TH
000030: 45 4E 20 35 31 30 0D 0A 33 39 30 20 4D 3D 4E 0D EN 510..390 M=N.
000040: 0A 34 30 30 20 49 46 20 41 24 28 4E 29 3D 22 4F .400 IF A$(N)="O
000050: 22 20 54 48 45 4E 20 34 38 30 0D 0A 34 31 30 20 " THEN 480..410
000060: 41 24 28 4E 29 3D 22 4F 22 0D 0A 34 32 30 20 52 A$(N)="O"..420 R
000070: 3D 54 41 4E 28 51 2B 4E 2F 51 2D 4E 29 2D 53 49 =TAN(Q+N/Q-N)-SI
000080: 4E 28 51 2F 4E 29 2B 33 33 36 2A 53 49 4E 28 38 N(Q/N)+336*SIN(8
000090: 2A 4E 29 0D 0A 34 33 30 20 4E 3D 52 2D 49 4E 54 *N)..430 N=R-INT
0000A0: 28 52 29 0D 0A 34 34 30 20 4E 3D 49 4E 54 28 31 (R)..440 N=INT(1
0000B0: 30 2A 4E 29 0D 0A 34 35 30 20 49 46 20 41 24 28 0*N)..450 IF A$(
0000C0: 4E 29 3D 22 4F 22 20 54 48 45 4E 20 34 38 30 0D N)="O" THEN 480.
0000D0: 0A 34 36 30 20 41 24 28 4E 29 3D 22 4F 22 0D 0A .460 A$(N)="O"..
0000E0: 34 37 30 20 47 4F 54 4F 20 36 31 30 0D 0A 34 38 470 GOTO 610..48
0000F0: 30 20 41 24 28 4E 29 3D 22 58 22 0D 0A 34 39 30 0 A$(N)="X"..490
000100: 20 49 46 20 4D 3D 4E 20 54 48 45 4E 20 34 32 30 IF M=N THEN 420
000110: 0D 0A 35 30 30 20 47 4F 54 4F 20 36 31 30 0D 0A ..500 GOTO 610..
000120: 35 31 30 20 49 46 20 41 24 28 4E 29 3D 22 4F 22 510 IF A$(N)="O"
000130: 20 54 48 45 4E 20 35 39 30 0D 0A 35 32 30 20 41 THEN 590..520 A
000140: 24 28 4E 29 3D 22 4F 22 0D 0A 35 33 30 20 52 3D $(N)="O"..530 R=
000150: 2E 35 39 32 2A 28 31 2F 54 41 4E 28 51 2F 4E 2B .592*(1/TAN(Q/N+
000160: 51 29 29 2F 53 49 4E 28 4E 2A 32 2B 51 29 2D 43 Q))/SIN(N*2+Q)-C
000170: 4F 53 28 4E 29 0D 0A 35 34 30 20 4E 3D 52 2D 49 OS(N)..540 N=R-I
000180: 4E 54 28 52 29 0D 0A 35 35 30 20 4E 3D 49 4E 54 NT(R)..550 N=INT
000190: 28 31 30 2A 4E 29 0D 0A 35 36 30 20 49 46 20 41 (10*N)..560 IF A
0001A0: 24 28 4E 29 3D 22 4F 22 20 54 48 45 4E 20 35 39 $(N)="O" THEN 59
0001B0: 30 0D 0A 35 37 30 20 41 24 28 4E 29 3D 22 4F 22 0..570 A$(N)="O"
0001C0: 0D 0A 35 38 30 20 47 4F 54 4F 20 36 31 30 0D 0A ..580 GOTO 610..
0001D0: 35 39 30 20 41 24 28 4E 29 3D 22 58 22 0D 0A 36 590 A$(N)="X"..6
0001E0: 30 30 20 49 46 20 4D 3D 4E 20 54 48 45 4E 20 35 00 IF M=N THEN 5
0001F0: 33 30 0D 0A 36 31 30 20 50 52 49 4E 54 20 22 31 30..610 PRINT "1
Size : 512 (Real : 512)
000000: 49 4E 2C 20 48 55 52 4B 4C 45 20 49 53 20 48 49 IN, HURKLE IS HI
000010: 44 49 4E 47 2E 22 0D 0A 34 36 30 20 50 52 49 4E DING."..460 PRIN
000020: 54 0D 0A 34 37 30 20 47 4F 54 4F 20 32 38 35 0D T..470 GOTO 285.
000030: 0A 35 30 30 20 52 45 4D 0D 0A 35 31 30 20 50 52 .500 REM..510 PR
000040: 49 4E 54 0D 0A 35 32 30 20 50 52 49 4E 54 20 22 INT..520 PRINT "
000050: 59 4F 55 20 46 4F 55 4E 44 20 48 49 4D 20 49 4E YOU FOUND HIM IN
000060: 22 3B 4B 3B 22 47 55 45 53 53 45 53 21 22 0D 0A ";K;"GUESSES!"..
000070: 35 34 30 20 47 4F 54 4F 20 34 34 30 0D 0A 36 31 540 GOTO 440..61
000080: 30 20 50 52 49 4E 54 20 22 47 4F 20 22 3B 0D 0A 0 PRINT "GO ";..
000090: 36 32 30 20 49 46 20 59 3D 42 20 54 48 45 4E 20 620 IF Y=B THEN
0000A0: 36 37 30 0D 0A 36 33 30 20 49 46 20 59 3C 42 20 670..630 IF Y<B
0000B0: 54 48 45 4E 20 36 36 30 0D 0A 36 34 30 20 50 52 THEN 660..640 PR
0000C0: 49 4E 54 20 22 53 4F 55 54 48 22 3B 0D 0A 36 35 INT "SOUTH";..65
0000D0: 30 20 47 4F 54 4F 20 36 37 30 0D 0A 36 36 30 20 0 GOTO 670..660
0000E0: 50 52 49 4E 54 20 22 4E 4F 52 54 48 22 3B 0D 0A PRINT "NORTH";..
0000F0: 36 37 30 20 49 46 20 58 3D 41 20 54 48 45 4E 20 670 IF X=A THEN
000100: 37 32 30 0D 0A 36 38 30 20 49 46 20 58 3C 41 20 720..680 IF X<A
000110: 54 48 45 4E 20 37 31 30 0D 0A 36 39 30 20 50 52 THEN 710..690 PR
000120: 49 4E 54 20 22 57 45 53 54 22 3B 0D 0A 37 30 30 INT "WEST";..700
000130: 20 47 4F 54 4F 20 37 32 30 0D 0A 37 31 30 20 50 GOTO 720..710 P
000140: 52 49 4E 54 20 22 45 41 53 54 22 3B 0D 0A 37 32 RINT "EAST";..72
000150: 30 20 50 52 49 4E 54 0D 0A 37 33 30 20 52 45 54 0 PRINT..730 RET
000160: 55 52 4E 0D 0A 39 39 39 20 45 4E 44 0D 0A 1A E5 URN..999 END....
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: 20 32 20 33 20 34 20 35 20 36 20 37 20 38 20 39 2 3 4 5 6 7 8 9
000010: 20 31 30 22 0D 0A 36 32 30 20 46 4F 52 20 5A 3D 10"..620 FOR Z=
000020: 31 20 54 4F 20 31 30 3A 20 50 52 49 4E 54 20 41 1 TO 10: PRINT A
000030: 24 28 5A 29 3B 22 20 22 3B 3A 20 4E 45 58 54 20 $(Z);" ";: NEXT
000040: 5A 0D 0A 36 33 30 20 43 3D 43 2B 31 0D 0A 36 34 Z..630 C=C+1..64
000050: 30 20 50 52 49 4E 54 0D 0A 36 35 30 20 46 4F 52 0 PRINT..650 FOR
000060: 20 5A 3D 31 20 54 4F 20 31 30 0D 0A 36 36 30 20 Z=1 TO 10..660
000070: 49 46 20 41 24 28 5A 29 3C 3E 22 4F 22 20 54 48 IF A$(Z)<>"O" TH
000080: 45 4E 20 33 32 30 0D 0A 36 37 30 20 4E 45 58 54 EN 320..670 NEXT
000090: 20 5A 0D 0A 36 38 30 20 49 46 20 43 3E 31 32 20 Z..680 IF C>12
0000A0: 54 48 45 4E 20 37 31 30 0D 0A 36 39 30 20 50 52 THEN 710..690 PR
0000B0: 49 4E 54 20 22 56 45 52 59 20 47 4F 4F 44 2E 20 INT "VERY GOOD.
0000C0: 20 59 4F 55 20 47 55 45 53 53 45 44 20 49 54 20 YOU GUESSED IT
0000D0: 49 4E 20 4F 4E 4C 59 22 3B 43 3B 22 47 55 45 53 IN ONLY";C;"GUES
0000E0: 53 45 53 2E 22 0D 0A 37 30 30 20 47 4F 54 4F 20 SES."..700 GOTO
0000F0: 37 32 30 0D 0A 37 31 30 20 50 52 49 4E 54 20 22 720..710 PRINT "
000100: 54 52 59 20 48 41 52 44 45 52 20 4E 45 58 54 20 TRY HARDER NEXT
000110: 54 49 4D 45 2E 20 20 49 54 20 54 4F 4F 4B 20 59 TIME. IT TOOK Y
000120: 4F 55 22 3B 43 3B 22 47 55 45 53 53 45 53 2E 22 OU";C;"GUESSES."
000130: 0D 0A 37 32 30 20 50 52 49 4E 54 20 22 44 4F 20 ..720 PRINT "DO
000140: 59 4F 55 20 57 41 4E 54 20 54 4F 20 54 52 59 20 YOU WANT TO TRY
000150: 41 4E 4F 54 48 45 52 20 50 55 5A 5A 4C 45 22 3B ANOTHER PUZZLE";
000160: 0D 0A 37 33 30 20 49 4E 50 55 54 20 58 24 0D 0A ..730 INPUT X$..
000170: 37 34 30 20 49 46 20 4C 45 46 54 24 28 58 24 2C 740 IF LEFT$(X$,
000180: 31 29 3D 22 4E 22 20 54 48 45 4E 20 37 38 30 0D 1)="N" THEN 780.
000190: 0A 37 36 30 20 50 52 49 4E 54 0D 0A 37 37 30 20 .760 PRINT..770
0001A0: 47 4F 54 4F 20 31 38 30 0D 0A 37 38 30 20 45 4E GOTO 180..780 EN
0001B0: 44 0D 0A 1A E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 D...............
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Size : 512 (Real : 512)
000000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0000F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0001F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan