ZAHLENUMWANDLUNG
FILE INFORMATION
FILENAME(S): ZAHLENUMWANDLUNG
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 3 disk(s)
FILE HASH
e40f3762e0b78b4147c69545e39c7d17e538df9cfd49a8d84ea2ba079406d1b4
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L EHRNEN | ZAHLENUMWANDLUNG | PRG | Treasure Chest - Wolfgang Rauprich | 4 | 6 | DOWNLOAD FILE |
| FREESOFT DISK NR | ZAHLENUMWANDLUNG | PRG | Treasure Chest - Wolfgang Rauprich | 4 | 6 | DOWNLOAD FILE |
| FREESOFT DISK NR | ZAHLENUMWANDLUNG | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 0A 00 8F 00 2D 08 14 00 99 22 93 9A |........-...."..| 00000010: 22 3A 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 |":.53281,0:.5328| 00000020: 30 2C 30 3A 97 35 33 32 37 32 2C 32 31 00 4D 08 |0,0:.53272,21.M.| 00000030: 1E 00 8F 20 42 41 53 49 43 50 52 4F 47 52 41 4D |... BASICPROGRAM| 00000040: 4D 20 46 53 2D 53 4F 46 54 57 41 52 45 00 5F 08 |M FS-SOFTWARE._.| 00000050: 28 00 86 52 5A 24 28 37 29 2C 52 5A 28 37 29 00 |(..RZ$(7),RZ(7).| 00000060: 81 08 32 00 48 56 24 B2 22 49 56 58 4C 43 44 4D |..2.HV$."IVXLCDM| 00000070: 22 3A 8F 20 48 49 4C 46 53 56 41 52 49 41 42 4C |":. HILFSVARIABL| 00000080: 45 00 AB 08 3C 00 48 30 B2 2E 35 3A 81 49 45 B2 |E...<.H0..5:.IE.| 00000090: 31 A4 37 3A 46 25 B2 32 3A 8B B5 28 49 45 AD 32 |1.7:F%.2:..(IE.2| 000000A0: 29 B2 49 45 AD 32 A7 46 25 B2 35 00 D9 08 46 00 |).IE.2.F%.5...F.| 000000B0: 48 30 B2 B5 28 48 30 AC 46 25 29 3A 52 5A 28 49 |H0..(H0.F%):RZ(I| 000000C0: 45 29 B2 48 30 3A 52 5A 24 28 49 45 29 B2 CA 28 |E).H0:RZ$(IE)..(| 000000D0: 48 56 24 2C 49 45 2C 31 29 00 E1 08 50 00 82 49 |HV$,IE,1)...P..I| 000000E0: 45 00 10 09 5A 00 99 22 93 52 20 4F 20 45 20 4D |E...Z..".R O E M| 000000F0: 20 49 20 53 20 43 20 48 20 45 20 20 20 20 5A 20 | I S C H E Z | 00000100: 41 20 48 20 4C 20 45 20 4E 20 21 20 21 20 21 22 |A H L E N ! ! !"| 00000110: 00 34 09 64 00 99 22 11 11 1D 1D 1D 1D 1D 1D 1D |.4.d..".........| 00000120: 55 20 4D 20 57 20 41 20 4E 20 44 20 4C 20 55 20 |U M W A N D L U | 00000130: 4E 20 47 22 00 63 09 6E 00 99 22 11 11 11 11 1D |N G".c.n..".....| 00000140: 1D 1D 12 27 52 27 92 20 20 3D 20 20 52 4F 45 4D |...'R'. = ROEM| 00000150: 49 53 43 48 20 C3 C3 C3 3E 20 41 52 41 42 49 53 |ISCH ...> ARABIS| 00000160: 43 48 22 00 90 09 78 00 99 22 11 11 1D 1D 1D 12 |CH"...x.."......| 00000170: 27 41 27 92 20 20 3D 20 20 41 52 41 42 49 53 43 |'A'. = ARABISC| 00000180: 48 20 C3 C3 C3 3E 20 52 4F 45 4D 49 53 43 48 22 |H ...> ROEMISCH"| 00000190: 00 AA 09 82 00 99 A3 31 32 29 22 11 11 27 45 27 |.......12)"..'E'| 000001A0: 20 20 3D 20 20 45 4E 44 45 22 00 C6 09 8C 00 99 | = ENDE"......| 000001B0: 22 11 11 11 22 3A 81 55 55 B2 31 A4 34 30 3A 99 |"...":.UU.1.40:.| 000001C0: 22 D1 22 3B 3A 82 00 EC 09 96 00 99 22 11 11 1D |".";:......."...| 000001D0: 1D 1D 1D 1D 1D 42 49 54 54 45 2C 20 57 41 45 48 |.....BITTE, WAEH| 000001E0: 4C 45 4E 20 53 49 45 20 21 21 21 22 00 FF 09 A0 |LEN SIE !!!"....| 000001F0: 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 31 36 30 00 |..X$:.X$."".160.| 00000200: 0F 0A AA 00 8B 58 24 B2 22 52 22 A7 32 30 30 00 |.....X$."R".200.| 00000210: 1F 0A B4 00 8B 58 24 B2 22 41 22 A7 36 32 30 00 |.....X$."A".620.| 00000220: 28 0A BE 00 89 31 36 30 00 48 0A C8 00 99 22 93 |(....160.H....".| 00000230: 22 3A 8F 20 52 4F 45 4D 49 53 43 48 20 2D 3E 20 |":. ROEMISCH -> | 00000240: 41 52 41 42 49 53 43 48 00 4E 0A D2 00 99 00 72 |ARABISCH.N.....r| 00000250: 0A DC 00 85 22 52 4F 45 4D 49 53 43 48 45 20 5A |...."ROEMISCHE Z| 00000260: 41 48 4C 3A 20 20 20 20 20 2A 9D 9D 9D 22 3B 52 |AHL: *...";R| 00000270: 5A 24 00 8A 0A E6 00 8B 52 5A 24 B2 22 2A 22 A7 |Z$......RZ$."*".| 00000280: 99 22 91 22 3B 3A 89 32 32 30 00 99 0A F0 00 8B |.".";:.220......| 00000290: 52 5A 24 B2 22 45 22 A7 80 00 A7 0A FA 00 4C 52 |RZ$."E".......LR| 000002A0: B2 C3 28 52 5A 24 29 00 BD 0A 04 01 8F 20 50 4C |..(RZ$)...... PL| 000002B0: 41 55 53 49 42 49 4C 49 45 52 55 4E 47 00 CA 0A |AUSIBILIERUNG...| 000002C0: 0E 01 81 49 45 B2 31 A4 4C 52 00 E5 0A 18 01 5A |...IE.1.LR.....Z| 000002D0: 24 B2 CA 28 52 5A 24 2C 49 45 2C 31 29 3A 5A B2 |$..(RZ$,IE,1):Z.| 000002E0: C6 28 5A 24 29 00 0B 0B 22 01 56 48 25 B2 31 3A |.(Z$)...".VH%.1:| 000002F0: 81 48 31 B2 31 A4 37 3A 8B 5A B2 C6 28 52 5A 24 |.H1.1.7:.Z..(RZ$| 00000300: 28 48 31 29 29 A7 56 48 25 B2 30 00 13 0B 2C 01 |(H1)).VH%.0...,.| 00000310: 82 48 31 00 28 0B 36 01 8B 56 48 25 A7 56 48 B2 |.H1.(.6..VH%.VH.| 00000320: 49 45 3A 49 45 B2 4C 52 00 30 0B 40 01 82 49 45 |IE:IE.LR.0.@..IE| 00000330: 00 44 0B 4A 01 8B 56 48 25 A7 49 45 B2 56 48 3A |.D.J..VH%.IE.VH:| 00000340: 89 35 37 30 00 53 0B 54 01 8F 20 50 52 55 45 46 |.570.S.T.. PRUEF| 00000350: 55 4E 47 00 92 0B 5E 01 48 31 B2 30 3A 48 30 B2 |UNG...^.H1.0:H0.| 00000360: 30 3A 45 30 B2 30 3A 45 31 B2 30 3A 45 32 B2 30 |0:E0.0:E1.0:E2.0| 00000370: 3A 4D 25 B2 30 3A 4D 30 25 B2 30 3A 5A 47 B2 30 |:M%.0:M0%.0:ZG.0| 00000380: 3A 49 45 B2 30 3A 5A 56 24 B2 22 22 3A 4D 31 25 |:IE.0:ZV$."":M1%| 00000390: B2 30 00 A9 0B 68 01 49 45 B2 49 45 AA 31 3A 8B |.0...h.IE.IE.1:.| 000003A0: 49 45 B1 4C 52 A7 35 35 30 00 B2 0B 72 01 48 31 |IE.LR.550...r.H1| 000003B0: B2 30 00 DA 0B 7C 01 5A 24 B2 CA 28 52 5A 24 2C |.0...|.Z$..(RZ$,| 000003C0: 49 45 2C 31 29 3A 8B 5A 24 B2 5A 56 24 A7 5A 47 |IE,1):.Z$.ZV$.ZG| 000003D0: B2 5A 47 AA 31 3A 89 34 30 30 00 EA 0B 86 01 5A |.ZG.1:.400.....Z| 000003E0: 47 B2 30 3A 5A 56 24 B2 5A 24 00 0E 0C 90 01 8B |G.0:ZV$.Z$......| 000003F0: 5A 47 B1 30 A7 8B 5A 24 B2 22 56 22 B0 5A 24 B2 |ZG.0..Z$."V".Z$.| 00000400: 22 4C 22 B0 5A 24 B2 22 44 22 A7 35 37 30 00 25 |"L".Z$."D".570.%| 00000410: 0C 9A 01 8B 5A 47 B1 32 A7 8B 5A 24 B3 B1 22 4D |....ZG.2..Z$.."M| 00000420: 22 A7 35 37 30 00 42 0C A4 01 48 31 B2 48 31 AA |".570.B...H1.H1.| 00000430: 31 3A 8B 52 5A 24 28 48 31 29 B3 B1 5A 24 A7 34 |1:.RZ$(H1)..Z$.4| 00000440: 32 30 00 56 0C AE 01 8B 48 31 B2 B1 48 30 A7 8B |20.V....H1..H0..| 00000450: 4D 25 A7 34 39 30 00 72 0C B8 01 8B 4D 31 25 A7 |M%.490.r....M1%.| 00000460: 8B 48 31 B1 48 30 A7 8B 48 31 B2 B1 48 33 A7 35 |.H1.H0..H1..H3.5| 00000470: 37 30 00 88 0C C2 01 8B 48 31 B2 48 30 A7 4D 30 |70......H1.H0.M0| 00000480: 25 B2 31 3A 89 35 31 30 00 9C 0C CC 01 8B 48 31 |%.1:.510......H1| 00000490: B1 48 30 A7 8B 4D 30 25 A7 35 37 30 00 BF 0C D6 |.H0..M0%.570....| 000004A0: 01 8B 48 31 B1 48 30 A7 8B 49 45 B1 31 A7 8B 48 |..H1.H0..IE.1..H| 000004B0: 30 AD 32 B2 B5 28 48 30 AD 32 29 A7 35 37 30 00 |0.2..(H0.2).570.| 000004C0: E9 0C E0 01 8B 48 31 B1 48 30 A7 8B 49 45 B1 31 |.....H1.H0..IE.1| 000004D0: A7 4D 25 B2 4D 25 AA 31 3A 4D 31 25 B2 31 3A 48 |.M%.M%.1:M1%.1:H| 000004E0: 33 B2 48 32 3A 89 35 31 30 00 FF 0C EA 01 8B 48 |3.H2:.510......H| 000004F0: 31 B2 B1 48 32 A7 8B 49 45 B1 31 A7 35 37 30 00 |1..H2..IE.1.570.| 00000500: 14 0D F4 01 48 32 B2 48 31 3A 4D 25 B2 30 3A 4D |....H2.H1:M%.0:M| 00000510: 30 25 B2 30 00 28 0D FE 01 48 30 B2 48 31 3A 8B |0%.0.(...H0.H1:.| 00000520: 4D 25 B1 31 A7 35 37 30 00 49 0D 08 02 45 30 B2 |M%.1.570.I...E0.| 00000530: 52 5A 28 48 31 29 3A 8B 4D 25 B2 31 A7 45 32 B2 |RZ(H1):.M%.1.E2.| 00000540: 45 32 AB 28 32 AC 45 31 29 00 5C 0D 12 02 45 31 |E2.(2.E1).\...E1| 00000550: B2 45 30 3A 45 32 B2 45 32 AA 45 31 00 65 0D 1C |.E0:E2.E2.E1.e..| 00000560: 02 89 33 36 30 00 95 0D 26 02 99 22 11 52 4F 45 |..360...&..".ROE| 00000570: 4D 49 53 43 48 20 12 22 3B 52 5A 24 3B 22 92 20 |MISCH .";RZ$;". | 00000580: 20 3D 20 20 41 52 41 42 49 53 43 48 20 12 22 3B | = ARABISCH .";| 00000590: B5 28 45 32 29 00 9E 0D 30 02 89 36 31 30 00 B2 |.(E2)...0..610..| 000005A0: 0D 3A 02 8F 20 46 45 48 4C 45 52 4D 45 4C 44 55 |.:.. FEHLERMELDU| 000005B0: 4E 47 00 D7 0D 44 02 99 22 11 20 20 C3 C3 C3 3E |NG...D..". ...>| 000005C0: 20 46 41 4C 53 43 48 3A 20 22 3B C8 28 52 5A 24 | FALSCH: ";.(RZ$| 000005D0: 2C 49 45 AB 31 29 3B 00 F9 0D 4E 02 99 22 12 22 |,IE.1);...N.."."| 000005E0: CA 28 52 5A 24 2C 49 45 2C 31 29 22 92 22 CA 28 |.(RZ$,IE,1)".".(| 000005F0: 52 5A 24 2C 49 45 AA 31 29 00 17 0E 58 02 99 22 |RZ$,IE.1)...X.."| 00000600: 20 20 45 49 4E 47 41 42 45 20 57 49 45 44 45 52 | EINGABE WIEDER| 00000610: 48 4F 4C 45 4E 21 22 00 20 0E 62 02 89 32 31 30 |HOLEN!". .b..210| 00000620: 00 40 0E 6C 02 99 22 93 22 3A 8F 20 41 52 41 42 |.@.l..".":. ARAB| 00000630: 49 53 43 48 20 2D 3E 20 52 4F 45 4D 49 53 43 48 |ISCH -> ROEMISCH| 00000640: 00 46 0E 76 02 99 00 76 0E 80 02 85 22 41 52 41 |.F.v...v...."ARA| 00000650: 42 49 53 43 48 45 20 5A 41 48 4C 3A 20 20 20 20 |BISCHE ZAHL: | 00000660: 20 30 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D | 0 ........| 00000670: 9D 22 3B 41 5A 24 00 85 0E 8A 02 8B 41 5A 24 B2 |.";AZ$......AZ$.| 00000680: 22 45 22 A7 80 00 93 0E 94 02 41 5A B2 C5 28 41 |"E".......AZ..(A| 00000690: 5A 24 29 00 B1 0E 9E 02 41 5A B2 B5 28 41 5A 29 |Z$).....AZ..(AZ)| 000006A0: 3A 8B 41 5A B2 30 A7 99 22 91 22 3B 3A 89 36 34 |:.AZ.0..".";:.64| 000006B0: 30 00 DF 0E A8 02 8B 41 5A B3 30 B0 41 5A B1 31 |0......AZ.0.AZ.1| 000006C0: 30 30 30 30 A7 99 22 11 20 46 41 4C 53 43 48 45 |0000..". FALSCHE| 000006D0: 20 45 49 4E 47 41 42 45 21 22 3A 89 36 33 30 00 | EINGABE!":.630.| 000006E0: E9 0E B2 02 52 5A B2 41 5A 00 F4 0E BC 02 52 5A |....RZ.AZ.....RZ| 000006F0: 24 B2 22 22 00 FD 0E C6 02 48 31 B2 30 00 2C 0F |$."".....H1.0.,.| 00000700: D0 02 48 31 B2 48 31 AA 31 3A 8B 48 31 B1 37 A7 |..H1.H1.1:.H1.7.| 00000710: 52 5A 24 B2 52 5A 24 AA 22 4D 22 3A 52 5A B2 52 |RZ$.RZ$."M":RZ.R| 00000720: 5A AB 52 5A 28 37 29 3A 89 37 31 30 00 4A 0F DA |Z.RZ(7):.710.J..| 00000730: 02 53 47 B2 B4 28 52 5A AB 52 5A 28 48 31 29 29 |.SG..(RZ.RZ(H1))| 00000740: 3A 8B 53 47 B1 30 A7 37 32 30 00 69 0F E4 02 8B |:.SG.0.720.i....| 00000750: 53 47 B2 30 A7 52 5A 24 B2 52 5A 24 AA 52 5A 24 |SG.0.RZ$.RZ$.RZ$| 00000760: 28 48 31 29 3A 89 38 32 30 00 95 0F EE 02 81 48 |(H1):.820......H| 00000770: 32 B2 31 A4 28 48 31 AB 31 29 A9 32 3A 56 47 B2 |2.1.(H1.1).2:VG.| 00000780: 52 5A 28 48 31 29 AB 52 5A 3A 56 47 25 B2 30 3A |RZ(H1).RZ:VG%.0:| 00000790: 56 48 25 B2 30 00 C1 0F F8 02 8B 56 47 B2 52 5A |VH%.0......VG.RZ| 000007A0: 28 48 32 29 A7 52 5A 24 B2 52 5A 24 AA 52 5A 24 |(H2).RZ$.RZ$.RZ$| 000007B0: 28 48 32 29 AA 52 5A 24 28 48 31 29 3A 89 38 32 |(H2).RZ$(H1):.82| 000007C0: 30 00 EE 0F 02 03 8B 52 5A B1 52 5A 28 48 32 29 |0......RZ.RZ(H2)| 000007D0: AF 52 5A B3 52 5A 28 48 32 AA 32 29 A7 3A 8B 56 |.RZ.RZ(H2.2).:.V| 000007E0: 47 B3 52 5A 28 48 32 29 A7 56 48 25 B2 31 00 16 |G.RZ(H2).VH%.1..| 000007F0: 10 0C 03 8B 56 48 25 A7 3A 52 5A 24 B2 52 5A 24 |....VH%.:RZ$.RZ$| 00000800: AA 52 5A 24 28 48 32 29 AA 52 5A 24 28 48 31 29 |.RZ$(H2).RZ$(H1)| 00000810: 3A 56 47 25 B2 31 00 42 10 16 03 8B 56 47 25 A7 |:VG%.1.B....VG%.| 00000820: 3A 52 5A B2 52 5A AA 52 5A 28 48 32 29 AB 52 5A |:RZ.RZ.RZ(H2).RZ| 00000830: 28 48 31 29 3A 52 5A B2 B6 28 52 5A 29 3A 89 37 |(H1):RZ..(RZ):.7| 00000840: 31 30 00 48 10 20 03 82 00 72 10 2A 03 52 5A 24 |10.H. ...r.*.RZ$| 00000850: B2 52 5A 24 AA 52 5A 24 28 48 31 AB 31 29 3A 52 |.RZ$.RZ$(H1.1):R| 00000860: 5A B2 52 5A AB 52 5A 28 48 31 AB 31 29 3A 89 37 |Z.RZ.RZ(H1.1):.7| 00000870: 31 30 00 9F 10 34 03 99 22 11 41 52 41 42 49 53 |10...4..".ARABIS| 00000880: 43 48 20 12 22 3B 41 5A 3B 22 92 20 20 3D 20 20 |CH .";AZ;". = | 00000890: 52 4F 45 4D 49 53 43 48 20 12 22 3B 52 5A 24 00 |ROEMISCH .";RZ$.| 000008A0: A8 10 3E 03 89 36 33 30 00 00 00 |..>..630... |
........-...."..":.53281,0:.53280,0:.532 72,21.M.... BASICPROGRAMM FS-SOFTWARE._. (..RZ$(7),RZ(7)...2.HV$."IVXLCDM":. HILF SVARIABLE...<.H0..5:.IE.1.7:F%.2:..(IE.2 ).IE.2.F%.5.Y.F.H0..(H0.F%):RZ(IE).H0:RZ $(IE).J(HV$,IE,1)...P..IE...Z..".R O E M I S C H E Z A H L E N ! ! !".4.D..". ........U M W A N D L U N G".C.N.."..... ...'R'. = ROEMISCH CCC> ARABISCH"...X. ."......'A'. = ARABISCH CCC> ROEMISCH" .......12)"..'E' = ENDE".F...."...":.U U.1.40:."Q";:......."........BITTE, WAEH LEN SIE !!!"... ..X$:.X$."".160......X$. "R".200......X$."A".620.(....160.H.H..". ":. ROEMISCH -> ARABISCH.N.R...R...."ROE MISCHE ZAHL: *...";RZ$......RZ$."*". .".";:.220......RZ$."E".......LR.C(RZ$). ..... PLAUSIBILIERUNG.J....IE.1.LR.....Z $.J(RZ$,IE,1):Z.F(Z$)...".VH%.1:.H1.1.7: .Z.F(RZ$(H1)).VH%.0...,..H1.(.6..VH%.VH. IE:IE.LR.0.@..IE.D.J..VH%.IE.VH:.570.S.T .. PRUEFUNG...^.H1.0:H0.0:E0.0:E1.0:E2.0 :M%.0:M0%.0:ZG.0:IE.0:ZV$."":M1%.0...H.I E.IE.1:.IE.LR.550...R.H1.0.Z.|.Z$.J(RZ$, IE,1):.Z$.ZV$.ZG.ZG.1:.400.....ZG.0:ZV$. Z$......ZG.0..Z$."V".Z$."L".Z$."D".570.% ....ZG.2..Z$.."M".570.B...H1.H1.1:.RZ$(H 1)..Z$.420.V....H1..H0..M%.490.R....M1%. .H1.H0..H1..H3.570...B..H1.H0.M0%.1:.510 ...L..H1.H0..M0%.570...V..H1.H0..IE.1..H 0.2..(H0.2).570......H1.H0..IE.1.M%.M%.1 :M1%.1:H3.H2:.510......H1..H2..IE.1.570. ....H2.H1:M%.0:M0%.0.(...H0.H1:.M%.1.570 .I...E0.RZ(H1):.M%.1.E2.E2.(2.E1).\...E1 .E0:E2.E2.E1.E....360...&..".ROEMISCH ." ;RZ$;". = ARABISCH .";.(E2)...0..610.. .:.. FEHLERMELDUNG.W.D..". CCC> FALSCH: ";H(RZ$,IE.1);...N.."."J(RZ$,IE,1)"."J( RZ$,IE.1)...X.." EINGABE WIEDERHOLEN!". .B..210.@.L..".":. ARABISCH -> ROEMISCH .F.V...V...."ARABISCHE ZAHL: 0 .........";AZ$......AZ$."E".......AZ.E(A Z$).....AZ..(AZ):.AZ.0..".";:.640......A Z.0.AZ.10000..". FALSCHE EINGABE!":.630. ....RZ.AZ.....RZ$.""...F.H1.0.,.P.H1.H1. 1:.H1.7.RZ$.RZ$."M":RZ.RZ.RZ(7):.710.J.Z .SG..(RZ.RZ(H1)):.SG.0.720.I....SG.0.RZ$ .RZ$.RZ$(H1):.820......H2.1.(H1.1).2:VG. RZ(H1).RZ:VG%.0:VH%.0.A....VG.RZ(H2).RZ$ .RZ$.RZ$(H2).RZ$(H1):.820......RZ.RZ(H2) .RZ.RZ(H2.2).:.VG.RZ(H2).VH%.1......VH%. :RZ$.RZ$.RZ$(H2).RZ$(H1):VG%.1.B....VG%. :RZ.RZ.RZ(H2).RZ(H1):RZ..(RZ):.710.H. .. .R.*.RZ$.RZ$.RZ$(H1.1):RZ.RZ.RZ(H1.1):.7 10...4..".ARABISCH .";AZ;". = ROEMISCH .";RZ$...>..630...
> CLICK IMAGE PREVIEW FOR FULL MODAL