00000000: 8F 01 17 00 09 00 44 69 61 6C 6F 67 3A 09 2E 62 |......Dialog:..b|
00000010: 79 74 65 09 24 38 30 20 7C 20 24 30 31 0D 0D 09 |yte.$80 | $01...|
00000020: 2E 62 79 74 65 09 24 30 31 2C 24 30 32 2C 24 34 |.byte.$01,$02,$4|
00000030: 63 09 3B 4F 4B 20 69 63 6F 6E 0D 0D 09 2E 62 79 |c.;OK icon....by|
00000040: 74 65 09 31 31 09 3B 61 64 64 20 74 65 78 74 0D |te.11.;add text.|
00000050: 09 2E 62 79 74 65 09 24 32 37 2C 24 32 37 0D 09 |..byte.$27,$27..|
00000060: 2E 77 6F 72 64 09 44 42 54 65 78 74 41 0D 0D 09 |.word.DBTextA...|
00000070: 2E 62 79 74 65 09 31 37 09 3B 52 6F 75 74 69 6E |.byte.17.;Routin|
00000080: 65 20 6F 6E 20 43 6C 69 63 6B 0D 09 2E 77 6F 72 |e on Click...wor|
00000090: 64 09 5F 09 3B 72 6F 75 74 69 6E 65 20 74 6F 20 |d._.;routine to |
000000A0: 65 78 65 63 75 74 65 20 6F 6E 20 6F 74 68 65 72 |execute on other|
000000B0: 50 72 65 73 73 0D 0D 09 2E 62 79 74 65 09 31 33 |Press....byte.13|
000000C0: 09 3B 47 65 74 53 74 72 69 6E 67 0D 09 2E 62 79 |.;GetString...by|
000000D0: 74 65 09 24 32 61 09 3B 58 4F 66 66 73 65 74 0D |te.$2a.;XOffset.|
000000E0: 09 2E 62 79 74 65 09 24 32 65 09 3B 59 4F 66 66 |..byte.$2e.;YOff|
000000F0: 73 65 74 0D 09 2E 62 79 74 65 09 72 5F 09 3B 67 |set...byte.r_.;g|
00000100: 69 76 65 73 20 72 23 20 74 6F 20 63 6F 6E 74 61 |ives r# to conta|
00000110: 69 6E 20 70 6E 74 72 20 74 6F 20 74 65 78 74 20 |in pntr to text |
00000120: 62 75 66 66 65 72 2E 20 35 2D 31 30 0D 09 2E 62 |buffer. 5-10...b|
00000130: 79 74 65 09 5F 09 3B 6D 61 78 69 6D 75 6D 20 23 |yte._.;maximum #|
00000140: 20 6F 66 20 63 68 61 72 73 20 74 6F 20 61 63 63 | of chars to acc|
00000150: 65 70 74 2E 0D 0D 09 2E 62 79 74 65 09 30 09 3B |ept.....byte.0.;|
00000160: 65 6E 64 20 6F 66 20 64 65 66 69 6E 74 69 6F 6E |end of defintion|
00000170: 0D 44 42 54 65 78 74 41 3A 09 2E 62 79 74 65 09 |.DBTextA:..byte.|
00000180: 24 31 38 2C 22 54 65 73 74 22 2C 32 37 2C 30 0D |$18,"Test",27,0.|
00000190: 0D |. |
......DIALOG:..BYTE.$80 | $01....BYTE.$0
1,$02,$4C.;OK ICON....BYTE.11.;ADD TEXT.
..BYTE.$27,$27...WORD.DBTEXTA....BYTE.17
.;ROUTINE ON CLICK...WORD._.;ROUTINE TO
EXECUTE ON OTHERPRESS....BYTE.13.;GETSTR
ING...BYTE.$2A.;XOFFSET...BYTE.$2E.;YOFF
SET...BYTE.R_.;GIVES R# TO CONTAIN PNTR
TO TEXT BUFFER. 5-10...BYTE._.;MAXIMUM #
OF CHARS TO ACCEPT.....BYTE.0.;END OF D
EFINTION.DBTEXTA:..BYTE.$18,"TEST",27,0.
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL