Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DBMENU.ZIP
Filename : MENU.PRG

 
Output of file : MENU.PRG contained in archive : DBMENU.ZIP
SET BELL OFF
SET SCOREBOARD OFF
SET CONFIRM ON
IF ISCOLOR()
SET COLOR TO GR+/B, W+/BG
ELSE
SET COLOR TO W+
ENDIF
* SET PROCEDURE TO EDITOR
CLOSE DATABASES
SELECT B
USE DMENU INDEX DMENU
************** VARIABLES ****************
DECLARE ID[36],ITEM[36],TITLE[36],SEQ[50],LAST_MENU_NAME[50]
STACK = 1
SEQ[1] = "#####"
LAST_MENU_NAME[1] = "Main Menu"
LOOPING = .T.
CDATE = DTOC(DATE())
*****************************************
DO WHILE LOOPING
LAST_ITEM_NO = 1
GO TOP
SEEK(SEQ[STACK])
IF .NOT. FOUND()
STACK = STACK -1
LOOP
ENDIF
DO WHILE MENU_ID = SEQ[STACK]
ID[LAST_ITEM_NO] = MENU_ID
TITLE[LAST_ITEM_NO] = MENU_TITLE
ITEM[LAST_ITEM_NO] = ITEM_NO
SKIP
LAST_ITEM_NO = LAST_ITEM_NO + 1
ENDDO
LAST_ITEM_NO = LAST_ITEM_NO - 1
CLEAR
*@ 1,0 TO 24,79 DOUBLE
*@ 3,1 TO 3,78 DOUBLE
*@ 3,0 SAY CHR(204)
*@ 3,79 SAY CHR(185)
@ 1, 1 SAY "Game Editor Station Fall ][ - Multi Player Adventure"
@ 1, 71 SAY CDATE
@ 2,39-(LEN(ALLTRIM(LAST_MENU_NAME[STACK]))/2) SAY LAST_MENU_NAME[STACK]
TEMP = 1
DO WHILE TEMP # LAST_ITEM_NO + 1
IF LAST_ITEM_NO > 16
IF TEMP<17
@ TEMP+4,3 SAY SUBSTR(STR(TEMP),9,2)+". "+TITLE[TEMP]
TEMP = TEMP + 1
LOOP
ELSE
@ TEMP-12,40 SAY SUBSTR(STR(TEMP),9,2)+". "+TITLE[TEMP]
TEMP = TEMP + 1
LOOP
ENDIF
ELSE
@ TEMP+4, 24 SAY SUBSTR(STR(TEMP),9,2)+". "+TITLE[TEMP]
TEMP = TEMP +1
ENDIF
ENDDO
CHOICE_MENU = 0
@ 22,10 SAY "Enter your selection? " GET CHOICE_MENU PICTURE "99"
READ
IF CHOICE_MENU > LAST_ITEM_NO
LOOP
ENDIF
IF (choice_menu=0 .or. LASTKEY()=27) .AND. STACK > 1
STACK = STACK - 1
LOOP
ENDIF
IF (choice_menu=0 .or. LASTKEY()=27) .AND. STACK = 1
clear
QUIT
ENDIF
GO TOP
LOCATE FOR MENU_ID = ID[CHOICE_MENU] .AND. ITEM_NO = ITEM[CHOICE_MENU]
IF TYPE = "M"
IF STACK = 1
STACK = STACK + 1
SEQ[STACK] = ALLTRIM(FILE_NAME)
LAST_MENU_NAME[STACK] = MENU_TITLE
LOOP
ELSE
IF SEQ[STACK-1] # MENU_ID
STACK = STACK + 1
SEQ[STACK] = ALLTRIM(FILE_NAME)
LAST_MENU_NAME[STACK] = MENU_TITLE
LOOP
ENDIF
ENDIF
ENDIF
IF TYPE = "P"
TEMP_NAME = SPACE(49)
TEMP_NAME = FILE_NAME+" "+PARAM
DO &TEMP_NAME
ENDIF
ENDDO


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DBMENU.ZIP
Filename : MENU.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. 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/