40 lines
1.5 KiB
Brainfuck
Executable File
40 lines
1.5 KiB
Brainfuck
Executable File
*******************************************************************************
|
|
*
|
|
* New System Admin - This routine creates a box with a line of text, and
|
|
* then prints two buttons. Yes and No.
|
|
*
|
|
* Module %M% Version %I% Date %H%
|
|
*
|
|
* (c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
|
|
* This is unpublished proprietary source code of Ardent Software Inc.
|
|
* The copyright notice above does not evidence any actual or intended
|
|
* publication of such source code.
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
* Maintenence log - insert most recent change descriptions at top
|
|
*
|
|
* Date.... GTAR# WHO Description.........................................
|
|
* 10/14/98 23801 SAP Change copyrights.
|
|
* 05/15/96 18330 LDG Changed LEN() function to LENDP() for NLS DBCS.
|
|
* 03/22/91 7673 DPB Fixed problem with button selection
|
|
* 03/14/91 7673 DTM Changed to call CHOICE.BOX.B
|
|
* 11/05/90 7393 DPB Routine first created and admin'd.
|
|
*******************************************************************************
|
|
|
|
SUBROUTINE YES.NO.BOX.B(start.line, text, flag)
|
|
$INCLUDE UNIVERSE.INCLUDE MTF.INCL.H
|
|
length = LENDP(text)+4
|
|
IF length < 10 THEN length = 10 ELSE IF length > 76 THEN length = 76
|
|
mess=UVREADMSG(073199,"")
|
|
B.array=""
|
|
B.array<1>=2
|
|
B.array<2>=mess<1>
|
|
B.array<3>=mess<2>
|
|
if flag = 0 THEN flag =2
|
|
CALL *CHOICE.BOX.B(start.line,3,length,text,B.array,flag,"")
|
|
IF flag=1 THEN flag = 0
|
|
ELSE IF flag=0 THEN flag = 1
|
|
RETURN
|
|
END
|