Category : Network Files
Archive   : NADC11.ZIP
Filename : LOGMAIN.PRG

 
Output of file : LOGMAIN.PRG contained in archive : NADC11.ZIP
* PROGRAM...: logmain.prg
*

CLEAR ALL

SET ECHO OFF && Don't echo to screen
SET TALK OFF && Don't echo results to screen
SET ESCAPE OFF && Don't allow escape to end program
SET SAFETY OFF
SET BELL OFF
SET CONFIRM ON
SET SCOREBOARD OFF
SET STATUS OFF && Turn off Status bar
*ON ERROR DO ERRTRAP && Do ERRTRAP.PRG if an error occurs
DO WHILE .T.
CLEAR
SET ESCAPE OFF

*** Menu Screen

@ 1, 0 TO 9, 78
@ 3, 32 TO 7,48
@ 2, 31 TO 8,49 DOUBLE
@ 4, 36 SAY "ACCOUNTING"
@ 5, 37 SAY "TRACKING"
@ 6, 38 SAY "SYSTEM"

@ 10, 0 TO 20, 78 DOUBLE
@ 10, 34 SAY "[ MAIN MENU ]"
@ 12, 28 SAY "1 - Append New Data"
@ 13, 28 SAY "2 - ID Summary"
@ 14, 28 SAY "3 - Log Address Summary"
@ 18, 28 SAY "X - Exit"

@ 21, 29 SAY "Enter Menu Choice [ ]"
***

DO WHILE .T. && Do loop until EXIT given
i=0 && reset integer
DO WHILE i=0
i=INKEY() && get input from keyboard
@ 21,49 SAY UPPER(CHR(i)) && show keyboard input
IF UPPER(CHR(i))$"123X~" && if input is one of these, EXIT loop
EXIT
ENDIF
i=0 && Didn't EXIT loop, so reset integer
ENDDO
EXIT
ENDDO

DO CASE ** ok, KEYBOARD INPUT was good, so
** find case to DO
CASE CHR(i) $ "Xx"
CLEAR ALL
CLEAR
QUIT

CASE CHR(i) $ "~"
CLEAR ALL
CLEAR
RETURN

CASE CHR(i) $ "1"
DO log100

CASE CHR(i) $ "2"
DO log200

CASE CHR(i) $ "3"
DO log300

ENDCASE

ENDDO
RETURN




  3 Responses to “Category : Network Files
Archive   : NADC11.ZIP
Filename : LOGMAIN.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/