MONOPOL
FILE INFORMATION
FILENAME(S): MONOPOL
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-12-01 02:02:57
APPEARS ON: 1 disk(s)
FILE HASH
d6582f66009be3546c3e10f2884cdac8beab61145d676e4aee15c7d64423acab
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREDRIK | MONOPOL | PRG | hedning, pewp | 15 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 64 00 8F 20 4D 4F 4E 4F 50 4F 4C 45 |....d.. MONOPOLE|
00000010: 20 43 42 4D 2D 36 34 00 3B 08 82 00 99 22 93 05 | CBM-64.;...."..|
00000020: 22 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 |":.53280,0:.5328|
00000030: 31 2C 30 3A 9C 3A 8D 31 35 39 30 00 8C 08 8C 00 |1,0:.:.1590.....|
00000040: 50 47 24 B2 22 20 20 50 55 52 50 4C 45 2C 20 4C |PG$." PURPLE, L|
00000050: 54 2E 20 42 4C 55 45 2C 20 4D 41 52 4F 4F 4E 2C |T. BLUE, MAROON,|
00000060: 20 4F 52 41 4E 47 45 2C 20 20 20 20 20 20 20 52 | ORANGE, R|
00000070: 45 44 2C 20 59 45 4C 4C 4F 57 2C 20 47 52 45 45 |ED, YELLOW, GREE|
00000080: 4E 2C 20 44 4B 2E 20 42 4C 55 45 22 00 DC 08 96 |N, DK. BLUE"....|
00000090: 00 86 50 4E 24 28 34 32 29 2C 44 28 34 32 2C 31 |..PN$(42),D(42,1|
000000A0: 29 2C 43 48 24 28 31 36 29 2C 43 43 24 28 31 36 |),CH$(16),CC$(16|
000000B0: 29 2C 50 28 34 32 2C 39 29 2C 50 54 24 28 34 32 |),P(42,9),PT$(42|
000000C0: 29 2C 43 24 28 34 32 29 2C 50 53 28 34 32 29 2C |),C$(42),PS(42),|
000000D0: 48 28 34 32 29 2C 4D 47 28 34 32 29 00 04 09 A0 |H(42),MG(42)....|
000000E0: 00 86 20 50 24 28 32 29 2C 50 4C 28 32 29 2C 4F |.. P$(2),PL(2),O|
000000F0: 28 32 29 2C 4A 54 28 32 29 2C 4D 28 32 29 2C 43 |(2),JT(2),M(2),C|
00000100: 4A 28 32 29 00 47 09 AA 00 8D 33 32 30 3A 85 22 |J(2).G....320:."|
00000110: 44 4F 20 59 4F 55 20 57 41 4E 54 20 41 55 43 54 |DO YOU WANT AUCT|
00000120: 49 4F 4E 20 52 55 4C 45 20 28 59 20 4F 52 20 4E |ION RULE (Y OR N|
00000130: 29 22 3B 51 24 3A 8B C8 28 51 24 2C 31 29 B2 22 |)";Q$:..(Q$,1)."|
00000140: 59 22 A7 41 46 B2 31 00 8D 09 B4 00 85 22 11 57 |Y".AF.1......".W|
00000150: 41 4E 54 20 46 52 45 45 20 50 41 52 4B 49 4E 47 |ANT FREE PARKING|
00000160: 20 4A 41 43 4B 50 4F 54 20 4F 50 54 49 4F 4E 20 | JACKPOT OPTION |
00000170: 22 3B 51 24 3A 8B C8 28 51 24 2C 31 29 B2 22 59 |";Q$:..(Q$,1)."Y|
00000180: 22 A7 50 46 B2 31 3A 46 50 B2 35 30 30 00 BA 09 |".PF.1:FP.500...|
00000190: BE 00 4D 28 31 29 B2 31 35 30 30 3A 4D 28 32 29 |..M(1).1500:M(2)|
000001A0: B2 31 35 30 30 3A 50 4C 28 31 29 B2 31 3A 50 4C |.1500:PL(1).1:PL|
000001B0: 28 32 29 B2 31 3A 44 56 B2 32 00 0D 0A C8 00 43 |(2).1:DV.2.....C|
000001C0: 44 24 B2 22 11 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
000001D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 43 |.............":C|
000001E0: 52 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |R$."............|
000001F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000200: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 4B 0A |............".K.|
00000210: D2 00 5A 51 B2 BB 28 AB 54 49 29 3A 58 31 B2 38 |..ZQ..(.TI):X1.8|
00000220: 3A 59 31 B2 31 30 3A 58 32 B2 32 33 3A 59 32 B2 |:Y1.10:X2.23:Y2.|
00000230: 31 30 3A 52 58 B2 36 3A 52 59 B2 31 38 3A 54 4E |10:RX.6:RY.18:TN|
00000240: B2 38 33 32 3A 54 54 B2 38 38 36 00 81 0A DC 00 |.832:TT.886.....|
00000250: 45 24 B2 22 12 20 20 20 20 20 20 20 20 20 20 20 |E$.". |
00000260: 20 20 20 20 20 20 20 92 22 3A 52 4D 24 B2 22 12 | .":RM$.".|
00000270: 48 49 54 20 20 27 52 27 20 4F 52 20 27 54 27 92 |HIT 'R' OR 'T'.|
00000280: 22 00 AE 0A E6 00 99 22 93 11 11 9F 20 20 20 20 |"......".... |
00000290: 20 50 4C 45 41 53 45 20 57 41 49 54 20 57 48 49 | PLEASE WAIT WHI|
000002A0: 4C 45 20 49 20 53 45 54 20 55 50 2E 05 22 00 E7 |LE I SET UP.."..|
000002B0: 0A F0 00 81 49 B2 31 A4 34 3A 50 28 36 AA 28 28 |....I.1.4:P(6.((|
000002C0: 49 AB 31 29 AC 31 30 29 2C 38 29 B2 31 30 30 3A |I.1).10),8).100:|
000002D0: 82 3A 50 28 31 33 2C 38 29 B2 37 35 3A 50 28 32 |.:P(13,8).75:P(2|
000002E0: 39 2C 38 29 B2 37 35 00 0B 0B FA 00 43 48 B2 B5 |9,8).75.....CH..|
000002F0: 28 BB 28 31 29 AC 31 36 29 AA 31 3A 43 43 B2 B5 |(.(1).16).1:CC..|
00000300: 28 BB 28 31 29 AC 31 36 29 AA 31 00 2A 0B 04 01 |(.(1).16).1.*...|
00000310: 81 49 B2 31 A4 34 31 3A 81 4A B2 30 A4 31 3A 87 |.I.1.41:.J.0.1:.|
00000320: 44 28 49 2C 4A 29 3A 82 3A 82 00 5A 0B 0E 01 50 |D(I,J):.:..Z...P|
00000330: 24 28 31 29 B2 22 12 20 20 20 50 4C 41 59 45 52 |$(1).". PLAYER|
00000340: 20 31 92 22 3A 50 24 28 32 29 B2 22 12 20 20 20 | 1.":P$(2).". |
00000350: 50 4C 41 59 45 52 20 32 92 22 00 91 0B 18 01 81 |PLAYER 2."......|
00000360: 49 B2 31 A4 34 31 3A 87 50 4E 24 28 49 29 3A 82 |I.1.41:.PN$(I):.|
00000370: 3A 81 49 B2 31 A4 34 31 3A 87 50 54 24 28 49 29 |:.I.1.41:.PT$(I)|
00000380: 3A 8B 50 54 24 28 49 29 B3 B1 22 50 22 A7 33 30 |:.PT$(I).."P".30|
00000390: 30 00 AE 0B 22 01 87 43 24 28 49 29 3A 81 4A B2 |0..."..C$(I):.J.|
000003A0: 31 A4 39 3A 87 50 28 49 2C 4A 29 3A 82 4A 00 B5 |1.9:.P(I,J):.J..|
000003B0: 0B 2C 01 82 49 00 E2 0B 36 01 81 49 B2 31 A4 31 |.,..I...6..I.1.1|
000003C0: 36 3A 87 43 48 24 28 49 29 3A 82 3A 81 49 B2 31 |6:.CH$(I):.:.I.1|
000003D0: A4 31 36 3A 87 43 43 24 28 49 29 3A 82 3A 89 33 |.16:.CC$(I):.:.3|
000003E0: 39 30 00 14 0C 40 01 99 22 9A 20 AA BF 20 20 12 |90...@..". .. .|
000003F0: BF 92 B4 AA B7 B7 B7 B4 AA BF 20 20 20 B4 AA B7 |.......... ...|
00000400: B7 B7 B4 AA B7 B7 D0 AA B7 B7 B7 B4 AA 20 20 20 |............. |
00000410: 20 CF B7 22 00 44 0C 42 01 99 22 20 AA 20 BF 12 | ..".D.B.." . ..|
00000420: BF 92 20 B4 AA 20 20 20 B4 AA 20 BF 20 20 B4 AA |.. .. .. . ..|
00000430: 20 20 20 B4 AA AF AF BA AA 20 20 20 B4 AA 20 20 | ...... .. |
00000440: 20 20 CC 22 00 72 0C 44 01 99 22 20 AA 20 20 20 | .".r.D.." . |
00000450: 20 B4 AA 20 20 20 B4 AA 20 20 BF 20 B4 AA 20 20 | .. .. . .. |
00000460: 20 B4 AA 20 20 20 AA 20 20 20 B4 AA 20 20 20 20 | .. . .. |
00000470: CF 22 00 A2 0C 4A 01 99 22 20 AA 20 20 20 20 B4 |."...J.." . .|
00000480: AA AF AF AF B4 AA 20 20 20 BF B4 AA AF AF AF B4 |...... .......|
00000490: AA 20 20 20 AA AF AF AF B4 AA AF AF AF 20 CC AF |. ......... ..|
000004A0: 05 22 00 E6 0C 68 01 99 22 11 11 11 48 49 54 20 |."...h.."...HIT |
000004B0: 27 52 27 20 54 4F 20 52 4F 4C 4C 20 44 49 43 45 |'R' TO ROLL DICE|
000004C0: 20 41 4E 44 20 27 54 27 20 46 4F 52 20 20 20 20 | AND 'T' FOR |
000004D0: 20 20 20 20 54 52 41 4E 53 41 43 54 49 4F 4E 20 | TRANSACTION |
000004E0: 4D 45 4E 55 2E 22 00 23 0D 72 01 99 22 11 20 27 |MENU.".#.r..". '|
000004F0: 30 27 20 43 41 4E 20 42 45 20 55 53 45 44 20 54 |0' CAN BE USED T|
00000500: 4F 20 52 45 54 55 52 4E 20 46 52 4F 4D 20 4D 4F |O RETURN FROM MO|
00000510: 53 54 20 20 20 20 20 53 55 42 52 4F 55 54 49 4E |ST SUBROUTIN|
00000520: 45 53 22 00 59 0D 7C 01 99 3A 99 22 11 44 45 56 |ES".Y.|..:.".DEV|
00000530: 45 4C 4F 50 45 44 20 50 52 4F 50 45 52 54 49 45 |ELOPED PROPERTIE|
00000540: 53 20 4D 41 59 20 4E 4F 54 20 42 45 20 54 52 41 |S MAY NOT BE TRA|
00000550: 44 45 44 2E 22 3A 99 3A 8E 00 7B 0D 86 01 97 35 |DED.":.:..{....5|
00000560: 34 32 37 37 2C 37 39 3A 97 35 34 32 38 34 2C 37 |4277,79:.54284,7|
00000570: 39 3A 97 35 34 32 39 31 2C 37 39 00 A0 0D 88 01 |9:.54291,79.....|
00000580: 97 35 34 32 37 38 2C 32 34 38 3A 97 35 34 32 38 |.54278,248:.5428|
00000590: 36 2C 32 34 38 3A 97 35 34 32 39 32 2C 32 34 38 |6,248:.54292,248|
000005A0: 00 C2 0D 8A 01 97 35 34 32 37 36 2C 33 33 3A 97 |......54276,33:.|
000005B0: 35 34 32 38 38 2C 33 33 3A 97 35 34 32 39 30 2C |54288,33:.54290,|
000005C0: 33 33 00 08 0E 8C 01 47 28 31 29 B2 35 34 32 37 |33.....G(1).5427|
000005D0: 32 3A 47 28 32 29 B2 35 34 32 37 33 3A 47 28 33 |2:G(2).54273:G(3|
000005E0: 29 B2 35 34 32 37 39 3A 47 28 34 29 B2 35 34 32 |).54279:G(4).542|
000005F0: 38 30 3A 47 28 35 29 B2 35 34 32 38 36 3A 47 28 |80:G(5).54286:G(|
00000600: 36 29 B2 35 34 32 38 37 00 1D 0E 8E 01 81 49 B2 |6).54287......I.|
00000610: 31 A4 36 3A 97 47 28 49 29 2C 30 3A 82 00 3E 0E |1.6:.G(I),0:..>.|
00000620: 8F 01 97 35 34 32 39 36 2C 31 35 3A 8B C2 28 38 |...54296,15:..(8|
00000630: 33 32 29 B3 B1 31 36 30 A7 8D 36 33 37 30 00 7F |32)..160..6370..|
00000640: 0E 90 01 8D 31 33 32 30 3A 81 50 4B B2 31 A4 32 |....1320:.PK.1.2|
00000650: 3A 97 44 28 31 2C 50 4B AB 31 29 2C 34 38 AA 50 |:.D(1,PK.1),48.P|
00000660: 4B 3A 4F 28 50 4B 29 B2 44 28 31 2C 50 4B AB 31 |K:O(PK).D(1,PK.1|
00000670: 29 3A 50 54 B2 50 4B 3A 82 3A 8D 36 34 37 30 00 |):PT.PK:.:.6470.|
00000680: 94 0E 9A 01 8D 31 36 32 30 3A 8B 52 31 B2 52 32 |.....1620:.R1.R2|
00000690: A7 34 31 30 00 A5 0E A4 01 50 54 B2 28 52 31 B1 |.410.....PT.(R1.|
000006A0: 52 32 29 AA 32 00 C7 0E AE 01 97 44 28 50 4C 28 |R2).2......D(PL(|
000006B0: 31 29 2C 30 29 2C 34 39 3A 97 44 28 50 4C 28 32 |1),0),49:.D(PL(2|
000006C0: 29 2C 31 29 2C 35 30 00 D5 0E B8 01 50 54 24 B2 |),1),50.....PT$.|
000006D0: C4 28 50 54 29 00 F8 0E C2 01 4D 53 24 B2 22 12 |.(PT).....MS$.".|
000006E0: 1E 50 4C 41 59 45 52 22 AA 50 54 24 AA 22 20 53 |.PLAYER".PT$." S|
000006F0: 54 41 52 54 53 92 05 22 00 31 0F CC 01 58 B2 52 |TARTS..".1...X.R|
00000700: 58 3A 59 B2 52 59 3A 5A 24 B2 4D 53 24 3A 8D 31 |X:Y.RY:Z$.MS$:.1|
00000710: 35 37 30 3A 81 44 45 B2 31 A4 31 35 30 30 3A 82 |570:.DE.1.1500:.|
00000720: 3A 5A 24 B2 45 24 3A 8D 31 35 37 30 3A 89 36 38 |:Z$.E$:.1570:.68|
00000730: 30 00 44 0F D6 01 44 56 B2 32 3A 4D 46 B2 30 3A |0.D...DV.2:MF.0:|
00000740: 4A 42 B2 30 00 57 0F E0 01 8B 50 4C 28 50 54 29 |JB.0.W....PL(PT)|
00000750: B2 34 31 A7 35 39 30 00 64 0F EA 01 4A 54 28 50 |.41.590.d...JT(P|
00000760: 54 29 B2 30 00 73 0F F4 01 8D 31 36 32 30 3A 44 |T).0.s....1620:D|
00000770: 46 B2 31 00 96 0F FE 01 8B 44 42 B2 33 A7 9E 54 |F.1......DB.3..T|
00000780: 4E 3A 8D 33 31 35 30 3A 9E 54 54 3A 8D 36 34 37 |N:.3150:.TT:.647|
00000790: 30 3A 89 36 32 30 00 B2 0F 08 02 81 4D B2 31 A4 |0:.620......M.1.|
000007A0: 44 52 3A 50 4C 28 50 54 29 B2 50 4C 28 50 54 29 |DR:PL(PT).PL(PT)|
000007B0: AA 31 00 EB 0F 12 02 97 4F 28 50 54 29 2C 31 36 |.1......O(PT),16|
000007C0: 30 3A 8B 50 4C 28 50 54 29 B1 34 30 A7 50 4C 28 |0:.PL(PT).40.PL(|
000007D0: 50 54 29 B2 50 4C 28 50 54 29 AB 34 30 3A 9E 54 |PT).PL(PT).40:.T|
000007E0: 4E 3A 8D 31 37 30 30 3A 9E 54 54 00 05 10 1C 02 |N:.1700:.TT.....|
000007F0: 97 44 28 50 4C 28 50 54 29 2C 50 54 AB 31 29 2C |.D(PL(PT),PT.1),|
00000800: 34 38 AA 50 54 00 1E 10 26 02 4F 28 50 54 29 B2 |48.PT...&.O(PT).|
00000810: 44 28 50 4C 28 50 54 29 2C 50 54 AB 31 29 00 42 |D(PL(PT),PT.1).B|
00000820: 10 30 02 81 54 B2 31 A4 35 30 A9 36 AA 50 54 3A |.0..T.1.50.6.PT:|
00000830: 81 49 B2 31 A4 36 3A 97 47 28 49 29 2C 54 3A 82 |.I.1.6:.G(I),T:.|
00000840: 3A 82 00 5A 10 44 02 81 49 B2 31 A4 36 3A 97 47 |:..Z.D..I.1.6:.G|
00000850: 28 49 29 2C 30 3A 82 3A 82 4D 00 7A 10 4E 02 97 |(I),0:.:.M.z.N..|
00000860: 44 28 50 4C 28 50 54 29 2C 50 54 AB 31 29 2C 34 |D(PL(PT),PT.1),4|
00000870: 38 AA 50 54 3A 8D 36 34 37 30 00 A5 10 58 02 9E |8.PT:.6470...X..|
00000880: 54 4E 3A 8D 31 37 37 30 3A 9E 54 54 3A 8D 36 34 |TN:.1770:.TT:.64|
00000890: 37 30 3A 8B 4D 28 50 54 29 B3 30 A7 8D 36 32 30 |70:.M(PT).0..620|
000008A0: 30 3A 9E 54 54 00 D6 10 62 02 8B 50 4C 28 50 54 |0:.TT...b..PL(PT|
000008B0: 29 B2 31 31 A7 97 44 28 34 31 2C 50 54 AB 31 29 |).11..D(41,PT.1)|
000008C0: 2C 31 36 30 3A 97 44 28 31 31 2C 50 54 AB 31 29 |,160:.D(11,PT.1)|
000008D0: 2C 34 38 AA 50 54 00 08 11 6C 02 8B 4A 42 A7 4A |,48.PT...l..JB.J|
000008E0: 42 B2 30 3A 97 4F 28 50 54 29 2C 31 36 30 3A 4F |B.0:.O(PT),160:O|
000008F0: 28 50 54 29 B2 44 28 50 4C 28 50 54 29 2C 50 54 |(PT).D(PL(PT),PT|
00000900: AB 31 29 3A 89 35 32 30 00 3A 11 76 02 8B 4D 46 |.1):.520.:.v..MF|
00000910: A7 4D 46 B2 30 3A 97 4F 28 50 54 29 2C 31 36 30 |.MF.0:.O(PT),160|
00000920: 3A 4F 28 50 54 29 B2 44 28 50 4C 28 50 54 29 2C |:O(PT).D(PL(PT),|
00000930: 50 54 AB 31 29 3A 89 35 39 30 00 6C 11 80 02 8B |PT.1):.590.l....|
00000940: 4A 45 A7 4A 45 B2 30 3A 97 4F 28 50 54 29 2C 31 |JE.JE.0:.O(PT),1|
00000950: 36 30 3A 4F 28 50 54 29 B2 44 28 50 4C 28 50 54 |60:O(PT).D(PL(PT|
00000960: 29 2C 50 54 AB 31 29 3A 89 36 38 30 00 AF 11 8A |),PT.1):.680....|
00000970: 02 8B 4A 46 A7 4A 46 B2 30 3A 97 44 28 50 4C 28 |..JF.JF.0:.D(PL(|
00000980: 50 54 29 2C 50 54 AB 31 29 2C 34 38 AA 50 54 3A |PT),PT.1),48.PT:|
00000990: 97 4F 28 50 54 29 2C 31 36 30 3A 4F 28 50 54 29 |.O(PT),160:O(PT)|
000009A0: B2 44 28 50 4C 28 50 54 29 2C 50 54 AB 31 29 00 |.D(PL(PT),PT.1).|
000009B0: BB 11 94 02 8B 44 42 A7 36 38 30 00 C7 11 9E 02 |.....DB.680.....|
000009C0: 50 54 B2 33 AB 50 54 00 E7 11 A8 02 5A 24 B2 50 |PT.3.PT.....Z$.P|
000009D0: 24 28 50 54 29 3A 58 B2 52 58 3A 59 B2 52 59 AB |$(PT):X.RX:Y.RY.|
000009E0: 31 3A 8D 31 35 37 30 00 02 12 B2 02 5A 24 B2 52 |1:.1570.....Z$.R|
000009F0: 4D 24 3A 58 B2 52 58 3A 59 B2 52 59 3A 8D 31 35 |M$:X.RX:Y.RY:.15|
00000A00: 37 30 00 18 12 BC 02 A1 42 43 24 3A 8B 42 43 24 |70......BC$:.BC$|
00000A10: B3 B1 22 22 A7 37 30 30 00 2B 12 C6 02 A1 41 24 |.."".700.+....A$|
00000A20: 3A 8B 41 24 B2 22 22 A7 37 31 30 00 50 12 D0 02 |:.A$."".710.P...|
00000A30: 8B 41 24 B2 22 54 22 A7 9E 54 4E 3A 8D 34 30 38 |.A$."T"..TN:.408|
00000A40: 30 3A 9E 54 54 3A 8D 36 34 37 30 3A 89 36 38 30 |0:.TT:.6470:.680|
00000A50: 00 6A 12 DA 02 5A 24 B2 45 24 3A 58 B2 52 58 3A |.j...Z$.E$:X.RX:|
00000A60: 59 B2 52 59 3A 8D 31 35 37 30 00 73 12 E4 02 89 |Y.RY:.1570.s....|
00000A70: 34 37 30 00 B4 12 EE 02 83 31 39 37 38 2C 31 39 |470......1978,19|
00000A80: 33 38 2C 31 39 37 34 2C 31 39 37 33 2C 31 39 33 |38,1974,1973,193|
00000A90: 31 2C 31 39 33 30 2C 31 39 36 38 2C 31 39 36 37 |1,1930,1968,1967|
00000AA0: 2C 31 39 32 35 2C 31 39 32 34 2C 31 39 32 32 2C |,1925,1924,1922,|
00000AB0: 31 39 32 31 00 EB 12 F8 02 83 31 39 35 39 2C 31 |1921......1959,1|
00000AC0: 39 35 38 2C 31 39 35 36 2C 31 39 35 35 2C 31 39 |958,1956,1955,19|
00000AD0: 35 33 2C 31 39 35 32 2C 31 39 35 30 2C 31 39 34 |53,1952,1950,194|
00000AE0: 39 2C 31 39 34 34 2C 31 39 30 34 00 2C 13 02 03 |9,1944,1904.,...|
00000AF0: 83 31 38 32 34 2C 31 38 32 35 2C 31 37 34 34 2C |.1824,1825,1744,|
00000B00: 31 37 34 35 2C 31 36 36 34 2C 31 36 36 35 2C 31 |1745,1664,1665,1|
00000B10: 35 38 34 2C 31 35 38 35 2C 31 35 30 35 2C 31 35 |584,1585,1505,15|
00000B20: 30 36 2C 31 34 32 34 2C 31 34 32 35 00 59 13 0C |06,1424,1425.Y..|
00000B30: 03 83 31 33 34 36 2C 31 33 34 37 2C 31 32 36 34 |..1346,1347,1264|
00000B40: 2C 31 32 36 35 2C 31 31 38 34 2C 31 31 38 35 2C |,1265,1184,1185,|
00000B50: 31 31 30 34 2C 31 31 30 35 00 9A 13 16 03 83 31 |1104,1105......1|
00000B60: 30 32 39 2C 31 30 33 30 2C 31 30 33 32 2C 31 30 |029,1030,1032,10|
00000B70: 33 33 2C 31 30 33 35 2C 31 30 33 36 2C 31 30 33 |33,1035,1036,103|
00000B80: 38 2C 31 30 33 39 2C 31 30 38 31 2C 31 30 38 32 |8,1039,1081,1082|
00000B90: 2C 31 30 34 34 2C 31 30 34 35 00 C7 13 20 03 83 |,1044,1045... ..|
00000BA0: 31 30 34 37 2C 31 30 34 38 2C 31 31 33 30 2C 31 |1047,1048,1130,1|
00000BB0: 31 33 31 2C 31 30 35 33 2C 31 30 35 34 2C 31 30 |131,1053,1054,10|
00000BC0: 39 36 2C 31 30 39 37 00 08 14 2A 03 83 31 32 31 |96,1097...*..121|
00000BD0: 37 2C 31 32 31 38 2C 31 32 39 37 2C 31 32 39 38 |7,1218,1297,1298|
00000BE0: 2C 31 33 37 37 2C 31 33 37 38 2C 31 34 35 37 2C |,1377,1378,1457,|
00000BF0: 31 34 35 38 2C 31 35 33 36 2C 31 35 33 37 2C 31 |1458,1536,1537,1|
00000C00: 36 31 37 2C 31 36 31 38 00 35 14 34 03 83 31 36 |617,1618.5.4..16|
00000C10: 39 37 2C 31 36 39 38 2C 31 37 37 37 2C 31 37 37 |97,1698,1777,177|
00000C20: 38 2C 31 38 35 37 2C 31 38 35 38 2C 31 39 30 36 |8,1857,1858,1906|
00000C30: 2C 31 39 30 37 00 80 14 3E 03 83 22 1E 3E 47 4F |,1907...>..".>GO|
00000C40: 3C 9B 22 2C 22 9B 4F 4C 44 20 4B 45 4E 54 20 52 |<.",".OLD KENT R|
00000C50: 4F 41 44 2E 9B 22 2C 22 9E 43 4F 4D 4D 55 4E 49 |OAD..",".COMMUNI|
00000C60: 54 59 20 43 48 45 53 54 9B 22 2C 22 9B 57 48 49 |TY CHEST.",".WHI|
00000C70: 54 45 43 48 41 50 45 4C 20 52 4F 41 44 2E 9B 22 |TECHAPEL ROAD.."|
00000C80: 00 94 14 43 03 83 22 9A 49 4E 43 4F 4D 45 20 54 |...C..".INCOME T|
00000C90: 41 58 9B 22 00 D5 14 48 03 83 22 98 4B 49 4E 47 |AX."...H..".KING|
00000CA0: 53 20 43 52 4F 53 53 2E 9B 22 2C 22 9F 54 48 45 |S CROSS..",".THE|
00000CB0: 20 41 4E 47 45 4C 2E 9B 22 2C 22 96 43 48 41 4E | ANGEL..",".CHAN|
00000CC0: 43 45 9B 22 2C 22 9F 45 55 53 54 4F 4E 20 52 4F |CE.",".EUSTON RO|
00000CD0: 41 44 2E 9B 22 00 F0 14 4D 03 83 22 9F 50 45 4E |AD.."...M..".PEN|
00000CE0: 54 4F 4E 56 49 4C 4C 45 20 52 4F 41 44 2E 9B 22 |TONVILLE ROAD.."|
00000CF0: 00 39 15 52 03 83 22 96 4A 55 53 54 20 56 49 53 |.9.R..".JUST VIS|
00000D00: 49 54 49 4E 47 9B 22 2C 22 9C 50 41 4C 4C 20 4D |ITING.",".PALL M|
00000D10: 41 4C 4C 9B 22 2C 22 99 45 4C 45 43 54 52 49 43 |ALL.",".ELECTRIC|
00000D20: 20 43 4F 4D 50 41 4E 59 9B 22 2C 22 9C 57 48 49 | COMPANY.",".WHI|
00000D30: 54 45 48 41 4C 4C 2E 9B 22 00 78 15 5C 03 83 22 |TEHALL..".x.\.."|
00000D40: 9C 4E 27 54 48 55 4D 42 45 52 4C 41 4E 44 20 41 |.N'THUMBERLAND A|
00000D50: 56 2E 9B 22 2C 22 98 4D 41 52 59 4C 45 42 4F 4E |V..",".MARYLEBON|
00000D60: 45 20 53 54 41 54 2E 9B 22 2C 22 81 42 4F 57 20 |E STAT..",".BOW |
00000D70: 53 54 52 45 45 54 9B 22 00 91 15 61 03 83 22 9E |STREET."...a..".|
00000D80: 43 4F 4D 4D 55 4E 49 54 59 20 43 48 45 53 54 9B |COMMUNITY CHEST.|
00000D90: 22 00 D8 15 66 03 83 22 81 4D 41 52 4C 42 4F 52 |"...f..".MARLBOR|
00000DA0: 4F 55 47 48 20 53 54 2E 9B 22 2C 22 81 56 49 4E |OUGH ST..",".VIN|
00000DB0: 45 20 53 54 52 45 45 54 2E 9B 22 2C 22 95 46 52 |E STREET..",".FR|
00000DC0: 45 45 20 50 41 52 4B 49 4E 47 9B 22 2C 22 1C 53 |EE PARKING.",".S|
00000DD0: 54 52 41 4E 44 2E 9B 22 00 1E 16 70 03 83 22 96 |TRAND.."...p..".|
00000DE0: 43 48 41 4E 43 45 9B 22 2C 22 1C 46 4C 45 45 54 |CHANCE.",".FLEET|
00000DF0: 20 53 54 52 45 45 54 2E 9B 22 2C 22 1C 54 52 41 | STREET..",".TRA|
00000E00: 46 41 4C 47 41 52 20 53 51 2E 9B 22 2C 22 98 46 |FALGAR SQ..",".F|
00000E10: 45 4E 43 48 55 52 43 48 20 53 54 2E 9B 22 00 35 |ENCHURCH ST..".5|
00000E20: 16 75 03 83 22 9E 4C 45 49 43 45 53 54 45 52 20 |.u..".LEICESTER |
00000E30: 53 51 2E 9B 22 00 7D 16 7A 03 83 22 9E 43 4F 56 |SQ..".}.z..".COV|
00000E40: 45 4E 54 52 59 20 53 54 2E 9B 22 2C 22 99 57 41 |ENTRY ST..",".WA|
00000E50: 54 45 52 20 57 4F 52 4B 53 9B 22 2C 22 9E 50 49 |TER WORKS.",".PI|
00000E60: 43 43 41 44 49 4C 4C 59 9B 22 2C 22 96 47 4F 9B |CCADILLY.",".GO.|
00000E70: 20 9A 54 4F 9B 20 05 4A 41 49 4C 9B 22 00 95 16 | .TO. .JAIL."...|
00000E80: 7F 03 83 22 1E 52 45 47 45 4E 54 20 53 54 52 45 |...".REGENT STRE|
00000E90: 45 54 2E 9B 22 00 D2 16 84 03 83 22 1E 4F 58 46 |ET.."......".OXF|
00000EA0: 4F 52 44 20 53 54 52 45 45 54 2E 9B 22 2C 22 9E |ORD STREET..",".|
00000EB0: 43 4F 4D 4D 55 4E 49 54 59 20 43 48 45 53 54 9B |COMMUNITY CHEST.|
00000EC0: 22 2C 22 1E 42 4F 4E 44 20 53 54 52 45 45 54 2E |",".BOND STREET.|
00000ED0: 9B 22 00 E9 16 89 03 83 22 98 4C 49 56 45 52 50 |."......".LIVERP|
00000EE0: 4F 4F 4C 20 53 54 2E 9B 22 00 2D 17 8E 03 83 22 |OOL ST..".-...."|
00000EF0: 96 43 48 41 4E 43 45 9B 22 2C 22 1F 50 41 52 4B |.CHANCE.",".PARK|
00000F00: 20 4C 41 4E 45 9B 22 2C 22 9A 53 55 50 45 52 20 | LANE.",".SUPER |
00000F10: 54 41 58 9B 22 2C 22 1F 4D 41 59 46 41 49 52 9B |TAX.",".MAYFAIR.|
00000F20: 22 2C 22 96 49 4E 20 4A 41 49 4C 9B 22 00 79 17 |",".IN JAIL.".y.|
00000F30: 98 03 83 47 4F 2C 50 2C 50 55 52 50 4C 45 2C 36 |...GO,P,PURPLE,6|
00000F40: 30 2C 32 2C 31 30 2C 33 30 2C 39 30 2C 31 36 30 |0,2,10,30,90,160|
00000F50: 2C 32 35 30 2C 33 30 2C 35 30 2C 43 43 2C 50 2C |,250,30,50,CC,P,|
00000F60: 50 55 52 50 4C 45 2C 36 30 2C 34 2C 32 30 2C 36 |PURPLE,60,4,20,6|
00000F70: 30 2C 31 38 30 2C 33 32 30 00 C5 17 A2 03 83 34 |0,180,320......4|
00000F80: 35 30 2C 33 30 2C 35 30 2C 49 54 2C 52 52 2C 50 |50,30,50,IT,RR,P|
00000F90: 2C 4C 54 2E 20 42 4C 55 45 2C 31 30 30 2C 36 2C |,LT. BLUE,100,6,|
00000FA0: 33 30 2C 39 30 2C 32 37 30 2C 34 30 30 2C 35 35 |30,90,270,400,55|
00000FB0: 30 2C 35 30 2C 35 30 2C 43 48 2C 50 2C 4C 54 2E |0,50,50,CH,P,LT.|
00000FC0: 20 42 4C 55 45 00 13 18 AC 03 83 20 31 30 30 2C | BLUE...... 100,|
00000FD0: 36 2C 33 30 2C 39 30 2C 32 37 30 2C 34 30 30 2C |6,30,90,270,400,|
00000FE0: 35 35 30 2C 35 30 2C 35 30 2C 50 2C 4C 54 2E 20 |550,50,50,P,LT. |
00000FF0: 42 4C 55 45 2C 31 32 30 2C 38 2C 34 30 2C 31 30 |BLUE,120,8,40,10|
00001000: 30 2C 33 30 30 2C 34 35 30 2C 36 30 30 2C 36 30 |0,300,450,600,60|
00001010: 2C 35 30 00 62 18 B6 03 83 4A 56 2C 50 2C 4D 41 |,50.b....JV,P,MA|
00001020: 52 4F 4F 4E 2C 31 34 30 2C 31 30 2C 35 30 2C 31 |ROON,140,10,50,1|
00001030: 35 30 2C 34 35 30 2C 36 32 35 2C 37 35 30 2C 37 |50,450,625,750,7|
00001040: 30 2C 31 30 30 2C 55 2C 50 2C 4D 41 52 4F 4F 4E |0,100,U,P,MAROON|
00001050: 2C 31 34 30 2C 31 30 2C 35 30 2C 31 35 30 2C 34 |,140,10,50,150,4|
00001060: 35 30 00 A3 18 C0 03 83 36 32 35 2C 37 35 30 2C |50......625,750,|
00001070: 37 30 2C 31 30 30 2C 50 2C 4D 41 52 4F 4F 4E 2C |70,100,P,MAROON,|
00001080: 31 36 30 2C 31 32 2C 36 30 2C 31 38 30 2C 35 30 |160,12,60,180,50|
00001090: 30 2C 37 30 30 2C 39 30 30 2C 38 30 2C 31 30 30 |0,700,900,80,100|
000010A0: 2C 52 52 00 DE 18 CA 03 83 50 2C 4F 52 41 4E 47 |,RR......P,ORANG|
000010B0: 45 2C 31 38 30 2C 31 34 2C 37 30 2C 32 30 30 2C |E,180,14,70,200,|
000010C0: 35 35 30 2C 37 35 30 2C 39 35 30 2C 39 30 2C 31 |550,750,950,90,1|
000010D0: 30 30 2C 43 43 2C 50 2C 4F 52 41 4E 47 45 00 05 |00,CC,P,ORANGE..|
000010E0: 19 D4 03 83 20 31 38 30 2C 31 34 2C 37 30 2C 32 |.... 180,14,70,2|
000010F0: 30 30 2C 35 35 30 2C 37 35 30 2C 39 35 30 2C 39 |00,550,750,950,9|
00001100: 30 2C 31 30 30 00 3F 19 DE 03 83 50 2C 4F 52 41 |0,100.?....P,ORA|
00001110: 4E 47 45 2C 32 30 30 2C 31 36 2C 38 30 2C 32 32 |NGE,200,16,80,22|
00001120: 30 2C 36 30 30 2C 38 30 30 2C 31 30 30 30 2C 31 |0,600,800,1000,1|
00001130: 30 30 2C 31 30 30 2C 46 50 2C 50 2C 52 45 44 00 |00,100,FP,P,RED.|
00001140: 5B 19 E8 03 83 20 32 32 30 2C 31 38 2C 39 30 2C |[.... 220,18,90,|
00001150: 32 35 30 2C 37 30 30 2C 38 37 35 00 A3 19 F2 03 |250,700,875.....|
00001160: 83 31 30 35 30 2C 31 31 30 2C 31 35 30 2C 43 48 |.1050,110,150,CH|
00001170: 2C 50 2C 52 45 44 2C 32 32 30 2C 31 38 2C 39 30 |,P,RED,220,18,90|
00001180: 2C 32 35 30 2C 37 30 30 2C 38 37 35 2C 31 30 35 |,250,700,875,105|
00001190: 30 2C 31 31 30 2C 31 35 30 2C 50 2C 52 45 44 2C |0,110,150,P,RED,|
000011A0: 32 34 30 00 B4 19 FC 03 83 20 32 30 2C 31 30 30 |240...... 20,100|
000011B0: 2C 33 30 30 00 FE 19 06 04 83 37 35 30 2C 39 32 |,300......750,92|
000011C0: 35 2C 31 31 30 30 2C 31 32 30 2C 31 35 30 2C 52 |5,1100,120,150,R|
000011D0: 52 2C 50 2C 59 45 4C 4C 4F 57 2C 32 36 30 2C 32 |R,P,YELLOW,260,2|
000011E0: 32 2C 31 31 30 2C 33 33 30 2C 38 30 30 2C 39 37 |2,110,330,800,97|
000011F0: 35 2C 31 31 35 30 2C 31 33 30 2C 31 35 30 00 11 |5,1150,130,150..|
00001200: 1A 10 04 83 20 50 2C 59 45 4C 4C 4F 57 2C 32 36 |.... P,YELLOW,26|
00001210: 30 00 5E 1A 1A 04 83 32 32 2C 31 31 30 2C 33 33 |0.^....22,110,33|
00001220: 30 2C 38 30 30 2C 39 37 35 2C 31 31 35 30 2C 31 |0,800,975,1150,1|
00001230: 33 30 2C 31 35 30 2C 55 2C 50 2C 59 45 4C 4C 4F |30,150,U,P,YELLO|
00001240: 57 2C 32 38 30 2C 32 34 2C 31 32 30 2C 33 36 30 |W,280,24,120,360|
00001250: 2C 38 35 30 2C 31 30 32 35 2C 31 32 30 30 00 68 |,850,1025,1200.h|
00001260: 1A 24 04 83 20 31 34 30 00 AA 1A 2E 04 83 31 35 |.$.. 140......15|
00001270: 30 2C 47 54 4A 2C 50 2C 47 52 45 45 4E 2C 33 30 |0,GTJ,P,GREEN,30|
00001280: 30 2C 32 36 2C 31 33 30 2C 33 39 30 2C 39 30 30 |0,26,130,390,900|
00001290: 2C 31 31 30 30 2C 31 32 37 35 2C 31 35 30 2C 32 |,1100,1275,150,2|
000012A0: 30 30 2C 50 2C 47 52 45 45 4E 00 C3 1A 38 04 83 |00,P,GREEN...8..|
000012B0: 20 33 30 30 2C 32 36 2C 31 33 30 2C 33 39 30 2C | 300,26,130,390,|
000012C0: 39 30 30 00 03 1B 42 04 83 31 31 30 30 2C 31 32 |900...B..1100,12|
000012D0: 37 35 2C 31 35 30 2C 32 30 30 |75,150,200 |
....D.. MONOPOLE CBM-64.;...."..":.53280
,0:.53281,0:.:.1590.....PG$." PURPLE, L
T. BLUE, MAROON, ORANGE, RED, YELL
OW, GREEN, DK. BLUE"......PN$(42),D(42,1
),CH$(16),CC$(16),P(42,9),PT$(42),C$(42)
,PS(42),H(42),MG(42)... .. P$(2),PL(2),O
(2),JT(2),M(2),CJ(2).G....320:."DO YOU W
ANT AUCTION RULE (Y OR N)";Q$:.H(Q$,1)."
Y".AF.1......".WANT FREE PARKING JACKPOT
OPTION ";Q$:.H(Q$,1)."Y".PF.1:FP.500...
..M(1).1500:M(2).1500:PL(1).1:PL(2).1:DV
.2...H.CD$.".........................":C
R$."....................................
....".K.R.ZQ..(.TI):X1.8:Y1.10:X2.23:Y2.
10:RX.6:RY.18:TN.832:TT.886.....E$.".
.":RM$.".HIT 'R' OR 'T'.
"......".... PLEASE WAIT WHILE I SET
UP.."......I.1.4:P(6.((I.1).10),8).100:
.:P(13,8).75:P(29,8).75.....CH..(.(1).16
).1:CC..(.(1).16).1.*....I.1.41:.J.0.1:.
D(I,J):.:..Z...P$(1).". PLAYER 1.":P$(
2).". PLAYER 2."......I.1.41:.PN$(I):.
:.I.1.41:.PT$(I):.PT$(I).."P".300..."..C
$(I):.J.1.9:.P(I,J):.J...,..I...6..I.1.1
6:.CH$(I):.:.I.1.16:.CC$(I):.:.390...@..
". .. ........... .........P......
O.".D.B.." . .... .. .. . .. .....
. .. L".R.D.." . .. .. . ..
.. . .. O"...J.." . .......
........ ......... L.."...H.."...HIT
'R' TO ROLL DICE AND 'T' FOR TRAN
SACTION MENU.".#.R..". '0' CAN BE USED T
O RETURN FROM MOST SUBROUTINES".Y.|.
.:.".DEVELOPED PROPERTIES MAY NOT BE TRA
DED.":.:..{....54277,79:.54284,79:.54291
,79. ....54278,248:.54286,248:.54292,248
.B....54276,33:.54288,33:.54290,33.....G
(1).54272:G(2).54273:G(3).54279:G(4).542
80:G(5).54286:G(6).54287......I.1.6:.G(I
),0:..>....54296,15:.B(832)..160..6370.
....1320:.PK.1.2:.D(1,PK.1),48.PK:O(PK).
D(1,PK.1):PT.PK:.:.6470......1620:.R1.R2
.410.....PT.(R1.R2).2.G....D(PL(1),0),49
:.D(PL(2),1),50.U...PT$.D(PT)...B.MS$.".
.PLAYER".PT$." STARTS..".1.L.X.RX:Y.RY:Z
$.MS$:.1570:.DE.1.1500:.:Z$.E$:.1570:.68
0.D.V.DV.2:MF.0:JB.0.W....PL(PT).41.590.
D...JT(PT).0.S....1620:DF.1......DB.3..T
N:.3150:.TT:.6470:.620......M.1.DR:PL(PT
).PL(PT).1......O(PT),160:.PL(PT).40.PL(
PT).PL(PT).40:.TN:.1700:.TT......D(PL(PT
),PT.1),48.PT...&.O(PT).D(PL(PT),PT.1).B
.0..T.1.50.6.PT:.I.1.6:.G(I),T:.:..Z.D..
I.1.6:.G(I),0:.:.M.Z.N..D(PL(PT),PT.1),4
8.PT:.6470...X..TN:.1770:.TT:.6470:.M(PT
).0..6200:.TT.V.B..PL(PT).11..D(41,PT.1)
,160:.D(11,PT.1),48.PT...L..JB.JB.0:.O(P
T),160:O(PT).D(PL(PT),PT.1):.520.:.V..MF
.MF.0:.O(PT),160:O(PT).D(PL(PT),PT.1):.5
90.L....JE.JE.0:.O(PT),160:O(PT).D(PL(PT
),PT.1):.680......JF.JF.0:.D(PL(PT),PT.1
),48.PT:.O(PT),160:O(PT).D(PL(PT),PT.1).
.....DB.680.G...PT.3.PT.....Z$.P$(PT):X.
RX:Y.RY.1:.1570.....Z$.RM$:X.RX:Y.RY:.15
70......BC$:.BC$.."".700.+.F..A$:.A$."".
710.P.P..A$."T"..TN:.4080:.TT:.6470:.680
.J.Z.Z$.E$:X.RX:Y.RY:.1570.S....470.....
.1978,1938,1974,1973,1931,1930,1968,1967
,1925,1924,1922,1921......1959,1958,1956
,1955,1953,1952,1950,1949,1944,1904.,...
.1824,1825,1744,1745,1664,1665,1584,1585
,1505,1506,1424,1425.Y....1346,1347,1264
,1265,1184,1185,1104,1105......1029,1030
,1032,1033,1035,1036,1038,1039,1081,1082
,1044,1045.G. ..1047,1048,1130,1131,1053
,1054,1096,1097...*..1217,1218,1297,1298
,1377,1378,1457,1458,1536,1537,1617,1618
.5.4..1697,1698,1777,1778,1857,1858,1906
,1907...>..".>GO<.",".OLD KENT ROAD..","
.COMMUNITY CHEST.",".WHITECHAPEL ROAD.."
...C..".INCOME TAX.".U.H..".KINGS CROSS.
.",".THE ANGEL..",".CHANCE.",".EUSTON RO
AD.."...M..".PENTONVILLE ROAD..".9.R..".
JUST VISITING.",".PALL MALL.",".ELECTRIC
COMPANY.",".WHITEHALL..".X.\..".N'THUMB
ERLAND AV..",".MARYLEBONE STAT..",".BOW
STREET."...A..".COMMUNITY CHEST.".X.F.."
.MARLBOROUGH ST..",".VINE STREET..",".FR
EE PARKING.",".STRAND.."...P..".CHANCE."
,".FLEET STREET..",".TRAFALGAR SQ..",".F
ENCHURCH ST..".5.U..".LEICESTER SQ..".}.
Z..".COVENTRY ST..",".WATER WORKS.",".PI
CCADILLY.",".GO. .TO. .JAIL.".....".REG
ENT STREET..".R....".OXFORD STREET..",".
COMMUNITY CHEST.",".BOND STREET.."......
".LIVERPOOL ST..".-....".CHANCE.",".PARK
LANE.",".SUPER TAX.",".MAYFAIR.",".IN J
AIL.".Y....GO,P,PURPLE,60,2,10,30,90,160
,250,30,50,CC,P,PURPLE,60,4,20,60,180,32
0.E....450,30,50,IT,RR,P,LT. BLUE,100,6,
30,90,270,400,550,50,50,CH,P,LT. BLUE...
... 100,6,30,90,270,400,550,50,50,P,LT.
BLUE,120,8,40,100,300,450,600,60,50.B...
.JV,P,MAROON,140,10,50,150,450,625,750,7
0,100,U,P,MAROON,140,10,50,150,450......
625,750,70,100,P,MAROON,160,12,60,180,50
0,700,900,80,100,RR...J..P,ORANGE,180,14
,70,200,550,750,950,90,100,CC,P,ORANGE..
.T.. 180,14,70,200,550,750,950,90,100.?.
...P,ORANGE,200,16,80,220,600,800,1000,1
00,100,FP,P,RED.[.... 220,18,90,250,700,
875......1050,110,150,CH,P,RED,220,18,90
,250,700,875,1050,110,150,P,RED,240.....
. 20,100,300......750,925,1100,120,150,R
R,P,YELLOW,260,22,110,330,800,975,1150,1
30,150...... P,YELLOW,260.^....22,110,33
0,800,975,1150,130,150,U,P,YELLOW,280,24
,120,360,850,1025,1200.H.$.. 140......15
0,GTJ,P,GREEN,300,26,130,390,900,1100,12
75,150,200,P,GREEN.C.8.. 300,26,130,390,
900...B..1100,1275,150,200
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL