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

 
Output of file : MENU.PRG contained in archive : DB3AR.ZIP
CLEAR
SET INTEN OFF
SET DELIM TO '[]'
SET DELIM ON
SET HEAD OFF
SET TALK OFF
SET BELL OFF
SET FUNC 9 TO 'DO B:MENU;'
SET SAFE OFF
****************** (B:MENU.PRG)
DO WHILE .T.
CLEAR
RESTORE FROM B:MTITLE
? [&MTITLE]
?
? "Jay's Office Supplies,Inc. 824 Camino Del Rio North -#329 
San Diego,CA 92108"
? "Voice phone San Diego 619-295-6053"
? "Data phone RBBS-Jay's Office Supplies 300/1200 baud 24 hours 
619-291-5682"
RESTORE FROM B:MADD1
RESTORE FROM B:MADD2
RESTORE FROM B:MPHONE
CLEA
TYPE B:MENU.TXT
STORE 0 TO T
STORE LEN(MTITLE) TO T
STORE (80-T)/2 TO T
@ 3,T SAY MTITLE
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
WAIT ' Select option ' TO choice
DO CASE
CASE choice = '0'
STORE ' ' TO OPTION
CLEAR
?
WAIT ' Are you sure you want to put it away? ' TO OPTION
IF OPTION<>'Y'
LOOP
ENDIF
CLEA
QUIT
CASE choice = 'X'
CLEAR
SET FUNCT 3 TO 'DO B:NAMECHG;'
SET FUNCT 4 TO 'DO B:SORTINV;'
SET FUNCT 5 TO 'EJECT;'
SET FUNCT 6 TO 'DO B:BUCKS;'
SET FUNCT 8 TO 'DO B:CLOSEOUT;'
SET FUNCT 10 TO 'DO B:EDIT;'
SET FUNCT 7 TO 'DO B:MANUAL;'
@ 4,1 SAY 'Press F3 key to change company name'
@ 6,1 SAY 'Press F4 key to sort invoices by account and date'
@ 8,1 SAY 'Press F5 key to form feed printer one page.'
@ 10,1 SAY 'Press F6 key to see YTD totals'
@ 12,1 SAY 'Press F7 key to read or print manual'
@ 14,1 SAY 'Press F8 key to delete paid invoices'
@ 16,1 SAY 'Press F9 key to return to menu'
@ 18,1 SAY 'Press F10 key to scan invoices'
?
RETURN
CASE choice = '1'
CLEA
SET FUNCT 3 TO 'DO B:INV;'
@ 15,20 SAY 'Press F3 to continue...'
RETURN
CASE choice = '2'
DO B:EDITINV
CASE choice = '3'
DO B:CREDIT
CASE choice = '4'
DO B:PRGPMT
CASE choice = '5'
DO B:ADDNAMES
CASE choice = '6'
DO B:EDITACC
CASE choice = '7'
DO B:FSTATE
CASE choice = '8'
DO B:STMT
CASE choice = 'A'
DO B:BAL
CASE choice = 'G'
DO B:LABELS
CASE choice = 'C'
DO B:CHECKER
CASE CHOICE = 'D'
DO B:LATE
CASE choice = 'E'
DO B:SALES
CASE choice = 'F'
DO B:PRTSALES
CASE choice = 'H'
DO B:DATA
CASE choice = 'I'
DO B:ADDIT
CASE choice = 'B'
DO B:ALLBAL
CASE choice = '9'
CLEAR
INET=0.00
CNET=00
USE B:INV
SET TALK ON
SUM NET TO INET
MDATE=DATE()
SUM NET TO E FOR NEWDATE <= MDATE-120
SUM NET TO F FOR NEWDATE <= MDATE-150
USE B:CUST
SUM NET,OLD_30,OLD_45,OLD_60 TO A,B,C,D
STORE B/A*100 TO BA
STORE C/A*100 TO CA
STORE D/A*100 TO DA
STORE E/A*100 TO EA
STORE F/A*100 TO FA
SET TALK OFF
@ 2,0 CLEAR
@ 8,1 SAY 'Invoice file total'
@ 8,20 SAY STR(INET,9,2)
@ 10,1 SAY 'Customer file total'
@ 10,20 SAY STR(A,9,2)
@ 13,1 SAY 'If these totals are different you are not updated.'
@ 17,1 SAY 'Do you want to print the report now?'
?
STORE ' ' TO OPTION
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
ENDDO
ELSE
REPO FORM B:TOTAL FOR NET<>0.00 HEAD [&MTITLE;ACCOUNTS RECEIVABLE 
REPORT] NOEJECT TO PRINT
SET PRIN ON
? SPAC(15)+'-----------------------------------------------'
? SPAC(15)+'Over 30 days past due date '+STR(B,9,2)+' -- '+STR(BA,5,2)+'%'
? SPAC(15)+'Over 45 days past due date '+STR(C,9,2)+' -- '+STR(CA,5,2)+'%'
? SPAC(15)+'Over 60 days past due date '+STR(D,9,2)+' -- '+STR(DA,5,2)+'%'
? SPAC(15)+'Over 90 days past due date '+STR(E,9,2)+' -- 
'+STR(EA,5,2)+'%'
? SPAC(15)+'Over 120 days past due date '+STR(F,9,2)+' -- 
'+STR(FA,5,2)+'%'
? SPAC(15)+'-----------------------------------------------'
?
? CHR(12)
SET PRIN OFF
CLEAR
LOOP
ENDIF
OTHERWISE
CLEAR
DO B:FIDO
LOOP
ENDCASE choice
ENDDO B:MENU


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.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/