GGIMAGSAMPLE.ASM

FILE INFORMATION

FILENAME(S): GGIMAGSAMPLE.ASM

FILE TYPE(S): PRG

FILE SIZE: 2.8K

FIRST SEEN: 2025-11-30 16:59:22

APPEARS ON: 2 disk(s)

FILE HASH

45913f77c7010aea5829f096930e3f494e414a9dfbe8d80a3067bf4a4a91c0c6

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FCIII-SW	GGIMAGSAMPLE.ASM	PRG	High Voltage Complete C64 Collection	21	1	DOWNLOAD FILE
A	GGIMAGSAMPLE.ASM	PRG	marcus	12	17	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 25 08 E8 03 3B 20  47 47 49 4D 41 47 45 53  |..%...; GGIMAGES|
00000010: 41 4D 50 4C 45 20 20 44  41 54 45 3A 20 31 30 AB  |AMPLE  DATE: 10.|
00000020: 30 33 AB 38 38 00 4C 08  F2 03 3B AB AB AB AB AB  |03.88.L...;.....|
00000030: AB AB AB AB AB AB AB AB  AB AB AB AB AB AB AB AB  |................|
00000040: AB AB AB AB AB AB AB AB  AB AB AB AB 00 52 08 FC  |.............R..|
00000050: 03 3B 00 77 08 06 04 3B  20 54 48 45 20 46 49 4E  |.;.w...; THE FIN|
00000060: 41 4C 20 43 41 52 54 52  49 44 47 45 20 49 49 49  |AL CARTRIDGE III|
00000070: 20 44 45 53 4B A4 50 00  7D 08 10 04 3B 00 9F 08  | DESK.P.}...;...|
00000080: 1A 04 3B 20 20 20 20 20  52 49 53 4B 41 20 48 26  |..;     RISKA H&|
00000090: 50 2C 20 4D 41 52 43 20  44 45 52 4B 53 45 4E 00  |P, MARC DERKSEN.|
000000A0: A5 08 24 04 3B 00 C7 08  2E 04 3B 20 20 20 20 20  |..$.;.....;     |
000000B0: 50 20 52 20 4F 20 4A 20  45 20 43 20 54 20 20 20  |P R O J E C T   |
000000C0: 44 20 45 20 4D 20 4F 00  CD 08 38 04 3B 00 F4 08  |D E M O...8.;...|
000000D0: 42 04 3B AB AB AB AB AB  AB AB AB AB AB AB AB AB  |B.;.............|
000000E0: AB AB AB AB AB AB AB AB  AB AB AB AB AB AB AB AB  |................|
000000F0: AB AB AB AB 00 FA 08 4C  04 3B 00 0C 09 56 04 AC  |.......L.;...V..|
00000100: B2 24 30 42 45 31 2C 24  30 38 30 31 00 19 09 60  |.$0BE1,$0801...`|
00000110: 04 42 55 46 30 B2 24 41  33 00 26 09 6A 04 42 55  |.BUF0.$A3.&.j.BU|
00000120: 46 31 B2 24 41 34 00 41  09 74 04 8D B2 24 44 45  |F1.$A4.A.t...$DE|
00000130: 30 35 20 20 3B 20 9E 54  45 4D 20 43 91 53 C0 54  |05  ; .TEM C.S.T|
00000140: 53 00 4B 09 7E 04 A0 B2  24 30 31 00 59 09 88 04  |S.K.~...$01.Y...|
00000150: A4 42 41 43 4B B2 24 30  32 00 68 09 92 04 44 52  |.BACK.$02.h...DR|
00000160: 41 47 42 52 B2 24 30 38  00 77 09 9C 04 49 4E 56  |AGBR.$08.w...INV|
00000170: 45 52 54 B2 24 30 31 00  87 09 A6 04 52 45 4C 45  |ERT.$01.....RELE|
00000180: 41 53 45 B2 24 31 30 00  8D 09 B0 04 3B 00 AF 09  |ASE.$10.....;...|
00000190: BA 04 3B AB AB AB AB AB  AB 20 42 41 53 49 43 20  |..;...... BASIC |
000001A0: 53 54 41 52 54 55 50 20  83 20 2D 2D 2D 2D 2D 00  |STARTUP . -----.|
000001B0: D0 09 C4 04 57 B0 20 24  30 38 31 37 2C 31 39 38  |....W. $0817,198|
000001C0: 37 20 20 3B 20 4C 49 4E  45 20 4E 55 4D 42 45 52  |7  ; LINE NUMBER|
000001D0: 00 EC 09 CE 04 42 59 54  20 24 39 45 20 20 3B 20  |.....BYT $9E  ; |
000001E0: 42 41 53 49 43 20 9E AB  43 4F 44 45 00 0D 0A D8  |BASIC ..CODE....|
000001F0: 04 42 59 54 20 22 32 30  37 36 20 44 45 53 4B A4  |.BYT "2076 DESK.|
00000200: 50 20 56 31 2E 30 22 2C  30 2C 30 2C 30 00 23 0A  |P V1.0",0,0,0.#.|
00000210: E2 04 42 59 54 20 31 2C  30 20 20 3B 20 56 45 52  |..BYT 1,0  ; VER|
00000220: 53 49 91 00 3F 0A EC 04  42 59 54 20 32 20 20 3B  |SI..?...BYT 2  ;|
00000230: 20 53 49 5A 45 20 49 4E  20 42 4C 4F 43 4B 53 00  | SIZE IN BLOCKS.|
00000240: 58 0A F6 04 4A 4D 50 20  24 44 46 45 38 20 20 3B  |X...JMP $DFE8  ;|
00000250: 20 53 54 41 52 54 55 50  00 6C 0A 00 05 42 59 54  | STARTUP.l...BYT|
00000260: 20 30 20 20 3B 20 55 4E  55 53 45 44 00 72 0A 0A  | 0  ; UNUSED.r..|
00000270: 05 3B 00 83 0A 14 05 4D  4E 33 49 54 31 B2 24 43  |.;.....MN3IT1.$C|
00000280: 30 43 32 00 94 0A 1E 05  4D 4E 33 49 54 32 B2 24  |0C2.....MN3IT2.$|
00000290: 43 30 43 41 00 B8 0A 28  05 3B AB AB AB AB AB AB  |C0CA...(.;......|
000002A0: 20 4D 41 49 4E 20 AB AB  AB AB AB AB AB AB AB AB  | MAIN ..........|
000002B0: AB AB AB AB AB AB AB AB  00 CE 0A 32 05 53 54 41  |...........2.STA|
000002C0: 52 54 20 4A 53 52 20 53  55 52 56 49 56 45 00 EC  |RT JSR SURVIVE..|
000002D0: 0A 3C 05 4C 44 58 20 23  B3 49 54 45 4D 32 20 20  |.<.LDX #.ITEM2  |
000002E0: 3B 20 53 45 54 20 A2 20  4D 45 4E 55 00 FC 0A 46  |; SET . MENU...F|
000002F0: 05 4C 44 59 20 23 B1 49  54 45 4D 32 00 0B 0B 50  |.LDY #.ITEM2...P|
00000300: 05 53 54 58 20 4D 4E 33  49 54 31 00 1C 0B 5A 05  |.STX MN3IT1...Z.|
00000310: 53 54 59 20 4D 4E 33 49  54 31 AA 31 00 24 0B 64  |STY MN3IT1.1.$.d|
00000320: 05 52 54 53 00 2A 0B 6E  05 3B 00 4D 0B 78 05 3B  |.RTS.*.n.;.M.x.;|
00000330: AB AB AB AB AB AB 20 4D  45 4E 55 49 54 45 4D 20  |...... MENUITEM |
00000340: 53 54 52 55 43 54 55 52  45 20 AB AB AB 00 69 0B  |STRUCTURE ....i.|
00000350: 82 05 49 54 45 4D 32 20  57 B0 20 49 54 45 4D 33  |..ITEM2 W. ITEM3|
00000360: 20 20 3B 20 82 49 54 45  4D 00 84 0B 8C 05 57 B0  |  ; .ITEM.....W.|
00000370: 20 49 54 32 54 58 54 20  20 3B 20 49 54 45 4D 20  | IT2TXT  ; ITEM |
00000380: 4E 41 4D 45 00 9C 0B 96  05 57 B0 20 9F 57 44 20  |NAME.....W. .WD |
00000390: 20 3B 20 49 54 45 4D 20  45 58 45 43 00 B7 0B A0  | ; ITEM EXEC....|
000003A0: 05 42 59 54 20 31 2C 30  20 20 3B 20 45 4E 41 42  |.BYT 1,0  ; ENAB|
000003B0: 4C 45 20 49 54 45 4D 00  D2 0B AA 05 49 54 45 4D  |LE ITEM.....ITEM|
000003C0: 33 20 57 B0 20 30 20 20  3B 20 4E 4F 20 82 49 54  |3 W. 0  ; NO .IT|
000003D0: 45 4D 00 E0 0B B4 05 57  B0 20 49 54 33 54 58 54  |EM.....W. IT3TXT|
000003E0: 00 EE 0B BE 05 57 B0 20  55 4E 4C 49 4E 4B 00 FA  |.....W. UNLINK..|
000003F0: 0B C8 05 42 59 54 20 31  2C 30 00 00 0C D2 05 3B  |...BYT 1,0.....;|
00000400: 00 1B 0C DC 05 49 54 32  54 58 54 20 42 59 54 20  |.....IT2TXT BYT |
00000410: 22 C4 C5 CD CF A0 D7 C4  22 2C 30 00 35 0C E6 05  |".......",0.5...|
00000420: 49 54 33 54 58 54 20 42  59 54 20 22 D5 CE CC C9  |IT3TXT BYT "....|
00000430: CE CB 22 2C 30 00 3B 0C  F0 05 3B 00 56 0C FA 05  |..",0.;...;.V...|
00000440: 47 47 46 4C 41 47 53 B2  49 4E 56 45 52 54 AA 52  |GGFLAGS.INVERT.R|
00000450: 45 4C 45 41 53 45 00 79  0C 04 06 3B AB AB AB AB  |ELEASE.y...;....|
00000460: AB AB 20 57 49 4E 44 4F  57 20 AB AB AB AB AB AB  |.. WINDOW ......|
00000470: AB AB AB AB AB AB AB AB  AB 00 9A 0C 0E 06 9F 57  |...............W|
00000480: 44 20 4C 44 58 20 23 B3  57 49 4E 44 4F 57 20 20  |D LDX #.WINDOW  |
00000490: 3B 20 43 41 4C 4C 20 9F  57 44 00 AB 0C 18 06 4C  |; CALL .WD.....L|
000004A0: 44 59 20 23 B1 57 49 4E  44 4F 57 00 BC 0C 22 06  |DY #.WINDOW...".|
000004B0: 4C 44 41 20 23 9F 57 49  4E 44 4F 57 00 C6 0C 2C  |LDA #.WINDOW...,|
000004C0: 06 4A 4D 50 20 8D 00 CC  0C 36 06 3B 00 ED 0C 40  |.JMP ....6.;...@|
000004D0: 06 57 49 4E 44 4F 57 20  57 B0 20 47 41 44 A1 20  |.WINDOW W. GAD. |
000004E0: 20 3B 20 46 49 52 53 54  20 47 41 44 A1 00 06 0D  | ; FIRST GAD....|
000004F0: 4A 06 42 59 54 20 34 30  2C 34 30 20 20 3B 20 57  |J.BYT 40,40  ; W|
00000500: 44 58 2C 57 44 59 00 25  0D 54 06 42 59 54 20 31  |DX,WDY.%.T.BYT 1|
00000510: 31 30 2C 35 30 20 20 3B  20 57 49 44 54 48 2C 48  |10,50  ; WIDTH,H|
00000520: 45 49 47 48 54 00 43 0D  5E 06 57 B0 20 57 44 54  |EIGHT.C.^.W. WDT|
00000530: 49 54 4C 45 20 20 3B 20  57 49 4E 44 4F 57 20 4E  |ITLE  ; WINDOW N|
00000540: 41 4D 45 00 65 0D 68 06  42 59 54 20 A0 AA A4 42  |AME.e.h.BYT ...B|
00000550: 41 43 4B AA 44 52 41 47  42 52 20 20 3B 20 57 44  |ACK.DRAGBR  ; WD|
00000560: 46 4C 41 47 53 00 80 0D  72 06 42 59 54 20 36 36  |FLAGS...r.BYT 66|
00000570: 20 20 3B 20 57 44 54 49  54 4C 45 20 53 49 5A 45  |  ; WDTITLE SIZE|
00000580: 00 8B 0D 7C 06 57 B0 20  30 2C 30 00 91 0D 86 06  |...|.W. 0,0.....|
00000590: 3B 00 A9 0D 90 06 47 41  44 A1 20 57 B0 20 30 20  |;.....GAD. W. 0 |
000005A0: 20 3B 20 82 20 47 41 44  A1 00 C2 0D 9A 06 42 59  | ; . GAD......BY|
000005B0: 54 20 32 34 2C 32 30 20  20 3B 20 47 47 58 2C 47  |T 24,20  ; GGX,G|
000005C0: 47 59 00 E0 0D A4 06 42  59 54 20 32 39 2C 31 38  |GY.....BYT 29,18|
000005D0: 20 20 3B 20 57 49 44 54  48 2C 48 45 49 47 48 54  |  ; WIDTH,HEIGHT|
000005E0: 00 FB 0D AE 06 57 B0 20  47 47 54 45 58 54 20 20  |.....W. GGTEXT  |
000005F0: 3B 20 47 41 44 A1 20 54  45 58 54 00 19 0E B8 06  |; GAD. TEXT.....|
00000600: 42 59 54 20 47 47 46 4C  41 47 53 20 20 3B 20 47  |BYT GGFLAGS  ; G|
00000610: 41 44 A1 20 46 4C 41 47  53 00 36 0E C2 06 57 B0  |AD. FLAGS.6...W.|
00000620: 20 30 2C 47 47 45 58 45  43 20 20 3B 20 47 41 44  | 0,GGEXEC  ; GAD|
00000630: A1 20 45 58 45 43 00 55  0E CC 06 57 B0 20 47 47  |. EXEC.U...W. GG|
00000640: 49 4D 41 47 45 20 20 3B  20 47 41 44 A1 20 83 20  |IMAGE  ; GAD. . |
00000650: 49 4D 41 47 45 00 5B 0E  D6 06 3B 00 79 0E E0 06  |IMAGE.[...;.y...|
00000660: 57 44 54 49 54 4C 45 20  42 59 54 20 22 CD 59 20  |WDTITLE BYT ".Y |
00000670: D7 49 4E 44 4F 57 22 2C  30 00 9A 0E EA 06 47 47  |.INDOW",0.....GG|
00000680: 54 45 58 54 20 42 59 54  20 33 37 2C 31 30 2C 31  |TEXT BYT 37,10,1|
00000690: 2C 22 C9 CD C1 C7 C5 22  2C 30 00 BC 0E F4 06 47  |,".....",0.....G|
000006A0: 47 49 4D 41 47 45 20 42  59 54 20 32 2C 32 2C B3  |GIMAGE BYT 2,2,.|
000006B0: 49 4D 44 41 54 2C B1 49  4D 44 41 54 00 C2 0E FE  |IMDAT,.IMDAT....|
000006C0: 06 3B 00 DE 0E 08 07 49  4D 44 41 54 20 42 59 54  |.;.....IMDAT BYT|
000006D0: 20 32 36 AB 31 2C 31 35  AB 31 2C 37 2C 34 00 04  | 26.1,15.1,7,4..|
000006E0: 0F 12 07 42 59 54 20 24  45 30 2C 24 46 31 2C 24  |...BYT $E0,$F1,$|
000006F0: 46 46 2C 24 43 30 2C 24  41 30 2C 24 39 31 2C 30  |FF,$C0,$A0,$91,0|
00000700: 2C 24 34 30 00 2A 0F 1C  07 42 59 54 20 24 41 30  |,$40.*...BYT $A0|
00000710: 2C 24 39 31 2C 24 37 45  2C 36 34 2C 24 41 30 2C  |,$91,$7E,64,$A0,|
00000720: 24 39 31 2C 24 34 32 2C  36 34 00 50 0F 26 07 42  |$91,$42,64.P.&.B|
00000730: 59 54 20 24 41 30 2C 24  39 31 2C 24 34 32 2C 36  |YT $A0,$91,$42,6|
00000740: 34 2C 24 41 30 2C 24 39  31 2C 24 34 32 2C 36 34  |4,$A0,$91,$42,64|
00000750: 00 76 0F 30 07 42 59 54  20 24 42 46 2C 24 39 31  |.v.0.BYT $BF,$91|
00000760: 2C 24 37 45 2C 24 34 30  2C 24 38 30 2C 24 31 31  |,$7E,$40,$80,$11|
00000770: 2C 30 2C 24 34 30 00 9C  0F 3A 07 42 59 54 20 24  |,0,$40...:.BYT $|
00000780: 39 46 2C 24 44 31 2C 24  33 46 2C 24 43 30 2C 24  |9F,$D1,$3F,$C0,$|
00000790: 39 30 2C 24 35 31 2C 24  32 30 2C 30 00 C2 0F 44  |90,$51,$20,0...D|
000007A0: 07 42 59 54 20 24 39 30  2C 24 35 31 2C 24 32 30  |.BYT $90,$51,$20|
000007B0: 2C 24 30 30 2C 24 39 30  2C 24 35 35 2C 24 32 30  |,$00,$90,$55,$20|
000007C0: 2C 30 00 E8 0F 4E 07 42  59 54 20 24 39 30 2C 24  |,0...N.BYT $90,$|
000007D0: 35 46 2C 24 32 30 2C 24  30 30 2C 24 39 30 2C 24  |5F,$20,$00,$90,$|
000007E0: 35 35 2C 24 32 30 2C 30  00 00 10 58 07 42 59 54  |55,$20,0...X.BYT|
000007F0: 20 24 46 30 2C 24 37 46  2C 24 45 30 2C 24 30 30  | $F0,$7F,$E0,$00|
00000800: 00 06 10 62 07 3B 00 27  10 6C 07 3B AB AB AB AB  |...b.;.'.l.;....|
00000810: AB AB 20 47 41 44 A1 20  45 58 45 43 20 AB AB AB  |.. GAD. EXEC ...|
00000820: AB AB AB AB AB AB AB 00  4C 10 76 07 47 47 45 58  |........L.v.GGEX|
00000830: 45 43 20 49 4E 43 20 24  44 30 32 30 20 20 3B 20  |EC INC $D020  ; |
00000840: 47 41 44 A1 20 43 4C 49  43 4B 45 44 00 54 10 80  |GAD. CLICKED.T..|
00000850: 07 52 54 53 00 5A 10 8A  07 3B 00 7D 10 94 07 3B  |.RTS.Z...;.}...;|
00000860: AB AB AB AB AB AB 20 55  4E 4C 49 4E 4B 20 AB AB  |...... UNLINK ..|
00000870: AB AB AB AB AB AB AB AB  AB AB AB AB AB 00 9D 10  |................|
00000880: 9E 07 55 4E 4C 49 4E 4B  20 4C 44 58 20 23 B3 57  |..UNLINK LDX #.W|
00000890: 49 4E 44 4F 57 20 20 3B  20 A0 20 57 44 00 AE 10  |INDOW  ; . WD...|
000008A0: A8 07 4C 44 59 20 23 B1  57 49 4E 44 4F 57 00 BA  |..LDY #.WINDOW..|
000008B0: 10 B2 07 4A 53 52 20 A0  57 44 00 D8 10 BC 07 4C  |...JSR .WD.....L|
000008C0: 44 58 20 23 B3 4D 4E 33  49 54 32 20 20 3B 20 8F  |DX #.MN3IT2  ; .|
000008D0: 4F 56 45 20 4D 45 4E 55  00 E9 10 C6 07 4C 44 59  |OVE MENU.....LDY|
000008E0: 20 23 B1 4D 4E 33 49 54  32 00 F8 10 D0 07 53 54  | #.MN3IT2.....ST|
000008F0: 58 20 4D 4E 33 49 54 31  00 09 11 DA 07 53 54 59  |X MN3IT1.....STY|
00000900: 20 4D 4E 33 49 54 31 AA  31 00 27 11 E4 07 49 4E  | MN3IT1.1.'...IN|
00000910: 43 20 24 38 30 30 34 20  20 3B 20 8F 4F 56 45 20  |C $8004  ; .OVE |
00000920: 53 55 52 56 49 56 45 00  2F 11 EE 07 52 54 53 00  |SURVIVE./...RTS.|
00000930: 35 11 F8 07 3B 00 54 11  02 08 3B AB AB AB AB AB  |5...;.T...;.....|
00000940: AB 20 A0 20 57 49 4E 44  4F 57 20 AB AB AB AB AB  |. . WINDOW .....|
00000950: AB AB AB AB 00 65 11 0C  08 A0 57 44 20 53 54 58  |.....e....WD STX|
00000960: 20 42 55 46 30 00 72 11  16 08 53 54 59 20 42 55  | BUF0.r...STY BU|
00000970: 46 31 00 8F 11 20 08 4C  44 41 20 23 57 44 91 53  |F1... .LDA #WD.S|
00000980: 43 52 45 45 4E 20 20 3B  20 8B 20 57 44 20 9F 00  |CREEN  ; . WD ..|
00000990: 99 11 2A 08 4A 53 52 20  8D 00 A1 11 34 08 49 4E  |..*.JSR ....4.IN|
000009A0: 59 00 AB 11 3E 08 42 45  51 20 A8 00 C1 11 48 08  |Y...>.BEQ ....H.|
000009B0: 4C 44 58 20 42 55 46 30  20 20 3B 20 A7 20 A0 57  |LDX BUF0  ; . .W|
000009C0: 44 00 CE 11 52 08 4C 44  59 20 42 55 46 31 00 E0  |D...R.LDY BUF1..|
000009D0: 11 5C 08 4C 44 41 20 23  53 45 54 43 55 52 57 44  |.\.LDA #SETCURWD|
000009E0: 00 EA 11 66 08 4A 53 52  20 8D 00 F7 11 70 08 4C  |...f.JSR ....p.L|
000009F0: 44 41 20 23 57 44 A0 00  01 12 7A 08 4A 53 52 20  |DA #WD....z.JSR |
00000A00: 8D 00 0B 12 84 08 A8 20  52 54 53 00 11 12 8E 08  |....... RTS.....|
00000A10: 3B 00 34 12 98 08 3B AB  AB AB AB AB AB 20 52 45  |;.4...;...... RE|
00000A20: 53 45 54 20 53 55 52 56  49 56 45 20 AB AB AB AB  |SET SURVIVE ....|
00000A30: AB AB AB AB 00 59 12 A2  08 53 55 52 56 49 56 45  |.....Y...SURVIVE|
00000A40: 20 4C 44 58 20 23 36 AB  31 20 20 3B 20 49 4E 53  | LDX #6.1  ; INS|
00000A50: 54 41 4C 4C 20 43 4F 44  45 00 6D 12 AC 08 53 4C  |TALL CODE.m...SL|
00000A60: 50 20 4C 44 41 20 54 41  42 45 4C 2C 58 00 7D 12  |P LDA TABEL,X.}.|
00000A70: B6 08 53 54 41 20 24 38  30 30 30 2C 58 00 85 12  |..STA $8000,X...|
00000A80: C0 08 44 45 58 00 91 12  CA 08 42 50 4C 20 53 4C  |..DEX.....BPL SL|
00000A90: 50 00 99 12 D4 08 52 54  53 00 AE 12 DE 08 54 41  |P.....RTS.....TA|
00000AA0: 42 45 4C 20 57 B0 20 53  54 41 52 54 AA 33 00 BD  |BEL W. START.3..|
00000AB0: 12 E8 08 42 59 54 20 22  4D 47 38 37 22 00 C3 12  |...BYT "MG87"...|
00000AC0: F2 08 3B 00 E6 12 FC 08  3B AB AB AB AB AB AB 20  |..;.....;...... |
00000AD0: 49 4E 43 4C 55 44 45 53  20 AB AB AB AB AB AB AB  |INCLUDES .......|
00000AE0: AB AB AB AB AB AB 00 F5  12 06 09 9F 57 49 4E 44  |............WIND|
00000AF0: 4F 57 B2 34 38 00 06 13  10 09 57 44 91 53 43 52  |OW.48.....WD.SCR|
00000B00: 45 45 4E B2 37 30 00 11  13 1A 09 57 44 A0 B2 36  |EEN.70.....WD..6|
00000B10: 35 00 21 13 24 09 53 45  54 43 55 52 57 44 B2 32  |5.!.$.SETCURWD.2|
00000B20: 39 00 00 00                                       |9...            |

..%...; GGIMAGESAMPLE  DATE: 10.03.88.L.
..;..................................R..
.;.W...; THE FINAL CARTRIDGE III DESK.P.
}...;.....;     RISKA H&P, MARC DERKSEN.
..$.;.G...;     P R O J E C T   D E M O.
M.8.;...B.;.............................
.......L.;...V...$0BE1,$0801...`.BUF0.$A
3.&.J.BUF1.$A4.A.T...$DE05  ; .TEM C.S.T
S.K.~. .$01.Y....BACK.$02.H...DRAGBR.$08
.W...INVERT.$01.....RELEASE.$10.....;...
..;...... BASIC STARTUP . -----.P.D.W. $
0817,1987  ; LINE NUMBER...N.BYT $9E  ; 
BASIC ..CODE...X.BYT "2076 DESK.P V1.0",
0,0,0.#...BYT 1,0  ; VERSI..?...BYT 2  ;
 SIZE IN BLOCKS.X...JMP $DFE8  ; STARTUP
.L...BYT 0  ; UNUSED.R...;.....MN3IT1.$C
0C2.....MN3IT2.$C0CA...(.;...... MAIN ..
.................N.2.START JSR SURVIVE..
.<.LDX #.ITEM2  ; SET . MENU...F.LDY #.I
TEM2...P.STX MN3IT1...Z.STY MN3IT1.1.$.D
.RTS.*.N.;.M.X.;...... MENUITEM STRUCTUR
E ....I...ITEM2 W. ITEM3  ; .ITEM.....W.
 IT2TXT  ; ITEM NAME.....W. .WD  ; ITEM 
EXEC... .BYT 1,0  ; ENABLE ITEM.R...ITEM
3 W. 0  ; NO .ITEM.....W. IT3TXT.....W. 
UNLINK...H.BYT 1,0...R.;.....IT2TXT BYT 
"DEMO WD",0.5...IT3TXT BYT "UNLINK",0.;.
..;.V...GGFLAGS.INVERT.RELEASE.Y...;....
.. WINDOW .....................WD LDX #.
WINDOW  ; CALL .WD.....LDY #.WINDOW...".
LDA #.WINDOW.F.,.JMP ..L.6.;...@.WINDOW 
W. GAD.  ; FIRST GAD....J.BYT 40,40  ; W
DX,WDY.%.T.BYT 110,50  ; WIDTH,HEIGHT.C.
^.W. WDTITLE  ; WINDOW NAME.E.H.BYT  ..B
ACK.DRAGBR  ; WDFLAGS...R.BYT 66  ; WDTI
TLE SIZE...|.W. 0,0.....;.....GAD. W. 0 
 ; . GAD..B...BYT 24,20  ; GGX,GGY.....B
YT 29,18  ; WIDTH,HEIGHT.....W. GGTEXT  
; GAD. TEXT.....BYT GGFLAGS  ; GAD. FLAG
S.6.B.W. 0,GGEXEC  ; GAD. EXEC.U.L.W. GG
IMAGE  ; GAD. . IMAGE.[.V.;.Y...WDTITLE 
BYT "MY WINDOW",0.....GGTEXT BYT 37,10,1
,"IMAGE",0.....GGIMAGE BYT 2,2,.IMDAT,.I
MDAT.B...;.....IMDAT BYT 26.1,15.1,7,4..
...BYT $E0,$F1,$FF,$C0,$A0,$91,0,$40.*..
.BYT $A0,$91,$7E,64,$A0,$91,$42,64.P.&.B
YT $A0,$91,$42,64,$A0,$91,$42,64.V.0.BYT
 $BF,$91,$7E,$40,$80,$11,0,$40...:.BYT $
9F,$D1,$3F,$C0,$90,$51,$20,0.B.D.BYT $90
,$51,$20,$00,$90,$55,$20,0...N.BYT $90,$
5F,$20,$00,$90,$55,$20,0...X.BYT $F0,$7F
,$E0,$00...B.;.'.L.;...... GAD. EXEC ...
........L.V.GGEXEC INC $D020  ; GAD. CLI
CKED.T...RTS.Z...;.}...;...... UNLINK ..
..................UNLINK LDX #.WINDOW  ;
   WD.....LDY #.WINDOW.....JSR  WD.X...L
DX #.MN3IT2  ; .OVE MENU...F.LDY #.MN3IT
2...P.STX MN3IT1...Z.STY MN3IT1.1.'...IN
C $8004  ; .OVE SURVIVE./...RTS.5...;.T.
..;......   WINDOW ..........E... WD STX
 BUF0.R...STY BUF1... .LDA #WD.SCREEN  ;
 . WD ....*.JSR ....4.INY...>.BEQ ..A.H.
LDX BUF0  ; .  WD.N.R.LDY BUF1...\.LDA #
SETCURWD...F.JSR ....P.LDA #WD ...Z.JSR 
....... RTS.....;.4...;...... RESET SURV
IVE .........Y...SURVIVE LDX #6.1  ; INS
TALL CODE.M...SLP LDA TABEL,X.}...STA $8
000,X.....DEX...J.BPL SLP...T.RTS.....TA
BEL W. START.3.....BYT "MG87".C...;.....
;...... INCLUDES ...................WIND
OW.48.....WD.SCREEN.70.....WD .65.!.$.SE
TCURWD.29...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL