home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTREGIS.PRG < prev    next >
Text File  |  1990-07-21  |  2KB  |  69 lines
  1. *   DBTREGIS.PRG - registration info
  2. *   (c) 1990 BERNATH COMPUTER
  3. *   07/21/1990
  4.  
  5. gFG=1
  6. gBG=7
  7. EXITNOW = .F.
  8. CALL DBTOOLS WITH "15,3"
  9. CALL DBTOOLS WITH "23,0"
  10. CALL DBTOOLS WITH "24,1,6/38"
  11. DO SCRHEAD WITH "Registration Information"
  12. CALL DBTOOLS WITH "1,7,33,15,12,0,BERNATH COMPUTER"
  13. CALL DBTOOLS WITH "3,8,5,23,73,1,6,2,0,1"
  14. SET COLOR TO N/GR
  15. @  9,7 SAY "Upon registration you will be sent a disk with the latest version"
  16. @ 10,7 SAY "of dBTools with the 'sharware message' disabled, and encoded with"
  17. @ 11,7 SAY "your personal serial number. You will also be notified of other"
  18. @ 12,7 SAY "products and future upgrades to dBTools, including the 'PRO' ver-"
  19. @ 13,7 SAY "sion 2.0 when it comes out."
  20. CALL DBTOOLS WITH "1,10,10,12,6,0,dBTools"
  21. CALL DBTOOLS WITH "1,12,39,12,6,0,dBTools"
  22. CALL DBTOOLS WITH "1,14,7,15,6,0,Single User License - $25"
  23. @ 15,9 SAY "For an individual developing applications with dBTools for non-"
  24. @ 16,9 SAY "commercial use."
  25. CALL DBTOOLS WITH "1,17,7,15,6,0,Site License - $40"
  26. @ 18,9 SAY "For programmers at a single site/office developing applications"
  27. @ 19,9 SAY "using dBTools for in-house or commercial use."
  28. @ 21,7 SAY "Note that individuals who use the applications do not have to be"
  29. @ 22,7 SAY "registered, just those that develop them."
  30. CALL DBTOOLS WITH "1,21,33,15,6,0,use"
  31. CALL DBTOOLS WITH "1,24,22,7,1,0,Press any key to return to main menu."
  32. mKEY=0
  33. DO WHILE .NOT. EXITNOW
  34.    CALL DBTOOLS WITH "24,1,12/11"
  35.    CALL DBTOOLS WITH "6,4"
  36.    CALL DBTOOLS WITH "24,1,12/43"
  37.    CALL DBTOOLS WITH "6,4"
  38.    CALL DBTOOLS WITH "24,1,12/57"
  39.    CALL DBTOOLS WITH "6,4"
  40.    CALL DBTOOLS WITH "24,1,12/25"
  41.    CALL DBTOOLS WITH "6,4"
  42.    CALL DBTOOLS WITH "24,1,12/3"
  43.    CALL DBTOOLS WITH "6,4"
  44.    CALL DBTOOLS WITH "24,1,12/14"
  45.    CALL DBTOOLS WITH "6,4"
  46.    CALL DBTOOLS WITH "24,1,12/2"
  47.    CALL DBTOOLS WITH "6,4"
  48.    CALL DBTOOLS WITH "24,1,12/34"
  49.    CALL DBTOOLS WITH "6,4"
  50.    CALL DBTOOLS WITH "24,1,12/23"
  51.    CALL DBTOOLS WITH "6,4"
  52.    CALL DBTOOLS WITH "24,1,12/30"
  53.    CALL DBTOOLS WITH "6,4"
  54.    CALL DBTOOLS WITH "24,1,12/22"
  55.    CALL DBTOOLS WITH "6,4"
  56.    CALL DBTOOLS WITH "24,1,12/59"
  57.    CALL DBTOOLS WITH "6,4"
  58.    CALL DBTOOLS WITH "24,1,12/41"
  59.    CALL DBTOOLS WITH "6,4"
  60.    mKEY=INKEY()
  61.    IF mKEY<>0
  62.        EXITNOW=.T.
  63.    ENDIF
  64. ENDDO
  65. CALL DBTOOLS WITH "24,0"
  66. CALL DBTOOLS WITH "14,3,0"
  67. CALL DBTOOLS WITH "23,1"
  68. RETURN
  69.