home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / HKLIB01.ZIP / HKTEST01.PRG < prev   
Encoding:
Text File  |  1987-05-01  |  3.1 KB  |  88 lines
  1. *  HKTEST01.PRG:  routines to test Howard Kapustein's Library Ver. 0.10
  2. *
  3. *  Copyright (c) 1987        05-01-87
  4. *
  5. *
  6. *    This is just a short program to test HKLIB01.LIB.
  7. *    To test the library, compile this program and add the
  8. *    library file when linking.
  9. *
  10. *    NOTE: some of the functions may seem to execute slowly.
  11. *    This is because the CENTER() function is used repetitively.
  12. *    I used the CENTER() function for output to make the results
  13. *    easier to read. If you wish a truer test of speed, just change
  14. *    the CENTER(...) to a column number.
  15. *
  16. *
  17. CLEAR
  18. SET COLOR TO BG+/N,GR+/N,N
  19. SET DELIMITERS OFF
  20. char = SPACE(20)
  21. @ 1, CENTER("Howard Kapustein's Library Version 0.10") SAY "Howard Kapustein's Library Version 0.10"
  22. @ 2, CENTER("---------------------------------------") SAY "---------------------------------------"
  23. @ 5, 25 SAY "Library Functions:"
  24. @ 7, 30 SAY "1. CENTER( <expC> )"
  25. @ 8, 30 SAY "2. DOL_STR( <expN> )"
  26. @ 9, 30 SAY "3. MOD( <expN>,<expN> )"
  27. @ 10, 30 SAY "4. ISSTATE( <expC> )"
  28. @ 11, 30 SAY "5. STABBR( <expC>,<expL> )"
  29. @ 12, 30 SAY "6. STFULL( <expC> )"
  30. @ 13, 30 SAY "9. Quit"
  31. DO WHILE .T.
  32.     SET COLOR TO BG+/N,GR+/N
  33.     choice = " "
  34.     SET CONFIRM OFF
  35.     @ 15, 35 SAY "Which: " GET choice VALID choice $ "1234569"
  36.     READ
  37.     SET COLOR TO BG+/N,
  38.     SET CONFIRM ON
  39.     DO CASE
  40.        CASE choice = "1"
  41.            mc = SPACE(55)
  42.            @ 17, 0 SAY "Enter string to center: " GET mc
  43.            READ
  44.            SET COLOR TO B+/W
  45.            @ 20, CENTER(LTRIM(TRIM(mc))) SAY LTRIM(TRIM(mc))
  46.        CASE choice = "2"
  47.            mn = 0.0000
  48.            @ 17, 20 SAY "Enter number to convert: " GET mn
  49.            READ
  50.            @ 20, CENTER(LTRIM(STR(mn))+" = "+DOL_STR(mn)) SAY LTRIM(STR(mn))+" = "+DOL_STR(mn)
  51.        CASE choice = "3"
  52.            ma = 0.0
  53.            mb = 0.0
  54.            @ 17, 24 SAY "A / B:   A = " GET ma
  55.            @ 18, 33 SAY "B = " GET mb
  56.            READ
  57.            @ 20, 30 SAY "MOD(A,B) = "+LTRIM(STR(MOD(ma,mb)))
  58.        CASE choice = "4"
  59.            mi = SPACE(2)
  60.            @ 17, 20 SAY "Enter abbreviation: " GET mi
  61.            READ
  62.            ml = ISSTATE(mi)
  63.            @ 20, 30 SAY "Is "+mi+" a state abbreviation?   "
  64.            SET COLOR TO GR+/N
  65.            @ 20, 58 SAY ml
  66.        CASE choice = "5"
  67.            mn = SPACE(30)
  68.            ml = .F.
  69.            @ 17, 20 SAY "Enter name to check: " GET mn
  70.            @ 18, 20 SAY "Case sensitive? " GET ml
  71.            READ
  72.            SET COLOR TO B+/W
  73.            ct = CENTER("State abbreviation of "+LTRIM(TRIM(mn))+" = "+STABBR(LTRIM(TRIM(mn)),ml))
  74.            @ 20, ct SAY "State abbreviation of "+LTRIM(TRIM(mn))+" = "+STABBR(LTRIM(TRIM(mn)),ml)
  75.        CASE choice = "6"
  76.            ma = SPACE(2)
  77.            @ 17, 20 SAY "Enter abbreviation to check: " GET ma
  78.            READ
  79.            SET COLOR TO B+/W
  80.            @ 20, CENTER(ma+" = "+STFULL(ma)) SAY ma+" = "+STFULL(ma)
  81.        CASE choice = "9"
  82.            QUIT
  83.     ENDCASE
  84.     SET COLOR TO BG+/N
  85.     @ 24, CENTER("Press any key to continue") SAY "Press any key to continue"
  86.     i = INKEY(0)
  87.     @ 16, 0 CLEAR
  88. ENDDO