home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 February / chip_20022115.iso / amiga / chiputil / ascfindconvpal.lha / AscFind&CovPal / BB2-Sources / AscFinder.asc next >
Text File  |  2001-12-16  |  2KB  |  65 lines
  1. ; ******************************************************
  2. ; ******************************************************
  3. ; **                                                  **
  4. ; **                ASC-Finder V1.1                   **
  5. ; **                                                  **
  6. ; **                by Steffen Nitz                   **
  7. ; **                                                  **
  8. ; **              31.12.1996 - 16.12.2001             **
  9. ; **                                                  **
  10. ; **                                                  **
  11. ; **         E-Mail: Steffen.Nitz@t-online.de         **
  12. ; **                                                  **
  13. ; **         Dieser Source ist Public-Domain          **
  14. ; **                                                  **
  15. ; **                                                  **
  16. ; **   Kleines Prog um ASC/Rawkey/Qualifier-Codes     **
  17. ; **   zu ermitteln.                                  **
  18. ; **                                                  **
  19. ; ******************************************************
  20. ; ******************************************************
  21.  
  22. ; benoetigt Amigalibs.res
  23.  
  24. ;V1.0 31.12.1996 - Erste oeffentliche Version
  25. ;V1.1 16.12.2001 - Programm umstrukturiert
  26.  
  27. WBStartup
  28. WbToScreen 0
  29.  
  30. LoadFont 0,"topaz.font",8
  31.  
  32. DefaultIDCMP  #IDCMP_GADGETUP|#IDCMP_RAWKEY|#IDCMP_CLOSEWINDOW
  33.  
  34. Window        0,20,20,185,65,4110,"ASC-FINDER",1,2
  35. Use IntuiFont 0
  36.  
  37. GTInteger     0,0,100, 4,48,12,"ASC-Code   ",$0001,97
  38. GTText        0,1,153, 4,19,12,"",$0001,"A"
  39. GTText        0,2,100,18,72,12,"RawKey    $",$0001,""
  40. GTText        0,3,100,30,72,12,"Qualifier $",$0001,""
  41.  
  42. AttachGTList  0,0
  43.  
  44. Repeat
  45.   w.l   = WaitEvent
  46.   Select w
  47.     Case #IDCMP_GADGETUP:hit.w = GTGetInteger (0,0)
  48.                          Gosub Codes_Anzeigen
  49.     Case #IDCMP_RAWKEY  :hit.w = Asc(Inkey$)
  50.                          raw.w = RawKey
  51.                          qu.w  = Qualifier
  52.                          Gosub Codes_Anzeigen
  53.   End Select
  54. Until w=#IDCMP_CLOSEWINDOW
  55. CloseWindow 0
  56. CloseScreen 0
  57. End
  58.  
  59. .Codes_Anzeigen
  60.   GTSetInteger 0,0,hit
  61.   GTSetAttrs   0,1,#GTTX_Text,Chr$(hit)
  62.   GTSetAttrs   0,2,#GTTX_Text,Hex$(raw)
  63.   GTSetAttrs   0,3,#GTTX_Text,Hex$(qu)
  64. Return
  65.