JUJITSU
FILE INFORMATION
FILENAME(S): JUJITSU
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-10-19 22:48:33
APPEARS ON: 3 disk(s)
FILE HASH
f3b70847b223b9de297d6c559b9bb911d1749699646cc943a6567e499af6ebd8
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE SEPT 86 | JUJITSU | PRG | Radd Maxx | 23 | 6 | DOWNLOAD FILE |
| MICRO MANIAC | JUJITSU | PRG | Radd Maxx | 32 | 1 | DOWNLOAD FILE |
| GZT GAMES 86 | JUJITSU | PRG | Radd Maxx | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 64 00 86 20 48 55 28 31 33 29 2C 53 |..1.d.. HU(13),S| 00000010: 55 28 31 33 29 2C 43 41 24 28 31 33 29 2C 43 4C |U(13),CA$(13),CL| 00000020: 28 31 33 29 2C 43 4C 24 28 31 33 29 3A 99 22 93 |(13),CL$(13):.".| 00000030: 22 00 47 08 6E 00 96 20 A5 52 28 58 29 B2 B5 28 |".G.n.. .R(X)..(| 00000040: BB 28 31 29 AC 58 29 00 5F 08 78 00 97 20 35 33 |.(1).X)._.x.. 53| 00000050: 32 38 31 2C 30 3A 97 20 35 33 32 38 30 2C 30 00 |281,0:. 53280,0.| 00000060: 88 08 82 00 41 41 24 B2 22 41 32 33 34 35 36 37 |....AA$."A234567| 00000070: 38 39 54 4A 51 4B 22 3A 5A B2 BB 28 AB 54 49 29 |89TJQK":Z..(.TI)| 00000080: 3A 53 B2 35 34 32 37 32 00 A9 08 8C 00 81 20 41 |:S.54272...... A| 00000090: B2 35 30 30 30 30 20 A4 20 41 AA 38 31 3A 87 20 |.50000 . A.81:. | 000000A0: 42 3A 97 20 41 2C 42 3A 82 00 B8 08 A0 00 81 20 |B:. A,B:....... | 000000B0: 49 B2 31 20 A4 20 31 33 00 C4 08 AA 00 43 4C 28 |I.1 . 13.....CL(| 000000C0: 49 29 B2 49 00 EE 08 B4 00 43 41 24 28 49 29 B2 |I).I.....CA$(I).| 000000D0: CA 28 41 41 24 2C 49 2C 31 29 3A 43 4C 24 28 49 |.(AA$,I,1):CL$(I| 000000E0: 29 B2 CA 28 41 41 24 2C 49 2C 31 29 3A 82 00 05 |)..(AA$,I,1):...| 000000F0: 09 BE 00 8F 20 2A 20 53 48 55 46 46 4C 45 20 44 |.... * SHUFFLE D| 00000100: 45 43 4B 20 2A 00 14 09 C8 00 81 20 49 B2 31 20 |ECK *...... I.1 | 00000110: A4 20 31 33 00 2E 09 D2 00 58 B2 A5 52 28 31 33 |. 13.....X..R(13| 00000120: 29 AA 31 3A 59 B2 A5 52 28 31 33 29 AA 31 00 54 |).1:Y..R(13).1.T| 00000130: 09 DC 00 48 24 B2 43 4C 24 28 58 29 3A 43 4C 24 |...H$.CL$(X):CL$| 00000140: 28 58 29 B2 43 4C 24 28 59 29 3A 43 4C 24 28 59 |(X).CL$(Y):CL$(Y| 00000150: 29 B2 48 24 00 76 09 E6 00 48 B2 43 4C 28 58 29 |).H$.v...H.CL(X)| 00000160: 3A 43 4C 28 58 29 B2 43 4C 28 59 29 3A 43 4C 28 |:CL(X).CL(Y):CL(| 00000170: 59 29 B2 48 3A 82 00 90 09 F0 00 8F 20 2A 20 53 |Y).H:....... * S| 00000180: 54 41 52 54 20 4D 41 49 4E 20 4C 4F 4F 50 20 2A |TART MAIN LOOP *| 00000190: 00 9F 09 FA 00 81 20 52 B2 31 20 A4 20 31 33 00 |...... R.1 . 13.| 000001A0: D1 09 04 01 99 22 93 9C D2 D2 D2 D2 D2 D2 D2 D2 |....."..........| 000001B0: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |................| 000001C0: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |................| 000001D0: 22 00 02 0A 0E 01 99 22 91 20 20 20 20 20 20 DA |"......". .| 000001E0: 20 20 20 4A 20 20 55 20 20 4A 20 20 49 20 20 54 | J U J I T| 000001F0: 20 20 53 20 20 55 20 20 20 DA 20 20 20 20 20 20 | S U . | 00000200: 20 22 00 33 0A 18 01 99 22 91 B7 B7 B7 B7 B7 B7 | ".3....".......| 00000210: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 00000220: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 00000230: B7 B7 22 00 4B 0A 22 01 99 22 91 1C D3 9B 20 59 |..".K."..".... Y| 00000240: 4F 55 52 20 48 41 4E 44 3A 1C 22 00 5A 0A 2C 01 |OUR HAND:.".Z.,.| 00000250: 81 20 49 B2 31 20 A4 20 31 33 00 6E 0A 36 01 8B |. I.1 . 13.n.6..| 00000260: 20 48 55 28 49 29 B2 31 20 A7 20 33 33 30 00 80 | HU(I).1 . 330..| 00000270: 0A 40 01 99 20 43 41 24 28 49 29 3B 22 20 22 3B |.@.. CA$(I);" ";| 00000280: 00 88 0A 4A 01 82 3A 99 00 9E 0A 54 01 99 22 11 |...J..:....T..".| 00000290: 1F C1 9B 20 4D 59 20 48 41 4E 44 3A 1F 22 00 AD |... MY HAND:."..| 000002A0: 0A 5E 01 81 20 49 B2 31 20 A4 20 31 33 00 C1 0A |.^.. I.1 . 13...| 000002B0: 68 01 8B 20 53 55 28 49 29 B2 31 20 A7 20 33 38 |h.. SU(I).1 . 38| 000002C0: 30 00 D3 0A 72 01 99 20 43 41 24 28 49 29 3B 22 |0...r.. CA$(I);"| 000002D0: 20 22 3B 00 DB 0A 7C 01 82 3A 99 00 F6 0A 86 01 | ";...|..:......| 000002E0: 99 22 11 1E D8 9B 20 43 4C 55 42 53 20 50 4C 41 |.".... CLUBS PLA| 000002F0: 59 45 44 3A 1E 22 00 12 0B 90 01 81 20 49 B2 31 |YED:."...... I.1| 00000300: 20 A4 20 52 AB 31 3A 8B 20 52 B2 31 20 A7 20 34 | . R.1:. R.1 . 4| 00000310: 32 30 00 24 0B 9A 01 99 20 43 4C 24 28 49 29 3B |20.$.... CL$(I);| 00000320: 22 20 22 3B 00 2C 0B A4 01 82 3A 99 00 5D 0B AE |" ";.,....:..]..| 00000330: 01 99 22 9C AF AF AF AF AF AF AF AF AF AF AF AF |..".............| 00000340: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................| 00000350: AF AF AF AF AF AF AF AF AF AF AF AF 22 00 79 0B |............".y.| 00000360: B8 01 8F 20 2A 20 53 48 4F 57 20 43 41 52 44 20 |... * SHOW CARD | 00000370: 41 4E 44 20 42 49 44 20 2A 00 A7 0B C2 01 99 22 |AND BID *......"| 00000380: 9B 57 48 41 54 20 44 4F 20 59 4F 55 20 42 49 44 |.WHAT DO YOU BID| 00000390: 20 46 4F 52 20 54 48 45 20 1E 22 43 4C 24 28 52 | FOR THE ."CL$(R| 000003A0: 29 22 D8 9B 20 3F 22 00 B3 0B CC 01 97 20 31 39 |)".. ?"...... 19| 000003B0: 38 2C 30 00 CA 0B D6 01 A1 20 41 24 3A 8B 20 41 |8,0...... A$:. A| 000003C0: 24 B2 22 22 20 A7 20 34 37 30 00 01 0C E0 01 8B |$."" . 470......| 000003D0: 20 41 24 B2 22 41 22 20 B0 20 41 24 B2 22 54 22 | A$."A" . A$."T"| 000003E0: 20 B0 20 41 24 B2 22 4A 22 20 B0 20 41 24 B2 22 | . A$."J" . A$."| 000003F0: 51 22 20 B0 20 41 24 B2 22 4B 22 20 A7 20 35 30 |Q" . A$."K" . 50| 00000400: 30 00 1D 0C EA 01 8B 20 41 24 B3 22 32 22 20 B0 |0...... A$."2" .| 00000410: 20 41 24 B1 22 39 22 20 A7 20 34 37 30 00 4E 0C | A$."9" . 470.N.| 00000420: F4 01 81 20 49 B2 31 20 A4 20 31 33 3A 8B 20 41 |... I.1 . 13:. A| 00000430: 24 B2 CA 28 41 41 24 2C 49 2C 31 29 20 A7 20 48 |$..(AA$,I,1) . H| 00000440: 42 B2 49 3A 49 B2 31 33 3A 89 20 35 32 30 00 54 |B.I:I.13:. 520.T| 00000450: 0C FE 01 82 00 78 0C 08 02 8B 20 48 55 28 48 42 |.....x.... HU(HB| 00000460: 29 B2 31 20 A7 20 8D 20 31 31 38 30 3A 99 22 91 |).1 . . 1180:.".| 00000470: 91 22 3A 89 20 34 35 30 00 84 0C 12 02 9E 20 35 |.":. 450...... 5| 00000480: 30 30 30 30 00 A6 0C 1C 02 8F 20 2A 20 43 4F 4D |0000...... * COM| 00000490: 50 55 54 45 52 20 43 41 4C 43 55 4C 41 54 45 53 |PUTER CALCULATES| 000004A0: 20 42 49 44 20 2A 00 B7 0C 26 02 8B 20 52 B1 B2 | BID *...&.. R..| 000004B0: 37 20 A7 20 36 37 30 00 E5 0C 30 02 8B 20 43 4C |7 . 670...0.. CL| 000004C0: 28 52 29 B1 B2 38 20 AF 20 BB 28 31 29 B3 2E 33 |(R)..8 . .(1)..3| 000004D0: 38 20 A7 20 53 42 B2 A5 52 28 31 33 29 AA 31 3A |8 . SB..R(13).1:| 000004E0: 89 20 36 34 30 00 FD 0C 3A 02 4D B2 35 3A 8B 20 |. 640...:.M.5:. | 000004F0: 43 4C 28 52 29 B3 34 20 A7 20 4D B2 33 00 0A 0D |CL(R).4 . M.3...| 00000500: 44 02 4D 4D B2 A5 52 28 34 29 00 2A 0D 4E 02 8B |D.MM..R(4).*.N..| 00000510: 20 43 4C 28 52 29 B3 B2 34 20 A7 20 53 42 B2 43 | CL(R)..4 . SB.C| 00000520: 4C 28 52 29 AA A5 52 28 4D 29 00 4D 0D 58 02 8B |L(R)..R(M).M.X..| 00000530: 20 43 4C 28 52 29 B1 B2 35 20 A7 20 53 42 B2 43 | CL(R)..5 . SB.C| 00000540: 4C 28 52 29 AA A5 52 28 4D 29 AA 4D 4D 00 6F 0D |L(R)..R(M).MM.o.| 00000550: 62 02 8B 20 43 4C 28 52 29 B1 31 30 20 A7 20 53 |b.. CL(R).10 . S| 00000560: 42 B2 43 4C 28 52 29 AA A5 52 28 4D 29 AA 31 00 |B.CL(R)..R(M).1.| 00000570: 83 0D 6C 02 8B 20 53 42 B1 31 33 20 A7 20 53 42 |..l.. SB.13 . SB| 00000580: B2 31 33 00 A0 0D 76 02 43 B2 43 AA 31 3A 8B 20 |.13...v.C.C.1:. | 00000590: 43 B2 32 30 20 A7 20 43 B2 30 3A 89 20 38 38 30 |C.20 . C.0:. 880| 000005A0: 00 B5 0D 80 02 8B 20 53 55 28 53 42 29 B2 31 20 |...... SU(SB).1 | 000005B0: A7 20 35 38 30 00 C3 0D 8A 02 43 B2 30 3A 89 20 |. 580.....C.0:. | 000005C0: 39 34 30 00 E8 0D 94 02 8F 20 2A 20 43 48 45 43 |940...... * CHEC| 000005D0: 4B 20 48 49 47 48 20 48 45 41 52 54 20 41 4E 44 |K HIGH HEART AND| 000005E0: 20 53 50 41 44 45 20 2A 00 0B 0E 9E 02 81 20 49 | SPADE *...... I| 000005F0: B2 31 33 20 A4 20 31 20 A9 AB 31 3A 8B 20 48 55 |.13 . 1 ..1:. HU| 00000600: 28 49 29 B2 31 20 A7 20 36 39 30 00 18 0E A8 02 |(I).1 . 690.....| 00000610: 48 48 B2 49 3A 49 B2 31 00 1E 0E B2 02 82 00 41 |HH.I:I.1.......A| 00000620: 0E BC 02 81 20 49 B2 31 33 20 A4 20 31 20 A9 AB |.... I.13 . 1 ..| 00000630: 31 3A 8B 20 53 55 28 49 29 B2 31 20 A7 20 37 32 |1:. SU(I).1 . 72| 00000640: 30 00 4E 0E C6 02 53 48 B2 49 3A 49 B2 31 00 54 |0.N...SH.I:I.1.T| 00000650: 0E D0 02 82 00 6D 0E DA 02 8B 20 52 B2 31 33 20 |.....m.... R.13 | 00000660: A7 20 53 42 B2 53 48 3A 89 20 39 34 30 00 97 0E |. SB.SH:. 940...| 00000670: E4 02 8B 20 48 48 B1 B2 53 48 20 AF 20 48 53 AA |... HH..SH . HS.| 00000680: 43 4C 28 52 29 B1 B2 34 36 20 A7 20 53 42 B2 53 |CL(R)..46 . SB.S| 00000690: 48 3A 89 20 39 34 30 00 BA 0E EE 02 8F 20 2A 20 |H:. 940...... * | 000006A0: 43 4F 4E 53 49 44 45 52 20 52 45 4D 41 49 4E 49 |CONSIDER REMAINI| 000006B0: 4E 47 20 43 4C 55 42 53 20 2A 00 D3 0E F8 02 81 |NG CLUBS *......| 000006C0: 20 49 B2 31 20 A4 20 31 33 3A 8B 20 49 B2 52 20 | I.1 . 13:. I.R | 000006D0: A7 20 82 00 E5 0E 02 03 43 54 B2 43 54 AA 43 4C |. ......CT.CT.CL| 000006E0: 28 49 29 3A 82 00 00 0F 0C 03 81 20 49 B2 31 20 |(I):....... I.1 | 000006F0: A4 20 31 33 3A 8B 20 49 B2 52 20 A7 20 38 30 30 |. 13:. I.R . 800| 00000700: 00 1A 0F 16 03 8B 20 43 4C 28 49 29 B1 43 48 20 |...... CL(I).CH | 00000710: A7 20 43 48 B2 43 4C 28 49 29 00 20 0F 20 03 82 |. CH.CL(I). . ..| 00000720: 00 3C 0F 2A 03 8B 20 52 B2 31 32 20 AF 20 43 48 |.<.*.. R.12 . CH| 00000730: B1 43 4C 28 52 29 20 A7 20 38 38 30 00 61 0F 34 |.CL(R) . 880.a.4| 00000740: 03 8B 20 48 48 B2 53 48 20 AF 20 43 4C 28 52 29 |.. HH.SH . CL(R)| 00000750: B1 43 48 20 A7 20 53 42 B2 53 48 3A 89 20 39 32 |.CH . SB.SH:. 92| 00000760: 30 00 7E 0F 3E 03 8B 20 48 48 B1 53 48 20 AF 20 |0.~.>.. HH.SH . | 00000770: 43 4C 28 52 29 B1 43 48 20 A7 20 38 38 30 00 A3 |CL(R).CH . 880..| 00000780: 0F 48 03 8B 20 48 48 B3 53 48 20 AF 20 43 4C 28 |.H.. HH.SH . CL(| 00000790: 52 29 B1 43 48 20 A7 20 53 42 B2 53 48 3A 89 20 |R).CH . SB.SH:. | 000007A0: 39 32 30 00 D8 0F 52 03 8B 20 52 B1 B2 31 30 20 |920...R.. R..10 | 000007B0: AF 20 43 4C 28 52 29 B3 B2 38 20 AF 20 48 48 B3 |. CL(R)..8 . HH.| 000007C0: B2 53 48 20 AF 20 43 54 AD 28 31 33 AB 52 29 B1 |.SH . CT.(13.R).| 000007D0: B2 38 20 A7 20 38 38 30 00 EC 0F 5C 03 43 54 B2 |.8 . 880...\.CT.| 000007E0: 30 3A 43 48 B2 30 3A 89 20 35 37 30 00 06 10 66 |0:CH.0:. 570...f| 000007F0: 03 8F 20 2A 20 47 4F 20 46 4F 52 20 4C 4F 57 20 |.. * GO FOR LOW | 00000800: 43 41 52 44 20 2A 00 15 10 70 03 81 20 49 B2 31 |CARD *...p.. I.1| 00000810: 20 A4 20 31 33 00 29 10 7A 03 8B 20 53 55 28 49 | . 13.).z.. SU(I| 00000820: 29 B2 31 20 A7 20 39 31 30 00 37 10 84 03 53 42 |).1 . 910.7...SB| 00000830: B2 49 3A 49 B2 31 33 00 3D 10 8E 03 82 00 4B 10 |.I:I.13.=.....K.| 00000840: 98 03 43 54 B2 30 3A 43 48 B2 30 00 68 10 A2 03 |..CT.0:CH.0.h...| 00000850: 8F 20 2A 20 53 45 45 20 57 48 4F 20 47 45 54 53 |. * SEE WHO GETS| 00000860: 20 54 52 49 43 4B 20 2A 00 95 10 AC 03 99 20 A3 | TRICK *...... .| 00000870: 38 29 22 11 59 4F 55 20 42 49 44 20 1C 22 A6 33 |8)".YOU BID .".3| 00000880: 29 43 41 24 28 48 42 29 22 D3 9B 22 3A 48 55 28 |)CA$(HB)"..":HU(| 00000890: 48 42 29 B2 31 00 C1 10 B6 03 99 20 A3 38 29 22 |HB).1...... .8)"| 000008A0: 49 20 42 49 44 20 1F 22 A6 35 29 43 41 24 28 53 |I BID .".5)CA$(S| 000008B0: 42 29 22 C1 9B 22 3A 53 55 28 53 42 29 B2 31 3A |B)"..":SU(SB).1:| 000008C0: 99 00 EC 10 C0 03 8B 20 48 42 B2 53 42 20 A7 20 |....... HB.SB . | 000008D0: 99 20 A3 31 32 29 22 49 54 27 53 20 41 20 54 49 |. .12)"IT'S A TI| 000008E0: 45 22 3A 8D 20 31 30 31 30 3A 82 52 00 2A 11 CA |E":. 1010:.R.*..| 000008F0: 03 8B 20 53 42 B1 48 42 20 A7 20 99 A3 38 29 22 |.. SB.HB . ..8)"| 00000900: 53 50 41 44 45 53 20 57 49 4E 20 54 48 45 20 54 |SPADES WIN THE T| 00000910: 52 49 43 4B 22 3A 53 53 B2 53 53 AA 43 4C 28 52 |RICK":SS.SS.CL(R| 00000920: 29 3A 8D 31 30 31 30 3A 82 52 00 60 11 D4 03 99 |):.1010:.R.`....| 00000930: 20 A3 38 29 22 48 45 41 52 54 53 20 57 49 4E 20 | .8)"HEARTS WIN | 00000940: 54 48 45 20 54 52 49 43 4B 22 3A 48 53 B2 48 53 |THE TRICK":HS.HS| 00000950: AA 43 4C 28 52 29 3A 8D 20 31 30 31 30 3A 82 52 |.CL(R):. 1010:.R| 00000960: 00 86 11 E8 03 8F 20 2A 20 43 41 4C 43 55 4C 41 |...... * CALCULA| 00000970: 54 45 20 41 4E 44 20 44 49 53 50 4C 41 59 20 53 |TE AND DISPLAY S| 00000980: 43 4F 52 45 20 2A 00 A3 11 F2 03 99 20 A3 38 29 |CORE *...... .8)| 00000990: 22 11 48 45 41 52 54 53 20 53 43 4F 52 45 20 3D |".HEARTS SCORE =| 000009A0: 22 48 53 00 BF 11 FC 03 99 20 A3 38 29 22 53 50 |"HS...... .8)"SP| 000009B0: 41 44 45 53 20 53 43 4F 52 45 20 3D 22 53 53 00 |ADES SCORE ="SS.| 000009C0: D2 11 06 04 81 20 49 B2 31 20 A4 20 33 30 30 30 |..... I.1 . 3000| 000009D0: 3A 82 00 EF 11 10 04 8B 20 48 53 B1 B2 34 36 20 |:....... HS..46 | 000009E0: B0 20 53 53 B1 B2 34 36 20 A7 20 31 30 38 30 00 |. SS..46 . 1080.| 000009F0: 09 12 1A 04 43 4C 28 52 29 B2 30 3A 8B 20 52 B2 |....CL(R).0:. R.| 00000A00: 31 33 20 A7 20 31 30 38 30 00 0F 12 24 04 8E 00 |13 . 1080...$...| 00000A10: 2F 12 2E 04 8F 20 2A 20 44 49 53 50 4C 41 59 20 |/.... * DISPLAY | 00000A20: 46 49 4E 41 4C 20 52 45 53 55 4C 54 53 20 2A 00 |FINAL RESULTS *.| 00000A30: 38 12 38 04 99 22 93 22 00 6C 12 42 04 8B 20 53 |8.8..".".l.B.. S| 00000A40: 53 B2 48 53 20 A7 20 43 4F B2 34 3A 99 20 A3 31 |S.HS . CO.4:. .1| 00000A50: 34 29 22 11 11 11 11 11 11 11 11 9C 54 49 45 20 |4)".........TIE | 00000A60: 47 41 4D 45 22 3A 89 20 31 31 32 30 00 A5 12 4C |GAME":. 1120...L| 00000A70: 04 8B 20 53 53 B1 48 53 20 A7 20 43 4F B2 36 3A |.. SS.HS . CO.6:| 00000A80: 99 20 A3 31 33 29 22 11 11 11 11 11 11 11 11 1F |. .13)".........| 00000A90: 43 4F 4D 50 55 54 45 52 20 57 49 4E 53 22 3A 89 |COMPUTER WINS":.| 00000AA0: 20 31 31 32 30 00 C7 12 56 04 43 4F B2 32 3A 99 | 1120...V.CO.2:.| 00000AB0: 20 A3 31 35 29 22 11 11 11 11 11 11 11 11 1C 59 | .15)".........Y| 00000AC0: 4F 55 20 57 49 4E 22 00 E8 12 60 04 99 22 11 11 |OU WIN"...`.."..| 00000AD0: 9B 22 A3 31 32 29 22 50 4C 41 59 20 41 47 41 49 |.".12)"PLAY AGAI| 00000AE0: 4E 20 28 59 2F 4E 29 22 00 F4 12 6A 04 97 20 31 |N (Y/N)"...j.. 1| 00000AF0: 39 38 2C 30 00 17 13 74 04 A1 41 24 3A 8B 20 41 |98,0...t..A$:. A| 00000B00: 24 B3 B1 22 59 22 20 AF 20 41 24 B3 B1 22 4E 22 |$.."Y" . A$.."N"| 00000B10: 20 A7 20 31 31 34 30 00 28 13 7E 04 8B 20 41 24 | . 1140.(.~.. A$| 00000B20: B2 22 4E 22 20 A7 20 80 00 2E 13 88 04 8A 00 67 |."N" . ........g| 00000B30: 13 9C 04 97 20 53 2C 31 35 30 3A 97 20 53 AA 31 |.... S,150:. S.1| 00000B40: 2C 35 3A 97 20 53 AA 35 2C 30 3A 97 20 53 AA 36 |,5:. S.5,0:. S.6| 00000B50: 2C 32 34 30 3A 97 20 53 AA 32 34 2C 31 35 3A 97 |,240:. S.24,15:.| 00000B60: 20 53 AA 34 2C 31 37 00 84 13 A6 04 81 20 49 B2 | S.4,17...... I.| 00000B70: 30 20 A4 20 35 30 30 3A 82 3A 97 20 53 AA 32 34 |0 . 500:.:. S.24| 00000B80: 2C 30 3A 8E 00 A5 13 B0 04 83 20 33 32 2C 31 33 |,0:....... 32,13| 00000B90: 33 2C 31 39 35 2C 31 36 39 2C 39 2C 31 34 31 2C |3,195,169,9,141,| 00000BA0: 35 2C 32 31 32 00 C9 13 BA 04 83 20 31 36 39 2C |5,212...... 169,| 00000BB0: 33 30 2C 31 34 31 2C 31 35 2C 32 31 32 2C 31 36 |30,141,15,212,16| 00000BC0: 39 2C 31 33 30 2C 31 34 31 00 EB 13 C4 04 83 20 |9,130,141...... | 00000BD0: 31 2C 32 31 32 2C 31 36 39 2C 31 35 2C 31 34 31 |1,212,169,15,141| 00000BE0: 2C 32 34 2C 32 31 32 2C 31 36 39 00 0C 14 CE 04 |,24,212,169.....| 00000BF0: 83 20 34 30 2C 31 34 31 2C 34 2C 32 31 32 2C 31 |. 40,141,4,212,1| 00000C00: 36 39 2C 37 2C 31 34 31 2C 31 36 33 00 2E 14 D8 |69,7,141,163....| 00000C10: 04 83 20 31 39 35 2C 33 32 2C 31 34 35 2C 31 39 |.. 195,32,145,19| 00000C20: 35 2C 31 36 39 2C 33 31 2C 31 34 31 2C 34 00 52 |5,169,31,141,4.R| 00000C30: 14 E2 04 83 20 32 31 32 2C 31 36 39 2C 32 30 2C |.... 212,169,20,| 00000C40: 31 34 31 2C 31 36 33 2C 31 39 35 2C 33 32 2C 31 |141,163,195,32,1| 00000C50: 34 35 00 74 14 EC 04 83 20 31 39 35 2C 33 32 2C |45.t.... 195,32,| 00000C60: 31 33 33 2C 31 39 35 2C 39 36 2C 31 36 32 2C 30 |133,195,96,162,0| 00000C70: 2C 31 33 38 00 97 14 F6 04 83 20 31 35 37 2C 30 |,138...... 157,0| 00000C80: 2C 32 31 32 2C 32 33 32 2C 32 32 34 2C 32 34 2C |,212,232,224,24,| 00000C90: 32 30 38 2C 32 34 38 00 BB 14 00 05 83 20 39 36 |208,248...... 96| 00000CA0: 2C 31 36 35 2C 31 36 32 2C 32 34 2C 31 30 39 2C |,165,162,24,109,| 00000CB0: 31 36 33 2C 31 39 35 2C 31 34 31 00 E8 14 0A 05 |163,195,141.....| 00000CC0: 83 20 31 36 32 2C 31 39 35 2C 31 36 35 2C 31 36 |. 162,195,165,16| 00000CD0: 32 2C 32 30 35 2C 31 36 32 2C 31 39 35 2C 32 30 |2,205,162,195,20| 00000CE0: 38 2C 32 34 39 2C 39 36 00 00 00 |8,249,96... |
..1.D.. HU(13),SU(13),CA$(13),CL(13),CL$ (13):.".".G.N.. .R(X)..(.(1).X)._.X.. 53 281,0:. 53280,0.....AA$."A23456789TJQK": Z..(.TI):S.54272...... A.50000 . A.81:. B:. A,B:.... .. I.1 . 13.D...CL(I).I.... .CA$(I).J(AA$,I,1):CL$(I).J(AA$,I,1):... .... * SHUFFLE DECK *...H.. I.1 . 13...R .X..R(13).1:Y..R(13).1.T...H$.CL$(X):CL$ (X).CL$(Y):CL$(Y).H$.V...H.CL(X):CL(X).C L(Y):CL(Y).H:....... * START MAIN LOOP * ...... R.1 . 13.Q...."..RRRRRRRRRRRRRRRR RRRRRRRRRRRRRRRRRRRRRRRR"......". Z J U J I T S U Z ".3.... "....................................... ..".K.".."..S. YOUR HAND:.".Z.,.. I.1 . 13.N.6.. HU(I).1 . 330...@.. CA$(I);" "; ...J..:....T.."..A. MY HAND:."...^.. I.1 . 13.A.H.. SU(I).1 . 380.S.R.. CA$(I);" ";...|..:......."..X. CLUBS PLAYED:.".. .... I.1 . R.1:. R.1 . 420.$.... CL$(I); " ";.,....:..]...."..................... ....................".Y.... * SHOW CARD AND BID *...B..".WHAT DO YOU BID FOR THE ."CL$(R)"X. ?"...L.. 198,0.J.V.. A$:. A $."" . 470...... A$."A" . A$."T" . A$."J " . A$."Q" . A$."K" . 500...... A$."2" . A$."9" . 470.N.... I.1 . 13:. A$.J(AA$, I,1) . HB.I:I.13:. 520.T.....X.... HU(HB ).1 . . 1180:."..":. 450...... 50000.... .. * COMPUTER CALCULATES BID *...&.. R.. 7 . 670...0.. CL(R)..8 . .(1)..38 . SB.. R(13).1:. 640...:.M.5:. CL(R).4 . M.3... D.MM..R(4).*.N.. CL(R)..4 . SB.CL(R)..R( M).M.X.. CL(R)..5 . SB.CL(R)..R(M).MM.O. B.. CL(R).10 . SB.CL(R)..R(M).1...L.. SB .13 . SB.13. .V.C.C.1:. C.20 . C.0:. 880 ...... SU(SB).1 . 580.C...C.0:. 940..... . * CHECK HIGH HEART AND SPADE *...... I .13 . 1 ..1:. HU(I).1 . 690.....HH.I:I.1 .......A.... I.13 . 1 ..1:. SU(I).1 . 72 0.N.F.SH.I:I.1.T.P...M.Z.. R.13 . SB.SH: . 940...... HH..SH . HS.CL(R)..46 . SB.S H:. 940...... * CONSIDER REMAINING CLUBS *.S.... I.1 . 13:. I.R . ......CT.CT.CL (I):....... I.1 . 13:. I.R . 800...... C L(I).CH . CH.CL(I). . ...<.*.. R.12 . CH .CL(R) . 880.A.4.. HH.SH . CL(R).CH . SB .SH:. 920.~.>.. HH.SH . CL(R).CH . 880.. .H.. HH.SH . CL(R).CH . SB.SH:. 920.X.R. . R..10 . CL(R)..8 . HH..SH . CT.(13.R). .8 . 880...\.CT.0:CH.0:. 570...F.. * GO FOR LOW CARD *...P.. I.1 . 13.).Z.. SU(I ).1 . 910.7...SB.I:I.13.=.....K...CT.0:C H.0.H.... * SEE WHO GETS TRICK *...... . 8)".YOU BID .".3)CA$(HB)"S.":HU(HB).1.A. ... .8)"I BID .".5)CA$(SB)"A.":SU(SB).1: ....... HB.SB . . .12)"IT'S A TIE":. 101 0:.R.*.J.. SB.HB . ..8)"SPADES WIN THE T RICK":SS.SS.CL(R):.1010:.R.`.T.. .8)"HEA RTS WIN THE TRICK":HS.HS.CL(R):. 1010:.R ...... * CALCULATE AND DISPLAY SCORE *.. .... .8)".HEARTS SCORE ="HS...... .8)"SP ADES SCORE ="SS.R.... I.1 . 3000:....... HS..46 . SS..46 . 1080.....CL(R).0:. R. 13 . 1080...$.../.... * DISPLAY FINAL RE SULTS *.8.8..".".L.B.. SS.HS . CO.4:. .1 4)".........TIE GAME":. 1120...L.. SS.HS . CO.6:. .13)".........COMPUTER WINS":. 1120.G.V.CO.2:. .15)".........YOU WIN". ..`.."...".12)"PLAY AGAIN (Y/N)"...J.. 1 98,0...T..A$:. A$.."Y" . A$.."N" . 1140. (.~.. A$."N" . ........G.... S,150:. S.1 ,5:. S.5,0:. S.6,240:. S.24,15:. S.4,17. ..... I.0 . 500:.:. S.24,0:....... 32,13 3,195,169,9,141,5,212.I.... 169,30,141,1 5,212,169,130,141...D.. 1,212,169,15,141 ,24,212,169...N.. 40,141,4,212,169,7,141 ,163...X.. 195,32,145,195,169,31,141,4.R .... 212,169,20,141,163,195,32,145.T.... 195,32,133,195,96,162,0,138...... 157,0 ,212,232,224,24,208,248...... 96,165,162 ,24,109,163,195,141...... 162,195,165,16 2,205,162,195,208,249,96...
> CLICK IMAGE PREVIEW FOR FULL MODAL