Multiple names: MONTE CARLO, MONTECARLO.SEP
FILE INFORMATION
FILENAME(S):
• MONTE CARLO<br>• MONTECARLO.SEP
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-10-19 22:49:10
APPEARS ON: 5 disk(s)
FILE HASH
108acd54243c63484498e4a4b6e14da21a0624173ada5eeb0248cbda43c9f2dd
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MICRO MANIAC | MONTE CARLO | PRG | Radd Maxx | 6 | 0 | DOWNLOAD FILE |
| COMPUTE | MONTECARLO.SEP | PRG | DuncanTwain | 9 | 1 | DOWNLOAD FILE |
| COMPUTE | MONTECARLO.SEP | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
| COMPUTE | MONTECARLO.SEP | PRG | DuncanTwain | 9 | 1 | DOWNLOAD FILE |
| COMPUTE | MONTECARLO.SEP | PRG | DuncanTwain | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 47 08 64 00 8F 20 43 4F 50 59 52 49 47 48 |..G.d.. COPYRIGH| 00000010: 54 20 31 39 38 37 20 43 4F 4D 50 55 54 45 21 20 |T 1987 COMPUTE! | 00000020: 50 55 42 4C 49 43 41 54 49 4F 4E 53 2C 49 4E 43 |PUBLICATIONS,INC| 00000030: 2E 20 20 41 4C 4C 20 52 49 47 48 54 53 20 52 45 |. ALL RIGHTS RE| 00000040: 53 45 52 56 45 44 2E 00 67 08 6E 00 97 35 33 32 |SERVED..g.n..532| 00000050: 38 30 2C 31 35 3A 97 35 33 32 38 31 2C 31 35 3A |80,15:.53281,15:| 00000060: 97 36 34 36 2C 31 31 00 B1 08 78 00 99 22 93 11 |.646,11...x.."..| 00000070: 20 43 4F 50 59 52 49 47 48 54 20 31 39 38 37 20 | COPYRIGHT 1987 | 00000080: 43 4F 4D 50 55 54 45 21 20 50 55 42 4C 49 43 41 |COMPUTE! PUBLICA| 00000090: 54 49 4F 4E 53 22 3A 99 A3 31 30 29 22 41 4C 4C |TIONS":..10)"ALL| 000000A0: 20 52 49 47 48 54 53 20 52 45 53 45 52 56 45 44 | RIGHTS RESERVED| 000000B0: 22 00 D0 08 82 00 99 22 11 22 3B A3 31 32 29 3B |"......".";.12);| 000000C0: 22 4D 4F 4E 54 45 20 20 43 41 52 4C 4F 20 11 22 |"MONTE CARLO ."| 000000D0: 00 F3 08 8C 00 86 20 43 24 28 35 32 29 2C 56 24 |...... C$(52),V$| 000000E0: 28 31 33 29 2C 54 24 28 34 29 2C 50 53 24 28 34 |(13),T$(4),PS$(4| 000000F0: 2C 35 29 00 04 09 96 00 43 24 28 35 32 29 B2 22 |,5).....C$(52)."| 00000100: 20 2D 2D 22 00 10 09 A0 00 81 20 49 B2 31 A4 34 | --"...... I.1.4| 00000110: 00 24 09 AA 00 87 20 41 24 3A 54 24 28 49 29 B2 |.$.... A$:T$(I).| 00000120: 41 24 3A 82 00 30 09 B4 00 81 49 B2 31 A4 31 33 |A$:..0....I.1.13| 00000130: 00 43 09 BE 00 87 41 24 3A 56 24 28 49 29 B2 41 |.C....A$:V$(I).A| 00000140: 24 3A 82 00 60 09 C8 00 83 22 90 C1 97 22 2C 22 |$:..`...."...","| 00000150: 1C D3 97 22 2C 22 1C DA 97 22 2C 22 90 D8 97 22 |...","...","..."| 00000160: 00 A6 09 D2 00 83 22 20 41 22 2C 22 20 32 22 2C |......" A"," 2",| 00000170: 22 20 33 22 2C 22 20 34 22 2C 22 20 35 22 2C 22 |" 3"," 4"," 5","| 00000180: 20 36 22 2C 22 20 37 22 2C 22 20 38 22 2C 22 20 | 6"," 7"," 8"," | 00000190: 39 22 2C 22 31 30 22 2C 22 20 4A 22 2C 22 20 51 |9","10"," J"," Q| 000001A0: 22 2C 22 20 4B 22 00 BB 09 DC 00 81 20 49 B2 31 |"," K"...... I.1| 000001B0: A4 31 33 3A 81 20 4A B2 31 A4 34 00 D5 09 E6 00 |.13:. J.1.4.....| 000001C0: 99 22 20 20 20 20 20 22 3B 56 24 28 49 29 3B 54 |." ";V$(I);T| 000001D0: 24 28 4A 29 3B 00 DF 09 F0 00 82 3A 99 3A 82 00 |$(J);......:.:..| 000001E0: E8 09 FA 00 8D 39 34 30 00 13 0A 04 01 99 20 A3 |.....940...... .| 000001F0: 35 29 3B 22 97 11 53 48 55 46 46 4C 49 4E 47 20 |5);"..SHUFFLING | 00000200: 44 45 43 4B 20 2D 20 50 4C 45 41 53 45 20 57 41 |DECK - PLEASE WA| 00000210: 49 54 22 00 20 0A 0E 01 50 B2 BB 28 AB 54 49 29 |IT". ...P..(.TI)| 00000220: 00 35 0A 18 01 81 20 49 B2 31 A4 34 3A 81 20 4A |.5.... I.1.4:. J| 00000230: B2 31 A4 31 33 00 46 0A 22 01 50 B2 B5 28 BB 28 |.1.13.F.".P..(.(| 00000240: 31 29 AC 35 32 29 00 6E 0A 2C 01 8B 20 43 24 28 |1).52).n.,.. C$(| 00000250: 50 29 B2 22 22 20 A7 20 43 24 28 50 29 B2 56 24 |P)."" . C$(P).V$| 00000260: 28 4A 29 AA 54 24 28 49 29 3A 89 33 33 30 00 85 |(J).T$(I):.330..| 00000270: 0A 36 01 50 B2 50 AA 31 3A 8B 20 50 B2 35 32 20 |.6.P.P.1:. P.52 | 00000280: A7 20 50 B2 30 00 8E 0A 40 01 89 33 30 30 00 96 |. P.0...@..300..| 00000290: 0A 4A 01 82 3A 82 00 A8 0A 54 01 97 37 38 31 2C |.J..:....T..781,| 000002A0: 31 3A 9E 34 39 31 35 32 00 BF 0A 5E 01 54 24 B2 |1:.49152...^.T$.| 000002B0: C7 28 31 34 36 29 3A 53 24 B2 C7 28 31 38 29 00 |.(146):S$..(18).| 000002C0: E3 0A 68 01 99 20 A3 39 29 22 43 48 4F 4F 53 45 |..h.. .9)"CHOOSE| 000002D0: 3A 20 22 20 53 24 20 22 48 22 20 54 24 20 22 41 |: " S$ "H" T$ "A| 000002E0: 52 44 22 00 00 0B 72 01 99 20 A3 31 37 29 20 53 |RD"...r.. .17) S| 000002F0: 24 20 22 4D 22 20 54 24 20 22 45 44 49 55 4D 22 |$ "M" T$ "EDIUM"| 00000300: 00 1B 0B 7C 01 99 20 A3 31 37 29 20 53 24 20 22 |...|.. .17) S$ "| 00000310: 45 22 20 54 24 20 22 41 53 59 22 00 46 0B 86 01 |E" T$ "ASY".F...| 00000320: A1 41 24 3A 8B 28 41 24 B3 B1 22 48 22 29 AF 28 |.A$:.(A$.."H").(| 00000330: 41 24 B3 B1 22 4D 22 29 AF 28 41 24 B3 B1 22 45 |A$.."M").(A$.."E| 00000340: 22 29 A7 33 39 30 00 5D 0B 90 01 43 B2 34 3A 8B |").390.]...C.4:.| 00000350: 20 41 24 B2 22 4D 22 20 A7 20 43 B2 35 00 70 0B | A$."M" . C.5.p.| 00000360: 9A 01 8B 20 41 24 B2 22 45 22 20 A7 20 43 B2 36 |... A$."E" . C.6| 00000370: 00 95 0B A4 01 43 52 24 B2 22 05 D5 C0 C0 C0 C0 |.....CR$."......| 00000380: C9 11 9D DD 9D 9D 9D 9D 9D 9D DD 11 9D CA C0 C0 |................| 00000390: C0 C0 CB 97 22 00 BA 0B AE 01 42 4C 24 B2 22 05 |....".....BL$.".| 000003A0: 20 20 20 20 20 20 11 9D 20 9D 9D 9D 9D 9D 9D 20 | .. ...... | 000003B0: 11 9D 20 20 20 20 20 20 97 22 00 D0 0B B8 01 58 |.. .".....X| 000003C0: 24 B2 C7 28 32 39 29 3A 59 24 B2 C7 28 31 37 29 |$..(29):Y$..(17)| 000003D0: 00 F2 0B C2 01 81 20 49 B2 31 20 A4 20 36 3A 58 |...... I.1 . 6:X| 000003E0: 24 B2 58 24 AA 58 24 3A 59 24 B2 59 24 AA 59 24 |$.X$.X$:Y$.Y$.Y$| 000003F0: 3A 82 00 06 0C CC 01 81 20 58 B2 30 A4 34 3A 81 |:....... X.0.4:.| 00000400: 20 59 B2 30 A4 35 00 1C 0C D6 01 58 58 B2 58 AC | Y.0.5.....XX.X.| 00000410: 37 AA 33 3A 59 59 B2 59 AC 33 AA 33 00 3F 0C E0 |7.3:YY.Y.3.3.?..| 00000420: 01 50 53 24 28 58 2C 59 29 B2 22 13 22 AA C8 28 |.PS$(X,Y)."."..(| 00000430: 59 24 2C 59 59 29 AA C8 28 58 24 2C 58 58 29 00 |Y$,YY)..(X$,XX).| 00000440: 47 0C EA 01 82 3A 82 00 55 0C F4 01 8F 20 44 49 |G....:..U.... DI| 00000450: 53 50 4C 41 59 00 66 0C FE 01 43 54 B2 30 3A 99 |SPLAY.f...CT.0:.| 00000460: 22 93 11 11 11 22 00 72 0C 08 02 81 20 49 B2 31 |"....".r.... I.1| 00000470: A4 43 00 7E 0C 12 02 81 20 4A B2 31 A4 35 00 92 |.C.~.... J.1.5..| 00000480: 0C 1C 02 99 22 20 20 20 20 22 3B 43 24 28 43 54 |...." ";C$(CT| 00000490: 29 3B 00 9E 0C 26 02 43 54 B2 43 54 AA 31 00 AC |);...&.CT.CT.1..| 000004A0: 0C 30 02 82 3A 99 3A 99 3A 99 3A 82 00 DF 0C 3A |.0..:.:.:.:....:| 000004B0: 02 8B 20 43 24 28 30 29 B2 22 20 2D 2D 22 A7 20 |.. C$(0)." --". | 000004C0: 99 20 A3 31 31 29 22 54 41 42 4C 45 41 55 20 49 |. .11)"TABLEAU I| 000004D0: 53 20 43 4C 45 41 52 45 44 22 3A 89 37 35 30 00 |S CLEARED":.750.| 000004E0: EB 0C 44 02 58 B2 30 3A 59 B2 30 00 16 0D 4E 02 |..D.X.0:Y.0...N.| 000004F0: 8D 38 33 30 3A 97 37 38 31 2C 31 3A 9E 20 34 39 |.830:.781,1:. 49| 00000500: 31 35 32 3A 58 31 B2 58 3A 59 31 B2 59 3A 50 31 |152:X1.X:Y1.Y:P1| 00000510: B2 59 AC 35 AA 58 00 24 0D 58 02 97 35 33 32 38 |.Y.5.X.$.X..5328| 00000520: 30 2C 31 35 00 40 0D 62 02 8D 38 33 30 3A 58 32 |0,15.@.b..830:X2| 00000530: B2 58 3A 59 32 B2 59 3A 50 32 B2 59 AC 35 AA 58 |.X:Y2.Y:P2.Y.5.X| 00000540: 00 4F 0D 6C 02 97 20 35 33 32 38 30 2C 31 31 00 |.O.l.. 53280,11.| 00000550: 60 0D 76 02 8B 20 50 31 B2 50 32 20 A7 35 39 30 |`.v.. P1.P2 .590| 00000560: 00 86 0D 80 02 8B 28 C8 28 43 24 28 50 31 29 2C |......(.(C$(P1),| 00000570: 32 29 29 B3 B1 28 C8 28 43 24 28 50 32 29 2C 32 |2))..(.(C$(P2),2| 00000580: 29 29 A7 38 31 30 00 A9 0D 8A 02 8B 20 B6 28 58 |)).810...... .(X| 00000590: 32 AB 58 31 29 B1 31 20 B0 20 B6 28 59 32 AB 59 |2.X1).1 . .(Y2.Y| 000005A0: 31 29 B1 31 20 A7 38 31 30 00 BC 0D 94 02 97 20 |1).1 .810...... | 000005B0: 37 38 31 2C 32 3A 9E 34 39 31 35 32 00 CC 0D 9E |781,2:.49152....| 000005C0: 02 81 20 49 B2 50 31 20 A4 20 35 31 00 DE 0D A8 |.. I.P1 . 51....| 000005D0: 02 43 24 28 49 29 B2 43 24 28 49 AA 31 29 00 E4 |.C$(I).C$(I.1)..| 000005E0: 0D B2 02 82 00 FA 0D BC 02 8B 20 50 32 B1 50 31 |.......... P2.P1| 000005F0: 20 A7 20 50 32 B2 50 32 AB 31 00 0A 0E C6 02 81 | . P2.P2.1......| 00000600: 20 49 B2 50 32 20 A4 20 35 31 00 1C 0E D0 02 43 | I.P2 . 51.....C| 00000610: 24 28 49 29 B2 43 24 28 49 AA 31 29 00 22 0E DA |$(I).C$(I.1)."..| 00000620: 02 82 00 2B 0E E4 02 89 35 30 30 00 3C 0E EE 02 |...+....500.<...| 00000630: 81 20 49 B2 31 A4 31 31 3A A1 41 24 00 5B 0E F8 |. I.1.11:.A$.[..| 00000640: 02 4E 4E B2 31 AB 4E 4E 3A 97 20 37 38 31 2C 4E |.NN.1.NN:. 781,N| 00000650: 4E AA 31 3A 9E 20 34 39 31 35 32 00 61 0E 02 03 |N.1:. 49152.a...| 00000660: 82 00 76 0E 0C 03 A1 41 24 3A 8B 20 41 24 B3 B1 |..v....A$:. A$..| 00000670: 22 22 20 A7 20 8A 00 7F 0E 16 03 89 37 38 30 00 |"" . .......780.| 00000680: 94 0E 20 03 8F 20 42 41 44 20 4D 4F 56 45 20 53 |.. .. BAD MOVE S| 00000690: 4F 55 4E 44 00 AC 0E 2A 03 97 20 37 38 31 2C 30 |OUND...*.. 781,0| 000006A0: 3A 9E 34 39 31 35 32 3A 89 35 39 30 00 C7 0E 34 |:.49152:.590...4| 000006B0: 03 8F 20 43 55 52 53 4F 52 20 49 4E 50 55 54 20 |.. CURSOR INPUT | 000006C0: 52 4F 55 54 49 4E 45 00 D9 0E 3E 03 99 50 53 24 |ROUTINE...>..PS$| 000006D0: 28 58 2C 59 29 3B 43 52 24 00 EE 0E 48 03 A1 41 |(X,Y);CR$...H..A| 000006E0: 24 3A 8B 20 41 24 B2 22 22 20 89 38 34 30 00 FF |$:. A$."" .840..| 000006F0: 0E 52 03 8B 20 41 24 B2 22 51 22 20 A7 20 8A 00 |.R.. A$."Q" . ..| 00000700: 12 0F 5C 03 99 20 50 53 24 28 58 2C 59 29 3B 42 |..\.. PS$(X,Y);B| 00000710: 4C 24 00 34 0F 66 03 8B 20 41 24 B2 22 91 22 20 |L$.4.f.. A$."." | 00000720: A7 20 59 B2 59 AB 31 3A 8B 20 59 B3 30 20 A7 59 |. Y.Y.1:. Y.0 .Y| 00000730: B2 43 AB 31 00 5B 0F 70 03 8B 20 41 24 B2 22 11 |.C.1.[.p.. A$.".| 00000740: 22 20 A7 20 59 B2 59 AA 31 3A 8B 20 28 59 B1 28 |" . Y.Y.1:. (Y.(| 00000750: 43 AB 31 29 29 20 A7 20 59 B2 30 00 7C 0F 7A 03 |C.1)) . Y.0.|.z.| 00000760: 8B 20 41 24 B2 22 1D 22 20 A7 20 58 B2 58 AA 31 |. A$."." . X.X.1| 00000770: 3A 8B 20 58 B1 34 20 A7 20 58 B2 30 00 9D 0F 84 |:. X.4 . X.0....| 00000780: 03 8B 20 41 24 B2 22 9D 22 20 A7 20 58 B2 58 AB |.. A$."." . X.X.| 00000790: 31 3A 8B 20 58 B3 30 20 A7 20 58 B2 34 00 B2 0F |1:. X.0 . X.4...| 000007A0: 8E 03 8B 20 41 24 B3 B1 C7 28 31 33 29 20 89 38 |... A$...(13) .8| 000007B0: 33 30 00 B8 0F 98 03 8E 00 D4 0F A2 03 8F 20 4D |30............ M| 000007C0: 4C 20 52 4F 55 54 49 4E 45 20 46 4F 52 20 53 4F |L ROUTINE FOR SO| 000007D0: 55 4E 44 53 00 E0 0F AC 03 54 B2 34 39 31 35 32 |UNDS.....T.49152| 000007E0: 00 FA 0F B6 03 87 20 41 3A 8B 20 41 B2 AB 31 20 |...... A:. A..1 | 000007F0: A7 20 9E 34 39 31 35 35 3A 8E 00 0F 10 C0 03 97 |. .49155:.......| 00000800: 20 54 2C 41 3A 54 B2 54 AA 31 3A 89 39 35 30 00 | T,A:T.T.1:.950.| 00000810: 3D 10 CA 03 83 20 37 36 2C 31 39 2C 31 39 32 2C |=.... 76,19,192,| 00000820: 31 36 32 2C 32 34 2C 31 36 39 2C 30 2C 31 35 37 |162,24,169,0,157| 00000830: 2C 30 2C 32 31 32 2C 32 30 32 2C 31 36 00 6E 10 |,0,212,202,16.n.| 00000840: D4 03 83 20 32 35 30 2C 31 36 39 2C 30 31 35 2C |... 250,169,015,| 00000850: 31 34 31 2C 32 34 2C 32 31 32 2C 39 36 2C 31 38 |141,24,212,96,18| 00000860: 39 2C 34 38 2C 31 39 32 2C 31 34 31 2C 35 00 9D |9,48,192,141,5..| 00000870: 10 DE 03 83 20 32 31 32 2C 31 36 39 2C 30 2C 31 |.... 212,169,0,1| 00000880: 34 31 2C 36 2C 32 31 32 2C 31 38 39 2C 35 31 2C |41,6,212,189,51,| 00000890: 31 39 32 2C 31 34 31 2C 31 2C 32 31 32 00 CA 10 |192,141,1,212...| 000008A0: E8 03 83 20 31 38 39 2C 35 34 2C 31 39 32 2C 31 |... 189,54,192,1| 000008B0: 34 31 2C 34 2C 32 31 32 2C 37 33 2C 31 2C 31 34 |41,4,212,73,1,14| 000008C0: 31 2C 34 2C 32 31 32 2C 39 36 00 F0 10 F2 03 83 |1,4,212,96......| 000008D0: 20 31 35 32 2C 31 30 34 2C 31 30 34 2C 36 2C 38 | 152,104,104,6,8| 000008E0: 38 2C 36 36 2C 33 32 2C 31 36 2C 33 32 2C 2D 31 |8,66,32,16,32,-1| 000008F0: 00 00 00 |... |
..G.D.. COPYRIGHT 1987 COMPUTE! PUBLICAT IONS,INC. ALL RIGHTS RESERVED..G.N..532 80,15:.53281,15:.646,11...X..".. COPYRIG HT 1987 COMPUTE! PUBLICATIONS":..10)"ALL RIGHTS RESERVED".P....".";.12);"MONTE CARLO ."...... C$(52),V$(13),T$(4),PS$(4 ,5).....C$(52)." --"... .. I.1.4.$.... A $:T$(I).A$:..0....I.1.13.C....A$:V$(I).A $:..`.H..".A.",".S.",".Z.",".X."...R.." A"," 2"," 3"," 4"," 5"," 6"," 7"," 8"," 9","10"," J"," Q"," K"...... I.1.13:. J. 1.4.U...." ";V$(I);T$(J);......:.:.. .....940...... .5);"..SHUFFLING DECK - P LEASE WAIT". ...P..(.TI).5.... I.1.4:. J .1.13.F.".P..(.(1).52).N.,.. C$(P)."" . C$(P).V$(J).T$(I):.330...6.P.P.1:. P.52 . P.0...@..300...J..:....T..781,1:.49152 ...^.T$.G(146):S$.G(18)...H.. .9)"CHOOSE : " S$ "H" T$ "ARD"...R.. .17) S$ "M" T$ "EDIUM"...|.. .17) S$ "E" T$ "ASY".F... .A$:.(A$.."H").(A$.."M").(A$.."E").390.] ...C.4:. A$."M" . C.5.P.... A$."E" . C.6 .....CR$.".U....I............J....K."... ..BL$.". .. ...... .. .".P...X $.G(29):Y$.G(17)...B.. I.1 . 6:X$.X$.X$: Y$.Y$.Y$:....L.. X.0.4:. Y.0.5...V.XX.X. 7.3:YY.Y.3.3.?...PS$(X,Y).".".H(Y$,YY).H (X$,XX).G....:..U.... DISPLAY.F...CT.0:. "....".R.... I.1.C.~.... J.1.5......" ";C$(CT);...&.CT.CT.1...0..:.:.:.:....: .. C$(0)." --". . .11)"TABLEAU IS CLEARE D":.750...D.X.0:Y.0...N..830:.781,1:. 49 152:X1.X:Y1.Y:P1.Y.5.X.$.X..53280,15.@.B ..830:X2.X:Y2.Y:P2.Y.5.X.O.L.. 53280,11. `.V.. P1.P2 .590......(H(C$(P1),2))..(H( C$(P2),2)).810...... .(X2.X1).1 . .(Y2.Y 1).1 .810...... 781,2:.49152.L.... I.P1 . 51.....C$(I).C$(I.1)............ P2.P1 . P2.P2.1...F.. I.P2 . 51...P.C$(I).C$( I.1).".Z...+....500.<.... I.1.11:.A$.[.. .NN.1.NN:. 781,NN.1:. 49152.A.....V....A $:. A$.."" . ......780... .. BAD MOVE S OUND...*.. 781,0:.49152:.590.G.4.. CURSO R INPUT ROUTINE.Y.>..PS$(X,Y);CR$...H..A $:. A$."" .840...R.. A$."Q" . ....\.. PS $(X,Y);BL$.4.F.. A$."." . Y.Y.1:. Y.0 .Y .C.1.[.P.. A$."." . Y.Y.1:. (Y.(C.1)) . Y.0.|.Z.. A$."." . X.X.1:. X.4 . X.0.... .. A$."." . X.X.1:. X.0 . X.4...... A$.. G(13) .830.......T.... ML ROUTINE FOR SO UNDS.....T.49152...... A:. A..1 . .49155 :....... T,A:T.T.1:.950.=.J.. 76,19,192, 162,24,169,0,157,0,212,202,16.N.T.. 250, 169,015,141,24,212,96,189,48,192,141,5.. .... 212,169,0,141,6,212,189,51,192,141, 1,212.J.... 189,54,192,141,4,212,73,1,14 1,4,212,96...... 152,104,104,6,88,66,32, 16,32,-1...
> CLICK IMAGE PREVIEW FOR FULL MODAL