97 lines
2.8 KiB
Plaintext
Executable File
97 lines
2.8 KiB
Plaintext
Executable File
subroutine DC.MESSAGE( message1, message2 )
|
|
*******************************************************************************
|
|
*
|
|
* Convert dictionary item(s) from Pick to Uni*Verse format:
|
|
* print informative/warning messages during conversion
|
|
*
|
|
* 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/22/98 23801 SAP Change company name to Ardent
|
|
* 10/14/98 23801 SAP Change copyrights.
|
|
* 07/25/88 - - Maintenence log purged at 5.2.1, see release 5.1.10.
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
* The basis for this Pick-to-Uni*Verse dictionary converter was a
|
|
* Microdata-to-Prime converter written by J. Michael Cannady and
|
|
* Thomas J. Rauschenbach of Fulcrum Computer Group, Inc. Ardent
|
|
* was granted permission to use that code by Infocel, Inc., a successor
|
|
* of Fulcrum.
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
* Convert A correlatives to I descriptors.
|
|
*
|
|
* Arguments:
|
|
* message1 - the text to print
|
|
* message2 - more text to print; may be CR, in which case we
|
|
* print a carriage return / linefeed
|
|
*
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
$options DEFAULT
|
|
$include UNIVERSE.INCLUDE DC.COMM.DECL
|
|
*
|
|
equ CR to char( 13 ) : char( 10 )
|
|
*
|
|
if LOGGING then
|
|
if LPTR.COL + len( message1 ) + 2 > 130 then
|
|
print on 1
|
|
print on 1 space( 27 ):
|
|
LPTR.COL = 28
|
|
end
|
|
print on 1 message1 : " ":
|
|
LPTR.COL += len( message1 ) + 2
|
|
begin case
|
|
case message2 = CR
|
|
print on 1
|
|
LPTR.COL = 1
|
|
case message2 = ""
|
|
null
|
|
case 1
|
|
if LPTR.COL + len( message2 ) + 2 > 130 then
|
|
print on 1
|
|
print on 1 space( 27 ):
|
|
LPTR.COL = 28
|
|
end
|
|
print on 1 message2 : " ":
|
|
LPTR.COL += len( message2 ) + 2
|
|
end case
|
|
end
|
|
*
|
|
if CRT.COL + len( message1 ) + 2 > 78 then
|
|
print
|
|
print space( 27 ):
|
|
CRT.COL = 28
|
|
end
|
|
print message1 : " ":
|
|
CRT.COL += len( message1 ) + 2
|
|
begin case
|
|
case message2 = CR
|
|
print
|
|
CRT.COL = 1
|
|
case message2 = ""
|
|
null
|
|
case 1
|
|
if CRT.COL + len( message2 ) + 2 > 78 then
|
|
print
|
|
print space( 27 ):
|
|
CRT.COL = 28
|
|
end
|
|
print message2 : " ":
|
|
CRT.COL += len( message2 ) + 2
|
|
end case
|
|
return
|
|
end
|