GGTEXTSAMPLE.ASM

FILE INFORMATION

FILENAME(S): GGTEXTSAMPLE.ASM

FILE TYPE(S): PRG

FILE SIZE: 2.7K

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

APPEARS ON: 2 disk(s)

FILE HASH

3b7ec63a9fc747e02e81867cfc23c1dd7da86486dd52b7c4982afaa7dc9b626d

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FCIII-SW	GGTEXTSAMPLE.ASM	PRG	High Voltage Complete C64 Collection	15	3	DOWNLOAD FILE
A	GGTEXTSAMPLE.ASM	PRG	marcus	13	12	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 24 08 E8 03 3B 20  47 47 54 45 58 54 53 41  |..$...; GGTEXTSA|
00000010: 4D 50 4C 45 20 20 44 41  54 45 3A 20 31 30 AB 30  |MPLE  DATE: 10.0|
00000020: 33 AB 38 38 00 4B 08 F2  03 3B AB AB AB AB AB AB  |3.88.K...;......|
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 00 51 08 FC 03  |............Q...|
00000050: 3B 00 76 08 06 04 3B 20  54 48 45 20 46 49 4E 41  |;.v...; THE FINA|
00000060: 4C 20 43 41 52 54 52 49  44 47 45 20 49 49 49 20  |L CARTRIDGE III |
00000070: 44 45 53 4B A4 50 00 7C  08 10 04 3B 00 9E 08 1A  |DESK.P.|...;....|
00000080: 04 3B 20 20 20 20 20 52  49 53 4B 41 20 48 26 50  |.;     RISKA H&P|
00000090: 2C 20 4D 41 52 43 20 44  45 52 4B 53 45 4E 00 A4  |, MARC DERKSEN..|
000000A0: 08 24 04 3B 00 C6 08 2E  04 3B 20 20 20 20 20 50  |.$.;.....;     P|
000000B0: 20 52 20 4F 20 4A 20 45  20 43 20 54 20 20 20 44  | R O J E C T   D|
000000C0: 20 45 20 4D 20 4F 00 CC  08 38 04 3B 00 F3 08 42  | E M O...8.;...B|
000000D0: 04 3B AB AB AB AB AB AB  AB AB AB AB AB AB AB AB  |.;..............|
000000E0: AB AB AB AB AB AB AB AB  AB AB AB AB AB AB AB AB  |................|
000000F0: AB AB AB 00 F9 08 4C 04  3B 00 0B 09 56 04 AC B2  |......L.;...V...|
00000100: 24 30 42 45 31 2C 24 30  38 30 31 00 18 09 60 04  |$0BE1,$0801...`.|
00000110: 42 55 46 30 B2 24 41 33  00 25 09 6A 04 42 55 46  |BUF0.$A3.%.j.BUF|
00000120: 31 B2 24 41 34 00 40 09  74 04 8D B2 24 44 45 30  |1.$A4.@.t...$DE0|
00000130: 35 20 20 3B 20 9E 54 45  4D 20 43 91 53 C0 54 53  |5  ; .TEM C.S.TS|
00000140: 00 4A 09 7E 04 A0 B2 24  30 31 00 58 09 88 04 A4  |.J.~...$01.X....|
00000150: 42 41 43 4B B2 24 30 32  00 67 09 92 04 44 52 41  |BACK.$02.g...DRA|
00000160: 47 42 52 B2 24 30 38 00  76 09 9C 04 49 4E 56 45  |GBR.$08.v...INVE|
00000170: 52 54 B2 24 30 31 00 84  09 A6 04 A4 47 47 4C 45  |RT.$01......GGLE|
00000180: B2 24 32 30 00 94 09 B0  04 52 45 4C 45 41 53 45  |.$20.....RELEASE|
00000190: B2 24 31 30 00 9A 09 BA  04 3B 00 BC 09 C4 04 3B  |.$10.....;.....;|
000001A0: AB AB AB AB AB AB 20 42  41 53 49 43 20 53 54 41  |...... BASIC STA|
000001B0: 52 54 55 50 20 83 20 2D  2D 2D 2D 2D 00 DD 09 CE  |RTUP . -----....|
000001C0: 04 57 B0 20 24 30 38 31  37 2C 31 39 38 37 20 20  |.W. $0817,1987  |
000001D0: 3B 20 4C 49 4E 45 20 4E  55 4D 42 45 52 00 F9 09  |; LINE NUMBER...|
000001E0: D8 04 42 59 54 20 24 39  45 20 20 3B 20 42 41 53  |..BYT $9E  ; BAS|
000001F0: 49 43 20 9E AB 43 4F 44  45 00 1A 0A E2 04 42 59  |IC ..CODE.....BY|
00000200: 54 20 22 32 30 37 36 20  44 45 53 4B A4 50 20 56  |T "2076 DESK.P V|
00000210: 31 2E 30 22 2C 30 2C 30  2C 30 00 30 0A EC 04 42  |1.0",0,0,0.0...B|
00000220: 59 54 20 31 2C 30 20 20  3B 20 56 45 52 53 49 91  |YT 1,0  ; VERSI.|
00000230: 00 4C 0A F6 04 42 59 54  20 32 20 20 3B 20 53 49  |.L...BYT 2  ; SI|
00000240: 5A 45 20 49 4E 20 42 4C  4F 43 4B 53 00 65 0A 00  |ZE IN BLOCKS.e..|
00000250: 05 4A 4D 50 20 24 44 46  45 38 20 20 3B 20 53 54  |.JMP $DFE8  ; ST|
00000260: 41 52 54 55 50 00 79 0A  0A 05 42 59 54 20 30 20  |ARTUP.y...BYT 0 |
00000270: 20 3B 20 55 4E 55 53 45  44 00 7F 0A 14 05 3B 00  | ; UNUSED.....;.|
00000280: 90 0A 1E 05 4D 4E 33 49  54 31 B2 24 43 30 43 32  |....MN3IT1.$C0C2|
00000290: 00 A1 0A 28 05 4D 4E 33  49 54 32 B2 24 43 30 43  |...(.MN3IT2.$C0C|
000002A0: 41 00 C5 0A 32 05 3B AB  AB AB AB AB AB 20 4D 41  |A...2.;...... MA|
000002B0: 49 4E 20 AB AB AB AB AB  AB AB AB AB AB AB AB AB  |IN .............|
000002C0: AB AB AB AB AB 00 DB 0A  3C 05 53 54 41 52 54 20  |........<.START |
000002D0: 4A 53 52 20 53 55 52 56  49 56 45 00 F9 0A 46 05  |JSR SURVIVE...F.|
000002E0: 4C 44 58 20 23 B3 49 54  45 4D 32 20 20 3B 20 53  |LDX #.ITEM2  ; S|
000002F0: 45 54 20 A2 20 4D 45 4E  55 00 09 0B 50 05 4C 44  |ET . MENU...P.LD|
00000300: 59 20 23 B1 49 54 45 4D  32 00 18 0B 5A 05 53 54  |Y #.ITEM2...Z.ST|
00000310: 58 20 4D 4E 33 49 54 31  00 29 0B 64 05 53 54 59  |X MN3IT1.).d.STY|
00000320: 20 4D 4E 33 49 54 31 AA  31 00 31 0B 6E 05 52 54  | MN3IT1.1.1.n.RT|
00000330: 53 00 37 0B 78 05 3B 00  5A 0B 82 05 3B AB AB AB  |S.7.x.;.Z...;...|
00000340: AB AB AB 20 4D 45 4E 55  49 54 45 4D 20 53 54 52  |... MENUITEM STR|
00000350: 55 43 54 55 52 45 20 AB  AB AB 00 76 0B 8C 05 49  |UCTURE ....v...I|
00000360: 54 45 4D 32 20 57 B0 20  49 54 45 4D 33 20 20 3B  |TEM2 W. ITEM3  ;|
00000370: 20 82 49 54 45 4D 00 91  0B 96 05 57 B0 20 49 54  | .ITEM.....W. IT|
00000380: 32 54 58 54 20 20 3B 20  49 54 45 4D 20 4E 41 4D  |2TXT  ; ITEM NAM|
00000390: 45 00 A9 0B A0 05 57 B0  20 9F 57 44 20 20 3B 20  |E.....W. .WD  ; |
000003A0: 49 54 45 4D 20 45 58 45  43 00 C4 0B AA 05 42 59  |ITEM EXEC.....BY|
000003B0: 54 20 31 2C 30 20 20 3B  20 45 4E 41 42 4C 45 20  |T 1,0  ; ENABLE |
000003C0: 49 54 45 4D 00 DF 0B B4  05 49 54 45 4D 33 20 57  |ITEM.....ITEM3 W|
000003D0: B0 20 30 20 20 3B 20 4E  4F 20 82 49 54 45 4D 00  |. 0  ; NO .ITEM.|
000003E0: ED 0B BE 05 57 B0 20 49  54 33 54 58 54 00 FB 0B  |....W. IT3TXT...|
000003F0: C8 05 57 B0 20 55 4E 4C  49 4E 4B 00 07 0C D2 05  |..W. UNLINK.....|
00000400: 42 59 54 20 31 2C 30 00  0D 0C DC 05 3B 00 28 0C  |BYT 1,0.....;.(.|
00000410: E6 05 49 54 32 54 58 54  20 42 59 54 20 22 C4 C5  |..IT2TXT BYT "..|
00000420: CD CF A0 D7 C4 22 2C 30  00 42 0C F0 05 49 54 33  |.....",0.B...IT3|
00000430: 54 58 54 20 42 59 54 20  22 D5 CE CC C9 CE CB 22  |TXT BYT "......"|
00000440: 2C 30 00 48 0C FA 05 3B  00 69 0C 04 06 47 47 46  |,0.H...;.i...GGF|
00000450: 4C 41 47 53 B2 49 4E 56  45 52 54 AA A4 47 47 4C  |LAGS.INVERT..GGL|
00000460: 45 AA 52 45 4C 45 41 53  45 00 8C 0C 0E 06 3B AB  |E.RELEASE.....;.|
00000470: AB AB AB AB AB 20 57 49  4E 44 4F 57 20 AB AB AB  |..... WINDOW ...|
00000480: AB AB AB AB AB AB AB AB  AB AB AB AB 00 AD 0C 18  |................|
00000490: 06 9F 57 44 20 4C 44 58  20 23 B3 57 49 4E 44 4F  |..WD LDX #.WINDO|
000004A0: 57 20 20 3B 20 43 41 4C  4C 20 9F 57 44 00 BE 0C  |W  ; CALL .WD...|
000004B0: 22 06 4C 44 59 20 23 B1  57 49 4E 44 4F 57 00 CF  |".LDY #.WINDOW..|
000004C0: 0C 2C 06 4C 44 41 20 23  9F 57 49 4E 44 4F 57 00  |.,.LDA #.WINDOW.|
000004D0: D9 0C 36 06 4A 4D 50 20  8D 00 DF 0C 40 06 3B 00  |..6.JMP ....@.;.|
000004E0: 00 0D 4A 06 57 49 4E 44  4F 57 20 57 B0 20 47 41  |..J.WINDOW W. GA|
000004F0: 44 A1 20 20 3B 20 46 49  52 53 54 20 47 41 44 A1  |D.  ; FIRST GAD.|
00000500: 00 19 0D 54 06 42 59 54  20 34 30 2C 34 30 20 20  |...T.BYT 40,40  |
00000510: 3B 20 57 44 58 2C 57 44  59 00 38 0D 5E 06 42 59  |; WDX,WDY.8.^.BY|
00000520: 54 20 31 34 30 2C 35 35  20 20 3B 20 57 49 44 54  |T 140,55  ; WIDT|
00000530: 48 2C 48 45 49 47 48 54  00 56 0D 68 06 57 B0 20  |H,HEIGHT.V.h.W. |
00000540: 57 44 54 49 54 4C 45 20  20 3B 20 57 49 4E 44 4F  |WDTITLE  ; WINDO|
00000550: 57 20 4E 41 4D 45 00 78  0D 72 06 42 59 54 20 A0  |W NAME.x.r.BYT .|
00000560: AA A4 42 41 43 4B AA 44  52 41 47 42 52 20 20 3B  |..BACK.DRAGBR  ;|
00000570: 20 57 44 46 4C 41 47 53  00 93 0D 7C 06 42 59 54  | WDFLAGS...|.BYT|
00000580: 20 36 36 20 20 3B 20 57  44 54 49 54 4C 45 20 53  | 66  ; WDTITLE S|
00000590: 49 5A 45 00 9E 0D 86 06  57 B0 20 30 2C 30 00 A4  |IZE.....W. 0,0..|
000005A0: 0D 90 06 3B 00 BC 0D 9A  06 47 41 44 A1 20 57 B0  |...;.....GAD. W.|
000005B0: 20 30 20 20 3B 20 82 20  47 41 44 A1 00 D4 0D A4  | 0  ; . GAD.....|
000005C0: 06 42 59 54 20 34 2C 31  34 20 20 3B 20 47 47 58  |.BYT 4,14  ; GGX|
000005D0: 2C 47 47 59 00 F3 0D AE  06 42 59 54 20 31 33 32  |,GGY.....BYT 132|
000005E0: 2C 33 38 20 20 3B 20 57  49 44 54 48 2C 48 45 49  |,38  ; WIDTH,HEI|
000005F0: 47 48 54 00 09 0E B8 06  57 B0 20 30 20 20 3B 20  |GHT.....W. 0  ; |
00000600: 47 41 44 A1 20 54 45 58  54 00 27 0E C2 06 42 59  |GAD. TEXT.'...BY|
00000610: 54 20 47 47 46 4C 41 47  53 20 20 3B 20 47 41 44  |T GGFLAGS  ; GAD|
00000620: A1 20 46 4C 41 47 53 00  49 0E CC 06 57 B0 20 47  |. FLAGS.I...W. G|
00000630: 47 53 50 45 43 20 20 3B  20 43 41 4C 4C 45 44 20  |GSPEC  ; CALLED |
00000640: 57 48 45 4E 20 47 41 44  A1 00 66 0E D6 06 57 B0  |WHEN GAD..f...W.|
00000650: 20 30 2C 30 20 20 3B 20  49 53 20 42 45 49 4E 47  | 0,0  ; IS BEING|
00000660: 20 44 52 41 57 4E 00 6C  0E E0 06 3B 00 8A 0E EA  | DRAWN.l...;....|
00000670: 06 57 44 54 49 54 4C 45  20 42 59 54 20 22 CD 59  |.WDTITLE BYT ".Y|
00000680: 20 D7 49 4E 44 4F 57 22  2C 30 00 90 0E F4 06 3B  | .INDOW",0.....;|
00000690: 00 B1 0E FE 06 3B AB AB  AB AB AB AB 20 47 41 44  |.....;...... GAD|
000006A0: A1 20 53 50 45 43 20 AB  AB AB AB AB AB AB AB AB  |. SPEC .........|
000006B0: AB 00 D4 0E 08 07 47 47  53 50 45 43 20 4C 44 58  |......GGSPEC LDX|
000006C0: 20 23 B3 54 45 58 54 20  20 3B 20 44 52 41 57 20  | #.TEXT  ; DRAW |
000006D0: 54 45 58 54 00 E3 0E 12  07 4C 44 59 20 23 B1 54  |TEXT.....LDY #.T|
000006E0: 45 58 54 00 F3 0E 1C 07  4C 44 41 20 23 4D 55 4C  |EXT.....LDA #MUL|
000006F0: 54 49 99 00 FD 0E 26 07  4A 4D 50 20 8D 00 03 0F  |TI....&.JMP ....|
00000700: 30 07 3B 00 27 0F 3A 07  54 45 58 54 20 3B 20 4D  |0.;.'.:.TEXT ; M|
00000710: 55 4C 54 49 50 4C 45 20  54 45 58 54 20 53 54 52  |ULTIPLE TEXT STR|
00000720: 55 43 54 55 52 45 53 00  40 0F 44 07 42 59 54 20  |UCTURES.@.D.BYT |
00000730: 34 2C 35 2C 31 2C 22 4E  4F 52 4D 41 4C 22 2C 30  |4,5,1,"NORMAL",0|
00000740: 00 5A 0F 4E 07 42 59 54  20 34 2C 32 35 2C 24 38  |.Z.N.BYT 4,25,$8|
00000750: 31 2C 22 42 4F 4C 44 22  2C 30 00 6B 0F 58 07 42  |1,"BOLD",0.k.X.B|
00000760: 59 54 20 35 38 2C 35 2C  24 34 31 00 88 0F 62 07  |YT 58,5,$41...b.|
00000770: 42 59 54 20 22 45 45 58  58 54 54 45 45 4E 4E 44  |BYT "EEXXTTEENND|
00000780: 44 45 45 44 44 22 2C 30  00 AC 0F 6C 07 42 59 54  |DEEDD",0...l.BYT|
00000790: 20 35 38 2C 31 38 2C 24  32 31 2C 22 44 4F 55 42  | 58,18,$21,"DOUB|
000007A0: 4C 45 20 48 45 49 47 48  54 22 2C 30 00 C4 0F 76  |LE HEIGHT",0...v|
000007B0: 07 42 59 54 20 30 20 20  3B 20 80 20 4F 46 20 53  |.BYT 0  ; . OF S|
000007C0: 54 52 55 43 00 CA 0F 80  07 3B 00 ED 0F 8A 07 3B  |TRUC.....;.....;|
000007D0: AB AB AB AB AB AB 20 55  4E 4C 49 4E 4B 20 AB AB  |...... UNLINK ..|
000007E0: AB AB AB AB AB AB AB AB  AB AB AB AB AB 00 0D 10  |................|
000007F0: 94 07 55 4E 4C 49 4E 4B  20 4C 44 58 20 23 B3 57  |..UNLINK LDX #.W|
00000800: 49 4E 44 4F 57 20 20 3B  20 A0 20 57 44 00 1E 10  |INDOW  ; . WD...|
00000810: 9E 07 4C 44 59 20 23 B1  57 49 4E 44 4F 57 00 2A  |..LDY #.WINDOW.*|
00000820: 10 A8 07 4A 53 52 20 A0  57 44 00 48 10 B2 07 4C  |...JSR .WD.H...L|
00000830: 44 58 20 23 B3 4D 4E 33  49 54 32 20 20 3B 20 8F  |DX #.MN3IT2  ; .|
00000840: 4F 56 45 20 4D 45 4E 55  00 59 10 BC 07 4C 44 59  |OVE MENU.Y...LDY|
00000850: 20 23 B1 4D 4E 33 49 54  32 00 68 10 C6 07 53 54  | #.MN3IT2.h...ST|
00000860: 58 20 4D 4E 33 49 54 31  00 79 10 D0 07 53 54 59  |X MN3IT1.y...STY|
00000870: 20 4D 4E 33 49 54 31 AA  31 00 97 10 DA 07 49 4E  | MN3IT1.1.....IN|
00000880: 43 20 24 38 30 30 34 20  20 3B 20 8F 4F 56 45 20  |C $8004  ; .OVE |
00000890: 53 55 52 56 49 56 45 00  9F 10 E4 07 52 54 53 00  |SURVIVE.....RTS.|
000008A0: A5 10 EE 07 3B 00 C4 10  F8 07 3B AB AB AB AB AB  |....;.....;.....|
000008B0: AB 20 A0 20 57 49 4E 44  4F 57 20 AB AB AB AB AB  |. . WINDOW .....|
000008C0: AB AB AB AB 00 D5 10 02  08 A0 57 44 20 53 54 58  |..........WD STX|
000008D0: 20 42 55 46 30 00 E2 10  0C 08 53 54 59 20 42 55  | BUF0.....STY BU|
000008E0: 46 31 00 FF 10 16 08 4C  44 41 20 23 57 44 91 53  |F1.....LDA #WD.S|
000008F0: 43 52 45 45 4E 20 20 3B  20 8B 20 57 44 20 9F 00  |CREEN  ; . WD ..|
00000900: 09 11 20 08 4A 53 52 20  8D 00 11 11 2A 08 49 4E  |.. .JSR ....*.IN|
00000910: 59 00 1B 11 34 08 42 45  51 20 A8 00 31 11 3E 08  |Y...4.BEQ ..1.>.|
00000920: 4C 44 58 20 42 55 46 30  20 20 3B 20 A7 20 A0 57  |LDX BUF0  ; . .W|
00000930: 44 00 3E 11 48 08 4C 44  59 20 42 55 46 31 00 50  |D.>.H.LDY BUF1.P|
00000940: 11 52 08 4C 44 41 20 23  53 45 54 43 55 52 57 44  |.R.LDA #SETCURWD|
00000950: 00 5A 11 5C 08 4A 53 52  20 8D 00 67 11 66 08 4C  |.Z.\.JSR ..g.f.L|
00000960: 44 41 20 23 57 44 A0 00  71 11 70 08 4A 53 52 20  |DA #WD..q.p.JSR |
00000970: 8D 00 7B 11 7A 08 A8 20  52 54 53 00 81 11 84 08  |..{.z.. RTS.....|
00000980: 3B 00 A4 11 8E 08 3B AB  AB AB AB AB AB 20 52 45  |;.....;...... RE|
00000990: 53 45 54 20 53 55 52 56  49 56 45 20 AB AB AB AB  |SET SURVIVE ....|
000009A0: AB AB AB AB 00 C9 11 98  08 53 55 52 56 49 56 45  |.........SURVIVE|
000009B0: 20 4C 44 58 20 23 36 AB  31 20 20 3B 20 49 4E 53  | LDX #6.1  ; INS|
000009C0: 54 41 4C 4C 20 43 4F 44  45 00 DD 11 A2 08 53 4C  |TALL CODE.....SL|
000009D0: 50 20 4C 44 41 20 54 41  42 45 4C 2C 58 00 ED 11  |P LDA TABEL,X...|
000009E0: AC 08 53 54 41 20 24 38  30 30 30 2C 58 00 F5 11  |..STA $8000,X...|
000009F0: B6 08 44 45 58 00 01 12  C0 08 42 50 4C 20 53 4C  |..DEX.....BPL SL|
00000A00: 50 00 09 12 CA 08 52 54  53 00 1E 12 D4 08 54 41  |P.....RTS.....TA|
00000A10: 42 45 4C 20 57 B0 20 53  54 41 52 54 AA 33 00 2D  |BEL W. START.3.-|
00000A20: 12 DE 08 42 59 54 20 22  4D 47 38 37 22 00 33 12  |...BYT "MG87".3.|
00000A30: E8 08 3B 00 56 12 F2 08  3B AB AB AB AB AB AB 20  |..;.V...;...... |
00000A40: 49 4E 43 4C 55 44 45 53  20 AB AB AB AB AB AB AB  |INCLUDES .......|
00000A50: AB AB AB AB AB AB 00 65  12 FC 08 9F 57 49 4E 44  |.......e....WIND|
00000A60: 4F 57 B2 34 38 00 73 12  06 09 4D 55 4C 54 49 99  |OW.48.s...MULTI.|
00000A70: B2 36 39 00 84 12 10 09  57 44 91 53 43 52 45 45  |.69.....WD.SCREE|
00000A80: 4E B2 37 30 00 8F 12 1A  09 57 44 A0 B2 36 35 00  |N.70.....WD..65.|
00000A90: 9F 12 24 09 53 45 54 43  55 52 57 44 B2 32 39 00  |..$.SETCURWD.29.|
00000AA0: 00 00                                             |..              |

..$...; GGTEXTSAMPLE  DATE: 10.03.88.K..
.;..................................Q...
;.V...; THE FINAL CARTRIDGE III DESK.P.|
...;.....;     RISKA H&P, MARC DERKSEN..
.$.;.F...;     P R O J E C T   D E M O.L
.8.;...B.;..............................
......L.;...V...$0BE1,$0801...`.BUF0.$A3
.%.J.BUF1.$A4.@.T...$DE05  ; .TEM C.S.TS
.J.~. .$01.X....BACK.$02.G...DRAGBR.$08.
V...INVERT.$01......GGLE.$20.....RELEASE
.$10.....;...D.;...... BASIC STARTUP . -
----...N.W. $0817,1987  ; LINE NUMBER...
X.BYT $9E  ; BASIC ..CODE.....BYT "2076 
DESK.P V1.0",0,0,0.0...BYT 1,0  ; VERSI.
.L...BYT 2  ; SIZE IN BLOCKS.E...JMP $DF
E8  ; STARTUP.Y...BYT 0  ; UNUSED....;.
....MN3IT1.$C0C2...(.MN3IT2.$C0CA.E.2.;.
..... MAIN .....................<.START 
JSR SURVIVE...F.LDX #.ITEM2  ; SET . MEN
U...P.LDY #.ITEM2...Z.STX MN3IT1.).D.STY
 MN3IT1.1.1.N.RTS.7.X.;.Z...;...... MENU
ITEM STRUCTURE ....V...ITEM2 W. ITEM3  ;
 .ITEM.....W. IT2TXT  ; ITEM NAME... .W.
 .WD  ; ITEM EXEC.D...BYT 1,0  ; ENABLE 
ITEM.....ITEM3 W. 0  ; NO .ITEM.....W. I
T3TXT...H.W. UNLINK...R.BYT 1,0.....;.(.
..IT2TXT BYT "DEMO WD",0.B...IT3TXT BYT 
"UNLINK",0.H...;.I...GGFLAGS.INVERT..GGL
E.RELEASE.....;...... WINDOW ...........
..........WD LDX #.WINDOW  ; CALL .WD...
".LDY #.WINDOW.O.,.LDA #.WINDOW.Y.6.JMP 
....@.;...J.WINDOW W. GAD.  ; FIRST GAD.
...T.BYT 40,40  ; WDX,WDY.8.^.BYT 140,55
  ; WIDTH,HEIGHT.V.H.W. WDTITLE  ; WINDO
W NAME.X.R.BYT  ..BACK.DRAGBR  ; WDFLAGS
...|.BYT 66  ; WDTITLE SIZE.....W. 0,0..
...;.....GAD. W. 0  ; . GAD..T...BYT 4,1
4  ; GGX,GGY.....BYT 132,38  ; WIDTH,HEI
GHT.....W. 0  ; GAD. TEXT.'.B.BYT GGFLAG
S  ; GAD. FLAGS.I.L.W. GGSPEC  ; CALLED 
WHEN GAD..F.V.W. 0,0  ; IS BEING DRAWN.L
...;.....WDTITLE BYT "MY WINDOW",0.....;
.....;...... GAD. SPEC ...........T...GG
SPEC LDX #.TEXT  ; DRAW TEXT.....LDY #.T
EXT.....LDA #MULTI....&.JMP ....0.;.'.:.
TEXT ; MULTIPLE TEXT STRUCTURES.@.D.BYT 
4,5,1,"NORMAL",0.Z.N.BYT 4,25,$81,"BOLD"
,0.K.X.BYT 58,5,$41...B.BYT "EEXXTTEENND
DEEDD",0...L.BYT 58,18,$21,"DOUBLE HEIGH
T",0.D.V.BYT 0  ; . OF STRUC.J...;.....;
...... UNLINK ....................UNLINK
 LDX #.WINDOW  ;   WD.....LDY #.WINDOW.*
...JSR  WD.H...LDX #.MN3IT2  ; .OVE MENU
.Y...LDY #.MN3IT2.H.F.STX MN3IT1.Y.P.STY
 MN3IT1.1...Z.INC $8004  ; .OVE SURVIVE.
....RTS.....;.D...;......   WINDOW .....
.....U... WD STX BUF0.....STY BUF1.....L
DA #WD.SCREEN  ; . WD .... .JSR ....*.IN
Y...4.BEQ ..1.>.LDX BUF0  ; .  WD.>.H.LD
Y BUF1.P.R.LDA #SETCURWD.Z.\.JSR ..G.F.L
DA #WD .Q.P.JSR ..{.Z.. RTS.....;.....;.
..... RESET SURVIVE .........I...SURVIVE
 LDX #6.1  ; INSTALL CODE.....SLP LDA TA
BEL,X.....STA $8000,X.....DEX.....BPL SL
P...J.RTS...T.TABEL W. START.3.-...BYT "
MG87".3...;.V...;...... INCLUDES .......
.......E....WINDOW.48.S...MULTI..69.....
WD.SCREEN.70.....WD .65...$.SETCURWD.29.
..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL