SEQ READ & PRINT

00000000: 01 08 3F 08 64 00 97 35  33 32 38 30 2C 31 34 3A  |..?.d..53280,14:|
00000010: 97 35 33 32 38 31 2C 31  33 3A 99 C7 28 31 34 32  |.53281,13:..(142|
00000020: 29 22 93 90 11 11 11 11  11 22 A3 31 32 29 22 53  |)".......".12)"S|
00000030: 45 51 55 45 4E 54 49 41  4C 20 46 49 4C 45 22 00  |EQUENTIAL FILE".|
00000040: 6A 08 69 00 99 A3 31 32  29 22 11 11 52 45 41 44  |j.i...12)"..READ|
00000050: 45 52 2F 50 52 49 4E 54  45 52 22 3A 99 A3 31 38  |ER/PRINTER":..18|
00000060: 29 22 11 11 11 11 11 42  59 22 00 8D 08 6E 00 99  |)".....BY"...n..|
00000070: A3 31 33 29 22 11 11 14  14 14 54 48 45 20 46 4F  |.13)".....THE FO|
00000080: 4E 5A 20 20 28 43 29 20  31 39 38 36 22 00 B0 08  |NZ  (C) 1986"...|
00000090: 6F 00 99 A3 38 29 22 11  11 47 52 45 45 54 49 4E  |o...8)"..GREETIN|
000000A0: 47 53 20 54 4F 20 43 46  4E 20 26 20 43 43 44 22  |GS TO CFN & CCD"|
000000B0: 00 C1 08 72 00 81 20 54  B2 31 A4 34 30 30 30 3A  |...r.. T.1.4000:|
000000C0: 82 00 EE 08 73 00 99 22  93 22 C7 28 31 34 29 22  |....s..".".(14)"|
000000D0: 12 4F 50 54 49 4F 4E 53  3A 92 22 3A 99 22 11 46  |.OPTIONS:.":.".F|
000000E0: 31 20 3D 20 44 49 52 45  43 54 4F 52 59 22 00 19  |1 = DIRECTORY"..|
000000F0: 09 78 00 99 22 11 46 33  20 3D 20 53 43 52 45 45  |.x..".F3 = SCREE|
00000100: 4E 20 4F 4E 4C 59 22 3A  99 22 11 46 35 20 3D 20  |N ONLY":.".F5 = |
00000110: 48 41 52 44 43 4F 50 59  22 00 35 09 7D 00 99 22  |HARDCOPY".5.}.."|
00000120: 11 46 37 20 3D 20 4B 49  4C 4C 20 44 49 53 4B 20  |.F7 = KILL DISK |
00000130: 46 49 4C 45 22 00 5C 09  82 00 A1 4B 24 3A 8B 4B  |FILE".\....K$:.K|
00000140: 24 B2 22 22 B0 4B 24 B3  C7 28 31 33 33 29 B0 4B  |$."".K$..(133).K|
00000150: 24 B1 C7 28 31 33 36 29  A7 31 33 30 00 6F 09 87  |$..(136).130.o..|
00000160: 00 8B 4B 24 B2 C7 28 31  33 36 29 A7 33 36 35 00  |..K$..(136).365.|
00000170: 82 09 8C 00 8B 4B 24 B1  C7 28 31 33 33 29 A7 32  |.....K$..(133).2|
00000180: 34 30 00 B2 09 91 00 99  C7 28 31 34 32 29 22 93  |40.......(142)".|
00000190: 12 44 49 52 45 43 54 4F  52 59 92 11 11 22 3A 99  |.DIRECTORY...":.|
000001A0: 22 46 31 20 3D 20 53 43  52 45 45 4E 20 4F 4E 4C  |"F1 = SCREEN ONL|
000001B0: 59 22 00 E5 09 96 00 99  22 11 46 33 20 3D 20 48  |Y"......".F3 = H|
000001C0: 41 52 44 43 4F 50 59 22  3A 99 22 11 46 35 20 3D  |ARDCOPY":.".F5 =|
000001D0: 20 43 41 4E 43 45 4C 20  46 55 4E 43 54 49 4F 4E  | CANCEL FUNCTION|
000001E0: 22 3A 50 B2 30 00 0C 0A  9B 00 A1 4B 24 3A 8B 4B  |":P.0......K$:.K|
000001F0: 24 B2 22 22 B0 4B 24 B3  C7 28 31 33 33 29 B0 4B  |$."".K$..(133).K|
00000200: 24 B1 C7 28 31 33 35 29  A7 31 35 35 00 1F 0A A0  |$..(135).155....|
00000210: 00 8B 4B 24 B2 C7 28 31  33 35 29 A7 31 31 35 00  |..K$..(135).115.|
00000220: 32 0A A5 00 8B 4B 24 B2  C7 28 31 33 33 29 A7 31  |2....K$..(133).1|
00000230: 37 35 00 61 0A AA 00 9F  34 2C 34 3A 98 34 3A 98  |75.a....4,4:.4:.|
00000240: 34 2C C7 28 31 34 29 22  44 49 52 45 43 54 4F 52  |4,.(14)"DIRECTOR|
00000250: 59 22 C7 28 31 35 29 3A  98 34 3A 98 34 3A 50 B2  |Y".(15):.4:.4:P.|
00000260: 31 00 97 0A AF 00 99 22  93 12 44 49 52 45 43 54  |1......"..DIRECT|
00000270: 4F 52 59 92 22 3A 99 3A  99 3A 9F 31 2C 38 2C 30  |ORY.":.:.:.1,8,0|
00000280: 2C 22 24 30 22 3A A1 23  31 2C 41 24 2C 42 24 3A  |,"$0":.#1,A$,B$:|
00000290: 4E 24 B2 C7 28 30 29 00  B0 0A B4 00 A1 23 31 2C  |N$..(0)......#1,|
000002A0: 41 24 2C 42 24 3A 8B 42  24 B2 22 22 A7 32 32 30  |A$,B$:.B$."".220|
000002B0: 00 D6 0A B9 00 A1 23 31  2C 41 24 2C 42 24 3A 99  |......#1,A$,B$:.|
000002C0: C6 28 41 24 AA 4E 24 29  AA 32 35 36 AC C6 28 42  |.(A$.N$).256..(B|
000002D0: 24 AA 4E 24 29 3B 00 F9  0A BE 00 8B 50 B2 31 A7  |$.N$);......P.1.|
000002E0: 98 34 2C C6 28 41 24 AA  4E 24 29 AA 32 35 36 AC  |.4,.(A$.N$).256.|
000002F0: C6 28 42 24 AA 4E 24 29  3B 00 0F 0B C3 00 A1 23  |.(B$.N$);......#|
00000300: 31 2C 41 24 3A 8B 41 24  B2 22 22 A7 32 31 30 00  |1,A$:.A$."".210.|
00000310: 1F 0B C8 00 8B 50 B2 31  A7 98 34 2C 41 24 3B 00  |.....P.1..4,A$;.|
00000320: 2D 0B CD 00 99 41 24 3B  3A 89 31 39 35 00 3B 0B  |-....A$;:.195.;.|
00000330: D2 00 99 3A 8B 50 B2 31  A7 98 34 00 44 0B D7 00  |...:.P.1..4.D...|
00000340: 89 31 38 30 00 5E 0B DC  00 8B 50 B2 31 A7 81 58  |.180.^....P.1..X|
00000350: B2 31 A4 37 3A 98 34 3A  82 58 3A 50 B2 30 00 88  |.1.7:.4:.X:P.0..|
00000360: 0B E1 00 99 3A 99 22 50  52 45 53 53 20 41 4E 59  |....:."PRESS ANY|
00000370: 20 4B 45 59 20 54 4F 20  43 4F 4E 54 49 4E 55 45  | KEY TO CONTINUE|
00000380: 2E 22 3A A0 31 3A A0 34  00 9B 0B E6 00 A1 4B 24  |.":.1:.4......K$|
00000390: 3A 8B 4B 24 B2 22 22 A7  32 33 30 00 A4 0B EB 00  |:.K$."".230.....|
000003A0: 89 31 31 35 00 C6 0B F0  00 9F 31 2C 34 2C 37 3A  |.115......1,4,7:|
000003B0: 4C B2 31 3A 50 B2 30 3A  8B 4B 24 B2 C7 28 31 33  |L.1:P.0:.K$..(13|
000003C0: 35 29 A7 50 B2 31 00 E9  0B F5 00 99 22 93 12 C9  |5).P.1......"...|
000003D0: 20 4E 45 45 44 20 41 20  46 49 4C 45 4E 41 4D 45  | NEED A FILENAME|
000003E0: 3A 92 20 22 3B 3A 85 46  24 00 03 0C FA 00 9F 38  |:. ";:.F$......8|
000003F0: 2C 38 2C 38 2C 46 24 AA  22 2C 53 2C 52 22 3A 8D  |,8,8,F$.",S,R":.|
00000400: 34 34 30 00 24 0C FF 00  99 22 93 12 50 52 45 53  |440.$...."..PRES|
00000410: 53 20 41 4E 59 20 4B 45  59 20 54 4F 20 50 41 55  |S ANY KEY TO PAU|
00000420: 53 45 92 22 00 3E 0C 04  01 99 3A 99 3A 99 A3 31  |SE.".>....:.:..1|
00000430: 30 29 22 12 22 46 24 22  92 22 3A 99 3A 99 00 6C  |0)"."F$".":.:..l|
00000440: 0C 09 01 8B 50 B2 31 A7  98 31 2C C7 28 31 34 35  |....P.1..1,.(145|
00000450: 29 C7 28 31 34 29 46 24  C7 28 31 35 29 C7 28 31  |).(14)F$.(15).(1|
00000460: 37 29 3A 98 31 3A 98 31  3A 4C B2 34 00 89 0C 0E  |7):.1:.1:L.4....|
00000470: 01 A1 23 38 2C 43 48 24  3A 97 32 31 32 2C 30 3A  |..#8,CH$:.212,0:|
00000480: 8B 53 54 B2 30 A7 32 38  30 00 98 0C 13 01 8B 53  |.ST.0.280......S|
00000490: 54 B2 36 34 A7 33 34 30  00 A5 0C 18 01 99 43 48  |T.64.340......CH|
000004A0: 24 22 90 22 3B 00 CC 0C  1D 01 8B 50 B2 31 A7 98  |$".";......P.1..|
000004B0: 31 2C 43 48 24 3B 3A 8B  43 48 24 B2 C7 28 31 33  |1,CH$;:.CH$..(13|
000004C0: 29 A7 4C B2 4C AA 31 3A  8D 34 35 35 00 DF 0C 22  |).L.L.1:.455..."|
000004D0: 01 A1 4B 24 3A 8B 4B 24  B2 22 22 A7 32 37 30 00  |..K$:.K$."".270.|
000004E0: 10 0D 27 01 99 3A 81 58  B2 31 A4 33 39 3A 99 22  |..'..:.X.1.39:."|
000004F0: 2A 22 3B 3A 82 58 3A 99  3A 99 22 12 50 41 55 53  |*";:.X:.:.".PAUS|
00000500: 45 20 49 53 20 49 4E 20  45 46 46 45 43 54 92 22  |E IS IN EFFECT."|
00000510: 00 47 0D 2C 01 99 22 4F  50 54 49 4F 4E 53 3A 22  |.G.,.."OPTIONS:"|
00000520: 3A 99 22 46 31 20 3D 20  50 52 49 4E 54 45 52 20  |:."F1 = PRINTER |
00000530: 4F 4E 22 3A 99 22 46 33  20 3D 20 50 52 49 4E 54  |ON":."F3 = PRINT|
00000540: 45 52 20 4F 46 46 22 00  7E 0D 31 01 99 22 46 35  |ER OFF".~.1.."F5|
00000550: 20 3D 20 41 42 4F 52 54  20 4F 50 45 52 41 54 49  | = ABORT OPERATI|
00000560: 4F 4E 22 3A 99 22 46 37  20 3D 20 43 4F 4E 54 49  |ON":."F7 = CONTI|
00000570: 4E 55 45 20 55 4E 43 48  41 4E 47 45 44 22 00 9F  |NUE UNCHANGED"..|
00000580: 0D 36 01 A1 4B 24 3A 8B  4B 24 B3 C7 28 31 33 33  |.6..K$:.K$..(133|
00000590: 29 B0 4B 24 B1 C7 28 31  33 36 29 A7 33 31 30 00  |).K$..(136).310.|
000005A0: CA 0D 3B 01 8B 4B 24 B2  C7 28 31 33 33 29 A7 50  |..;..K$..(133).P|
000005B0: B2 31 3A 98 31 2C C7 28  31 37 29 3A 98 31 3A 98  |.1:.1,.(17):.1:.|
000005C0: 31 3A 4C B2 33 3A 89 33  33 30 00 E2 0D 40 01 8B  |1:L.3:.330...@..|
000005D0: 4B 24 B2 C7 28 31 33 34  29 A7 50 B2 30 3A 89 33  |K$..(134).P.0:.3|
000005E0: 33 30 00 F5 0D 45 01 8B  4B 24 B2 C7 28 31 33 35  |30...E..K$..(135|
000005F0: 29 A7 33 33 35 00 20 0E  4A 01 99 22 12 43 4F 4E  |).335. .J..".CON|
00000600: 54 49 4E 55 49 4E 47 92  22 3A 81 58 B2 31 A4 33  |TINUING.":.X.1.3|
00000610: 39 3A 99 22 2A 22 3B 3A  82 3A 99 3A 89 32 37 30  |9:."*";:.:.:.270|
00000620: 00 4D 0E 4F 01 99 22 93  11 11 11 11 11 22 A3 31  |.M.O.."......".1|
00000630: 31 29 C7 28 31 34 32 29  22 12 4F 50 45 52 41 54  |1).(142)".OPERAT|
00000640: 49 4F 4E 20 41 42 4F 52  54 45 44 92 22 00 73 0E  |ION ABORTED.".s.|
00000650: 54 01 8B 50 B2 31 A7 98  31 3A 81 58 B2 4C AA 32  |T..P.1..1:.X.L.2|
00000660: A4 36 36 3A 98 31 3A 82  58 3A 98 31 2C C7 28 31  |.66:.1:.X:.1,.(1|
00000670: 34 35 29 00 AD 0E 59 01  A0 31 3A A0 38 3A 99 3A  |45)...Y..1:.8:.:|
00000680: 99 22 44 4F 20 59 4F 55  20 57 49 53 48 20 54 4F  |."DO YOU WISH TO|
00000690: 20 52 45 41 44 22 3A 99  22 41 4E 4F 54 48 45 52  | READ":."ANOTHER|
000006A0: 20 46 49 4C 45 3F 20 28  59 2F 4E 29 22 00 C4 0E  | FILE? (Y/N)"...|
000006B0: 5E 01 A1 4B 24 3A 8B 4B  24 B2 22 59 22 A7 9C 3A  |^..K$:.K$."Y"..:|
000006C0: 89 31 31 35 00 D5 0E 63  01 8B 4B 24 B3 B1 22 4E  |.115...c..K$.."N|
000006D0: 22 A7 33 35 30 00 DB 0E  68 01 80 00 FE 0E 6D 01  |".350...h.....m.|
000006E0: 97 35 33 32 38 30 2C 32  3A 97 35 33 32 38 31 2C  |.53280,2:.53281,|
000006F0: 32 3A 99 C7 28 31 34 32  29 3A 8D 34 36 35 00 2D  |2:..(142):.465.-|
00000700: 0F 72 01 99 22 11 11 11  54 59 50 45 20 49 4E 20  |.r.."...TYPE IN |
00000710: 54 48 45 20 46 49 4C 45  4E 41 4D 45 20 54 4F 20  |THE FILENAME TO |
00000720: 42 45 20 53 43 52 41 54  43 48 45 44 22 00 5D 0F  |BE SCRATCHED".].|
00000730: 77 01 99 22 4F 52 20 50  52 45 53 53 20 52 45 54  |w.."OR PRESS RET|
00000740: 55 52 4E 20 54 4F 20 41  42 4F 52 54 20 54 48 45  |URN TO ABORT THE|
00000750: 20 46 55 4E 43 54 49 4F  4E 2E 11 11 22 00 75 0F  | FUNCTION...".u.|
00000760: 7C 01 99 22 12 46 49 4C  45 4E 41 4D 45 3A 92 22  ||..".FILENAME:."|
00000770: 3B 3A 85 46 24 00 84 0F  81 01 8B 46 24 B2 22 22  |;:.F$......F$.""|
00000780: A7 34 31 30 00 BF 0F 86  01 8D 34 36 35 3A 99 22  |.410......465:."|
00000790: 11 11 4C 41 53 54 20 43  48 41 4E 43 45 21 22 3A  |..LAST CHANCE!":|
000007A0: 99 22 11 11 44 4F 20 59  4F 55 20 52 45 41 4C 4C  |."..DO YOU REALL|
000007B0: 59 20 57 49 53 48 20 54  4F 20 4B 49 4C 4C 22 00  |Y WISH TO KILL".|
000007C0: E2 0F 8B 01 99 22 11 54  48 45 20 20 12 20 22 46  |.....".THE  . "F|
000007D0: 24 22 20 92 20 20 46 49  4C 45 3F 20 28 59 2F 4E  |$" .  FILE? (Y/N|
000007E0: 29 22 00 F5 0F 90 01 A1  4B 24 3A 8B 4B 24 B2 22  |)"......K$:.K$."|
000007F0: 22 A7 34 30 30 00 05 10  95 01 8B 4B 24 B2 22 59  |".400......K$."Y|
00000800: 22 A7 34 31 35 00 2C 10  9A 01 97 35 33 32 38 30  |".415.,....53280|
00000810: 2C 31 34 3A 97 35 33 32  38 31 2C 31 33 3A 99 22  |,14:.53281,13:."|
00000820: 90 22 C7 28 31 34 29 3A  89 33 33 35 00 45 10 9F  |.".(14):.335.E..|
00000830: 01 8D 34 36 35 3A 99 22  11 11 4B 49 4C 4C 49 4E  |..465:."..KILLIN|
00000840: 47 20 22 46 24 00 63 10  A4 01 A0 31 35 3A 9F 31  |G "F$.c....15:.1|
00000850: 35 2C 38 2C 31 35 3A 98  31 35 2C 22 53 30 3A 22  |5,8,15:.15,"S0:"|
00000860: AA 46 24 00 78 10 A9 01  81 58 B2 31 A4 32 30 30  |.F$.x....X.1.200|
00000870: 30 3A 82 58 3A A0 31 35  00 99 10 AE 01 8D 34 36  |0:.X:.15......46|
00000880: 35 3A 99 22 11 11 22 46  24 22 20 49 53 20 4E 4F  |5:.".."F$" IS NO|
00000890: 57 20 44 45 41 44 21 21  22 00 CD 10 B3 01 81 58  |W DEAD!!"......X|
000008A0: B2 31 A4 32 30 30 30 3A  82 58 3A 97 35 33 32 38  |.1.2000:.X:.5328|
000008B0: 30 2C 31 34 3A 97 35 33  32 38 31 2C 31 33 3A 99  |0,14:.53281,13:.|
000008C0: 22 90 22 C7 28 31 34 29  3A 89 31 31 35 00 EB 10  |".".(14):.115...|
000008D0: B8 01 A0 31 35 3A 9F 31  35 2C 38 2C 31 35 3A 84  |...15:.15,8,15:.|
000008E0: 31 35 2C 44 2C 45 24 2C  46 2C 47 00 22 11 BD 01  |15,D,E$,F,G."...|
000008F0: 8B 44 B1 30 A7 99 3A 99  22 54 48 45 52 45 20 49  |.D.0..:."THERE I|
00000900: 53 20 41 20 44 49 53 4B  20 45 52 52 4F 52 22 3A  |S A DISK ERROR":|
00000910: 99 44 3B 45 24 3B 46 3B  47 3A A0 31 35 3A 89 33  |.D;E$;F;G:.15:.3|
00000920: 34 35 00 28 11 C2 01 8E  00 43 11 C7 01 8B 4C B2  |45.(.....C....L.|
00000930: 36 30 A7 4C B2 31 3A 81  58 B2 31 A4 37 3A 98 31  |60.L.1:.X.1.7:.1|
00000940: 3A 82 58 00 49 11 CC 01  8E 00 75 11 D1 01 99 22  |:.X.I.....u...."|
00000950: 93 11 11 11 11 11 22 A3  38 29 22 05 12 20 4B 49  |......".8)".. KI|
00000960: 4C 4C 20 46 55 4E 43 54  49 4F 4E 20 41 43 54 49  |LL FUNCTION ACTI|
00000970: 56 45 20 92 22 00 7B 11  D6 01 8E 00 00 00        |VE .".{.......  |

..?.D..53280,14:.53281,13:.G(142)"......
.".12)"SEQUENTIAL FILE".J.I...12)"..READ
ER/PRINTER":..18)".....BY"...N...13)"...
..THE FONZ  (C) 1986"...O...8)"..GREETIN
GS TO CFN & CCD".A.R.. T.1.4000:....S.."
."G(14)".OPTIONS:.":.".F1 = DIRECTORY"..
.X..".F3 = SCREEN ONLY":.".F5 = HARDCOPY
".5.}..".F7 = KILL DISK FILE".\....K$:.K
$."".K$.G(133).K$.G(136).130.O....K$.G(1
36).365......K$.G(133).240......G(142)".
.DIRECTORY...":."F1 = SCREEN ONLY"......
".F3 = HARDCOPY":.".F5 = CANCEL FUNCTION
":P.0......K$:.K$."".K$.G(133).K$.G(135)
.155... ..K$.G(135).115.2....K$.G(133).1
75.A....4,4:.4:.4,G(14)"DIRECTORY"G(15):
.4:.4:P.1......"..DIRECTORY.":.:.:.1,8,0
,"$0":.#1,A$,B$:N$.G(0)......#1,A$,B$:.B
$."".220.V....#1,A$,B$:.F(A$.N$).256.F(B
$.N$);......P.1..4,F(A$.N$).256.F(B$.N$)
;...C..#1,A$:.A$."".210...H..P.1..4,A$;.
-.M..A$;:.195.;.R..:.P.1..4.D.W..180.^..
..P.1..X.1.7:.4:.X:P.0......:."PRESS ANY
 KEY TO CONTINUE.": 1: 4......K$:.K$."".
230......115.F....1,4,7:L.1:P.0:.K$.G(13
5).P.1......"..I NEED A FILENAME:. ";:.F
$......8,8,8,F$.",S,R":.440.$...."..PRES
S ANY KEY TO PAUSE.".>....:.:..10)"."F$"
.":.:..L....P.1..1,G(145)G(14)F$G(15)G(1
7):.1:.1:L.4......#8,CH$:.212,0:.ST.0.28
0......ST.64.340......CH$".";.L....P.1..
1,CH$;:.CH$.G(13).L.L.1:.455..."..K$:.K$
."".270...'..:.X.1.39:."*";:.X:.:.".PAUS
E IS IN EFFECT.".G.,.."OPTIONS:":."F1 = 
PRINTER ON":."F3 = PRINTER OFF".~.1.."F5
 = ABORT OPERATION":."F7 = CONTINUE UNCH
ANGED"...6..K$:.K$.G(133).K$.G(136).310.
J.;..K$.G(133).P.1:.1,G(17):.1:.1:L.3:.3
30...@..K$.G(134).P.0:.330...E..K$.G(135
).335. .J..".CONTINUING.":.X.1.39:."*";:
.:.:.270.M.O.."......".11)G(142)".OPERAT
ION ABORTED.".S.T..P.1..1:.X.L.2.66:.1:.
X:.1,G(145)...Y. 1: 8:.:."DO YOU WISH TO
 READ":."ANOTHER FILE? (Y/N)".D.^..K$:.K
$."Y"..:.115.U.C..K$.."N".350...H.....M.
.53280,2:.53281,2:.G(142):.465.-.R.."...
TYPE IN THE FILENAME TO BE SCRATCHED".].
W.."OR PRESS RETURN TO ABORT THE FUNCTIO
N...".U.|..".FILENAME:.";:.F$......F$.""
.410......465:."..LAST CHANCE!":."..DO Y
OU REALLY WISH TO KILL"......".THE  . "F
$" .  FILE? (Y/N)"......K$:.K$."".400...
...K$."Y".415.,....53280,14:.53281,13:."
."G(14):.335.E....465:."..KILLING "F$.C.
.. 15:.15,8,15:.15,"S0:".F$.X....X.1.200
0:.X: 15......465:.".."F$" IS NOW DEAD!!
".M....X.1.2000:.X:.53280,14:.53281,13:.
"."G(14):.115..... 15:.15,8,15:.15,D,E$,
F,G."....D.0..:."THERE IS A DISK ERROR":
.D;E$;F;G: 15:.345.(.B...C.G..L.60.L.1:.
X.1.7:.1:.X.I.L...U.Q.."......".8)".. KI
LL FUNCTION ACTIVE .".{.V.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL