From: Didier Morandi [Didier.Morandi@gmx.ch]
Sent: Thursday, November 22, 2001 5:23 PM
To: Info-VAX@Mvb.Saic.Com
Subject: Re: DCL minute of the day: DCL$SMG routines

$! DCL_SMG_DEMO2.COM
$ set noon
$ delete="delete"
$ if f$search("smg$debug.temp") .nes. "" then delete smg$debug.temp;*
$ if f$search("smg$debug.txt") .nes. "" then delete smg$debug.txt;*
$ step = "1. init"
$ gosub DEBUG
$ step = "2. create display 1 and put lines"
$ @dcl_routines dcl$smg_create_virtual_display 12 40 window_1 Y
$ @dcl_routines dcl$smg_put_line "This is line 1/7 in window 1." 2 2 window_1
$ @dcl_routines dcl$smg_put_line "This is line 2/7 in window 1." 3 2 window_1
$ @dcl_routines dcl$smg_put_line "This is line 3/7 in window 1." 4 2 window_1
$ @dcl_routines dcl$smg_put_line "This is line 4/7 in window 1." 5 2 window_1
$ @dcl_routines dcl$smg_put_line "(previous line should be blank :-)" 7 2 window_1
$ @dcl_routines dcl$smg_put_line "This is line 7/7 in window 1." 8 2 window_1
$ @dcl_routines dcl$smg_clear_screen
$ gosub DEBUG
$ step = "3. paste display 1"
$ @dcl_routines dcl$smg_paste_virtual_display 5 10 window_1
$ gosub DEBUG
$ wait 00:00:05
$ step = "4. create display 2 and put lines"
$ @dcl_routines dcl$smg_create_virtual_display 8 30 window_2 Y
$ @dcl_routines dcl$smg_put_line "This is line 1 in window 2." 2 2 window_2
$ @dcl_routines dcl$smg_put_line "This is line 2 in window 2." 3 2 window_2
$ @dcl_routines dcl$smg_put_line "This is line 3 in window 2." 4 2 window_2
$ @dcl_routines dcl$smg_put_line "This is line 4 in window 2." 5 2 window_2
$ @dcl_routines dcl$smg_put_line "This is line 5 in window 2." 6 2 window_2
$ gosub DEBUG
$ step = "5. paste display 2"
$ @dcl_routines dcl$smg_paste_virtual_display 8 14 window_2
$ gosub DEBUG
$ wait 00:00:05
$ step = "6. create display 3 and put lines"
$ @dcl_routines dcl$smg_create_virtual_display 5 20 window_3 Y
$ @dcl_routines dcl$smg_put_line "This is line 1 in window 3." 2 2 window_3
$ @dcl_routines dcl$smg_put_line "This is line 2 in window 3." 3 2 window_3
$ @dcl_routines dcl$smg_put_line "This is line 3 in window 3." 4 2 window_3
$ gosub DEBUG
$ step = "7. paste display 3"
$ @dcl_routines dcl$smg_paste_virtual_display 10 20 window_3
$ gosub DEBUG
$ wait 00:00:03
$ step = "8. unpaste display 3"
$ @dcl_routines dcl$smg_unpaste_virtual_display window_3
$ gosub DEBUG
$ wait 00:00:03
$ step = "9. unpaste display 2"
$ @dcl_routines dcl$smg_unpaste_virtual_display window_2
$ gosub DEBUG
$ inq dummy "RETURN" 
$ @sys$login:delete_symbols smg$*
$ append/new smg$debug.temp;* smg$debug.txt
$ exit
$!
$DEBUG:
$ define sys$output smg$debug.temp
$ define sys$error nl:
$ write sys$output "----------------------------------------------"
$ write sys$output "Step: ",step," on ",f$time()
$ sh symb/global smg$*
$ deassign sys$output
$ deassign sys$error
$ return

D.