FUNCTION KEYS
FILE INFORMATION
FILENAME(S): FUNCTION KEYS
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 19:47:10
APPEARS ON: 1 disk(s)
FILE HASH
e1ebdeb51e04560332cc906fa94af9b174055393e38215f8b10aa43c02799daa
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A9 2 | FUNCTION KEYS | PRG | Curtcool, Frank | 23 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4A 08 0A 00 8F 20 43 4F 4D 4D 4F 44 4F 52 |..J.... COMMODOR|
00000010: 45 20 36 34 20 46 55 4E 43 54 49 4F 4E 20 4B 45 |E 64 FUNCTION KE|
00000020: 59 53 2C 46 52 4F 4D 20 20 20 20 20 20 20 20 27 |YS,FROM '|
00000030: 59 4F 55 52 20 43 4F 4D 50 55 54 45 52 27 20 44 |YOUR COMPUTER' D|
00000040: 45 43 45 4D 42 45 52 20 38 33 00 6D 08 64 00 83 |ECEMBER 83.m.d..|
00000050: 41 30 2C 30 30 2C 42 39 2C 31 35 2C 39 43 2C 39 |A0,00,B9,15,9C,9|
00000060: 39 2C 35 30 2C 30 34 2C 41 39 2C 30 31 00 90 08 |9,50,04,A9,01...|
00000070: 6E 00 83 39 39 2C 35 30 2C 44 38 2C 43 38 2C 43 |n..99,50,D8,C8,C|
00000080: 30 2C 32 38 2C 44 30 2C 46 30 2C 34 43 2C 34 30 |0,28,D0,F0,4C,40|
00000090: 00 B3 08 78 00 83 39 43 2C 30 42 2C 30 35 2C 31 |...x..9C,0B,05,1|
000000A0: 39 2C 32 30 2C 30 34 2C 30 35 2C 30 36 2C 30 39 |9,20,04,05,06,09|
000000B0: 2C 30 45 00 D6 08 82 00 83 30 35 2C 32 30 2C 30 |,0E......05,20,0|
000000C0: 32 2C 31 39 2C 32 30 2C 30 44 2C 32 45 2C 31 34 |2,19,20,0D,2E,14|
000000D0: 2C 30 39 2C 30 45 00 F9 08 8C 00 83 30 37 2C 30 |,09,0E......07,0|
000000E0: 43 2C 30 35 2C 32 30 2C 31 33 2C 31 39 2C 31 33 |C,05,20,13,19,13|
000000F0: 2C 33 32 2C 33 35 2C 33 36 00 1C 09 96 00 83 32 |,32,35,36......2|
00000100: 41 2C 33 31 2C 33 35 2C 33 36 2C 32 30 2C 31 33 |A,31,35,36,20,13|
00000110: 2C 31 34 2C 30 31 2C 31 32 2C 31 34 00 58 09 A0 |,14,01,12,14.X..|
00000120: 00 83 31 33 2C 30 30 2C 30 30 2C 30 30 3A 8F 2A |..13,00,00,00:.*|
00000130: 2A 45 4E 44 20 4F 46 20 4E 41 4D 45 20 41 4E 44 |*END OF NAME AND|
00000140: 20 53 54 41 52 54 20 41 44 44 52 45 53 53 20 44 | START ADDRESS D|
00000150: 49 53 50 4C 41 59 2A 2A 00 7D 09 AA 00 8F 20 53 |ISPLAY**.}.... S|
00000160: 54 41 52 54 20 4F 46 20 50 4F 49 4E 54 45 52 20 |TART OF POINTER |
00000170: 46 4F 54 20 49 4E 54 45 52 52 55 50 54 00 97 09 |FOT INTERRUPT...|
00000180: B4 00 83 37 38 2C 41 39 2C 34 44 2C 38 44 2C 31 |...78,A9,4D,8D,1|
00000190: 34 2C 30 33 2C 41 39 00 C9 09 BE 00 83 39 43 2C |4,03,A9......9C,|
000001A0: 38 44 2C 31 35 2C 30 33 2C 35 38 2C 36 30 3A 8F |8D,15,03,58,60:.|
000001B0: 20 45 4E 44 20 4F 46 20 49 4E 54 45 52 52 55 50 | END OF INTERRUP|
000001C0: 54 20 50 4F 49 4E 54 45 52 00 03 0A C8 00 8F 20 |T POINTER...... |
000001D0: 53 54 41 52 54 20 4F 46 20 44 45 54 45 43 54 20 |START OF DETECT |
000001E0: 57 48 49 43 48 20 46 55 4E 43 54 49 4F 4E 20 4B |WHICH FUNCTION K|
000001F0: 45 59 20 48 41 53 20 42 45 45 4E 20 50 52 45 53 |EY HAS BEEN PRES|
00000200: 53 45 44 00 20 0A D2 00 83 41 35 2C 43 35 2C 43 |SED. ....A5,C5,C|
00000210: 39 2C 30 34 2C 44 30 2C 32 30 2C 41 32 2C 30 30 |9,04,D0,20,A2,00|
00000220: 00 3D 0A DC 00 83 41 44 2C 38 44 2C 30 32 2C 43 |.=....AD,8D,02,C|
00000230: 39 2C 30 31 2C 44 30 2C 30 35 2C 41 32 00 5A 0A |9,01,D0,05,A2.Z.|
00000240: E6 00 83 30 41 2C 34 43 2C 44 37 2C 39 43 2C 43 |...0A,4C,D7,9C,C|
00000250: 39 2C 30 32 2C 44 30 2C 30 35 00 77 0A F0 00 83 |9,02,D0,05.w....|
00000260: 41 32 2C 31 34 2C 34 43 2C 44 37 2C 39 43 2C 43 |A2,14,4C,D7,9C,C|
00000270: 39 2C 30 34 2C 44 30 00 94 0A FA 00 83 36 39 2C |9,04,D0......69,|
00000280: 41 32 2C 31 45 2C 34 43 2C 44 37 2C 39 43 2C 41 |A2,1E,4C,D7,9C,A|
00000290: 35 2C 43 35 00 B1 0A 04 01 83 43 39 2C 30 35 2C |5,C5......C9,05,|
000002A0: 44 30 2C 32 30 2C 41 32 2C 32 38 2C 41 44 2C 38 |D0,20,A2,28,AD,8|
000002B0: 44 00 CE 0A 0E 01 83 30 32 2C 43 39 2C 30 31 2C |D......02,C9,01,|
000002C0: 44 30 2C 30 35 2C 41 32 2C 33 32 2C 34 43 00 EB |D0,05,A2,32,4C..|
000002D0: 0A 18 01 83 44 37 2C 39 43 2C 43 39 2C 30 32 2C |....D7,9C,C9,02,|
000002E0: 44 30 2C 30 35 2C 41 32 2C 33 43 00 08 0B 22 01 |D0,05,A2,3C...".|
000002F0: 83 34 43 2C 44 37 2C 39 43 2C 43 39 2C 30 34 2C |.4C,D7,9C,C9,04,|
00000300: 44 30 2C 34 33 2C 41 32 00 25 0B 2C 01 83 34 36 |D0,43,A2.%.,..46|
00000310: 2C 34 43 2C 44 37 2C 39 43 2C 41 35 2C 43 35 2C |,4C,D7,9C,A5,C5,|
00000320: 43 39 2C 30 36 00 42 0B 36 01 83 44 30 2C 32 30 |C9,06.B.6..D0,20|
00000330: 2C 41 32 2C 35 30 2C 41 44 2C 38 44 2C 30 32 2C |,A2,50,AD,8D,02,|
00000340: 43 39 00 5F 0B 40 01 83 30 31 2C 44 30 2C 30 35 |C9._.@..01,D0,05|
00000350: 2C 41 32 2C 35 41 2C 34 43 2C 44 37 2C 39 43 00 |,A2,5A,4C,D7,9C.|
00000360: 7C 0B 4A 01 83 43 39 2C 30 32 2C 44 30 2C 30 35 ||.J..C9,02,D0,05|
00000370: 2C 41 32 2C 36 34 2C 34 43 2C 44 37 00 99 0B 54 |,A2,64,4C,D7...T|
00000380: 01 83 39 43 2C 43 39 2C 30 34 2C 44 30 2C 31 44 |..9C,C9,04,D0,1D|
00000390: 2C 41 32 2C 36 45 2C 34 43 00 B6 0B 5E 01 83 44 |,A2,6E,4C...^..D|
000003A0: 37 2C 39 43 2C 41 35 2C 43 35 2C 43 39 2C 30 33 |7,9C,A5,C5,C9,03|
000003B0: 2C 44 30 2C 33 31 00 D3 0B 68 01 83 41 32 2C 37 |,D0,31...h..A2,7|
000003C0: 38 2C 41 44 2C 38 44 2C 30 32 2C 43 39 2C 30 30 |8,AD,8D,02,C9,00|
000003D0: 2C 46 30 00 F0 0B 72 01 83 30 39 2C 41 44 2C 38 |,F0...r..09,AD,8|
000003E0: 44 2C 30 32 2C 43 39 2C 30 31 2C 44 30 2C 32 34 |D,02,C9,01,D0,24|
000003F0: 00 1A 0C 7C 01 83 41 32 2C 38 32 3A 8F 20 45 4E |...|..A2,82:. EN|
00000400: 44 20 4F 46 20 4B 45 59 20 44 45 54 45 43 54 49 |D OF KEY DETECTI|
00000410: 4F 4E 20 52 4F 55 54 49 4E 45 00 3C 0C 86 01 8F |ON ROUTINE.<....|
00000420: 20 53 54 41 52 54 20 4F 46 20 50 52 49 4E 54 20 | START OF PRINT |
00000430: 57 4F 52 44 20 52 4F 55 54 49 4E 45 00 59 0C 90 |WORD ROUTINE.Y..|
00000440: 01 83 41 30 2C 30 30 2C 42 44 2C 33 34 2C 39 45 |..A0,00,BD,34,9E|
00000450: 2C 39 39 2C 37 37 2C 30 32 00 90 0C 9A 01 83 45 |,99,77,02......E|
00000460: 38 2C 43 38 2C 43 39 2C 32 30 2C 44 30 2C 46 34 |8,C8,C9,20,D0,F4|
00000470: 2C 38 38 2C 38 34 2C 43 36 3A 8F 20 45 4E 44 20 |,88,84,C6:. END |
00000480: 4F 46 20 50 52 49 4E 54 20 52 4F 55 54 49 4E 45 |OF PRINT ROUTINE|
00000490: 00 C5 0C A4 01 8F 20 53 54 41 52 54 20 4F 46 20 |...... START OF |
000004A0: 44 45 4C 41 59 20 52 4F 55 54 49 4E 45 20 41 4E |DELAY ROUTINE AN|
000004B0: 44 20 45 58 49 54 20 46 52 4F 4D 20 49 4E 54 45 |D EXIT FROM INTE|
000004C0: 52 52 55 50 54 00 E2 0C AE 01 83 41 32 2C 30 30 |RRUPT......A2,00|
000004D0: 2C 41 30 2C 30 30 2C 43 38 2C 43 30 2C 46 41 2C |,A0,00,C8,C0,FA,|
000004E0: 44 30 00 19 0D B8 01 83 46 42 2C 45 38 2C 45 30 |D0......FB,E8,E0|
000004F0: 2C 46 41 2C 44 30 2C 46 34 2C 34 43 2C 33 31 2C |,FA,D0,F4,4C,31,|
00000500: 45 41 3A 8F 20 45 4E 44 20 4F 46 20 44 45 4C 41 |EA:. END OF DELA|
00000510: 59 20 52 4F 55 54 49 4E 45 00 4D 0D C2 01 8F 20 |Y ROUTINE.M.... |
00000520: 53 54 41 52 54 20 4F 46 20 43 48 41 4E 47 45 20 |START OF CHANGE |
00000530: 53 43 52 45 45 4E 20 26 20 42 4F 52 44 45 52 20 |SCREEN & BORDER |
00000540: 43 4F 4C 4F 52 20 52 4F 55 54 49 4E 45 00 6A 0D |COLOR ROUTINE.j.|
00000550: CC 01 83 43 39 2C 30 32 2C 44 30 2C 30 36 2C 41 |...C9,02,D0,06,A|
00000560: 45 2C 32 30 2C 44 30 2C 34 43 00 87 0D D6 01 83 |E,20,D0,4C......|
00000570: 31 41 2C 39 44 2C 43 39 2C 30 34 2C 44 30 2C 45 |1A,9D,C9,04,D0,E|
00000580: 46 2C 41 45 2C 32 31 00 A4 0D E0 01 83 44 30 2C |F,AE,21......D0,|
00000590: 45 38 2C 45 30 2C 31 30 2C 39 30 2C 30 36 2C 38 |E8,E0,10,90,06,8|
000005A0: 45 2C 32 31 00 C1 0D EA 01 83 44 30 2C 34 43 2C |E,21......D0,4C,|
000005B0: 45 38 2C 39 43 2C 41 32 2C 30 30 2C 34 43 2C 30 |E8,9C,A2,00,4C,0|
000005C0: 46 00 DE 0D F4 01 83 39 44 2C 45 38 2C 45 30 2C |F......9D,E8,E0,|
000005D0: 31 30 2C 39 30 2C 30 36 2C 38 45 2C 32 30 00 FE |10,90,06,8E,20..|
000005E0: 0D FE 01 83 44 30 2C 34 43 2C 45 38 2C 39 43 2C |....D0,4C,E8,9C,|
000005F0: 41 32 2C 30 30 2C 34 43 2C 31 46 2C 39 44 00 13 |A2,00,4C,1F,9D..|
00000600: 0E 08 02 83 2A 3A 8F 20 45 4E 44 20 4F 46 20 44 |....*:. END OF D|
00000610: 41 54 41 00 36 0E 12 02 97 35 36 2C 31 35 36 3A |ATA.6....56,156:|
00000620: 97 35 32 2C 31 35 36 3A 8F 20 50 52 4F 54 45 43 |.52,156:. PROTEC|
00000630: 54 20 43 4F 44 45 00 4B 0E E7 03 4C B2 33 39 39 |T CODE.K...L.399|
00000640: 33 36 3A 4E B2 30 3A 54 54 B2 30 00 53 0E E8 03 |36:N.0:TT.0.S...|
00000650: 87 41 24 00 5F 0E F2 03 43 B2 C3 28 41 24 29 00 |.A$._...C..(A$).|
00000660: 70 0E FC 03 8B 41 24 B2 22 2A 22 A7 31 31 30 30 |p....A$."*".1100|
00000670: 00 7F 0E 06 04 41 B2 C6 28 41 24 29 AB 34 38 00 |.....A..(A$).48.|
00000680: 93 0E 10 04 42 B2 C6 28 C9 28 41 24 2C 31 29 29 |....B..(.(A$,1))|
00000690: AB 34 38 00 BA 0E 1A 04 4E B2 42 AA 37 AC 28 42 |.48.....N.B.7.(B|
000006A0: B1 39 29 AB 28 43 B2 32 29 AC 28 31 36 AC 28 41 |.9).(C.2).(16.(A|
000006B0: AA 37 AC 28 41 B1 39 29 29 29 00 CE 0E 24 04 8B |.7.(A.9)))...$..|
000006C0: 4E B3 30 B0 4E B1 32 35 35 A7 31 30 39 30 00 DF |N.0.N.255.1090..|
000006D0: 0E 2E 04 97 4C 2C 4E 3A 54 54 B2 54 54 AA 4E 00 |....L,N:TT.TT.N.|
000006E0: EF 0E 38 04 4C B2 4C AA 31 3A 89 31 30 30 30 00 |..8.L.L.1:.1000.|
000006F0: 16 0F 42 04 99 22 42 59 54 45 22 4C 22 3D 28 22 |..B.."BYTE"L"=("|
00000700: 41 24 22 29 3F 3F 22 3A 8F 20 49 4E 56 41 4C 49 |A$")??":. INVALI|
00000710: 44 20 44 41 54 41 00 54 0F 4C 04 8B 20 54 54 B3 |D DATA.T.L.. TT.|
00000720: B1 33 32 38 31 33 A7 99 22 93 43 4F 44 45 20 45 |.32813..".CODE E|
00000730: 52 52 4F 52 20 52 55 4E 20 41 42 4F 52 54 45 44 |RROR RUN ABORTED|
00000740: 2E 22 3A 80 3A 8F 20 43 48 45 43 4B 20 4F 4E 20 |.":.:. CHECK ON |
00000750: 44 41 54 41 00 85 0F 51 04 4D B2 34 30 35 30 30 |DATA...Q.M.40500|
00000760: 3A 8F 20 53 54 41 52 54 20 4C 4F 43 41 54 49 4F |:. START LOCATIO|
00000770: 4E 20 46 4F 52 20 53 50 45 43 49 46 49 45 44 20 |N FOR SPECIFIED |
00000780: 57 4F 52 44 53 00 91 0F 56 04 81 54 B2 31 A4 31 |WORDS...V..T.1.1|
00000790: 34 00 A8 0F 60 04 4E B2 4D 3A 87 41 24 3A 81 41 |4...`.N.M:.A$:.A|
000007A0: B2 31 A4 C3 28 41 24 29 00 BB 0F 6A 04 42 B2 C6 |.1..(A$)...j.B..|
000007B0: 28 CA 28 41 24 2C 41 2C 31 29 29 00 F3 0F 6F 04 |(.(A$,A,1))...o.|
000007C0: 8B 42 B2 39 35 A7 42 B2 31 33 3A 8F 20 43 48 45 |.B.95.B.13:. CHE|
000007D0: 43 4B 53 20 46 4F 52 20 41 20 5F 20 53 59 4D 42 |CKS FOR A _ SYMB|
000007E0: 4F 4C 20 54 4F 20 44 45 4E 4F 54 45 20 52 45 54 |OL TO DENOTE RET|
000007F0: 55 52 4E 00 FC 0F 74 04 97 4D 2C 42 00 06 10 7E |URN...t..M,B...~|
00000800: 04 4D B2 4D AA 31 00 0D 10 88 04 82 41 00 51 10 |.M.M.1......A.Q.|
00000810: 92 04 97 4D 2C 33 32 3A 8F 20 54 48 49 53 20 50 |...M,32:. THIS P|
00000820: 4F 4B 45 53 20 54 48 45 20 43 4F 44 45 20 46 4F |OKES THE CODE FO|
00000830: 52 20 41 20 53 50 41 43 45 20 41 4E 44 20 49 53 |R A SPACE AND IS|
00000840: 20 55 53 45 44 20 42 59 20 54 48 45 20 43 4F 44 | USED BY THE COD|
00000850: 45 00 73 10 97 04 8F 20 54 4F 20 44 45 54 45 43 |E.s.... TO DETEC|
00000860: 54 20 54 48 45 20 45 4E 44 20 4F 46 20 41 20 57 |T THE END OF A W|
00000870: 4F 52 44 00 7E 10 9C 04 4D B2 4E AA 31 30 00 85 |ORD.~...M.N.10..|
00000880: 10 A6 04 82 54 00 AA 10 B0 04 83 22 50 4F 4B 45 |....T......"POKE|
00000890: 2C 22 2C 22 50 45 45 4B 28 22 2C 22 52 45 41 44 |,","PEEK(","READ|
000008A0: 22 2C 22 52 45 54 55 52 4E 22 00 CB 10 BA 04 83 |","RETURN"......|
000008B0: 22 53 41 56 45 22 2C 22 4C 4F 41 44 22 2C 22 52 |"SAVE","LOAD","R|
000008C0: 55 4E 5F 22 2C 22 44 41 54 41 22 00 EE 10 C4 04 |UN_","DATA".....|
000008D0: 83 22 47 4F 54 4F 22 2C 22 47 4F 53 55 42 22 2C |."GOTO","GOSUB",|
000008E0: 22 4E 45 58 54 22 2C 22 50 52 49 4E 54 22 00 01 |"NEXT","PRINT"..|
000008F0: 11 CE 04 83 22 4C 49 53 54 5F 22 2C 22 46 4F 52 |...."LIST_","FOR|
00000900: 22 00 18 11 14 05 99 22 93 11 11 11 22 3A 9E 33 |"......"....":.3|
00000910: 39 39 33 36 3A 9C 3A A2 00 00 00 00 |9936:.:..... |
..J.... COMMODORE 64 FUNCTION KEYS,FROM
'YOUR COMPUTER' DECEMBER 83.M.D..
A0,00,B9,15,9C,99,50,04,A9,01...N..99,50
,D8,C8,C0,28,D0,F0,4C,40...X..9C,0B,05,1
9,20,04,05,06,09,0E.V....05,20,02,19,20,
0D,2E,14,09,0E......07,0C,05,20,13,19,13
,32,35,36......2A,31,35,36,20,13,14,01,1
2,14.X. ..13,00,00,00:.**END OF NAME AND
START ADDRESS DISPLAY**.}.... START OF
POINTER FOT INTERRUPT......78,A9,4D,8D,1
4,03,A9.I....9C,8D,15,03,58,60:. END OF
INTERRUPT POINTER...H.. START OF DETECT
WHICH FUNCTION KEY HAS BEEN PRESSED. .R.
.A5,C5,C9,04,D0,20,A2,00.=....AD,8D,02,C
9,01,D0,05,A2.Z....0A,4C,D7,9C,C9,02,D0,
05.W....A2,14,4C,D7,9C,C9,04,D0......69,
A2,1E,4C,D7,9C,A5,C5......C9,05,D0,20,A2
,28,AD,8D.N....02,C9,01,D0,05,A2,32,4C..
....D7,9C,C9,02,D0,05,A2,3C..."..4C,D7,9
C,C9,04,D0,43,A2.%.,..46,4C,D7,9C,A5,C5,
C9,06.B.6..D0,20,A2,50,AD,8D,02,C9._.@..
01,D0,05,A2,5A,4C,D7,9C.|.J..C9,02,D0,05
,A2,64,4C,D7...T..9C,C9,04,D0,1D,A2,6E,4
C...^..D7,9C,A5,C5,C9,03,D0,31.S.H..A2,7
8,AD,8D,02,C9,00,F0...R..09,AD,8D,02,C9,
01,D0,24...|..A2,82:. END OF KEY DETECTI
ON ROUTINE.<.... START OF PRINT WORD ROU
TINE.Y....A0,00,BD,34,9E,99,77,02......E
8,C8,C9,20,D0,F4,88,84,C6:. END OF PRINT
ROUTINE.E.... START OF DELAY ROUTINE AN
D EXIT FROM INTERRUPT......A2,00,A0,00,C
8,C0,FA,D0......FB,E8,E0,FA,D0,F4,4C,31,
EA:. END OF DELAY ROUTINE.M.B.. START OF
CHANGE SCREEN & BORDER COLOR ROUTINE.J.
L..C9,02,D0,06,AE,20,D0,4C...V..1A,9D,C9
,04,D0,EF,AE,21......D0,E8,E0,10,90,06,8
E,21.A....D0,4C,E8,9C,A2,00,4C,0F......9
D,E8,E0,10,90,06,8E,20......D0,4C,E8,9C,
A2,00,4C,1F,9D......*:. END OF DATA.6...
.56,156:.52,156:. PROTECT CODE.K...L.399
36:N.0:TT.0.S....A$._...C.C(A$).P....A$.
"*".1100....A.F(A$).48.....B.F(I(A$,1))
.48.....N.B.7.(B.9).(C.2).(16.(A.7.(A.9)
)).N.$..N.0.N.255.1090......L,N:TT.TT.N.
..8.L.L.1:.1000...B.."BYTE"L"=("A$")??":
. INVALID DATA.T.L.. TT..32813..".CODE E
RROR RUN ABORTED.":.:. CHECK ON DATA...Q
.M.40500:. START LOCATION FOR SPECIFIED
WORDS...V..T.1.14...`.N.M:.A$:.A.1.C(A$)
...J.B.F(J(A$,A,1))...O..B.95.B.13:. CHE
CKS FOR A _ SYMBOL TO DENOTE RETURN...T.
.M,B...~.M.M.1......A.Q....M,32:. THIS P
OKES THE CODE FOR A SPACE AND IS USED BY
THE CODE.S.... TO DETECT THE END OF A W
ORD.~...M.N.10......T......"POKE,","PEEK
(","READ","RETURN".K...."SAVE","LOAD","R
UN_","DATA"...D.."GOTO","GOSUB","NEXT","
PRINT"...N.."LIST_","FOR"......"....":.3
9936:.:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL