home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTMAIN.PRG < prev    next >
Text File  |  1990-07-23  |  8KB  |  201 lines
  1. * =====================================================================
  2. *  DBTMAIN.PRG - Main menu for dBTools Demo   V1.23S
  3. *            (c) 1990 BERNATH COMPUTER
  4. *            07/21/1990
  5. * =====================================================================
  6.  
  7. EXITNOW = .F.
  8. SET COLOR TO +W/B,+GB/N,,B
  9. gMENU = .F.
  10. HCHOICE = 1
  11.  
  12. DO WHILE .NOT. EXITNOW
  13.     IF .NOT. gMENU
  14.        CALL DBTOOLS WITH "8,5,16,10,0"
  15.        CALL DBTOOLS WITH "3,0,5,4,75,0,7,2,0,1"
  16.        CALL DBTOOLS WITH "1,1,10,0,7,0,d B T o o l s   d B A S E   I I I +   E n h a n c e m e n t s"
  17.        CALL DBTOOLS WITH "1,S,2,33,15,4,0,Main Demo Menu"
  18.        CALL DBTOOLS WITH "1,3,7,0,7,0,Version 1.23S"
  19.        @ 6,5 TO 20,75 DOUBLE
  20.        CALL DBTOOLS WITH "1,9,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT"
  21.        CALL DBTOOLS WITH "1,10,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT"
  22.        CALL DBTOOLS WITH "1,11,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT"
  23.        CALL DBTOOLS WITH "1,12,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT"
  24.        CALL DBTOOLS WITH "1,13,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT"
  25.        CALL DBTOOLS WITH "1,14,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT"
  26.        CALL DBTOOLS WITH "1,15,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT"
  27.        CALL DBTOOLS WITH "1,16,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT"
  28.        CALL DBTOOLS WITH "1,17,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT"
  29.        CALL DBTOOLS WITH "1,18,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT"
  30.        CALL DBTOOLS WITH "1,19,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT"
  31.        CALL DBTOOLS WITH "1,23,25,7,1,0,Press Alt-H for hotkey help"
  32.  
  33.        CALL DBTOOLS WITH "1,24,18,0,7,0,Press ─ ─ and ─┘ or first letter to Select"
  34.        CALL DBTOOLS WITH "15,1"                 && save screen in slot 1
  35.        gMENU = .T.
  36.     ELSE
  37.        CALL DBTOOLS WITH "14,1,0"               && restore original screen
  38.     ENDIF
  39.     IF HCHOICE = -5
  40.         HCHOICE = 5
  41.     ENDIF
  42.     mMENUSTR="9,Y,"+STR(HCHOICE,2)+",7,10,15,1,1,3,S)creen,A)udio,W)indows,M)enus,P)rinter,O)ther,Q)uit,@"
  43.     CALL DBTOOLS WITH mMENUSTR
  44.     HCHOICE = VAL(mMENUSTR)
  45.  
  46.     DO CASE
  47.  
  48.        CASE HCHOICE = 1                            && SCREEN
  49.           VCHOICE = 1
  50.           DO WHILE VCHOICE <> 0
  51.              mPARM = "20,Y,"+STR(VCHOICE,2)+",0,8,10,19,26,15,4,1,1,12,0,2,;
  52. A)tsay,B)ox,D)ither,E)rase,F)ade,P)age,R)ecolor,S)croll,N)oblink,C)olor Palette,@"
  53.              CALL DBTOOLS WITH mPARM
  54.              VCHOICE = VAL(mPARM)
  55.              DO CASE
  56.                 CASE VCHOICE = 1
  57.                    DO DBTATSAY
  58.                 CASE VCHOICE = 2
  59.                    DO DBTBOX
  60.                 CASE VCHOICE = 3
  61.                    DO DBTDITHR
  62.                 CASE VCHOICE = 4
  63.                    DO DBTERASE
  64.                 CASE VCHOICE = 5
  65.                    DO DBTFADE
  66.                 CASE VCHOICE = 6
  67.                    DO DBTPAGE
  68.                 CASE VCHOICE = 7
  69.                    DO DBTRECLR
  70.                 CASE VCHOICE = 8
  71.                    DO DBTSCROL
  72.                 CASE VCHOICE = 9
  73.                    DO DBTBLINK
  74.                 CASE VCHOICE = 10
  75.                    DO DBTPALET
  76.                 CASE VCHOICE = 0
  77.                 CASE VCHOICE = 99
  78.                    DO TRAPIT WITH mPARM,HCHOICE,7,"HKMAIN"
  79.                    EXIT
  80.              ENDCASE
  81.           ENDDO
  82.  
  83.        CASE HCHOICE = 2                            && AUDIO
  84.           VCHOICE = 1
  85.           DO WHILE VCHOICE <> 0
  86.              mPARM = "20,Y,"+STR(VCHOICE,2)+",0,8,19,12,31,15,5,1,1,13,0,2,;
  87. B)lat,S)ound,T)widdle,@"
  88.              CALL DBTOOLS WITH mPARM
  89.              VCHOICE = VAL(mPARM)
  90.              DO CASE
  91.                  CASE VCHOICE > 0 .AND. VCHOICE < 4
  92.                      DO DBTAUDIO WITH VCHOICE
  93.                  CASE VCHOICE = 99
  94.                     DO TRAPIT WITH mPARM,HCHOICE,7,"HKMAIN"
  95.                     EXIT
  96.              ENDCASE
  97.           ENDDO
  98.  
  99.        CASE HCHOICE = 3                            && WINDOWS
  100.           VCHOICE = 1
  101.           DO WHILE VCHOICE <> 0
  102.              mPARM = "20,Y,"+STR(VCHOICE,2)+",0,8,27,12,51,15,2,1,1,10,0,2,;
  103. R)ead screen,S)ave Restore screen,W)indows,@"
  104.              CALL DBTOOLS WITH mPARM
  105.              VCHOICE = VAL(mPARM)
  106.              DO CASE
  107.                 CASE VCHOICE = 1 .OR. VCHOICE = 2
  108.                    DO DBTSAVE
  109.                 CASE VCHOICE = 3
  110.                    DO DBTWIND
  111.                 CASE VCHOICE = 0
  112.                 CASE VCHOICE = 99
  113.                    DO TRAPIT WITH mPARM,HCHOICE,7,"HKMAIN"
  114.                    EXIT
  115.              ENDCASE
  116.           ENDDO
  117.  
  118.        CASE HCHOICE = 4                            && MENUS
  119.           VCHOICE = 1
  120.           DO WHILE VCHOICE <> 0
  121.              mPARM = "20,Y,"+STR(VCHOICE,2)+",0,8,37,12,61,0,7,1,1,15,0,2,;
  122. H)orizontal Bar Menu,V)ertical Bar Menu,P)ulldown Menus,@"
  123.              CALL DBTOOLS WITH mPARM
  124.              VCHOICE = VAL(mPARM)
  125.              DO CASE
  126.                 CASE VCHOICE = 1
  127.                    DO DBTHMENU
  128.                 CASE VCHOICE = 2
  129.                    DO DBTVMENU
  130.                 CASE VCHOICE = 3
  131.                    DO DBTPULDN
  132.                 CASE VCHOICE = 0
  133.                 CASE VCHOICE = 99
  134.                    DO TRAPIT WITH mPARM,HCHOICE,7,"HKMAIN"
  135.                    EXIT
  136.              ENDCASE
  137.           ENDDO
  138.  
  139.        CASE HCHOICE = 5                            && PRINT DRIVER
  140.           DO DBTPRMNU
  141.  
  142.        CASE HCHOICE = 6                            && OTHER
  143.           VCHOICE = 1
  144.           DO WHILE VCHOICE <> 0
  145.              mPARM = "20,Y,"+STR(VCHOICE,2)+",0,8,55,13,67,14,6,1,1,12,0,2,C)ursor,D)elay,P)ause,G)etkey,@"
  146.              CALL DBTOOLS WITH mPARM
  147.              VCHOICE = VAL(mPARM)
  148.              DO CASE
  149.                  CASE VCHOICE <> 0 .AND. VCHOICE < 5
  150.                      DO DBTOTHER WITH VCHOICE
  151.                  CASE VCHOICE = 0
  152.                  CASE VCHOICE = 99
  153.                      DO TRAPIT WITH mPARM,HCHOICE,7,"HKMAIN"
  154.                     EXIT
  155.              ENDCASE
  156.           ENDDO
  157.  
  158.        CASE HCHOICE = 0 .OR. HCHOICE = 7           && QUIT
  159.           VCHOICE = 1
  160.           DO WHILE VCHOICE<>0
  161.               mPARM="20,Y,"+STR(VCHOICE,2)+",0,8,55,11,75,0,3,1,1,11,0,2,Registration Info,Quit to DOS,@"
  162.               CALL DBTOOLS WITH mPARM
  163.               VCHOICE = VAL(mPARM)
  164.               DO CASE
  165.                   CASE VCHOICE = 0
  166.  
  167.                   CASE VCHOICE = 1
  168.                       DO DBTREGIS
  169.                   CASE VCHOICE = 2
  170.                       CALL DBTOOLS WITH "4,0,0"
  171.                       CALL DBTOOLS WITH "13,0,0,24,79,8,0"
  172.                       CALL DBTOOLS WITH "3,7,17,16,62,15,5,1,0,0"
  173.                       CALL DBTOOLS WITH "1,S,8,28,15,1,0,Thanks for trying dBTools!"
  174.                       SET COLOR TO +W/RB
  175.                       @ 10,22 SAY "You may register your copy of dBTools"
  176.                       @ 11,22 SAY "by sending $25 plus $1.50 shipping to:"
  177.                       SET COLOR TO +GB/RB
  178.                       @ 13,32 SAY "BERNATH COMPUTER"
  179.                       @ 14,32 SAY "1821 Harding Court"
  180.                       @ 15,32 SAY "Antioch, CA  94509"
  181.                       CALL DBTOOLS WITH "3,19,15,21,69,0,7,0,0,0"
  182.                       CALL DBTOOLS WITH "1,20,19,0,7,0,(c) 1990 BERNATH COMPUTER, all rights reserved"
  183.                       CALL DBTOOLS WITH "6,89"
  184.                       CALL DBTOOLS WITH "4,1,0"
  185.                       EXITNOW = .T.
  186.                       QUIT
  187.                   CASE VCHOICE = 99
  188.                       DO TRAPIT WITH mPARM,HCHOICE,7,"HKMAIN"
  189.                       EXITNOW=.F.
  190.                       EXIT
  191.               ENDCASE
  192.           ENDDO
  193.  
  194.        CASE HCHOICE = 99                        && control key pressed
  195.           mKEY=ASC(SUBSTR(mMENUSTR,4,1))-1      && extract scancodes
  196.           mSCAN=ASC(SUBSTR(mMENUSTR,5,1))-1
  197.           HCHOICE=ASC(SUBSTR(mMENUSTR,6,1))
  198.           DO HKMAIN WITH mKEY,mSCAN,HCHOICE     && call hotkey processor
  199.     ENDCASE
  200. ENDDO
  201.