Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : STRALEY.ZIP
Filename : BEGIN.PRG
* Name BEGIN.prg
* Date August 15, 1986
* Notice Copyright 1986, Stephen J. Straley
* Note This section of the menu generator checks to see if the
* menu databases exist. If they do, then it uses them, else
* it runs STARTOFF to create them. It also sets up the
* screen arrays and chains to the first functional procedure
* for menu generating, MENUENTR.
*
********************
EXTERNAL Startoff, Promptng, Menuentr, Menudraw, Move_cur, Drawbox, Movetitl,
Moveesc, Finished
IF .NOT. FILE("MENU?.DBF")
DO Startoff
CLOSE DATABASES
SELECT 2
USE Menu2
SELECT 1
USE Menu1
APPEND BLANK
ELSE
SELECT 2
USE Menu2
SELECT 1
USE Menu1
GO TOP
ENDIF
SET SCORE OFF
CLEAR
frame = CHR(201) + CHR(205) + CHR(187) + CHR(186) + CHR(188) + ;
CHR(205) + CHR(200) + CHR(186) + CHR(32)
STORE 1 TO menu, level, asearch
STORE 0 TO down
STORE pref + "men" TO name
STORE SPACE(4000) TO ascreen, bscreen, cscreen, dscreen, tscreen
STORE .T. TO which
DECLARE screen[5]
FOR qaz = 1 TO 5
STORE SPACE(4000) TO screen[qaz]
NEXT
CALL _scrsave WITH ascreen
DO Menuentr
* End of BEGIN.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/