21 lines
568 B
Text
21 lines
568 B
Text
DEFINE VARIABLE lopen AS LOGICAL NO-UNDO EXTENT 100.
|
|
DEFINE VARIABLE idoor AS INTEGER NO-UNDO.
|
|
DEFINE VARIABLE ipass AS INTEGER NO-UNDO.
|
|
DEFINE VARIABLE cresult AS CHARACTER NO-UNDO.
|
|
|
|
DO ipass = 1 TO 100:
|
|
idoor = 0.
|
|
DO WHILE idoor <= 100:
|
|
idoor = idoor + ipass.
|
|
IF idoor <= 100 THEN
|
|
lopen[ idoor ] = NOT lopen[ idoor ].
|
|
END.
|
|
END.
|
|
|
|
DO idoor = 1 TO 100:
|
|
cresult = cresult + STRING( lopen[ idoor ], "1 /0 " ).
|
|
IF idoor MODULO 10 = 0 THEN
|
|
cresult = cresult + "~r":U.
|
|
END.
|
|
|
|
MESSAGE cresult VIEW-AS ALERT-BOX.
|