home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / TPCFON.ZIP / TPCFONT.PRG < prev   
Encoding:
Text File  |  1990-02-12  |  2.2 KB  |  66 lines
  1. set echo off
  2. set talk off
  3. set stat off
  4. set esca off
  5. load TPCfont
  6. aFONT = "14,0,0,0,0,255,255,192,192,255,255,0,0,0,0,0,0"
  7. bfont = "15,0,0,0,0,255,255,0,0,255,255,0,0,0,0,0,0"
  8. cfont = "16,192,224,240,216,204,198,3,3,198,204,216,240,224,192"
  9. call TPCfont with afont
  10. call TPCfont with bfont
  11. call TPCfont with cfont
  12. CLEAR
  13. @ 8,6 SAY 'Using TPCFont.BIN with picklists'
  14. @ 10,10 say '┌───────────────────────┐'
  15. @ 11,10 say '│ TEST FOR TPCFONT.BIN  │'
  16. @ 12,10 say '├───────────────────────┤'
  17. @ 13,10 say '│   FIRST SELECTION  │'
  18. @ 14,10 say '│      SECOND SELECTIO  │'
  19. @ 15,10 say '│      THIRD SELECTION  │'
  20. @ 16,10 say '│      FORTH SELECTION  │'
  21. @ 17,10 say '└───────────────────────┘'
  22. INKIE=0
  23. CLEAR TYPE
  24. DO WHILE INKIE=0
  25.    INKIE=INKEY()
  26. ENDDO
  27.  
  28. afont = "127,0,0,0,1,2,4,8,16,16,32,33,65,64,64"        && ,64,64"
  29. bfont = "128,7,56,192,0,0,0,0,0,240,248,248,248,240,0"  && ,0,0"
  30. cfont = "129,224,28,3,0,0,0,0,0,15,31,31,31,15,0"       && ,0,0"
  31. dfont = "130,0,0,0,128,64,32,16,8,8,132,132,130,2,2"    && ,2,2"
  32. efont = "131,64,64,64,32,32,35,17,17,8,4,2,1,0,0"       && ,0,0"
  33. ffont = "132,0,7,31,56,96,192,128,0,0,0,0,128,96,31"    && ,31,0"
  34. gfont = "133,0,224,248,28,6,3,1,0,0,0,0,1,6,248"        && ,248,0"
  35. hfont = "134,2,2,2,4,4,196,136,136,16,32,64,128,0,0"    && ,0,0"
  36. call tpcfont with afont
  37. call tpcfont with bfont
  38. call tpcfont with cfont
  39. call tpcfont with dfont
  40. call tpcfont with efont
  41. call tpcfont with ffont
  42. call tpcfont with gfont
  43. call tpcfont with hfont
  44. rele modu tpcfont
  45.  
  46. clear
  47.  
  48. inkie = 0
  49. @ 10,21 say 'Add a little humor to your application!'
  50. set color to w+/r
  51. @ 12,20 say "┌──[ NOTICE ]───────────────────────────────┐"
  52. @ 13,20 say "│                                           │"
  53. @ 14,20 say "│             SORRY BUT...                  │"
  54. @ 15,20 say "│ THIS SELECTION IS NOT AVAILABLE AT  Çüé  │"
  55. @ 16,20 say "│             THIS TIME.              âäàå  │"
  56. @ 17,20 say "│                                           │"
  57. @ 18,20 say "└[  PRESS SPACEBAR TO CONTINUE...  ]────────┘"
  58. set colo to rg+/r
  59. @ 18,24 say "PRESS SPACEBAR TO CONTINUE..."
  60. @ 12,25 say "NOTICE"
  61. set color to rg+/n
  62. INKIE=0
  63. do while inkie = 0
  64.    inkie=inkey()
  65. enddo
  66.