No, I can't edit it.
My username doesn't work there and I can't find the SignUp button. It uses the filetype 0,1,7.
Anyway, I thought I'd be
NICE and post the source so far. There's still glitches with opening the Help window and DCS not displaying text when you begin at APStart (but if you type a letter it'll appear?) This is a good example of how the routines I gave Kerm are used and how they can save space.
Code: #include "dcs6.inc"
.org $9D93
.db $bb,$6d
xor d
ret
jr Start
.dw 0
.db 6,0
.dw Icon
.dw 0
.dw APStart
.db $31,$7F
APMain:
.db 3
.db 0,1,7
.db 0,1,1
.db 0,1,2
Icon:
.db $7F,$FE,$BF,$D5,$FF,$FF,$80,$01
.db $80,$01,$80,$01,$80,$01,$80,$01
.db $80,$01,$80,$01,$FF,$FF,$00,$00
.db $C0,$61,$FF,$69,$AD,$5B,$AF,$5B
SubIcon:
.db $3F,$F0,$20,$18,$E0,$14,$A0,$1E
.db $A0,$02,$A0,$02,$A0,$02,$A0,$02
.db $AD,$9A,$A9,$A2,$A5,$62,$AD,$5A
.db $A0,$02,$BF,$FE,$80,$08,$FF,$F8
New:
call 4000H
Start:
CloseGUIStack()
OpenGUIStack()
ld hl,MainWin
call PushAll
PushGUIStack(15,code,7)
GUIMouse(0)
APStart:
push ix
push ix
CloseGUIStack()
OpenGUIStack()
ld hl,MainWin
call PushAll
pop hl
ld de,-10
add hl,de
ld e,(hl)
inc hl
ld d,(hl)
dec de
dec de
ld a,15
push de
ld hl,Code
call PushGUIStack
pop bc
ld hl,-6
add hl,bc
push hl
pop bc
pop hl
call TxtToCode
GUIMouse(0)
TxtToCode:
push hl
push bc
push bc
pop de
ld a,15
ld hl,Code
call PushGUIStack
call GetCode
ex de,hl
pop bc
pop hl
ldir
ret
Open:
call 4000h
PopGUIStack()
FileOpen()
ld a,h
or l
jr z,OpenErr
call TxtToCode
GUIMouse(0)
OpenErr:
PushGUIStack(15,Code,7)
GUIMouse(0)
Save:
call 4000h
call GetCode
ld de,APMain+1
call FileSaveAs
GUIMouse(0)
GetCode:
ld a,9
call GetItem
ld de,6
add hl,de
ex de,hl
ld hl,6
add hl,bc
push hl
pop bc
ex de,hl
ret
GetItem:
push af
GUIFindFirst()
pop af
ld c,(hl)
inc hl
ld b,(hl)
inc hl
inc hl
or a
ret z
dec hl
dec hl
dec hl
ld b,a
GILoop:
push bc
GUIFindNext()
pop bc
djnz GILoop
ld c,(hl)
inc hl
ld b,(hl)
inc hl
inc hl
ret
Help:
call 4000h
ld hl,HlpWin
call PushAll
GUIMouse(0)
HlpQuit:
call 4000h
PopGUIStacks(5)
GUIMouse(0)
Compile:
Quit:
call 4000h
CloseGUIStack()
ret
PushAll:
set 7,(iy+20)
ld a,(hl)
cp FFh
ret z
inc hl
ld e,(hl)
inc hl
ld d,(hl)
inc hl
push hl
push de
call PushGUIStack
pop de
pop hl
add hl,de
jr PushAll
MainWin:
.db LargeWin
.dw 13
.db %11100000
.db %10110000
.db %10010000
.db %10010000
.db %11110000
.db "ProgPad",0
MainBtns:
.db WinButtons
.dw 7
.db %00100000
.dw 0
.dw 0
.dw Quit
ToolBar:
.db LargeSprite
.dw 52
.db 0,0,6,8
.db $01,$00,$20,$10,$08,$04,$79,$30,$27,$D7
.db $C9,$E4,$4D,$4F,$AC,$D4,$2B,$34,$45,$40
.db $AF,$D4,$48,$64,$45,$40,$A8,$56,$A8,$C4
.db $45,$40,$A8,$55,$28,$04,$7D,$7F,$AF,$D7
.db $E8,$C4,$01,$00,$20,$10,$08,$04
HNew:
.db HotSpot
.dw 6
.db 0,0,8,8
.dw New
HOpen:
.db HotSpot
.dw 6
.db 8,0,11,8
.dw Open
HSave:
.db HotSpot
.dw 6
.db 19,0,9,8
.dw Save
HComp:
.db HotSpot
.dw 6
.db 28,0,9,8
.dw Compile
HHelp:
.db HotSpot
.dw 6
.db 37,0,9,8
.dw Help
TabTxt:
.db Text
.dw 8
.db 48,0,0
.db "Tab:",0
Table:
.db TextLineIn
.dw 14
.db 62,1,29
.dw 8
.dw 0
.db "Z80TAB",0
EndOfMainStack:
.db FFh
Code:
.db 1,10,7,91
.dw 0
.db 0
HLPWin:
.db SmallWin
.dw 21
.db 6,6
.db %01110000
.db %10001000
.db %00110000
.db %00000000
.db %00100000
.db "About Progpad",0
HLPBtns:
.db WinButtons
.dw 7
.db %00100000
.dw 0
.dw 0
.dw HLPQuit
HLPTitle:
.db Text
.dw 16
.db 1,1,0
.db "Progpad v1.0",0
HLPDate:
.db Text
.dw 14
.db 1,8,0
.db "June 16,2010",0
HLPName:
.db Text
.dw 23
.db 1,16,0
.db "By: Ghosuwa Wogomon",0
EndOfHelpStack:
.db FFh
If you have any suggestions, tell me. 
) 
