id.p
| 1 |
define var i1 as int. |
|---|---|
| 2 |
define var i as int. |
| 3 |
define var j as int. |
| 4 |
|
| 5 |
DEF var fi AS INT VIEW-AS FILL-IN. |
| 6 |
DEF FRAME fr fi. |
| 7 |
DEF VAR h AS HANDLE. |
| 8 |
h = fi:HANDLE IN FRAME fr. |
| 9 |
ENABLE ALL WITH FRAME fr. |
| 10 |
|
| 11 |
procedure proc1. |
| 12 |
def var k as int. |
| 13 |
repeat i1 = 1 to 5: |
| 14 |
/*MESSAGE i1.*/ |
| 15 |
accum i1 (total). |
| 16 |
display accum total i1 with 5 down title "P1" frame p1. |
| 17 |
do i = 0 to 100000: |
| 18 |
h:SCREEN-VALUE = STRING(i). |
| 19 |
end. |
| 20 |
end. |
| 21 |
END. |
| 22 |
|
| 23 |
|
| 24 |
SESSION:MULTITASKING-INTERVAL = 0. |
| 25 |
|
| 26 |
SESSION:IMMEDIATE-DISPLAY = TRUE. |
| 27 |
|
| 28 |
message "IMMEDIATE-DISPLAY:" SESSION:IMMEDIATE-DISPLAY SESSION:MULTITASKING-INTERVAL. |
| 29 |
run proc1. |
| 30 |
|
| 31 |
PAUSE 2. |
| 32 |
|
| 33 |
SESSION:IMMEDIATE-DISPLAY = NOT SESSION:IMMEDIATE-DISPLAY. |
| 34 |
message "IMMEDIATE-DISPLAY:" SESSION:IMMEDIATE-DISPLAY SESSION:MULTITASKING-INTERVAL. |
| 35 |
run proc1. |
| 36 |
|
| 37 |
WAIT-FOR WINDOW-CLOSE OF DEFAULT-WINDOW. |