Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : FDILIB.ZIP
Filename : PROLOGUE.PRG
* Copyright 1989, Financial Dynamics, Inc. *
* *
* (703) 671 - 3003 *
*****************************************************************************
* PROLOGUE.PRG Set global environment
* Turn these off:
SET BELL OFF
SET SCOREBOARD OFF
SET EXACT OFF
* Turn these on:
SET CONFIRM ON
SET DELETED ON
SET WRAP ON
PUBLIC mbar,; && string of double bars
mquit,; && for returning to calling programs
mdevice,; && the current output device (P,S or F)
msta,; && user's Local Area Network station number
myn,; && value of last Yes/No question
scr_prompt,; && prompt at bottom of full screen maintenance
mprompt,; && prompt at bottom of browse screen
wait_box,; && characters under blinking WAIT box at upper right
curr_grp,; && current color group
curr_attr,; && current color attribute
co_stack,; && used by color poush and pop routines
stdbox,; && standard box chaaracters
single,; && single box characters
double,; && double box characters
true,; && Constant for true
false,; && Constant for false
cr,; && Constant for Carrige Return (chr(13))
esc,; && Constant for esc key (chr(27))
c_frame,; && Constant used to select frame color
c_text,; && Constant used to select text color
c_sayget,; && Constant used to select get color
c_title,; && Constant used to select title color
videotype,; && variable to hold selected video mode
c_backdrop,; && Constant to select backdrop color group
c_menus,; && Constant to select menu color group
c_status,; && Constant to select status color group
c_browse,; && Constant to select browse screen color group
c_fullscr,; && Constant to select full screen color group
c_window,; && Constant to select window/pick screen color group
c_help,; && Constant to select help window color group
c_pop1,; && Constant to select pop-up window #1 color group
c_pop2,; && Constant to select pop-up window #2 color group
c_pop3,; && Constant to select pop-up window #3 color group
c_error,; && Constant to select error message color
conisoff,; && flag to indicate the console is off
cursoron,; && Flag if cursor is on
rpt_name,; && name of report when saved to file or ascii file
mprinter && name of currently selected printer
PUBLIC color1[11],color2[11],color3[11],color4[11] && color arrays
* These publics are defined in STD_SET
PUBLIC mhead_1,mhead_2,mcomp_name,maddr1,maddr2,maddr3,mphone,mdeveloper,_breaks
PUBLIC normal,intense,blink,reverse,blinkrev,gets && old stuff
PUBLIC condense,bold,init,sideways && for the printers
msta = STATION() && Our Assembler Function
msta = IF(msta=0,[0],LTRIM(STR(msta,2,0))) && Defaults to Zero
mprompt = '[F1] for Help, / for Menu'
scr_prompt = 'Fill in fields, [PgDn] to save, [Esc] to abort.'
mdevice = [S]
true = .T.
false = .F.
cr = CHR(13)
esc = CHR(27)
co_stack = [011]
curr_grp = 1
curr_attr = 1
mversion = ALLTRIM(DEFAULT([mversion],[ver 1.00]))
single = [ÚÄ¿³ÙÄÀ³]
double = [ÉÍ»º¼ÍȺ]
stdbox = [Õ͸³¾ÍÔ³]
c_sayget = 1
c_frame = 2
c_text = 3
c_title = 4
c_backdrop = 1
c_menus = 2
c_status = 3
c_browse = 4
c_fullscr = 5
c_window = 6
c_help = 7
c_pop1 = 8
c_pop2 = 9
c_pop3 = 10
c_error = 11
conisoff = .F.
rpt_name = SPACE(1)
*----should not need this if you're calling std_set
*DO CASE
* CASE GETE([DISPLAY]) = [COMPAQ] .OR. GETE([DISPLAY]) = [MONO]
* M->videotype = [MONO]
*
* CASE ! ISCOLOR() && force to mono if not a color adaptor
* M->videotype = [MONO]
*
* CASE EMPTY(M->videotype) && default to CGA if videotype is empty and color monitor oterwise default to mono
* M->videotype = IF(ISCOLOR(),[CGA],[MONO])
*ENDCASE
RETURN
*** eof: PROLOGUE.PRG ***
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/