00390: Program example demonstrating DDE to Program Manager

0010 REM This program reads the groups defined in Program Manager
0020 PRINT 'CS'
0030 OPEN (1,MODE="DDECLIENT")"Progman:Progman"
0040 READ RECORD(1,KEY="Progman")TEXT$
0050 PRINT "Current Program Manager Groups:",$0D0A$,TEXT$
0060 CLOSE (1)


0010 REM This program shows how to create and delete Program Manager Groups
0020 OPEN (1,MODE="DDECLIENT")"Progman:Progman"
0030 LET CMD$="[CreateGroup(DDE Test)]"+$00$
0040 WRITE RECORD(1,KEY="DDE_EXECUTE")CMD$
0050 INPUT "Hit <CR> to delete the DDE Test group",*
0060 LET CMD$="[DeleteGroup(DDE Test)]"+$00$
0070 WRITE RECORD(1,KEY="DDE_EXECUTE")CMD$
0080 CLOSE (1)