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

* DBTREGIS.PRG - registration info
* (c) 1990 BERNATH COMPUTER
* 07/21/1990

gFG=1
gBG=7
EXITNOW = .F.
CALL DBTOOLS WITH "15,3"
CALL DBTOOLS WITH "23,0"
CALL DBTOOLS WITH "24,1,6/38"
DO SCRHEAD WITH "Registration Information"
CALL DBTOOLS WITH "1,7,33,15,12,0,BERNATH COMPUTER"
CALL DBTOOLS WITH "3,8,5,23,73,1,6,2,0,1"
SET COLOR TO N/GR
@ 9,7 SAY "Upon registration you will be sent a disk with the latest version"
@ 10,7 SAY "of dBTools with the 'sharware message' disabled, and encoded with"
@ 11,7 SAY "your personal serial number. You will also be notified of other"
@ 12,7 SAY "products and future upgrades to dBTools, including the 'PRO' ver-"
@ 13,7 SAY "sion 2.0 when it comes out."
CALL DBTOOLS WITH "1,10,10,12,6,0,dBTools"
CALL DBTOOLS WITH "1,12,39,12,6,0,dBTools"
CALL DBTOOLS WITH "1,14,7,15,6,0,Single User License - $25"
@ 15,9 SAY "For an individual developing applications with dBTools for non-"
@ 16,9 SAY "commercial use."
CALL DBTOOLS WITH "1,17,7,15,6,0,Site License - $40"
@ 18,9 SAY "For programmers at a single site/office developing applications"
@ 19,9 SAY "using dBTools for in-house or commercial use."
@ 21,7 SAY "Note that individuals who use the applications do not have to be"
@ 22,7 SAY "registered, just those that develop them."
CALL DBTOOLS WITH "1,21,33,15,6,0,use"
CALL DBTOOLS WITH "1,24,22,7,1,0,Press any key to return to main menu."
mKEY=0
DO WHILE .NOT. EXITNOW
CALL DBTOOLS WITH "24,1,12/11"
CALL DBTOOLS WITH "6,4"
CALL DBTOOLS WITH "24,1,12/43"
CALL DBTOOLS WITH "6,4"
CALL DBTOOLS WITH "24,1,12/57"
CALL DBTOOLS WITH "6,4"
CALL DBTOOLS WITH "24,1,12/25"
CALL DBTOOLS WITH "6,4"
CALL DBTOOLS WITH "24,1,12/3"
CALL DBTOOLS WITH "6,4"
CALL DBTOOLS WITH "24,1,12/14"
CALL DBTOOLS WITH "6,4"
CALL DBTOOLS WITH "24,1,12/2"
CALL DBTOOLS WITH "6,4"
CALL DBTOOLS WITH "24,1,12/34"
CALL DBTOOLS WITH "6,4"
CALL DBTOOLS WITH "24,1,12/23"
CALL DBTOOLS WITH "6,4"
CALL DBTOOLS WITH "24,1,12/30"
CALL DBTOOLS WITH "6,4"
CALL DBTOOLS WITH "24,1,12/22"
CALL DBTOOLS WITH "6,4"
CALL DBTOOLS WITH "24,1,12/59"
CALL DBTOOLS WITH "6,4"
CALL DBTOOLS WITH "24,1,12/41"
CALL DBTOOLS WITH "6,4"
mKEY=INKEY()
IF mKEY<>0
EXITNOW=.T.
ENDIF
ENDDO
CALL DBTOOLS WITH "24,0"
CALL DBTOOLS WITH "14,3,0"
CALL DBTOOLS WITH "23,1"
RETURN