M♠

00000000: 3B 20 3D 3D 3D 00 3B 20  45 44 49 54 45 52 20 46  |; ===.; EDITER F|
00000010: 4F 52 20 47 45 4F 53 20  41 53 53 45 4D 42 4C 45  |OR GEOS ASSEMBLE|
00000020: 52 00 3B 20 20 42 59 20  42 49 4C 4C 20 53 48 41  |R.;  BY BILL SHA|
00000030: 52 50 00 3B 3D 3D 3D 00  53 54 41 52 54 00 20 6C  |RP.;===.START. l|
00000040: 64 61 20 52 31 30 00 20  73 74 61 20 52 65 63 6F  |da R10. sta Reco|
00000050: 76 65 72 46 6C 61 67 00  20 6C 64 61 20 24 32 46  |verFlag. lda $2F|
00000060: 00 20 73 74 61 20 42 75  66 44 69 73 70 6C 61 79  |. sta BufDisplay|
00000070: 00 20 6C 64 61 20 23 31  32 38 00 20 73 74 61 20  |. lda #128. sta |
00000080: 24 32 46 00 20 4A 53 52  20 4E 65 77 44 69 73 6B  |$2F. JSR NewDisk|
00000090: 00 20 4A 53 52 20 4D 6F  75 73 65 55 70 00 20 4A  |. JSR MouseUp. J|
000000A0: 53 52 20 63 6C 72 53 63  72 65 65 6E 00 4C 44 58  |SR clrScreen.LDX|
000000B0: 20 23 3C 49 43 4F 4E 53  00 53 54 58 20 52 30 00  | #<ICONS.STX R0.|
000000C0: 4C 44 58 20 23 3E 49 43  4F 4E 53 00 53 54 58 20  |LDX #>ICONS.STX |
000000D0: 52 30 2B 31 00 4A 53 52  20 44 6F 49 63 6F 6E 73  |R0+1.JSR DoIcons|
000000E0: 20 3B 20 53 45 54 55 50  20 49 43 4F 4E 53 00 20  | ; SETUP ICONS. |
000000F0: 6A 73 72 20 54 65 78 74  53 74 72 69 6E 67 73 00  |jsr TextStrings.|
00000100: 20 6A 73 72 20 43 6C 65  61 72 41 6C 6C 00 20 6C  | jsr ClearAll. l|
00000110: 64 61 20 23 3C 4F 75 72  47 65 74 53 74 72 69 6E  |da #<OurGetStrin|
00000120: 67 00 20 73 74 61 20 24  38 34 41 33 00 20 6C 64  |g. sta $84A3. ld|
00000130: 61 20 23 3E 4F 75 72 47  65 74 53 74 72 69 6E 67  |a #>OurGetString|
00000140: 00 20 73 74 61 20 24 38  34 41 34 00 20 6C 64 61  |. sta $84A4. lda|
00000150: 20 23 32 36 00 20 73 74  61 20 6B 65 79 70 72 65  | #26. sta keypre|
00000160: 73 73 00 20 6A 73 72 20  53 57 43 48 4D 4F 44 45  |ss. jsr SWCHMODE|
00000170: 32 00 20 6C 64 61 20 23  30 00 20 73 74 61 20 4B  |2. lda #0. sta K|
00000180: 65 79 69 6E 6C 65 6E 00  20 52 54 53 00 52 65 63  |eyinlen. RTS.Rec|
00000190: 6F 76 65 72 46 6C 61 67  20 2E 42 79 74 65 20 30  |overFlag .Byte 0|
000001A0: 00 49 63 6F 6E 5F 58 5F  50 6F 73 20 3D 20 31 34  |.Icon_X_Pos = 14|
000001B0: 00 49 63 6F 6E 5F 59 5F  50 6F 73 20 3D 20 35 32  |.Icon_Y_Pos = 52|
000001C0: 00 3B 20 3D 3D 00 3B 20  49 43 4F 4E 20 45 58 45  |.; ==.; ICON EXE|
000001D0: 43 55 54 49 4F 4E 20 52  4F 55 54 49 4E 45 00 49  |CUTION ROUTINE.I|
000001E0: 43 4F 4E 53 00 2E 42 59  54 45 20 33 31 00 2E 57  |CONS..BYTE 31..W|
000001F0: 4F 52 44 20 31 36 30 00  2E 42 59 54 45 20 34 38  |ORD 160..BYTE 48|
00000200: 2B 34 38 00 2E 57 4F 52  44 20 49 63 6F 6E 44 61  |+48..WORD IconDa|
00000210: 74 61 00 2E 42 59 54 45  20 49 63 6F 6E 5F 58 5F  |ta..BYTE Icon_X_|
00000220: 50 6F 73 2C 49 63 6F 6E  5F 59 5F 50 6F 73 2B 36  |Pos,Icon_Y_Pos+6|
00000230: 2A 38 2C 33 2C 31 36 00  2E 57 4F 52 44 20 49 63  |*8,3,16..WORD Ic|
00000240: 6F 6E 43 61 6C 6C 00 2E  57 4F 52 44 20 49 63 6F  |onCall..WORD Ico|
00000250: 6E 44 61 74 61 00 2E 42  59 54 45 20 49 63 6F 6E  |nData..BYTE Icon|
00000260: 5F 58 5F 50 6F 73 2C 49  63 6F 6E 5F 59 5F 50 6F  |_X_Pos,Icon_Y_Po|
00000270: 73 2B 34 2A 38 2C 33 2C  31 36 00 2E 57 4F 52 44  |s+4*8,3,16..WORD|
00000280: 20 49 63 6F 6E 43 61 6C  6C 00 2E 57 4F 52 44 20  | IconCall..WORD |
00000290: 49 63 6F 6E 44 61 74 61  00 2E 42 59 54 45 20 49  |IconData..BYTE I|
000002A0: 63 6F 6E 5F 58 5F 50 6F  73 2B 33 2C 49 63 6F 6E  |con_X_Pos+3,Icon|
000002B0: 5F 59 5F 50 6F 73 2B 34  2A 38 2C 33 2C 31 36 00  |_Y_Pos+4*8,3,16.|
000002C0: 2E 57 4F 52 44 20 49 63  6F 6E 43 61 6C 6C 00 2E  |.WORD IconCall..|
000002D0: 57 4F 52 44 20 49 63 6F  6E 44 61 74 61 00 2E 42  |WORD IconData..B|
000002E0: 59 54 45 20 49 63 6F 6E  5F 58 5F 50 6F 73 2B 36  |YTE Icon_X_Pos+6|
000002F0: 2C 49 63 6F 6E 5F 59 5F  50 6F 73 2B 34 2A 38 2C  |,Icon_Y_Pos+4*8,|
00000300: 33 2C 31 36 00 2E 57 4F  52 44 20 49 63 6F 6E 43  |3,16..WORD IconC|
00000310: 61 6C 6C 00 2E 57 4F 52  44 20 49 63 6F 6E 44 61  |all..WORD IconDa|
00000320: 74 61 00 2E 42 59 54 45  20 49 63 6F 6E 5F 58 5F  |ta..BYTE Icon_X_|
00000330: 50 6F 73 2C 49 63 6F 6E  5F 59 5F 50 6F 73 2B 32  |Pos,Icon_Y_Pos+2|
00000340: 2A 38 2C 33 2C 31 36 00  2E 57 4F 52 44 20 49 63  |*8,3,16..WORD Ic|
00000350: 6F 6E 43 61 6C 6C 00 2E  57 4F 52 44 20 49 63 6F  |onCall..WORD Ico|
00000360: 6E 44 61 74 61 00 2E 42  59 54 45 20 49 63 6F 6E  |nData..BYTE Icon|
00000370: 5F 58 5F 50 6F 73 2B 33  2C 49 63 6F 6E 5F 59 5F  |_X_Pos+3,Icon_Y_|
00000380: 50 6F 73 2B 32 2A 38 2C  33 2C 31 36 00 2E 57 4F  |Pos+2*8,3,16..WO|
00000390: 52 44 20 49 63 6F 6E 43  61 6C 6C 00 2E 57 4F 52  |RD IconCall..WOR|
000003A0: 44 20 49 63 6F 6E 44 61  74 61 00 2E 42 59 54 45  |D IconData..BYTE|
000003B0: 20 49 63 6F 6E 5F 58 5F  50 6F 73 2B 36 2C 49 63  | Icon_X_Pos+6,Ic|
000003C0: 6F 6E 5F 59 5F 50 6F 73  2B 32 2A 38 2C 33 2C 31  |on_Y_Pos+2*8,3,1|
000003D0: 36 00 2E 57 4F 52 44 20  49 63 6F 6E 43 61 6C 6C  |6..WORD IconCall|
000003E0: 00 2E 57 4F 52 44 20 49  63 6F 6E 44 61 74 61 00  |..WORD IconData.|
000003F0: 2E 42 59 54 45 20 49 63  6F 6E 5F 58 5F 50 6F 73  |.BYTE Icon_X_Pos|
00000400: 2C 49 63 6F 6E 5F 59 5F  50 6F 73 2C 33 2C 31 36  |,Icon_Y_Pos,3,16|
00000410: 00 2E 57 4F 52 44 20 49  63 6F 6E 43 61 6C 6C 00  |..WORD IconCall.|
00000420: 3B 32 00 2E 57 4F 52 44  20 49 63 6F 6E 44 61 74  |;2..WORD IconDat|
00000430: 61 00 2E 42 59 54 45 20  49 63 6F 6E 5F 58 5F 50  |a..BYTE Icon_X_P|
00000440: 6F 73 2B 33 2C 49 63 6F  6E 5F 59 5F 50 6F 73 2C  |os+3,Icon_Y_Pos,|
00000450: 33 2C 31 36 00 2E 57 4F  52 44 20 49 63 6F 6E 43  |3,16..WORD IconC|
00000460: 61 6C 6C 00 2E 57 4F 52  44 20 49 63 6F 6E 44 61  |all..WORD IconDa|
00000470: 74 61 00 2E 42 59 54 45  20 49 63 6F 6E 5F 58 5F  |ta..BYTE Icon_X_|
00000480: 50 6F 73 2B 36 2C 49 63  6F 6E 5F 59 5F 50 6F 73  |Pos+6,Icon_Y_Pos|
00000490: 2C 33 2C 31 36 00 2E 57  4F 52 44 20 49 63 6F 6E  |,3,16..WORD Icon|
000004A0: 43 61 6C 6C 00 2E 57 4F  52 44 20 49 63 6F 6E 44  |Call..WORD IconD|
000004B0: 61 74 61 00 2E 42 59 54  45 20 49 63 6F 6E 5F 58  |ata..BYTE Icon_X|
000004C0: 5F 50 6F 73 2B 33 2C 49  63 6F 6E 5F 59 5F 50 6F  |_Pos+3,Icon_Y_Po|
000004D0: 73 2B 36 2A 38 2C 33 2C  31 36 00 2E 57 4F 52 44  |s+6*8,3,16..WORD|
000004E0: 20 49 63 6F 6E 43 61 6C  6C 00 2E 57 4F 52 44 20  | IconCall..WORD |
000004F0: 49 63 6F 6E 44 61 74 61  00 2E 42 59 54 45 20 49  |IconData..BYTE I|
00000500: 63 6F 6E 5F 58 5F 50 6F  73 2B 36 2C 49 63 6F 6E  |con_X_Pos+6,Icon|
00000510: 5F 59 5F 50 6F 73 2B 36  2A 38 2C 33 2C 31 36 00  |_Y_Pos+6*8,3,16.|
00000520: 2E 57 4F 52 44 20 49 63  6F 6E 43 61 6C 6C 00 2E  |.WORD IconCall..|
00000530: 57 4F 52 44 20 49 63 6F  6E 44 61 74 61 00 2E 42  |WORD IconData..B|
00000540: 59 54 45 20 49 63 6F 6E  5F 58 5F 50 6F 73 2B 39  |YTE Icon_X_Pos+9|
00000550: 2C 49 63 6F 6E 5F 59 5F  50 6F 73 2B 36 2A 38 2C  |,Icon_Y_Pos+6*8,|
00000560: 33 2C 31 36 00 2E 57 4F  52 44 20 49 63 6F 6E 43  |3,16..WORD IconC|
00000570: 61 6C 6C 00 2E 57 4F 52  44 20 49 63 6F 6E 44 61  |all..WORD IconDa|
00000580: 74 61 00 2E 42 59 54 45  20 49 63 6F 6E 5F 58 5F  |ta..BYTE Icon_X_|
00000590: 50 6F 73 2B 39 2C 49 63  6F 6E 5F 59 5F 50 6F 73  |Pos+9,Icon_Y_Pos|
000005A0: 2B 34 2A 38 2C 33 2C 31  36 00 2E 57 4F 52 44 20  |+4*8,3,16..WORD |
000005B0: 49 63 6F 6E 43 61 6C 6C  00 2E 57 4F 52 44 20 49  |IconCall..WORD I|
000005C0: 63 6F 6E 44 61 74 61 00  2E 42 59 54 45 20 49 63  |conData..BYTE Ic|
000005D0: 6F 6E 5F 58 5F 50 6F 73  2B 39 2C 49 63 6F 6E 5F  |on_X_Pos+9,Icon_|
000005E0: 59 5F 50 6F 73 2B 32 2A  38 2C 33 2C 31 36 00 2E  |Y_Pos+2*8,3,16..|
000005F0: 57 4F 52 44 20 49 63 6F  6E 43 61 6C 6C 00 2E 57  |WORD IconCall..W|
00000600: 4F 52 44 20 49 63 6F 6E  44 61 74 61 00 2E 42 59  |ORD IconData..BY|
00000610: 54 45 20 49 63 6F 6E 5F  58 5F 50 6F 73 2B 39 2C  |TE Icon_X_Pos+9,|
00000620: 49 63 6F 6E 5F 59 5F 50  6F 73 2C 33 2C 31 36 00  |Icon_Y_Pos,3,16.|
00000630: 2E 57 4F 52 44 20 49 63  6F 6E 43 61 6C 6C 00 3B  |.WORD IconCall.;|
00000640: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000650: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 2E 57 4F 52 44 20  |*********..WORD |
00000660: 49 63 6F 6E 44 61 74 61  00 2E 42 59 54 45 20 49  |IconData..BYTE I|
00000670: 63 6F 6E 5F 58 5F 50 6F  73 2C 49 63 6F 6E 5F 59  |con_X_Pos,Icon_Y|
00000680: 5F 50 6F 73 2B 31 32 2A  38 2C 33 2C 31 36 00 2E  |_Pos+12*8,3,16..|
00000690: 57 4F 52 44 20 43 6C 65  61 72 00 2E 57 4F 52 44  |WORD Clear..WORD|
000006A0: 20 49 63 6F 6E 44 61 74  61 00 2E 42 59 54 45 20  | IconData..BYTE |
000006B0: 49 63 6F 6E 5F 58 5F 50  6F 73 2B 33 2C 49 63 6F  |Icon_X_Pos+3,Ico|
000006C0: 6E 5F 59 5F 50 6F 73 2B  31 32 2A 38 2C 33 2C 31  |n_Y_Pos+12*8,3,1|
000006D0: 36 00 2E 57 4F 52 44 20  43 6C 65 61 72 41 6C 6C  |6..WORD ClearAll|
000006E0: 00 2E 57 4F 52 44 20 49  63 6F 6E 44 61 74 61 00  |..WORD IconData.|
000006F0: 2E 42 59 54 45 20 49 63  6F 6E 5F 58 5F 50 6F 73  |.BYTE Icon_X_Pos|
00000700: 2B 36 2C 49 63 6F 6E 5F  59 5F 50 6F 73 2B 31 32  |+6,Icon_Y_Pos+12|
00000710: 2A 38 2C 33 2C 31 36 00  2E 57 4F 52 44 20 44 65  |*8,3,16..WORD De|
00000720: 6C 65 74 65 00 2E 57 4F  52 44 20 49 63 6F 6E 44  |lete..WORD IconD|
00000730: 61 74 61 00 2E 42 59 54  45 20 49 63 6F 6E 5F 58  |ata..BYTE Icon_X|
00000740: 5F 50 6F 73 2B 39 2C 49  63 6F 6E 5F 59 5F 50 6F  |_Pos+9,Icon_Y_Po|
00000750: 73 2B 31 32 2A 38 2C 33  2C 31 36 00 2E 57 4F 52  |s+12*8,3,16..WOR|
00000760: 44 20 51 55 49 54 32 00  2E 57 4F 52 44 20 49 63  |D QUIT2..WORD Ic|
00000770: 6F 6E 44 61 74 61 00 2E  42 59 54 45 20 49 63 6F  |onData..BYTE Ico|
00000780: 6E 5F 58 5F 50 6F 73 2B  31 32 2C 49 63 6F 6E 5F  |n_X_Pos+12,Icon_|
00000790: 59 5F 50 6F 73 2C 33 2C  31 36 00 2E 57 4F 52 44  |Y_Pos,3,16..WORD|
000007A0: 20 44 69 76 69 64 65 00  2E 57 4F 52 44 20 49 63  | Divide..WORD Ic|
000007B0: 6F 6E 44 61 74 61 00 2E  42 59 54 45 20 49 63 6F  |onData..BYTE Ico|
000007C0: 6E 5F 58 5F 50 6F 73 2B  31 32 2C 49 63 6F 6E 5F  |n_X_Pos+12,Icon_|
000007D0: 59 5F 50 6F 73 2B 32 2A  38 2C 33 2C 31 36 00 2E  |Y_Pos+2*8,3,16..|
000007E0: 57 4F 52 44 20 4D 75 6C  74 69 70 6C 79 00 2E 57  |WORD Multiply..W|
000007F0: 4F 52 44 20 49 63 6F 6E  44 61 74 61 00 2E 42 59  |ORD IconData..BY|
00000800: 54 45 20 49 63 6F 6E 5F  58 5F 50 6F 73 2B 31 32  |TE Icon_X_Pos+12|
00000810: 2C 49 63 6F 6E 5F 59 5F  50 6F 73 2B 34 2A 38 2C  |,Icon_Y_Pos+4*8,|
00000820: 33 2C 31 36 00 2E 57 4F  52 44 20 53 75 62 74 72  |3,16..WORD Subtr|
00000830: 61 63 74 00 2E 57 4F 52  44 20 49 63 6F 6E 44 61  |act..WORD IconDa|
00000840: 74 61 00 2E 42 59 54 45  20 49 63 6F 6E 5F 58 5F  |ta..BYTE Icon_X_|
00000850: 50 6F 73 2B 31 32 2C 49  63 6F 6E 5F 59 5F 50 6F  |Pos+12,Icon_Y_Po|
00000860: 73 2B 36 2A 38 2C 33 2C  31 36 00 2E 57 4F 52 44  |s+6*8,3,16..WORD|
00000870: 20 41 64 64 00 2E 57 4F  52 44 20 49 63 6F 6E 44  | Add..WORD IconD|
00000880: 61 74 61 00 2E 42 59 54  45 20 49 63 6F 6E 5F 58  |ata..BYTE Icon_X|
00000890: 5F 50 6F 73 2B 31 32 2C  49 63 6F 6E 5F 59 5F 50  |_Pos+12,Icon_Y_P|
000008A0: 6F 73 2B 38 2A 38 2C 33  2C 31 36 00 2E 57 4F 52  |os+8*8,3,16..WOR|
000008B0: 44 20 45 71 75 61 6C 00  2E 57 4F 52 44 20 49 63  |D Equal..WORD Ic|
000008C0: 6F 6E 44 61 74 61 00 2E  42 59 54 45 20 49 63 6F  |onData..BYTE Ico|
000008D0: 6E 5F 58 5F 50 6F 73 2B  30 36 2C 49 63 6F 6E 5F  |n_X_Pos+06,Icon_|
000008E0: 59 5F 50 6F 73 2B 38 2A  38 2C 33 2C 31 36 00 2E  |Y_Pos+8*8,3,16..|
000008F0: 57 4F 52 44 20 53 57 49  54 43 48 4D 4F 44 45 00  |WORD SWITCHMODE.|
00000900: 2E 57 4F 52 44 20 49 63  6F 6E 44 61 74 61 00 2E  |.WORD IconData..|
00000910: 42 59 54 45 20 49 63 6F  6E 5F 58 5F 50 6F 73 2B  |BYTE Icon_X_Pos+|
00000920: 30 33 2C 49 63 6F 6E 5F  59 5F 50 6F 73 2B 38 2A  |03,Icon_Y_Pos+8*|
00000930: 38 2C 33 2C 31 36 00 2E  57 4F 52 44 20 53 57 49  |8,3,16..WORD SWI|
00000940: 54 43 48 4D 4F 44 45 00  2E 57 4F 52 44 20 49 63  |TCHMODE..WORD Ic|
00000950: 6F 6E 44 61 74 61 00 2E  42 59 54 45 20 49 63 6F  |onData..BYTE Ico|
00000960: 6E 5F 58 5F 50 6F 73 2B  30 30 2C 49 63 6F 6E 5F  |n_X_Pos+00,Icon_|
00000970: 59 5F 50 6F 73 2B 38 2A  38 2C 33 2C 31 36 00 2E  |Y_Pos+8*8,3,16..|
00000980: 57 4F 52 44 20 53 57 49  54 43 48 4D 4F 44 45 00  |WORD SWITCHMODE.|
00000990: 2E 57 4F 52 44 20 49 63  6F 6E 44 61 74 61 00 2E  |.WORD IconData..|
000009A0: 42 59 54 45 20 49 63 6F  6E 5F 58 5F 50 6F 73 2C  |BYTE Icon_X_Pos,|
000009B0: 49 63 6F 6E 5F 59 5F 50  6F 73 2B 31 30 2A 38 2C  |Icon_Y_Pos+10*8,|
000009C0: 33 2C 31 36 00 2E 57 4F  52 44 20 44 4F 41 4E 44  |3,16..WORD DOAND|
000009D0: 00 2E 57 4F 52 44 20 49  63 6F 6E 44 61 74 61 00  |..WORD IconData.|
000009E0: 2E 42 59 54 45 20 49 63  6F 6E 5F 58 5F 50 6F 73  |.BYTE Icon_X_Pos|
000009F0: 2B 33 2C 49 63 6F 6E 5F  59 5F 50 6F 73 2B 31 30  |+3,Icon_Y_Pos+10|
00000A00: 2A 38 2C 33 2C 31 36 00  2E 57 4F 52 44 20 44 4F  |*8,3,16..WORD DO|
00000A10: 45 4F 52 00 2E 57 4F 52  44 20 49 63 6F 6E 44 61  |EOR..WORD IconDa|
00000A20: 74 61 00 2E 42 59 54 45  20 49 63 6F 6E 5F 58 5F  |ta..BYTE Icon_X_|
00000A30: 50 6F 73 2B 36 2C 49 63  6F 6E 5F 59 5F 50 6F 73  |Pos+6,Icon_Y_Pos|
00000A40: 2B 31 30 2A 38 2C 33 2C  31 36 00 2E 57 4F 52 44  |+10*8,3,16..WORD|
00000A50: 20 44 4F 4F 52 41 00 3B  20 74 68 65 20 69 63 6F  | DOORA.; the ico|
00000A60: 6E 20 64 61 74 61 20 69  73 20 73 74 6F 72 65 64  |n data is stored|
00000A70: 20 69 6E 20 42 69 74 4D  61 70 55 70 20 66 6F 72  | in BitMapUp for|
00000A80: 6D 61 74 00 49 63 6F 6E  44 61 74 61 00 2E 42 59  |mat.IconData..BY|
00000A90: 54 45 20 31 32 38 2B 34  38 00 2E 42 79 74 65 20  |TE 128+48..Byte |
00000AA0: 24 46 46 2C 24 46 46 2C  24 46 43 00 2E 42 79 74  |$FF,$FF,$FC..Byt|
00000AB0: 65 20 31 32 38 2C 30 2C  31 32 2C 31 32 38 2C 30  |e 128,0,12,128,0|
00000AC0: 2C 31 32 2C 31 32 38 2C  30 2C 31 32 2C 31 32 38  |,12,128,0,12,128|
00000AD0: 2C 30 2C 31 32 2C 31 32  38 2C 30 2C 31 32 00 2E  |,0,12,128,0,12..|
00000AE0: 42 79 74 65 20 31 32 38  2C 30 2C 31 32 2C 31 32  |Byte 128,0,12,12|
00000AF0: 38 2C 30 2C 31 32 2C 31  32 38 2C 30 2C 31 32 00  |8,0,12,128,0,12.|
00000B00: 2E 42 79 74 65 20 31 32  38 2C 30 2C 31 32 2C 31  |.Byte 128,0,12,1|
00000B10: 32 38 2C 30 2C 31 32 2C  31 32 38 2C 30 2C 31 32  |28,0,12,128,0,12|
00000B20: 2C 31 32 38 2C 30 2C 31  32 00 2E 42 79 74 65 20  |,128,0,12..Byte |
00000B30: 24 46 46 2C 24 46 46 2C  24 46 43 00 2E 42 79 74  |$FF,$FF,$FC..Byt|
00000B40: 65 20 24 46 46 2C 24 46  46 2C 24 46 43 00 2E 42  |e $FF,$FF,$FC..B|
00000B50: 79 74 65 20 30 2C 30 2C  30 2C 30 2C 30 2C 30 00  |yte 0,0,0,0,0,0.|
00000B60: 3B 3D 3D 00 51 55 49 54  32 00 20 4C 44 41 20 23  |;==.QUIT2. LDA #|
00000B70: 31 35 00 20 4A 53 52 20  53 65 74 50 61 74 74 65  |15. JSR SetPatte|
00000B80: 72 6E 00 20 6A 73 72 20  69 5F 52 65 63 74 61 6E  |rn. jsr i_Rectan|
00000B90: 67 6C 65 00 20 2E 42 79  74 65 20 32 38 2D 31 32  |gle. .Byte 28-12|
00000BA0: 00 20 2E 42 79 74 65 20  32 38 2B 31 34 34 2B 31  |. .Byte 28+144+1|
00000BB0: 32 00 20 2E 57 6F 72 64  20 36 34 00 20 2E 57 6F  |2. .Word 64. .Wo|
00000BC0: 72 64 20 32 35 36 00 20  4C 44 41 20 23 24 46 46  |rd 256. LDA #$FF|
00000BD0: 00 20 4A 53 52 20 24 43  31 32 37 00 20 4C 44 41  |. JSR $C127. LDA|
00000BE0: 20 23 30 00 20 4A 53 52  20 53 65 74 50 61 74 74  | #0. JSR SetPatt|
00000BF0: 65 72 6E 00 20 6A 73 72  20 69 5F 52 65 63 74 61  |ern. jsr i_Recta|
00000C00: 6E 67 6C 65 00 20 2E 42  79 74 65 20 32 38 00 20  |ngle. .Byte 28. |
00000C10: 2E 42 79 74 65 20 32 38  2B 31 34 34 00 20 2E 57  |.Byte 28+144. .W|
00000C20: 6F 72 64 20 36 34 2B 31  36 00 20 2E 57 6F 72 64  |ord 64+16. .Word|
00000C30: 20 32 35 36 2D 31 36 00  20 4C 44 41 20 23 24 46  | 256-16. LDA #$F|
00000C40: 46 00 20 4A 53 52 20 24  43 31 32 37 00 4C 44 58  |F. JSR $C127.LDX|
00000C50: 20 23 3C 49 43 4F 4E 53  31 00 53 54 58 20 52 30  | #<ICONS1.STX R0|
00000C60: 00 4C 44 58 20 23 3E 49  43 4F 4E 53 31 00 53 54  |.LDX #>ICONS1.ST|
00000C70: 58 20 52 30 2B 31 00 4A  53 52 20 44 6F 49 63 6F  |X R0+1.JSR DoIco|
00000C80: 6E 73 20 3B 20 53 45 54  55 50 20 49 43 4F 4E 53  |ns ; SETUP ICONS|
00000C90: 00 6A 73 72 20 24 43 31  41 45 20 3B 20 69 70 75  |.jsr $C1AE ; ipu|
00000CA0: 74 73 74 72 69 6E 67 00  2E 57 6F 72 64 20 31 38  |tstring..Word 18|
00000CB0: 37 2B 31 36 2B 31 36 00  2E 42 79 74 65 20 31 35  |7+16+16..Byte 15|
00000CC0: 38 2B 37 00 2E 42 79 74  65 20 27 45 78 69 74 27  |8+7..Byte 'Exit'|
00000CD0: 2C 30 00 6A 73 72 20 24  43 31 41 45 00 2E 57 6F  |,0.jsr $C1AE..Wo|
00000CE0: 72 64 20 36 34 2B 31 36  2B 36 00 2E 42 79 74 65  |rd 64+16+6..Byte|
00000CF0: 20 32 38 2B 31 30 00 2E  42 79 74 65 20 32 34 00  | 28+10..Byte 24.|
00000D00: 2E 42 79 74 65 20 27 20  20 67 65 6F 48 65 78 43  |.Byte '  geoHexC|
00000D10: 61 6C 63 27 2C 32 37 2C  27 20 77 61 73 20 63 6F  |alc',27,' was co|
00000D20: 6D 70 6C 65 74 65 6C 79  27 2C 31 33 2C 32 30 00  |mpletely',13,20.|
00000D30: 2E 57 6F 72 64 20 36 34  2B 31 36 2B 36 00 2E 42  |.Word 64+16+6..B|
00000D40: 79 74 65 20 27 77 72 69  74 74 65 6E 20 77 69 74  |yte 'written wit|
00000D50: 68 69 6E 20 74 68 65 20  47 45 4F 53 27 2C 31 33  |hin the GEOS',13|
00000D60: 2C 32 30 00 2E 57 6F 72  64 20 36 34 2B 31 36 2B  |,20..Word 64+16+|
00000D70: 36 00 2E 42 79 74 65 20  27 65 6E 76 69 72 6F 6E  |6..Byte 'environ|
00000D80: 6D 65 6E 74 20 75 73 69  6E 67 20 27 2C 32 34 2C  |ment using ',24,|
00000D90: 27 67 65 6F 43 4F 50 45  2E 27 2C 31 33 2C 32 30  |'geoCOPE.',13,20|
00000DA0: 00 2E 57 6F 72 64 20 36  34 2B 31 36 2B 36 00 2E  |..Word 64+16+6..|
00000DB0: 42 79 74 65 20 27 67 65  6F 43 4F 50 45 27 2C 32  |Byte 'geoCOPE',2|
00000DC0: 37 2C 27 20 69 73 20 61  6E 20 41 73 73 65 6D 62  |7,' is an Assemb|
00000DD0: 6C 65 72 2F 45 64 69 74  6F 72 27 2C 31 33 2C 32  |ler/Editor',13,2|
00000DE0: 30 00 2E 57 6F 72 64 20  36 34 2B 31 36 2B 36 00  |0..Word 64+16+6.|
00000DF0: 2E 42 79 74 65 20 27 70  61 63 6B 61 67 65 20 66  |.Byte 'package f|
00000E00: 6F 72 20 6D 61 63 68 69  6E 65 20 6C 61 6E 67 75  |or machine langu|
00000E10: 61 67 65 20 27 2C 31 33  2C 32 30 00 2E 57 6F 72  |age ',13,20..Wor|
00000E20: 64 20 36 34 2B 31 36 2B  36 00 2E 42 79 74 65 20  |d 64+16+6..Byte |
00000E30: 27 70 72 6F 67 72 61 6D  6D 65 72 73 2E 20 20 53  |'programmers.  S|
00000E40: 65 65 20 74 68 65 20 67  65 6F 57 72 69 74 65 27  |ee the geoWrite'|
00000E50: 2C 31 33 2C 32 30 00 2E  57 6F 72 64 20 36 34 2B  |,13,20..Word 64+|
00000E60: 31 36 2B 36 00 2E 42 79  74 65 20 27 66 69 6C 65  |16+6..Byte 'file|
00000E70: 20 66 6F 72 20 6D 6F 72  65 20 69 6E 66 6F 72 6D  | for more inform|
00000E80: 61 74 69 6F 6E 2E 27 2C  31 33 2C 31 33 2C 32 30  |ation.',13,13,20|
00000E90: 00 2E 57 6F 72 64 20 36  34 2B 31 36 2B 36 00 2E  |..Word 64+16+6..|
00000EA0: 42 79 74 65 20 32 34 2C  27 67 65 6F 43 4F 50 45  |Byte 24,'geoCOPE|
00000EB0: 20 69 73 20 61 76 61 69  6C 61 62 6C 65 20 66 6F  | is available fo|
00000EC0: 72 27 2C 31 33 2C 32 30  00 2E 57 6F 72 64 20 36  |r',13,20..Word 6|
00000ED0: 34 2B 31 36 2B 36 00 2E  42 79 74 65 20 27 6F 6E  |4+16+6..Byte 'on|
00000EE0: 6C 79 20 24 31 39 2E 39  35 20 66 72 6F 6D 3A 27  |ly $19.95 from:'|
00000EF0: 2C 31 33 2C 31 33 2C 32  30 00 2E 57 6F 72 64 20  |,13,13,20..Word |
00000F00: 36 34 2B 31 36 2B 36 00  2E 42 79 74 65 20 27 42  |64+16+6..Byte 'B|
00000F10: 69 6C 6C 20 53 68 61 72  70 20 43 6F 6D 70 75 74  |ill Sharp Comput|
00000F20: 69 6E 67 27 2C 31 33 2C  32 30 00 2E 57 6F 72 64  |ing',13,20..Word|
00000F30: 20 36 34 2B 31 36 2B 36  00 2E 42 79 74 65 20 27  | 64+16+6..Byte '|
00000F40: 50 2E 4F 2E 20 42 6F 78  20 37 35 33 33 27 2C 31  |P.O. Box 7533',1|
00000F50: 33 2C 32 30 00 2E 57 6F  72 64 20 36 34 2B 31 36  |3,20..Word 64+16|
00000F60: 2B 36 00 2E 42 79 74 65  20 27 57 61 63 6F 2C 20  |+6..Byte 'Waco, |
00000F70: 54 58 20 37 36 37 31 34  27 2C 32 37 2C 30 00 52  |TX 76714',27,0.R|
00000F80: 54 53 00 3B 2D 2D 2D 2D  2D 2D 2D 00 49 43 4F 4E  |TS.;-------.ICON|
00000F90: 53 31 00 2E 42 59 54 45  20 31 00 2E 57 4F 52 44  |S1..BYTE 1..WORD|
00000FA0: 20 31 37 36 2B 31 36 00  2E 42 59 54 45 20 31 35  | 176+16..BYTE 15|
00000FB0: 36 00 2E 57 4F 52 44 20  49 63 6F 6E 44 61 74 61  |6..WORD IconData|
00000FC0: 00 2E 42 59 54 45 20 32  37 2C 31 35 36 2C 33 2C  |..BYTE 27,156,3,|
00000FD0: 31 36 00 2E 57 4F 52 44  20 45 78 69 74 48 65 72  |16..WORD ExitHer|
00000FE0: 65 00 3B 2D 2D 2D 2D 2D  2D 2D 00 45 78 69 74 48  |e.;-------.ExitH|
00000FF0: 65 72 65 00 6C 64 61 20  52 65 63 6F 76 65 72 46  |ere.lda RecoverF|
00001000: 6C 61 67 00 20 62 70 6C  20 51 55 4F 4B 00 20 6A  |lag. bpl QUOK. j|
00001010: 73 72 20 69 5F 52 65 63  6F 76 65 72 52 65 63 74  |sr i_RecoverRect|
00001020: 61 6E 67 6C 65 00 20 2E  42 79 74 65 20 32 38 2D  |angle. .Byte 28-|
00001030: 31 32 00 20 2E 42 79 74  65 20 32 38 2B 31 34 34  |12. .Byte 28+144|
00001040: 2B 31 32 00 20 2E 57 6F  72 64 20 36 34 00 20 2E  |+12. .Word 64. .|
00001050: 57 6F 72 64 20 32 35 36  00 51 55 4F 4B 00 20 6C  |Word 256.QUOK. l|
00001060: 64 61 20 42 75 66 44 69  73 70 6C 61 79 00 20 73  |da BufDisplay. s|
00001070: 74 61 20 24 32 46 00 20  6C 64 61 20 23 3C 52 73  |ta $2F. lda #<Rs|
00001080: 74 72 41 70 70 6C 00 20  73 74 61 20 24 38 34 39  |trAppl. sta $849|
00001090: 42 00 20 6C 64 61 20 23  3E 52 73 74 72 41 70 70  |B. lda #>RstrApp|
000010A0: 6C 00 20 73 74 61 20 24  38 34 39 43 00 20 52 54  |l. sta $849C. RT|
000010B0: 53 00 42 75 66 44 69 73  70 6C 61 79 20 2E 42 79  |S.BufDisplay .By|
000010C0: 74 65 20 31 32 38 00 3B  2D 2D 2D 2D 2D 2D 00 63  |te 128.;------.c|
000010D0: 6C 72 53 63 72 65 65 6E  00 20 4C 44 41 20 23 32  |lrScreen. LDA #2|
000010E0: 00 20 4A 53 52 20 53 65  74 50 61 74 74 65 72 6E  |. JSR SetPattern|
000010F0: 00 20 6A 73 72 20 69 5F  52 65 63 74 61 6E 67 6C  |. jsr i_Rectangl|
00001100: 65 00 20 2E 42 79 74 65  20 32 38 00 20 2E 42 79  |e. .Byte 28. .By|
00001110: 74 65 20 32 38 2B 31 34  34 00 20 2E 57 6F 72 64  |te 28+144. .Word|
00001120: 20 31 31 32 2D 34 00 20  2E 57 6F 72 64 20 31 31  | 112-4. .Word 11|
00001130: 32 2B 31 32 30 2B 34 00  20 4C 44 41 20 23 24 46  |2+120+4. LDA #$F|
00001140: 46 00 20 4A 53 52 20 24  43 31 32 37 00 3B 00 20  |F. JSR $C127.;. |
00001150: 6A 73 72 20 69 5F 46 72  61 6D 65 52 65 63 74 61  |jsr i_FrameRecta|
00001160: 6E 67 6C 65 00 20 2E 42  79 74 65 20 32 37 00 20  |ngle. .Byte 27. |
00001170: 2E 42 79 74 65 20 32 38  2B 31 34 34 2B 31 00 20  |.Byte 28+144+1. |
00001180: 2E 57 6F 72 64 20 31 31  32 2D 34 2D 31 00 20 2E  |.Word 112-4-1. .|
00001190: 57 6F 72 64 20 31 31 32  2B 31 32 30 2B 34 2B 31  |Word 112+120+4+1|
000011A0: 00 20 2E 42 79 74 65 20  32 35 35 00 20 6A 73 72  |. .Byte 255. jsr|
000011B0: 20 69 5F 46 72 61 6D 65  52 65 63 74 61 6E 67 6C  | i_FrameRectangl|
000011C0: 65 00 20 2E 42 79 74 65  20 32 36 00 20 2E 42 79  |e. .Byte 26. .By|
000011D0: 74 65 20 32 38 2B 31 34  34 2B 32 00 20 2E 57 6F  |te 28+144+2. .Wo|
000011E0: 72 64 20 31 31 32 2D 34  2D 32 00 20 2E 57 6F 72  |rd 112-4-2. .Wor|
000011F0: 64 20 31 31 32 2B 31 32  30 2B 34 2B 32 00 20 2E  |d 112+120+4+2. .|
00001200: 42 79 74 65 20 32 35 35  00 20 6A 73 72 20 69 5F  |Byte 255. jsr i_|
00001210: 46 72 61 6D 65 52 65 63  74 61 6E 67 6C 65 00 20  |FrameRectangle. |
00001220: 2E 42 79 74 65 20 32 35  00 20 2E 42 79 74 65 20  |.Byte 25. .Byte |
00001230: 32 38 2B 31 34 34 2B 33  00 20 2E 57 6F 72 64 20  |28+144+3. .Word |
00001240: 31 31 32 2D 34 2D 33 00  20 2E 57 6F 72 64 20 31  |112-4-3. .Word 1|
00001250: 31 32 2B 31 32 30 2B 34  2B 33 00 20 2E 42 79 74  |12+120+4+3. .Byt|
00001260: 65 20 32 35 35 00 20 4C  44 41 20 23 30 00 20 4A  |e 255. LDA #0. J|
00001270: 53 52 20 53 65 74 50 61  74 74 65 72 6E 00 3B 52  |SR SetPattern.;R|
00001280: 54 53 00 52 54 53 00 00                           |TS.RTS..        |

; ===.; EDITER FOR GEOS ASSEMBLER.;  BY 
BILL SHARP.;===.START. LDA R10. STA RECO
VERFLAG. LDA $2F. STA BUFDISPLAY. LDA #1
28. STA $2F. JSR NEWDISK. JSR MOUSEUP. J
SR CLRSCREEN.LDX #<ICONS.STX R0.LDX #>IC
ONS.STX R0+1.JSR DOICONS ; SETUP ICONS. 
JSR TEXTSTRINGS. JSR CLEARALL. LDA #<OUR
GETSTRING. STA $84A3. LDA #>OURGETSTRING
. STA $84A4. LDA #26. STA KEYPRESS. JSR 
SWCHMODE2. LDA #0. STA KEYINLEN. RTS.REC
OVERFLAG .BYTE 0.ICON_X_POS = 14.ICON_Y_
POS = 52.; ==.; ICON EXECUTION ROUTINE.I
CONS..BYTE 31..WORD 160..BYTE 48+48..WOR
D ICONDATA..BYTE ICON_X_POS,ICON_Y_POS+6
*8,3,16..WORD ICONCALL..WORD ICONDATA..B
YTE ICON_X_POS,ICON_Y_POS+4*8,3,16..WORD
 ICONCALL..WORD ICONDATA..BYTE ICON_X_PO
S+3,ICON_Y_POS+4*8,3,16..WORD ICONCALL..
WORD ICONDATA..BYTE ICON_X_POS+6,ICON_Y_
POS+4*8,3,16..WORD ICONCALL..WORD ICONDA
TA..BYTE ICON_X_POS,ICON_Y_POS+2*8,3,16.
.WORD ICONCALL..WORD ICONDATA..BYTE ICON
_X_POS+3,ICON_Y_POS+2*8,3,16..WORD ICONC
ALL..WORD ICONDATA..BYTE ICON_X_POS+6,IC
ON_Y_POS+2*8,3,16..WORD ICONCALL..WORD I
CONDATA..BYTE ICON_X_POS,ICON_Y_POS,3,16
..WORD ICONCALL.;2..WORD ICONDATA..BYTE 
ICON_X_POS+3,ICON_Y_POS,3,16..WORD ICONC
ALL..WORD ICONDATA..BYTE ICON_X_POS+6,IC
ON_Y_POS,3,16..WORD ICONCALL..WORD ICOND
ATA..BYTE ICON_X_POS+3,ICON_Y_POS+6*8,3,
16..WORD ICONCALL..WORD ICONDATA..BYTE I
CON_X_POS+6,ICON_Y_POS+6*8,3,16..WORD IC
ONCALL..WORD ICONDATA..BYTE ICON_X_POS+9
,ICON_Y_POS+6*8,3,16..WORD ICONCALL..WOR
D ICONDATA..BYTE ICON_X_POS+9,ICON_Y_POS
+4*8,3,16..WORD ICONCALL..WORD ICONDATA.
.BYTE ICON_X_POS+9,ICON_Y_POS+2*8,3,16..
WORD ICONCALL..WORD ICONDATA..BYTE ICON_
X_POS+9,ICON_Y_POS,3,16..WORD ICONCALL.;
*************************..WORD ICONDATA
..BYTE ICON_X_POS,ICON_Y_POS+12*8,3,16..
WORD CLEAR..WORD ICONDATA..BYTE ICON_X_P
OS+3,ICON_Y_POS+12*8,3,16..WORD CLEARALL
..WORD ICONDATA..BYTE ICON_X_POS+6,ICON_
Y_POS+12*8,3,16..WORD DELETE..WORD ICOND
ATA..BYTE ICON_X_POS+9,ICON_Y_POS+12*8,3
,16..WORD QUIT2..WORD ICONDATA..BYTE ICO
N_X_POS+12,ICON_Y_POS,3,16..WORD DIVIDE.
.WORD ICONDATA..BYTE ICON_X_POS+12,ICON_
Y_POS+2*8,3,16..WORD MULTIPLY..WORD ICON
DATA..BYTE ICON_X_POS+12,ICON_Y_POS+4*8,
3,16..WORD SUBTRACT..WORD ICONDATA..BYTE
 ICON_X_POS+12,ICON_Y_POS+6*8,3,16..WORD
 ADD..WORD ICONDATA..BYTE ICON_X_POS+12,
ICON_Y_POS+8*8,3,16..WORD EQUAL..WORD IC
ONDATA..BYTE ICON_X_POS+06,ICON_Y_POS+8*
8,3,16..WORD SWITCHMODE..WORD ICONDATA..
BYTE ICON_X_POS+03,ICON_Y_POS+8*8,3,16..
WORD SWITCHMODE..WORD ICONDATA..BYTE ICO
N_X_POS+00,ICON_Y_POS+8*8,3,16..WORD SWI
TCHMODE..WORD ICONDATA..BYTE ICON_X_POS,
ICON_Y_POS+10*8,3,16..WORD DOAND..WORD I
CONDATA..BYTE ICON_X_POS+3,ICON_Y_POS+10
*8,3,16..WORD DOEOR..WORD ICONDATA..BYTE
 ICON_X_POS+6,ICON_Y_POS+10*8,3,16..WORD
 DOORA.; THE ICON DATA IS STORED IN BITM
APUP FORMAT.ICONDATA..BYTE 128+48..BYTE 
$FF,$FF,$FC..BYTE 128,0,12,128,0,12,128,
0,12,128,0,12,128,0,12..BYTE 128,0,12,12
8,0,12,128,0,12..BYTE 128,0,12,128,0,12,
128,0,12,128,0,12..BYTE $FF,$FF,$FC..BYT
E $FF,$FF,$FC..BYTE 0,0,0,0,0,0.;==.QUIT
2. LDA #15. JSR SETPATTERN. JSR I_RECTAN
GLE. .BYTE 28-12. .BYTE 28+144+12. .WORD
 64. .WORD 256. LDA #$FF. JSR $C127. LDA
 #0. JSR SETPATTERN. JSR I_RECTANGLE. .B
YTE 28. .BYTE 28+144. .WORD 64+16. .WORD
 256-16. LDA #$FF. JSR $C127.LDX #<ICONS
1.STX R0.LDX #>ICONS1.STX R0+1.JSR DOICO
NS ; SETUP ICONS.JSR $C1AE ; IPUTSTRING.
.WORD 187+16+16..BYTE 158+7..BYTE 'EXIT'
,0.JSR $C1AE..WORD 64+16+6..BYTE 28+10..
BYTE 24..BYTE '  GEOHEXCALC',27,' WAS CO
MPLETELY',13,20..WORD 64+16+6..BYTE 'WRI
TTEN WITHIN THE GEOS',13,20..WORD 64+16+
6..BYTE 'ENVIRONMENT USING ',24,'GEOCOPE
.',13,20..WORD 64+16+6..BYTE 'GEOCOPE',2
7,' IS AN ASSEMBLER/EDITOR',13,20..WORD 
64+16+6..BYTE 'PACKAGE FOR MACHINE LANGU
AGE ',13,20..WORD 64+16+6..BYTE 'PROGRAM
MERS.  SEE THE GEOWRITE',13,20..WORD 64+
16+6..BYTE 'FILE FOR MORE INFORMATION.',
13,13,20..WORD 64+16+6..BYTE 24,'GEOCOPE
 IS AVAILABLE FOR',13,20..WORD 64+16+6..
BYTE 'ONLY $19.95 FROM:',13,13,20..WORD 
64+16+6..BYTE 'BILL SHARP COMPUTING',13,
20..WORD 64+16+6..BYTE 'P.O. BOX 7533',1
3,20..WORD 64+16+6..BYTE 'WACO, TX 76714
',27,0.RTS.;-------.ICONS1..BYTE 1..WORD
 176+16..BYTE 156..WORD ICONDATA..BYTE 2
7,156,3,16..WORD EXITHERE.;-------.EXITH
ERE.LDA RECOVERFLAG. BPL QUOK. JSR I_REC
OVERRECTANGLE. .BYTE 28-12. .BYTE 28+144
+12. .WORD 64. .WORD 256.QUOK. LDA BUFDI
SPLAY. STA $2F. LDA #<RSTRAPPL. STA $849
B. LDA #>RSTRAPPL. STA $849C. RTS.BUFDIS
PLAY .BYTE 128.;------.CLRSCREEN. LDA #2
. JSR SETPATTERN. JSR I_RECTANGLE. .BYTE
 28. .BYTE 28+144. .WORD 112-4. .WORD 11
2+120+4. LDA #$FF. JSR $C127.;. JSR I_FR
AMERECTANGLE. .BYTE 27. .BYTE 28+144+1. 
.WORD 112-4-1. .WORD 112+120+4+1. .BYTE 
255. JSR I_FRAMERECTANGLE. .BYTE 26. .BY
TE 28+144+2. .WORD 112-4-2. .WORD 112+12
0+4+2. .BYTE 255. JSR I_FRAMERECTANGLE. 
.BYTE 25. .BYTE 28+144+3. .WORD 112-4-3.
 .WORD 112+120+4+3. .BYTE 255. LDA #0. J
SR SETPATTERN.;RTS.RTS..

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL