> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 E8 03 3B 20 53 4D 41 4C 4C 45 58 41 |..$...; SMALLEXA|
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 26 09 60 04 |$0BE1,$0801.&.`.|
00000110: 8D B2 24 44 45 30 35 20 20 3B 20 9E 54 45 4D 20 |..$DE05 ; .TEM |
00000120: 43 91 53 C0 54 53 00 30 09 6A 04 A0 B2 24 30 31 |C.S.TS.0.j...$01|
00000130: 00 3E 09 74 04 A4 42 41 43 4B B2 24 30 32 00 4D |.>.t..BACK.$02.M|
00000140: 09 7E 04 44 52 41 47 42 52 B2 24 30 38 00 53 09 |.~.DRAGBR.$08.S.|
00000150: 88 04 3B 00 75 09 92 04 3B AB AB AB AB AB AB 20 |..;.u...;...... |
00000160: 42 41 53 49 43 20 53 54 41 52 54 55 50 20 83 20 |BASIC STARTUP . |
00000170: 2D 2D 2D 2D 2D 00 96 09 9C 04 57 B0 20 24 30 38 |-----.....W. $08|
00000180: 31 37 2C 31 39 38 37 20 20 3B 20 4C 49 4E 45 20 |17,1987 ; LINE |
00000190: 4E 55 4D 42 45 52 00 B2 09 A6 04 42 59 54 20 24 |NUMBER.....BYT $|
000001A0: 39 45 20 20 3B 20 42 41 53 49 43 20 9E AB 43 4F |9E ; BASIC ..CO|
000001B0: 44 45 00 D3 09 B0 04 42 59 54 20 22 32 30 37 36 |DE.....BYT "2076|
000001C0: 20 44 45 53 4B A4 50 20 56 31 2E 30 22 2C 30 2C | DESK.P V1.0",0,|
000001D0: 30 2C 30 00 E9 09 BA 04 42 59 54 20 31 2C 30 20 |0,0.....BYT 1,0 |
000001E0: 20 3B 20 56 45 52 53 49 91 00 05 0A C4 04 42 59 | ; VERSI......BY|
000001F0: 54 20 32 20 20 3B 20 53 49 5A 45 20 49 4E 20 42 |T 2 ; SIZE IN B|
00000200: 4C 4F 43 4B 53 00 1E 0A CE 04 4A 4D 50 20 24 44 |LOCKS.....JMP $D|
00000210: 46 45 38 20 20 3B 20 53 54 41 52 54 55 50 00 32 |FE8 ; STARTUP.2|
00000220: 0A D8 04 42 59 54 20 30 20 20 3B 20 55 4E 55 53 |...BYT 0 ; UNUS|
00000230: 45 44 00 38 0A E2 04 3B 00 46 0A EC 04 4D 4E 33 |ED.8...;.F...MN3|
00000240: B2 24 43 30 37 34 00 57 0A F6 04 4D 4E 33 49 54 |.$C074.W...MN3IT|
00000250: 31 B2 24 43 30 43 32 00 7B 0A 00 05 3B AB AB AB |1.$C0C2.{...;...|
00000260: AB AB AB 20 4D 41 49 4E 20 AB AB AB AB AB AB AB |... MAIN .......|
00000270: AB AB AB AB AB AB AB AB AB AB AB 00 9F 0A 0A 05 |................|
00000280: 53 54 41 52 54 20 4C 44 58 20 23 B3 49 54 45 4D |START LDX #.ITEM|
00000290: 32 20 20 3B 20 53 45 54 20 A2 20 4D 45 4E 55 00 |2 ; SET . MENU.|
000002A0: AF 0A 14 05 4C 44 59 20 23 B1 49 54 45 4D 32 00 |....LDY #.ITEM2.|
000002B0: BE 0A 1E 05 53 54 58 20 4D 4E 33 49 54 31 00 CF |....STX MN3IT1..|
000002C0: 0A 28 05 53 54 59 20 4D 4E 33 49 54 31 AA 31 00 |.(.STY MN3IT1.1.|
000002D0: EC 0A 32 05 4C 44 41 20 23 31 36 AA 31 20 20 3B |..2.LDA #16.1 ;|
000002E0: 20 4D 45 4E 55 20 48 45 49 47 48 54 00 FA 0A 3C | MENU HEIGHT...<|
000002F0: 05 53 54 41 20 4D 4E 33 AA 37 00 02 0B 46 05 52 |.STA MN3.7...F.R|
00000300: 54 53 00 08 0B 50 05 3B 00 2B 0B 5A 05 3B AB AB |TS...P.;.+.Z.;..|
00000310: AB AB AB AB 20 4D 45 4E 55 49 54 45 4D 20 53 54 |.... MENUITEM ST|
00000320: 52 55 43 54 55 52 45 20 AB AB AB 00 43 0B 64 05 |RUCTURE ....C.d.|
00000330: 49 54 45 4D 32 20 57 B0 20 30 20 20 3B 20 82 49 |ITEM2 W. 0 ; .I|
00000340: 54 45 4D 00 5E 0B 6E 05 57 B0 20 49 54 32 54 58 |TEM.^.n.W. IT2TX|
00000350: 54 20 20 3B 20 49 54 45 4D 20 4E 41 4D 45 00 76 |T ; ITEM NAME.v|
00000360: 0B 78 05 57 B0 20 9F 57 44 20 20 3B 20 49 54 45 |.x.W. .WD ; ITE|
00000370: 4D 20 45 58 45 43 00 91 0B 82 05 42 59 54 20 31 |M EXEC.....BYT 1|
00000380: 2C 30 20 20 3B 20 45 4E 41 42 4C 45 20 49 54 45 |,0 ; ENABLE ITE|
00000390: 4D 00 97 0B 8C 05 3B 00 B2 0B 96 05 49 54 32 54 |M.....;.....IT2T|
000003A0: 58 54 20 42 59 54 20 22 C4 C5 CD CF A0 D7 C4 22 |XT BYT "......."|
000003B0: 2C 30 00 B8 0B A0 05 3B 00 DB 0B AA 05 3B AB AB |,0.....;.....;..|
000003C0: AB AB AB AB 20 57 49 4E 44 4F 57 20 AB AB AB AB |.... WINDOW ....|
000003D0: AB AB AB AB AB AB AB AB AB AB AB 00 FC 0B B4 05 |................|
000003E0: 9F 57 44 20 4C 44 58 20 23 B3 57 49 4E 44 4F 57 |.WD LDX #.WINDOW|
000003F0: 20 20 3B 20 43 41 4C 4C 20 9F 57 44 00 0D 0C BE | ; CALL .WD....|
00000400: 05 4C 44 59 20 23 B1 57 49 4E 44 4F 57 00 1E 0C |.LDY #.WINDOW...|
00000410: C8 05 4C 44 41 20 23 9F 57 49 4E 44 4F 57 00 28 |..LDA #.WINDOW.(|
00000420: 0C D2 05 4A 4D 50 20 8D 00 2E 0C DC 05 3B 00 4A |...JMP ......;.J|
00000430: 0C E6 05 57 49 4E 44 4F 57 20 57 B0 20 30 20 20 |...WINDOW W. 0 |
00000440: 3B 20 4E 4F 20 47 41 44 A1 53 00 63 0C F0 05 42 |; NO GAD.S.c...B|
00000450: 59 54 20 34 30 2C 34 30 20 20 3B 20 57 44 58 2C |YT 40,40 ; WDX,|
00000460: 57 44 59 00 82 0C FA 05 42 59 54 20 31 31 30 2C |WDY.....BYT 110,|
00000470: 35 30 20 20 3B 20 57 49 44 54 48 2C 48 45 49 47 |50 ; WIDTH,HEIG|
00000480: 48 54 00 A0 0C 04 06 57 B0 20 57 44 54 49 54 4C |HT.....W. WDTITL|
00000490: 45 20 20 3B 20 57 49 4E 44 4F 57 20 4E 41 4D 45 |E ; WINDOW NAME|
000004A0: 00 C2 0C 0E 06 42 59 54 20 A0 AA A4 42 41 43 4B |.....BYT ...BACK|
000004B0: AA 44 52 41 47 42 52 20 20 3B 20 57 44 46 4C 41 |.DRAGBR ; WDFLA|
000004C0: 47 53 00 DD 0C 18 06 42 59 54 20 36 36 20 20 3B |GS.....BYT 66 ;|
000004D0: 20 57 44 54 49 54 4C 45 20 53 49 5A 45 00 E8 0C | WDTITLE SIZE...|
000004E0: 22 06 57 B0 20 30 2C 30 00 06 0D 2C 06 57 44 54 |".W. 0,0...,.WDT|
000004F0: 49 54 4C 45 20 42 59 54 20 22 CD 59 20 D7 49 4E |ITLE BYT ".Y .IN|
00000500: 44 4F 57 22 2C 30 00 0C 0D 36 06 3B 00 2F 0D 40 |DOW",0...6.;./.@|
00000510: 06 3B AB AB AB AB AB AB 20 49 4E 43 4C 55 44 45 |.;...... INCLUDE|
00000520: 53 20 AB AB AB AB AB AB AB AB AB AB AB AB AB 00 |S ..............|
00000530: 3E 0D 4A 06 9F 57 49 4E 44 4F 57 B2 34 38 00 00 |>.J..WINDOW.48..|
00000540: 00 |. |
..$...; SMALLEXAMPLE 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.&.`...$DE05
; .TEM C.S.TS.0.J. .$01.>.T..BACK.$02.M
.~.DRAGBR.$08.S...;.U...;...... BASIC ST
ARTUP . -----.....W. $0817,1987 ; LINE
NUMBER.....BYT $9E ; BASIC ..CODE.S...B
YT "2076 DESK.P V1.0",0,0,0.....BYT 1,0
; VERSI....D.BYT 2 ; SIZE IN BLOCKS...
N.JMP $DFE8 ; STARTUP.2.X.BYT 0 ; UNUS
ED.8...;.F...MN3.$C074.W...MN3IT1.$C0C2.
{...;...... MAIN .......................
START LDX #.ITEM2 ; SET . MENU.....LDY
#.ITEM2.....STX MN3IT1.O.(.STY MN3IT1.1.
..2.LDA #16.1 ; MENU HEIGHT...<.STA MN3
.7...F.RTS...P.;.+.Z.;...... MENUITEM ST
RUCTURE ....C.D.ITEM2 W. 0 ; .ITEM.^.N.
W. IT2TXT ; ITEM NAME.V.X.W. .WD ; ITE
M EXEC.....BYT 1,0 ; ENABLE ITEM.....;.
....IT2TXT BYT "DEMO WD",0... .;.....;..
.... WINDOW .....................WD LDX
#.WINDOW ; CALL .WD.....LDY #.WINDOW...
H.LDA #.WINDOW.(.R.JMP ......;.J...WINDO
W W. 0 ; NO GAD.S.C...BYT 40,40 ; WDX,
WDY.....BYT 110,50 ; WIDTH,HEIGHT. ...W
. WDTITLE ; WINDOW NAME.B...BYT ..BACK
.DRAGBR ; WDFLAGS.....BYT 66 ; WDTITLE
SIZE...".W. 0,0...,.WDTITLE BYT "MY WIN
DOW",0...6.;./.@.;...... INCLUDES ......
........>.J..WINDOW.48...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL