TOGGLEGADGET.ASM
FILE INFORMATION
FILENAME(S): TOGGLEGADGET.ASM
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-11-30 16:59:22
APPEARS ON: 2 disk(s)
FILE HASH
67e14879413ed530c4574b095309c778986a86725012e0a47f57e15277ff0b76
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FCIII-SW | TOGGLEGADGET.ASM | PRG | High Voltage Complete C64 Collection | 20 | 1 | DOWNLOAD FILE |
| A | TOGGLEGADGET.ASM | PRG | marcus | 14 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 E8 03 3B 20 A4 47 47 4C 45 47 41 44 |.. ...; .GGLEGAD|
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 1C 09 60 04 43 55 52 47 |1,$0801...`.CURG|
00000110: 47 46 4C 41 47 53 B2 24 43 30 31 33 00 22 09 6A |GFLAGS.$C013.".j|
00000120: 04 3B 00 2F 09 74 04 42 55 46 30 B2 24 41 33 00 |.;./.t.BUF0.$A3.|
00000130: 3C 09 7E 04 42 55 46 31 B2 24 41 34 00 57 09 88 |<.~.BUF1.$A4.W..|
00000140: 04 8D B2 24 44 45 30 35 20 20 3B 20 9E 54 45 4D |...$DE05 ; .TEM|
00000150: 20 43 91 53 C0 54 53 00 61 09 92 04 A0 B2 24 30 | C.S.TS.a.....$0|
00000160: 31 00 6F 09 9C 04 A4 42 41 43 4B B2 24 30 32 00 |1.o....BACK.$02.|
00000170: 7E 09 A6 04 44 52 41 47 42 52 B2 24 30 38 00 8D |~...DRAGBR.$08..|
00000180: 09 B0 04 49 4E 56 45 52 54 B2 24 30 31 00 9C 09 |...INVERT.$01...|
00000190: BA 04 53 54 41 54 55 53 B2 24 30 32 00 A9 09 C4 |..STATUS.$02....|
000001A0: 04 42 B0 44 52 B2 24 30 34 00 B9 09 CE 04 52 45 |.B.DR.$04.....RE|
000001B0: 4C 45 41 53 45 B2 24 31 30 00 C7 09 D8 04 A4 47 |LEASE.$10......G|
000001C0: 47 4C 45 B2 24 32 30 00 CD 09 E2 04 3B 00 EF 09 |GLE.$20.....;...|
000001D0: EC 04 3B AB AB AB AB AB AB 20 42 41 53 49 43 20 |..;...... BASIC |
000001E0: 53 54 41 52 54 55 50 20 83 20 2D 2D 2D 2D 2D 00 |STARTUP . -----.|
000001F0: 10 0A F6 04 57 B0 20 24 30 38 31 37 2C 31 39 38 |....W. $0817,198|
00000200: 37 20 20 3B 20 4C 49 4E 45 20 4E 55 4D 42 45 52 |7 ; LINE NUMBER|
00000210: 00 2C 0A 00 05 42 59 54 20 24 39 45 20 20 3B 20 |.,...BYT $9E ; |
00000220: 42 41 53 49 43 20 9E AB 43 4F 44 45 00 4D 0A 0A |BASIC ..CODE.M..|
00000230: 05 42 59 54 20 22 32 30 37 36 20 44 45 53 4B A4 |.BYT "2076 DESK.|
00000240: 50 20 56 31 2E 30 22 2C 30 2C 30 2C 30 00 63 0A |P V1.0",0,0,0.c.|
00000250: 14 05 42 59 54 20 31 2C 30 20 20 3B 20 56 45 52 |..BYT 1,0 ; VER|
00000260: 53 49 91 00 7F 0A 1E 05 42 59 54 20 32 20 20 3B |SI......BYT 2 ;|
00000270: 20 53 49 5A 45 20 49 4E 20 42 4C 4F 43 4B 53 00 | SIZE IN BLOCKS.|
00000280: 98 0A 28 05 4A 4D 50 20 24 44 46 45 38 20 20 3B |..(.JMP $DFE8 ;|
00000290: 20 53 54 41 52 54 55 50 00 AC 0A 32 05 42 59 54 | STARTUP...2.BYT|
000002A0: 20 30 20 20 3B 20 55 4E 55 53 45 44 00 B2 0A 3C | 0 ; UNUSED...<|
000002B0: 05 3B 00 C3 0A 46 05 4D 4E 33 49 54 31 B2 24 43 |.;...F.MN3IT1.$C|
000002C0: 30 43 32 00 D4 0A 50 05 4D 4E 33 49 54 32 B2 24 |0C2...P.MN3IT2.$|
000002D0: 43 30 43 41 00 F8 0A 5A 05 3B AB AB AB AB AB AB |C0CA...Z.;......|
000002E0: 20 4D 41 49 4E 20 AB AB AB AB AB AB AB AB AB AB | MAIN ..........|
000002F0: AB AB AB AB AB AB AB AB 00 0E 0B 64 05 53 54 41 |...........d.STA|
00000300: 52 54 20 4A 53 52 20 53 55 52 56 49 56 45 00 2C |RT JSR SURVIVE.,|
00000310: 0B 6E 05 4C 44 58 20 23 B3 49 54 45 4D 32 20 20 |.n.LDX #.ITEM2 |
00000320: 3B 20 53 45 54 20 A2 20 4D 45 4E 55 00 3C 0B 78 |; SET . MENU.<.x|
00000330: 05 4C 44 59 20 23 B1 49 54 45 4D 32 00 4B 0B 82 |.LDY #.ITEM2.K..|
00000340: 05 53 54 58 20 4D 4E 33 49 54 31 00 5C 0B 8C 05 |.STX MN3IT1.\...|
00000350: 53 54 59 20 4D 4E 33 49 54 31 AA 31 00 64 0B 96 |STY MN3IT1.1.d..|
00000360: 05 52 54 53 00 6A 0B A0 05 3B 00 8D 0B AA 05 3B |.RTS.j...;.....;|
00000370: AB AB AB AB AB AB 20 4D 45 4E 55 49 54 45 4D 20 |...... MENUITEM |
00000380: 53 54 52 55 43 54 55 52 45 20 AB AB AB 00 A9 0B |STRUCTURE ......|
00000390: B4 05 49 54 45 4D 32 20 57 B0 20 49 54 45 4D 33 |..ITEM2 W. ITEM3|
000003A0: 20 20 3B 20 82 49 54 45 4D 00 C4 0B BE 05 57 B0 | ; .ITEM.....W.|
000003B0: 20 49 54 32 54 58 54 20 20 3B 20 49 54 45 4D 20 | IT2TXT ; ITEM |
000003C0: 4E 41 4D 45 00 DC 0B C8 05 57 B0 20 9F 57 44 20 |NAME.....W. .WD |
000003D0: 20 3B 20 49 54 45 4D 20 45 58 45 43 00 F7 0B D2 | ; ITEM EXEC....|
000003E0: 05 42 59 54 20 31 2C 30 20 20 3B 20 45 4E 41 42 |.BYT 1,0 ; ENAB|
000003F0: 4C 45 20 49 54 45 4D 00 12 0C DC 05 49 54 45 4D |LE ITEM.....ITEM|
00000400: 33 20 57 B0 20 30 20 20 3B 20 4E 4F 20 82 49 54 |3 W. 0 ; NO .IT|
00000410: 45 4D 00 20 0C E6 05 57 B0 20 49 54 33 54 58 54 |EM. ...W. IT3TXT|
00000420: 00 2E 0C F0 05 57 B0 20 55 4E 4C 49 4E 4B 00 3A |.....W. UNLINK.:|
00000430: 0C FA 05 42 59 54 20 31 2C 30 00 40 0C 04 06 3B |...BYT 1,0.@...;|
00000440: 00 5B 0C 0E 06 49 54 32 54 58 54 20 42 59 54 20 |.[...IT2TXT BYT |
00000450: 22 C4 C5 CD CF A0 D7 C4 22 2C 30 00 75 0C 18 06 |".......",0.u...|
00000460: 49 54 33 54 58 54 20 42 59 54 20 22 D5 CE CC C9 |IT3TXT BYT "....|
00000470: CE CB 22 2C 30 00 7B 0C 22 06 3B 00 A1 0C 2C 06 |..",0.{.".;...,.|
00000480: 47 47 46 4C 41 47 53 B2 49 4E 56 45 52 54 AA 42 |GGFLAGS.INVERT.B|
00000490: B0 44 52 AA 52 45 4C 45 41 53 45 AA A4 47 47 4C |.DR.RELEASE..GGL|
000004A0: 45 00 C4 0C 36 06 3B AB AB AB AB AB AB 20 57 49 |E...6.;...... WI|
000004B0: 4E 44 4F 57 20 AB AB AB AB AB AB AB AB AB AB AB |NDOW ...........|
000004C0: AB AB AB AB 00 E5 0C 40 06 9F 57 44 20 4C 44 58 |.......@..WD LDX|
000004D0: 20 23 B3 57 49 4E 44 4F 57 20 20 3B 20 43 41 4C | #.WINDOW ; CAL|
000004E0: 4C 20 9F 57 44 00 F6 0C 4A 06 4C 44 59 20 23 B1 |L .WD...J.LDY #.|
000004F0: 57 49 4E 44 4F 57 00 07 0D 54 06 4C 44 41 20 23 |WINDOW...T.LDA #|
00000500: 9F 57 49 4E 44 4F 57 00 11 0D 5E 06 4A 4D 50 20 |.WINDOW...^.JMP |
00000510: 8D 00 17 0D 68 06 3B 00 38 0D 72 06 57 49 4E 44 |....h.;.8.r.WIND|
00000520: 4F 57 20 57 B0 20 47 41 44 A1 20 20 3B 20 46 49 |OW W. GAD. ; FI|
00000530: 52 53 54 20 47 41 44 A1 00 51 0D 7C 06 42 59 54 |RST GAD..Q.|.BYT|
00000540: 20 34 30 2C 34 30 20 20 3B 20 57 44 58 2C 57 44 | 40,40 ; WDX,WD|
00000550: 59 00 70 0D 86 06 42 59 54 20 31 31 30 2C 35 30 |Y.p...BYT 110,50|
00000560: 20 20 3B 20 57 49 44 54 48 2C 48 45 49 47 48 54 | ; WIDTH,HEIGHT|
00000570: 00 8E 0D 90 06 57 B0 20 57 44 54 49 54 4C 45 20 |.....W. WDTITLE |
00000580: 20 3B 20 57 49 4E 44 4F 57 20 4E 41 4D 45 00 B0 | ; WINDOW NAME..|
00000590: 0D 9A 06 42 59 54 20 A0 AA A4 42 41 43 4B AA 44 |...BYT ...BACK.D|
000005A0: 52 41 47 42 52 20 20 3B 20 57 44 46 4C 41 47 53 |RAGBR ; WDFLAGS|
000005B0: 00 CB 0D A4 06 42 59 54 20 36 36 20 20 3B 20 57 |.....BYT 66 ; W|
000005C0: 44 54 49 54 4C 45 20 53 49 5A 45 00 D6 0D AE 06 |DTITLE SIZE.....|
000005D0: 57 B0 20 30 2C 30 00 DC 0D B8 06 3B 00 F4 0D C2 |W. 0,0.....;....|
000005E0: 06 47 41 44 A1 20 57 B0 20 30 20 20 3B 20 82 20 |.GAD. W. 0 ; . |
000005F0: 47 41 44 A1 00 0D 0E CC 06 42 59 54 20 31 39 2C |GAD......BYT 19,|
00000600: 32 35 20 20 3B 20 47 47 58 2C 47 47 59 00 2B 0E |25 ; GGX,GGY.+.|
00000610: D6 06 42 59 54 20 37 30 2C 31 32 20 20 3B 20 57 |..BYT 70,12 ; W|
00000620: 49 44 54 48 2C 48 45 49 47 48 54 00 46 0E E0 06 |IDTH,HEIGHT.F...|
00000630: 57 B0 20 47 47 54 45 58 54 20 20 3B 20 47 41 44 |W. GGTEXT ; GAD|
00000640: A1 20 54 45 58 54 00 64 0E EA 06 42 59 54 20 47 |. TEXT.d...BYT G|
00000650: 47 46 4C 41 47 53 20 20 3B 20 47 41 44 A1 20 46 |GFLAGS ; GAD. F|
00000660: 4C 41 47 53 00 83 0E F4 06 57 B0 20 30 2C 47 47 |LAGS.....W. 0,GG|
00000670: 45 58 45 43 2C 30 20 20 3B 20 47 41 44 A1 20 45 |EXEC,0 ; GAD. E|
00000680: 58 45 43 00 89 0E FE 06 3B 00 A7 0E 08 07 57 44 |XEC.....;.....WD|
00000690: 54 49 54 4C 45 20 42 59 54 20 22 CD 59 20 D7 49 |TITLE BYT ".Y .I|
000006A0: 4E 44 4F 57 22 2C 30 00 CE 0E 12 07 47 47 54 45 |NDOW",0.....GGTE|
000006B0: 58 54 20 42 59 54 20 35 2C 32 2C 31 20 20 3B 20 |XT BYT 5,2,1 ; |
000006C0: 54 45 58 54 20 53 54 52 55 43 54 55 52 45 00 E8 |TEXT STRUCTURE..|
000006D0: 0E 1C 07 42 59 54 20 22 D4 4F 47 47 4C 45 20 C7 |...BYT ".OGGLE .|
000006E0: 41 44 47 45 54 22 2C 30 00 EE 0E 26 07 3B 00 0F |ADGET",0...&.;..|
000006F0: 0F 30 07 3B AB AB AB AB AB AB 20 47 41 44 A1 20 |.0.;...... GAD. |
00000700: 45 58 45 43 20 AB AB AB AB AB AB AB AB AB AB 00 |EXEC ...........|
00000710: 29 0F 3A 07 47 47 45 58 45 43 20 4C 44 41 20 43 |).:.GGEXEC LDA C|
00000720: 55 52 47 47 46 4C 41 47 53 00 4B 0F 44 07 AF 20 |URGGFLAGS.K.D.. |
00000730: 23 53 54 41 54 55 53 20 20 3B 20 54 45 53 54 20 |#STATUS ; TEST |
00000740: 47 41 44 A1 20 53 54 41 54 55 53 00 5C 0F 4E 07 |GAD. STATUS.\.N.|
00000750: 42 45 51 20 4E 4F 53 45 4C 45 43 54 00 7B 0F 58 |BEQ NOSELECT.{.X|
00000760: 07 49 4E 43 20 24 44 30 32 30 20 20 3B 20 47 41 |.INC $D020 ; GA|
00000770: 44 A1 20 53 45 4C 45 43 54 45 44 00 83 0F 62 07 |D. SELECTED...b.|
00000780: 52 54 53 00 A9 0F 6C 07 4E 4F 53 45 4C 45 43 54 |RTS...l.NOSELECT|
00000790: 20 20 44 45 43 20 24 44 30 32 30 20 20 3B 20 55 | DEC $D020 ; U|
000007A0: 4E 53 45 4C 45 43 54 45 44 00 B1 0F 76 07 52 54 |NSELECTED...v.RT|
000007B0: 53 00 B7 0F 80 07 3B 00 DA 0F 8A 07 3B AB AB AB |S.....;.....;...|
000007C0: AB AB AB 20 55 4E 4C 49 4E 4B 20 AB AB AB AB AB |... UNLINK .....|
000007D0: AB AB AB AB AB AB AB AB AB AB 00 FA 0F 94 07 55 |...............U|
000007E0: 4E 4C 49 4E 4B 20 4C 44 58 20 23 B3 57 49 4E 44 |NLINK LDX #.WIND|
000007F0: 4F 57 20 20 3B 20 A0 20 57 44 00 0B 10 9E 07 4C |OW ; . WD.....L|
00000800: 44 59 20 23 B1 57 49 4E 44 4F 57 00 17 10 A8 07 |DY #.WINDOW.....|
00000810: 4A 53 52 20 A0 57 44 00 35 10 B2 07 4C 44 58 20 |JSR .WD.5...LDX |
00000820: 23 B3 4D 4E 33 49 54 32 20 20 3B 20 8F 4F 56 45 |#.MN3IT2 ; .OVE|
00000830: 20 4D 45 4E 55 00 46 10 BC 07 4C 44 59 20 23 B1 | MENU.F...LDY #.|
00000840: 4D 4E 33 49 54 32 00 55 10 C6 07 53 54 58 20 4D |MN3IT2.U...STX M|
00000850: 4E 33 49 54 31 00 66 10 D0 07 53 54 59 20 4D 4E |N3IT1.f...STY MN|
00000860: 33 49 54 31 AA 31 00 84 10 DA 07 49 4E 43 20 24 |3IT1.1.....INC $|
00000870: 38 30 30 34 20 20 3B 20 8F 4F 56 45 20 53 55 52 |8004 ; .OVE SUR|
00000880: 56 49 56 45 00 8C 10 E4 07 52 54 53 00 92 10 EE |VIVE.....RTS....|
00000890: 07 3B 00 B1 10 F8 07 3B AB AB AB AB AB AB 20 A0 |.;.....;...... .|
000008A0: 20 57 49 4E 44 4F 57 20 AB AB AB AB AB AB AB AB | WINDOW ........|
000008B0: AB 00 C2 10 02 08 A0 57 44 20 53 54 58 20 42 55 |.......WD STX BU|
000008C0: 46 30 00 CF 10 0C 08 53 54 59 20 42 55 46 31 00 |F0.....STY BUF1.|
000008D0: EC 10 16 08 4C 44 41 20 23 57 44 91 53 43 52 45 |....LDA #WD.SCRE|
000008E0: 45 4E 20 20 3B 20 8B 20 57 44 20 9F 00 F6 10 20 |EN ; . WD .... |
000008F0: 08 4A 53 52 20 8D 00 FE 10 2A 08 49 4E 59 00 08 |.JSR ....*.INY..|
00000900: 11 34 08 42 45 51 20 A8 00 1E 11 3E 08 4C 44 58 |.4.BEQ ....>.LDX|
00000910: 20 42 55 46 30 20 20 3B 20 A7 20 A0 57 44 00 2B | BUF0 ; . .WD.+|
00000920: 11 48 08 4C 44 59 20 42 55 46 31 00 3D 11 52 08 |.H.LDY BUF1.=.R.|
00000930: 4C 44 41 20 23 53 45 54 43 55 52 57 44 00 47 11 |LDA #SETCURWD.G.|
00000940: 5C 08 4A 53 52 20 8D 00 54 11 66 08 4C 44 41 20 |\.JSR ..T.f.LDA |
00000950: 23 57 44 A0 00 5E 11 70 08 4A 53 52 20 8D 00 68 |#WD..^.p.JSR ..h|
00000960: 11 7A 08 A8 20 52 54 53 00 6E 11 84 08 3B 00 91 |.z.. RTS.n...;..|
00000970: 11 8E 08 3B AB AB AB AB AB AB 20 52 45 53 45 54 |...;...... RESET|
00000980: 20 53 55 52 56 49 56 45 20 AB AB AB AB AB AB AB | SURVIVE .......|
00000990: AB 00 B6 11 98 08 53 55 52 56 49 56 45 20 4C 44 |......SURVIVE LD|
000009A0: 58 20 23 36 AB 31 20 20 3B 20 49 4E 53 54 41 4C |X #6.1 ; INSTAL|
000009B0: 4C 20 43 4F 44 45 00 CA 11 A2 08 53 4C 50 20 4C |L CODE.....SLP L|
000009C0: 44 41 20 54 41 42 45 4C 2C 58 00 DA 11 AC 08 53 |DA TABEL,X.....S|
000009D0: 54 41 20 24 38 30 30 30 2C 58 00 E2 11 B6 08 44 |TA $8000,X.....D|
000009E0: 45 58 00 EE 11 C0 08 42 50 4C 20 53 4C 50 00 F6 |EX.....BPL SLP..|
000009F0: 11 CA 08 52 54 53 00 0B 12 D4 08 54 41 42 45 4C |...RTS.....TABEL|
00000A00: 20 57 B0 20 53 54 41 52 54 AA 33 00 1A 12 DE 08 | W. START.3.....|
00000A10: 42 59 54 20 22 4D 47 38 37 22 00 20 12 E8 08 3B |BYT "MG87". ...;|
00000A20: 00 43 12 F2 08 3B AB AB AB AB AB AB 20 49 4E 43 |.C...;...... INC|
00000A30: 4C 55 44 45 53 20 AB AB AB AB AB AB AB AB AB AB |LUDES ..........|
00000A40: AB AB AB 00 52 12 FC 08 9F 57 49 4E 44 4F 57 B2 |....R....WINDOW.|
00000A50: 34 38 00 63 12 06 09 57 44 91 53 43 52 45 45 4E |48.c...WD.SCREEN|
00000A60: B2 37 30 00 6E 12 10 09 57 44 A0 B2 36 35 00 7E |.70.n...WD..65.~|
00000A70: 12 1A 09 53 45 54 43 55 52 57 44 B2 32 39 00 00 |...SETCURWD.29..|
00000A80: 00 |. |
.. ...; .GGLEGAD. 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...`.CURGGFLAGS.$
C013.".J.;./.T.BUF0.$A3.<.~.BUF1.$A4.W..
...$DE05 ; .TEM C.S.TS.A... .$01.O....B
ACK.$02.~...DRAGBR.$08.....INVERT.$01...
..STATUS.$02...D.B.DR.$04...N.RELEASE.$1
0.G.X..GGLE.$20.M...;.....;...... BASIC
STARTUP . -----.....W. $0817,1987 ; LIN
E NUMBER.,...BYT $9E ; BASIC ..CODE.M..
.BYT "2076 DESK.P V1.0",0,0,0.C...BYT 1,
0 ; VERSI.....BYT 2 ; SIZE IN BLOCKS.
..(.JMP $DFE8 ; STARTUP...2.BYT 0 ; UN
USED...<.;.C.F.MN3IT1.$C0C2.T.P.MN3IT2.$
C0CA...Z.;...... MAIN ..................
...D.START JSR SURVIVE.,.N.LDX #.ITEM2
; SET . MENU.<.X.LDY #.ITEM2.K...STX MN3
IT1.\...STY MN3IT1.1.D...RTS.J. .;.....;
...... MENUITEM STRUCTURE ........ITEM2
W. ITEM3 ; .ITEM.D...W. IT2TXT ; ITEM
NAME...H.W. .WD ; ITEM EXEC...R.BYT 1,0
; ENABLE ITEM.....ITEM3 W. 0 ; NO .IT
EM. ...W. IT3TXT.....W. UNLINK.:...BYT 1
,0.@...;.[...IT2TXT BYT "DEMO WD",0.U...
IT3TXT BYT "UNLINK",0.{.".;...,.GGFLAGS.
INVERT.B.DR.RELEASE..GGLE.D.6.;...... WI
NDOW ..................@..WD LDX #.WINDO
W ; CALL .WD...J.LDY #.WINDOW...T.LDA #
.WINDOW...^.JMP ....H.;.8.R.WINDOW W. GA
D. ; FIRST GAD..Q.|.BYT 40,40 ; WDX,WD
Y.P...BYT 110,50 ; WIDTH,HEIGHT.....W.
WDTITLE ; WINDOW NAME.....BYT ..BACK.D
RAGBR ; WDFLAGS.K...BYT 66 ; WDTITLE S
IZE.V...W. 0,0.....;...B.GAD. W. 0 ; .
GAD....L.BYT 19,25 ; GGX,GGY.+.V.BYT 70
,12 ; WIDTH,HEIGHT.F...W. GGTEXT ; GAD
. TEXT.D...BYT GGFLAGS ; GAD. FLAGS....
.W. 0,GGEXEC,0 ; GAD. EXEC.....;.....WD
TITLE BYT "MY WINDOW",0.N...GGTEXT BYT 5
,2,1 ; TEXT STRUCTURE.....BYT "TOGGLE G
ADGET",0...&.;...0.;...... GAD. EXEC ...
........).:.GGEXEC LDA CURGGFLAGS.K.D..
#STATUS ; TEST GAD. STATUS.\.N.BEQ NOSE
LECT.{.X.INC $D020 ; GAD. SELECTED...B.
RTS...L.NOSELECT DEC $D020 ; UNSELECTE
D...V.RTS.....;.Z...;...... UNLINK .....
...............UNLINK LDX #.WINDOW ;
WD.....LDY #.WINDOW.....JSR WD.5...LDX
#.MN3IT2 ; .OVE MENU.F...LDY #.MN3IT2.U
.F.STX MN3IT1.F.P.STY MN3IT1.1...Z.INC $
8004 ; .OVE SURVIVE.....RTS.....;.....;
...... WINDOW ..........B... WD STX BU
F0.O...STY BUF1.....LDA #WD.SCREEN ; .
WD .... .JSR ....*.INY...4.BEQ ....>.LDX
BUF0 ; . WD.+.H.LDY BUF1.=.R.LDA #SET
CURWD.G.\.JSR ..T.F.LDA #WD .^.P.JSR ..H
.Z.. RTS.N...;.....;...... RESET SURVIVE
.............SURVIVE LDX #6.1 ; INSTAL
L CODE.J...SLP LDA TABEL,X.Z...STA $8000
,X.....DEX.....BPL SLP...J.RTS...T.TABEL
W. START.3.....BYT "MG87". ...;.C...;..
.... INCLUDES ..............R....WINDOW.
48.C...WD.SCREEN.70.N...WD .65.~...SETCU
RWD.29...
> CLICK IMAGE PREVIEW FOR FULL MODAL