home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / misc / reflector018a.dms / reflector018a.adf / Programme / Arexx.LHA / Arexx_GK / ExtractFont.rexx < prev    next >
OS/2 REXX Batch file  |  1994-10-30  |  444b  |  23 lines
  1. /**************************************************/
  2. /* von: Olaf Gröning                              */
  3. /* $VER: 1.0 (30.10.94) Olaf Gröning              */
  4. /* aufruf: KP_FontExtract <font> <zeichen>        */             
  5. /**************************************************/
  6.  
  7. options results
  8. signal on error
  9.  
  10. PARSE ARG eingabe
  11. font=WORD(eingabe,1)
  12. zeichen=WORD(eingabe,2)
  13.  
  14. ADDRESS CONSTRUCT
  15.  
  16. KP_TEXT font zeichen
  17.  
  18. exit 0
  19.  
  20. error:
  21. INIT
  22. exit 0
  23.