* ===================================================================== * DBTMAIN.PRG - Main menu for dBTools Demo V1.23S * (c) 1990 BERNATH COMPUTER * 07/21/1990 * ===================================================================== EXITNOW = .F. SET COLOR TO +W/B,+GB/N,,B gMENU = .F. HCHOICE = 1 DO WHILE .NOT. EXITNOW IF .NOT. gMENU CALL DBTOOLS WITH "8,5,16,10,0" CALL DBTOOLS WITH "3,0,5,4,75,0,7,2,0,1" 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" CALL DBTOOLS WITH "1,S,2,33,15,4,0,Main Demo Menu" CALL DBTOOLS WITH "1,3,7,0,7,0,Version 1.23S" @ 6,5 TO 20,75 DOUBLE CALL DBTOOLS WITH "1,9,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT" CALL DBTOOLS WITH "1,10,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT" CALL DBTOOLS WITH "1,11,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT" CALL DBTOOLS WITH "1,12,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT" CALL DBTOOLS WITH "1,13,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT" CALL DBTOOLS WITH "1,14,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT" CALL DBTOOLS WITH "1,15,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT" CALL DBTOOLS WITH "1,16,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT" CALL DBTOOLS WITH "1,17,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT" CALL DBTOOLS WITH "1,18,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT" CALL DBTOOLS WITH "1,19,7,7,1,0,dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBTools dBT" CALL DBTOOLS WITH "1,23,25,7,1,0,Press Alt-H for hotkey help" CALL DBTOOLS WITH "1,24,18,0,7,0,Press Ä Ä and ÄÙ or first letter to Select" CALL DBTOOLS WITH "15,1" && save screen in slot 1 gMENU = .T. ELSE CALL DBTOOLS WITH "14,1,0" && restore original screen ENDIF IF HCHOICE = -5 HCHOICE = 5 ENDIF 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,@" CALL DBTOOLS WITH mMENUSTR HCHOICE = VAL(mMENUSTR) DO CASE CASE HCHOICE = 1 && SCREEN VCHOICE = 1 DO WHILE VCHOICE <> 0 mPARM = "20,Y,"+STR(VCHOICE,2)+",0,8,10,19,26,15,4,1,1,12,0,2,; A)tsay,B)ox,D)ither,E)rase,F)ade,P)age,R)ecolor,S)croll,N)oblink,C)olor Palette,@" CALL DBTOOLS WITH mPARM VCHOICE = VAL(mPARM) DO CASE CASE VCHOICE = 1 DO DBTATSAY CASE VCHOICE = 2 DO DBTBOX CASE VCHOICE = 3 DO DBTDITHR CASE VCHOICE = 4 DO DBTERASE CASE VCHOICE = 5 DO DBTFADE CASE VCHOICE = 6 DO DBTPAGE CASE VCHOICE = 7 DO DBTRECLR CASE VCHOICE = 8 DO DBTSCROL CASE VCHOICE = 9 DO DBTBLINK CASE VCHOICE = 10 DO DBTPALET CASE VCHOICE = 0 CASE VCHOICE = 99 DO TRAPIT WITH mPARM,HCHOICE,7,"HKMAIN" EXIT ENDCASE ENDDO CASE HCHOICE = 2 && AUDIO VCHOICE = 1 DO WHILE VCHOICE <> 0 mPARM = "20,Y,"+STR(VCHOICE,2)+",0,8,19,12,31,15,5,1,1,13,0,2,; B)lat,S)ound,T)widdle,@" CALL DBTOOLS WITH mPARM VCHOICE = VAL(mPARM) DO CASE CASE VCHOICE > 0 .AND. VCHOICE < 4 DO DBTAUDIO WITH VCHOICE CASE VCHOICE = 99 DO TRAPIT WITH mPARM,HCHOICE,7,"HKMAIN" EXIT ENDCASE ENDDO CASE HCHOICE = 3 && WINDOWS VCHOICE = 1 DO WHILE VCHOICE <> 0 mPARM = "20,Y,"+STR(VCHOICE,2)+",0,8,27,12,51,15,2,1,1,10,0,2,; R)ead screen,S)ave Restore screen,W)indows,@" CALL DBTOOLS WITH mPARM VCHOICE = VAL(mPARM) DO CASE CASE VCHOICE = 1 .OR. VCHOICE = 2 DO DBTSAVE CASE VCHOICE = 3 DO DBTWIND CASE VCHOICE = 0 CASE VCHOICE = 99 DO TRAPIT WITH mPARM,HCHOICE,7,"HKMAIN" EXIT ENDCASE ENDDO CASE HCHOICE = 4 && MENUS VCHOICE = 1 DO WHILE VCHOICE <> 0 mPARM = "20,Y,"+STR(VCHOICE,2)+",0,8,37,12,61,0,7,1,1,15,0,2,; H)orizontal Bar Menu,V)ertical Bar Menu,P)ulldown Menus,@" CALL DBTOOLS WITH mPARM VCHOICE = VAL(mPARM) DO CASE CASE VCHOICE = 1 DO DBTHMENU CASE VCHOICE = 2 DO DBTVMENU CASE VCHOICE = 3 DO DBTPULDN CASE VCHOICE = 0 CASE VCHOICE = 99 DO TRAPIT WITH mPARM,HCHOICE,7,"HKMAIN" EXIT ENDCASE ENDDO CASE HCHOICE = 5 && PRINT DRIVER DO DBTPRMNU CASE HCHOICE = 6 && OTHER VCHOICE = 1 DO WHILE VCHOICE <> 0 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,@" CALL DBTOOLS WITH mPARM VCHOICE = VAL(mPARM) DO CASE CASE VCHOICE <> 0 .AND. VCHOICE < 5 DO DBTOTHER WITH VCHOICE CASE VCHOICE = 0 CASE VCHOICE = 99 DO TRAPIT WITH mPARM,HCHOICE,7,"HKMAIN" EXIT ENDCASE ENDDO CASE HCHOICE = 0 .OR. HCHOICE = 7 && QUIT VCHOICE = 1 DO WHILE VCHOICE<>0 mPARM="20,Y,"+STR(VCHOICE,2)+",0,8,55,11,75,0,3,1,1,11,0,2,Registration Info,Quit to DOS,@" CALL DBTOOLS WITH mPARM VCHOICE = VAL(mPARM) DO CASE CASE VCHOICE = 0 CASE VCHOICE = 1 DO DBTREGIS CASE VCHOICE = 2 CALL DBTOOLS WITH "4,0,0" CALL DBTOOLS WITH "13,0,0,24,79,8,0" CALL DBTOOLS WITH "3,7,17,16,62,15,5,1,0,0" CALL DBTOOLS WITH "1,S,8,28,15,1,0,Thanks for trying dBTools!" SET COLOR TO +W/RB @ 10,22 SAY "You may register your copy of dBTools" @ 11,22 SAY "by sending $25 plus $1.50 shipping to:" SET COLOR TO +GB/RB @ 13,32 SAY "BERNATH COMPUTER" @ 14,32 SAY "1821 Harding Court" @ 15,32 SAY "Antioch, CA 94509" CALL DBTOOLS WITH "3,19,15,21,69,0,7,0,0,0" CALL DBTOOLS WITH "1,20,19,0,7,0,(c) 1990 BERNATH COMPUTER, all rights reserved" CALL DBTOOLS WITH "6,89" CALL DBTOOLS WITH "4,1,0" EXITNOW = .T. QUIT CASE VCHOICE = 99 DO TRAPIT WITH mPARM,HCHOICE,7,"HKMAIN" EXITNOW=.F. EXIT ENDCASE ENDDO CASE HCHOICE = 99 && control key pressed mKEY=ASC(SUBSTR(mMENUSTR,4,1))-1 && extract scancodes mSCAN=ASC(SUBSTR(mMENUSTR,5,1))-1 HCHOICE=ASC(SUBSTR(mMENUSTR,6,1)) DO HKMAIN WITH mKEY,mSCAN,HCHOICE && call hotkey processor ENDCASE ENDDO