_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

NORMALGADGET.ASM

FILE INFORMATION

FILENAME(S): NORMALGADGET.ASM

FILE TYPE(S): PRG

FILE SIZE: 2.4K

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

APPEARS ON: 2 disk(s)

FILE HASH

c0ea8a7d5bd2fa1ac19504adca0df644a9a581020edbb2618b91e684a52149e0

FOUND ON DISKS (2 DISKS)

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

FILE CONTENT & ANALYSIS

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

00000000: 01 08 20 08 E8 03 3B 20  4E B0 4D 41 4C 47 41 44  |.. ...; N.MALGAD|
00000010: A1 20 44 41 54 45 3A 20  31 30 AB 30 33 AB 38 38  |. DATE: 10.03.88|
00000020: 00 47 08 F2 03 3B AB AB  AB AB AB AB AB AB AB AB  |.G...;..........|
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 00  4D 08 FC 03 3B 00 72 08  |........M...;.r.|
00000050: 06 04 3B 20 54 48 45 20  46 49 4E 41 4C 20 43 41  |..; THE FINAL CA|
00000060: 52 54 52 49 44 47 45 20  49 49 49 20 44 45 53 4B  |RTRIDGE III DESK|
00000070: A4 50 00 78 08 10 04 3B  00 9A 08 1A 04 3B 20 20  |.P.x...;.....;  |
00000080: 20 20 20 52 49 53 4B 41  20 48 26 50 2C 20 4D 41  |   RISKA H&P, MA|
00000090: 52 43 20 44 45 52 4B 53  45 4E 00 A0 08 24 04 3B  |RC DERKSEN...$.;|
000000A0: 00 C2 08 2E 04 3B 20 20  20 20 20 50 20 52 20 4F  |.....;     P R O|
000000B0: 20 4A 20 45 20 43 20 54  20 20 20 44 20 45 20 4D  | J E C T   D E M|
000000C0: 20 4F 00 C8 08 38 04 3B  00 EF 08 42 04 3B AB AB  | O...8.;...B.;..|
000000D0: AB AB 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 00  |................|
000000F0: F5 08 4C 04 3B 00 07 09  56 04 AC B2 24 30 42 45  |..L.;...V...$0BE|
00000100: 31 2C 24 30 38 30 31 00  14 09 60 04 42 55 46 30  |1,$0801...`.BUF0|
00000110: B2 24 41 33 00 21 09 6A  04 42 55 46 31 B2 24 41  |.$A3.!.j.BUF1.$A|
00000120: 34 00 3C 09 74 04 8D B2  24 44 45 30 35 20 20 3B  |4.<.t...$DE05  ;|
00000130: 20 9E 54 45 4D 20 43 91  53 C0 54 53 00 46 09 7E  | .TEM C.S.TS.F.~|
00000140: 04 A0 B2 24 30 31 00 54  09 88 04 A4 42 41 43 4B  |...$01.T....BACK|
00000150: B2 24 30 32 00 63 09 92  04 44 52 41 47 42 52 B2  |.$02.c...DRAGBR.|
00000160: 24 30 38 00 72 09 9C 04  49 4E 56 45 52 54 B2 24  |$08.r...INVERT.$|
00000170: 30 31 00 7F 09 A6 04 42  B0 44 52 B2 24 30 34 00  |01.....B.DR.$04.|
00000180: 8F 09 B0 04 52 45 4C 45  41 53 45 B2 24 31 30 00  |....RELEASE.$10.|
00000190: 95 09 BA 04 3B 00 B7 09  C4 04 3B AB AB AB AB AB  |....;.....;.....|
000001A0: AB 20 42 41 53 49 43 20  53 54 41 52 54 55 50 20  |. BASIC STARTUP |
000001B0: 83 20 2D 2D 2D 2D 2D 00  D8 09 CE 04 57 B0 20 24  |. -----.....W. $|
000001C0: 30 38 31 37 2C 31 39 38  37 20 20 3B 20 4C 49 4E  |0817,1987  ; LIN|
000001D0: 45 20 4E 55 4D 42 45 52  00 F4 09 D8 04 42 59 54  |E NUMBER.....BYT|
000001E0: 20 24 39 45 20 20 3B 20  42 41 53 49 43 20 9E AB  | $9E  ; BASIC ..|
000001F0: 43 4F 44 45 00 15 0A E2  04 42 59 54 20 22 32 30  |CODE.....BYT "20|
00000200: 37 36 20 44 45 53 4B A4  50 20 56 31 2E 30 22 2C  |76 DESK.P V1.0",|
00000210: 30 2C 30 2C 30 00 2B 0A  EC 04 42 59 54 20 31 2C  |0,0,0.+...BYT 1,|
00000220: 30 20 20 3B 20 56 45 52  53 49 91 00 47 0A F6 04  |0  ; VERSI..G...|
00000230: 42 59 54 20 32 20 20 3B  20 53 49 5A 45 20 49 4E  |BYT 2  ; SIZE IN|
00000240: 20 42 4C 4F 43 4B 53 00  60 0A 00 05 4A 4D 50 20  | BLOCKS.`...JMP |
00000250: 24 44 46 45 38 20 20 3B  20 53 54 41 52 54 55 50  |$DFE8  ; STARTUP|
00000260: 00 74 0A 0A 05 42 59 54  20 30 20 20 3B 20 55 4E  |.t...BYT 0  ; UN|
00000270: 55 53 45 44 00 7A 0A 14  05 3B 00 8B 0A 1E 05 4D  |USED.z...;.....M|
00000280: 4E 33 49 54 31 B2 24 43  30 43 32 00 9C 0A 28 05  |N3IT1.$C0C2...(.|
00000290: 4D 4E 33 49 54 32 B2 24  43 30 43 41 00 C0 0A 32  |MN3IT2.$C0CA...2|
000002A0: 05 3B AB AB AB AB AB AB  20 4D 41 49 4E 20 AB AB  |.;...... MAIN ..|
000002B0: AB AB AB AB AB AB AB AB  AB AB AB AB AB AB AB AB  |................|
000002C0: 00 D6 0A 3C 05 53 54 41  52 54 20 4A 53 52 20 53  |...<.START JSR S|
000002D0: 55 52 56 49 56 45 00 F4  0A 46 05 4C 44 58 20 23  |URVIVE...F.LDX #|
000002E0: B3 49 54 45 4D 32 20 20  3B 20 53 45 54 20 A2 20  |.ITEM2  ; SET . |
000002F0: 4D 45 4E 55 00 04 0B 50  05 4C 44 59 20 23 B1 49  |MENU...P.LDY #.I|
00000300: 54 45 4D 32 00 13 0B 5A  05 53 54 58 20 4D 4E 33  |TEM2...Z.STX MN3|
00000310: 49 54 31 00 24 0B 64 05  53 54 59 20 4D 4E 33 49  |IT1.$.d.STY MN3I|
00000320: 54 31 AA 31 00 2C 0B 6E  05 52 54 53 00 32 0B 78  |T1.1.,.n.RTS.2.x|
00000330: 05 3B 00 55 0B 82 05 3B  AB AB AB AB AB AB 20 4D  |.;.U...;...... M|
00000340: 45 4E 55 49 54 45 4D 20  53 54 52 55 43 54 55 52  |ENUITEM STRUCTUR|
00000350: 45 20 AB AB AB 00 71 0B  8C 05 49 54 45 4D 32 20  |E ....q...ITEM2 |
00000360: 57 B0 20 49 54 45 4D 33  20 20 3B 20 82 49 54 45  |W. ITEM3  ; .ITE|
00000370: 4D 00 8C 0B 96 05 57 B0  20 49 54 32 54 58 54 20  |M.....W. IT2TXT |
00000380: 20 3B 20 49 54 45 4D 20  4E 41 4D 45 00 A4 0B A0  | ; ITEM NAME....|
00000390: 05 57 B0 20 9F 57 44 20  20 3B 20 49 54 45 4D 20  |.W. .WD  ; ITEM |
000003A0: 45 58 45 43 00 BF 0B AA  05 42 59 54 20 31 2C 30  |EXEC.....BYT 1,0|
000003B0: 20 20 3B 20 45 4E 41 42  4C 45 20 49 54 45 4D 00  |  ; ENABLE ITEM.|
000003C0: DA 0B B4 05 49 54 45 4D  33 20 57 B0 20 30 20 20  |....ITEM3 W. 0  |
000003D0: 3B 20 4E 4F 20 82 49 54  45 4D 00 E8 0B BE 05 57  |; NO .ITEM.....W|
000003E0: B0 20 49 54 33 54 58 54  00 F6 0B C8 05 57 B0 20  |. IT3TXT.....W. |
000003F0: 55 4E 4C 49 4E 4B 00 02  0C D2 05 42 59 54 20 31  |UNLINK.....BYT 1|
00000400: 2C 30 00 08 0C DC 05 3B  00 23 0C E6 05 49 54 32  |,0.....;.#...IT2|
00000410: 54 58 54 20 42 59 54 20  22 C4 C5 CD CF A0 D7 C4  |TXT BYT ".......|
00000420: 22 2C 30 00 3D 0C F0 05  49 54 33 54 58 54 20 42  |",0.=...IT3TXT B|
00000430: 59 54 20 22 D5 CE CC C9  CE CB 22 2C 30 00 43 0C  |YT "......",0.C.|
00000440: FA 05 3B 00 63 0C 04 06  47 47 46 4C 41 47 53 B2  |..;.c...GGFLAGS.|
00000450: 49 4E 56 45 52 54 AA 42  B0 44 52 AA 52 45 4C 45  |INVERT.B.DR.RELE|
00000460: 41 53 45 00 86 0C 0E 06  3B AB AB AB AB AB AB 20  |ASE.....;...... |
00000470: 57 49 4E 44 4F 57 20 AB  AB AB AB AB AB AB AB AB  |WINDOW .........|
00000480: AB AB AB AB AB AB 00 A7  0C 18 06 9F 57 44 20 4C  |............WD L|
00000490: 44 58 20 23 B3 57 49 4E  44 4F 57 20 20 3B 20 43  |DX #.WINDOW  ; C|
000004A0: 41 4C 4C 20 9F 57 44 00  B8 0C 22 06 4C 44 59 20  |ALL .WD...".LDY |
000004B0: 23 B1 57 49 4E 44 4F 57  00 C9 0C 2C 06 4C 44 41  |#.WINDOW...,.LDA|
000004C0: 20 23 9F 57 49 4E 44 4F  57 00 D3 0C 36 06 4A 4D  | #.WINDOW...6.JM|
000004D0: 50 20 8D 00 D9 0C 40 06  3B 00 FA 0C 4A 06 57 49  |P ....@.;...J.WI|
000004E0: 4E 44 4F 57 20 57 B0 20  47 41 44 A1 20 20 3B 20  |NDOW W. GAD.  ; |
000004F0: 46 49 52 53 54 20 47 41  44 A1 00 13 0D 54 06 42  |FIRST GAD....T.B|
00000500: 59 54 20 34 30 2C 34 30  20 20 3B 20 57 44 58 2C  |YT 40,40  ; WDX,|
00000510: 57 44 59 00 32 0D 5E 06  42 59 54 20 31 31 30 2C  |WDY.2.^.BYT 110,|
00000520: 35 30 20 20 3B 20 57 49  44 54 48 2C 48 45 49 47  |50  ; WIDTH,HEIG|
00000530: 48 54 00 50 0D 68 06 57  B0 20 57 44 54 49 54 4C  |HT.P.h.W. WDTITL|
00000540: 45 20 20 3B 20 57 49 4E  44 4F 57 20 4E 41 4D 45  |E  ; WINDOW NAME|
00000550: 00 72 0D 72 06 42 59 54  20 A0 AA A4 42 41 43 4B  |.r.r.BYT ...BACK|
00000560: AA 44 52 41 47 42 52 20  20 3B 20 57 44 46 4C 41  |.DRAGBR  ; WDFLA|
00000570: 47 53 00 8D 0D 7C 06 42  59 54 20 36 36 20 20 3B  |GS...|.BYT 66  ;|
00000580: 20 57 44 54 49 54 4C 45  20 53 49 5A 45 00 98 0D  | WDTITLE SIZE...|
00000590: 86 06 57 B0 20 30 2C 30  00 9E 0D 90 06 3B 00 B6  |..W. 0,0.....;..|
000005A0: 0D 9A 06 47 41 44 A1 20  57 B0 20 30 20 20 3B 20  |...GAD. W. 0  ; |
000005B0: 82 20 47 41 44 A1 00 CF  0D A4 06 42 59 54 20 33  |. GAD......BYT 3|
000005C0: 34 2C 32 35 20 20 3B 20  47 47 58 2C 47 47 59 00  |4,25  ; GGX,GGY.|
000005D0: ED 0D AE 06 42 59 54 20  34 30 2C 31 32 20 20 3B  |....BYT 40,12  ;|
000005E0: 20 57 49 44 54 48 2C 48  45 49 47 48 54 00 08 0E  | WIDTH,HEIGHT...|
000005F0: B8 06 57 B0 20 47 47 54  45 58 54 20 20 3B 20 47  |..W. GGTEXT  ; G|
00000600: 41 44 A1 20 54 45 58 54  00 26 0E C2 06 42 59 54  |AD. TEXT.&...BYT|
00000610: 20 47 47 46 4C 41 47 53  20 20 3B 20 47 41 44 A1  | GGFLAGS  ; GAD.|
00000620: 20 46 4C 41 47 53 00 45  0E CC 06 57 B0 20 30 2C  | FLAGS.E...W. 0,|
00000630: 47 47 45 58 45 43 2C 30  20 20 3B 20 47 41 44 A1  |GGEXEC,0  ; GAD.|
00000640: 20 45 58 45 43 00 4B 0E  D6 06 3B 00 69 0E E0 06  | EXEC.K...;.i...|
00000650: 57 44 54 49 54 4C 45 20  42 59 54 20 22 CD 59 20  |WDTITLE BYT ".Y |
00000660: D7 49 4E 44 4F 57 22 2C  30 00 89 0E EA 06 47 47  |.INDOW",0.....GG|
00000670: 54 45 58 54 20 42 59 54  20 35 2C 32 2C 31 2C 22  |TEXT BYT 5,2,1,"|
00000680: C7 41 44 47 45 54 22 2C  30 00 8F 0E F4 06 3B 00  |.ADGET",0.....;.|
00000690: B0 0E FE 06 3B AB AB AB  AB AB AB 20 47 41 44 A1  |....;...... GAD.|
000006A0: 20 45 58 45 43 20 AB AB  AB AB AB AB AB AB AB AB  | EXEC ..........|
000006B0: 00 D5 0E 08 07 47 47 45  58 45 43 20 49 4E 43 20  |.....GGEXEC INC |
000006C0: 24 44 30 32 30 20 20 3B  20 47 41 44 A1 20 43 4C  |$D020  ; GAD. CL|
000006D0: 49 43 4B 45 44 00 DD 0E  12 07 52 54 53 00 E3 0E  |ICKED.....RTS...|
000006E0: 1C 07 3B 00 06 0F 26 07  3B AB AB AB AB AB AB 20  |..;...&.;...... |
000006F0: 55 4E 4C 49 4E 4B 20 AB  AB AB AB AB AB AB AB AB  |UNLINK .........|
00000700: AB AB AB AB AB AB 00 26  0F 30 07 55 4E 4C 49 4E  |.......&.0.UNLIN|
00000710: 4B 20 4C 44 58 20 23 B3  57 49 4E 44 4F 57 20 20  |K LDX #.WINDOW  |
00000720: 3B 20 A0 20 57 44 00 37  0F 3A 07 4C 44 59 20 23  |; . WD.7.:.LDY #|
00000730: B1 57 49 4E 44 4F 57 00  43 0F 44 07 4A 53 52 20  |.WINDOW.C.D.JSR |
00000740: A0 57 44 00 61 0F 4E 07  4C 44 58 20 23 B3 4D 4E  |.WD.a.N.LDX #.MN|
00000750: 33 49 54 32 20 20 3B 20  8F 4F 56 45 20 4D 45 4E  |3IT2  ; .OVE MEN|
00000760: 55 00 72 0F 58 07 4C 44  59 20 23 B1 4D 4E 33 49  |U.r.X.LDY #.MN3I|
00000770: 54 32 00 81 0F 62 07 53  54 58 20 4D 4E 33 49 54  |T2...b.STX MN3IT|
00000780: 31 00 92 0F 6C 07 53 54  59 20 4D 4E 33 49 54 31  |1...l.STY MN3IT1|
00000790: AA 31 00 B0 0F 76 07 49  4E 43 20 24 38 30 30 34  |.1...v.INC $8004|
000007A0: 20 20 3B 20 8F 4F 56 45  20 53 55 52 56 49 56 45  |  ; .OVE SURVIVE|
000007B0: 00 B8 0F 80 07 52 54 53  00 BE 0F 8A 07 3B 00 DD  |.....RTS.....;..|
000007C0: 0F 94 07 3B AB AB AB AB  AB AB 20 A0 20 57 49 4E  |...;...... . WIN|
000007D0: 44 4F 57 20 AB AB AB AB  AB AB AB AB AB 00 EE 0F  |DOW ............|
000007E0: 9E 07 A0 57 44 20 53 54  58 20 42 55 46 30 00 FB  |...WD STX BUF0..|
000007F0: 0F A8 07 53 54 59 20 42  55 46 31 00 18 10 B2 07  |...STY BUF1.....|
00000800: 4C 44 41 20 23 57 44 91  53 43 52 45 45 4E 20 20  |LDA #WD.SCREEN  |
00000810: 3B 20 8B 20 57 44 20 9F  00 22 10 BC 07 4A 53 52  |; . WD .."...JSR|
00000820: 20 8D 00 2A 10 C6 07 49  4E 59 00 34 10 D0 07 42  | ..*...INY.4...B|
00000830: 45 51 20 A8 00 4A 10 DA  07 4C 44 58 20 42 55 46  |EQ ..J...LDX BUF|
00000840: 30 20 20 3B 20 A7 20 A0  57 44 00 57 10 E4 07 4C  |0  ; . .WD.W...L|
00000850: 44 59 20 42 55 46 31 00  69 10 EE 07 4C 44 41 20  |DY BUF1.i...LDA |
00000860: 23 53 45 54 43 55 52 57  44 00 73 10 F8 07 4A 53  |#SETCURWD.s...JS|
00000870: 52 20 8D 00 80 10 02 08  4C 44 41 20 23 57 44 A0  |R ......LDA #WD.|
00000880: 00 8A 10 0C 08 4A 53 52  20 8D 00 94 10 16 08 A8  |.....JSR .......|
00000890: 20 52 54 53 00 9A 10 20  08 3B 00 BD 10 2A 08 3B  | RTS... .;...*.;|
000008A0: AB AB AB AB AB AB 20 52  45 53 45 54 20 53 55 52  |...... RESET SUR|
000008B0: 56 49 56 45 20 AB AB AB  AB AB AB AB AB 00 E2 10  |VIVE ...........|
000008C0: 34 08 53 55 52 56 49 56  45 20 4C 44 58 20 23 36  |4.SURVIVE LDX #6|
000008D0: AB 31 20 20 3B 20 49 4E  53 54 41 4C 4C 20 43 4F  |.1  ; INSTALL CO|
000008E0: 44 45 00 F6 10 3E 08 53  4C 50 20 4C 44 41 20 54  |DE...>.SLP LDA T|
000008F0: 41 42 45 4C 2C 58 00 06  11 48 08 53 54 41 20 24  |ABEL,X...H.STA $|
00000900: 38 30 30 30 2C 58 00 0E  11 52 08 44 45 58 00 1A  |8000,X...R.DEX..|
00000910: 11 5C 08 42 50 4C 20 53  4C 50 00 22 11 66 08 52  |.\.BPL SLP.".f.R|
00000920: 54 53 00 37 11 70 08 54  41 42 45 4C 20 57 B0 20  |TS.7.p.TABEL W. |
00000930: 53 54 41 52 54 AA 33 00  46 11 7A 08 42 59 54 20  |START.3.F.z.BYT |
00000940: 22 4D 47 38 37 22 00 4C  11 84 08 3B 00 6F 11 8E  |"MG87".L...;.o..|
00000950: 08 3B AB AB AB AB AB AB  20 49 4E 43 4C 55 44 45  |.;...... INCLUDE|
00000960: 53 20 AB AB AB AB AB AB  AB AB AB AB AB AB AB 00  |S ..............|
00000970: 7E 11 98 08 9F 57 49 4E  44 4F 57 B2 34 38 00 8F  |~....WINDOW.48..|
00000980: 11 A2 08 57 44 91 53 43  52 45 45 4E B2 37 30 00  |...WD.SCREEN.70.|
00000990: 9A 11 AC 08 57 44 A0 B2  36 35 00 AA 11 B6 08 53  |....WD..65.....S|
000009A0: 45 54 43 55 52 57 44 B2  32 39 00 00 00           |ETCURWD.29...   |
.. ...; N.MALGAD. DATE: 10.03.88.G...;..
................................M...;.R.
..; THE FINAL CARTRIDGE III DESK.P.X...;
.....;     RISKA H&P, MARC DERKSEN. .$.;
.B...;     P R O J E C T   D E M O.H.8.;
...B.;..................................
..L.;...V...$0BE1,$0801...`.BUF0.$A3.!.J
.BUF1.$A4.<.T...$DE05  ; .TEM C.S.TS.F.~
. .$01.T....BACK.$02.C...DRAGBR.$08.R...
INVERT.$01....B.DR.$04.....RELEASE.$10.
....;...D.;...... BASIC STARTUP . -----.
X.N.W. $0817,1987  ; LINE NUMBER...X.BYT
 $9E  ; BASIC ..CODE.....BYT "2076 DESK.
P V1.0",0,0,0.+...BYT 1,0  ; VERSI..G...
BYT 2  ; SIZE IN BLOCKS.`...JMP $DFE8  ;
 STARTUP.T...BYT 0  ; UNUSED.Z...;.....M
N3IT1.$C0C2...(.MN3IT2.$C0CA...2.;......
 MAIN ...................V.<.START JSR S
URVIVE...F.LDX #.ITEM2  ; SET . MENU...P
.LDY #.ITEM2...Z.STX MN3IT1.$.D.STY MN3I
T1.1.,.N.RTS.2.X.;.U...;...... MENUITEM 
STRUCTURE ....Q...ITEM2 W. ITEM3  ; .ITE
M.....W. IT2TXT  ; ITEM NAME... .W. .WD 
 ; ITEM EXEC.....BYT 1,0  ; ENABLE ITEM.
Z...ITEM3 W. 0  ; NO .ITEM.....W. IT3TXT
...H.W. UNLINK...R.BYT 1,0.....;.#...IT2
TXT BYT "DEMO WD",0.=...IT3TXT BYT "UNLI
NK",0.C...;.C...GGFLAGS.INVERT.B.DR.RELE
ASE.....;...... WINDOW .................
....WD LDX #.WINDOW  ; CALL .WD...".LDY 
#.WINDOW.I.,.LDA #.WINDOW.S.6.JMP ..Y.@.
;...J.WINDOW W. GAD.  ; FIRST GAD....T.B
YT 40,40  ; WDX,WDY.2.^.BYT 110,50  ; WI
DTH,HEIGHT.P.H.W. WDTITLE  ; WINDOW NAME
.R.R.BYT  ..BACK.DRAGBR  ; WDFLAGS...|.B
YT 66  ; WDTITLE SIZE.....W. 0,0.....;..
...GAD. W. 0  ; . GAD..O...BYT 34,25  ; 
GGX,GGY.....BYT 40,12  ; WIDTH,HEIGHT...
..W. GGTEXT  ; GAD. TEXT.&.B.BYT GGFLAGS
  ; GAD. FLAGS.E.L.W. 0,GGEXEC,0  ; GAD.
 EXEC.K.V.;.I...WDTITLE BYT "MY WINDOW",
0.....GGTEXT BYT 5,2,1,"GADGET",0.....;.
....;...... GAD. EXEC ...........U...GGE
XEC INC $D020  ; GAD. CLICKED.....RTS...
..;...&.;...... UNLINK ................&
.0.UNLINK LDX #.WINDOW  ;   WD.7.:.LDY #
.WINDOW.C.D.JSR  WD.A.N.LDX #.MN3IT2  ; 
.OVE MENU.R.X.LDY #.MN3IT2...B.STX MN3IT
1...L.STY MN3IT1.1...V.INC $8004  ; .OVE
 SURVIVE.....RTS.....;.....;......   WIN
DOW .............. WD STX BUF0.....STY B
UF1.....LDA #WD.SCREEN  ; . WD .."...JSR
 ..*.F.INY.4.P.BEQ ..J.Z.LDX BUF0  ; .  
WD.W...LDY BUF1.I...LDA #SETCURWD.S...JS
R ......LDA #WD .....JSR ....... RTS... 
.;...*.;...... RESET SURVIVE ...........
4.SURVIVE LDX #6.1  ; INSTALL CODE...>.S
LP LDA TABEL,X...H.STA $8000,X...R.DEX..
.\.BPL SLP.".F.RTS.7.P.TABEL W. START.3.
F.Z.BYT "MG87".L...;.O...;...... INCLUDE
S ..............~....WINDOW.48.....WD.SC
REEN.70.....WD .65.....SETCURWD.29...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL