1
|
define var i1 as int.
|
2
|
define var i as int.
|
3
|
define var k as int.
|
4
|
|
5
|
DEF var f AS INT EXTENT 8 VIEW-AS FILL-IN.
|
6
|
DEF FRAME ff f NO-LABELS.
|
7
|
DEF VAR hf AS HANDLE EXTENT 8.
|
8
|
|
9
|
hf[1] = f[1]:HANDLE IN FRAME ff.
|
10
|
hf[2] = f[2]:HANDLE IN FRAME ff.
|
11
|
hf[3] = f[3]:HANDLE IN FRAME ff.
|
12
|
hf[4] = f[4]:HANDLE IN FRAME ff.
|
13
|
hf[5] = f[5]:HANDLE IN FRAME ff.
|
14
|
hf[6] = f[6]:HANDLE IN FRAME ff.
|
15
|
hf[7] = f[7]:HANDLE IN FRAME ff.
|
16
|
hf[8] = f[8]:HANDLE IN FRAME ff.
|
17
|
|
18
|
DEF var g AS INT EXTENT 8 VIEW-AS FILL-IN.
|
19
|
DEF FRAME fg g NO-LABELS.
|
20
|
DEF VAR hg AS HANDLE EXTENT 8.
|
21
|
|
22
|
hg[1] = g[1]:HANDLE IN FRAME fg.
|
23
|
hg[2] = g[2]:HANDLE IN FRAME fg.
|
24
|
hg[3] = g[3]:HANDLE IN FRAME fg.
|
25
|
hg[4] = g[4]:HANDLE IN FRAME fg.
|
26
|
hg[5] = g[5]:HANDLE IN FRAME fg.
|
27
|
hg[6] = g[6]:HANDLE IN FRAME fg.
|
28
|
hg[7] = g[7]:HANDLE IN FRAME fg.
|
29
|
hg[8] = g[8]:HANDLE IN FRAME fg.
|
30
|
|
31
|
ENABLE ALL WITH FRAME ff.
|
32
|
|
33
|
VIEW FRAME fg.
|
34
|
|
35
|
procedure proc1.
|
36
|
repeat i1 = 1 to 4:
|
37
|
/*MESSAGE i1.*/
|
38
|
accum i1 (total).
|
39
|
display accum total i1 with 4 down title "P1" frame p1.
|
40
|
do i = 0 to 10000:
|
41
|
hf[i1 + k]:SCREEN-VALUE = STRING(i + k).
|
42
|
hg[i1 + k]:SCREEN-VALUE = STRING(i + k).
|
43
|
end.
|
44
|
end.
|
45
|
END.
|
46
|
|
47
|
PAUSE 60.
|
48
|
|
49
|
/*SESSION:MULTITASKING-INTERVAL = 0.*/
|
50
|
SESSION:IMMEDIATE-DISPLAY = TRUE.
|
51
|
k = 0.
|
52
|
message "IMMEDIATE-DISPLAY:" SESSION:IMMEDIATE-DISPLAY /*SESSION:MULTITASKING-INTERVAL*/.
|
53
|
run proc1.
|
54
|
/*
|
55
|
PAUSE 2.
|
56
|
*/
|
57
|
|
58
|
SESSION:IMMEDIATE-DISPLAY = NOT SESSION:IMMEDIATE-DISPLAY.
|
59
|
|
60
|
k = 4.
|
61
|
message "IMMEDIATE-DISPLAY:" SESSION:IMMEDIATE-DISPLAY /*SESSION:MULTITASKING-INTERVAL*/.
|
62
|
run proc1.
|
63
|
|
64
|
|
65
|
WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW.
|