STRINGGADGET.ASM
FILE INFORMATION
FILENAME(S): STRINGGADGET.ASM
FILE TYPE(S): PRG
FILE SIZE: 2.5K
FIRST SEEN: 2025-11-30 16:59:22
APPEARS ON: 2 disk(s)
FILE HASH
f069f5358603f9fee58639f298cdfde3a817269b4d6e5250a14ebea606d061a4
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FCIII-SW | STRINGGADGET.ASM | PRG | High Voltage Complete C64 Collection | 20 | 10 | DOWNLOAD FILE |
| A | STRINGGADGET.ASM | PRG | marcus | 14 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 E8 03 3B 20 53 54 52 49 4E 47 47 41 |..!...; STRINGGA| 00000010: 44 A1 20 44 41 54 45 3A 20 31 30 AB 30 33 AB 38 |D. DATE: 10.03.8| 00000020: 38 00 48 08 F2 03 3B AB AB AB AB AB AB AB AB AB |8.H...;.........| 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 00 4E 08 FC 03 3B 00 73 |.........N...;.s| 00000050: 08 06 04 3B 20 54 48 45 20 46 49 4E 41 4C 20 43 |...; THE FINAL C| 00000060: 41 52 54 52 49 44 47 45 20 49 49 49 20 44 45 53 |ARTRIDGE III DES| 00000070: 4B A4 50 00 79 08 10 04 3B 00 9B 08 1A 04 3B 20 |K.P.y...;.....; | 00000080: 20 20 20 20 52 49 53 4B 41 20 48 26 50 2C 20 4D | RISKA H&P, M| 00000090: 41 52 43 20 44 45 52 4B 53 45 4E 00 A1 08 24 04 |ARC DERKSEN...$.| 000000A0: 3B 00 C3 08 2E 04 3B 20 20 20 20 20 50 20 52 20 |;.....; P R | 000000B0: 4F 20 4A 20 45 20 43 20 54 20 20 20 44 20 45 20 |O J E C T D E | 000000C0: 4D 20 4F 00 C9 08 38 04 3B 00 F0 08 42 04 3B AB |M 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 AB |................| 000000F0: 00 F6 08 4C 04 3B 00 08 09 56 04 AC B2 24 30 42 |...L.;...V...$0B| 00000100: 45 31 2C 24 30 38 30 31 00 15 09 60 04 42 55 46 |E1,$0801...`.BUF| 00000110: 30 B2 24 41 33 00 22 09 6A 04 42 55 46 31 B2 24 |0.$A3.".j.BUF1.$| 00000120: 41 34 00 3D 09 74 04 8D B2 24 44 45 30 35 20 20 |A4.=.t...$DE05 | 00000130: 3B 20 9E 54 45 4D 20 43 91 53 C0 54 53 00 47 09 |; .TEM C.S.TS.G.| 00000140: 7E 04 A0 B2 24 30 31 00 55 09 88 04 A4 42 41 43 |~...$01.U....BAC| 00000150: 4B B2 24 30 32 00 64 09 92 04 44 52 41 47 42 52 |K.$02.d...DRAGBR| 00000160: B2 24 30 38 00 71 09 9C 04 42 B0 44 52 B2 24 30 |.$08.q...B.DR.$0| 00000170: 34 00 80 09 A6 04 53 54 52 49 4E 47 B2 24 38 30 |4.....STRING.$80| 00000180: 00 86 09 B0 04 3B 00 A8 09 BA 04 3B AB AB AB AB |.....;.....;....| 00000190: AB AB 20 42 41 53 49 43 20 53 54 41 52 54 55 50 |.. BASIC STARTUP| 000001A0: 20 83 20 2D 2D 2D 2D 2D 00 C9 09 C4 04 57 B0 20 | . -----.....W. | 000001B0: 24 30 38 31 37 2C 31 39 38 37 20 20 3B 20 4C 49 |$0817,1987 ; LI| 000001C0: 4E 45 20 4E 55 4D 42 45 52 00 E5 09 CE 04 42 59 |NE NUMBER.....BY| 000001D0: 54 20 24 39 45 20 20 3B 20 42 41 53 49 43 20 9E |T $9E ; BASIC .| 000001E0: AB 43 4F 44 45 00 06 0A D8 04 42 59 54 20 22 32 |.CODE.....BYT "2| 000001F0: 30 37 36 20 44 45 53 4B A4 50 20 56 31 2E 30 22 |076 DESK.P V1.0"| 00000200: 2C 30 2C 30 2C 30 00 1C 0A E2 04 42 59 54 20 31 |,0,0,0.....BYT 1| 00000210: 2C 30 20 20 3B 20 56 45 52 53 49 91 00 38 0A EC |,0 ; VERSI..8..| 00000220: 04 42 59 54 20 32 20 20 3B 20 53 49 5A 45 20 49 |.BYT 2 ; SIZE I| 00000230: 4E 20 42 4C 4F 43 4B 53 00 51 0A F6 04 4A 4D 50 |N BLOCKS.Q...JMP| 00000240: 20 24 44 46 45 38 20 20 3B 20 53 54 41 52 54 55 | $DFE8 ; STARTU| 00000250: 50 00 65 0A 00 05 42 59 54 20 30 20 20 3B 20 55 |P.e...BYT 0 ; U| 00000260: 4E 55 53 45 44 00 6B 0A 0A 05 3B 00 7C 0A 14 05 |NUSED.k...;.|...| 00000270: 4D 4E 33 49 54 31 B2 24 43 30 43 32 00 8D 0A 1E |MN3IT1.$C0C2....| 00000280: 05 4D 4E 33 49 54 32 B2 24 43 30 43 41 00 B1 0A |.MN3IT2.$C0CA...| 00000290: 28 05 3B AB AB AB AB AB AB 20 4D 41 49 4E 20 AB |(.;...... MAIN .| 000002A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................| 000002B0: AB 00 C7 0A 32 05 53 54 41 52 54 20 4A 53 52 20 |....2.START JSR | 000002C0: 53 55 52 56 49 56 45 00 E5 0A 3C 05 4C 44 58 20 |SURVIVE...<.LDX | 000002D0: 23 B3 49 54 45 4D 32 20 20 3B 20 53 45 54 20 A2 |#.ITEM2 ; SET .| 000002E0: 20 4D 45 4E 55 00 F5 0A 46 05 4C 44 59 20 23 B1 | MENU...F.LDY #.| 000002F0: 49 54 45 4D 32 00 04 0B 50 05 53 54 58 20 4D 4E |ITEM2...P.STX MN| 00000300: 33 49 54 31 00 15 0B 5A 05 53 54 59 20 4D 4E 33 |3IT1...Z.STY MN3| 00000310: 49 54 31 AA 31 00 1D 0B 64 05 52 54 53 00 23 0B |IT1.1...d.RTS.#.| 00000320: 6E 05 3B 00 46 0B 78 05 3B AB AB AB AB AB AB 20 |n.;.F.x.;...... | 00000330: 4D 45 4E 55 49 54 45 4D 20 53 54 52 55 43 54 55 |MENUITEM STRUCTU| 00000340: 52 45 20 AB AB AB 00 62 0B 82 05 49 54 45 4D 32 |RE ....b...ITEM2| 00000350: 20 57 B0 20 49 54 45 4D 33 20 20 3B 20 82 49 54 | W. ITEM3 ; .IT| 00000360: 45 4D 00 7D 0B 8C 05 57 B0 20 49 54 32 54 58 54 |EM.}...W. IT2TXT| 00000370: 20 20 3B 20 49 54 45 4D 20 4E 41 4D 45 00 95 0B | ; ITEM NAME...| 00000380: 96 05 57 B0 20 9F 57 44 20 20 3B 20 49 54 45 4D |..W. .WD ; ITEM| 00000390: 20 45 58 45 43 00 B0 0B A0 05 42 59 54 20 31 2C | EXEC.....BYT 1,| 000003A0: 30 20 20 3B 20 45 4E 41 42 4C 45 20 49 54 45 4D |0 ; ENABLE ITEM| 000003B0: 00 CB 0B AA 05 49 54 45 4D 33 20 57 B0 20 30 20 |.....ITEM3 W. 0 | 000003C0: 20 3B 20 4E 4F 20 82 49 54 45 4D 00 D9 0B B4 05 | ; NO .ITEM.....| 000003D0: 57 B0 20 49 54 33 54 58 54 00 E7 0B BE 05 57 B0 |W. IT3TXT.....W.| 000003E0: 20 55 4E 4C 49 4E 4B 00 F3 0B C8 05 42 59 54 20 | UNLINK.....BYT | 000003F0: 31 2C 30 00 F9 0B D2 05 3B 00 14 0C DC 05 49 54 |1,0.....;.....IT| 00000400: 32 54 58 54 20 42 59 54 20 22 C4 C5 CD CF A0 D7 |2TXT BYT "......| 00000410: C4 22 2C 30 00 2E 0C E6 05 49 54 33 54 58 54 20 |.",0.....IT3TXT | 00000420: 42 59 54 20 22 D5 CE CC C9 CE CB 22 2C 30 00 34 |BYT "......",0.4| 00000430: 0C F0 05 3B 00 4C 0C FA 05 47 47 46 4C 41 47 53 |...;.L...GGFLAGS| 00000440: B2 42 B0 44 52 AA 53 54 52 49 4E 47 00 6F 0C 04 |.B.DR.STRING.o..| 00000450: 06 3B AB AB AB AB AB AB 20 57 49 4E 44 4F 57 20 |.;...... WINDOW | 00000460: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 |................| 00000470: 90 0C 0E 06 9F 57 44 20 4C 44 58 20 23 B3 57 49 |.....WD LDX #.WI| 00000480: 4E 44 4F 57 20 20 3B 20 43 41 4C 4C 20 9F 57 44 |NDOW ; CALL .WD| 00000490: 00 A1 0C 18 06 4C 44 59 20 23 B1 57 49 4E 44 4F |.....LDY #.WINDO| 000004A0: 57 00 B2 0C 22 06 4C 44 41 20 23 9F 57 49 4E 44 |W...".LDA #.WIND| 000004B0: 4F 57 00 BC 0C 2C 06 4A 4D 50 20 8D 00 C2 0C 36 |OW...,.JMP ....6| 000004C0: 06 3B 00 E3 0C 40 06 57 49 4E 44 4F 57 20 57 B0 |.;...@.WINDOW W.| 000004D0: 20 47 41 44 A1 20 20 3B 20 46 49 52 53 54 20 47 | GAD. ; FIRST G| 000004E0: 41 44 A1 00 FC 0C 4A 06 42 59 54 20 34 30 2C 34 |AD....J.BYT 40,4| 000004F0: 30 20 20 3B 20 57 44 58 2C 57 44 59 00 1B 0D 54 |0 ; WDX,WDY...T| 00000500: 06 42 59 54 20 31 31 30 2C 35 30 20 20 3B 20 57 |.BYT 110,50 ; W| 00000510: 49 44 54 48 2C 48 45 49 47 48 54 00 39 0D 5E 06 |IDTH,HEIGHT.9.^.| 00000520: 57 B0 20 57 44 54 49 54 4C 45 20 20 3B 20 57 49 |W. WDTITLE ; WI| 00000530: 4E 44 4F 57 20 4E 41 4D 45 00 5B 0D 68 06 42 59 |NDOW NAME.[.h.BY| 00000540: 54 20 A0 AA A4 42 41 43 4B AA 44 52 41 47 42 52 |T ...BACK.DRAGBR| 00000550: 20 20 3B 20 57 44 46 4C 41 47 53 00 76 0D 72 06 | ; WDFLAGS.v.r.| 00000560: 42 59 54 20 36 36 20 20 3B 20 57 44 54 49 54 4C |BYT 66 ; WDTITL| 00000570: 45 20 53 49 5A 45 00 81 0D 7C 06 57 B0 20 30 2C |E SIZE...|.W. 0,| 00000580: 30 00 87 0D 86 06 3B 00 9F 0D 90 06 47 41 44 A1 |0.....;.....GAD.| 00000590: 20 57 B0 20 30 20 20 3B 20 82 20 47 41 44 A1 00 | W. 0 ; . GAD..| 000005A0: B8 0D 9A 06 42 59 54 20 31 37 2C 33 30 20 20 3B |....BYT 17,30 ;| 000005B0: 20 47 47 58 2C 47 47 59 00 D5 0D A4 06 42 59 54 | GGX,GGY.....BYT| 000005C0: 20 37 33 2C 39 20 20 3B 20 57 49 44 54 48 2C 48 | 73,9 ; WIDTH,H| 000005D0: 45 49 47 48 54 00 F0 0D AE 06 57 B0 20 47 47 54 |EIGHT.....W. GGT| 000005E0: 45 58 54 20 20 3B 20 47 41 44 A1 20 54 45 58 54 |EXT ; GAD. TEXT| 000005F0: 00 0E 0E B8 06 42 59 54 20 47 47 46 4C 41 47 53 |.....BYT GGFLAGS| 00000600: 20 20 3B 20 47 41 44 A1 20 46 4C 41 47 53 00 28 | ; GAD. FLAGS.(| 00000610: 0E C2 06 57 B0 20 30 2C 30 2C 30 20 20 3B 20 47 |...W. 0,0,0 ; G| 00000620: 41 44 A1 20 45 58 45 43 00 3D 0E CC 06 42 59 54 |AD. EXEC.=...BYT| 00000630: 20 30 20 20 3B 20 55 53 45 52 20 B8 45 00 57 0E | 0 ; USER .E.W.| 00000640: D6 06 42 59 54 20 39 20 20 3B 20 39 20 43 48 41 |..BYT 9 ; 9 CHA| 00000650: 52 41 43 54 45 52 53 00 6F 0E E0 06 57 B0 20 53 |RACTERS.o...W. S| 00000660: 54 52 49 4E 50 20 20 3B 20 85 20 54 45 58 54 00 |TRINP ; . TEXT.| 00000670: 75 0E EA 06 3B 00 93 0E F4 06 57 44 54 49 54 4C |u...;.....WDTITL| 00000680: 45 20 42 59 54 20 22 CD 59 20 D7 49 4E 44 4F 57 |E BYT ".Y .INDOW| 00000690: 22 2C 30 00 B8 0E FE 06 47 47 54 45 58 54 20 42 |",0.....GGTEXT B| 000006A0: 59 54 20 35 2C 24 46 34 2C 31 20 20 3B 20 54 45 |YT 5,$F4,1 ; TE| 000006B0: 58 54 20 53 54 52 55 43 00 D3 0E 08 07 42 59 54 |XT STRUC.....BYT| 000006C0: 20 22 D3 54 52 49 4E 47 20 C7 41 44 47 45 54 3A | ".TRING .ADGET:| 000006D0: 22 2C 30 00 E8 0E 12 07 53 54 52 49 4E 50 20 42 |",0.....STRINP B| 000006E0: 59 54 20 32 2C 31 2C 31 00 07 0F 1C 07 57 B0 20 |YT 2,1,1.....W. | 000006F0: 30 2C 30 2C 30 2C 30 2C 30 20 20 3B 20 31 30 20 |0,0,0,0,0 ; 10 | 00000700: 42 59 54 45 53 20 85 00 0D 0F 26 07 3B 00 30 0F |BYTES ....&.;.0.| 00000710: 30 07 3B AB AB AB AB AB AB 20 55 4E 4C 49 4E 4B |0.;...... UNLINK| 00000720: 20 AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB | ...............| 00000730: 00 50 0F 3A 07 55 4E 4C 49 4E 4B 20 4C 44 58 20 |.P.:.UNLINK LDX | 00000740: 23 B3 57 49 4E 44 4F 57 20 20 3B 20 A0 20 57 44 |#.WINDOW ; . WD| 00000750: 00 61 0F 44 07 4C 44 59 20 23 B1 57 49 4E 44 4F |.a.D.LDY #.WINDO| 00000760: 57 00 6D 0F 4E 07 4A 53 52 20 A0 57 44 00 8B 0F |W.m.N.JSR .WD...| 00000770: 58 07 4C 44 58 20 23 B3 4D 4E 33 49 54 32 20 20 |X.LDX #.MN3IT2 | 00000780: 3B 20 8F 4F 56 45 20 4D 45 4E 55 00 9C 0F 62 07 |; .OVE MENU...b.| 00000790: 4C 44 59 20 23 B1 4D 4E 33 49 54 32 00 AB 0F 6C |LDY #.MN3IT2...l| 000007A0: 07 53 54 58 20 4D 4E 33 49 54 31 00 BC 0F 76 07 |.STX MN3IT1...v.| 000007B0: 53 54 59 20 4D 4E 33 49 54 31 AA 31 00 DA 0F 80 |STY MN3IT1.1....| 000007C0: 07 49 4E 43 20 24 38 30 30 34 20 20 3B 20 8F 4F |.INC $8004 ; .O| 000007D0: 56 45 20 53 55 52 56 49 56 45 00 E2 0F 8A 07 52 |VE SURVIVE.....R| 000007E0: 54 53 00 E8 0F 94 07 3B 00 07 10 9E 07 3B AB AB |TS.....;.....;..| 000007F0: AB AB AB AB 20 A0 20 57 49 4E 44 4F 57 20 AB AB |.... . WINDOW ..| 00000800: AB AB AB AB AB AB AB 00 18 10 A8 07 A0 57 44 20 |.............WD | 00000810: 53 54 58 20 42 55 46 30 00 25 10 B2 07 53 54 59 |STX BUF0.%...STY| 00000820: 20 42 55 46 31 00 42 10 BC 07 4C 44 41 20 23 57 | BUF1.B...LDA #W| 00000830: 44 91 53 43 52 45 45 4E 20 20 3B 20 8B 20 57 44 |D.SCREEN ; . WD| 00000840: 20 9F 00 4C 10 C6 07 4A 53 52 20 8D 00 54 10 D0 | ..L...JSR ..T..| 00000850: 07 49 4E 59 00 5E 10 DA 07 42 45 51 20 A8 00 74 |.INY.^...BEQ ..t| 00000860: 10 E4 07 4C 44 58 20 42 55 46 30 20 20 3B 20 A7 |...LDX BUF0 ; .| 00000870: 20 A0 57 44 00 81 10 EE 07 4C 44 59 20 42 55 46 | .WD.....LDY BUF| 00000880: 31 00 93 10 F8 07 4C 44 41 20 23 53 45 54 43 55 |1.....LDA #SETCU| 00000890: 52 57 44 00 9D 10 02 08 4A 53 52 20 8D 00 AA 10 |RWD.....JSR ....| 000008A0: 0C 08 4C 44 41 20 23 57 44 A0 00 B4 10 16 08 4A |..LDA #WD......J| 000008B0: 53 52 20 8D 00 BE 10 20 08 A8 20 52 54 53 00 C4 |SR .... .. RTS..| 000008C0: 10 2A 08 3B 00 E7 10 34 08 3B AB AB AB AB AB AB |.*.;...4.;......| 000008D0: 20 52 45 53 45 54 20 53 55 52 56 49 56 45 20 AB | RESET SURVIVE .| 000008E0: AB AB AB AB AB AB AB 00 0C 11 3E 08 53 55 52 56 |..........>.SURV| 000008F0: 49 56 45 20 4C 44 58 20 23 36 AB 31 20 20 3B 20 |IVE LDX #6.1 ; | 00000900: 49 4E 53 54 41 4C 4C 20 43 4F 44 45 00 20 11 48 |INSTALL CODE. .H| 00000910: 08 53 4C 50 20 4C 44 41 20 54 41 42 45 4C 2C 58 |.SLP LDA TABEL,X| 00000920: 00 30 11 52 08 53 54 41 20 24 38 30 30 30 2C 58 |.0.R.STA $8000,X| 00000930: 00 38 11 5C 08 44 45 58 00 44 11 66 08 42 50 4C |.8.\.DEX.D.f.BPL| 00000940: 20 53 4C 50 00 4C 11 70 08 52 54 53 00 61 11 7A | SLP.L.p.RTS.a.z| 00000950: 08 54 41 42 45 4C 20 57 B0 20 53 54 41 52 54 AA |.TABEL W. START.| 00000960: 33 00 70 11 84 08 42 59 54 20 22 4D 47 38 37 22 |3.p...BYT "MG87"| 00000970: 00 76 11 8E 08 3B 00 99 11 98 08 3B AB AB AB AB |.v...;.....;....| 00000980: AB AB 20 49 4E 43 4C 55 44 45 53 20 AB AB AB AB |.. INCLUDES ....| 00000990: AB AB AB AB AB AB AB AB AB 00 A8 11 A2 08 9F 57 |...............W| 000009A0: 49 4E 44 4F 57 B2 34 38 00 B9 11 AC 08 57 44 91 |INDOW.48.....WD.| 000009B0: 53 43 52 45 45 4E B2 37 30 00 C4 11 B6 08 57 44 |SCREEN.70.....WD| 000009C0: A0 B2 36 35 00 D4 11 C0 08 53 45 54 43 55 52 57 |..65.....SETCURW| 000009D0: 44 B2 32 39 00 00 00 |D.29... |
..!...; STRINGGAD. DATE: 10.03.88.H...;. .................................N...;.S ...; THE FINAL CARTRIDGE III DESK.P.Y... ;.....; RISKA H&P, MARC DERKSEN...$. ;.C...; P R O J E C T D E M O.I.8. ;...B.;................................. ...L.;...V...$0BE1,$0801...`.BUF0.$A3.". J.BUF1.$A4.=.T...$DE05 ; .TEM C.S.TS.G. ~. .$01.U....BACK.$02.D...DRAGBR.$08.Q.. .B.DR.$04.....STRING.$80.....;.....;.... .. BASIC STARTUP . -----.I.D.W. $0817,19 87 ; LINE NUMBER...N.BYT $9E ; BASIC . .CODE...X.BYT "2076 DESK.P V1.0",0,0,0.. ...BYT 1,0 ; VERSI..8...BYT 2 ; SIZE I N BLOCKS.Q...JMP $DFE8 ; STARTUP.E...BY T 0 ; UNUSED.K...;.|...MN3IT1.$C0C2.... .MN3IT2.$C0CA...(.;...... MAIN ......... ..........G.2.START JSR SURVIVE...<.LDX #.ITEM2 ; SET . MENU...F.LDY #.ITEM2... P.STX MN3IT1...Z.STY MN3IT1.1...D.RTS.#. N.;.F.X.;...... MENUITEM STRUCTURE ....B ...ITEM2 W. ITEM3 ; .ITEM.}...W. IT2TXT ; ITEM NAME.....W. .WD ; ITEM EXEC... .BYT 1,0 ; ENABLE ITEM.K...ITEM3 W. 0 ; NO .ITEM.Y...W. IT3TXT.....W. UNLINK. ..H.BYT 1,0...R.;.....IT2TXT BYT "DEMO W D",0.....IT3TXT BYT "UNLINK",0.4...;.L.. .GGFLAGS.B.DR.STRING.O...;...... WINDOW .....................WD LDX #.WINDOW ; CALL .WD.....LDY #.WINDOW...".LDA #.WIND OW...,.JMP ..B.6.;...@.WINDOW W. GAD. ; FIRST GAD....J.BYT 40,40 ; WDX,WDY...T .BYT 110,50 ; WIDTH,HEIGHT.9.^.W. WDTIT LE ; WINDOW NAME.[.H.BYT ..BACK.DRAGBR ; WDFLAGS.V.R.BYT 66 ; WDTITLE SIZE.. .|.W. 0,0.....;.....GAD. W. 0 ; . GAD.. ....BYT 17,30 ; GGX,GGY.U...BYT 73,9 ; WIDTH,HEIGHT.....W. GGTEXT ; GAD. TEXT .....BYT GGFLAGS ; GAD. FLAGS.(.B.W. 0, 0,0 ; GAD. EXEC.=.L.BYT 0 ; USER .E.W. V.BYT 9 ; 9 CHARACTERS.O...W. STRINP ; . TEXT.U...;.....WDTITLE BYT "MY WINDOW ",0.....GGTEXT BYT 5,$F4,1 ; TEXT STRUC .S...BYT "STRING GADGET:",0.....STRINP B YT 2,1,1.....W. 0,0,0,0,0 ; 10 BYTES .. ..&.;.0.0.;...... UNLINK ............... .P.:.UNLINK LDX #.WINDOW ; WD.A.D.LDY #.WINDOW.M.N.JSR WD...X.LDX #.MN3IT2 ; .OVE MENU...B.LDY #.MN3IT2...L.STX MN3 IT1...V.STY MN3IT1.1.Z...INC $8004 ; .O VE SURVIVE.....RTS.....;.....;...... W INDOW .............. WD STX BUF0.%...STY BUF1.B...LDA #WD.SCREEN ; . WD ..L.F.J SR ..T.P.INY.^.Z.BEQ ..T...LDX BUF0 ; . WD.....LDY BUF1.....LDA #SETCURWD..... JSR ......LDA #WD .....JSR .... .. RTS.D .*.;...4.;...... RESET SURVIVE ......... ..>.SURVIVE LDX #6.1 ; INSTALL CODE. .H .SLP LDA TABEL,X.0.R.STA $8000,X.8.\.DEX .D.F.BPL SLP.L.P.RTS.A.Z.TABEL W. START. 3.P...BYT "MG87".V...;.....;...... INCLU DES ...................WINDOW.48.....WD. SCREEN.70.D...WD .65.T...SETCURWD.29...
> CLICK IMAGE PREVIEW FOR FULL MODAL